多周期MACD(通达信)

{SHORT 1 200 12 LONG 5 600 26 MID 1 200 9}
VV:=C;
ZDIF:(EMA(VV,30)-EMA(VV,90))/CONST(EMA(VV,90))*350,COLOR333399,LINETHICK1;
ZDEA:EMA(ZDIF,20),COLORMAGENTA,LINETHICK1;
DRAWBAND(ZDIF,RGB(99,00,00),ZDEA,RGB(0,0,99));

DIF:(EMA(VV,SHORT)-EMA(VV,LONG))/CONST(EMA(VV,LONG))*1000,COLOR333399,LINETHICK1;
DEA:EMA(DIF,MID),COLORMAGENTA,LINETHICK1;
STICKLINE(1,0,0,4,-1),COLOR993399;
macd:(DIF-DEA)*2,COLORSTICK;

D02:=BacKSET(DIF<=REF(DIF,1),2);
RDIF:IF(D02,DIF,DRAWNULL),COLORGRAY,LINETHICK1;
D01:=BACKSET(DEA<=REF(DEA,1),2);
RDEA:IF(D01,DEA,DRAWNULL),COLORGRAY,LINETHICK1;