通达信股道财务副图 源码

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