通达信波段牛熊线主图 钱袋子信号趋势拐点 指标源码

DRAWTEXT_FIX(1,0.7,0,0,'所属板块:'),COLORFF6000;

DRAWTEXT_FIX(1,0.77,0,0,HYBLOCK),COLORRED;

DRAWTEXT_FIX(1,0.835,0,0,DYBLOCK),COLORYELLOW;

总股本:=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,财务系数),COLOR888888;

DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLOR888888;

DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLOR888888;

CTA1:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1),COLORWHITE;

天线:IF(MA(CLOSE,17)<CTA1,CTA1,MA(CLOSE,17)),COLORWHITE;

年线:=EMA(C,250);

砥柱:EMA((年线-(EMA(C,3)-年线)),5),LINETHICK2;

IF(天线=CTA1,天线,天线), COLORWHITE,DOTLINE,LINETHICK2;

MA250:=MA(CLOSE,250),COLOR0080FF,,DOTLINE;

中线:EMA(COST(81),10) COLORRED,LINETHICK2;

中线1:=EMA(COST(75),10) LINETHICK2;

牛熊线: EMA(COST(27),120), CIRCLEDOT,COLOR00FF00;

STICKLINE(CROSS(天线,砥柱),C,O,2,0),COLORMAGENTA;

DRAWICON(CROSS(天线,砥柱),L*1.002,9);

原理解析：
当满足条件1时,在横轴0.7纵轴0位置书写文字
当满足条件1时,在横轴0.77纵轴0位置书写文字
当满足条件1时,在横轴0.835纵轴0位置书写文字
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTAL当前流通股本/1000000,2)),'亿')
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(当前流通股本/1000000,2)),'亿')
全流通:=STRCAT(' 全流通: ',CON2STR((当前流通股本/1000000)/(TOTAL当前流通股本/1000000),2))
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((当前流通股本/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(财务预警,优质资产率),现金负债比))
当满足条件ISLASTBAR时,在横轴0.005纵轴0.01位置书写文字
当满足条件ISLASTBAR时,在横轴0.005纵轴0.06位置书写文字
当满足条件ISLASTBAR时,在横轴0.005纵轴0.115位置书写文字
CTA1赋值:收盘价的17日简单移动平均+收盘价的17日简单移动平均-REF(收盘价的17日简单移动平均,1),画白色
输出天线:IF(收盘价的17日简单移动平均 年线赋值:C的250日指数移动平均
输出砥柱:EMA((年线-(EMA(C,3)-年线)),5), 线宽为2
如果天线=CTA1返回天线否则返回天线
MA250赋值:收盘价的250日简单移动平均,COLOR0080FF,,DOTLINE
输出中线:EMA(获利盘为81%的成本分布,10) 画红色, 线宽为2
中线1:=EMA(获利盘为75%的成本分布,10) 线宽为2
输出牛熊线: EMA(获利盘为27%的成本分布,120), CIRCLEDOT,COLOR00FF00
STICKLINE(天线上穿砥柱,C,O,2,0),画洋红色
DRAWICON(天线上穿砥柱,L*1.002,9)