公式网 股票指标公式源码分享 登录 注册
公式指标平网
未来函数检测
首页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 东财通公式 飞狐公式 操盘手公式 其他公式 公式解答 股票软件 股票池
当前位置:→ 公式网 > 飞狐公式 > 正文 → 正文

控盘主图+选股公式(第二版)源码,说明

发布时间:2016/7/21 6:04:15  浏览次数:

控盘主图+选股公式(第二版)源码,说明

说明:
控盘主图是根据千钧老师的控盘情况修改而来 包括 十大股东 各期报表股东人数及变化筹码分布的三条线平均市场成本线选股公式包括股东人数减少和控盘在市场平均成本之上两个条件调整

控盘主图源码

流通_亿: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;

 

控盘股选股公式源码

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;
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;

控盘主图+选股公式(第二版)源码,说明

资源下载链接   资源大小:unknow

手机移动版 - 关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - TOP
湘ICP备09016573号-3 增值电信业务经营ICP许可证:湘B2-20210269 湘公网安备43108102000039号
Copyright © GSZX.COM.CN ,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识