|
以下是通达信富力比列阶梯主图源码（无源码的请下载附件导入）
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;
726266583.jpg
|
