通达信股道财务副图 源码

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