- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2002-9-8
|
|
楼主 |
发表于 2007-5-8 09:00
|
显示全部楼层
估值上升空间（主图公式——L2）
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; |
|
|
[复制链接]
发表于 2007-5-8 08:08
