|
|
原帖由 lymanqun 于 2007-3-6 23:32 发表
今天选出30只
2007-3-6 代码 名称
1 '600020' 中原高速
2 '600035' 楚天高速
3 '600055' 万东医疗
4 '600090' ST啤酒花
5 '600096' 云天化
6 '600202' 哈空调
7 '600325' 华发股份
8 '600378' 天科 ...
谢谢大哥,我整理了一下公式,按你最新的修订做的,把RSP强度直接加进了,当日收盘价:=ref(c,w);便于选历史阶段的股,如下,请审查一下。
input:N(20),T(10),M(125),P(60),p1(10);
w:=barslast(date<=1070306);
当日收盘价:=ref(c,w);
{RSP强度}
AA:=(CLOSE-LLV(LOW,N))*100/(HHV(HIGH,N)-LLV(LOW,N));
BB:=(CLOSE-LLV(LOW,BARSCOUNT(CLOSE)))*100/(HHV(HIGH,BARSCOUNT(CLOSE))-LLV(LOW,BARSCOUNT(CLOSE)));
CC:=BARSCOUNT(CLOSE);
二十天相对价位:IF(CC<=N,BB,AA),colorblack;
GG:=(CLOSE-LLV(LOW,T))*100/(HHV(HIGH,T)-LLV(LOW,T);
HH:=(CLOSE-LLV(LOW,BARSCOUNT(CLOSE)))*100/(HHV(HIGH,BARSCOUNT(CLOSE))-LLV(LOW,BARSCOUNT(CLOSE)));
II:=BARSCOUNT(CLOSE);
十天相对价位:IF(II<=T,HH,GG);
FF:=(CLOSE-LLV(LOW,M))*100/(HHV(HIGH,M)-LLV(LOW,M));
DD:=(CLOSE-LLV(LOW,BARSCOUNT(CLOSE)))*100/(HHV(HIGH,BARSCOUNT(CLOSE))-LLV(LOW,BARSCOUNT(CLOSE)));
EE:=BARSCOUNT(CLOSE);
半年相对价位:IF(EE<=M,DD,FF),colorred;
JJ:=(CLOSE-LLV(LOW,P))*100/(HHV(HIGH,P)-LLV(LOW,P));
KK:=(CLOSE-LLV(LOW,BARSCOUNT(CLOSE)))*100/(HHV(HIGH,BARSCOUNT(CLOSE))-LLV(LOW,BARSCOUNT(CLOSE)));
MM:=BARSCOUNT(CLOSE);
六十天相对价位:IF(MM<=P,KK,JJ),colorblue;
line:80;
{06小泰坦(P1=10)}
SETPROFFIN(00100);{仅调用历年季报数据}
六十日强度:=ref(六十天相对价位,w)>80;
半年强度:=ref(半年相对价位,w)>75;
二十日强度:=ref(二十天相对价位,w)>70;换手率:=VOL/FINANCE(7);
换手率和:=SUM(换手率,P1);
成交量:=VOL;
五日均量:=ma(vol,5);
Var1:=当日收盘价*FINANCE(7)/(PROFFINON(3019, 2006,0930)*1.33)<=1 and 当日收盘价*FINANCE(7)/(PROFFINON(3019, 2006,0930)*1.33)>0;{0<市销率<1}
Var3:=FINANCE(7)*当日收盘价>=20000 AND FINANCE(7)*当日收盘价<=45*10000;{2亿人民币≤流通市值≤45亿
元人民币}
Var4:=BARSCOUNT(CLOSE)>1*125;{ 上市时间≥半年 注:适当调整}
Var5:=PROFFINON(3051 ,2006,0930 )>20;{主营业务利润率大于20%}
Var6:=PROFFINON(3065 ,2006,0930 )<55;{资产负债率行业均值暂取55}
Var7:=当日收盘价/PROFFINON(3043,2006, 0930)/(PROFFINON(3060,2006,0930))<=1;{市盈率和收益增长率的
比率≤1--PEG比率}
Var8:=100*capital/PROFFINON(5063,2006,0930)>=4500;{流通股东人均持股大于4500}
Var9:=PROFFINON(3043,2006, 0930)>-0.25;{最近一期每股收益大于-0.25元}
Var10:=ref(五日均量,w)>ref(成交量,w);
Var11:=ref(换手率和,w)>30;
Var12:=selfdata('2006基金三四季持股率')>1.5;
Var1 and Var3 and Var4 and Var5 and Var6 and Var7 and Var8 and Var9 and 六十日强度 and 半年强度 and 二十日强度 and Var10 and Var11 and Var12; |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|
|