自动画线 通达信指标公式源码

自动画线通达信指标公式源码Z1:=STRCAT(HYBLOCK,'');Z2:=STRCAT(Z1,DYBLOCK);Z3:=STRCAT(Z2,'');DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0;//筛选出最近3根K线中的最高点A1:=REF(HIGH,3)=HHV(HIGH,2*3+1);B1:=FILTER(A1,3);C1:=BACKSET(B1,3+1);D1:=FILTER(C1,3);//筛选出最近3根K线中的最低点A2:=REF(LOW,3)=LLV(LOW,2*3+1);B2:=FILTER(A2,3);C2:=BACKSET(B2,3+1);D2:=FILTER(C2,3);//计算高低点的位置E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;E2:=(HIGH+LOW)/2;//判断当前K线是否为高点或低点H1:=(D1ANDNOT(D2ANDE1>=E2))ORISLASTBARORBARSCOUNT(CLOSE)=1;H2:=D1ANDNOT(D2ANDE1>=E2);L1:=D2ANDNOT(D1ANDE1=E2);//计算过滤后的低点位置X1:=REF(BARSLAST(H1),1)+1;F1:=BACKSET(H1ANDCOUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));G1:=F1>REF(F1,1);I1:=BACKSET(G1,2);LD:=I1>REF(I1,1);//计算过滤后的高点位置L2:=LDORISLASTBARORBARSCOUNT(CLOSE)=1;X2:=REF(BARSLAST(L2),1)+1;F2:=BACKSET(L2ANDCOUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));G2:=F2>REF(F2,1);I2:=BACKSET(G2,2);HD:=I2>REF(I2,1);//计算当前K线是否为高点或低点J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1);J2:=J1>REF(J1,1);//输出结果A3:=H;B3：如果当前K线的前一根高点的后一根K线的收盘价大于当前K线前一根高点的收盘价，则为真。D3：当A3为真且B3为真且HD为真时，为真。E3：将D3向前移动两个K线，得到新的序列。HH：找到所有的长期高点。A4：如果当前K线的收盘价大于前一根低点的收盘价，则为真。B4：当前K线前一根低点的收盘价。D4：当A4为真且B4为真且LD为真时，为真。E4：将D4向前移动两个K线，得到新的序列。LL：找到所有的长期低点。绘制图标，表示长期高点和长期低点。H3：如果当前K线是最后一根K线或者当前K线之前没有出现过高点或低点，则为真。X3：最后一个符合条件的长期高点的索引加1。F3：找到最后一个符合条件的长期低点之后的第一个长期高点，并将其向前移动两个K线，得到新的序列。G3：将F3向前移动一根K线，得到新的序列。I3：将G3向前移动两根K线，得到新的序列。LZ：找到所有的长期低点，并将其向前移动一根K线，得到新的序列。L4：如果当前K线是最后一根K线或者当前K线之前没有出现过高点或低点，则为真。X4：最后一个符合条件的长期低点的索引加1。F4：找到最后一个符合条件的长期高点之后的第一个长期低点，并将其向前移动两个K线，得到新的序列。G4：将F4向前移动一根K线，得到新的序列。I4：将G4向前移动两根K线，得到新的序列。HZ：找到所有的长期高点，并将其向前移动一根K线，得到新的序列。K1：如果当前K线是最后一根K线或者当前K线之前没有