通达信实战很强的MACD未加密选股指标公式源码

源码正文：

difF : ema(CLOSE,SHORT) - Ema(CLOSE,LONG),LINETHICK0;
DEA : EMA(DIFF,M),LINETHICK0;
DRAWBAND(DIFF,RGB(155,50,50),DEA,RGB(0,100,50)){XG51};
力:2*(DIFF-DEA),NODRAW{XG51};
macd : 2*(DIFF-DEA), COLORstICK,LINETHICK2;
DD:=C=HHV(C,180);
EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1;
CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1;
DRAWICON(CC AND EE,0.1,11){XG51};
A1:=BArslAST(REF(crOSS(DIFF,DEA),1)){XG51};
底背离:=IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),1.2,DRAWNULL),COLORWHITE,LINETHICK4,CROSSDOT{XG51};
势:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORWHITE LINETHICK2{XG51};
DRAWICON(DD AND EE AND DEA< HHV(DEA,180),0.1,2){XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),COLORRED{XG51};
压:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORCYAN LINETHICK2{XG51};
FF:=C=LLV(C,180);
GG:= DEA> REF(DEA,1) AND REF(DEA> REF(DEA,1),1)=1;
LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1;
DRAWICON(LL AND GG,-0.1,16);
DRAWICON(FF AND GG AND DEA> LLV(DEA,180),-0.3,9){XG51};
MM:=IF(MacD< 0,MACD,0);
JJ:=MM> REF(MM,1);
ZZ:=REF(JJ,1)=1;
介入区:(JJ AND ZZ)*DEA,POINTDOT,COLORFFFFFF;
STICKLINE(介入区=DEA,DEA,DIFF,0,0),COLORFFFFFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0,0),COLORFF00FF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,0,0)COLOR00FF00{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD,0,MACD,0,0),COLORBLUE{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,0,0),COLORWHITE{XG51};
持:IF(DIFF>=DEA,DIFF,DRAWNULL),COLORWHITE;
观:IF(DEA>=DIFF,DEA,DRAWNULL),COLORFF9900;
股:IF(DIFF>=DEA,DEA,DRAWNULL),COLOR00FFFF{XG51};
望:IF(DEA>=DIFF,DIFF,DRAWNULL),COLOR00FF00;
AA:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
BB:=REF(CLOSE,AA+1)>CLOSE AND DIFF>REF(DIFF,AA+1) AND CROSS(DIFF,DEA){XG51};
进:DRAWLINE(AA=0,DEA,BB,DEA,0),COLOR0000FF{XG51};
STICKLINE(BB,0,0.1,0,1),COLORFFFFFF{XG51};
火:=BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1)),COLORWHITE{XG51};
山:=COUNT(EMA(CLOSE,5)>REF(EMA(CLOSE,5),1),5),COLORCYAN{XG51};
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,DIFF,'●'),COLORWHITE{XG51};
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,DIFF,'¤'),COLORBLUE{XG51};
STICKLINE(REF(山,1)=0 AND 山>0,0,0.1,5,2),COLORWHITE{XG51};
DRAWTEXT(REF("kdj.J",1)<0 AND "kdj.J">0,DIFF,'短'),COLORWHITE {X-G!5+1-C-N-{};

源码正文：

ema5:Ema(C,5),COLORFF00FF,LINETHICK1{XG51};
EMA10:EMA(C,10),COLOR00FFFF,LINETHICK1{XG51};
EMA55:EMA(C,55),COLORFFFFFF,LINETHICK1{XG51};
DRAWBAND(EMA5,RGB(0,220,220),EMA10,RGB(0,200,0)){XG51};
N:=5;N1:=21{XG51};
VAR1:=4*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1)-3
*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1),3.2,1){XG51};
VAR1A:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70{XG51};
VAR2A:=SMA(VAR1A,9,1)+100{XG51};
VAR3A:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
VAR4A:=SMA(VAR3A,3,1){XG51};
VAR5A:=SMA(VAR4A,3,1)+100{XG51};
VAR6A:=VAR5A-VAR2A{XG51};
MM:=IF(VAR6A>N1,VAR6A-N1,0){XG51};
AA:= REF(MM,1)<MM{XG51};
BB:= REF(MM,1)>MM{XG51};
买入:DRAWICON(crOSS(MM,REF(MM,1)),L-0.2,1){XG51};
卖出:DRAWICON(CROSS(REF(MM,1),MM),H+0.2,2){XG51};
stICKLINE(AA,C,O,3,0),COLORWHITE{XG51};
STICKLINE(AA,H,L,0.5,0),COLORWHITE{XG51};
STICKLINE(BB,C,O,3,0),COLOR00FF00{XG51};
STICKLINE(BB,H,L,0.5,0),COLOR00FF00{XG51};
STICKLINE(AA,CLOSE,OPEN,4,0),COLOR000099{XG51};
STICKLINE(AA,CLOSE,OPEN,2,0),COLOR0000CC{XG51};
STICKLINE(AA,CLOSE,OPEN,1.5,0),COLOR3300CC;
STICKLINE(AA,CLOSE,OPEN,1.0,0),COLOR9900FF{XG51};
STICKLINE(AA,CLOSE,OPEN,0.5,0),COLORCC00FF{XG51};
STICKLINE(AA,CLOSE,OPEN,0.2,0),COLOR66FFCC{XG51};
STICKLINE(BB,CLOSE,OPEN,4,0),COLOR993300{XG51};
STICKLINE(BB,CLOSE,OPEN,3.0,0),COLORCC3300{XG51};
STICKLINE(BB,CLOSE,OPEN,2.0,0),COLORFF3300{XG51};
STICKLINE(BB,CLOSE,OPEN,1.5,0),COLORFF6600{XG51};
STICKLINE(BB,CLOSE,OPEN,1.0,0),COLORFF9900{XG51};
STICKLINE(BB,CLOSE,OPEN,0.2,0),COLORFFFFFF{XG51};
STICKLINE(买入,O,(C-O)/2+O,4,0),COLOR335555{XG51};
STICKLINE(买入,O,(C-O)/2+O,2,0),COLOR338888{XG51};
STICKLINE(买入,O,(C-O)/2+O,1.5,0),COLOR33AAAA{XG51};
STICKLINE(买入,O,(C-O)/2+O,1,0),COLOR33CCCC{XG51};
STICKLINE(买入,O,(C-O)/2+O,0,0),COLOR33EEEE{XG51};
STICKLINE(卖出,O,(C-O)/2+O,4,0),COLOR550055{XG51};
STICKLINE(卖出,O,(C-O)/2+O,2,0),COLOR880088{XG51};
STICKLINE(卖出,O,(C-O)/2+O,1.5,0),COLORAA00AA{XG51};
STICKLINE(卖出,O,(C-O)/2+O,1,0),COLORCC00CC{XG51};
STICKLINE(卖出,O,(C-O)/2+O,0.5,0),COLOREE00EE{X_G.5~1_C_N_{};