相關標簽:

?

控盤主圖+選股公式(第二版)源碼,說明說明:
控盤主圖是根據千鈞老師的控盤情況修改而來 包括 十大股東 各期報表股東人數及變化籌碼分布的三條線平均市場成本線選股公式包括股東人數減少和控盤在市場平均成本之上兩個條件調整控盤主圖源碼

?

流通_億: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;{程序化交易 www.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?