通达信MACD加辅助未加密选股指标公式源码

源码正文：

difF : (ema(CLOSE,12) - Ema(CLOSE,26))/EMA(C,512)*2000,NODRAW{XG51};
DEA : EMA(DIFF,9),NODRAW{XG51};
DRAWBAND(DIFF,RGB(120,00,00),DEA,RGB(00,80,00)){XG51};
macd : 2*(DIFF-DEA), COLORstICK{XG51};
DRAWBAND(0,RGB(100,100,100),0,0){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};
WA4:=EMA(EMA(EMA((EMA(X01,1)+EMA(X01,2)+EMA(X01,3)+EMA(X01,4))/4,2),2),2){XG51};
WA5:=EMA(WA4,2){XG51};
WA6:=EMA(WA5,2){XG51};
WA7:=EMA(WA6,2){XG51};
BB1:=(X00+X01+X02+X03)/4{XG51};
BB2:=(WA5+WA6+WA7)/3{XG51};
WA13:=EMA((((EMA(X01,32)+EMA(X01,33))+EMA(X01,34))/3),2){XG51};
WA8:=EMA((((EMA(X01,22)+EMA(X01,23))+EMA(X01,24))/3),2){XG51};
WA9:=EMA((((EMA(X01,24)+EMA(X01,25))+EMA(X01,26))/3),2){XG51};
WA10:=EMA((((EMA(X01,26)+EMA(X01,27))+EMA(X01,28))/3),2){XG51};
WA11:=EMA((((EMA(X01,28)+EMA(X01,29))+EMA(X01,30))/3),2){XG51};
WA12:=EMA((((EMA(X01,30)+EMA(X01,31))+EMA(X01,32))/3),2){XG51};
BB:=(WA13+WA8+WA9+WA10+WA11+WA12)/6{XG51};
~DIF:(BB1-BB)/BB*1000,COLORRED{XG51};
~DEAL:(BB2-BB)/BB*1000,COLORBLUE,LINETHICK1{X-G_5~1-C-N-{};

源码正文：

PH:=ema(C,13); X1:Ema(PH,3); X2:X1-(PH-X1); X3:X2-(X1-X2){XG51};
X4:=X3-(X2-X3); X5:=X4-(X3-X4); X6:=X5-(X4-X5); X7:=X6-(X5-X6);
X8:=X7-(X6-X7); X9:=X8-(X7-X8); X10:=X9-(X8-X9); X11:=X10-(X9-X10);
X12:=X11-(X10-X11); X13:=X12-(X11-X12);
S1:(PH-X1)+PH; S2:(S1-PH)+S1; S3:(S2-S1)+S2; S4:(S3-S2)+S3;
S5:=(S4-S3)+S4; S6:=(S5-S4)+S5; S7:=(S6-S5)+S6; S8:=(S7-S6)+S7;
S9:=(S8-S7)+S8; S10:=(S9-S8)+S9; S11:=(S10-S9)+S10; S12:=(S11-S10)+S11;
S13:=(S12-S11)+S12;
DRAWBAND(S13,RGB(250,100,100),X13,RGB(100,100,250)){XG51};
DRAWBAND(S12,RGB(250,80,80),X12,RGB(80,80,250)){XG51};
DRAWBAND(S11,RGB(250,60,60),X11,RGB(60,60,250)){XG51};
DRAWBAND(S10,RGB(250,40,40),X13,RGB(40,40,250)){XG51};
DRAWBAND(S9,RGB(250,20,20),X12,RGB(20,20,250)){XG51};
DRAWBAND(S8,RGB(250,0,0),X11,RGB(0,0,250)){XG51};
DRAWBAND(S7,RGB(230,0,0),X13,RGB(0,0,230)){XG51};
DRAWBAND(S6,RGB(210,0,0),X12,RGB(0,0,210)){XG51};
DRAWBAND(S5,RGB(190,0,0),X11,RGB(0,0,190)){XG51};
DRAWBAND(S4,RGB(170,0,0),X13,RGB(0,0,170)){XG51};
DRAWBAND(S3,RGB(150,0,0),X12,RGB(0,0,150)){XG51};
DRAWBAND(S2,RGB(130,0,0),X11,RGB(0,0,130)){XG51};
DRAWBAND(S1,RGB(110,0,0),X11,RGB(0,0,110)); DRAWKLINE(H,O,L,C){XG51};
stICKLINE(C>=O,O,C,3,0)COLORBLUE{XG51};
STICKLINE(C<O,O,C,3,0)COLORRED{XG51};
EE:EMA(C,26)COLORLIMAGENTA,LINETHICK3{X?G!5~1?C?N?{};