- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-11-13
|
|
飞狐主图公式:基本面
- if stktype=1 OR stktype=2 then
- BEGIN
- {采用 if(numtostr(selfdata('每股收益'),0)='' 这种方法可以判断自定义数据是否为空}
- eps1:=if(numtostr(selfdata('每股收益1'),0)='',0,selfdata('每股收益1')); //自定义编辑的, 保守值, 或者是06年值
- eps2:=if(numtostr(selfdata('每股收益2'),0)='',0,selfdata('每股收益2')); //自定义编辑的, 大胆值, 或者是07年值
- eps3:=if(numtostr(selfdata('每股收益3'),0)='',0,selfdata('每股收益3')); //自定义编辑的, 远景值, 或者是08年值
- pe1:=if(eps1=0,0,c/eps1);
- pe2:=if(eps2=0,0,c/eps2);
- pe3:=if(eps3=0,0,c/eps3);
- eps07dzh:=if(numtostr(selfdata('eps2007'),0)='',0,selfdata('eps2007'));
- pe07dzh:=if(eps07dzh=0,0,c/eps07dzh);
- epsstr:=if(pe1<>0, numtostr(eps1,2), '');
- epsstr:=epsstr + if(epsstr<>'' and pe2<>0, '/','') + if(pe2<>0, numtostr(eps2,2), '');
- epsstr:=epsstr + if(epsstr<>'' and pe3<>0, '/','') + if(pe3<>0, numtostr(eps3,2), '');
- epsstr:=if(pe1=0 and pe2=0 and pe3=0,'', '每股收益='+epsstr) ;
- pestr:=if(pe1<>0, numtostr(pe1,1), '');
- pestr:=pestr + if(pestr<>'' and pe2<>0, '/', '') + if(pe2<>0, numtostr(pe2,1), '');
- pestr:=pestr + if(pestr<>'' and pe3<>0, '/', '') + if(pe3<>0, numtostr(pe3,1), '');
- pestr:=if(pe1=0 and pe2=0 and pe3=0,'',', 市盈率='+pestr);
- 总股本:=FINANCE(1)/10000;
- 负债率:=100*(FINANCE(15)+FINANCE(16))/FINANCE(10);
- 流通盘:=CAPITAL/1000000;
- 净资:=if(FINANCE(35)<>0, FINANCE(35), FINANCE(34)); //有调整每股净值就取调整的, 否则取未调整的
- 市净率:=c/净资;
- dzhstr:=if(pe07dzh=0,'', '\ndzh:07eps='+numtostr(eps07dzh,2)+', 07PE='+numtostr(pe07dzh,2));
- value:=FINANCE(1)*C;{总市值}
- outstr:= '总股本='+numtostr(总股本,2)+'亿, 流通盘='+numtostr(流通盘,2)+'亿'
- + ',负债率='+numtostr(负债率,2)+ ', 净资='+numtostr(净资,2)+', 市净率='+numtostr(市净率,2)
- + '\n' + epsstr + pestr + dzhstr
- + '\n.\n' + '净利润增长率:\n' + '05Q2/3/4='
- + numtostr(selfdata('净利增率05Q2'),1) + ', '
- + numtostr(selfdata('净利增率05Q3'),1) + ', '
- + numtostr(selfdata('净利增率05Q4'),1) + '\n06Q1/2/3='
- + numtostr(selfdata('净利增率06Q1'),1) + ', '
- + numtostr(selfdata('净利增率06Q2'),1) + ', '
- + numtostr(selfdata('净利增率06Q3'),1)
- + '\n.\n市销比:2006Q1/2/3\n'
- + numtostr(value/(4*selfdata('主营收入06Q1')/10000),2) + ', '
- + numtostr(value/(2*selfdata('主营收入06Q2')/10000),2) + ', '
- + numtostr(value/(4*selfdata('主营收入06Q3')/3/10000),2)
- + '\n.\n毛利率:\n' + '05Q2/3/4='
- + numtostr(selfdata('毛利率05Q2'),1) + ', '
- + numtostr(selfdata('毛利率05Q3'),1) + ', '
- + numtostr(selfdata('毛利率05Q4'),1) + '\n06Q1/2/3='
- + numtostr(selfdata('毛利率06Q1'),1) + ', '
- + numtostr(selfdata('毛利率06Q2'),1) + ', '
- + numtostr(selfdata('毛利率06Q3'),1)
- ;
- outstr:=outstr + if(inblock('沪深300'),'\n\n沪深300','');
- DrawText(BARPOS=sysparam(2),sysparam(4),outstr),colorwhite;
- end;
复制代码
需要用到的自定义数据:
* 每股收益1, 每股收益2, 每股收益3:
分别是机构的06,07,08年的eps预测数字, 或者把“每股收益1”用于存放比较保守的数字,“每股收益3”用于存放比较激进的预测数字
这几个数据要自己去搜集再导入进去,很麻烦,我渐渐也不维护了,直接把机构预测数据拷贝出来,弄成主图文字就算了。
× eps2007: 这是根据依然大哥从分析家6.0里倒出来的机构评级信息再提取出来的2007年的每股收益预测数字
× 净利增率05Q2, ... 净利增率06Q3: 净利润增长率,从2005年第一季报到2006年三季报,分析家机构版专业财务数据里倒出来的;
× 主营收入06Q1, ... 主营收入06Q3: 主营业务收入,年化后用来计算市值/销售比;
× 毛利率05Q1, ... 毛利率06Q3, 也很重要,如果毛利率上升则意味着业务良性发展,这种公司是最有前途的。
效果就是类似这样:
[ 本帖最后由 raidsan 于 2007-1-17 18:22 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|
|