- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2005-10-14
|
|
有兄弟说用我传的自定义数据选不出来股，经netnova兄提醒，是因为我传的数据把主营收入已经改成万元了，直接调用依然大哥分析家中的公式×10000，肯定选不出来，下面把公式贴出（飞弧用小泰坦牛市版，原版自行修改一下就行了）：注意自行修改其中的自定义数据名称。
input:N(20),T(10),M(125),P(60),p1(10);
w:=barslast(date<=1070312);
当日收盘价:ref(c,w);
主营收入:ref(selfdata('主营业务收入'),w);
主营利润率:=ref(selfdata('主营业务利润率'),w);
资产负债率:=ref(selfdata('资产负债率'),w);
每股收益:=ref(selfdata('每股收益'),w);
净利润增长率:=ref(selfdata('净利润增长率'),w);
股东人数:=ref(selfdata('股东人数'),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）}
六十日强度:=ref(六十天相对价位,w)>80;
半年强度:=ref(半年相对价位,w)>75;
二十日强度:=ref(二十天相对价位,w)>70;
换手率:=VOL/FINANCE(7);
换手率和:=SUM(换手率,P1);
当日成交量:=VOL;
五日均量:=ma(vol,5);
Var1:=当日收盘价*FINANCE(7)/(主营收入*(4/3))<=6 and 当日收盘价*FINANCE(7)/(主营收入*(4/3))>0;{0<市销率<1}
Var3:=FINANCE(7)*当日收盘价>=20000 AND FINANCE(7)*当日收盘价<=45*10000;{2亿人民币≤流通市值≤45亿 元人民币}
Var4:=BARSCOUNT(当日收盘价)>1*125;{ 上市时间≥半年 注：适当调整}
Var5:=主营利润率>20;{主营业务利润率大于20％}
Var6:=资产负债率<55;{资产负债率行业均值暂取55}
Var7:=当日收盘价/每股收益/净利润增长率<=1;{市盈率和收益增长率的 比率≤１-PEG比率}
Var8:=100*capital/股东人数>=4500;{流通股东人均持股大于4500}
Var9:=每股收益>-0.25;{最近一期每股收益大于-0.25元}
Var10:=ref(五日均量,w)>ref(当日成交量,w);
Var11:=ref(换手率和,w)>30;
Var12:=selfdata('持股率')>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; |
|
|
[复制链接]
发表于 2007-3-12 18:32
楼主