[通达信] 黄金分割源码

向钱看

P1:=(CROSS(MA(CLOSE,3),MA(CLOSE,13))&&MA(CLOSE,13)>REF(MA(CLOSE,13),1));
启动成本:=REF(LOW,P1),COLORMAGENTA;
VAR1:=LLV(LOW,0);
VAR2:=HHV(HIGH,0);
VAR3:=VAR2-VAR1;
低:= VAR1;
H1:= VAR3*0.191+VAR1;
H2:= VAR3*0.382+VAR1;
H3:= VAR3*0.5+VAR1;
H4:= VAR3*0.618+VAR1;
H5:= VAR3*0.809+VAR1;
高:= VAR2;
顶点:REFDATE(高,DATE),COLORRED,POINTDOT;
%19.8:REFDATE(H1,DATE),COLOR0050FF,POINTDOT;
%38.2:REFDATE(H2,DATE),COLOR0075FF,POINTDOT;
%50:REFDATE(H3,DATE),COLOR00A0FF,POINTDOT;
%61.8:REFDATE(H4,DATE),COLOR00C5FF,POINTDOT;
%80.9:REFDATE(H5,DATE),COLOR00E0FF,POINTDOT;
低点:REFDATE(低,DATE),COLORGREEN,POINTDOT;
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED;
DRAWTEXT(ISLASTBAR,%19.8,'％19.8'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,%38.2,'％38.2'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%50,'％50'),COLORRED;
DRAWTEXT(ISLASTBAR,%61.8,'％61.8'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%80.9,'％80.9'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORWHITE;