通达信MACD拐点未加密选股指标公式源码

源码正文：

VAR1:= ema(Ema(CLOSE,13),13){XG51};
控盘指数: (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,POINTDOT,COLORFFCCCC{XG51};
stICKLINE(控盘指数<0,控盘指数,0,2,0),COLORBROWN{XG51};
无庄控盘: 控盘指数<0,LINETHICK0,COLORBROWN{XG51};
STICKLINE(控盘指数>REF(控盘指数,1) AND 控盘指数>0 AND 控盘指数<3,控盘指数,0,2,1),COLORWHITE{XG51};
STICKLINE(控盘指数>REF(控盘指数,1) AND 控盘指数>0 AND 控盘指数>3,控盘指数,0,2,1),COLORWHITE{XG51};
STICKLINE(控盘指数>REF(控盘指数,1) AND 控盘指数>3,控盘指数,3,4,1),COLORFF00FF{XG51};
主力控盘: 控盘指数>REF(控盘指数,1) AND 控盘指数>0,LINETHICK0,COLORWHITE{XG51};
STICKLINE(控盘指数<REF(控盘指数,1) AND 控盘指数>0,控盘指数,0,2,0),COLOR00FF00{XG51};
控盘减弱: 控盘指数<REF(控盘指数,1) AND 控盘指数>0,LINETHICK0,COLOR00FF00{XG51};
VARA:= EMA(0.667*REF(控盘指数,1)+0.333*控盘指数,2){XG51};
STICKLINE(控盘指数>VARA,控盘指数,VARA,2,0),COLORWHITE{XG51};
B2:= 控盘指数>VARA{XG51};
准备: B2>REF(B2,1) AND 控盘指数<(-2),COLORBLUE{XG51};
DRAWTEXT(准备,3,'准备'),COLORBLUE{XG51};
B1:= (控盘指数>REF(控盘指数,1) AND 控盘指数>0)=1{XG51};
开始控盘: B1>REF(B1,1),COLORLIMAGENTA,LINETHICK3{XG51};
A:=(3*C+L+O+H)/6{XG51};
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210{XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(Abs(MTM),6),6){XG51};
CB:=EMA(X,13){XG51};
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND crOSS(DX,MA(DX,2)),1,0){XG51};
DRAWICON(FILTER(买=1,5),L*0.11,1){XG51};
difF:(EMA(CLOSE,12) - EMA(CLOSE,26))*20,COLORRED,LINETHICK1{XG51};
DEA:EMA(DIFF,9),COLORBLUE,LINETHICK1{XG51};
macd:2*(DIFF-DEA), COLORSTICK{XG51};
MacD1:=2*(DIFF-DEA),COLORWHITE,NODRAW{XG51};
MACD2:=EMA(MACD1,3),COLORGREEN,NODRAW{XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,2,0),COLORWHITE{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,2,0),COLORBLUE{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORCYAN{XG51};
S1:=MACD<0{XG51};
S2:= (MACD>=0){XG51};
S3:=BArslAST(CROSS(DIFF,DEA)){XG51};
S4:=REF(S3,S3+1){XG51};
S5:=DEA>REF(DEA,S4){XG51};
S6:=DEA{XG51};
上成立:=CROSS(DIFF,DEA) AND S5{XG51};
下成立:=CROSS(DIFF,DEA) AND S6{XG51};
L1:=(EMA(CLOSE,3) - EMA(CLOSE,13)){XG51};
L2:=EMA(L1,9){XG51};
L3:=BARSLAST(CROSS(L1,L2)){XG51};
L4:=REF(L3,L3+1){XG51};
L5:=L2{XG51};
变盘:CROSS(L1,L2) AND L5,NODRAW,COLORD6FF9C{XG51};
STICKLINE(变盘,5,0,0,1),COLORD6FF9C{XG51};
LS:=IF(DIFF>DEA AND DIFF>0,1,0){XG51};
加速上扬:IF(REF(LS=0,1) AND LS=1,0.1,0){XG51};
XG1:CROSS(MACD1,MACD2) AND MACD1<0,NODRAW{XG51};
XG2:CROSS(DIFF,DEA),NODRAW{XG51};
M1:=MACD>REF(MACD,1) AND DIFF<DEA{XG51};
绿柱短了:M1 AND COUNT(M1,10)=1 AND C>MA(C,55) AND COUNT(MACD<0,5)>=5,NODRAW{XG51};
DRAWTEXT(绿柱短了,MACD,'买点来了'){XG51};
DIFL:=EMA(V,12)-EMA(V,26){XG51};
DIF:=EMA(C,12)-EMA(C,26){XG51};
BL:=DIFL>REF(DIFL,1) AND DIF<REF(DIF,1){XG51};
四天: REF(BL,3)=1 AND REF(BL,2)=1 AND REF(BL,1)=1 AND BL{XG51};
三天:REF(BL,2)=1 AND REF(BL,1)=1 AND BL{XG51};
IF(DIFF>DEA,DIFF,DRAWNULL),COLORFF11CC,LINETHICK1{XG51};
IF(DIFF>DEA AND DIFF<0,DIFF,DRAWNULL),COLORWHITE,LINETHICK1{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
DRAWTEXT(FILTER(D>80,6),H*1.018,'D>80'){XG51};
DRAWTEXT(FILTER(CROSS(K,D) AND D<26,6),H*0.95,'kd低位金叉'),COLORFFCCCC{XG51};
STICKLINE(FILTER(CROSS(K,D) AND D<26,6),H*0.97,H*0.95,4,0),COLORFFCCCC{XG51};
DIFFF:=EMA(CLOSE,12) - EMA(CLOSE,26){XG51};
DEAF :=EMA(DIFFF,9){XG51};
MACDD:=2*(DIFFF-DEAF){XG51};
DRAWTEXT(FILTER(CROSS(DIFFF,DEAF) AND DEAF<0,6),L-0.02,'MACD低位金叉'),COLORWHITE{XG51};
STICKLINE(FILTER(CROSS(DIFFF,DEAF) AND DEAF<0,6),L-0.02,L-0.1,4,0),COLOR00FF00{XG51};
DRAWTEXT(FILTER(CROSS(DIFFF,DEAF) AND DEAF>0,13),H+0.25,'MACD下拐点'),COLORBLUE{XG51};
STICKLINE(FILTER(CROSS(DIFFF,DEAF) AND DEAF>0,13),H+0.02,H+0.12,4,0),COLORYELLOW{XG51};
DRAWTEXT(FILTER(CROSS(MACDD,0),13),L*0.65,'MACD上拐点'),COLORWHITE{XG51};
STICKLINE(FILTER(CROSS(MACDD,0),13),L*0.97,L*0.95,4,0),COLORRED{XG51};
roc:=(CLOSE-REF(CLOSE,21))/REF(CLOSE,21)*100{XG51};
DRAWTEXT(FILTER(CROSS(ROC,0),6),L-2.25,'骗线拐点'),COLORRED{XG51};
STICKLINE(FILTER(CROSS(ROC,0),6),L-0.02,L-0.15,4,0),COLORFF00FF{X^G=5~1^C^N^{};

源码正文：

价:ema(ma((((C-REF(C,1))+(H-REF(H,1))+(L-REF(L,1)))/3)/C,5),1){XG51};
价5:MA(价,5){XG51};
量:EMA(MA((V-REF(V,1))/V,5),1){XG51};
量5:MA(量,5){XG51};
角:=1>(ATAN((C/REF(C,1)-1)*100)*180/3.14115926)>-1{XG51};
stICKLINE((量5-量)<0.02 AND 量>REF(量,1),0,量5,3,0),COLORWHITE {XG51};
STICKLINE(crOSS(价,价5),-0.1,价,3,0),COLORFF00FF{XG51};
W:=(C/REF(C,1))>1.01{XG51};
横盘:=REF(((HHV(价,3)-LLV(价,3))/LLV(价,3)),1)<=(0.00/100) AND REF(((HHV(价5,3)-LLV(价5,3))/LLV(价5,3)),1)<=(0.00/100){XG51};
量横盘:=REF(((HHV(量,3)-LLV(量,3))/LLV(量,3)),1)<=(0.00/100) AND REF(((HHV(量5,3)-LLV(量5,3))/LLV(量5,3)),1)<=(0.00/100){XG51};
量比:=((量+REF(量,1)+REF(量,2))/(量5+REF(量5,1)+REF(量5,2)))>0.5{XG51};
STICKLINE(横盘 AND 量比 AND 量横盘 AND 角,量5,价,1,0),COLORRED {XG51};
A:COUNT(0.00<=价<=0.02 AND 0.00<=价5<=0.02,CROSS(价,价5))=1 AND W ,COLORBLUE {XG51};
B:COUNT(量5>-0.15 AND 量>-0.15,MA(A,3))=1,COLORYELLOW {XG51};
D:IF(量5>-0.15 AND 量>-0.15 AND REF(A,2) AND W,1,0.5),COLORRED {XG51};
E:IF(量5>-0.15 AND 量>-0.15 AND REF(A,3) AND W,1,0.5),COLORRED {XG51};
F:IF(量5>-0.15 AND 量>-0.15 AND REF(A,1) AND W,1,0.5),COLORRED {XG51};
ABB:COUNT(0.00<=价<=0.02 AND 0.00<=价5<=0.02,横盘 AND 量比 AND 量横盘 AND 角)=1 AND W ,COLORWHITE {XG51};
STICKLINE(A AND ABB,0,2,4,0),COLORWHITE {X^G?5~1^C^N^{};