相關標簽:

?

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

?

流通_億: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;
//控盤情況數(shù)字型 版權:一發(fā)千鈞
variable: 戶數(shù)差=0;
a:=F10FIND('【十大流通股東】:',1);
a0:=F10FIND('主要指標:',1);
c0:=F10FIND('控盤情況:',a0);
hs:=F10FIND('總戶數(shù)',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);
戶數(shù)差1:=gd1-gd2;
戶數(shù)差2:=gd2-gd3;
戶數(shù)差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(-戶數(shù)差1/gd2*100,2)),colorblue;
DRAWTEXTEX(c,1,670,50,' 上期減少:'+numtostr(-戶數(shù)差2/gd3*100,2)),colorblue;
DRAWTEXTEX(c,1,670,80,' 前期減少:'+numtostr(-戶數(shù)差3/gd4*100,2)),colorblue;
bb:=F10TEXT(c0+196,12);
DRAWTEXTEX(c,1,670,150,'報表日期:'+bb+'日');
//十大股東
a:=F10FIND('【十大流通股東】:',1);a0:=F10FIND('主要指標:',1);
QSq:=F10FIND('按照資產(chǎn)負債率排名',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: 戶數(shù)差=0;
a:=F10FIND('【十大流通股東】:',1);
a0:=F10FIND('主要指標:',1);
c0:=F10FIND('控盤情況:',a0);
hs:=F10FIND('總戶數(shù)',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);
戶數(shù)差1:=gd1-gd2;
戶數(shù)差2:=gd2-gd3;
戶數(shù)差3:=gd3-gd4;
end;
jb:=-戶數(shù)差1/gd2*100,linethick;
jq:=-戶數(shù)差2/gd3*100,linethick;
jz:=-戶數(shù)差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 }

?

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

?