十大流通股东 通达信副图公式 源码 贴图

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;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.120,0,'一'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.207,0,'二'),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.294,0,'三'),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.381,0,'四'),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.468,0,'五'),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.555,0,'六'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.642,0,'七'),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.729,0,'八'),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.816,0,'九'),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.903,0,'十'),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.18,0.020,0,'前十大流通股东名称'),COLOR0000FF;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.120, 0, EXTERNSTR(0,301) ),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.207, 0, EXTERNSTR(0,303) ),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.294, 0, EXTERNSTR(0,305) ),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.381, 0, EXTERNSTR(0,307) ),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.468, 0, EXTERNSTR(0,309) ),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.555, 0, EXTERNSTR(0,311) ),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.642, 0, EXTERNSTR(0,313) ),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.729, 0, EXTERNSTR(0,315) ),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.816, 0, EXTERNSTR(0,317) ),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.903, 0, EXTERNSTR(0,319) ),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.48,0.020,0,'持股量(万股)'),COLOR0000FF;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.120, 0, EXTERNVALUE(0,301) ),COLOR00FFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.207, 0, EXTERNVALUE(0,303) ),COLOR00FF00;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.294, 0, EXTERNVALUE(0,305) ),COLORFF00FF;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.381, 0, EXTERNVALUE(0,307) ),COLORFFFF00;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.468, 0, EXTERNVALUE(0,309) ),COLOR4080FF;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.555, 0, EXTERNVALUE(0,311) ),COLOR00FFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.642, 0, EXTERNVALUE(0,313) ),COLOR00FF00;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.729, 0, EXTERNVALUE(0,315) ),COLORFF00FF;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.816, 0, EXTERNVALUE(0,317) ),COLORFFFF00;
DRAWNUMBER_FIX(ISLASTBAR,0.480, 0.903, 0, EXTERNVALUE(0,319) ),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.56,0.020,0,'持股比例 %'),COLOR0000FF;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.120, 0, EXTERNVALUE(0,302) ),COLOR00FFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.207, 0, EXTERNVALUE(0,304) ),COLOR00FF00;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.294, 0, EXTERNVALUE(0,306) ),COLORFF00FF;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.381, 0, EXTERNVALUE(0,308) ),COLORFFFF00;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.468, 0, EXTERNVALUE(0,310) ),COLOR4080FF;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.555, 0, EXTERNVALUE(0,312) ),COLOR00FFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.642, 0, EXTERNVALUE(0,314) ),COLOR00FF00;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.729, 0, EXTERNVALUE(0,316) ),COLORFF00FF;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.816, 0, EXTERNVALUE(0,318) ),COLORFFFF00;
DRAWNUMBER_FIX(ISLASTBAR,0.575, 0.903, 0, EXTERNVALUE(0,320) ),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.655,0.020,0,'股东性质'),COLOR0000FF;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.120, 0, EXTERNSTR(0,302) ),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.207, 0, EXTERNSTR(0,304) ),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.294, 0, EXTERNSTR(0,306) ),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.381, 0, EXTERNSTR(0,308) ),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.468, 0, EXTERNSTR(0,310) ),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.555, 0, EXTERNSTR(0,312) ),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.642, 0, EXTERNSTR(0,314) ),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.729, 0, EXTERNSTR(0,316) ),COLORFF00FF;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.816, 0, EXTERNSTR(0,318) ),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.645, 0.903, 0, EXTERNSTR(0,320) ),COLOR4080FF;
DRAWTEXT_FIX(ISLASTBAR,0.85,0.020,0,'统计分析'),COLOR0000FF;
DRAWTEXT_FIX(ISLASTBAR,0.755,0.120,0,'1、前十大流通股东持股合计'),COLOR0000FF;
QSLTDGDCGBL:=EXTERNVALUE(0,302)+EXTERNVALUE(0,304)+EXTERNVALUE(0,306)+EXTERNVALUE(0,308)+EXTERNVALUE(0,310)
+EXTERNVALUE(0,212)+EXTERNVALUE(0,314)+EXTERNVALUE(0,316)+EXTERNVALUE(0,318)+EXTERNVALUE(0,320);
QSLTDGDCGSL:=EXTERNVALUE(0,301)+EXTERNVALUE(0,303)+EXTERNVALUE(0,305)+EXTERNVALUE(0,307)+EXTERNVALUE(0,309)
+EXTERNVALUE(0,311)+EXTERNVALUE(0,313)+EXTERNVALUE(0,315)+EXTERNVALUE(0,317)+EXTERNVALUE(0,319);
环比增减2:=(FINONE(244,0,0)-FINONE(244,0,1))/FINONE(244,0,1)*100;
HG111:=IF(环比增减2>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 环比增减2,2)),' %　'),IF(环比增减2<0,VARCAT(VARCAT( '减少 ' ,VAR2STR(-环比增减2,2)),' %　'),' '));
HGH111:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(244)/FINVALUE(238)*100,2),' %　')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(244)/FINVALUE(239)*100,2),' %　')));
SDLTGDCGLXFX:=IF(FINONE(244,0,0)<FINONE(244,0,1) AND FINONE(244,0,1)<FINONE(244,0,2) AND FINONE(244,0,2)<FINONE(244,0,3),'连续三季度减少',IF(FINVALUE(244)>FINONE(244,0,1) AND FINONE(244,0,1)>FINONE(244,0,2) AND FINONE(244,0,2)>FINONE(244,0,3),'连续三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR,0.760,0.207,0,STRCAT(STRCAT('持股比 ',STRCAT(CON2STR(QSLTDGDCGBL,2),' %　')),STRCAT('持股数 ',STRCAT(CON2STR(QSLTDGDCGSL,2),' 万股')))),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.760,0.294,0,HGH111),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.760,0.381,0,STRCAT('较上期 ',STRCAT(HG111,SDLTGDCGLXFX))),COLOR00FFFF;
GDRSLXZJFX:=IF(FINONE(242,0,0)<FINONE(242,0,1) AND FINONE(242,0,1)<FINONE(242,0,2) AND FINONE(242,0,2)<FINONE(242,0,3),'连续三季度减少',IF(FINVALUE(242)>FINONE(242,0,1) AND FINONE(242,0,1)>FINONE(242,0,2) AND FINONE(242,0,2)>FINONE(242,0,3),'连续三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR AND ((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1))<=0,0.755,0.468,0,STRCAT('2、本期股东较上期 ',STRCAT(CON2STR((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1)*100,2),STRCAT(' %，',GDRSLXZJFX)))),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR AND ((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1))> 0,0.755,0.468,0,STRCAT('2、本期股东较上期 ',STRCAT(CON2STR((FINVALUE(242)-FINONE(242,0,1))/FINONE(242,0,1)*100,2),STRCAT(' %，',GDRSLXZJFX)))),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;