{2-户均持股:}{查找F10中股东人数的位置:}gdstar:=F10FIND('┃股东户数',1);
{取对应的数据资料:} gdw1:=F10FIND('┃04-09-30',gdstar);gdw2:=F10FIND('┃04-06-30',gdw1);
gdw3:=F10FIND('┃04-03-31',gdw3);gdw4:=F10FIND('┃03-12-31',gdw1);
{转换字符串为数值:} gdtx1:=F10TEXT(gdw1+28,8);gdtx2:=F10TEXT(gdw2+28,8);
gdtx3:=F10TEXT(gdw3+28,8);gdtx4:=F10TEXT(gdw4+28,8);
{转换字符串为数值:} gd1:=STRTONUM(gdtx1); gd2:=STRTONUM(gdtx2);
gd3:=STRTONUM(gdtx3); gd4:=STRTONUM(gdtx4);
{显示一:解盘显示户均持股}EXPLAIN(gdw1>1,'04-09-30 股/户:'+gdtx1);
EXPLAIN(gdw2>1,'04-06-30 股/户:'+gdtx2);
EXPLAIN(gdw3>1,'04-03-31 股/户:'+gdtx3);
EXPLAIN(gdw4>1,'03-12-31 股/户:'+gdtx4);
{显示二:对应显示户均持股在K线上:}
DRAWNUMBER(DATE=1041008,CLOSE,gd1,0),ALIGN4,COLORRED;
DRAWNUMBER(DATE=1040630,CLOSE,gd2,0),ALIGN4,COLORRED;
DRAWNUMBER(DATE=1040331,CLOSE,gd3,0),ALIGN4,COLORRED;
DRAWNUMBER(DATE=1031231,CLOSE,gd4,0),ALIGN4,COLORRED;
户均持股49:gd1;{2004 3季报户均持股量}
户均持46:gd2; {2004 2季报户均持股量}
户均持43:gd3; {2004 1季报户均持股量}
户均持312:gd4;{2003 年报户均持股量}
递增:gd1>gd2 and gd2>gd3 and gd3>gd4;
户均3至5千且递增:gd1>3000 and gd1<5000 and 递增;
{基于鹏搏资讯,因为F10资料经常变动,所以在变动后,需要对应调整,可做主图}
gdstar:=F10FIND('┃股东户数',1);
{查找F10中股东人数的位置}
gdw1:=f10find('┃04-09-30',gdstar);
gdw2:=f10find('┃04-06-30',gdw1);
gdw3:=f10find('┃04-03-31',gdw2);
gdw4:=f10find('┃03-12-31',gdw3);
{取对应的数据资料}
gdtx1:=F10TEXT(gdw1+10,8);gdtx2:=F10TEXT(gdw2+10,8);
gdtx3:=F10TEXT(gdw3+10,8);gdtx4:=F10TEXT(gdw4+10,8);
{转换字符串为数值}
gd1:=STRTONUM(gdtx1);gd2:=STRTONUM(gdtx2);
gd3:=STRTONUM(gdtx3);gd4:=STRTONUM(gdtx4);
{显示方法一:解盘显示股东人数变动}
EXPLAIN(gdw1>1,'04-09-30 总户数:'+gdtx1);
EXPLAIN(gdw2>1,'04-06-30 总户数:'+gdtx2);
EXPLAIN(gdw3>1,'04-03-31 总户数:'+gdtx3);
EXPLAIN(gdw4>1,'03-12-31 总户数:'+gdtx4);
{显示方法二:对应显示在 K 线上}
DRAWNUMBER(date=1040930,c,gd1,0),ALIGN5;
DRAWNUMBER(date=1040630,c,gd2,0),ALIGN5;
DRAWNUMBER(date=1040331,c,gd3,0),ALIGN5;
DRAWNUMBER(date=1031231,c,gd4,0),ALIGN5;
{显示方法三:对应显示为拄状线,附图时用}
STICKLINE(BETWEEN(date,1040929,1041231),gd1/10,gd1,8,0);
STICKLINE(BETWEEN(date,1040629,1040930),gd1/10,gd2,8,0);
STICKLINE(BETWEEN(date,1040330,1040630),gd1/10,gd3,8,0);
STICKLINE(BETWEEN(date,1031231,1040331),gd1/10,gd4,8,0);
|