- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2002-9-8
|
|

楼主 |
发表于 2007-6-3 11:41
|
小泰坦{专用于大智慧L2}
input:N(20),T(10),M(125),P(60),p1(10);{日期自己调整--yy=7,MM=3,DD=27 即2007年3月29日}
{qq:=1000000+(yy*10000)+(mm*100)+dd;
//w:=barslast(date<=qq);}
主营业务收入:selfdata('06主营业务收入');
主营业务利润率:selfdata('06主营业务利润率');
资产负债率:selfdata('06资产负债率');
每股收益:selfdata('06每股收益');
净利润增长率:selfdata('06净利润增长率');
股东人数:selfdata('06股东人数');
{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);
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);
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);
{line:=80; }
{小泰坦。牛市使用,将市销率扩大到6,其余未改)}
六十日强度:六十天相对价位>80;
半年强度:半年相对价位>75;
二十日强度:二十天相对价位>70;
换手率:VOL/FINANCE(7);
换手率和:SUM(换手率,P1);
当日成交量:VOL;
五日均量:ma(vol,5);
Var1:=c*FINANCE(7)/主营业务收入<=6 and c*FINANCE(7)/主营业务收入>0;{0<市销率<6}
Var3:=FINANCE(7)*c>=20000 AND FINANCE(7)*c<=45*10000;{2亿人民币≤流通市值≤45亿元人民币}
Var4:=BARSCOUNT(CLOSE)>1*125;{ 上市时间≥半年 注:适当调整}
Var5:=主营业务利润率>20;{主营业务利润率大于20%}
Var6:=资产负债率<80;{资产负债率行业均值暂取80}
Var7:=c/每股收益/净利润增长率<=1;{市盈率和收益增长率的比率≤1--PEG比率}
Var8:=100*capital/股东人数>=4500;{流通股东人均持股大于4500}
Var9:=每股收益>-0.25;{最近一期每股收益大于-0.25元}
Var10:=五日均量>当日成交量;
Var11:=换手率和>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;
qq:=1000000+(yy*10000)+(mm*100)+dd;
w:=barslast(date<=qq);
当日收盘价:=ref(c,w);
十日内上榜次数:COUNT(小泰坦>0 ,10 );
廿日内上榜次数:COUNT(小泰坦>0 ,20 );
卅日内上榜次数:COUNT(小泰坦>0 ,30 );
至今上榜次数:COUNT(小泰坦>0 ,w );
月涨幅:(c-ref(c,20))/(ref(c,20))*100;
两月涨幅:(c-ref(c,40))/(ref(c,40))*100;
一年涨幅:(c-ref(c,250))/(ref(c,250))*100;
精选:if((小泰坦>0 and 两月涨幅<70 and 二十天相对价位>80),1,0);
[ 本帖最后由 lymanqun 于 2007-6-3 11:44 编辑 ] |
|
|