股票论坛

标题: 请老师帮忙把公式做成选股器，谢谢！ [打印本页]

作者: 开心强可哥 时间: 2016-9-11 10:46
标题: 请老师帮忙把公式做成选股器，谢谢！
请老师帮忙把公式做成选股器，要求同时出现“智取妖底、稳健关注、急进买入”选股，谢谢！

A1:=((MA(C,60)-L)/MA(C,20))*200;
B1:=((MA(C,60)-L)/MA(C,60))*200;
C1:=((MA(C,30)-L)/MA(C,60))*200;
M1:=REF(CLOSE,1);
M2:=SMA(MAX(CLOSE-M1,0),7,1)/SMA(ABS(CLOSE-M1),7,1)*100;
G1:=FILTER(REF(M2,1)<20 AND M2>REF(M2,1),5);
TU:=C/MA(C,40)<0.74;
PER1:=5;
MMA:=EMA(C,PER1);
SMMA:=EMA(MMA,PER1);
IMPETMMA:=MMA - REF(MMA,1);
IMPETSMMA:=SMMA - REF(SMMA,1);
DIVMA:= ABS(MMA - SMMA);
TDJ:=(H-L)/REF(C,1)>0.05;
AVERIMPET:= (IMPETMMA+IMPETSMMA)/2;
TDF:= POW(DIVMA,1)*POW(AVERIMPET,3);
NTDF:=TDF/HHV(ABS(TDF),PER1*3);
YUL:=COUNT(TDJ,5)>1;
启动:=TU AND TDJ AND YUL;
确定:=CROSS(NTDF,-0.9);
波段:=FILTER((G1 AND C1>20 OR C>REF(C,1)) AND REF(启动,1),10);
选股:=FILTER(REF(启动,1) AND (确定 OR C>REF(C,1)) AND "MACD.MACD">-1.5,10);
妖底:COUNT(选股,13)>=1 AND 波段,LINETHICK2,COLORGRAY;

STICKLINE(妖底>0.1,0,0.19,4.8,0),COLORWHITE;
STICKLINE(妖底>0.1,0,0.19,4.8,0),COLORYELLOW;
STICKLINE(妖底>0.1,0,0.16,5,1),COLORYELLOW;
STICKLINE(妖底>0.1,0.16,0.6,4,1),COLORBLUE;
STICKLINE(妖底>0.1,0,0.1,7,0),COLORBROWN;
STICKLINE(妖底>0.1,0,0.05,8,0),COLORRED;
STICKLINE(妖底>0.1,0.6,0.985,0.1,0);
STICKLINE(妖底>0.1,0.985,0.989,0,0);
DRAWTEXT(妖底>0.1,0.5,'智取妖底'),COLORYELLOW;
DRAWICON(妖底>0.1,0.56,34),COLORRED;
DRAWICON(妖底>0.1,0.41,31),COLORRED;
DRAWTEXT(妖底>0.1,0.346,'稳健关注'),COLORRED;
DRAWTEXT(妖底>0.1,0.216,'急进买入'),COLORRED;
DRAWICON(妖底>0.1,0.267,38),COLORRED;

作者: （百川） 时间: 2016-9-11 10:46
{妖底预警}

A1:=((MA(C,60)-L)/MA(C,20))*200;
B1:=((MA(C,60)-L)/MA(C,60))*200;
C1:=((MA(C,30)-L)/MA(C,60))*200;
M1:=REF(CLOSE,1);
M2:=SMA(MAX(CLOSE-M1,0),7,1)/SMA(ABS(CLOSE-M1),7,1)*100;
G1:=FILTER(REF(M2,1)<20 AND M2>REF(M2,1),5);
TU:=C/MA(C,40)<0.74;
PER1:=5;
MMA:=EMA(C,PER1);
SMMA:=EMA(MMA,PER1);
IMPETMMA:=MMA - REF(MMA,1);
IMPETSMMA:=SMMA - REF(SMMA,1);
DIVMA:= ABS(MMA - SMMA);
TDJ:=(H-L)/REF(C,1)>0.05;
AVERIMPET:= (IMPETMMA+IMPETSMMA)/2;
TDF:= POW(DIVMA,1)*POW(AVERIMPET,3);
NTDF:=TDF/HHV(ABS(TDF),PER1*3);
YUL:=COUNT(TDJ,5)>1;
启动:=TU AND TDJ AND YUL;
确定:=CROSS(NTDF,-0.9);
波段:=FILTER((G1 AND C1>20 OR C>REF(C,1)) AND REF(启动,1),10);
选股:=FILTER(REF(启动,1) AND (确定 OR C>REF(C,1)) AND "MACD.MACD">-1.5,10);
妖底:COUNT(选股,13)>=1 AND 波段;

欢迎光临股票论坛 (http://100000w.com/)