通达信狄马克的黄金分割公式

{黄金分割}
NB:=80;
MB:=3;
MA5X:=MA(C,5);
MA13X:=MA(C,13);
高:=REF(HHV(H,NB),MB);
低:=REF(LLV(L,NB),MB);
H19:=高-(高-低)*0.191;
H38:=高-(高-低)*0.382;
H中:=高-(高-低)*0.5;
H61:=高-(高-低)*0.618;
H80:=高-(高-低)*0.809;

一:REFDATE(高,DATE),POINTDOT,COLORWHITE;
二:REFDATE(H19,DATE),POINTDOT,COLORYELLOW;
三:REFDATE(H38,DATE),POINTDOT,COLORMAGENTA;
四:REFDATE(H中,DATE),POINTDOT,COLORRED;
五:REFDATE(H61,DATE),POINTDOT,COLORMAGENTA;
六:REFDATE(H80,DATE),POINTDOT,COLORYELLOW;
七:REFDATE(低,DATE),POINTDOT,COLORWHITE;

DRAWTEXT(ISLASTBAR,一, 高),COLORWHITE;
DRAWTEXT(ISLASTBAR,二, 809),COLORYELLOW;
DRAWTEXT(ISLASTBAR,三, 618),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,四, 中),COLORRED;
DRAWTEXT(ISLASTBAR,五, 382),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,六, 191),COLORYELLOW;
DRAWTEXT(ISLASTBAR,七, 低),COLORWHITE;