通达信MACD波段风暴2副图源码

通达信macd波段风暴2副图源码

就是把大机构macd和大机构波段风暴合并，
 这次修改增加了一个底部信号指标，
 颜色也改得更简约。

红色柱线和黄色彩带出现是做多信号。

公式有未来，未来来自画线公式，
 不喜欢未来可以把这段代码删了。
{改编 by shuhong}

{背景}
DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,"0",0);

{DJG波段风暴}
DIFF:=EMA(CLOSE,21)-EMA(CLOSE,34);
DEAA:=EMA(DIFF,8);
MACDD:=3.8*(DIFF-DEAA);
MARDD:=SMA(MACDD,2,1);
{STICKLINE(MACDD>MARDD,MACDD,MARDD,1.8,0),COLOR0000C0;
STICKLINE(MACDD<MARDD,MACDD,MARDD,1.8,0),COLORCD0000;}
DRAWBAND(MACDD,RGB(255,255,64),MARDD,RGB(64,64,255));

{底部信号}
BB值:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3);
AAA:=EMA(CLOSE,12)-EMA(CLOSE,26);
DRAWTEXT(CROSS(BB值,9),0,"   底部"),COLORYELLOW;
DRAWICON(CROSS(BB值,9),0,41);
STICKLINE(CROSS(BB值,9),AAA,0,2,0),COLORYELLOW;

{大机构MACD的柱线}
MACD2:=2*("MACD.DIF"-"MACD.DEA");
STICKLINE(MACD2>=0,0,MACD2,0,0),COLORRED;{0上升}
STICKLINE(MACD2>=0 AND MACD2<REF(MACD2,1),0,MACD2,0,0),COLORGREEN;{0上跌}
STICKLINE(MACD2<0,0,MACD2,0,0),COLORGREEN;{0下跌}
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,0,0),COLORRED;{0下升};

{DIF和DEA线}
DIF:EMA(CLOSE,12)-EMA(CLOSE,26)COLORWHITE,LINETHICK2;
DEA:EMA(DIF,9)COLOR0080FF;
{}
DRAWTEXT(ISLASTBAR,DIF,"  ←DIF"),COLORWHITE;
DRAWTEXT(ISLASTBAR,DEA,"  ←DEA"),COLOR0080FF;

{金叉和背离的标识}
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,DEA*0.5,41) ;
DRAWTEXT(二次金叉,DEA*0.5,"  二次金叉"),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
DRAWTEXT(底背离,DIF*1,"   底背离"),COLORWHITE;
DRAWICON(底背离,DIF*1,38);
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
DRAWTEXT(顶背离,DIF*1,"   顶背离"),COLORGREEN;
DRAWICON(顶背离,DIF*1,39);
{}
DA1:=BARSLAST(REF(CROSS(DIF,DEA),1));
D底背离:=REF(CLOSE,DA1+1)>CLOSE AND DIF>REF(DIF,DA1+1) AND CROSS(DIF,DEA);
底背画线:DRAWLINE(DA1=0,DEA,D底背离,DEA,0),COLORWHITE,DOTLINE;
DA2:=BARSLAST(REF(CROSS(DEA,DIF),1));
D顶背离:=REF(CLOSE,DA2+1)<CLOSE AND REF(DIF,DA2+1)>DIF AND CROSS(DEA,DIF);
顶背画线:DRAWLINE(DA2=0,DEA,顶背离,DEA,0),COLORGREEN,DOTLINE;

{MACD&KDJ 金叉共振}
{DIF:EMA(CLOSE,12)-EMA(CLOSE,26);DEA:EMA(DIF,9);}
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(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
DRAWICON(A,DEA*1.2,25);
DRAWTEXT(A,DEA*1.2,"    金叉共振"),COLORYELLOW;

0,COLORGRAY,DOTLINE;