[大智慧L2] 数据也搜索----F10查阅之【股东增减】（送出源码、4页119楼新增飞狐版本）

一品茶缘

数据也搜索----F10查阅之【股东增减】完美版本
【股东增减】指标，在本贴发布以后，有部分朋友提出更新麻烦问题，确实如此；
一品继续深入思考，改进编写思路，经过一周左右的修正，终于完全解决原来存在问题，编写出【股东增减】指标完美版本！
【股东增减】完美版优点：
①只需下载、更新财务数据，无需转换F10资料格式，指标即可自动读取个股任何周期的季报！包括第一季报、半年报、第三季报、年报等；
②只需调整时间周期，即可将该时间周期前的最后一次季报作为最新周期，自动往前寻找三个季报的人数进行显示，并对比最后一次股东人数变化情况；
③黑板式文字提示、柱状体数据提示，直观明了，效果更佳。
现将一品指标【股东增减】完美版本奉送给喜欢的朋友，该指标为最后定稿。源码奉送！
提醒：个别个股出现自动读取季报信息滞后一个周期现象，即无法读取最后一次季报，而是前次季报；只有个别现象，故不再考虑。
特别提醒：大智慧L2【股东查询】+【股东增减】整合指标，请到研究心得区2009一品品股一帖查阅；飞狐版本【股东查询】指标，请参阅本贴4页119楼。

{股东增减----创幻论坛一品茶缘编写，大智慧L2副图指标}
INPUT:N(2010,1990,3000),Y(1,1,12);

N1:=IF(Y>3,N,N-1);
N2:=IF(Y>6,N,N-1);
N3:=IF(Y>9,N,N-1);
一季报:=PFFINON(4253 ,N1 ,0331);
半年报:=PFFINON(4253 ,N2 ,0630);
三季报:=PFFINON(4253 ,N3 ,0930);
上年报:=PFFINON(4253 ,N-1,1231);
最新人数:IF(Y>9,三季报,IF(Y>6,半年报,IF(Y>3,一季报,上年报))),COLOR00FFFF,PRECIS0,linethick0;
上1季:IF(Y>9,半年报,IF(Y>6,一季报,IF(Y>3,上年报,三季报))),COLORFF00FF,PRECIS0,linethick0;
上2季:IF(Y>9,一季报,IF(Y>6,上年报,IF(Y>3,三季报,半年报))),COLOR00FF00,PRECIS0,linethick0;
上3季:IF(Y>9,上年报,IF(Y>6,三季报,IF(Y>3,半年报,一季报))),COLORFFFFFF,PRECIS0,linethick0;
股东增减％:IF(Y>9,(三季报-半年报)/半年报*100,IF(Y>6,(半年报-一季报)/一季报*100,
IF(Y>3,(一季报-上年报)/上年报*100,(上年报-三季报)/三季报*100))),COLOR0000FF,PRECIS2,linethick0;
人均持股:CAPITAL*100/最新人数,COLORFF6600,PRECIS2,linethick0;
持股比例:人均持股*100/CAPITAL,COLOR00FFFF,PRECIS2;

{以下设置副图柱体显示方式}
W:=BARSLAST(DISPSTATUS=1);
P:=BACKSET(BARSTATUS=2,W/2);
K:=BARSLAST(CROSS(P,0.5));
X:=max(最新人数,上1季,上2季,上3季);
STICKLINE(K=1,0-X/3,0-X/3,1,0),coloryellow,DOTLINE;
Y1:=CEILING((W-K)/10);
STICKLINE(K=0,0,上3季,8,0),colorffffff;
STICKLINE(K=Y1*1,0,上2季,8,0),color00ff00;
STICKLINE(K=Y1*2,0,上1季,8,0),colorff00ff;
STICKLINE(K=Y1*3,0,最新人数,8,0),coloryellow;
DRAWTEXT(K=0,0-X/10,'上3季'),colorffffff;
DRAWTEXT(K=Y1*1,0-X/10,'上2季'),color00ff00;
DRAWTEXT(K=Y1*2,0-X/10,'上1季'),colorff00ff;
DRAWTEXT(K=Y1*3,0-X/10,'最新'),coloryellow;

