简单实用的散户线-(转载 源码)

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

{十大股东持股比例};

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;