- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2006-1-19
|
|
{网有战事---蓝筹}
{表格横线}
PARTLINE(c,0),colorgray;PARTLINE(c,30),colorgray;
PARTLINE(c,60),colorgray;
PARTLINE(c,90),colorgray;PARTLINE(c,120),colorgray;
{表格竖线}
x:=SYSPARAM(2)=BARPOS;
k:=(SYSPARAM(3)-SYSPARAM(2))/110;
x1:=SYSPARAM(2)+ROUND(26*k)=BARPOS;
x2:=SYSPARAM(2)+ROUND(55*k)=BARPOS;
x3:=SYSPARAM(2)+ROUND(86*k)=BARPOS;
x4:=SYSPARAM(2)+ROUND(110*k)=BARPOS;
VERTLINE(x or x1 or x2 or x3 or x4),colorgray;
正收益率:=if(FINANCE(33)>0.01,FINANCE(33)*6,0);
市盈率:=if(FINANCE(33)>0,DYNAINFO(39),0);
蓝筹系数:(正收益率*市盈率)/2,PRECISION2,LINETHICK0,COLORGREEN;
{使用蓝筹系数排序时,别忘了引入F10资料啊}
DRAWTEXT(x2,113,' 动态市盈率(%) = '+NUMTOSTR(市盈率,2)),COLORYELLOW;
股净资:=FINANCE(34);
DRAWTEXT(x1,22,' 净资产(股) = '+NUMTOSTR(股净资,2)+'元' ),COLORWHITE;
净资产收益率:=FINANCE(37);
DRAWTEXT(x2,83,' 净资产收益率(%) = '+NUMTOSTR(净资产收益率,2)),ColorFF6835;
股收益:=FINANCE(33);
DRAWTEXT(x,83,' 收益(股): '+NUMTOSTR(股收益,2)+'元' ),COLORYELLOW;
股公积:=FINANCE(18);
DRAWTEXT(x,52,' 公积(股): '+NUMTOSTR(股公积,2)+'元' ),COLORGREEN;
股未分:=FINANCE(32);
DRAWTEXT(x,22,' 未分(股): '+NUMTOSTR(股未分,2)+'元' ),COLORMAGENTA;
含金量:=(股净资+股未分+股公积+股收益)-C,LINETHICK,PRECISION2{,Color000000};
A5:=含金量[SYSPARAM(1)];
RA5:=含金量[SYSPARAM(1)-1];
jt5:=if(A5>RA5,'↑','↓');
DRAWTEXT(x,113,' 含金量(股)'+NUMTOSTR(含金量,2)+'元'+jt5 ),COLORRED;
现金流量:=((FINANCE(38)+FINANCE(41)+FINANCE(44))-(FINANCE(39)+FINANCE(42)+FINANCE(45)))/FINANCE(1);
DRAWTEXT(x1,52,' 现金净流量(股):'+NUMTOSTR(现金流量,2)+'元'),Color0098FF;
主营业务增长率:=FINANCE(53);
DRAWTEXT(x1,83,' 主营业务增长率(%):'+NUMTOSTR(主营业务增长率,2)),COLORGREEN;
税后利润增长率:=FINANCE(54);
DRAWTEXT(x2,52,' 税后利润增长率(%):'+NUMTOSTR(税后利润增长率,2)),Color0098FF;
总股本:=FINANCE(1)/10000,PRECISION2,LINETHICK1;
DRAWTEXT(x3,113,' 总股本(亿):'+NUMTOSTR(总股本,3)),Color0098FF;
B股:=FINANCE(5)/10000;
DRAWTEXT(x3,52,' B股(亿):'+NUMTOSTR(B股,3)),ColorFF6835;
H股:=FINANCE(6)/10000;
DRAWTEXT(x3,22,' H股(亿):'+NUMTOSTR(H股,3)),COLORCYAN;
选择:=IF(STRLEFT(STKNAME,1)='G'or STRLEFT(STKLABEL,3)='002',1,0);
流通股数:=IF(选择,FINANCE(1),FINANCE(7));
DRAWTEXT(x3,83,' 流通股(亿):'+NUMTOSTR(流通股数/10000,3)),COLORGREEN;
户均持股:=流通股数*10000/FINANCE(50),PRECISION0;
DRAWTEXT(x2,22,' 户均持股(股):'+NUMTOSTR(户均持股,0)),COLORMAGENTA;
xx1:=if(FINANCE(33)>0,DYNAINFO(39),0),LINETHICK;
xx2:=FINANCE(37),LINETHICK;
比值:=xx1/xx2,LINETHICK;//小于1比较多,则认为价格很便宜.
DRAWTEXT(x1,113,' 比值:'+NUMTOSTR(比值,2)+' (<1,越小越好)' ),COLORWHITE;
//
[ 本帖最后由 周董 于 2006-2-11 18:26 编辑 ] |
|
|