查看完整版本: 请高手把”短线精灵“改写成选股公式

请高手把”短线精灵“改写成选股公式

请版主及各位高手帮忙将“短线精灵”改写成选股公式--加入股价在红线下方做为选股条件，源码如下：
check1:=checkuser(1);
explainicon(c>0,'zwbsdnjp'),align1;
explainicon(c>0,'sfcb'),align1;
explainicon(c>0,'dpjsbj'),align1;
qqq:=(indexh+indexl)/2;
dd:=fft(qqq,26);
ddd:=fft((h+l)/2,26);
explain(dd>=ref(dd,1),'解盘：大盘多头攻击、获利机会出现、寻机买进！'),colorff;
explain(dd<=ref(dd,1),'解盘：大盘空头攻击、无明显操作机会、坚决出局！'),colorff00;
vk:=v/capital*100;
stickline(c>=o,h,l,0,0),colorff00ff;
stickline(c>=o,c,o,vk+3,1),colorff00ff;
stickline(c<o,h,l,0,1),colorff00;
stickline(c<o,c,o,vk+3,0),colorff00;
partline(ddd>ref(ddd,1),ddd),colorff;
partline(ddd<ref(ddd,1),ddd),colorffff60;
bj:=c/indexc*1000;
qs:=bj>ref(bj,1);
rs:=bj<=ref(bj,1);
explain(qs,'解盘：个股走势：强于大盘'),colorff;
explain(rs,'解盘：个股走势：弱于大盘'),colorff00;
explainicon(c>0,'ggjszt'),align1;
日k:="KDJ.K#day"(20,5,5);
日d:="KDJ.D#day"(20,5,5);
周k:="KDJ.K#week"(9,3,3);
周d:="KDJ.D#week"(9,3,3);
explainex(日k>0,'解盘：日K=',日k,2,0),colorff0000;
explain(日k<=20,'解盘：日线KD指标位置：低位'),colorff;
explain(日k>20 and 日k<50,'解盘：日线KD指标位置：中低'),colorff;
explain(日k>50 and 日k<80,'解盘：日线KD指标位置：中高'),colorff00;
explain(日k>=80,'解盘：日线KD指标位置：高位'),colorff00;
explainex(周k>0,'解盘：周K=',周k,2,0),colorff;
explain(周k<=20,'解盘：周线KD指标位置：低位'),colorff;
explain(周k>20 and 周k<50,'解盘：周线KD指标位置：中低'),colorff;
explain(周k>50 and 周k<80,'解盘：周线KD指标位置：中高'),colorff00;
explain(周k>=80,'解盘：周线KD指标位置：高位');
explain(cross(日k,日d),'解盘：日K与日D今日金叉'),colorff;
explain(cross(日d,日k),'解盘：日K与日D今日死叉'),colorff00;
explain(cross(周k,周d),'解盘：周K与周D今日金叉'),colorff;
explain(cross(周d,周k),'解盘：周K与周D今日死叉'),colorff00;
explainicon(c>0,'szczzy'),align1;
r:=ref(c,1)/c;
qy:=v;
qtt:=qy*r;
tl:=filter(v=hhv(v,20),20);
dl:=filter(v=llv(v,20),20);
xd:=filter(l=llv(l,20),20);
xg:=filter(h=hhv(h,20),20);
aq标准攻击量:=qtt*1.15;
hq危险成交量:=qtt*1.5;
lq防守量:=qtt*0.75;
ahq平均高量:=(aq标准攻击量+hq危险成交量)/2;
alq平均低量:=(aq标准攻击量+lq防守量)/2;
市场实际量能:=qy;
explainex(hq危险成交量,'解盘：次日攻击危险量=',hq危险成交量,0,0),colorff;
explainex(aq标准攻击量,'解盘：次日攻击标准量=',aq标准攻击量,0,0),colorff0000;
explainex(lq防守量,'解盘：次日攻击防守量=',lq防守量,0,0),colorff00;
explainex(tl,'解盘：今日为20日最大量=',v,0,0),colorff;
explainex(dl,'解盘：今日为20日最小量=',v,0,0),colorff00;
explainex(xd,'解盘：今日为20日最低价格=',l,2,0),colorff00;
explainex(xg,'解盘：今日为20日最高价格=',l,2,0),colorff;
pt:=ref(h,1)-ref(l,1);
cdp:=(h+l+2*c)/4;
ah:=cdp+pt;
al:=cdp-pt;
nh敏感阻力:=2*cdp-l;
nl:=2*cdp-h;
explainex(ah,'解盘：次日重大阻力价位=',ah,2,0),colorff00;
explainex(nh敏感阻力,'解盘：次日敏感阻力区域=',nh敏感阻力,2,0),colorffff;
explainex(cdp,'解盘：次日关键均衡价位=',cdp,2,0),colorffffff;
explainex(nl,'解盘：次日重要支撑区域=',nl,2,0),colorff0000;
explainex(al,'解盘：次日关键支撑价位=',al,2,0),colorff;
explainicon(c>0,'szczxh'),align1;
var0:=ref(c,1)-ref(o,1);
var1:=ref(o,1);
var2:=c>=var1*1.05;
var3:=c>=2*var0/3+var1 and c<=var1*1.05;
var4:=c<var0*2/3+var1;
explainex(var2,'解盘：个股目前态势：超级强势。涨幅 %f %',(c-ref(c,1))/ref(c,1)*100,1,0),colorff00ff;
explainex(var3,'解盘：个股目前态势：强势。涨幅 %f %',(c-ref(c,1))/ref(c,1)*100,1,0),colorff;
explainex(var4,'解盘：个股目前态势：弱势。涨幅 %f %',(c-ref(c,1))/ref(c,1)*100,1,0),colorff00;
b1:=(c-ma(c,30))/ma(c,30)*100<-12;
b3:=(c-ma(c,30))/ma(c,30)*100>15;
b:=(c-ma(c,30))/ma(c,30)*100;
explainex(b<-18 and c/o>1.06,'解盘：抢反弹!负乖离偏大,小单进场。此刻30日乖离率=',b,2,1),colorff;
explainex(b>40 and c/ref(c,1)<1.08,'解盘：高抛!正乖离偏大,按照短线技术系统高抛:',b,2,0),colorff00;
explainex(not(b<-18 and c/o>1.06) or not(b>40 and c/ref(c,1)<1.08),'解盘：此刻30日乖离率=',b,2,0),colorffff;

