通达信智能未加密选股指标公式源码

通达信智能未加密选股指标公式源码

源码正文：

日线锁定:=(PERIOD==5) AND (C>0) AND V>0;
过滤周期:=1;
VAR1:=ema(Ema(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000{XG51};
资金:=EMA(EMA(CLOSE,8),8);
资金抬轿:=(资金-REF(资金,1))/REF(资金,1)*1000;
有庄控盘:=资金抬轿>0; 无庄控盘:=资金抬轿<=0;
买线:=EMA(C,3){XG51};
卖线:=EMA(SLOPE(C,22)*20+C,54);
BU1:=crOSS(买线,卖线);
SEL1:=CROSS(卖线,买线);
BU2:=IFF(BU1 AND 有庄控盘,1,IFF(COUNT(BU1 AND 无庄控盘,BArslAst(SEL1)+1)==1 AND CROSS(资金抬轿,0),1,0));
BU:=BU2 AND COUNT(BU2,BARSLAST(SEL1)+1)==1;
SEL:=SEL1 AND COUNT(SEL1,BARSLAST(BU)+1)==1;
BUNEW:=BU;
止损条件:=CLOSE/REF(OPEN,BARSLAST(BU))<(1-7/100) AND COUNT(BU,BARSLAST(BU)+1)==1 AND COUNT(SEL,BARSLAST(BU)+1)==0;
SELNEW:=IFF(止损条件 AND COUNT(止损条件,BARSLAST(BU)+1)==1,1,IFF(SEL AND COUNT(止损条件,BARSLAST(BU)+1)==0,1,0)){XG51};
重新买入:=COUNT(止损条件,BARSLAST(BUNEW)+1)>=1 AND CROSS(C,0.965*REF(O,BARSLAST(BUNEW)));
不在同一天1:=((重新买入 AND SELNEW)==0); BUNEW2:=((BUNEW AND COUNT(SELNEW,过滤周期)==0) OR 重新买入) AND 不在同一天1{XG51};
二次止损:=(CLOSE/REF(OPEN,BARSLAST(重新买入))<(1-7/100) AND COUNT(重新买入,BARSLAST(重新买入)+1)==1 AND COUNT(SEL,BARSLAST(重
新买入)+1)==0);
重新卖出:=(SEL AND COUNT(重新买入,BARSLAST(BUNEW2)+1)==1) OR (二次止损 AND SUM(二次止损,0)==1);
不在同一天2:=((重新卖出 AND BUNEW2)==0);
SELNEW2:=((SELNEW AND COUNT(SELNEW,BARSLAST(BUNEW2)+1)==1) OR 重新卖出) AND 不在同一天2;
BUNEW3:=BUNEW2 AND COUNT(BUNEW2,BARSLAST(SELNEW2)+1)==1;
SELNEW3:=SELNEW2 AND COUNT(SELNEW2,BARSLAST(BUNEW3)+1)==1;
D:=BARSLAST(BUNEW3)+1>=1 AND COUNT(SELNEW3,BARSLAST(BUNEW3)+1)==0;
K:=BARSLAST(SELNEW3)+1>=1 AND COUNT(BUNEW3,BARSLAST(SELNEW3)+1)==0{XG51};
修正部分定位:=IFF(COUNT(SELNEW3,BARSCOUNT(C))==0 AND COUNT(BUNEW3,BARSCOUNT(C))==0,1,0);
上市修正B:=修正部分定位 AND CROSS(控盘,0){XG51};
上市修正S:=修正部分定位 AND CROSS(0,控盘) AND COUNT(上市修正B,BARSLAST(C>0))>=1{XG51};
上市D:=COUNT(上市修正B,BARSLAST(上市修正B)+1)==1 AND COUNT(上市修正S,BARSLAST(上市修正B)+1)==0 AND COUNT (SELNEW3,BARSCOUNT
(C))==0;
上市K:=COUNT(上市修正S,BARSLAST(上市修正S)+1)==1 AND COUNT(上市修正B,BARSLAST(上市修正S)+1)==0 AND COUNT
(BUNEW3,BARSCOUNT(C))==0;
SSXZBZS:=COUNT(上市修正B,BARSCOUNT(C));
SSXZSZS:=COUNT(上市修正S,BARSCOUNT(C));
QB:=IFF(修正部分定位,上市修正B,BUNEW3);
QS:=IFF(修正部分定位,上市修正S AND (SSXZBZS==SSXZSZS AND SSXZBZS>=0 AND COUNT(SELNEW3,BARSCOUNT(C))==1 AND COUNT
(BUNEW3,BARSCOUNT(C))==0)==0, SELNEW3 AND (SSXZBZS==SSXZSZS AND SSXZBZS>=0 AND COUNT(SELNEW3,BARSCOUNT(C))==1 AND COUNT
(BUNEW3,BARSCOUNT(C))==0)==0);
K补:=(COUNT(上市修正B,BARSLAST(C>0))==0 AND COUNT(QB,BARSLAST(C>0))==0)==0{XG51};
XG:QB AND 日线锁定;

{X~G?5*1~C~N~{}

通达信MACD短期未加密选股指标公式源码

源码正文：

SHORT:=12{XG51};
LONG:=26{XG51};
MID:=9{XG51};
difF :(ema(C,SHORT) - Ema(C,LONG))*1000{XG51};
DEA :EMA(DIFF,MID){XG51};
macd :2*(DIFF-DEA),COLORstICK{XG51};
A0:=BArslAST(REF(crOSS(DEA,0),1)){XG51};
A1:=BARSLAST(CROSS(DEA,DIFF)){XG51};
A2:=REF(BARSLAST(CROSS(DEA,DIFF)),A1+1){XG51};
A3:=REF(BARSLAST(CROSS(DEA,DIFF)),A2+A1+2){XG51};
A4:=REF(BARSLAST(CROSS(DEA,DIFF)),A3+A2+A1+3){XG51};
A5:=REF(BARSLAST(CROSS(DEA,DIFF)),A4+A3+A2+A1+4){XG51};
A11:=LLV(C,A1)<REF(LLV(C,A1+1),A1+1) AND LLV(DIFF,A1)>REF(LLV(DIFF,A1+1),A1+1){XG51};
A22:=LLV(C,A1)<REF(LLV(C,A1+A2+2),A1+A2+2) AND
LLV(DIFF,A1)>REF(LLV(DIFF,A1+A2+2),A1+A2+2){XG51};
A33:=LLV(C,A1)<REF(LLV(C,A1+A2+A3+3),A1+A2+A3+3) AND
LLV(DIFF,A1)>REF(LLV(DIFF,A1+A2+A3+3),A1+A2+A3+3){XG51};
A44:=LLV(C,A1)<REF(LLV(C,A1+A2+A3+A4+4),A1+A2+A3+A4+4) AND
LLV(DIFF,A1)>REF(LLV(DIFF,A1+A2+A3+A4+4),A1+A2+A3+A4+4) AND A11 AND A22 AND A33{XG51};
A55:=LLV(C,A1)<REF(LLV(C,A1+A2+A3+A4+A5+5),A1+A2+A3+A4+A5+5) AND
LLV(DIFF,A1)>REF(LLV(DIFF,A1+A2+A3+A4+A5+5),A1+A2+A3+A4+A5+5) AND A11 AND A22 AND A33
AND A44{XG51};
DIBL:=(A11 OR A22 OR A33 OR A44 OR A55) AND DIFF<0 AND REF(COUNT(MacD<0,2)=2,1) AND CROSS(DIFF,DEA){XG51};
DIBL1:=(A11 OR A22 OR A33 OR A44 OR A55) AND DIFF<0 AND DIFF<DEA AND DIFF>REF(DIFF,1)
AND DIFF>REF(DIFF,2){XG51};
底背离:IF(DIBL,0,DEA),COLORWHITE{XG51};
IF(DIFF<0 AND CROSS(DIFF,DEA) AND DIBL=0,0,DEA),COLORBLUE{XG51};
B0:=BARSLAST(REF(CROSS(0,DEA),1)){XG51};
B1:=BARSLAST(CROSS(DIFF,DEA)){XG51};
B2:=REF(BARSLAST(CROSS(DIFF,DEA)),B1+1){XG51};
B3:=REF(BARSLAST(CROSS(DIFF,DEA)),B1+B2+2){XG51};
B4:=REF(BARSLAST(CROSS(DIFF,DEA)),B1+B2+B3+3){XG51};
B5:=REF(BARSLAST(CROSS(DIFF,DEA)),B1+B2+B3+B4+4){XG51};
B11:=HHV(C,B1)>REF(HHV(C,B1+1),B1+1) AND HHV(DIFF,B1)<REF(HHV(DIFF,B1+1),B1+1){XG51};
B22:=HHV(C,B1)>REF(HHV(C,B1+B2+2),B1+B2+2) AND
HHV(DIFF,B1)<REF(HHV(DIFF,B1+B2+2),B1+B2+2){XG51};
B33:=HHV(C,B1)>REF(HHV(C,B1+B2+B3+3),B1+B2+B3+3) AND
HHV(DIFF,B1)<REF(HHV(DIFF,B1+B2+B3+3),B1+B2+B3+3){XG51};
B44:=HHV(C,B1)>REF(HHV(C,B1+B2+B3+B4+4),B1+B2+B3+B4+4) AND
HHV(DIFF,B1)<REF(HHV(DIFF,B1+B2+B3+B4+4),B1+B2+B3+B4+4) AND B11 AND B22 AND B33{XG51};
B55:=HHV(C,B1)>REF(HHV(C,B1+B2+B3+B4+B5+5),B1+B2+B3+B4+B5+5) AND
HHV(DIFF,B1)<REF(HHV(DIFF,B1+B2+B3+B4+B5+5),B1+B2+B3+B4+B5+5) AND B11 AND B22 AND B33
AND B44{XG51};
DINGBL:=(B11 OR B22 OR B33 OR B44 OR B55) AND DIFF>0 AND REF(COUNT(MACD>0,2)=2,1) AND CROSS(DEA,DIFF){XG51};
DINGBL1:=(B11 OR B22 OR B33 OR B44 OR B55) AND DIFF>0 AND DEA<DIFF AND DIFF<REF(DIFF,1)
AND DIFF<REF(DIFF,2){XG51};
顶背离:IF(DINGBL,0,DEA),COLORCYAN{XG51};
IF(DIFF>0 AND CROSS(DEA,DIFF) AND DINGBL=0,0,DEA),COLORYELLOW{XG51};
STICKLINE(DIBL1,DIFF,DEA,2,0),COLORWHITE{XG51};
STICKLINE(DINGBL1,DIFF,DEA,2,0),COLORCYAN{XG51};
MB:=EMA(DIFF,20){XG51};
UB:=MB+1.9104*STD(DIFF,20),COLORBLUE,POINTDOT{XG51};
LB:=MB-1.9104*STD(DIFF,20),COLORLIGREEN,POINTDOT{XG51};
ZJS:=HHV(DEA,B0)/2{XG51};
ZJX:=LLV(DEA,A0)/2{XG51};
IF(DEA>DIFF AND DIFF>0 ,ZJS,DRAWNULL),COLORWHITE{XG51};
IF(DEA<DIFF AND DIFF<0 ,ZJX,DRAWNULL),COLORCYAN{X.G-5~1.C.N.{};