源码
{静态F10}
报告日期:=FINANCE2(1);
kpqk:=f10find('◆控盘情况◆',1000);
gdrs1:=f10find('股东人数',kpqk+1);
rjcg3:=f10find('人均持流通股',gdrs1+1);
gdrs:=f10find('股东人数',1);
静态股东人数:=strtonum(f10text(gdrs+17,11));
sjtq:=f10find('上季同期',1);
静态上季同期:=strtonum(f10text(gdrs+29,11));
静态股东增减:=(静态股东人数-静态上季同期);
静态股东增减％:(静态股东人数-静态上季同期)/静态上季同期*100,Color0000FF,PRECIS1,LINETHICK0;
rjcg:=f10find('人均持流通股',1);
人均持流通股:=strtonum(f10text(rjcg+17,10));
人均持股:=REF(CAPITAL/HOLDERNUM,0);
DRAWTEXTABS(20,90,'■报告日期:'+NUMTOSTRN(报告日期,0)+''),ColorFF00FF;
DRAWTEXTABS(145,90,'■静态股东人数:'+NUMTOSTRN(静态股东人数,0)+'户'),ColorFF00FF;
DRAWTEXTABS(295,90,'■静态上季同期:'+NUMTOSTRN(静态上季同期,0)+'户'),ColorFF00FF;
DRAWTEXTABS(450,90,'■静态股东增减:'+NUMTOSTRN(静态股东增减,0)+'户'),ColorFF00FF;
DRAWTEXTABS(600,90,'■静态人均持流通股:'+NUMTOSTRN(人均持流通股,0)+'股'),ColorFF00FF;
DRAWTEXTABS(766,90,'■静态机构评测人均持股:'+NUMTOSTRN(人均持股,0)+'手'),ColorFF00FF;
{动态F10}
流通盘大小:=FINANCE2(37)/10000;
DRAWTEXTABS(20,105,'■流通盘大小:'+NUMTOSTRN(流通盘大小,2)+'亿'),ColorFFFF00;
动态股东人数:extradata('散户线'),Color00FFFF,PRECIS0;
DRAWTEXTABS(145,105,'■动态股东人数:'+NUMTOSTRN(动态股东人数,0)+'户'),ColorFFFF00;
DRAWTEXTABS(295,105,'■当前股东人数:'+NUMTOSTRN(动态股东人数,0)+'户'),ColorFFFF00;
动态股东增减:=(动态股东人数-静态股东人数);
DRAWTEXTABS(450,105,'■动态股东增减:'+NUMTOSTRN(动态股东增减,0)+'户'),ColorFFFF00;
B:=动态股东人数/CAPITAL*100;
占流通盘:='占流通盘:'+CEILING(B)+'%';
控筹:=capital/extradata('散户线')*100;
动态控筹％:capital/extradata('散户线'),PRECIS2,Color00FF00,LINETHICK0;
DRAWTEXTABS(600,105,'■动态人均持流通股:'+NUMTOSTRN(控筹,0)+'股'),ColorFFFF00;
DRAWTEXTABS(766,105,'■动态资金控筹量'+占流通盘),ColorFFFF00;
动态股东增减％:(动态股东人数-静态股东人数)/静态股东人数*100,PRECIS2,ColorFFFFFF,LINETHICK0;
DRAWTEXTABS(20,120 ,'■■■ 趋 势 分 析：'),Color00FF00;
DRAWTEXTABS(145,120,'■静态股东人数:'+NUMTOSTRN(静态股东人数,0)+'户'),Color00FF00;
DRAWTEXTABS(295,120,'■静态股东增减:'+NUMTOSTRN(静态股东增减％,1)+'%'),Color00FF00;
DRAWTEXTABS(450,120,'■动态股东人数:'+NUMTOSTRN(动态股东人数,0)+'户'),Color00FF00;
DRAWTEXTABS(600,120,'■动态股东增减:'+NUMTOSTRN(动态股东增减％,2)+'%'),Color00FF00;
DRAWTEXTABS(766,120,'■介入资金动态控筹:'+NUMTOSTRN(动态控筹％,2)+'%'),Color00FF00;
