{黄金比例——近高}
N:=13;{参数可调}
A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
TS:BARSLAST(E1>REF(E1,1)),NODRAW;{最近一个高点天数}
G1:=REF(H,TS),DOTLINE,COLORRED;{最近高点价格}
底:=LLV(L,TS+1);顶:=HHV(H,TS+1);
H10:=顶-(顶-底)*(100-90)/100;
H1:=顶-(顶-底)*(100-80.90)/100;
H2:=顶-(顶-底)*(100-69.10)/100;
H3:=顶-(顶-底)*(100-61.80)/100;
H4:=顶-(顶-底)*(100-50)/100;
H5:=顶-(顶-底)*(100-38.20)/100;
H6:=顶-(顶-底)*(100-30.90)/100;
H7:=顶-(顶-底)*(100-19.10)/100;
H8:=顶-(顶-底)*(100-33.33)/100;
H9:=顶-(顶-底)*(100-66.66)/100;
H0:=顶-(顶-底)*(100-6.18)/100;
可调90:REFDATE(H10,DATE),DOTLINE,COLORRED;
0618:REFDATE(H0,DATE),DOTLINE,COLORBLUE;
191:REFDATE(H7,DATE),DOTLINE,COLORYELLOW;
309:REFDATE(H6,DATE),DOTLINE,COLORCYAN;
382:REFDATE(H5,DATE),DOTLINE,COLORGREEN;
50:REFDATE(H4,DATE),DOTLINE,COLORWHITE;
618:REFDATE(H3,DATE),DOTLINE,COLORMAGENTA;
691:REFDATE(H2,DATE),DOTLINE,COLORCYAN;
809:REFDATE(H1,DATE),DOTLINE,COLORYELLOW;
三分一:REFDATE(H8,DATE),NODRAW,COLORWHITE;
三分二:REFDATE(H9,DATE),NODRAW,COLORWHITE;
顶1:REFDATE(顶,DATE),DOTLINE,COLORRED;
底1:REFDATE(底,DATE),DOTLINE,COLORLIGRAY;
DRAWTEXT(ISLASTBAR,H7,VAR2STR(H7,2)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(ISLASTBAR,H6,VAR2STR(H6,2)),COLORCYAN,DRAWABOVE;
DRAWTEXT(ISLASTBAR,H5,VAR2STR(H5,2)),COLORGREEN,DRAWABOVE;
DRAWTEXT(ISLASTBAR,H4,VAR2STR(H4,2)),COLORWHITE,DRAWABOVE;
DRAWTEXT(ISLASTBAR,H3,VAR2STR(H3,2)),COLORMAGENTA,DRAWABOVE;
DRAWTEXT(ISLASTBAR,H2,VAR2STR(H2,2)),COLORCYAN,DRAWABOVE; |