通达信富力比列阶梯主图源码

以下是通达信富力比列阶梯主图源码

Z1:=STRCAT(HYBLOCK,' ');
 Z2:=STRCAT(Z1,DYBLOCK);
 Z3:=STRCAT(Z2,' ');
 DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR9F9F5F;
 HAN:=DATE<1141230;
 STICKLINE(C>=O,H,L,0,0),COLORFFFFFF;
 STICKLINE(C>=O,C,O,3,1),COLORFFFFFF;
 STICKLINE(C<O,H,L,0,0),COLORFF0000;
 STICKLINE(C<O,C,O,3,1),COLORFF0000;
高1:=REF(HHV(H,150),3);
低1:=REF(LLV(L,150),3);
 H1:=高1-(高1-低1)*0.191;
 H2:=高1-(高1-低1)*0.382;
 H3:=高1-(高1-低1)*0.5;
 H4:=高1-(高1-低1)*0.618;
 H5:=高1-(高1-低1)*0.809;
 {顶:REFDATE(高1,DATE),POINTDOT,COLORWHITE;}
 %19:REFDATE(H1,DATE),POINTDOT,COLOR545454;
 %38:REFDATE(H2,DATE),POINTDOT,COLOR545454;
 %50:REFDATE(H3,DATE),POINTDOT,COLOR545454;
 %61:REFDATE(H4,DATE),POINTDOT,COLOR545454;
 %80:REFDATE(H5,DATE),POINTDOT,COLOR545454;
突破:REF(EMA(C,14),1)COLORMAGENTA,LINETHICK2;
 A1X:=(EMA(C,14)-突破)/突破*100,NODRAW;
出击:IF(A1X>=0,REF(EMA(C,14),BARSLAST(CROSS(A1X,0))+1),DRAWNULL)COLOR656565,LINETHICK2;
休假:IF(A1X<0,REF(EMA(C,14),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLOR434343,LINETHICK2;
 STICKLINE(A1X>=0,出击,突破,0,-1)COLOR656565;
 STICKLINE(A1X<0,休假,突破,0,-1)COLOR434343;
 STICKLINE(CROSS(A1X,0),C,O,3,0)COLOR4D4DFF;
 STICKLINE(CROSS(0,A1X),C,O,3,0)COLOR009F00;
 ※:IF(A1X<0,突破,DRAWNULL)COLORGREEN,LINETHICK2;
 DP:=REF(EMA(INDEXC,14),1);
 DPX:=(EMA(INDEXC,14)-DP)/DP*100;
 STICKLINE(DPX>=0 AND A1X>=0,REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORFFFFFF;
 STICKLINE(DPX<0 AND A1X<0,REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORFF0000;
 STICKLINE(NOT(DPX>=0 AND A1X>=0) AND NOT(DPX<0 AND A1X<0),REFDATE(低1,DATE),REFDATE(低1,DATE)*0.98,2,1)COLORRED;