大智慧股东进出副图源码 主力增减尽收眼底

一张副图省去你来回翻F10的烦劳，直观、简洁让主力增减尽收眼底，只看不顶的不要                                   
                              《股东进出》
 INPUT:M(0);
 动态股东人数:extradata('散户线'),COLOR00C0C0,PRECIS0,LINETHICK0;
 季报:PFFINTERM( M),PRECIS0,LINETHICK0;
 DRAWRECTREL(0,920,1100,1100,0),COLOR0000C0,LAYER1;
 DRAWRECTREL(0,0,1100,1100,0),COLOR0000C0,LAYER1;
 DRAWRECTREL(0,0,1100,120,0),COLOR0000C0,LAYER1;
 流通盘万股:=CAPITAL/10000;
 aa:=(PFFIN(4002,0)/10000+PFFIN(4012,0)/10000+PFFIN(4022,0)/10000
 +PFFIN(4032,0)/10000+PFFIN(4042,0)/10000+PFFIN(4052,0)/10000+PFFIN(4062,0)/10000
 +PFFIN(4072,0)/10000+PFFIN(4082,0)/10000+PFFIN(4092,0)/10000)/流通盘万股;
 bb:=(PFFIN(4002,1)/10000+PFFIN(4012,1)/10000+PFFIN(4022,1)/10000+PFFIN(4032,1)/10000+PFFIN(4042,1)/10000+PFFIN(4052,1)/10000
 +PFFIN(4062,1)/10000+PFFIN(4072,1)/10000+PFFIN(4082,1)/10000+PFFIN(4092,1)/10000)/流通盘万股;
 DRAWRECTREL(0,0,40,925,0),COLOR0000C0,LAYER1;DRAWRECTREL(470,0,390,925,0),COLOR0000C0,LAYER1;DRAWRECTREL(620,0,540,925,0),COLOR0000C0,LAYER1;
 DRAWTEXTREL(5,35,'名次'),COLOR00FFFF;DRAWTEXTREL(120,35,'本  期 十  大  股  东  名  称'),COLOR00FFFF;DRAWTEXTREL(405,35,'增减情况'),COLORFF00FF;DRAWTEXTREL(480,35,'持股比例'),Color8080FF;DRAWTEXTREL(555,35,'前期比例'),colorwhite;DRAWTEXTREL(690,35,  '前  期 十  大  股  东  名  称'),COLOR00FFFF;
 DRAWTEXTREL(20,135,'1'),COLOR00FFFF; DRAWTEXTREL(45,135,PFSTR(4001,M)),COLOR00FF00;DRAWTEXTREL(410,135,PFSTR(4004,M)),COLORFF00FF;DRAWTEXTREL(485,135,STR(PFFIN(4003,M))),Color8080FF;DRAWTEXTREL(560,135,STR(PFFIN(4003,1))),colorwhite;DRAWTEXTREL(630,135,PFSTR(4001,1)),COLOR00FF00;
 DRAWTEXTREL(20,215,'2'),COLOR00FFFF; DRAWTEXTREL(45,215,PFSTR(4011,M)),COLOR00FF00;DRAWTEXTREL(410,215,PFSTR(4014,M)),COLORFF00FF;DRAWTEXTREL(485,215,STR(PFFIN(4013,M))),Color8080FF;DRAWTEXTREL(560,215,STR(PFFIN(4013,1))),colorwhite;DRAWTEXTREL(630,215,PFSTR(4011,1)),COLOR00FF00;
 DRAWTEXTREL(20,295,'3'),COLOR00FFFF; DRAWTEXTREL(45,295,PFSTR(4021,M)),COLOR00FF00;DRAWTEXTREL(410,295,PFSTR(4024,M)),COLORFF00FF;DRAWTEXTREL(485,295,STR(PFFIN(4023,M))),Color8080FF;DRAWTEXTREL(560,295,STR(PFFIN(4023,1))),colorwhite;DRAWTEXTREL(630,295,PFSTR(4021,1)),COLOR00FF00;
 DRAWTEXTREL(20,375,'4'),COLOR00FFFF; DRAWTEXTREL(45,375,PFSTR(4031,M)),COLOR00FF00;DRAWTEXTREL(410,375,PFSTR(4034,M)),COLORFF00FF;DRAWTEXTREL(485,375,STR(PFFIN(4033,M))),Color8080FF;DRAWTEXTREL(560,375,STR(PFFIN(4033,1))),colorwhite;DRAWTEXTREL(630,375,PFSTR(4031,1)),COLOR00FF00;
 DRAWTEXTREL(20,455,'5'),COLOR00FFFF; DRAWTEXTREL(45,455,PFSTR(4041,M)),COLOR00FF00;DRAWTEXTREL(410,455,PFSTR(4044,M)),COLORFF00FF;DRAWTEXTREL(485,455,STR(PFFIN(4043,M))),Color8080FF;DRAWTEXTREL(560,455,STR(PFFIN(4043,1))),colorwhite;DRAWTEXTREL(630,455,PFSTR(4041,1)),COLOR00FF00;
 DRAWTEXTREL(20,535,'6'),COLOR00FFFF; DRAWTEXTREL(45,535,PFSTR(4051,M)),COLOR00FF00;DRAWTEXTREL(410,535,PFSTR(4054,M)),COLORFF00FF;DRAWTEXTREL(485,535,STR(PFFIN(4053,M))),Color8080FF;DRAWTEXTREL(560,535,STR(PFFIN(4053,1))),colorwhite;DRAWTEXTREL(630,535,PFSTR(4051,1)),COLOR00FF00;
 DRAWTEXTREL(20,615,'7'),COLOR00FFFF; DRAWTEXTREL(45,615,PFSTR(4061,M)),COLOR00FF00;DRAWTEXTREL(410,615,PFSTR(4064,M)),COLORFF00FF;DRAWTEXTREL(485,615,STR(PFFIN(4063,M))),Color8080FF;DRAWTEXTREL(560,615,STR(PFFIN(4063,1))),colorwhite;DRAWTEXTREL(630,615,PFSTR(4061,1)),COLOR00FF00;
