大智慧十大股东持股比例选股指标公式源码

大智慧十大股东持股比例选股指标公式源码

源码正文：

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