通达信带黄金分割的麒麟指标

源码
N：1 30 13

VAR0:=(CLOSE*2+HIGH+LOW)/4*VOL;
VAR1:=SUM(VAR0,89)/SUM(VOL,89);
搏杀生命线:IF(CLOSE>=VAR1,VAR1*1.001,VAR1*0.999),COLORFF80FF,LINETHICK1;
FL:MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1)),COLORF4E202;
FS:MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1),COLORF4E202,LINETHICK1;
CG:IF(MA(CLOSE,17) 持股线:IF(CG=FS,CG,DRAWNULL),COLORYELLOW,LINETHICK1;
日最大涨幅:100*(H-REF(CLOSE,1))/REF(CLOSE,1),NODRAW,COLORYELLOW;
日涨幅:100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1),NODRAW,COLORWHITE;
日最大跌幅:100*(L-REF(CLOSE,1))/REF(CLOSE,1),NODRAW,COLORYELLOW;
实体幅:ABS(100*(CLOSE-OPEN)/OPEN),NODRAW,COLORRED;
上影幅:IF(CLOSE>OPEN,100*(H-C)/C,100*(H-O)/O),NODRAW,COLORYELLOW;
下影幅:IF(CLOSE>OPEN,100*(O-L)/L,100*(C-L)/L),NODRAW,COLORWHITE;
N1:=10;
A:=HHV(HIGH,N1)=HIGH AND HIGH>REF(HIGH,1);A1:=FILTER(A,N1-1);
B:=LLV(LOW,N1)=LOW AND LOW TS1:=BARSLAST(A1);
阻力位:REF(HIGH,TS1),COLORFFFFFF,LINETHICK0;
STICKLINE(1,阻力位,阻力位,1,0),COLORFFFFFF;
TS11:=BARSLAST(B1);
支撑位:REF(LOW,TS11),COLORFF8080, LINETHICK0;
STICKLINE(1,支撑位,支撑位,1,0),COLORFF8080;
HH:=HHV(HIGH,N);
LL:=LLV(LOW,N);
HH1:=BARSLAST((HH > REF(HH,1)));
LL1:=BARSLAST((LL < REF(LL,1)));
STICKLINE((HH1 < LL1),CLOSE,OPEN,1,0),COLOR0000FF;
STICKLINE((HH1 > LL1),CLOSE,OPEN,1,0),COLORFF0000;
NN:=120;
高11:=REFDATE(HHV(H,NN),DATE);
低11:=REFDATE(LLV(L,NN),DATE);
H11:=低11+(高11-低11)*0.191;
H12:=低11+(高11-低11)*0.382;
H13:=低11+(高11-低11)*0.5;
H14:=低11+(高11-低11)*0.618;
H15:=低11+(高11-低11)*0