设置篇----怎么将一只股票的行业以及财务信息显示在主图上（1）

仅限于通达信软件

N:=STRCAT(CON2STR(YEAR,0),' 年 ');

Y:=STRCAT(CON2STR(MONTH,0),' 月 ');

R:=STRCAT(CON2STR(DAY,0),' 日 ');

SJ:=STRCAT(STRCAT(N,Y), R);

DRAWTEXT_FIX(C>0,0.85,0,0,SJ);

ZDT:=(C-REF(C,1))/REF(C,1)*100;

STICKLINE(ZDT>9.8,O,C,2,0),COLORRED;

STICKLINE(ZDT<-9.8,O,C,2,0),COLOR00FF00;

STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORFF00FF;

A:=IF(NAMELIKE('*ST'),1,0);

B:=IF(NAMELIKE('ST'),1,0);

D:=A+B;

STICKLINE(D AND C/REF(C,1)>=1.048,C,O,2,0),COLORRED;

STICKLINE(D AND C/REF(C,1)<=0.952,C,O,2,0),COLORGREEN;

板块类别:=STRCAT(STRCAT(STRCAT(STRCAT(DYBLOCK,HYBLOCK),FGBLOCK),ZHBLOCK),GNBLOCK);

DRAWTEXT_FIX(ISLASTBAR,0.005,0,0,板块类别),COLORGREEN;

DRAWTEXT_FIX(1,0,0.05,0,'当前业绩：'),COLOR38B0DE;

DRAWTEXT_FIX(1,0.05,0.05,0,'主营利润率：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.12,0.05,0,CONST(FINANCE(23)/FINANCE(20)*100)),COLORFF00FF;

DRAWTEXT_FIX(1,0.05,0.1,0,'净资收益率：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.12,0.1,0,CONST(FINANCE(33)/FINANCE(34)*100)),COLORFF00FF;

DRAWTEXT_FIX(1,0.05,0.15,0,'主营同比：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.12,0.15,0,CONST(FINANCE(44))),COLORFF00FF;

DRAWTEXT_FIX(1,0.05,0.2,0,'净利润率：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.12,0.2,0,CONST(FINANCE(30)/FINANCE(20)*100)),COLORFF00FF;

DRAWTEXT_FIX(1,0.05,0.25,0,'净利同比：'),COLORRED;

DRAWNUMBER_FIX(1,0.12,0.25,0,CONST(FINANCE(43))),COLORYELLOW;

DRAWTEXT_FIX(1,0.05,0.3,0,'市销率：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.12,0.3,0,CONST(C/(FINANCE(20)/FINANCE(1)))),COLORFF00FF;

DRAWTEXT_FIX(1,0.05,0.4,0,'市净率（防御性指标）：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.18,0.4,0,CONST(C/FINANCE(34))),COLORFF00FF;

DRAWTEXT_FIX(1,0.05,0.35,0,'毛利率：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.12,0.35,0,CONST((FINANCE(20)-FINANCE(21))/FINANCE(20))*100),COLORFF00FF;

DRAWTEXT_FIX(1,0.05,0.45,0,'市盈率（进取性指标）：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.18,0.45,0,CONST(C/FINANCE(33))),COLORFF00FF;

DRAWTEXT_FIX(1,0.175,0.05,0,'股本市值：'),COLOR38B0DE;

DRAWTEXT_FIX(1,0.225,0.05,0,'流通市值：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.275,0.05,0,CONST((CAPITAL/1000000)*C)),COLORFF00FF;

DRAWTEXT_FIX(1,0.225,0.1,0,'全流通：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.275,0.1,0,CONST((CAPITAL/1000000)/(TOTALCAPITAL/1000000))),COLORFF00FF;

DRAWTEXT_FIX(1,0.225,0.15,0,'流通盘：'),COLORRED;

DRAWNUMBER_FIX(1,0.275,0.15,0,CONST(CAPITAL/1000000)),COLORYELLOW;

DRAWTEXT_FIX(1,0.225,0.2,0,'总股本：'),COLORRED;

DRAWNUMBER_FIX(1,0.275,0.2,0,CONST(TOTALCAPITAL/1000000)),COLORYELLOW;

DRAWTEXT_FIX(1,0.225,0.25,0,'净利润：'),COLORRED;

DRAWNUMBER_FIX(1,0.275,0.25,0,CONST(FINANCE(30)/10000)),COLORYELLOW;

DRAWTEXT_FIX(1,0.225,0.3,0,'净益率：'),COLOR99CC32;

DRAWNUMBER_FIX(1,0.275,0.3,0,CONST(FINANCE(30)/FINANCE(19)*100)),COLORFF00FF;

DRAWTEXT_FIX(1,0.375,0.1,0,'每股资本公积金：'),COLORRED;

DRAWNUMBER_FIX(1,0.47,0.1,0,CONST(FINANCE(18))),COLORYELLOW;

DRAWTEXT_FIX(1,0.375,0.15,0,'每股未分配利润：'),COLORRED;

DRAWNUMBER_FIX(1,0.47,0.15,0,CONST(FINANCE(32))),COLORYELLOW;

DRAWTEXT_FIX(1,0.375,0.2,0,'每股净资产(最后防线)：'),COLORRED;

DRAWNUMBER_FIX(1,0.5,0.2,0,CONST(FINANCE(34))),COLORYELLOW;

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.325,0.05,0,财务系数),COLOR38B0DE;