【通达信免费源码】重温经典之二：二周期MACD，让你先人一步察觉变盘临界点

DIFF:EMA(CLOSE,12) - EMA(CLOSE,26)LINETHICK1;

DEA:EMA(DIFF,9),LINETHICK1;

MACD:2*(DIFF-DEA),COLORSTICK ;

STICKLINE(((MACD<REF(MACD,1)) AND (MACD>0)),0,MACD,0,0),COLORLIRED,LINETHICK2;

DRAWBAND(DIFF,RGB(99,0,66),DEA,RGB(0,66,99));

STICKLINE(((MACD<REF(MACD,1)) AND (MACD>0)),0,MACD,0,0),COLORLIRED,LINETHICK2;

STICKLINE(((MACD>REF(MACD,1)) AND (MACD>0)),0,MACD,0,0),COLOR0000FF,LINETHICK2;

STICKLINE(((MACD<REF(MACD,1)) AND (MACD<0)),0,MACD,0,0),,COLORFFFF00,LINETHICK2;

STICKLINE(((MACD>REF(MACD,1)) AND (MACD<0)),0,MACD,0,0),COLORFFFF00,LINETHICK2;

F30:(EMA(CLOSE,12/4)-EMA(CLOSE,26/4)),COLORGREEN;

A30:(EMA(F30,9/4));

DRAWBAND(F30,RGB(0,224,0),A30,RGB(255,96,255));{15F};

DRAWTEXT(REF(MACD,1)>0 AND MACD<0,MACD-0.01,'1');

DRAWTEXT(REF(MACD,2)>0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'2');

DRAWTEXT(REF(MACD,3)>0 AND REF(MACD,2)<0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'3');

DRAWTEXT(REF(MACD,4)>0 AND REF(MACD,3)<0 AND REF(MACD,2)<0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'4');

DRAWTEXT(REF(MACD,5)>0 AND REF(MACD,4)<0 AND REF(MACD,3)<0 AND REF(MACD,2)<0 AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'5');

DRAWTEXT(REF(MACD,6)>0 AND REF(MACD,5)<0 AND REF(MACD,4)<0 AND REF(MACD,3)<0 AND REF(MACD,2)<0

AND REF(MACD,1)<0 AND MACD<0,MACD-0.01,'6');