精准的黄金分割主图

​SWITCH:=IF(FINANCE(3)=0,1,0);

S1:=IF(BARSCOUNT(C) 250,FINDHIGHBARS(H,89,25*10,1),HHVBARS(H,25*10))+1;

S2:=CONST(S1);

H1:=CONST(REF(IF(BARSCOUNT(C) 250,CONST(FINDHIGH(H,89,25*10,1)),H),S1-1));

S3:=IF(BARSCOUNT(C) 250,FINDLOWBARS(L,89,25*10,1),LLVBARS(L,25*10))+1;

S4:=CONST(S3);

L1:=CONST(REF(IF(BARSCOUNT(C) 250,CONST(FINDLOW(L,89,25*10,1)),L),S3-1));

NOTEXT高:IF(CURRBARSCOUNT =S2 AND SWITCH=1,H1,DRAWNULL),DOTLINE,COLORWHITE;

NOTEXT低:IF(CURRBARSCOUNT =S4 AND SWITCH=1 ,L1,DRAWNULL),DOTLINE,COLORWHITE;

VAR1:=NOTEXT高-NOTEXT低;

VAR2:=((L-NOTEXT低)/VAR1)*100;

NOTEXT落L:100-VAR2,COLORRED,NODRAW;

X118:=IF(SWITCH=1,NOTEXT低+VAR1*0.118,DRAWNULL);

X236:=IF(SWITCH=1,NOTEXT低+VAR1*0.236,DRAWNULL);

DRAWBAND(X118,RGB(35,35,35),X236,RGB(35,35,35));

NOTEXTX118:IF(SWITCH=1,NOTEXT低+VAR1*0.118,DRAWNULL),DOTLINE,COLORBROWN;

NOTEXTX236:IF(SWITCH=1,NOTEXT低+VAR1*0.236,DRAWNULL),DOTLINE,COLORBROWN;

NOTEXT191:IF(SWITCH=1,NOTEXT低+VAR1*0.191,DRAWNULL),DOTLINE,COLORLICYAN;

NOTEXT382:IF(SWITCH=1,NOTEXT低+VAR1*0.382,DRAWNULL),DOTLINE,COLORLIRED;

NOTEXT050:IF(SWITCH=1,NOTEXT低+VAR1*0.5,DRAWNULL),POINTDOT,COLORF0F0F0;

NOTEXT618:IF(SWITCH=1,NOTEXT低+VAR1*0.618,DRAWNULL),DOTLINE,COLORLIRED;

X764:=IF(SWITCH=1,NOTEXT低+VAR1*0.764,DRAWNULL);

X882:=IF(SWITCH=1,NOTEXT低+VAR1*0.882,DRAWNULL);

DRAWBAND(X764,RGB(35,35,35),X882,RGB(35,35,35));

NOTEXTX764:IF(SWITCH=1,NOTEXT低+VAR1*0.764,DRAWNULL),DOTLINE,COLORBROWN;

NOTEXTX882:IF(SWITCH=1,NOTEXT低+VAR1*0.882,DRAWNULL),DOTLINE,COLORBROWN;

NOTEXT809:IF(SWITCH=1,NOTEXT低+VAR1*0.809,DRAWNULL),DOTLINE,COLORLICYAN;

STICKLINE(CURRBARSCOUNT=S4 AND SWITCH=1,L,NOTEXT高,0,-1),COLORLIRED;

STICKLINE(CURRBARSCOUNT=S2 AND SWITCH=1,H,NOTEXT低,0,-1),COLORLIGREEN;

有需要者，自取。有不懂者，来问。

只适用大盘和指数。效果如下，几乎精准！