- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2005-10-14
|
|
发表于 2007-5-31 23:31
|
原帖由 icebeam 于 2007-5-31 22:53 发表 
哪位大哥有小泰坦的选股公式,以前的贴翻不到了,先谢过了!
飞狐版公式如下:
- input:N(20),T(10),M(125),P(60),p1(10);
- 当日收盘价:c;
- Fdate:=barslast(date<1070101);{取06年报数据}
- 主营收入:=ref(selfdata('主营收入'),fdate);
- 主营利润率:=ref(selfdata('主营业务利润率'),fdate);
- 资产负债率:=ref(selfdata('资产负债率'),fdate);
- 每股收益:=ref(selfdata('每股收益'),fdate);
- 净利润增长率:=ref(selfdata('净利润增长率'),fdate);
- 股东人数:=ref(selfdata('股东人数'),fdate);
- {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;
- {07小泰坦(P1=10)}
- 六十日强度:=六十天相对价位>80;
- 半年强度:=半年相对价位>75;
- 二十日强度:=二十天相对价位>70;
- 换手率:=VOL/FINANCE(7);
- 换手率和:=SUM(换手率,P1);
- 当日成交量:=VOL;
- 五日均量:=ma(vol,5);
- Var1:当日收盘价*FINANCE(7)/主营收入<=6 and 当日收盘价*FINANCE(7)/主营收入>0;{0<市销率<1}
- Var3:FINANCE(7)*当日收盘价>=20000 AND FINANCE(7)*当日收盘价<=45*10000;{2亿人民币≤流通市值≤45亿 元人民币}
- Var4:BARSCOUNT(当日收盘价)>1*125;{ 上市时间≥半年 注:适当调整}
- Var5:主营利润率>20;{主营业务利润率大于20%}
- Var6:资产负债率<80;{资产负债率行业均值暂取55}
- Var7:当日收盘价/每股收益/净利润增长率<=1;{市盈率和收益增长率的 比率≤1-PEG比率}
- Var8:100*capital/股东人数>=4500;{流通股东人均持股大于4500}
- Var9:每股收益>-0.25;{最近一期每股收益大于-0.25元}
- Var10:五日均量>当日成交量;
- Var11:换手率和>30;
- Var12:selfdata('持股率')>1.5;
- Titan:Var1 and Var3 and Var4 and Var5 and Var6 and Var7 and Var8 and Var9 and 六十日强度 and 半年强度 and 二十日强度 and Var10 and Var11 and Var12;
- w:=barslast(date<=1070101);
- 一日内上榜次数:count(titan>0,1);
- 十日内上榜次数:COUNT(titan>0,10);
- 廿日内上榜次数:COUNT(titan>0,20);
- 卅日内上榜次数:COUNT(titan>0,30);
- 报表公布至今上榜次数:COUNT(titan>0,w);
复制代码
公式中自定义数据格式根据自己的进行相应修改,如果只有单季数据,直接调用就可以了。 |
|
|