指标功能：[B]国产软件[/B]
指标类型：简体中文
所需积分：0
推荐星级：
授权方式：共享版
公式大小：2.00 KB
更新时间：2013-03-12 09:18:00
公式简介:

说明:
控盘主图是根据千钧老师的控盘情况修改而来
包括
十大股东
各期报表股东人数及变化
筹码分布的三条线
平均市场成本线
选股公式
包括股东人数减少
和控盘在市场平均成本之上
两个条件调整
附图:见附件
源码:
主图:
流通_亿: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;






 

[url=http://www.goodgupiao.com/gupiaogongshi/26663.html][B]控盘主图+选股公式(第二版)(附图,源码,说明)[/B][/url]