通达信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~{};

源码正文：

ma5:MA(C,5){XG51};
MA6:=MA(C,6){XG51};
MA10:MA(C,10){XG51};
MA20:MA(C,20){XG51};
A2:=REF(MA20,1);J1:=(MA20-A2)/A2*100;MJ1:=MA(J1,3){XG51};
MA30:MA(C,30){XG51};
MA55:MA(C,55){XG51};
MA120:MA(C,120){XG51};
乖离2:=(MA20-MA30)/MA30*100{XG51};
VAR1:=IF(BETWEEN(乖离2,-2,5),2,0){XG51};
MAX1:=MAX(MA20,MA30){XG51};
MAX2:=MAX(MAX1,MA55){XG51};
MIN1:=MIN(MA20,MA30){XG51};
MIN2:=MIN(MIN1,MA55){XG51};
K1:=(MAX2/MIN2-1)*100{XG51};
VAR2:=IF(K1<=8,1,0){XG51};
上火车轨:=MA20>MA30 AND MA20>REF(MA20,1) AND MA30>REF(MA30,1) AND MA20-MA30>REF((MA20-MA30),1) {XG51};
stICKLINE(上火车轨,MA20,MA30,0,0),COLORWHITE{XG51};
神枪手:=DRAWTEXT(FILTER(上火车轨 AND "macd.dif"<0.15 AND "MacD.DIF">REF("MACD.DIF",1) AND MA(V,60)>REF(MA(V,60),1) AND MA(V,5)>MA(V,10) AND J1>REF(J1,1) AND
( L<=MA20 AND C>MA20 OR (crOSS(MA5,MA20)) ),5),L*0.98,'←神枪手'){XG51};
神枪手选股:=FILTER(上火车轨 AND "MACD.DIF"<0.15 AND "MACD.DIF">REF("MACD.DIF",1) AND MA(V,60)>REF(MA(V,60),1) AND MA(V,5)>MA(V,10) AND J1>REF(J1,1) AND
( L<=MA20 AND C>MA20 OR (CROSS(MA5,MA20)) ),5){XG51};
短线暴涨:DRAWTEXT(FILTER( (VAR1 OR VAR2) AND MA10>REF(MA10,1) AND COUNT(MA30>REF(MA30,1),3)=3 AND MA30>MA55 AND COUNT(CROSS(MA5,MA30),3) AND J1>MJ1 AND MA(V,5)>MA(V,60)
AND MA(V,60)>REF(MA(V,60),1),5),MA55*0.99,'短线暴涨'),COLORWHITE{XG51};
DRAWTEXT(CROSS("kdj.K"(5,2,3),"kdj.D"(5,2,3)) AND "KDJ.D"(5,2,3)<30 AND J1>MJ1 AND MA55>REF(MA55,1) AND COUNT(J1<1,3)>=1 ,L*0.995,'←买入'),COLORBLUE{XG51};
DRAWTEXT(CROSS("KDJ.D"(5,2,3),"KDJ.K"(5,2,3)) AND "KDJ.D"(5,2,3)>65 AND J1<MJ1 AND COUNT(J1>1,3)>=1,H*1.005,'←卖出'),COLORCYAN{XG51};
DRAWTEXT(CROSS("KDJ.D"(18,9,6),"KDJ.K"(18,9,6)) AND "KDJ.D"(18,9,6)>60 AND "KDJ.J"(45,15,15)>90,H*1.03,'←顶'),COLORWHITE{XG51};
DRAWTEXT(CROSS(MA5,MA6) AND "KDJ.K"(5,3,3)>=50 AND "KDJ.J"(5,3,3)<31 ,L*0.92,'←再买'),COLORLIMAGENTA{XG51};
XL1:=((LLV(LOW,3) = LLV(LOW,60)) AND ((CLOSE / REF(CLOSE,1)) >= 1.04)){XG51};
XL2:=(((CLOSE - ema(CLOSE,21)) / EMA(CLOSE,21)) * 100){XG51};
XL3:=CROSS(XL2,(0 - 20)){XG51};
DRAWTEXT(FILTER(((XL1 > 0) AND LOW),5),(LOW - 0.4),'●买点'){XG51};
DRAWTEXT((XL3 > 0),(LOW - 0.2),'●绝对底部'){XG51};
X6:=REF(CLOSE,1){XG51};
X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(Abs((CLOSE - X6)),7,1)) * 100){XG51};
X8:=CROSS(79,X7){XG51};
X9:=FILTER(X8,4){XG51};
DRAWTEXT(X9,(HIGH * 1.02),'●出货'),COLOR9000F5{XG51};
STICKLINE(C>1.098*REF(C,1),C,O,0,0),COLORBLUE{X.G.5_1.C.N.{};