通达信黄金分割线--主图叠加

TH:=HHVBARS(H,0),COLORRED,NODRAW;
TL:=LLVBARS(L,0),COLORGREEN,NODRAW;
高:HHV(H,TH),COLORRED,NODRAW;
低:LLV(L,TL),COLORGREEN,NODRAW;

H1:=高-(高-低)*0.191;
H2:=高-(高-低)*0.382;
H3:=高-(高-低)*0.5;
H4:=高-(高-低)*0.618;
H5:=高-(高-低)*0.809;
顶:REFDATE(高,DATE),COLORCYAN,POINTDOT;
%19.1:REFDATE(H1,DATE),COLORYELLOW,POINTDOT;
%38.2:REFDATE(H2,DATE),COLORMAGENTA,POINTDOT;
%50:REFDATE(H3,DATE),COLORWHITE,POINTDOT;
%61.8:REFDATE(H4,DATE),COLORMAGENTA,POINTDOT;
%80.9:REFDATE(H5,DATE),COLORYELLOW,POINTDOT;
底:REFDATE(低,DATE),COLORCYAN,POINTDOT;

DRAWTEXT(ISLASTBAR,顶,'顶'),COLORCYAN;
DRAWTEXT(ISLASTBAR,%19.1,'％19.1'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,%38.2,'％38.2'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%50,'％50'),COLORWHITE;
DRAWTEXT(ISLASTBAR,%61.8,'％61.8'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%80.9,'％80.9'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,底,'底'),COLORCYAN;