通达信实用MACD未加密选股指标公式源码

源码正文：

difF : ema(CLOSE,12) - Ema(CLOSE,26){XG51};
DEA : EMA(DIFF,9){XG51};
macd : 2*(DIFF-DEA), COLORstICK{XG51};
D1:=EMA(C,3)-EMA(C,8){XG51};
D2:=EMA(O,3)-EMA(O,8){XG51};
D3:=EMA(H,3)-EMA(H,8){XG51};
D4:=EMA(L,3)-EMA(L,8){XG51};
DRAWICON(crOSS(D1,DIFF) AND DIFF<-0.05 ,D4-0.1,1){XG51};
DRAWICON(CROSS(DIFF,D1) AND DIFF>0.1 ,D3+0.1,2){XG51};
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA{XG51};
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600{XG51};
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC{XG51};
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD{XG51};
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF{XG51};
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900{XG51};
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00{XG51};
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00{X.G*5~1.C.N.{};

源码正文：

M:=1;N:=18{XG51};
VAR2:=ma(CLOSE,N);
VAR3:=(CLOSE-VAR2)/VAR2*100;
VAR4:=MA(VAR3,M);
升跌: VAR4;
VAR5:=BArslAst(crOSS(-10,VAR4)=1);
VAR6:=BARSLAST(CROSS(VAR4,10)=1);
VAR7:=VAR4<-10 AND VAR5>=5;
VAR8:=VAR4>10 AND VAR6>=5;
DRAWTEXT(C=C AND CURRBARSCOUNT=129,0,'选股无忧网 www.xg51.cn'),COLORD8D8BF{XG51};
C1: IF(VAR4<-10 AND VAR5>=5,VAR4,0), , COLORRED;
C2: C1, COLORSTICK;
C3: IF(VAR4>10 AND VAR6>=5,VAR4,0), , COLORRED;
C4: C3, COLORSTICK;
D: 升跌>REF(升跌,1) AND VAR7*25, , COLORWHITE{X~G~5?1~C~N~{};