通达信公式——十大流通股东副图指标（附源码）

十大流通股东

{参数N自己设置}

N:=2;

DRAWRECTREL(0,0,998,998,RGB(0,0,10));

DRAWRECTREL(40,0,40,998,RGB(200,200,200));

DRAWRECTREL(470,0,470,998,RGB(200,200,200));

DRAWRECTREL(555,0,555,998,RGB(200,200,200));

DRAWRECTREL(635,0,635,998,RGB(200,200,200));

DRAWRECTREL(750,0,750,998,RGB(200,200,200));

DRAWRECTREL(0,100,998,100,RGB(200,200,200));

DRAWTEXT_FIX(ISLASTBAR,0.010,0.020,0,'序号'),COLOR0000FF;

HGH222:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(238)*100,2),' %　')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(247)/FINVALUE(239)*100,2),' %　')));

JGCGLXZJFX:=IF(FINONE(247,0,0)<FINONE(247,0,1) AND FINONE(247,0,1)<FINONE(247,0,2) AND FINONE(247,0,2)<FINONE(247,0,3),'连续三季度减少',IF(FINVALUE(247)>FINONE(247,0,1) AND FINONE(247,0,1)>FINONE(247,0,2) AND FINONE(247,0,2)>FINONE(247,0,3),'连续三季度增加',''));

DRAWTEXT_FIX(ISLASTBAR,0.755,0.555,0,STRCAT('3、共 ',STRCAT(CON2STR(FINVALUE(246),0),STRCAT(' 家机构，共持有 ',STRCAT(CON2STR(FINVALUE(247)/10000,2),' 万股'))))),COLORFF00FF;

DRAWTEXT_FIX(ISLASTBAR,0.760,0.642,0,HGH222),COLORFF00FF;

DRAWTEXT_FIX(ISLASTBAR,0.760,0.729,0,STRCAT('增幅 ',STRCAT(CON2STR((FINONE(247,0,0)-FINONE(247,0,1))/FINONE(247,0,1)*100,2),STRCAT(' % ',JGCGLXZJFX)))),COLORFF00FF;

环比增减3:=(FINONE(284,0,0)-FINONE(284,0,1))/FINONE(284,0,1)*100;

HG333:=IF(环比增减3>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 环比增减3,2)),' %　'),IF(环比增减3<0,VARCAT(VARCAT( '减少 ' ,VAR2STR(-环比增减3,2)),' %　'),' '));

GJDCGLXFX:=IF(FINONE(284,0,0)<FINONE(284,0,1) AND FINONE(284,0,1)<FINONE(284,0,2) AND FINONE(284,0,2)<FINONE(284,0,3),'连续三季度减少',IF(FINVALUE(284)>FINONE(284,0,1) AND FINONE(284,0,1)>FINONE(284,0,2) AND FINONE(284,0,2)>FINONE(284,0,3),'连续三季度增加',''));

DRAWTEXT_FIX(ISLASTBAR,0.755,0.816,0,STRCAT('4、国家队持 ',STRCAT(CON2STR(FINVALUE(284),2),STRCAT(' 万股，占流通盘 ',STRCAT(CON2STR(FINVALUE(284)*10000/FINVALUE(239)*100,2),' %　'))))),COLORFFFF00;

DRAWTEXT_FIX(ISLASTBAR,0.760,0.903,0,STRCAT('较上期 ',STRCAT(HG333,GJDCGLXFX))),COLORFFFF00;