M5:=MA(C,5);
M10:=MA(C,10);
M20:=MA(C,20);
M60:=MA(C,60);
A:=M5>=M60 AND M10>=M60 AND M20>=M60;
T:=BArslAST(crOSS(A,0.5));
HT:=HHVBARS(H,T+1);
NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,REF(H,T),ISLASTBAR,REF(H,T),0),COLORRED;
NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,REF(H,T),HT=0,REF(H,HT),1),COLORRED;
NOTEXT3:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,REF(H,T),HT=0,(REF(H,HT)-REF(H,T))*0.382+REF(H,T),1),DOTLINE,COLORMAGENTA;
NOTEXT4:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,REF(H,T),HT=0,(REF(H,HT)-REF(H,T))*0.618+REF(H,T),1),DOTLINE,COLORGREEN;
压力:NOTEXT2,NODRAW,COLORYELLOW;
支撑1:NOTEXT3,NODRAW,COLORMAGENTA;
支撑2:NOTEXT4,NODRAW,COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT1*0.96,VARCAT(VARCAT('底部支撑价:',VAR2STR(NOTEXT1,2)),'元')),COLORRED;
LT0:=FINDLOWBARS(L,0,30,1);
HT0:=FINDHIGHBARS(H,LT0=0,60,1);
LL:=REF(L,LT0);
HH:=REF(H,HT0);
NOTEXT01:DRAWLINE(HT0=0,HH,LT0=0,HH,1),COLORYELLOW;
NOTEXT02:DRAWLINE(HT0=0,HH,LT0=0,LL,1),COLORYELLOW;
NOTEXT03:DRAWLINE(HT0=0,HH,LT0=0,(HH-LL)*0.382+LL,1),DOTLINE,COLORLIMAGENTA;
NOTEXT04:DRAWLINE(HT0=0,HH,LT0=0,(HH-LL)*0.618+LL,1),DOTLINE,COLORLIBLUE;
TA:=BARSLAST(REF(NOTEXT01,1)=DRAWNULL AND HT=0);
X支撑线:REF(L,LT0),COLORYELLOW,NODRAW;
X阻力1:(HH-LL)*0.382+LL,COLORLIMAGENTA,NODRAW;
X阻力2:(HH-LL)*0.618+LL,COLORLIBLUE, NODRAW;
DRAWTEXT(TA=0,NOTEXT01*1.03,VARCAT(VARCAT('最高价:',VAR2STR(HH,2)),'元'))COLORYELLOW;