DIF1:=EMA(CLOSE,24) - EMA(CLOSE,52);
DEA1:=EMA(DIF1,9);
MACD1:=2*(DIF1-DEA1),STICK;
MACD2:=EMA(MACD1,3);
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLOR000099;
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1,0),COLOR009900;
STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLOR666666;
STICKLINE(MACD1>=0 OR MACD1<=0,0,0,50,1),COLOR666666;
DIFF:DIF1,COLOR009900;
DEA:DEA1,COLOR22A6E6;
MACD:MACD1,NODRAW,COLORMAGENTA;
强:IF(DIF1>=DEA1,DIF1,DRAWNULL),COLOR000099,LINETHICK2;
DRAWICON(CROSS(DIF1,DEA1),DIF1+0.05,1);
JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0));
二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWTEXT(二次金叉,-DEA1*0.6,'二次金叉'),COLOR00BBBB;
三金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=3,28)=1;
DRAWTEXT(三金叉,-DEA1*0.6,'三次金叉'),COLOR00BBBB;
四金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=4,28)=1;
DRAWTEXT(四金叉,-DEA1*0.6,'四次金叉'),COLOR555555;
五金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=5,33)=1;
DRAWTEXT(五金叉,-DEA1*0.6,'五次金叉'),COLOR555555;
六金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=6,33)=1;
DRAWTEXT(六金叉,-DEA1*0.6,'黄金底'),COLOR555555;
DRAWTEXT(六金叉,-DEA1*0.6,'六次金叉'),COLOR555555;
七金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=7,33)=1;
DRAWTEXT(七金叉,-DEA1*0.6,'白金底'),COLOR555555;
DRAWTEXT(七金叉,-DEA1*0.6,'七次金叉'),COLOR555555;
八金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=8,33)=1;
DRAWTEXT(八金叉,-DEA1*0.6,'钻石底'),COLORMAGENTA;
DRAWTEXT(八金叉,-DEA1*0.6,'八次金叉'),COLOR555555;
九金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=9,33)=1;
DRAWTEXT(九金叉,-DEA1*0.6,'金钻底'),COLORRED;
DRAWTEXT(九金叉,-DEA1*0.6,'九次金叉'),COLOR555555;
A1:=BARSLAST(REF(CROSS(DIF1,DEA1),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1);
DRAWTEXT(底背离,DIF1*0.8,'底背离'),COLOR555555;
A2:=BARSLAST(REF(CROSS(DEA1,DIF1),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF1,A2+1)>DIF1 AND CROSS(DEA1,DIF1);
DRAWTEXT(顶背离,DIF1*0.8,'顶背离'),COLOR555555;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
K:SMA(RSV,9,3),NODRAW;
D:SMA(K,9,3),NODRAW;
J:3*K-2*D,NODRAW;
A:=CROSS(DIF1,DEA1) AND CROSS(K,D) AND CROSS(J,D);
DRAWTEXT(A,DEA1*0.5,'M&K共振'),COLOR555555;
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
JC := DEA1-DIF1;
绿柱面积:=IF(MACD1<0,SUM(MACD1,BARSLAST(JC<0)),0);
红柱面积:=IF(MACD1>0,SUM(MACD1,BARSLAST(JC>0)),0);
本次最低价:=LLV(L,BARSLAST(JC<0));
本次最高价:=HHV(H,BARSLAST(JC>0));
X1:=IF (MACD1<0,BARSLAST(CROSS(DIF1,DEA1)),0);
前次绿柱面积:=REF(绿柱面积,X1+1);
前次最低价:=REF(本次最低价,X1+1);
Y1:=IF((绿柱面积<0 AND ABS(绿柱面积)<ABS(前次绿柱面积)
AND 本次最低价<前次最低价 ),1,0);
RS1:= MACD1<0 AND REF(MACD1,1)<0 AND C<前次最低价
AND ABS(绿柱面积)<ABS(前次绿柱面积) AND ABS(MACD1)<ABS(REF(MACD1,1));
底背驰:= IF (CROSS(DIF1,DEA1),REF(Y1,1),0);
DRAWTEXT(底背驰,-0.7,'积底背'),COLOR666666;
X2:=IF (MACD1>0,BARSLAST(CROSS(DEA1,DIF1)),0);
前次红柱面积:=REF(红柱面积,X2+1);
前次最高价:=REF(本次最高价,X2+1);
Y2:=IF((红柱面积>0 AND 红柱面积<前次红柱面积 AND 本次最高价>前次最高价 ),1,0);
RS2:= MACD1>0 AND REF(MACD1,1)>0 AND C>前次最高价 AND ABS(红柱面积)<ABS(前次红柱面积) AND ABS(MACD1)<ABS(REF(MACD1,1));
顶背驰:= IF (CROSS(DEA1,DIF1),REF(Y2,1),0);
DRAWTEXT(顶背驰,0.3,'顶底背'),COLOR555555;
MACD高:=HHV(MACD1,5);
E:=REF(C,C1+1)>C AND DEA1>0 AND REF(MACD高,C1+1)<MACD高 AND CROSS("MACD.DEA","MACD.DIF") ;
DRAWTEXT(E>0,0.4,'柱顶背'),COLOR555555;
F:=REF(C,A1+1)>C AND DEA1<0 AND REF(MACD高,A1+1)<MACD高 AND CROSS("MACD.DIF","MACD.DEA");
DRAWTEXT(F>0,-0.3,'柱底背'),COLOR666666;
STICKLINE(COUNT(DIF1>DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=7,0,MACD1,1,0),COLORCD7F32;
STICKLINE(COUNT(DIF1>DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=15,0,MACD1,1,0),COLORCD7F32;
STICKLINE(COUNT(DIF1>DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=28,0,MACD1,1,0),COLORCD7F32;
STICKLINE(COUNT(DIF1>DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=36,0,MACD1,1,0),COLORCD7F32;
STICKLINE(COUNT(DIF1>DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=48,0,MACD1,1,0),COLORCD7F32;
STICKLINE(COUNT(DIF1<DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=7,0,MACD1,1,0), COLORE47833;
STICKLINE(COUNT(DIF1<DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=15,0,MACD1,1,0), COLORE47833;
STICKLINE(COUNT(DIF1<DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=28,0,MACD1,1,0) COLORE47833;
STICKLINE(COUNT(DIF1<DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=36,0,MACD1,1,0), COLORE47833;
STICKLINE(COUNT(DIF1<DEA1,BARSLAST(CROSS(DIF1,DEA1))+1)=48,0,MACD1,1,0), COLORE47833;
均MACD:EMA(MACD,5),NODRAW;
{背离}
A1B:=BARSLAST(REF(CROSS(MACD,均MACD),1));
金叉底背:=REF(CLOSE,A1B+1)>CLOSE AND MACD>REF(MACD,A1B+1) AND CROSS(MACD,均MACD);
DRAWTEXT(金叉底背,REF(MACD,1),'↖__底背'),COLOR008888;
DRAWLINE(A1B=0,均MACD,金叉底背,均MACD,0),COLOR008888,DOTLINE;{底背画线};
A2B:=BARSLAST(REF(CROSS(均MACD,MACD),1));
死叉顶背:=REF(CLOSE,A2B+1)<CLOSE AND REF(MACD,A2B+1)>MACD AND CROSS(均MACD,MACD);
DRAWTEXT(死叉顶背,REF(MACD,1),'↙￣顶背'),COLOR009900;
DRAWLINE(A2B=0,均MACD,死叉顶背,均MACD,0),COLOR009900,DOTLINE;{顶背画线};
