通达信 Tdx 公式,显示年份刻度、行业、市值、主营等

{年份刻度显示}

ISYEAR:=YEAR-REF(YEAR,1)>0;
S:=H-L;
{PZ:=MIN6(L,MA250,MA120,MA60,MA20,MIN(MA10,MA5))-MA(S,5);}
PZ:=L*0.9;
STICKLINE(ISYEAR,0,PZ,0,-1),COLORC0C0C0;
{STICKLINE(ISYEAR,H+S,HHH+S,0,0),COLOR828282;}

HW:=IF(MONTH>=7,HHV(H,200),0);

DRAWTEXT(ISYEAR,PZ,VARCAT('& ',VAR2STR(YEAR,0))),COLORC0C0C0;
{年份刻度显示};

{显示名称行业市值}

{板块}
DRAWTEXT_FIX(ISLASTBAR,0.52,0,0,ZDBLOCK);{显示所属自定义板块信息}
DRAWTEXT_FIX(ISLASTBAR,0.52,1,0,ZDBLOCK);{显示所属自定义板块信息}

DRAWTEXT_FIX(ISLASTBAR,0 ,0,0,ZSBLOCK);{指数板块信息}
DRAWTEXT_FIX(ISLASTBAR,0.85,0.017,1,GNBLOCK);{概念板块信息}

{流通市值}
LTSZV:=FINANCE(40)/100000000;
LTSZ1:=CON2STR(LTSZV,0);
LTSZSTR:=STRCAT('市值',STRCAT(LTSZ1,'亿'));

{Z市值}
ZSZV:=FINANCE(46)/100000000;
ZSZ1:=CON2STR(ZSZV,0);
ZSZSTR:=STRCAT('Z市值',STRCAT(ZSZ1,'亿'));
SZSTR:=STRCAT6(LTSZSTR,' ',ZSZSTR,'','','');

{主营,市值}
S1:=STRCAT6('      [' ,MAINBUSINESS,' ',LEVEL1HYBLOCK,']     ',SZSTR);
S1S:=STRCAT(HYBLOCK,S1);
DRAWTEXT_FIX(ISLASTBAR,0.91,1,1,S1S);{右下角 主营,行业,市值}
DRAWTEXT_FIX(ISLASTBAR,0.91,0,1,S1S);{右上角 主营,行业,市值}

{价格和涨幅}
C1:=CON2STR(C,2);
ZFV:=(C-DYNAINFO(3))/DYNAINFO(3)*100;
ZF1:=IF(ZFV>0,' [+',' [');
ZF2:=STRCAT(ZF1,CON2STR(ZFV,2));
ZF3:=STRCAT(ZF2,'%]');
CZFSTR:=STRCAT(C1,ZF3);

DRAWTEXT(ISLASTBAR,(C+O)/2,STRCAT('  ',CZFSTR)),COLORFFFFFF;{价格涨幅随动指示};

S2:=STRCAT6(CZFSTR,'','','',' 板',CON2STR(DYNAINFO(90),0));
DRAWTEXT_FIX(ISLASTBAR,0.998,1,1,S2);{右下角 价格涨幅}
DRAWTEXT_FIX(ISLASTBAR,0.998,0,1,S2);{右下角 价格涨幅}

{名称}
DRAWTEXT_FIX(ISLASTBAR,0.5,0,1,STKNAME),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.5,1,1,STKNAME),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0  ,1,0,STKNAME),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.94  ,1,1,STKNAME),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.94,0,1,STKNAME),COLOR4080FF;

{显示名称行业市值};

评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值