一个绝对有用的K线公式，让基本面一览无余

兼实 2017-07-18

展开全文

福利来了，我给大家整理了一个公式，你只要按后面的方法，放到你的通达信软件中去，然后输入jbm(基本面的缩写），就能在日k线图上一眼就看到你想要的信息，非常的方便！

先来看两个实际效果的截图吧：

无论你怎么缩放你的K线，显示的文字的位置都不变。

图中我还加入了涨停提示（黄色柱为涨停），另外还加入MACD金叉死叉和KDJ金叉死叉的提示信息，协助你做决策。

来看公式：

MA5:MA(CLOSE,5);
MA10:MA(CLOSE,10);
MA20:MA(CLOSE,20);
MA30:MA(CLOSE,30);
MA60:MA(CLOSE,60);

DRAWTEXT_FIX(1,0.05,0.02,0,HYBLOCK),COLORGREEN;
DRAWTEXT_FIX(1,0.05,0.05,0,GNBLOCK),COLORGREEN;
DRAWTEXT_FIX(1,0.05,0.08,0,DYBLOCK),COLORGREEN;

GJZF:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1) * 100;
STICKLINE(GJZF>9.5,OPEN,CLOSE,1,0),COLORYELLOW;

DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资：')COLORWHITE;
DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1))COLORWHITE;
DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：')COLORWHITE;
DRAWTEXT_FIX(1,0.09,0.08,0,EXTERNSTR(0,2))COLORWHITE;
总股本:=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.006,0.24,0,财务系数),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.006,0.32,0,当前业绩),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.006,0.40,0,股本市值),COLORWHITE;
D1:=YEAR AND MONTH AND DAY;
AAA1:=STRCAT(CON2STR(YEAR,0),'年');
AAA2:=STRCAT(CON2STR(MONTH,0),'月');
AAA3:=STRCAT(CON2STR(DAY,0),'日');
AAA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AAAA:=STRCAT(STRCAT(STRCAT(AAA1,AAA2),STRCAT(AAA3,AAA4)),'】');
DRAWTEXT_FIX(D1,0,1,0,AAAA),COLORGREEN;

DRAWTEXT(CROSS(MACD.DIF,MACD.DEA),LOW,'MACD金叉'),COLORYELLOW;
DRAWTEXT(CROSS(MACD.DEA,MACD.DIF),HIGH,'MACD死叉'),COLORWHITE;

DRAWTEXT(CROSS(KDJ.K,KDJ.D),LOW,'KDJ金叉'),COLORYELLOW;
DRAWTEXT(CROSS(KDJ.D,KDJ.K),HIGH,'KDJ死叉'),COLORWHITE;