同花顺自用经典MACD选股指标公式源码

同花顺自用经典MACD选股指标公式源码

源码正文：

DRAWGBKLAst(C>0,STRIP(RGB(145,145,185),RGB(140,140,180),1)){XG51};
N1:=10;     N2:=22;       M:=7.5{XG51};
dif:(ema(C,N1)-Ema(C,N2))/(1+EMA(Abs(C),512))*7.5,COLOR0000FF{XG51};
DEA:EMA(DIF,M),COLOR09FFFF{XG51};
macd:=2*(DIF-DEA),COLORSTICK{XG51};
PARTLINE(DIF,DIF>=REF(DIF,1),RGB(250,0,0),DIF<REF(DIF,1),RGB(0,0,250)),linethick1{XG51};
均衡:SMA(DIF,4,2),Color00FF00,LINETHICK1{XG51};
随行:IF(MacD< 0,MACD,0),ColorFFFFFF,LINETHICK1{XG51};
D2:=MACD{XG51};
STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,5,0),Color979700{XG51};
STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,4,0),ColorB5B500{XG51};
STICKLINE(D2<REF(D2,1)AND D2>0,0,D2,3,0),ColorD2D200;//兰
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,5,0),Color974B00{XG51};
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,4,0),ColorB55A00{XG51};
STICKLINE(D2<REF(D2,1)AND D2<0,0,D2,3,0),ColorD26900;//蓝
STICKLINE(D2>REF(D2,1)AND D2,0,D2,5,0),Color97004B{XG51};
STICKLINE(D2>REF(D2,1)AND D2,0,D2,4,0),ColorB5005A{XG51};
STICKLINE(D2>REF(D2,1)AND D2,0,D2,3,0),ColorD20069;//紫
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,5,0),Color970097{XG51};
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,4,0),ColorB500B5{XG51};
STICKLINE(D2>REF(D2,1)AND D2>0,0,D2,3,0),ColorD200D2;//粉
VAR1:=(EMA(C,N1)-REF(EMA(C,N1),1))/REF(EMA(C,N1),1){XG51};
VAR2:=(EMA(C,N2)-REF(EMA(C,N2),1))/REF(EMA(C,N2),1){XG51};
STICKLINE(VAR1>=VAR2 AND VAR2>0 AND C>EMA(C,N2),0,MACD,5,1),COLOR000066{XG51};
STICKLINE(VAR1>=VAR2 AND VAR2>0 AND C>EMA(C,N2),0,MACD,4,1),COLOR000077{XG51};
STICKLINE(VAR1>=VAR2 AND VAR2>0 AND C>EMA(C,N2),0,MACD,3,1),COLOR000099{XG51};
A:=MACD>0{XG51};
绿柱数:=BArslAST(A)=5{XG51};
STICKLINE(绿柱数>REF(D2,1)AND 绿柱数>=0,0,D2,5,0),COLOR00AA00{XG51};
STICKLINE(绿柱数>REF(D2,1)AND 绿柱数>=0,0,D2,4,0),COLOR00CC00{XG51};
STICKLINE(绿柱数>REF(D2,1)AND 绿柱数>=0,0,D2,3,0),COLOR00EE00;//绿柱
OSC:=100*(CLOSE-MA(CLOSE,11.5)){XG51};
MaoSC:=EMA(OSC,4.5){XG51};
STICKLINE(MACD<REF(MACD,1)AND crOSS(MAOSC,OSC),0,MACD,5,0),COLORFF0000{XG51};
STICKLINE(MACD>REF(MACD,1)AND CROSS(OSC,MAOSC),0,MACD,5,0),COLOR09FFFF{X=G+5-1=C=N={};