飞狐主图选股指标公式源码 飞狐控盘主图选股指标公式第二版附图源码

　　南方财富网带来飞狐主图选股指标公式源码 飞狐控盘主图选股指标公式第二版附图源码：

　　说明：

　　控盘主图是根据千钧老师的控盘情况修改而来

　　包括

　　十大股东

　　各期报表股东人数及变化

　　筹码分布的三条线

　　平均市场成本线

　　选股公式

　　包括股东人数减少

　　和控盘在市场平均成本之上

　　两个条件调整

　　附图：见附件

　　源码：

　　主图：

　　流通_亿：FINANCE（ 7）/10000，LINETHICK，PRECISION2;

　　//各种筹码线

　　cost（20），linethick2，colorgray;

　　cost（80），linethick2，colorgray;

　　cmjz：=（cost（95）-cost（5））/（cost（95）+cost（5））*100;

　　筹码集中度：100-cmjz，colorblue，linethick;

　　DMA（AMOUNT/（100*VOL），VOL/CAPITAL），linedash，colorblack;

　　//控盘情况数字型 版权：一发千钧

　　variable： 户数差=0;

　　a：=F10FIND（‘【十大流通股东】：’，1）;

　　a0：=F10FIND（‘主要指标：’，1）;

　　c0：=F10FIND（‘控盘情况：’，a0）;

　　hs：=F10FIND（‘总户数’，500）;

　　IF c0》0 THEN BEGIN

　　q1：=F10FIND（‘201’，hs+10）;

　　q2：=F10FIND（‘201’，q1+40）;

　　q3：=F10FIND（‘201’，q2+40）;

　　q4：=F10FIND（‘201’，q3+40）;

　　g1：=LTRIM（F10TEXT（q1+14，10））;

　　g2：=LTRIM（F10TEXT（q2+14，10））;

　　g3：=LTRIM（F10TEXT（q3+14，10））;

　　g4：=LTRIM（F10TEXT（q4+14，10））;

　　gd1：=STRTONUM（g1）;

　　gd2：=STRTONUM（g2）;

　　gd3：=STRTONUM（g3）;

　　gd4：=STRTONUM（g4）;

　　户数差1：=gd1-gd2;

　　户数差2：=gd2-gd3;

　　户数差3：=gd3-gd4;

　　end;

　　DRAWTEXTEX（c，1，570，20，‘ 本期：’+numtostr（gd1，2）），colorblack;

　　DRAWTEXTEX（c，1，570，50，‘ 上期：’+numtostr（gd2，2）），colorblack;

　　DRAWTEXTEX（c，1，570，80，‘ 前期：’+numtostr（gd3，2）），colorblack;

　　DRAWTEXTEX（c，1，570，110，‘ 早期：’+numtostr（gd4，2）），colorblack;

　　DRAWTEXTEX（c，1，570，150，‘ 股东流通比：’+numtostr（gd1/finance（7），2）），Colorred;

　　DRAWTEXTEX（c，1，670，20，‘ 本期减少：’+numtostr（-户数差1/gd2*100，2）），colorblue;

　　DRAWTEXTEX（c，1，670，50，‘ 上期减少：’+numtostr（-户数差2/gd3*100，2）），colorblue;

　　DRAWTEXTEX（c，1，670，80，‘ 前期减少：’+numtostr（-户数差3/gd4*100，2）），colorblue;

　　bb：=F10TEXT（c0+196，12）;

　　DRAWTEXTEX（c，1，670，150，‘报表日期：’+bb+‘日’）;

　　//十大股东

　　a：=F10FIND（‘【十大流通股东】：’，1）;a0：=F10FIND（‘主要指标：’，1）;

　　QSq：=F10FIND（‘按照资产负债率排名’，5000）;QSZ：=F10FIND（‘按照每股收益排名’，5000）;

　　GD：=STRTONUM（STRRIGHT（F10TEXT（F10FIND（‘占流通A股比例：’，500），22），8））;

　　a1：=F10FIND（‘ 1│’，a）;a2：=F10FIND（‘ 2│’，a1）;a3：=F10FIND（‘ 3│’，a2）;

　　a4：=F10FIND（‘ 4│’，a3）;a5：=F10FIND（‘ 5│’，a4）;a6：=F10FIND（‘ 6│’，a5）;

　　a7：=F10FIND（‘ 7│’，a6）;a8：=F10FIND（‘ 8│’，a7）;a9：=F10FIND（‘ 9│’，a8）;

　　a10：=F10FIND（‘10│’，a9）;

　　DRAWTEXTEX（C，1，130，0，‘’+F10TEXT（a1，0）+‘\n’+F10TEXT（a2，0）+‘\n’+F10TEXT（a3，0）

　　+‘\n’+F10TEXT（a4，0）+‘\n’+F10TEXT（a5，0）+‘\n’+F10TEXT（a6，0）+‘\n’+F10TEXT（a7，0）

　　+‘\n’+F10TEXT（a8，0）+‘\n’+F10TEXT（a9，0）+‘\n’+F10TEXT（a10，0）），colorgray;

　　DRAWTEXTEX（C，1，0，160，‘大股东占：’+NUMTOSTR（GD，2）+‘ %’），ColorAAAAAA;

　　var控盘股选股公式

　　iable： 户数差=0;

　　a：=F10FIND（‘【十大流通股东】：’，1）;

　　a0：=F10FIND（‘主要指标：’，1）;

　　c0：=F10FIND（‘控盘情况：’，a0）;

　　hs：=F10FIND（‘总户数’，500）;

　　IF c0》0 THEN BEGIN

　　q1：=F10FIND（‘201’，hs+10）;

　　q2：=F10FIND（‘201’，q1+40）;

　　q3：=F10FIND（‘201’，q2+40）;

　　q4：=F10FIND（‘201’，q3+40）;

　　g1：=LTRIM（F10TEXT（q1+14，10））;

　　g2：=LTRIM（F10TEXT（q2+14，10））;

　　g3：=LTRIM（F10TEXT（q3+14，10））;

　　g4：=LTRIM（F10TEXT（q4+14，10））;

　　gd1：=STRTONUM（g1）;

　　gd2：=STRTONUM（g2）;

　　gd3：=STRTONUM（g3）;

　　gd4：=STRTONUM（g4）;

　　户数差1：=gd1-gd2;

　　户数差2：=gd2-gd3;

　　户数差3：=gd3-gd4;

　　end;

　　jb：=-户数差1/gd2*100，linethick;

　　jq：=-户数差2/gd3*100，linethick;

　　jz：=-户数差3/gd4*100，linethick;

　　jj：=jb《》100 and jq《》100 and jz《》100;

　　//选股

　　lt：=capital/1000000;

　　hsltb：=gd1/finance（7）;

　　liangqi：=（jb+jq》=30 or jb+jq+jz》=40） and jj;

　　liangqir：=（jb+jq》=20） and jj;

　　中小盘波动：=liangqi and hsltb《0.65 and lt《15;

　　中盘强控：=liangqir and hsltb《0.2 and lt《30;

　　mm：=24;

　　一致性较好：=count（c》cost（50），mm）》=19;

　　选股：（中小盘波动 or 中盘强控） and 一致性较好，colorblue;

　　买入：选股 && c《cost（65），colorred;