通达信灾后自救黄金分割版主图指标(源码)

HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
T:=HHVBARS(HH,0);
TT:=BARSLAST(L=LLV(L,T+1));
T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
XL:=REFX(MIN(C,O),BARSNEXT(T1=0));
高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;
NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.08,ISLASTBAR,REF(XL*1.08,T),0),DOTLINE,COLORGREEN;
NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.21,ISLASTBAR,REF(XL*1.21,T),0),DOTLINE,COLORRED;
NOTEXT3:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.34,ISLASTBAR,REF(XL*1.34,T),0),DOTLINE,COLORBLUE;
NOTEXT4:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.55,ISLASTBAR,REF(XL*1.55,T),0),DOTLINE,COLORWHITE;
NOTEXT5:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*1.89,ISLASTBAR,REF(XL*1.89,T),0),DOTLINE,COLORBROWN;
NOTEXT6:DRAWLINE(CURRBARSCOUNT=CONST(T)-3,XL*2.44,ISLASTBAR,REF(XL*2.44,T),0),DOTLINE,COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.03,VARCAT(VARCAT("涨8%价：",VAR2STR(XL*1.08,2)),"元")),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.21,VARCAT(VARCAT("涨21%价：",VAR2STR(XL*1.21,2)),"元")),COLORRED;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.34,VARCAT(VARCAT("涨34%价：",VAR2STR(XL*1.34,2)),"元")),COLORBLUE;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.55,VARCAT(VARCAT("涨55%价：",VAR2STR(XL*1.55,2)),"元")),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*1.89,VARCAT(VARCAT("涨89%价：",VAR2STR(XL*1.89,2)),"元")),COLORBROWN;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,XL*2.44,VARCAT(VARCAT("涨144%价：",VAR2STR(XL*2.44,2)),"元")),COLORMAGENTA;