软件名称：[B]股东持股趋势指标[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2011-08-10 02:01:31
软件简介:

input:阅读(1,1,1000); KLINE(O,H,L,C,1); ZXW:=F10FIND('【2.股东户数】',10); DRAWTEXTex(ZXW<=0,0,100,50,'本公式不适合该种F10资料。只适用于【港澳资讯】'),COLOREEFF; if ZXW<=0 then EXIT; ZXEND:=F10FIND('┘',ZXW);// bt1:F10FIND('｜ 截止日期 ',zxw),LINETHICK;   bt2:F10FIND('筹码集中度｜',bt1),LINETHICK;   bt22:F10FIND('筹码集中度 ｜',bt1),LINETHICK;          bt3:F10FIND('股东户数',bt1),LINETHICK;  tt3:=bt3-bt1; bt4:F10FIND('户均持股',bt1),LINETHICK;  tt4:=bt4-bt1; tt:if(bt2<=0,bt22+11,bt2+12)-bt1,LINETHICK; 表头:=F10TEXT(bt1,tt); 行数:(ZXEND-bt1)/tt,LINETHICK; VARIABLE:da[行数+1]:='',gb[行数+1]=''; NR:='';     KG:='  '; WZT:=ZXW;ii:=0; WHILE  WZT<ZXEND and ii<行数 DO BEGIN    WZT:=F10FIND('｜20',WZT+10); ii:=ii+1;    tx:=F10TEXT(WZT,0);    da[ii]:=NUMTOSTR(STRTONUM(strmid(tx,3,4))-1900,0)+strmid(tx,8,2)+strmid(tx,11,2);    gb[ii]:=strmid(tx,tt4-1,12); //tt3替代 股东户数    NR:=NR+if(ii>阅读 and  WZT<ZXEND,KG+tx+'('+NUMTOSTR(ii,0)+') '+' \n','');//+da[ii]+' '+gb[ii]    WZT:=WZT+20; end DRAWTEXTex(BARSTATUS=2,0,1,1,'   ■共'+NUMTOSTR(ii-1,0)+'个数据  \n  '+表头+'\n'+NR),COLORDDFE,ALIGN4; ggb:=STRTONUM(gb[ii]); for i=ii-1 downto 1 do    ggb:=if(BARPOS>1 and ref(date,1)<STRTONUM(da[ i ]) and date>=STRTONUM(da[ i ]),STRTONUM(gb[ i ]),ggb) ,color00ff00; POLYLINE(ref(ggb,1)=0 and ggb>0,ggb),color00ff00; bn:=barslast(ggb); 股东户数:ref(ggb,bn),color0000ff,LINETHICK; 变动率:=(股东户数/ref(股东户数,ref(bn,1)+2)-1)*100,LINETHICK; DRAWNUMBER(BARPOS>2 and bn=0,股东户数,变动率,1),pxup30,COLOR00ff00,ALIGN2; // 户数转存:if(BARPOS=2 or bn=0,股东户数,0),linethick1;//让转存自定义数据清晰

[url=http://www.70822.com/soft/sort013/sort02/down-37395.html]股东持股趋势指标[/url]