多周期MACD(通达信)

源码正文：

VV:=C{XG51};
Zdif:(ema(VV,30)-Ema(VV,90))/CONst(EMA(VV,90))*350,COLOR333399,LINETHICK1{XG51};
ZDEA:EMA(ZDIF,20),COLORLIMAGENTA,LINETHICK1{XG51};
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{XG51};
DEA:EMA(DIF,MID),COLORLIMAGENTA,LINETHICK1{XG51};
STICKLINE(1,0,0,4,-1),COLOR993399{XG51};
macd:(DIF-DEA)*2,COLORSTICK;

D02:=BacKSET(DIF<=REF(DIF,1),2){XG51};
RDIF:IF(D02,DIF,DRAWNULL),COLORBROWN,LINETHICK1{XG51};
D01:=BACKSET(DEA<=REF(DEA,1),2){XG51};
RDEA:IF(D01,DEA,DRAWNULL),COLORBROWN,LINETHICK1{X.G_5_1.C.N.{};

源码正文：

换手:=V*100/CAPITAL{XG51};
主力:=ma(换手,4){XG51};
大户:=MA(换手,9){XG51};
中户:=MA(换手,17){XG51};
散户:=MA(换手,34){XG51};
均量:=(主力+大户+中户+散户)/4{XG51};
主力能量:=(主力-均量){XG51};
操盘:stICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),0,主力能量,4,0),COLORWHITE{XG51};
减仓:STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),0,主力能量,4,0),COLORWHITE{XG51};
反弹:STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),0,主力能量,4,0),COLORCYAN{XG51};
寻底:STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),0,主力能量,4,0),COLORCYAN; 0,POINTDOT,COLORRED{XG51};
A:=IF((BARSCOUNT(C) > 7),(100)*((MA(C,7))/(LLV(MA(C,7),7)) - 1),1){XG51};
N:=IF((A > 0.35),6,65){XG51};
B:=((-((100)*(HHV(H,N) - C))/(HHV(HIGH,N) - LLV(L,N)))){XG51};
crOSS(B,-2){XG51};
现价:=(C+L+H)/3{XG51};
ao := SMA (现价,5,1)-SMA(现价,13,1){XG51};
ac : AO-SMA(AO, 3,1),LINETHICK2,COLORLIMAGENTA{XG51};
IF(AC<REF(AC,1),AC,DRAWNULL)LINETHICK2,COLORYELLOW{X_G_5=1_C_N_{};