通达信macd变色龙选股指标公式源码

通达信macd变色龙选股指标公式源码

源码正文：

dif1:=ema(CLOSE,12) - Ema(CLOSE,26){XG51};
DEA1:=EMA(DIF1,9){XG51};
macd1:=2*(DIF1-DEA1),stICK{XG51};
MacD2:=EMA(MACD1,3){XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLORWHITE{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1,0),COLORCYAN{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORCBCBC0{XG51};
STICKLINE(MACD1>=0 OR MACD1<=0,0,0,50,1),COLORRED{XG51};
DIF:DIF1,COLOR33FF33{XG51};
DEA:DEA1,COLORBLUE{XG51};
MACD:MACD1,NODRAW,COLORLIMAGENTA{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1),COLORRED{XG51};
D:=SMA(K,3,1),COLORBLUE{XG51};
J:=3*K-2*D,COLORFF00FF{XG51};
MM:=IF(MACD< 0,MACD,0);
JJ:=MM> REF(MM,1);
ZZ:=REF(JJ,1)=1;
准备:=(JJ AND ZZ)*DEA;
JH:=HHV(MAX(K,MAX(D,J)),250){XG51};
DH:=HHV(MAX(DIF,DEA),250){XG51};
SH:=INTPART(JH/DH)/2{XG51};
DIFF50:=SH*DIF+50,COLORFFFF00{XG51};
DEA50:=SH*DEA+50,COLORYELLOW{XG51};
缩头:=IF(1.5*(DIFF50-DEA50)>0 AND REF(1.5*(DIFF50-DEA50),1)>REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)< REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
缩脚:=IF(1.5*(DIFF50-DEA50)<0 AND REF(1.5*(DIFF50-DEA50),1)< REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
杀多:=IF(1.5*(DIFF50-DEA50)<0 AND REF(1.5*(DIFF50-DEA50),1)> REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)<REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
诱空:=IF(1.5*(DIFF50-DEA50)>0 AND REF(1.5*(DIFF50-DEA50),1)< REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
阻力:=IF(crOSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),10,0){XG51};
DRAWTEXT(FILTER(杀多,3) AND 杀多,MACD+0.1,'杀多'),COLORFF00FF{XG51};
DRAWTEXT(FILTER(缩头,3) AND 缩头,MACD+0.1,'卖'),COLORFF00FF{XG51};
DRAWTEXT(FILTER(诱空,3) AND 诱空,MACD+0.1,'?洗'),COLOR00FF00{XG51};
DRAWTEXT(FILTER(缩脚,3) AND 缩脚,MACD-0.1,'买'),COLOR00FF00{XG51};
IF(MACD>=REF(MACD,1),DIF1,DRAWNULL),COLORWHITE,LINETHICK2{X!G^5~1!C!N!{};