简单实用的散户线－（转载 源码）

{十大股东持股比例};

DRAWGBK(C,Strip(RGB(0,10,160),RGB(00,10,160),0));
报告日期:=FINANCE2(1);
DRAWTEXTABS(20,10,'■财务报告日期:'+NUMTOSTRN(报告日期,0)+'日'),Color0000FF,LINETHICK1;
流通盘万股:=CAPITAL/1000000;
DRAWTEXTABS(200,10,STKLABEL+' '+STKNAME),Color0000FF,LINETHICK2;
DRAWTEXTABS(330,10,'流通盘大小:'+NUMTOSTRN(流通盘万股,2)+'亿'),Color0000FF;
上期合计持股:=PFFINON(4251,2007,0331)/10000;
DRAWTEXTABS(20,30,'■十大股东上季合计持股:'+NUMTOSTRN(上期合计持股,2)+'万股'),Color00FFFF;
当前合计持股:=PFFINON(5251,2007,0631)/10000;
DRAWTEXTABS(20,50,'■十大股东当季合计持股:'+NUMTOSTRN(当前合计持股,2)+'万股'),Color00FF00;
上期持股比例:=PFFINON(4252,2007,0331);
DRAWTEXTABS(260,30,'■十大股东上季持股比例:'+NUMTOSTRN(上期持股比例,2)+'%'),Color00FFFF;
当前持股比例:=PFFINON(5252,2007,0631);
DRAWTEXTABS(260,50,'■十大股东当季持股比例:'+NUMTOSTRN(当前持股比例,2)+'%'),Color00FF00;
上期股东人数:=PFFINON(4253,2007,0331);
DRAWTEXTABS(460,30,'■上季股东人数:'+NUMTOSTRN(上期股东人数,0)+'户'),Color00FFFF;
当前股东人数:=PFFINON(5253,2007,0631);
DRAWTEXTABS(460,50,'■当季股东人数:'+NUMTOSTRN(当前股东人数,0)+'户'),Color00FF00;
上季人均持股:=PFFINON(4254,2007,0331);
DRAWTEXTABS(620,30,'■上季人均持股:'+NUMTOSTRN(上季人均持股,1)+'股'),Color00FFFF;
当季人均持股:=PFFINON(5254,2007,0631);
DRAWTEXTABS(620,50,'■当季人均持股:'+NUMTOSTRN(当季人均持股,1)+'股'),Color00FF00;
静态股东增减:=(当前股东人数-上期股东人数);
静态股东增减％:=(当前股东人数-上期股东人数)/上期股东人数*100;
{动态F10}
动态股东人数:extradata('散户线'),Color00FFFF,PRECIS0;
动态股东增减:=(动态股东人数-当前股东人数);
SFX:=extradata('散户线');
A:=CAPITAL*100/SFX;
B:=SFX/CAPITAL*100;
占流通盘:='占流通盘:'+CEILING(B)+'%';
人均持股:='人均持股:'+CEILING(A)+'手';
DRAWTEXTABS(460,10,'■控筹:'+人均持股),Color0000FF;
DRAWTEXTABS(620,10,'■当前人均持股'+占流通盘),Color0000FF;
股东增减％:(动态股东人数-当前股东人数)/当前股东人数*100,PRECIS2,ColorFFFFFF,LINETHICK0;
户均持股％:capital/extradata('散户线'),PRECIS2,Color00FF00,LINETHICK0;
DRAWTEXTABS(20,120 ,'■■■ 趋 势 分 析：'),ColorFFFFFF;
DRAWTEXTABS(148,120,'■静态股东人数:'+NUMTOSTRN(当前股东人数,0)+'户'),ColorFFFFFF;
DRAWTEXTABS(310,120,'■静态股东增减:'+NUMTOSTRN(静态股东增减％,1)+'%'),ColorFFFFFF;
DRAWTEXTABS(460,120,'■动态股东增减:'+NUMTOSTRN(股东增减％,2)+'%'),ColorFFFFFF;
DRAWTEXTABS(620,120,'■动态户均持股:'+NUMTOSTRN(户均持股％,2)+'%'),ColorFFFFFF;