通达信MACD作战图副图源码 贴图

{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);