{黄金分割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; 顶点: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; 低点:REFDATE(低,DATE),COLORWHITE; DRAWTEXT(ISLASTBAR,顶点,'顶点'),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,低点,'低点'),COLORWHITE; {黄金分割1}
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; |
|