通达信采集实控人、财务数据、十大流通股东小工具 附主副图指标
{归属净利润}
VA1:=FINVALUE(0);
VA2:=INTPART(VA1/10000);
VA3:=VA1-VA2*10000;
VA4:=IF(VA3=1231,VA2,VA2-1);
净利润1:FINONE(95,VA4,1231)/100000000 NODRAW;
净利润2:FINONE(95,VA4-1,1231)/100000000 NODRAW;
净利润3:FINONE(95,VA4-2,1231)/100000000 NODRAW;
股东数:GPJYVALUE(1,1,1)/10000 NODRAW;
流通市值:C*FINVALUE(266)/100000000,NODRAW,COLORLIBLUE{亿};
当天流通值:=CAPITAL*C ;
交易额:=AMOUNT ;
交易占比:交易额/当天流通值 NODRAW;
每股收益:FINANCE(38) NODRAW;
利润比:FINANCE(43) NODRAW;
市盈TTM:DYNAINFO(40) NODRAW;
市盈动: DYNAINFO(39) NODRAW;
ZDJS:=IF(CODELIKE('880005'), 1, 0);
M10:=IF(ZDJS=0,MA(C,10),DRAWNULL);
M21:=IF(ZDJS=0,MA(C,21),DRAWNULL);
M25:IF(ZDJS=0,MA(C,25),DRAWNULL),COLORYELLOW;
M60:IF(ZDJS=0,MA(C,60),DRAWNULL),COLORRED;
M300:=IF(ZDJS=0,MA(C,300),DRAWNULL);
{填充线宽度}
W1:=3;
W0:=0;
{判断涨跌幅限制，涨跌停价格}
CYB:=IF(INBLOCK('创业板'), 1, 0);
ZDF:=IF(INBLOCK('科创板'),0.2,IF(INBLOCK('ST板块'), 0.05, 0.1));
ZT:=ZTPRICE(REF(CLOSE,1), ZDF);
DT:=DTPRICE(REF(CLOSE,1), ZDF);
ZT1:=ZTPRICE(REF(CLOSE,1), 0.1);
ZT2:=ZTPRICE(REF(CLOSE,1), 0.2);
DT1:=DTPRICE(REF(CLOSE,1), 0.1);
DT2:=DTPRICE(REF(CLOSE,1), 0.2);
{非创业板涨跌停}
NOCYB:=CYB=0 AND ZDJS=0;
STICKLINE((NOCYB AND C>=ZT AND C=H), O, C, W1, 0),COLORYELLOW;
STICKLINE((NOCYB AND C<=DT AND C=L), O, C, W1, 0),COLORGREEN;
STICKLINE((NOCYB AND L<=DT AND C<ZT AND C>L), L, C, 0, 0),COLORGREEN;{曾跌停阳线}
{炸板}
STICKLINE((NOCYB AND C<ZT AND H=ZT AND C>DT AND C<O),O, C, W1, 0), COLORFF4D88;
STICKLINE((NOCYB AND C<ZT AND H=ZT AND C>O), O, C, W1, 0), COLORFF4DFF;
{创业板改革日分割线}
GGR:=1200824;{改革日}
STICKLINE(DATE=GGR AND (CYB=1 OR CODELIKE('8808')), CONST(LLV(L,120)), CONST(HHV(H,120)), W0, 0),COLOR5C979C;
{创业板涨停跌停}
STICKLINE((CYB=1 AND DATE>=GGR AND C>=ZT2 AND C=H), O, C, W1, 0), COLORYELLOW;
STICKLINE((CYB=1 AND DATE<GGR AND C>=ZT AND C=H), O, C, W1, 0), COLORYELLOW;
STICKLINE((CYB=1 AND DATE<GGR AND C<=DT AND C=L), O, C, W1, 0), COLORGREEN;
{炸板}
STICKLINE((CYB=1 AND DATE<GGR AND C<ZT AND H=ZT AND C>DT AND C<O),O, C, W1, 0), COLORFF4DFF;
STICKLINE((CYB=1 AND DATE<GGR AND C<ZT AND H=ZT AND C>O), O, C, W1, 0), COLORFF4DFF;
STICKLINE((CYB=1 AND DATE>=GGR AND C<ZT AND H=ZT2 AND C>DT AND C<O),O, C, W1, 0), COLORFF4DFF;
{所有板块：涨跌幅大于10个点}
STICKLINE((C>ZT1 AND C<ZT2 AND C>O AND ZDJS=0), O, C, W1, 0), COLOR00AAFF;
STICKLINE((C<H AND C>ZT2 AND C>O AND ZDJS=0), O, C, W1, 0), COLOR0066CC;
STICKLINE((C<=DT1 AND C<O AND ZDJS=0), O, C, W1, 0), COLORGREEN;
{自定义数据}
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(1,0,0,0,'股东数据：')COLOR00CCFF;
DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,EXTERNSTR(0,503)),COLORYELLOW;{股东数据}
DRAWTEXT_FIX(1,0,0.05,0,'概念：')COLOR00CCFF;
DRAWTEXT_FIX(ISLASTBAR,0.05,0.05,0,STRCAT(Z3,GNBLOCK)),COLOR00CCFF;
DRAWTEXT_FIX(1,0,0.10,0,'实际控制人：')COLOR00CCFF;
DRAWTEXT_FIX(ISLASTBAR,0.05,0.10,0,EXTERNSTR(0,500)),COLORRED;{实控人}
DRAWTEXT_FIX(1,0,0.15,0,'公司亮点：')COLOR00CCFF;
DRAWTEXT_FIX(ISLASTBAR,0.05,0.15,0,EXTERNSTR(0,501)),COLORGREEN;{企业亮点}
DRAWTEXT_FIX(1,0,0.20,0,'主营业务：')COLOR00CCFF;
DRAWTEXT_FIX(ISLASTBAR,0.05,0.20,0,EXTERNSTR(0,502)),COLORGREEN;{个股股性};
未来函数检测结果如下：
该公式包含未来函数:CAPITAL
该公式包含未来函数:DYNAINFO
该公式包含未来函数:FINANCE
解密、编写股票、期货策略请联系QQ或微信同号：88652583
相关股票指标公式
原理解析：
{归属净利润}VA1赋值:FINVALUE(0)
VA2赋值:INTPART(VA1/10000)
VA3赋值:VA1-VA2*10000
如果VA3=1231返回VA2否则返回VA2-1
输出净利润1:FINONE(95,VA4,1231)/100000000 NODRAW
输出净利润2:FINONE(95,VA4-1,1231)/100000000 NODRAW
输出净利润3:FINONE(95,VA4-2,1231)/100000000 NODRAW
输出股东数:GPJYVALUE(1,1,1)/10000 NODRAW
输出流通市值:C*FINVALUE(266)/100000000,NODRAW,COLORLIBLUE{亿}
当天流通值赋值:当前流通股本*C
交易额赋值:成交额
输出交易占比:交易额/当天流通值 NODRAW
输出每股收益:FINANCE(38) NODRAW
输出利润比:FINANCE(43) NODRAW
输出市盈TTM:DYNAINFO(40) NODRAW
输出市盈动: DYNAINFO(39) NODRAW
ZDJS赋值:IF(CODELIKE('880005'), 1, 0)
M10赋值:IF(ZDJS=0,C的10日简单移动平均,DRAWNULL)
M21赋值:IF(ZDJS=0,C的21日简单移动平均,DRAWNULL)
输出M25:IF(ZDJS=0,C的25日简单移动平均,DRAWNULL),画黄色
输出M60:IF(ZDJS=0,C的60日简单移动平均,DRAWNULL),画红色
M300赋值:IF(ZDJS=0,C的300日简单移动平均,DRAWNULL)
{填充线宽度}W1赋值:3
W0赋值:0
{判断涨跌幅限制，涨跌停价格}CYB赋值:IF(INBLOCK('创业板'), 1, 0)
ZDF赋值:IF(INBLOCK('科创板'),0.2,IF(INBLOCK('ST板块'), 0.05, 0.1))
ZT赋值:ZTPRICE(1日前的收盘价, ZDF)
DT赋值:DTPRICE(1日前的收盘价, ZDF)
ZT1:=ZTPRICE(1日前的收盘价, 0.1)
ZT2:=ZTPRICE(1日前的收盘价, 0.2)
DT1:=DTPRICE(1日前的收盘价, 0.1)
DT2:=DTPRICE(1日前的收盘价, 0.2)
{非创业板涨跌停}NOCYB赋值:CYB=0 AND ZDJS=0
STICKLINE((NOCYB AND C>=ZT AND C=H), O, C, W1, 0),画黄色
STICKLINE((NOCYB AND C<=DT AND C=L), O, C, W1, 0),画绿色
STICKLINE((NOCYB AND L<=DT AND CL), L, C, 0, 0),画绿色
{曾跌停阳线}{炸板}STICKLINE((NOCYB AND CDT AND CSTICKLINE((NOCYB AND CO), O, C, W1, 0), COLORFF4DFF
{创业板改革日分割线}GGR赋值:1200824
{改革日}STICKLINE(DATE=GGR AND (CYB=1 OR CODELIKE('8808')), CONST(120日内L最低值), CONST(120日内H最高值), W0, 0),COLOR5C979C
{创业板涨停跌停}STICKLINE((CYB=1 AND DATE>=GGR AND C>=ZT2 AND C=H), O, C, W1, 0), 画黄色
STICKLINE((CYB=1 AND DATE=ZT AND C=H), O, C, W1, 0), 画黄色
STICKLINE((CYB=1 AND DATE{炸板}STICKLINE((CYB=1 AND DATEDT AND CSTICKLINE((CYB=1 AND DATEO), O, C, W1, 0), COLORFF4DFF
STICKLINE((CYB=1 AND DATE>=GGR AND CDT AND C{所有板块：涨跌幅大于10个点}STICKLINE((C>ZT1 AND CO AND ZDJS=0), O, C, W1, 0), COLOR00AAFF
STICKLINE((CZT2 AND C>O AND ZDJS=0), O, C, W1, 0), COLOR0066CC
STICKLINE((C<=DT1 AND C{自定义数据}Z1赋值:STRCAT(HYBLOCK,' ')
Z2赋值:STRCAT(Z1,DYBLOCK)
Z3赋值:STRCAT(Z2,' ')
当满足条件1时,在横轴0纵轴0位置书写文字
DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,EXTERNSTR(0,503)),画黄色
当满足条件1时,在横轴0纵轴0.05位置书写文字
DRAWTEXT_FIX(ISLASTBAR,0.05,0.05,0,STRCAT(Z3,GNBLOCK)),COLOR00CCFF
当满足条件1时,在横轴0纵轴0.10位置书写文字
DRAWTEXT_FIX(ISLASTBAR,0.05,0.10,0,EXTERNSTR(0,500)),画红色
当满足条件1时,在横轴0纵轴0.15位置书写文字
DRAWTEXT_FIX(ISLASTBAR,0.05,0.15,0,EXTERNSTR(0,501)),画绿色
当满足条件1时,在横轴0纵轴0.20位置书写文字
DRAWTEXT_FIX(ISLASTBAR,0.05,0.20,0,EXTERNSTR(0,502)),画绿色
{个股股性}
