筹码主图 股东人数选股公式 源码 说明

说明:
1.选股公式可以选出最近的f10信息中股东人数减少百分之二十的所有股票.(聚源资讯)
2.筹码主图解释
 图上的三根线其实就是当时的筹码分布的大致情况,最上面一根是筹码分布的上面20%筹码价位,中间一根是50%筹码价位,下面是80%筹码价位.
三根线的含义可以打开右侧的自带的移动筹码分布可以对比着看下大概.
筹码分布结合量价的运行可以观察长线资金动作.
主图的灰色文字是千钧老师的f10公式(聚源资讯),内容有:十大股东;本期和上期的股东人数变化情况;
我把主图中50%筹码位置打红,是因为觉得这个位置比较重要.可以操作的较为安全的股票,应该运行在红色带的上方,不应该在红线下方运行太久,并且在红线附近应该是缩量.
因为这是控制力较强的体现.

筹码主图源码：

//各种筹码线
cost(20),linethick2,colorgray;
cost(50),linethick2,colorred;
cost(80),linethick2,colorgray;
//mcst:市场成本均线
mcst:DMA(AMOUNT/(100*VOL),VOL/CAPITAL),linedot,colorred;
FILLRGN(mcst>cost(50),mcst,cost(50)),colorcc99cc;
FILLRGN(mcst<=cost(50),mcst,cost(50)),color9999cc;
//元旦主图的（一部分） 作者:千钧
DRAWTEXTEX(CLOSE,1,530,1,STRLEFT(BLKNAME,100)),ColorFFB060;
QSW:=F10FIND('控盘情况:',1);
IF QSW>0 THEN BEGIN
WZ1:=F10FIND('-',QSW)-4;
WZ2:=F10FIND('-',WZ1+20)-4;
WZ3:=F10FIND('公司简况',WZ1);
T1:=F10TEXT(WZ1,10);
T2:=IF(WZ2<WZ3,F10TEXT(WZ2,10),'');
LS:=14;
HS1:=STRTONUM(F10TEXT(WZ1+LS,10));
HS2:=IF(WZ2<WZ3,STRTONUM(F10TEXT(WZ2+LS,10)),0);
END;
DRAWTEXTEX(c,1,560,80,' 报表日期:'+t1+' 账户总数:'+NUMTOSTR(hs1,0)+' 户'),colorgray;
DRAWTEXTEX(c,1,560,180,' 报表日期:'+t2+' 账户总数:'+NUMTOSTR(hs2,0)+' 户'),colorgray;
hsc:=abs(hs1-hs2);hscb:=hsc/hs2*100;
DRAWTEXTEX(hs1>hs2,1,570,130,'市场筹码较上期分散'+' 增加'+NUMTOSTR(hsc,0)+'户'+NUMTOSTR(hscb,0)+'%'),Color00FF00;
DRAWTEXTEX(hs1<hs2,1,570,130,'市场筹码较上期集中'+' 减少'+NUMTOSTR(hsc,0)+'户'+NUMTOSTR(hscb,0)+'%'),Color0000FF;
//控盘情况(部分) 作者：千钧
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);{hj:=FINANCE(7)/gd1;}
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,10,'证券代码: '+STKLABEL+'\n\n证券名称:'+STKNAME),colorgray;
DRAWTEXTEX(c,1,0,80,'每股收益:'+'第 '+F10TEXT(QSz+50,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(c,1,0,120,'资产负债:'+'第 '+F10TEXT(QSq+52,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,160,'大股东占:'+NUMTOSTR(GD,2)+' %'),ColorAAAAAA;
KLINE(O,H,L,C,0);

 F10股东人数减少百分之二十选股公式

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);
g1:=LTRIM(F10TEXT(q1+14,10));g2:=LTRIM(F10TEXT(q2+14,10));
gd1:=STRTONUM(g1);gd2:=STRTONUM(g2);户数差:=gd1-gd2;
end;
户数减少:=-户数差/gd2*100;
选股:户数减少>20;