{以下设置股东人数增减情况点评}
DRAWRECTREL(0,0,320,1000,RGB(0,0,200));
DRAWTEXTREL(25,30,'股票名称:'+'【'+STKLABEL+' '+STKNAME+'】'),COLOR0000FF;
DRAWTEXTREL(25,850,'====【创幻论坛の一品茶缘】===='),COLOR889999;
DRAWTEXTREL(10,200,'■最新周期:'+NUMTOSTRN(N,0)+'年'+NUMTOSTRN(Y,0)+'月'),COLORFFFFFF;
IF 股东增减％<-10 THEN BEGIN DRAWTEXTREL(10,350,'★股东人数大幅减少'+NUMTOSTRN(股东增减％,2)+'％,筹码快速集中!'),COLOR00FFFF;end;
IF 股东增减％>10 THEN BEGIN DRAWTEXTREL(10,350,'☆股东人数大幅增加'+NUMTOSTRN(股东增减％,2)+'％,筹码快速分散!'),COLORFF8800;end;
IF BETWEEN(股东增减％,0,-10) THEN BEGIN DRAWTEXTREL(10,350,'◆股东人数小幅减少'+NUMTOSTRN(股东增减％,2)+'％,筹码趋向集中!'),COLOR00FFFF;end;
IF BETWEEN(股东增减％,0,10) THEN BEGIN DRAWTEXTREL(10,350,'◇股东人数小幅增加'+NUMTOSTRN(股东增减％,2)+'％,筹码趋向分散!'),COLOR00AA00;end;
DRAWTEXTREL(10,500,'◇人均持股:'+NUMTOSTRN(人均持股,2)+'股,占流通盘万分之:'+NUMTOSTRN(持股比例,2)),colorff00ff;
IF 持股比例>1 THEN BEGIN DRAWTEXTREL(10,650,'★人均持股比例极高,筹码高度集中!'),color0000ff;end;
IF BETWEEN(持股比例,0.5,1) THEN BEGIN DRAWTEXTREL(10,650,'☆人均持股比例较高,筹码相对集中!'),coloryellow;end;
IF BETWEEN(持股比例,0.1,0.5) THEN BEGIN DRAWTEXTREL(10,650,'◆人均持股比例较低,筹码相对分散!'),color00AA00;end;
IF 持股比例<0.1 THEN BEGIN DRAWTEXTREL(10,650,'◇人均持股比例极低,筹码极度分散!'),colorff6600;end;

