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

标签:
股票 |
估值上升空间(主图公式——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;
if DISPSTATUS=2 then drawtextrel(60,190,'主力持仓率: '
if DISPSTATUS=2 then drawtextrel(60,260,'基金持股数: '+NUMTOSTRN(selfdata('持股数'),3)+' '),VALIGN0,COLORRED;
if DISPSTATUS=2 then drawtextrel(60,340,'基金持股率: '
if DISPSTATUS=2 then drawtextrel(60,420,'主力上周增仓率: '
if DISPSTATUS=2 then drawtextrel(60,500,'主力三周增仓率: '
if DISPSTATUS=2 then drawtextrel(60,580,'2007一致预测收益: '
if DISPSTATUS=2 then drawtextrel(60,660,'估
if DISPSTATUS=2 then drawtextrel(60,740,'净利润增长: '
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
pe06:=', 06PE=';
pe06:=pe06+numtostrn(c/strtonum(eps06),1);
end
else
pe06:='';
outstr:=EXTRASTRING('评级')
if DISPSTATUS=2 then
前一篇:★★★大智慧主图显示指标★★★
后一篇:饮酒后驾驶机动车的处罚