{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 递增;
|