{参数精灵：
===最新周期: Param#1 年 Param#2 月===};

==========================以下内容为旧版本【股东增减】指标============================

帖子缘起：
见到网络有朋友发帖求助，需要寻找股东增减变化的指标，并希望能够自动选股；
数据能搜索吗？一品通过网络查阅，稍有所得但不甚详尽；一品适当参考并修改、优化，同时加入简单点评，取名【股东增减】，提供给需要的朋友参考。
=========================================================
【股东增减】指标使用说明：
1、该指标需要引用F10资料，必须先下载完整的F10资料；而目前的大智慧L2数据下载，已经没有提供F10资料的功能！
解决方法：
①手动翻阅所有个股的F10资料一遍，以便软件自动下载；----我自己是这样做的，F10右边有个箭头，可以翻阅下一个个股的F10资料。
②到网上下载最新的F10资料。
2、指标引用的F10资料，必须是*.txt格式的记事本文件，而目前大智慧L2软件自动保存的F10文件格式是*.001格式；因此，需要借助程序或者软件，将后缀名为*.001格式的所有F10资料，批量修改为*.txt格式的记事本文件。
-----------------------------------------------------------------------------------------------
批量修改后缀名程序与修改方法如下：
①新建一个txt文本文件，将下列两行代码复制到记事本中，并保存为“批量修改后缀名程序.bat”；
@echo off
ren *.001 *.txt
注：.001 是当前的文件后缀名 ；.txt是要转换的后缀名。
将此文本文件保存为“批量修改后缀名程序.bat ”。
（批量修改文件后缀名，都可以利用这种简易的方法，只要将*.001 *.txt修改成您需要的文件后缀名就可以了。）
②将上述文件 “批量修改后缀名程序.bat ” 复制到 大智慧L2软件保存F10资料的两个文件夹中，分别是：上海：E:\大智慧雨杨先生509版\data\sh\BASE；深圳：E:\大智慧雨杨先生509版\data\sz\BASE；
（安装软件的路径，自己根据情况查找一下。）
③双击运行  “批量修改后缀名程序.bat ”  ，即可自动将所有*.001格式的F10资料，批量修改为*.txt格式的记事本文件。
------------------------------------------------------------------------------------------------
3、如果您还弄不明白以上两个步骤的操作，请到本贴2楼将一品已经修改后的.txt格式的F10资料记事本文件（请见附件），分别解压，并将里面的记事本格式的F10资料复制到大智慧L2软件保存F10资料的文件夹中，分别是：上海：E:\大智慧雨杨先生509版\data\sh\BASE；深圳：E:\大智慧雨杨先生509版\data\sz\BASE；（安装软件的路径，自己根据情况查找一下。）
完成以上步骤，您就可以通过附图指标【股东增减】，快速浏览每只个股F10资料提供的股东人数增减情况了。
特别提醒：
①【股东增减】情况只是来自F10资料之季报信息，与实际情况可能有滞后现象，无论数据、还是点评，都是相对的，还请不要过于相信；
②不需要选股的朋友，建议还是直接查阅软件中的F10更加便捷，无需指标；
③该指标中用到了一个未来函数，但仅仅是为了画柱线的需要，与股东人数、人均持股等数据均没有关系，不会影响指标显示的数据。
④【股东增减】最新情况，请及时翻阅F10中的操盘必读资料，并利用 “批量修改后缀名程序.bat ”将后缀名为*.001格式的所有F10资料，批量修改为*.txt格式的记事本文件。
⑤由于软件之间函数、F10资料的差异等，该指标只能提供大智慧L2版本，其他软件暂时无法实现。附件提供指标源码，欢迎其他朋友继续深入研究、优化、分享！
=====================================================
利用【股东增减】指标选股方法：
可直接利用【股东增减】指标显示出来的数据，自己设定条件选股。
如：选择股东人数大幅减少的目标，可以设定：股东增减％----小于----（-10），即可选出最新股东人数对比上1季度大幅减少-10%以上的所有个股。
又如：选择人均持股比例极高、筹码高度集中的目标，可以设定：人均持股比例----大于----1，即可选出人均持股比例占流通盘万分之一以上的所有个股。

图片引路：

[ 本帖最后由 一品茶缘 于 2010-4-15 12:36 编辑 ]

一品茶缘

下面提供一品已经修改后的.txt格式的F10资料记事本文件（请见附件），请需要的朋友下载、分别解压，并将里面的记事本格式的F10资料复制到大智慧L2软件保存F10资料的文件夹中，分别是：上海：E:\大智慧雨杨先生509版\data\sh\BASE；深圳：E:\大智慧雨杨先生509版\data\sz\BASE；（安装软件的路径，自己根据情况查找一下。）
上海：


图片参考：


[ 本帖最后由 一品茶缘 于 2009-11-4 22:05 编辑 ]

一品茶缘

深圳F10资料 .txt记事本格式文件。



[ 本帖最后由 一品茶缘 于 2009-11-4 21:14 编辑 ]

股局

一品茶缘老师附件在那？

心源意码

一品老师辛苦啦。

江南玉竹

谢谢一品老师，先支持一下，再看^_^

[ 本帖最后由 江南玉竹 于 2009-11-4 22:01 编辑 ]

静风

谢谢老师分享

所思

枪前10位

gf123456789

一品茶缘老师是高人！有通达信软件能用的吗？

JW0607

老师辛苦!!!

老先

老师辛苦

水晶月

老师辛苦了，谢谢

lingpf168

谢谢

林平平

装上了谢谢老师！！！！

老小孩

谢谢一品老师！