通达信卷帘操作公式源码

以下是通达信卷帘操作公式源码

{卷帘操作}
VAR2:=EMA(SLOPE(EMA(CLOSE,20),10)*34+CLOSE,30);
 VAR3:=EMA(VAR2,3);
 VAR4:=EMA(VAR3,3);
 VAR5:=EMA(VAR4,3);
 VAR6:=EMA(VAR5,3);
 VA7:=EMA(VAR6,3);
 VAR7:=EMA(VA7,3);
 VA8:=EMA(VAR7,3);
 VAR8:=EMA(VA8,3);
 VAR9:=EMA(VAR8,3);
 VARA:=BARSLAST(CROSS(CLOSE,VAR9));
 VARB:=BARSLAST(CROSS(VAR9,CLOSE));
卷帘操作:IF(CLOSE>VAR9 AND CLOSE>REF(CLOSE,VARA),REF(CLOSE,VARA),REF(CLOSE,VARA)),COLORFFC8FF,POINTDOT;
 STICKLINE(CLOSE>VAR9 AND CLOSE>REF(CLOSE,VARA),REF(CLOSE,VARA),LOW*1,00,1),COLORFFC8FF;
强:IF(CLOSE<VAR9 AND CLOSE<REF(CLOSE,VARB),REF(CLOSE,VARB),REF(CLOSE,VARB)),COLOR0099FF,POINTDOT;
 STICKLINE(CLOSE<VAR9 AND CLOSE<REF(CLOSE,VARB),REF(CLOSE,VARB),HIGH*1,0,1),COLORFFCCCC;
势:IF(CLOSE>VAR9 AND CLOSE<REF(CLOSE,VARA),REF(CLOSE,VARA),REF(CLOSE,VARA)),COLORWHITE,POINTDOT;
 STICKLINE(CLOSE>VAR9 AND CLOSE<REF(CLOSE,VARA),REF(CLOSE,VARA),LOW*1.02,0,1),COLORFFCCCC;
垂帘休息:IF(CLOSE>VAR9 AND CLOSE<REF(CLOSE,VARA),REF(CLOSE,VARA),REF(CLOSE,VARA)),COLORFFCCCC,POINTDOT;
 STICKLINE(CLOSE>VAR9 AND CLOSE<REF(CLOSE,VARA),REF(CLOSE,VARA),REF(CLOSE,VARA),6,1),COLORFFCCCC;
沉:IF(CLOSE<VAR9,REF(CLOSE,VARB),REF(CLOSE,VARB)),COLORB3B3B3,POINTDOT;
 STICKLINE(CLOSE<VAR9,REF(CLOSE,VARB),REF(CLOSE,VARB),16,0),COLORB3B3B3,LINETHICK2;
 STICKLINE(CLOSE>VAR9,REF(CLOSE,VARA),REF(CLOSE,VARA),16,0),COLORBLUE,LINETHICK2;
 STICKLINE(C>=O,H,L,0,0),COLORRED;
 {STICKLINE(C<O,H,L,0,0),COLORFFFF52;
 {STICKLINE(C>=O,C,O,4,1),COLORRED;
 STICKLINE(C<O,C,O,4,0),COLORFFFF52;}
 X5:HHV((REF(CLOSE,1)+REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4))/4,5),COLOR00FF00;
 X10:HHV((REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5))/4,10),COLORYELLOW;
 X20:HHV((REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6))/4,20),COLORFF00FF;
 BY:=CROSS(C,X5) AND CROSS(C,X10) AND CROSS(C,X20) AND C/REF(C,1)>1.015;
 BH:=CROSS(X5,X10) AND C>O;
 STICKLINE(BY OR BH,L,L-0.03,4,0),COLORYELLOW;
 {DRAWTEXT(BY OR BH,L-0.12,'操作'),COLORYELLOW;}
 {DDC:=CROSS(X5,C) AND CROSS(X10,C) AND CROSS(X20,C);
 DRAWTEXT(DDC,H+0.15,'●'),COLOR00FF00;}