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

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

控盘主图源码

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