通信达公式编写 通达信股仙主图指标公式(3)

    
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1)
COLORRED,LINETHICK1;
ZGSTAR:=(高点压力+低点支撑)/2;
ZGEND:=CONST((高点压力+低点支撑)/2);
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);
中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),
COLORFF55FF,LINETHICK1;
DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,
REF(L,DDCS1-1),1),COLORFF00FF,POINTDOT,;
DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,
REF(L,DDCS2-1),1),COLORCYAN,POINTDOT;

V1:=CLOSE/REF(CLOSE,3)>=1.1;
V2:=BACKSET(V1,2);
DRAWICON((V2 AND COUNT(V2,2)=1),L,26);

TF:=MA(C,250),LINETHICK2,COLOR0000FF;
BBB:=REF(TF,1);
CCC:=REF(TF,2);
EEE:=LLV(LOW,500)*1.618;
TJ333:=C<EEE;
TJ11:=BBB>CCC;
TJ22:=FILTER(COUNT(CROSS(C,TF),21)>=1,55);
XG18:=TJ11 AND TJ22 AND TJ333;
DRAWTEXT(XG18,LOW*0.98,'万'),COLOR00FFFF;
DRAWTEXT(XG18,LOW*0.97,'能'),COLOR00FFFF;

TJ88:=CROSS(C,HRY33) AND MA55>REF(MA55,1);
BUY1:=LAST(CLOSE>MA(CLOSE,M1),0,5);
BUY2:=EXIST(CLOSE<MA(CLOSE,M1),5);
BUY:=CLOSE>MA(CLOSE,M1)&&BUY1&&BUY2;
DRAWICON(TJ88 OR BUY,LOW*0.97,17);