优化MACD，给你一种可亲直观的感觉，漂亮的界面，和变色的提示。 CM60:=BARSLAST(LONGCROSS(C,MA(C,60),8))+1 ,NODRAW ,colorred;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,24);
DEA:=EMA(DIFF,9);
ADIF:=ATAN((DIFF/REF(DIFF,1)-1)*100)*180/3.1416 ,NODRAW;
RADIF:=REF(ADIF,1), NODRAW;
C2:=IF(V>MA(V,150)*0.98,0.1,-0.1);
C1:=IF(V<MA(V,150)*0.98,-0.1,0.1);
B2:=EMA(CLOSE,55)-MA(CLOSE,60) ,DOTLINE ,colorgreen;
B3:=EMA(B2,9), DOTLINE ,colorcyan;
DRAWBAND(B2,RGB(120,50,50),B3,RGB(50,120,50));
MACD:=2*(DIFF-DEA), STICK,LINETHICK1, colorcyan;
N:=20;//www.fxjgsw.com
MID:=MA(C,20);
VART1:=POW((C-MID),2);
VART2:=MA(VART1,N);
VART3:=SQRT(VART2);
UPPER:=MID+2*VART3;
LOWER:=MID-2*VART3;
BOLL:=REF(MID,1),colorgreen;
UB:=REF(UPPER,1),COLOR00FFFF;
LB:=REF(LOWER,1),COLOR00FFFF, NODRAW;BLTJ:=REF(L,1)<REF(LB,1) AND L>LB;
BLLDT:BARSLAST(BLTJ ), NODRAW;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)), colorred ,NODRAW;
底背离:REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA), NODRAW;
STICKLINE(底背离,0,0,0,1),COLOR00FF00;
{底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),colorred,LINETHICK2 ,CROSSDOT;}
DRAWTEXT(底背离,0.1,' 底背离'),COLORFF00FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)) ;
顶背离:REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF), CROSSDOT ,colorred ,NODRAW;
{顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),colorblue,LINETHICK2, CROSSDOT;}
底背D:BARSLAST(底背离)+1, NODRAW, colorred;
顶背D:A2+1, colorgreen ,NODRAW;
AA:=SUMBARS(VOL,CAPITAL);
地量:=VOL<MA(VOL,AA)*21/100 AND VOL>0;
天量:=VOL>MA(VOL,AA)*34/10 ;
MACDA:2*(DIFF-DEA), STICK,LINETHICK1 ,colorcyan;
NOTEXT1:0, LINETHICK3 ,colorgray;
NOTEXT8:IF(V>MA(V,150)*0.98,0,DRAWNULL) ,colorred ,LINETHICK2, CIRCLEDOT ;
DEAA:DEA, coloryellow;
DIFA:DIFF, colorwhite ;
DIFF1:EMA(CLOSE,12)-EMA(CLOSE,26) ,DOTLINE ,colorgreen, NODRAW;
DEA1:EMA(DIFF1,9), DOTLINE ,colorcyan ,NODRAW;
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),colorred,LINETHICK2, CROSSDOT;
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),colorblue,LINETHICK2 ,CROSSDOT;
强:IF(DIFF>MA(DIFF,2),DIFF,DRAWNULL),colorred, LINETHICK2;
弱:IF(DEA>MA(DEA,2),DEA,DRAWNULL),colormagenta ,LINETHICK2;
必买: DRAWICON(REF(TROUGHBARS(3,15,1),1)=0 AND HIGH>LOW,0,25),colorred ,LINETHICK4;
必卖: DRAWICON(REF(PEAKBARS(3,15,1),1)=1,0,27),colorred,LINETHICK8;
B1:A1, NODRAW;
TOP:A2 ,NODRAW;
HSJ:=BARSLAST(CROSS(DIFF,0) AND DIFF>=0 )+1 ,NODRAW;
LSJ:=BARSLAST(CROSS(0,DIFF) AND DIFF<0 )+1, NODRAW;
T:IF(DIFF>0,HSJ,LSJ), NODRAW;//www.fxjgsw.com
IF(T=1,ABS(MACD),0), STICK, LINETHICK2 ,colormagenta;
IF(CROSS(DEA,0),ABS(MACD),0) ,STICK, LINETHICK2, coloryellow;
S:IF(HSJ>1,SUM(ABS(MACD),T),DRAWNULL) ,NODRAW ;
DRAWNUMBER(ISLASTBAR ,ABS(MACD*1.02),S) ,coloryellow;
DRAWNUMBER(T=1 ,ABS(MACD*1.02),REF(S,1)) ;
T2:REF(T,T)+T, NODRAW;
Q1S:REF(S,T) ,NODRAW;
Q2S:=REF(S,T2), NODRAW;
BL:=Q1S/Q2S, NODRAW;
TTJ:=IF(BARSLAST(顶背离=1)+1=144 OR BARSLAST(顶背离=1)+1=89 OR BARSLAST(顶背离=1)+1=13 OR BARSLAST(顶背离=1)+1=47 OR BARSLAST(顶背离=1)+1=1 OR BARSLAST(顶背离=1)+1=8 OR BARSLAST(顶背离=1)+1=21 OR BARSLAST(顶背离=1)+1=34 OR BARSLAST(顶背离=1)+1=55,1,O) ;
TTJA:=IF( BARSLAST(底背离=1)+1=144 OR BARSLAST(底背离=1)+1=89 OR BARSLAST(底背离=1)+1=8 OR BARSLAST(底背离=1)+1=1 OR BARSLAST(底背离=1)+1=47 OR BARSLAST(底背离=1)+1=13 OR BARSLAST(底背离=1)+1=21 OR BARSLAST(底背离=1)+1=34 OR BARSLAST(底背离=1)+1=55,1,O) ;
DRAWNUMBER((BARSLAST(顶背离=1)+1<144 AND TTJ=1 AND CURRBARSCOUNT<233) OR ISLASTBAR,MIN(DIFF,DEA)*0.98,BARSLAST(顶背离=1)+1) ,colorgreen;
DRAWNUMBER((BARSLAST(底背离=1)+1<144 AND TTJA=1 AND CURRBARSCOUNT<233)OR ISLASTBAR,0,BARSLAST(底背离=1)+1) ,coloryellow;
|
