通达信股道财务副图 源码

股道财务(通达信公式编辑器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;