ddd:=fft((h+l)/2,26);
ddd>ref(ddd,1) AND C<ddd;

短线精灵“改写成选股

您好，我照实战团的写的公式操作了一下，选不出股票呢……实际上，选的时候，线是红线，股价拉于红线之下的，是有的。但为什么选不出来呢？

我這邊測試有阿

谢谢，我自已把画线的语句删掉了之后，照您说的，能选出了

但能不能帮我把没用的语句全删掉呢……那样选起来会快些吧……

其實您要的不就是二樓的那兩行而已
其他的 以您的需求來說 都是多餘的

谢谢提供！

请高手把”短线精灵“改写成选股公式
请版主及各位高手帮忙将“短线精灵”改写成选股公式--加入股价在红线下方做为选股条件，源码如下：
check1:=checkuser(1);
explainicon(c>0,'zwbsdnjp'),align1;
explainicon(c>0,'sfcb'),align1;
explainicon(c>0,'dpjsbj'),align1;
qqq:=(indexh+indexl)/2;
dd:=fft(qqq,26);
ddd:=fft((h+l)/2,26);
explain(dd>=ref(dd,1),'解盘：大盘多头攻击、获利机会出现、寻机买进！'),colorff;
explain(dd<=ref(dd,1),'解盘：大盘空头攻击、无明显操作机会、坚决出局！'),colorff00;
vk:=v/capital*100;
stickline(c>=o,h,l,0,0),colorff00ff;
stickline(c>=o,c,o,vk+3,1),colorff00ff;
stickline(c<o,h,l,0,1),colorff00;
stickline(c<o,c,o,vk+3,0),colorff00;
partline(ddd>ref(ddd,1),ddd),colorff;
partline(ddd<ref(ddd,1),ddd),colorffff60;
bj:=c/indexc*1000;
qs:=bj>ref(bj,1);
rs:=bj<=ref(bj,1);
explain(qs,'解盘：个股走势：强于大盘'),colorff;
explain(rs,'解盘：个股走势：弱于大盘'),colorff00;
explainicon(c>0,'ggjszt'),align1;
日k:="KDJ.K#day"(20,5,5);
日d:="KDJ.D#day"(20,5,5);
周k:="KDJ.K#week"(9,3,3);
周d:="KDJ.D#week"(9,3,3);
explainex(日k>0,'解盘：日K=',日k,2,0),colorff0000;
explain(日k<=20,'解盘：日线KD指标位置：低位'),colorff;
explain(日k>20 and 日k<50,'解盘：日线KD指标位置：中低'),colorff;
explain(日k>50 and 日k<80,'解盘：日线KD指标位置：中高'),colorff00;
explain(日k>=80,'解盘：日线KD指标位置：高位'),colorff00;
explainex(周k>0,'解盘：周K=',周k,2,0),colorff;
explain(周k<=20,'解盘：周线KD指标位置：低位'),colorff;
explain(周k>20 and 周k<50,'解盘：周线KD指标位置：中低'),colorff;
explain(周k>50 and 周k<80,'解盘：周线KD指标位置：中高'),colorff00;
explain(周k>=80,'解盘：周线KD指标位置：高位');
explain(cross(日k,日d),'解盘：日K与日D今日金叉'),colorff;
explain(cross(日d,日k),'解盘：日K与日D今日死叉'),colorff00;
explain(cross(周k,周d),'解盘：周K与周D今日金叉'),colorff;
explain(cross(周d,周k),'解盘：周K与周D今日死叉'),colorff00;
explainicon(c>0,'szczzy'),align1;
r:=ref(c,1)/c;
qy:=v;
qtt:=qy*r;
tl:=filter(v=hhv(v,20),20);
dl:=filter(v=llv(v,20),20);
xd:=filter(l=llv(l,20),20);
xg:=filter(h=hhv(h,20),20);
aq标准攻击量:=qtt*1.15;
hq危险成交量:=qtt*1.5;
lq防守量:=qtt*0.75;
ahq平均高量:=(aq标准攻击量+hq危险成交量)/2;
alq平均低量:=(aq标准攻击量+lq防守量)/2;
市场实际量能:=qy;
explainex(hq危险成交量,'解盘：次日攻击危险量=',hq危险成交量,0,0),colorff;
explainex(aq标准攻击量,'解盘：次日攻击标准量=',aq标准攻击量,0,0),colorff0000;
explainex(lq防守量,'解盘：次日攻击防守量=',lq防守量,0,0),colorff00;
explainex(tl,'解盘：今日为20日最大量=',v,0,0),colorff;
explainex(dl,'解盘：今日为20日最小量=',v,0,0),colorff00;
explainex(xd,'解盘：今日为20日最低价格=',l,2,0),colorff00;
explainex(xg,'解盘：今日为20日最高价格=',l,2,0),colorff;
pt:=ref(h,1)-ref(l,1);
cdp:=(h+l+2*c)/4;
ah:=cdp+pt;
al:=cdp-pt;
nh敏感阻力:=2*cdp-l;
nl:=2*cdp-h;
explainex(ah,'解盘：次日重大阻力价位=',ah,2,0),colorff00;
explainex(nh敏感阻力,'解盘：次日敏感阻力区域=',nh敏感阻力,2,0),colorffff;
explainex(cdp,'解盘：次日关键均衡价位=',cdp,2,0),colorffffff;
explainex(nl,'解盘：次日重要支撑区域=',nl,2,0),colorff0000;
explainex(al,'解盘：次日关键支撑价位=',al,2,0),colorff;
explainicon(c>0,'szczxh'),align1;
var0:=ref(c,1)-ref(o,1);
var1:=ref(o,1);
var2:=c>=var1*1.05;
var3:=c>=2*var0/3+var1 and c<=var1*1.05;
var4:=c<var0*2/3+var1;
explainex(var2,'解盘：个股目前态势：超级强势。涨幅 %f %',(c-ref(c,1))/ref(c,1)*100,1,0),colorff00ff;
explainex(var3,'解盘：个股目前态势：强势。涨幅 %f %',(c-ref(c,1))/ref(c,1)*100,1,0),colorff;
explainex(var4,'解盘：个股目前态势：弱势。涨幅 %f %',(c-ref(c,1))/ref(c,1)*100,1,0),colorff00;
b1:=(c-ma(c,30))/ma(c,30)*100<-12;
b3:=(c-ma(c,30))/ma(c,30)*100>15;
b:=(c-ma(c,30))/ma(c,30)*100;
explainex(b<-18 and c/o>1.06,'解盘：抢反弹!负乖离偏大,小单进场。此刻30日乖离率=',b,2,1),colorff;
explainex(b>40 and c/ref(c,1)<1.08,'解盘：高抛!正乖离偏大,按照短线技术系统高抛:',b,2,0),colorff00;
explainex(not(b<-18 and c/o>1.06) or not(b>40 and c/ref(c,1)<1.08),'解盘：此刻30日乖离率=',b,2,0),colorffff;
ddd:=fft((h+l)/2,26);
ddd>ref(ddd,1) AND C<ddd;

未定标示符