[浏览完整版]
标题：{TD九转序例}通达信的，怎帮忙改写为金字塔的
1楼
proyym 发表于：2019/3/22 20:53:04{TD九转序例}
A4:=C>REF(C,4);
NT:=BARSLASTCOUNT(A4);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
DRAWTEXT(AY>0,H*1,VAR2STR(AY,0)), COLORFFFFFF;
DRAWTEXT(NT=9,H*1,'9'), COLORGREEN;
BA:=C<REF(C,4);
NT0:=BARSLASTCOUNT(BA);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
DRAWTEXT(AY1>0,L*1,VAR2STR(AY1,0)),COLORFFFFFF;
DRAWTEXT(NT0=9,L*1,'9'),COLORGREEN;
A4:=C>REF(C,4);
NT:=BARSLASTCOUNT(A4);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
DRAWTEXT(AY>0,H*1,VAR2STR(AY,0)), COLORFFFFFF;
DRAWTEXT(NT=9,H*1,'9'), COLORGREEN;
BA:=C<REF(C,4);
NT0:=BARSLASTCOUNT(BA);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
DRAWTEXT(AY1>0,L*1,VAR2STR(AY1,0)),COLORFFFFFF;
DRAWTEXT(NT0=9,L*1,'9'),COLORGREEN;
2楼
proyym 发表于：2019/3/22 20:56:39A4赋值:收盘价>4日前的收盘价
NT赋值:条件连续成立次数
TJ11赋值:NT=9
TJ13赋值:是否最后一个周期 AND NT位于5和8之间
AY赋值:(若TJ11>0则将最近9周期置为1 OR 若TJ13>0则将最近NT周期置为1)*NT
当满足条件AY>0时,在最高价*1位置书写文字, COLORFFFFFF
当满足条件NT=9时,在最高价*1位置书写文字, 画绿色
BA赋值:收盘价<4日前的收盘价
NT0赋值:条件连续成立次数
TJ21赋值:NT0=9
TJ23赋值:是否最后一个周期 AND NT0位于5和8之间
AY1赋值:(若TJ21>0则将最近9周期置为1 OR 若TJ23>0则将最近NT0周期置为1)*NT0
当满足条件AY1>0时,在最低价*1位置书写文字,COLORFFFFFF
当满足条件NT0=9时,在最低价*1位置书写文字,画绿色
NT赋值:条件连续成立次数
TJ11赋值:NT=9
TJ13赋值:是否最后一个周期 AND NT位于5和8之间
AY赋值:(若TJ11>0则将最近9周期置为1 OR 若TJ13>0则将最近NT周期置为1)*NT
当满足条件AY>0时,在最高价*1位置书写文字, COLORFFFFFF
当满足条件NT=9时,在最高价*1位置书写文字, 画绿色
BA赋值:收盘价<4日前的收盘价
NT0赋值:条件连续成立次数
TJ21赋值:NT0=9
TJ23赋值:是否最后一个周期 AND NT0位于5和8之间
AY1赋值:(若TJ21>0则将最近9周期置为1 OR 若TJ23>0则将最近NT0周期置为1)*NT0
当满足条件AY1>0时,在最低价*1位置书写文字,COLORFFFFFF
当满足条件NT0=9时,在最低价*1位置书写文字,画绿色
3楼
FireScript 发表于：2019/3/25 9:33:21 A4:=C>REF(C,4);
NT:=if(A4,BARSLAST(not(A4)),0);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
DRAWTEXT(AY>0,H*1,NUMTOSTR(AY,0)), COLORFFFFFF;
DRAWTEXT(NT=9,H*1,'9'), COLORGREEN;
BA:=C<REF(C,4);
NT0:=if(BA,BARSLAST(not(BA)),0);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
DRAWTEXT(AY1>0,L*1,NUMTOSTR(AY1,0)),COLORFFFFFF;
NT:=if(A4,BARSLAST(not(A4)),0);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
DRAWTEXT(AY>0,H*1,NUMTOSTR(AY,0)), COLORFFFFFF;
DRAWTEXT(NT=9,H*1,'9'), COLORGREEN;
BA:=C<REF(C,4);
NT0:=if(BA,BARSLAST(not(BA)),0);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
DRAWTEXT(AY1>0,L*1,NUMTOSTR(AY1,0)),COLORFFFFFF;
DRAWTEXT(NT0=9,L*1,'9'),COLORGREEN;
根据1楼代码做了转换。但是毕竟软件不一样，不能保证能完全等效替换，这点需要明确下。部分函数可能只是字面意思一样，2个软件的处理是可能存在差异的。上面的代码你在金字塔公式里面按照序列模式使用。
4楼
proyym 发表于：2019/3/25 11:51:21好的谢谢。
5楼
proyym 发表于：2019/3/25 11:55:56下降的低9，显示的在K线最低点的下方是很好的。
可否把上升的高9序列，显示的在K线最高点的上方？
6楼
proyym 发表于：2019/3/25 11:56:21DRAWTEXT(AY>0,H*1,NUMTOSTR(AY,0)), COLORFFFFFF;
DRAWTEXT(NT=9,H*1,'9'), COLORGREEN;
DRAWTEXT(NT=9,H*1,'9'), COLORGREEN;
7楼
proyym 发表于：2019/3/25 12:01:08上升中的高9序列，可否指定于K线最高点的上方？这两句要加哪个函数指定位置？
此主题相关图片如下：微信截图_20190325115155.png
DRAWTEXT(AY>0,H*1,NUMTOSTR(AY,0)), COLORFFFFFF;此主题相关图片如下：微信截图_20190325115155.pngDRAWTEXT(NT=9,H*1,'9'), COLORGREEN;
8楼
FireScript 发表于：2019/3/25 12:21:36 代码里面是指定在高点位置，你是要在高点往上一点输出文字吗？
把这句 输出位置调整下试下
DRAWTEXT(NT=9,H+1*MINDIFF,'9'), COLORGREEN;
此主题相关图片如下：temp.png
这样就会往上挪一点了。
9楼
proyym 发表于：2019/3/25 22:51:12有没办法和低9对称，数字的偏离与最高点是固定值。不管什么品种和周期。
10楼
FireScript 发表于：2019/3/26 9:04:41 “有没办法和低9对称” 这个不好处理。因为这个输出的效果没办法控制的很精确的。
“数字的偏离与最高点是固定值”但是这个只需要按照8楼的处理即可，这样每次输出 “9”的时候都是在最高价上 1个点。
[此贴子已经被作者于2019/3/26 9:05:07编辑过]