[通达信指标]画线无未来的黄金分割公式

N:=34;

M:=3;

HHHH1:=REF(HHV(H,N),M);

LLLL1:=REF(LLV(L,N),M);

H1:=HHHH1-(HHHH1-LLLL1)*0.191;

H2:=HHHH1-(HHHH1-LLLL1)*0.382;

H3:=HHHH1-(HHHH1-LLLL1)*0.500;

H4:=HHHH1-(HHHH1-LLLL1)*0.618;

H5:=HHHH1-(HHHH1-LLLL1)*0.809;

顶:HHHH1,COLORRED,DOTLINE;

一:H1,COLORGRAY,DOTLINE;

二:H2,COLORGRAY,DOTLINE;

三:H3,COLORRED,DOTLINE;

四:H4,COLORGRAY,DOTLINE;

五:H5,COLORGRAY,DOTLINE;

LLLL:LLLL1,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 LLLL,LLLL,’—底—‘),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,LLLL,CON2STR(LLLL,2)),COLORMAGENTA;