|
股道财务(通达信公式编辑器5.0版本适用) 优质资产率;{理论上越大越好但不同行业有不同标准};
现金负债比:缺长期负债或负债总额，理论上越大越好但不同行业有不同标准}; 参数n=10 drawgbk(c>0, rgb(0,0,00),rgb(0,0,0),0,'012',0); drawtext_fix(1,0.6,0,0,'所属板块:'),colorff6000;
drawtext_fix(1,0.67,0,0,hyblock),colorred;
drawtext_fix(1,0.735,0,0,dyblock),coloryellow;
离心轨迹:=(ma(c,30)+ma(c,72))/2,linethick3,pointdot;
股价:c,colorwhite;
ma3:ma(c,3),coloryellow;
ma5:ma(c,5),linethick1,colorlimagenta;
ma10:ma(c,10),colorgreen; 主流资金:=ema(100*(c-llv(low,34))/(hhv(h,34)-llv(low,34)),3), colorred,linethick2; 主力筹码估算:ema(winner(close)*70,3),nodraw,linethick0;
散户筹码估算:=ema((winner(close*1.1)-winner(close*0.9))*80,3),nodraw;
散户套牢比率:=散户筹码估算/(主力筹码估算+散户筹码估算)*100,nodraw;
主力控盘比率:主力筹码估算/(主力筹码估算+散户筹码估算)*100,nodraw,linethick0;
市场总量:=ma(主力筹码估算+散户筹码估算,13),colorgreen,linethick2;
筹码总量:if(市场总量>ref(市场总量,1),ma10,drawnull),color0066ff,linethick2;
drawrectrel(0,00,580,990,rgb(80,00,100));
drawtext_fix(currbarscount=1,0.00,0.55,0,'■ 主力筹码估算：'),coloryellow;
drawtext_fix(currbarscount=1,0.14,0.55,0,' ％'),colorffcc99;
drawnumber_fix(currbarscount=1,0.10,0.55,0,主力筹码估算),colorred; drawtext_fix(currbarscount=1,0.20,0.55,0,'■ 主力控盘比率：'),coloryellow;
drawtext_fix(currbarscount=1,0.34,0.55,0,' ％'),colorffcc99;
drawnumber_fix(currbarscount=1,0.30,0.55,0,主力控盘比率),colorred; 总股本:=strcat(strcat('总股本: ',con2str(totalcapital/1000000,2)),'亿');
流通盘:=strcat(strcat(' 流通盘: ',con2str(capital/1000000,2)),'亿');
全流通:=strcat(' 全流通: ',con2str((capital/1000000)/(totalcapital/1000000),2));
市值:=strcat(strcat(' 流通市值: ',con2str((capital/1000000)*c,2)),'亿');
上市日期:=strcat(' 上市日期天数: ',con2str(finance(42),0));
股本市值:=strcat('股本市值: ',strcat(strcat(strcat(strcat(总股本,流通盘),全流通),市值),上市日期));
{}
市盈率:=strcat('市盈率: ',con2str(c/finance(33),2));
市销率:=strcat(' 市销率: ',con2str(c/(finance(20)/finance(1)),2));
市净率:=strcat(' 市净率: ',con2str(c/finance(34),2));
净资收益率:=strcat(' 净资收益率: ',con2str(finance(33)/finance(34)*100,2));
毛利率:=strcat(' 毛利率: ',con2str((finance(20)-finance(21))/finance(20)*100,2));
净利润率:=strcat(' 净利润率 ',con2str(finance(30)/finance(20)*100,2));
主营利润率:=strcat(' 主营利润率 ',con2str(finance(23)/finance(20)*100,2));
当前业绩:=strcat('当前业绩: ',strcat(strcat(strcat(strcat(strcat(strcat(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));
{}
x1:=(finance(11)-finance(15))/finance(10)*1.2;
x2:=(finance(31)+finance(17))/finance(10)*1.4;{盈余公积用资本公积金代替};
x3:=finance(23)/finance(10)*3.3;
x4:=finance(19)/finance(15)*0.6;{缺长期负债或负债总额}
x5:=finance(20)/finance(15)*0.999;
z值:=x1+x2+x3+x4+x5;
预警:=if(z值<1.2,'重警',if(z值>=1.2 and z值<2.6,'轻警','无警'));
财务预警:=strcat(' 财务预警: ',strcat(预警,strcat(' -z值: ',con2str(z值,3))));
优质资产率:=strcat(' 优质资产率: ',con2str((finance(19)-finance(22)-finance(27))/finance(19),2));{理论上越大越好但不同行业有不同标准};
现金负债比:=strcat(' 现金负债比: ',con2str(finance(25)/finance(15),3));{缺长期负债或负债总额，理论上越大越好但不同行业有不同标准};
财务系数:=strcat('风险系数: ',strcat(strcat(财务预警,优质资产率),现金负债比));
{显示}
drawtext_fix(islastbar,0.005,0.01,0,财务系数),coloryellow;
drawtext_fix(islastbar,0.005,0.10,0,当前业绩),coloryellow;
drawtext_fix(islastbar,0.005,0.20,0,股本市值),colorred; drawtext_fix(currbarscount=1,0.00,0.35,0,'■每股净资产：'),colorred;
drawtext_fix(currbarscount=1,0.10,0.35,0,' 元'),colorffcc99;
drawnumber_fix(currbarscount=1,0.07,0.35,0,finance(34)),coloryellow; drawtext_fix(currbarscount=1,0.13,0.35,0,'■每股收益：'),colorred;
drawtext_fix(currbarscount=1,0.23,0.35,0,' 元'),colorffcc99;
drawnumber_fix(currbarscount=1,0.19,0.35,0,finance(33)),coloryellow; drawtext_fix(currbarscount=1,0.00,0.45,0,'■每股公积金：'),colorred;
drawtext_fix(currbarscount=1,0.10,0.45,0,' 元'),colorffcc99;
drawnumber_fix(currbarscount=1,0.07,0.45,0,finance(18)),coloryellow; drawtext_fix(currbarscount=1,0.13,0.45,0,'■未分利润：'),colorred;
drawtext_fix(currbarscount=1,0.23,0.45,0,' 元'),colorffcc99;
drawnumber_fix(currbarscount=1,0.19,0.45,0,finance(32)),coloryellow; drawtext_fix(currbarscount=1,0.27,0.35,0,'■每股现金流>0.4：'),colorred;
drawtext_fix(currbarscount=1,0.40,0.35,0,' 元 '),colorffcc99;
drawnumber_fix(currbarscount=1,0.37,0.35,0, finance(26)/(totalcapital*100)),coloryellow; drawtext_fix(currbarscount=1,0.27,0.45,0,'■每股经营现金流：'),colorred;
drawtext_fix(currbarscount=1,0.40,0.45,0,' 元'),colorffcc99;
drawnumber_fix(currbarscount=1,0.37,0.45,0, finance(25)/(totalcapital*100)),coloryellow;
drawtext_fix(currbarscount=1,0.43,0.35,0,'■离心轨迹：'),colorffcc99;
drawtext_fix(currbarscount=1,0.53,0.35,0,' 元'),colorffcc99;
drawnumber_fix(currbarscount=1,0.50,0.35,0,离心轨迹),colorred;
drawtext_fix(currbarscount=1,0.43,0.45,0,'■ 10日价：'),colorffcc99;
drawtext_fix(currbarscount=1,0.53,0.45,0,' 元'),colorffcc99;
drawnumber_fix(currbarscount=1,0.50,0.45,0,ma(c,10)),colorred; drawtext_fix(currbarscount=1,0.00,0.90,0,'■ 财务日期：'),colorred;
drawtext_fix(currbarscount=1,0.10,0.90,0,'季度 ■ 《股金道中》 股道qq群专用 2012.12.28 股灵子编辑 ma10日变色是筹码总量变化'),colorffcc99;
drawnumber_fix(currbarscount=1,0.08,0.90,0,finance(37)),colorred; {换手显示}
换手率:100*vol/capital,nodraw,colorligreen;
f:=mod(sum(100*vol/capital,0),100);
m:=(sum(100*vol/capital,0)-f)/100,linethick0;
tj:=f<ref(f,1),linethick0;
fd:=ref(barslast(tj),1)+1,linethick0; 今日换手率:=strcat(' ▲今日: ',con2str(sum(换手率,1),2));
二日换手率:=strcat(' ▲2日: ',con2str(sum(换手率,2),2));
三日换手率:=strcat(' ▲3日: ',con2str(sum(换手率,2),2));
五日换手率:=strcat(' ▲5日: ',con2str(sum(换手率,5),2));
n日换手率:=strcat(' ▲n日: ',con2str(sum(换手率,10),2));
全换到目前:=strcat(' ▲全换到目前: ',con2str(sum(换手率,fd),2));
一次换手率 :=strcat(' ▲全换天数： ',con2str(fd,0));
换手显示:=strcat('换手显示: ',strcat(strcat(strcat(strcat(strcat(strcat(今日换手率,二日换手率),三日换手率),五日换手率),n日换手率),全换到目前),一次换手率));
{显示};
drawtext_fix(islastbar,0.000,0.75,0,换手显示),coloryellow; tag:副图 源码
|
