T:=150;TT:=3;N1:=0;AMOV:=VOL*(OPEN+CLOSE)/2;成本价:SUM(AMOV,5)/SUM(VOL,5),LINETHICK1,COLOR209FFF;MAA:MA(C,N1),COLOR00FF00;DRAWTEXT(ISLASTBAR AND N1>0 AND MAA>REF(MAA,1),MAA,'↑'),COLOR00FF00;DRAWTEXT(ISLASTBAR AND N1>0 AND MAA<REF(MAA,1),MAA,'↓'),COLOR00FF00;高1:=REF(HHV(H,T),TT);低1:=REF(LLV(L,T),TT);H1:=高1-(高1-低1)*0.191;H2:=高1-(高1-低1)*0.382;H3:=高1-(高1-低1)*0.5;H4:=高1-(高1-低1)*0.618;H5:=高1-(高1-低1)*0.809;顶:REFDATE(高1,DATE),COLORFFFF00;一:REFDATE(H1,DATE),DOTLINE,COLORYELLOW;二:REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;三:REFDATE(H3,DATE),COLOR00FFFF;四:REFDATE(H4,DATE),DOTLINE,COLORMAGENTA;五:REFDATE(H5,DATE),DOTLINE,COLORYELLOW;低:REFDATE(低1,DATE),COLOR00FF00;TT3:=(CURRBARSCOUNT=5);TT4:=(CURRBARSCOUNT=5+3);DRAWNUMBER(TT3 AND 顶,顶,顶),COLOR999900;DRAWTEXT(TT4 AND 顶,顶,'高:'),COLOR208FFF;DRAWNUMBER(TT3 AND 一,一,一),COLOR999999;DRAWTEXT(TT4 AND 一,一,'191:'),COLOR208FFF;DRAWNUMBER(TT3 AND 二,二,二),COLOR999999;DRAWTEXT(TT4 AND 二,二,'382:'),COLOR208FFF;DRAWNUMBER(TT3 AND 三,三,三),COLOR999999;DRAWTEXT(TT4 AND 三,三,'1/2:'),COLOR208FFF;DRAWNUMBER(TT3 AND 四,四,四),COLOR999999;DRAWTEXT(TT4 AND 四,四,'618:'),COLOR208FFF;DRAWNUMBER(TT3 AND 五,五,五),COLOR999999;DRAWTEXT(TT4 AND 五,五,'809:'),COLOR208FFF;DRAWNUMBER(TT3 AND 低,低*1.01,低),COLOR999900;DRAWTEXT(TT4 AND 低,低*1.009,'低:'),COLOR208FFF;AS:=(O+H+L+C)/4;BL:EMA(AS,17),LINETHICK2,COLOR0000FF;DRAWNUMBER(ISLASTBAR AND BL,BL*1.005,BL);XGM:=CROSS(C,BL);DRAWICON(XGM,BL,9);IF(BL>REF(BL,1),BL,DRAWNULL),LINETHICK2,COLORYELLOW;IF(BL<REF(BL,1),BL,DRAWNULL),LINETHICK2,COLOR00FF00;DRAWTEXT(ISLASTBAR AND BL>REF(BL,1),BL,'↑'),COLOR00FFFF;DRAWTEXT(ISLASTBAR AND BL<REF(BL,1),BL,'↓'),COLOR00FF00;DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);DEA:=EMA(DIFF,9);MACD:=2*(DIFF-DEA),;GMB:IF(CROSS(DIFF,DEA) AND DIFF>0,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLOR00FFFF;GMC:IF(CROSS(DIFF,DEA) AND DIFF<0,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLOR208FFF;DRAWTEXT(CROSS(DIFF,DEA) AND DIFF>0,L*0.998,'金叉>0'),COLORYELLOW;DRAWTEXT(CROSS(DIFF,DEA) AND DIFF<0,L*0.998,'金叉<0'),COLORYELLOW;RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;K:=SMA(RSV,3,1);D:=SMA(K,3,1);GJD:IF(CROSS(K,D) AND K>20 AND D<50,L*0.999,DRAWNULL),CROSSDOT,LINETHICK3,COLORFF00FF;DRAWTEXT(CROSS(K,D) AND K>20 AND D<50,L*0.998,'K>20 D<50 KD金叉！ '),COLOREEAAEE; |
