加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

估值上升空间(主图公式——L2

(2009-04-01 21:52:56)
标签:

股票

估值上升空间(主图公式——L2http://bbs.macd.cn/images/D5/attachimg.gif

if DISPSTATUS=2 then drawtextrel(60,190,'主力持仓率: '  +NUMTOSTRN(selfdata('持仓率'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,260,'基金持股数: '+NUMTOSTRN(selfdata('持股数'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,340,'基金持股率: '  +NUMTOSTRN(selfdata('持股率'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,420,'主力上周增仓率: '  +NUMTOSTRN(selfdata('上周增仓'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,500,'主力三周增仓率: '  +NUMTOSTRN(selfdata('三周增仓'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,580,'2007一致预测收益: '  +NUMTOSTRN(selfdata('2007一致预测收益'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,660,'估       值 : '  +NUMTOSTRN(selfdata('估值'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,740,'净利润增长: '  +NUMTOSTRN(selfdata('净利润增长率'),3)+' %'),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,120,'流通 '+NUMTOSTRN(FINANCE(7),0)+'万 '{资料}
+'每股收益 '+NUMTOSTRN(FINANCE(33),2)+'元 '{资料}
+'净资收益率 '+NUMTOSTRN(FINANCE(37),2)+'% '{资料}
+'主营增长 '+NUMTOSTRN(FINANCE(53),2)+'% '{资料}
+'利润增长 '+NUMTOSTRN(FINANCE(54),0)+'%'{资料}
),VALIGN0,COLORRED;
t1:=EXTRASTRING('评级');
t06:=strfind(t1,'06年',1);
t07:=strfind(t1,'07年',1);
if t07>0 then begin t3:=strfind(t1,';',t07);
eps07:=strmid(t1,t07+3,t3-t07-4);
pe07:=', 07PE=';
pe07:=pe07+numtostrn(c/strtonum(eps07),2);
t2:=strfind(t1,';',t06);
end
else
begin pe07:='';
t2:=strfind(t1,'(',t06)-1;
end;
if t06>0 then begin  eps06:=strmid(t1,t06+3,t2-t06-4);
pe06:=', 06PE=';
pe06:=pe06+numtostrn(c/strtonum(eps06),1);
end
else
pe06:='';
outstr:=EXTRASTRING('评级')
  + pe06 + pe07 + ',  公告EPS='+numtostrn(finance(33),3);
if DISPSTATUS=2 then
   DRAWTEXTrel(0,22,outstr),Colorred;




0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有