通达信MACD庄家抬轿选股指标公式源码

通达信MACD庄家抬轿选股指标公式源码

源码正文：

JH:=vol*CLOSE{XG51};
JHO:=SUM(JH,2)/SUM(VOL,2){XG51};
JH0:=ema(JHO,10){XG51};
AAA:=(JHO-JH0)*20/JHO{XG51};
超:=stICKLINE(AAA>0 AND AAA>=REF(AAA,1),0,AAA,3,0),COLORLICYAN{XG51};
级:=STICKLINE(AAA>0 AND AAA<REF(AAA,1),0,AAA,3,1),COLORLICYAN{XG51};
好:=STICKLINE(AAA<0 AND AAA>=REF(AAA,1),0,AAA,3,1),COLORCYAN{XG51};
的:=STICKLINE(AAA<0 AND AAA<REF(AAA,1),0,AAA,3,0),COLORCYAN{XG51};
公:=Ema(IF(AAA>0 AND AAA<REF(AAA,1),0,AAA),3){XG51};
式:=crOSS(REF(公,1),公) AND 公>0{XG51};
谢:=EMA(IF(AAA<0 AND AAA<REF(AAA,1),0,AAA),3){XG51};
了:=CROSS(REF(谢,1),谢) AND 谢<0{XG51};
必买:=CROSS(C,DRAWLINE(HIGH>=HHV(HIGH,30),HIGH,LOW<=LLV(LOW,10),HHV(HIGH,6),1)){XG51};
WY1001:=(2*CLOSE+HIGH+LOW)/4{XG51};
WY1002:=EMA(WY1001,4){XG51};
WY1003:=EMA(WY1002,4){XG51};
WY1004:=EMA(WY1003,4){XG51};
X:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*2000{XG51};
X1:=IF(X<REF(X,1),X,DRAWNULL),COLORRED,LINETHICK2{XG51};
XO:=MA(X,2),COLOR9932CD{XG51};
SI:=REF(X,1){XG51};
STICKLINE(X>SI,X,SI,2.3,0),COLOR0000FF{XG51};
STICKLINE(X>SI,X,SI,0.3,0),COLORCC66FF{XG51};
STICKLINE(X<SI,X,SI,2.3,0),COLOR00BB00{XG51};
STICKLINE(X<SI,X,SI,0.3,0),COLOR00FF00{XG51};
STICKLINE(式,X,SI,2.15,0),COLOR545454{XG51};
STICKLINE(了,X,SI,2.15,0),COLORDB7093{XG51};
VAR1:=EMA(EMA(CLOSE,9),9){XG51};
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000{XG51};
STICKLINE(控盘<0,控盘,0,3,0),COLORRED{XG51};
AA1:=CROSS(控盘,0){XG51};
无庄控盘:IF(控盘<0,控盘,0),COLORRED,NODRAW{XG51};
轻度控盘:STICKLINE(控盘<0 AND 0.9*控盘>REF(控盘,1),控盘,0,3,0),COLORBLUE{XG51};
轻度出货:STICKLINE(控盘<0 AND 1.1*控盘<REF(控盘,1),控盘,0,3,0),COLORFFFF79{XG51};
开始控盘:=IF(AA1,5,0),LINETHICK1,COLORBLUE{XG51};
有庄控盘:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),COLORWHITE,NODRAW{XG51};
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,3,0),COLORWHITE{XG51};
VAR2:=100*WINNER(CLOSE*0.95){XG51};
高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,NODRAW{XG51};
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,3,0),COLORFF00FF{XG51};
主力出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,NODRAW{XG51};
STICKLINE(控盘<1.2*REF(控盘,1) AND 控盘>0,控盘,0,3,0),COLOR00FF00{XG51};
dif1:=EMA(DCLOSE,12)-EMA(DCLOSE,26){XG51};
DEA1:=EMA(DIF1,9){XG51};
macd1:=(DIF1-DEA1)*2*60{XG51};
MacD上:IF(MACD1>REF(MACD1,1),MACD1,DRAWNULL),
STICK,COLORWHITE,LINETHICK1{XG51};
MACD下:IF(MACD1<REF(MACD1,1),MACD1,DRAWNULL),
STICK,COLORFF9900,LINETHICK1{XG51};
A1:=BArslAST(REF(CROSS(DIF1,DEA1),1)){XG51};
BL:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1){XG51};
买点:DRAWICON(BL,DEA1,23){XG51};
A2:=BARSLAST(REF(CROSS(DEA1,DIF1),1)){XG51};
DBL:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF1,A2+1)>DIF1 AND CROSS(DEA1,DIF1){XG51};
买点1:DRAWICON(DBL,DEA1,12){XG51};
低位金叉:=CROSS(DIF1,DEA1) AND DIF1<-0.1{XG51};
DRAWTEXT(低位金叉,-0.36,' 低位金叉'){XG51};
JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0)){XG51};
二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
DRAWICON(二次金叉,DEA1*1.04,13) {XG51};
DRAWTEXT(二次金叉,-0.22,' 二次金叉'),COLORFF00FF{XG51};
A10:=BARSLAST(REF(CROSS(DIF1,DEA1),1)){XG51};
底背离:=REF(CLOSE,A10+1)>CLOSE AND DIF1>REF(DIF1,A10+1) AND CROSS(DIF1,DEA1){XG51};
DRAWLINE(A10=0,DEA1,底背离,DEA1,0),COLORWHITE,LINETHICK2{XG51};
DRAWTEXT(底背离,-0.50,' 底背离'),COLOR00FF00{XG51};
A20:=BARSLAST(REF(CROSS(DEA1,DIF1),1)){XG51};
顶背离:=REF(CLOSE,A20+1)<CLOSE AND REF(DIF1,A20+1)>DIF1 AND CROSS(DEA1,DIF1){XG51};
DRAWLINE(A20=0,DEA1,顶背离,DEA1,0),COLORRED,LINETHICK2{XG51};
STICKLINE(低位金叉,X,SI,1,0),COLORRED{XG51};
STICKLINE(必买,X,(X+SI)/2,2.3,0),COLORFF9900{XG51};
STICKLINE(必买,X,(X+SI)/2,0.1,0),COLORRED{XG51};
STICKLINE(低位金叉 AND 底背离,X,(X+SI)/2,2.3,0),COLORBLUE{XG51};
STICKLINE(低位金叉 AND 底背离,X,(X+SI)/2,0.1,0),COLORCC66FF{XG51};
STICKLINE(二次金叉,X,SI,2.0,0),COLORBLUE{XG51};
VAR12:=REF((LOW+OPEN+CLOSE+HIGH)/4,1){XG51};
VAR13:=SMA(Abs(LOW-VAR12),13,1)/SMA(MAX(LOW-VAR12,0),10,1){XG51};
VAR14:=EMA(VAR13,10){XG51};
VAR15:=LLV(LOW,33){XG51};
VAR16:=EMA(IF(LOW<=VAR15,VAR14,0),3){XG51};
主力进场:=IF(VAR16>REF(VAR16,1),VAR16,0),COLORWHITE,NODRAW{XG51};
STICKLINE(主力进场,X,SI,0.1,0),COLORWHITE{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1),COLORRED{XG51};
D:=SMA(K,3,1),COLORBLUE{XG51};
J:=3*K-2*D,COLORFF00FF{XG51};
X3:=LLV(J,2)=LLV(J,8){XG51};
A:=250{XG51};
JH1:=HHV(MAX(K,MAX(D,J)),A){XG51};
DH:=HHV(MAX(DIF1,DEA1),A){XG51};
SH:=INTPART(JH1/DH)/2{XG51};
DIFF50:=SH*DIF1+50,COLORFFFF00{XG51};
DEA50:=SH*DEA1+50,COLORYELLOW{XG51};
诱空:=IF(1.5*(DIFF50-DEA50)>0 AND REF(1.5*(DIFF50-DEA50),1)< REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
低位:=CROSS(J,REF(J+0.01,1)) AND X3 AND J<19{XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6){XG51};
值:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)){XG51};
DRAWTEXT(FILTER(诱空,3) AND 诱空,X,'洗盘'),COLOR00FF00{X!G=5+1!C!N!{};