翻番MACD（通达信副图 贴图）
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)>CAND 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;{顶背画线};
感谢楼主分享好资源 路过，帮顶一下！ 楼主好人一个！ 我是个凑数的。。。 好贴不能沉！ 很好的内容，感谢分享！
页:
[1]