自用通达信——【美人肩】选股去除ST:=...

自用通达信——【美人肩】选股

去除ST:=IF(NAMELIKE('ST') OR NAMELIKE('*ST'),0,1);
去除停牌:=DYNAINFO(4)>0; {通达信:今开大于零}
去除大盘股:=CAPITAL/1000000<12;
{去除ST AND 去除停牌 AND 去除大盘股;}
SHORT:=5;
LONG:=26;
MID:=50;
DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIF,MID);
MACD:=(DIF-DEA)*2;
MACDJC:=CROSS(DIF,DEA);
{MACD金叉}
N:=9;
M1:=3;
M2:=3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
J:=3*K-2*D;
KDJC:=CROSS(K,D);
{KDJ金叉}
N1:=5;N2:=10;N3:=20;N4:=30;
BBI:=(MA(CLOSE,N1)+MA(CLOSE,N2)+MA(CLOSE,N3)+MA(CLOSE,N4))/4,COLORRED,LINETHICK1;
BBIJC:=CROSS(C,BBI),COLORRED;
{BBI金叉}
N5:=6;
LC:=REF(CLOSE,1);
AA:=ABS(HIGH-LC);
BB:=ABS(LOW-LC);
CC:=ABS(HIGH-REF(LOW,1));
DD:=ABS(LC-REF(OPEN,1));
R:=IF(AA>BB AND AA>CC,AA+BB/2+DD/4,IF(BB>CC AND BB>AA,BB+AA/2+DD/4,CC+DD/4));
X:=(CLOSE-LC+(CLOSE-OPEN)/2+LC-REF(OPEN,1));
SI:=16*X/R*MAX(AA,BB);
ASI:=SUM(SI,0);
MASI:=(ASI,N5);
ASIJC:=CROSS(ASI,MASI),COLORBLUE;
{ASI金叉};
MTM:=CLOSE-REF(CLOSE,12);
MTMJC:=CROSS(MTM,0),COLORBROWN;
三指标共振:=MACDJC+KDJC+BBIJC+ASIJC+MTMJC=3;
四指标共振:=MACDJC+KDJC+BBIJC+ASIJC+MTMJC=4;
五指标共振:=MACDJC+KDJC+BBIJC+ASIJC+MTMJC=5;
XG:三指标共振 OR 四指标共振 OR 五指标共振 AND 去除ST AND 去除停牌 AND 去除大盘股;