[通达信指标]一款显示高低点幅度和周期的公式

N:=6;

A6:=H=ZIG(1,N) AND ZIG(1,N)>REF(ZIG(1,N),1);

B6:=H=ZIG(1,N) AND ZIG(1,N)<REF(ZIG(1,N),1);

TA6:=BARSLAST(A6)+1;

TB6:=BARSLAST(B6)+1;

S6:=A6*REF(TB6,1)+1;

X6:=B6*REF(TA6,1)+1;

SF6:=(A6*H/REF(L,TB6)-1)*100;

XF6:=(B6*L/REF(H,TA6)-1)*100;

DRAWTEXT(A6,H*1.01,VARCAT(VARCAT(VAR2STR(S6,0),’天’),VARCAT(VAR2STR(SF6,0),’%’))),COLORLIRED;

DRAWTEXT(B6,L*0.99,VARCAT(VARCAT(VAR2STR(X6,0),’天’),VARCAT(VAR2STR(XF6,0),’%’))),COLORLIGREEN;

DRAWLINE(A6,H,B6,L,0),COLORLIGREEN,LINETHICK3;

DRAWLINE(B6,L,A6,H,0),COLORLIRED,LINETHICK3;

N1:=150;

M1:=3;

高1:=REF(HHV(H,N1),M1);

低1:=REF(LLV(L,N1),M1);

H1:=高1-(高1-低1)*0.191;

H2:=高1-(高1-低1)*0.382;

H3:=高1-(高1-低1)*0.500;

H4:=高1-(高1-低1)*0.618;

H5:=高1-(高1-低1)*0.809;

顶:REFDATE(高1,DATE),COLORRED,DOTLINE;

一:REFDATE(H1,DATE),COLORGRAY,DOTLINE;

二:REFDATE(H2,DATE),COLORGRAY,DOTLINE;

三:REFDATE(H3,DATE),COLORRED,DOTLINE;

四:REFDATE(H4,DATE),COLORGRAY,DOTLINE;

五:REFDATE(H5,DATE),COLORGRAY,DOTLINE;

低:REFDATE(低1,DATE),COLORGREEN,DOTLINE;

TT4:=(CURRBARSCOUNT=34);

DRAWTEXT(TT4 AND 顶,顶,’—顶—‘),COLORCYAN;

DRAWTEXT(TT4 AND 一,一,’-0.809-‘),COLORCYAN;

DRAWTEXT(TT4 AND 二,二,’-0.618-‘),COLORCYAN;

DRAWTEXT(TT4 AND 三,三,’-0.500-‘),COLORCYAN;

DRAWTEXT(TT4 AND 四,四,’-0.382-‘),COLORCYAN;

DRAWTEXT(TT4 AND 五,五,’-0.191-‘),COLORCYAN;

DRAWTEXT(TT4 AND 低,低,’—底—‘),COLORCYAN;

{更多内容关注公共号：量化爱好者之家 }

DRAWTEXT(CURRBARSCOUNT=1,顶,CON2STR(顶,2)),COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=1,一,CON2STR(一,2)),COLORCYAN;

DRAWTEXT(CURRBARSCOUNT=1,二,CON2STR(二,2)),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=1,三,CON2STR(三,2)),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=1,四,CON2STR(四,2)),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=1,五,CON2STR(五,2)),COLORCYAN;

DRAWTEXT(CURRBARSCOUNT=1,低,CON2STR(低,2)),COLORMAGENTA;