通达信极品MACD选股指标公式源码

通达信极品MACD选股指标公式源码

源码正文：

dif1:=ema(CLOSE,12) - Ema(CLOSE,27),LINETHICK2{XG51};
DEA1:=EMA(DIF1,9),LINETHICK2{XG51};
macd1:=2*(DIF1-DEA1),stICK{XG51};
MacD2:=EMA(MACD1,3){XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,3.2,0),COLOR000055{XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,2.7,0),COLOR000077{XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,2.1,0),COLOR000099{XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1.5,0),COLOR0000BB{XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,0.9,0),COLOR0000DD{XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,0.3,0),COLOR0000FF{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,3.2,0),COLOR555555{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,2.7,0),COLOR777777{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,2.1,0),COLOR999999{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1.5,0),COLORBBBBBB{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,0.9,0),COLORDDDDDD{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,0.3,0),COLORFFFFFF{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,3.2,0),COLORB20000{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,2.7,0),COLOREC0000{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,2.1,0),COLORFF4600{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,1.5,0),COLORFF6300{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,0.9,0),COLORFF8B00{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,0.3,0),COLORFFAB00{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};
低位金叉:crOSS(DIF1,DEA1) AND DIF1<-0.1{XG51};
JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BArslAST(DEA1>=0)){XG51};
二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF{XG51};
DRAWICON(二次金叉,DEA1*0.9,1) {XG51};
DRAWTEXT(二次金叉,0.4,' 二次金叉'),COLORBLUE{XG51};
强度:IF(DIF1>=DEA1,DIF1,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
A1:=BARSLAST(REF(CROSS(DIF1,DEA1),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1){XG51};
STICKLINE(底背离,0,0.03,6,0),COLOR00FF00{XG51};
底背:DRAWLINE(A1=0,DEA1,底背离,DEA1,0),COLORWHITE,LINETHICK4{XG51};
DRAWTEXT(底背离,0.1,' 底背离'),COLORBLUE{XG51};
A2:=BARSLAST(REF(CROSS(DEA1,DIF1),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF1,A2+1)>DIF1 AND CROSS(DEA1,DIF1){XG51};
顶背:DRAWLINE(A2=0,DEA1,顶背离,DEA1,0),COLORCYAN,LINETHICK4{XG51};
DRAWTEXT(顶背离,0.1,'顶背离'),COLORCYAN{XG51};
OBV:=DIF;      
P:=5{XG51};
AA1:=REF(OBV,P)=HHV(OBV,2*P+1){XG51};
B1:=FILTER(AA1,P){XG51};
C1:=BACKSET(B1,P+1){XG51};
D1:=FILTER(C1,P){XG51};
AA2:=REF(OBV,P)=LLV(OBV,2*P+1){XG51};
B2:=FILTER(AA2,P){XG51};
C2:=BACKSET(B2,P+1){XG51};
D2:=FILTER(C2,P){XG51};
上:REF(OBV,BARSLAST(D1)),COLORFF00FF,NODRAW{XG51};
下:REF(OBV,BARSLAST(D2)),COLOR00FF00,NODRAW{XG51};
向上:CROSS(OBV,上*1.01),NODRAW{XG51};
相对能量:(OBV-下)/(上-下)*100,COLORBLUE,NODRAW{XG51};
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
S11:=R11>REF(R11,1){XG51};
DRAWLINE(D1,OBV,S11,OBV,1),COLORBLUE{XG51};
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1){XG51};
U11:=T11>REF(T11,1){XG51};
DRAWLINE(D2,OBV,U11,OBV,1),COLOR00FF00{XG51};
STICKLINE(C>0,下,下,1,0),COLOR00FF00{XG51};
STICKLINE(C>0,上,上,1,0),COLORFF00FF{XG51};
DRAWTEXT(CROSS(OBV,上*1.01),上,'上'),COLORBLUE{XG51};
DRAWTEXT(CROSS(下*0.99,OBV),下,'下'),COLORBLUE{XG51};
DRAWICON(D1,OBV,1){XG51};
DRAWICON(D2,OBV,2){XG51};
B4:CROSS(DIF,DEA) AND CROSS("kdj.K"(9,3,3),"kdJ.D"(9,3,3)){XG51};
DRAWTEXT(B4,0.1,'★金叉共振'),COLORBLUE{XG51};
DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLORBLUE,LINETHICK2{XG51};
SHORT:=6{XG51};
LONG:=9{XG51};
MID:=3{XG51};
DIF11:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),LINETHICK1,COLOR0000FF{XG51};
DEA11:=EMA(DIF11,MID){XG51};
向下:=IF(DIF11<REF(DIF,1),DIF11,DRAWNULL),COLORCYAN,LINETHICK2;
强势区:=IF((EVERY(向下>=REF(向下,1),1)),-0.2,0)COLOR0000FF,LINETHICK3{XG51};
买入信号:IF(((CROSS(-0.01,强势区))AND DIF<0),0.3,0),STICK,COLORCYAN,LINETHICK3{X-G!5+1-C-N-{};