DRAWTEXTREL(20,695,'8'),COLOR00FFFF; DRAWTEXTREL(45,695,PFSTR(4071,M)),COLOR00FF00;DRAWTEXTREL(410,695,PFSTR(4074,M)),COLORFF00FF;DRAWTEXTREL(485,695,STR(PFFIN(4073,M))),Color8080FF;DRAWTEXTREL(560,695,STR(PFFIN(4073,1))),colorwhite;DRAWTEXTREL(630,695,PFSTR(4071,1)),COLOR00FF00;
 DRAWTEXTREL(20,775,'9'),COLOR00FFFF; DRAWTEXTREL(45,775,PFSTR(4081,M)),COLOR00FF00;DRAWTEXTREL(410,775,PFSTR(4084,M)),COLORFF00FF;DRAWTEXTREL(485,775,STR(PFFIN(4083,M))),Color8080FF;DRAWTEXTREL(560,775,STR(PFFIN(4083,1))),colorwhite;DRAWTEXTREL(630,775,PFSTR(4081,1)),COLOR00FF00;
 DRAWTEXTREL(15,855,'10'),COLOR00FFFF;DRAWTEXTREL(45,855,PFSTR(4091,M)),COLOR00FF00;DRAWTEXTREL(410,855,PFSTR(4094,M)),COLORFF00FF;DRAWTEXTREL(485,855,STR(PFFIN(4093,M))),Color8080FF;DRAWTEXTREL(560,855,STR(PFFIN(4093,1))),colorwhite;DRAWTEXTREL(630,855,PFSTR(4091,1)),COLOR00FF00;
 DRAWTEXTREL(20,950,'  股东人数增减比例:'+STR((PFFIN(4253,M)-PFFIN(4253,M+1))/PFFIN(4253,M+1)*100)+ '   人均持股增减比例: '+STR((PFFIN(4254,M)-PFFIN(4254,M+1))/PFFIN(4254,M+1)*100)+'   十大流通股东占流通股比例:'+NUMTOSTRN(aa,2)+'   前期 股东占流通股比例:'+NUMTOSTRN(bb,2)),COLOR00AAFF;