通达信XMACD及未加密选股指标公式源码

源码正文：

AJ1:=0.211916*C+0.192951*REF(C,1)+0.158082*REF(C,2)+0.122217*REF(C,3)+0.091137*REF(C,4)+0.066337
*REF(C,5)+0.047475*REF(C,6)+0.033564*REF(C,7)+0.023519*REF(C,8)+0.016373*REF(C,9)+0.011344
*REF(C,10)+0.007832*REF(C,11)+0.005395*REF(C,12)+0.00371*REF(C,13)+0.002549*REF(C,14)+0.001751
*REF(C,15)+0.001203*REF(C,16)+0.000826*REF(C,17)+0.000568*REF(C,18)+0.000391*REF(C,19)+0.000269
*REF(C,20){XG51};
YYU:=AJ1+0.000185*REF(C,21)+0.000128*REF(C,22)+0.000088*REF(C,23)+0.000061*REF(C,24)+0.000042
*REF(C,25)+0.000029*REF(C,26)+0.00002*REF(C,27)+0.000014*REF(C,28)+0.000009*REF(C,29)+0.000006
*REF(C,30)+0.000003*REF(C,31)+0.000002*REF(C,32)+0.000001*REF(C,33)+0.000001*REF(C,34){XG51};
X00:=C{XG51};
X01:=0.7522406533*X00+0.3609454219*REF(X00,1)-0.03309329629*REF(X00,2)-
0.04241822779*REF(X00,3)-0.026737249*REF(X00,4)-0.007010041271*REF(X00,5)-
0.002652859952*REF(X00,6)-0.0008415042966*REF(X00,7)-0.0002891931964*REF
(X00,8)-0.0000956265934*REF(X00,9)-0.0000321286052*REF(X00,10)-
0.0000106773454*REF(X00,11)-0.0000035457562*REF(X00,12)-0.0000011670713*REF
(X00,13){XG51};
X02:=0.7522406533*X01+0.3609454219*REF(X01,1)-0.03309329629*REF(X01,2)-
0.04241822779*REF(X01,3)-0.026737249*REF(X01,4)-0.007010041271*REF(X01,5)-
0.002652859952*REF(X01,6)-0.0008415042966*REF(X01,7)-0.0002891931964*REF
(X01,8)-0.0000956265934*REF(X01,9)-0.0000321286052*REF(X01,10)-
0.0000106773454*REF(X01,11)-0.0000035457562*REF(X01,12)-0.0000011670713*REF
(X01,13){XG51};
X03:=0.7522406533*X02+0.3609454219*REF(X02,1)-0.03309329629*REF(X02,2)-
0.04241822779*REF(X02,3)-0.026737249*REF(X02,4)-0.007010041271*REF(X02,5)-
0.002652859952*REF(X02,6)-0.0008415042966*REF(X02,7)-0.0002891931964*REF
(X02,8)-0.0000956265934*REF(X02,9)-0.0000321286052*REF(X02,10)-
0.0000106773454*REF(X02,11)-0.0000035457562*REF(X02,12)-0.0000011670713*REF
(X02,13){XG51};
AA:=((ema((((Ema(X01,22)+EMA(X01,23))+EMA(X01,24))/3),2))+(EMA((((EMA
(X01,24)+EMA(X01,25))+EMA(X01,26))/3),2))+(EMA((((EMA(X01,26)+EMA(X01,27))
+EMA(X01,28))/3),2))+(EMA((((EMA(X01,28)+EMA(X01,29))+EMA(X01,30))/3),2))+
(EMA((((EMA(X01,30)+EMA(X01,31))+EMA(X01,32))/3),2))+(EMA((((EMA(X01,32)+EMA
(X01,33))+EMA(X01,34))/3),2)))/6{XG51};
BB1:=(X01*5+X02*3+X03*1)/9{XG51};
主升线:EMA(AA,10)-EMA(YYU,22){XG51};
dif:EMA(BB1+SLOPE(BB1,10),10)-EMA(YYU+SLOPE(YYU,22),22),COLORRED{XG51};
DEA:EMA(DIF+SLOPE(DIF,6),6),COLORCYAN{XG51};
SDEA:=REF(HHV(DEA,BArslAst(crOSS(DEA,DIF))+1),1),COLORLIMAGENTA{XG51};
BDEA:=REF(LLV(DEA,BARSLAST(CROSS(DIF,DEA))+1),1),COLORAAAA00{XG51};
xmacd1:2*(DIF-DEA),COLORSTICK{XG51};
RI:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(Abs(CLOSE-REF(CLOSE,1)),6,1)*100{XG51};
选股:=COUNT(CROSS(RI,20) AND C/REF(C,1)>1.005,8)>=1 AND CROSS(DIF,DEA) {XG51};
DRAWICON(选股,DEA,1){XG51};
rsi5:=((SMA(MAX((CLOSE - REF(CLOSE,1)),0),5,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),5,1)) * 100){XG51};
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10){XG51};
HD:=(HIGH - REF(HIGH,1)){XG51};
LD:=(REF(LOW,1) - LOW){XG51};
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10){XG51};
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10){XG51};
pdi:=((DMP * 100) / TR1){XG51};
mdi:=((DMM * 100) / TR1){XG51};
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5){XG51};
AV:=(RSI5 + ADX){XG51};
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5){XG51};
wr10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10))){XG51};
NEWvol:=(RSI5 - WR10){XG51};
回调买:=(AV + NEWVOL){XG51};
XGT:=CROSS(回调买,0) AND DIF>主升线{XG51};
bias1 :=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100{XG51};
BIAS2 :=(CLOSE-MA(CLOSE,1))/MA(CLOSE,1)*100{XG51};
DRAWICON(CROSS(BIAS1,BIAS2) AND DIF>主升线 AND xmaCD1>REF(XMacD1,1),DIF,7);
DRAWICON(XGT,DEA,1){X_G.5~1_C_N_{};

源码正文：

NOTEXT1:=HHV(ema(C,17),2){XG51};
NOTEXT2:Ema(C,17),LINETHICK3,COLORWHITE{XG51};
NOTEXT3:IF(((NOTEXT1 = NOTEXT2) AND UPNDAY(NOTEXT1,3)),NOTEXT1,DRAWNULL),LINETHICK3,COLORWHITE{XG51};
NOTEXT4:IF((REF(NOTEXT1,2) > NOTEXT2),NOTEXT2,DRAWNULL),LINETHICK3,COLORCYAN{XG51};
LC:=REF(CLOSE,1){XG51};
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100){XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=((3 * K) - (2 * D)){XG51};
rsi:=((SMA(MAX((CLOSE - LC),0),9,1) / SMA(Abs((CLOSE - LC)),9,1)) * 100){XG51};
DBTJ1:=(RSI >= 75){XG51};
DBTJ2:=(J >= 95){XG51};
B1:=(EMA(CLOSE,12) - EMA(CLOSE,26)){XG51};
B2:=EMA(B1,3){XG51};
ZF:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100){XG51};
RSI1:=((SMA(MAX((CLOSE - LC),0),9,1) / SMA(ABS((CLOSE - LC)),9,1)) * 100){XG51};
TDSZ:=(((((((B1 > B2) OR (B1 = B2)) AND (ZF > 9)) AND (ZF < 11)) AND (40 < RSI1)) AND (RSI1 < 60)) AND (C = H)){XG51};
RSV13:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100){XG51};
B11:=SMA(RSV13,4,1){XG51};
B22:=SMA(B11,3,1){XG51};
CDTJ:=(((C >= O) AND crOSS(B11,B22)) AND (B22 <= 50)){XG51};
topB:=IF(((DBTJ1 OR DBTJ2) AND (((C + NOTEXT2) / 2) < NOTEXT2)),(((3 * NOTEXT2) - C) / 2),((C + NOTEXT2) / 2)){XG51};
BOTB:=IF(((CDTJ OR TDSZ) AND (((C + NOTEXT2) / 2) > NOTEXT2)),(((3 * NOTEXT2) - C) / 2),((C + NOTEXT2) / 2)){XG51};
stICKLINE((((NOT(DBTJ1) AND NOT(DBTJ2)) AND NOT(CDTJ)) AND NOT(TDSZ)),NOTEXT2,(NOTEXT2 * 1.009),2.3,0),COLORA4A4A4{XG51};
STICKLINE((((NOT(DBTJ1) AND NOT(DBTJ2)) AND NOT(CDTJ)) AND NOT(TDSZ)),NOTEXT2,(NOTEXT2 * 1.009),2,0),COLORB6B6B6{XG51};
STICKLINE((((NOT(DBTJ1) AND NOT(DBTJ2)) AND NOT(CDTJ)) AND NOT(TDSZ)),NOTEXT2,(NOTEXT2 * 1.009),1.7,0),COLORB8B8B8{XG51};
STICKLINE((((NOT(DBTJ1) AND NOT(DBTJ2)) AND NOT(CDTJ)) AND NOT(TDSZ)),NOTEXT2,(NOTEXT2 * 1.009),1.4,0),COLORCacACA{XG51};
STICKLINE((((NOT(DBTJ1) AND NOT(DBTJ2)) AND NOT(CDTJ)) AND NOT(TDSZ)),NOTEXT2,(NOTEXT2 * 1.009),1.1,0),COLORF4F4F4{XG51};
STICKLINE((((NOT(DBTJ1) AND NOT(DBTJ2)) AND NOT(CDTJ)) AND NOT(TDSZ)),NOTEXT2,(NOTEXT2 * 1.009),0.8,0),COLORF6F6F6{XG51};
STICKLINE((RSI >= 75),NOTEXT2,TOPB,2.3,0),COLOR000057{XG51};
STICKLINE((RSI >= 75),NOTEXT2,TOPB,2,0),COLOR00007D{XG51};
STICKLINE((RSI >= 75),NOTEXT2,TOPB,1.7,0),COLOR00008C{XG51};
STICKLINE((RSI >= 75),NOTEXT2,TOPB,1.4,0),COLOR0000A1{XG51};
STICKLINE((RSI >= 75),NOTEXT2,TOPB,1.1,0),COLOR0000B5{XG51};
STICKLINE((RSI >= 75),NOTEXT2,TOPB,0.8,0),COLOR0000CC{XG51};
STICKLINE((J >= 95),NOTEXT2,TOPB,2.3,0),COLOR570057{XG51};
STICKLINE((J >= 95),NOTEXT2,TOPB,2,0),COLOR660066{XG51};
STICKLINE((J >= 95),NOTEXT2,TOPB,1.7,0),COLOR7D007D{XG51};
STICKLINE((J >= 95),NOTEXT2,TOPB,1.4,0),COLOR990099{XG51};
STICKLINE((J >= 95),NOTEXT2,TOPB,1.1,0),COLORBD00BD{XG51};
STICKLINE((J >= 95),NOTEXT2,TOPB,0.8,0),COLORLIMAGENTA{XG51};
STICKLINE(CDTJ,NOTEXT2,BOTB,2.3,0),COLOR004040{XG51};
STICKLINE(CDTJ,NOTEXT2,BOTB,2,0),COLOR006464{XG51};
STICKLINE(CDTJ,NOTEXT2,BOTB,1.7,0),COLOR00A8A8{XG51};
STICKLINE(CDTJ,NOTEXT2,BOTB,1.4,0),COLOR00DBDB{XG51};
STICKLINE(CDTJ,NOTEXT2,BOTB,1.1,0),COLOR15FFFF{XG51};
STICKLINE(CDTJ,NOTEXT2,BOTB,0.8,0),COLOR4DFFFF{XG51};
STICKLINE(TDSZ,NOTEXT2,(BOTB * 0.98),2,0),COLORGREEN{XG51};
STICKLINE(TDSZ,NOTEXT2,(BOTB * 0.98),1.5,0),COLOR990000{XG51};
STICKLINE(TDSZ,NOTEXT2,(BOTB * 0.98),1.8,0),COLORCC0000{XG51};
STICKLINE(TDSZ,NOTEXT2,(BOTB * 0.98),0.3,0),COLORFF4400{XG51};
STICKLINE(TDSZ,NOTEXT2,(BOTB * 0.98),2,0),COLORFF8800{XG51};
STICKLINE(TDSZ,NOTEXT2,(BOTB * 0.98),1.5,0),COLORFFCC00{XG51};
STICKLINE(TDSZ,NOTEXT2,(BOTB * 0.98),0.8,0),COLORGREEN{X.G*5+1.C.N.{};