{黃金分割N=80 1 999 , M=3 1 15} 

N:=80;
M:=3;
MA5:MA(C,5);
MA13:MA(C,13);
高:=REF(HHV(H,N),M); 
低:=REF(LLV(L,N),M);
H19:=高-(高-低)*0.191; 
H38:=高-(高-低)*0.382; 
H中:=高-(高-低)*0.5; 
H61:=高-(高-低)*0.618; 
H80:=高-(高-低)*0.809;
頂點(diǎn):REFDATE(高,DATE),COLORWHITE;
%19.8:REFDATE(H19,DATE),COLORYELLOW;
%38.2:REFDATE(H38,DATE),COLORMAGENTA;
%50:REFDATE(H中,DATE),COLORRED;
%61.8:REFDATE(H61,DATE),COLORMAGENTA;
%80.9:REFDATE(H80,DATE),COLORYELLOW;
低點(diǎn):REFDATE(低,DATE),COLORWHITE;
DRAWTEXT(ISLASTBAR,頂點(diǎn),'頂點(diǎn)'),COLORWHITE;
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,低點(diǎn),'低點(diǎn)'),COLORWHITE;

 

      {黃金分割1}

P1:=(CROSS(MA(CLOSE,3),MA(CLOSE,13))&&MA(CLOSE,13)>REF(MA(CLOSE,13),1));
啟動(dòng)成本:=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;
頂點(diǎn):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;
低點(diǎn):REFDATE(低,DATE),COLORGREEN,POINTDOT;
DRAWTEXT(ISLASTBAR,頂點(diǎn),'頂點(diǎn)'),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,低點(diǎn),'低點(diǎn)'),COLORWHITE;