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; |
|