雨卓承与楚小妹结局:★★★超强奉献:股东人数变化公式(大智慧

来源:百度文库 编辑:九乡新闻网 时间:2024/04/25 12:13:41
★★★超强奉献:股东人数变化公式(大智慧)★★★

本文来自:理想论坛 www.55188.com 作者:战无不胜05 浏览:12098
原文:http://www.55188.com/viewthread.php?tid=1376053
新编的股东人数变化公式(大智慧),非常好用!!!
该公式花了我两天的时间,不过总算编写出来了,真麻烦,不过还算好用,给大家分享。
原码:
---------------------------
{n 60 1 1000}
c2:=f10text(b1+41,11);
d1:=f10find('股东人数',500);
d2:=f10text(b1+53,11);

最新日期:STRTONUM(r4+r5+r6),PRECIS0,LINETHICK0;
最新人数:STRTONUM(a2),PRECIS0,LINETHICK0;
上1季:STRTONUM(b2),PRECIS0,LINETHICK0;
上2季:STRTONUM(c2),PRECIS0,LINETHICK0;
上3季:STRTONUM(d2),PRECIS0,LINETHICK0;
股东增减:(最新人数-上1季)/上1季,colorred,LINETHICK0;
w:=BARSLAST(DISPSTATUS=1);
x:=max(最新人数,上1季,上2季,上3季);
h1:=f10find('人均持流通股',500);
h2:=f10text(h1+17,10);
h3:=STRTONUM(h2);

DRAWTEXT(w=n-17,x/2,'股东人数变化:'),coloryellow;
STICKLINE(w=n,0,最新人数,6,0);
STICKLINE(w=n-2,0,上1季,6,0);
STICKLINE(w=n-4,0,上2季,6,0);
STICKLINE(w=n-6,0,上3季,6,0);
人均持股比例:h3*10000/(CAPITAL*100);

----------------------------

说明:
使用以上公式请注意:

1.该公式需从F10资料提取数据,因此,必须有相关股票的F10资料;
2.由于大智慧F10资料的文件名为600001.001格式,使用公式前,请将该格式改为600001.txt格式,可以使用批量改文件名后缀软件(注意保存原有格式文件!)。F10文件在文件夹x:\dzh2\data\sh\BASE及x:\dzh2\data\sz\BASE目录下。F10资料更新后需重新更改后缀以保持数据最新,这是本公式的缺憾,暂时没有想出办法。
3.该公式由于采用DISPSTATUS函数,因此该公式在大智慧软件窗口显示60根日K线时效果最好,如果窗口显示小于60个日K线,可以调整公式参数n,否则会造成公式显示的柱形线不全。
4.公式中显示的股东增减表示最新一期与上一期股东人数增减比例,单位为百分之,人均持股比例表示人均持流通股与所以流通股比例,单位为万分之。
5.该公式还有一些不完善之处,敬请高手改进。