通达信MACD作战图源码

以下是通达信MACD作战图源码

按图示傻瓜式操作，一目了然。不喜勿喷。
 说明：0轴以上表多头，红柱（0轴上方死叉为白柱）；0轴以下表空头，蓝柱（0轴下方金叉为浅蓝柱）。出现叠加黄柱为买入及持有阶段，0轴以下离0轴远的（不易量化）、一片蓝柱的，出现黄柱要谨慎，如最后一幅截图，可谓是照妖镜。0轴附近的黄柱可能预示一只牛股。结合“量能成交量”（打包在文件内），效果会更妥。看图体会吧

{MACD作战图}
DIFF:EMA(C,5)-EMA(C,55),COLORWHITE;
DEA:EMA(DIFF,10),COLORGREEN;
MACD:=2*(DIFF-DEA);
STICKLINE(DEA>=0,DEA,0,1,0),COLORWHITE;
STICKLINE(DEA<0,DEA,0,1,0),COLORD4FF7F;
STICKLINE(DIFF<0,DIFF,0,1,0),COLORB00058;
STICKLINE(DIFF>=0,DIFF,0,1,0),COLORRED;

JJ:=(CLOSE+HIGH+LOW)/3;
E:=EMA(JJ,5);
D:=REF(E,1);            
持股:STICKLINE(DEA>=0 AND DIFF>=0 AND E>D,DIFF,DEA,2,0),LINETHICK1,COLORYELLOW;
STICKLINE(DEA>=0 AND DIFF<0 AND E>D,DIFF,0,2,0),LINETHICK1,COLORYELLOW;
STICKLINE(DEA<0 AND DIFF>=0 AND E>D,DEA,0,2,0),LINETHICK1,COLORYELLOW;
STICKLINE(DEA<0 AND DIFF<0 AND E>D,DEA,DIFF,2,0),LINETHICK1,COLORYELLOW;

{量能成交量}
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
VVOL:=IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 && (SETCODE=0 || SETCODE=1),VVOL,0,-1,-1),COLOR00C0C0;
VOLUME:VOL,VOLSTICK;
MAVOL1:=MA(VOLUME,8);
MAVOL2:=MA(VOLUME,89);
VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV1:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
OBV2:=EMA(OBV1,3)-MA(OBV1,9);
OBV3:=EMA(IF(OBV2>0,OBV2,0),3);
MAC3:=MA(C,3);
STICKLINE(OBV3>REF(OBV3,1) AND MAC3>REF(MAC3,1),0,OBV3,1,0),COLORYELLOW;

换手:VOL/CAPITAL*100,NODRAW;
低换手:换手<2,COLORFFFF00,NODRAW;
温和换手:换手>2 AND 换手<5,COLORMAGENTA,NODRAW;
热换手:换手>5 AND 换手<11,COLORYELLOW,NODRAW;
烫手换手:换手>11 AND 换手<17,COLORRED,NODRAW;
高潮换手:换手>17,COLORGREEN,NODRAW;
五日换手:MA(换手,5);
十日换手:MA(换手,10);