〖主力持籌〗新二版II

作者：飛狐來源：cxh99.com 發布時間：2020年08月26日

相關標簽:

DRAWGBK(C>0, COLORRGB(0,30,100),COLORRGB(50,80,30),1);
{主力籌碼估算}
v1:=INTPART(SUM(V,0)/CAPITAL);
t1:=v1>REF(v1,1) or BARSSINCE(CLOSE)=0;
S1:=BARSLAST(t1)+1;
t2:=S1<ref(S1,1);
S2:=if(t2,ref(S1,1)+1,S1);
S3:=sum(t2,0);
階段總額（萬元）:=SUM(AMOUNT/10000,S2)*100;
階段總量（手）:=SUM(V,S2)*100;
階段成本（元）:=(階段總額（萬元）/(階段總量（手）/100));
DRAWTEXT(BARPOS=SYSPARAM(2),h,'■階段平均成本:'+NUMTOSTR(階段成本（元）[SYSPARAM(1)],2)+'(元)'),PXDN40,align4,COLORCYAN;{取點}
ZKa:=MA("KDJ.K#day"(30,10,10),3);
ZDa:=MA("KDJ.D#day"(30,10,10),3);
ZK:=FORCAST(ZKa,3);
ZD:=FORCAST(ZDa,3);{建倉統計}
換手率:=v/FINANCE(7),PRECISION2;
zJC:=FILTER(CROSS(ZK,ZD)&&ZD<30,13);
取點:=barslast(zJC);
吸籌區:=if(取點>0 and 取點<61,取點,0);
ZS1:=吸籌區;
ZS2:=吸籌區+1;
ZS3:=換手率/5;
ZSA:=IF(ZS1>0,sum((ZS3),吸籌區+1),0);
{控制畫線高度}
n1:=sysparam(3);
nn:=n1-sysparam(2)+1;
hh:=hhv(換手率,nn);
ll:=llv(換手率,nn);
最高:=hh[n1];
最低:=ll[n1];
中:=最低+(最高-最低)*0.5;{主力持籌}
換手率:=v/FINANCE(7),PRECISION2;
凈買:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11)/2,PRECISION2;
當天增減:=凈買,PRECISION2;
主力增減:=當天增減/FINANCE(7),PRECISION2;
主力倉量:=sum(凈買,0),PRECISION2;
總:=凈買;
p:=SYSPARAM(1);三天前倉:=ref(主力倉量,3);
五天前倉:=ref(主力倉量,5);
十天前倉:=ref(主力倉量,10);
廿天前倉:=ref(主力倉量,20);三天增減:=主力倉量-三天前倉,PRECISION2;
五天增減:=主力倉量-五天前倉,PRECISION2;
十天增減:=主力倉量-十天前倉,PRECISION2;
廿天增減:=主力倉量-廿天前倉,PRECISION2;FILLRGN(五天增減>0,五天增減,0),Color000099;
FILLRGN(五天增減<0,五天增減,0),Color009900;AA0:=當天增減/CAPITAL*100,PRECISION2;
AA3:=三天增減/CAPITAL*100,PRECISION2;
AA5:=五天增減/CAPITAL*100,PRECISION2;
AA10:=十天增減/CAPITAL*100,PRECISION2;當日換手:VOL/CAPITAL*100,COLORWHITE,linethick0,PRECISION2;
周換手:SUM(VOL,5)/CAPITAL*100,COLORYELLOW,linethick0,PRECISION2;
月換手:SUM(VOL,21)/CAPITAL*100,COLORCYAN,linethick0,PRECISION2;
半年換手:SUM(VOL,123)/CAPITAL*100,COLORMAGENTA,linethick0,PRECISION2;{柱線}
{周倉}
三天增減周:=SUM(三天增減 ,5);
五天增減周:=SUM(五天增減 ,5);
十天增減周:=SUM(十天增減 ,5);STICKLINE(BARPOS=DATACOUNT-36,0,三天增減[p],18,0),COLOR009900;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增減[p],15,0),COLOR00AA00;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增減[p],10,0),COLOR00BB00;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增減[p], 8,0),COLOR00CC00;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增減[p], 5,0),COLOR00DD00;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增減[p], 1,0),COLORGREEN;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增減周[p]*0.1,10,0),COLORWHITE;
STICKLINE(BARPOS=DATACOUNT-36,0,三天增減周[p]*0.1,7,0),COLORGREEN;STICKLINE(BARPOS=DATACOUNT-33,1,五天增減[p],18,0),COLOR000099;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增減[p],15,0),COLOR0000AA;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增減[p],10,0),COLOR0000BB;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增減[p], 8,0),COLOR0000CC;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增減[p], 5,0),COLOR0000DD;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增減[p], 1,0),COLORRED;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增減周[p]*0.1,10,0),COLORWHITE;
STICKLINE(BARPOS=DATACOUNT-33,1,五天增減周[p]*0.1,7,0),COLORRED;STICKLINE(BARPOS=DATACOUNT-30,0,十天增減[p],18,0),COLOR0099FF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增減[p],15,0),COLOR00AAFF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增減[p],10,0),COLOR00BBFF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增減[p], 8,0),COLOR00CCFF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增減[p], 5,0),COLOR00DDFF;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增減[p], 1,0),Coloryellow;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增減周[p]*0.1,10,0),COLORWHITE;
STICKLINE(BARPOS=DATACOUNT-30,0,十天增減周[p]*0.1,7,0),Coloryellow;
DRAWTEXT(BARPOS=DATACOUNT-37 ,三天增減[p],'三\n天\n增\n減'),PXUP82,align5,COLORRED;
DRAWTEXT(BARPOS=DATACOUNT-34 ,五天增減[p],'五\n天\n增\n減'),PXUP82,align5,ColorFFFFFF;
DRAWTEXT(BARPOS=DATACOUNT-31 ,十天增減[p],'十\n天\n增\n減'),PXUP82,align5,Color00FF00;機構線:=MA((EXTDATA(9)+EXTDATA(10)+EXTDATA(11)/2),5)*5,PRECISION2;
機構短線:FORCAST(機構線,5),COLORRED,LINETHICK2;
機構中線:FORCAST(機構線,34),COLORGREEN,LINETHICK2;PARTLINE(RANGE(BARPOS,SYSPARAM(2),SYSPARAM(1)+1)&&ZS1>0,中),COLORCYAN;DRAWTEXT(zJC,中,'↑\n☆\n重\n點\n關\n注'),PXDN120,align3,COLORRED;
DRAWTEXT(zJC,中,'↑\n☆\n重\n點\n關\n注'),PXDN122,align3,COLORRED;
DRAWTEXT(zJC,中,'⊙←重點關注'),PXDN20,align4,COLORRED;
STICKLINE(zJC,8000,-1000,5,0),COLOR006600;
STICKLINE(zJC,8000,-1000,4,0),COLOR009900;
STICKLINE(zJC,8000,-1000,3,0),COLOR00BB00;
STICKLINE(zJC,8000,-1000,2,0),Color00EE00;
STICKLINE(zJC,8000,-1000,1,0),Colorgreen;
drawicon(zJC,8000*1.1,12);
drawicon(zJC,-1000*1.1,12);DRAWTEXT(BARSCOUNT(C)=SYSPARAM(1)&&SYSPARAM(1)>ZS1,中*2,' 建倉天數:'+NUMTOSTR(ZS1[SYSPARAM(1)],0)+'(天) '),PXDN50,align2,COLORGREEN;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(1)&&SYSPARAM(1)>ZS1,中*2,' \n 估算籌碼:'+NUMTOSTR(ZSA[SYSPARAM(1)],2)+'% '),PXDN55,align2,COLORMAGENTA;
DRAWICON(FILTER(CROSS(ZK,ZD),5),0,8),align5;
DRAWICON(FILTER(CROSS(ZD,ZK),5),0,9),align5;DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],' \n \n \n■當日換手：'+NUMTOSTR(當日換手[p],2)+'%'),PXDN6,align4,COLORGREEN;
DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],' \n \n \n \n■周換手：'+NUMTOSTR(周換手[p],2)+'%'),PXDN12,align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],' \n \n \n \n \n■月換手：'+NUMTOSTR(月換手[p],2)+'%'),PXDN18,align4,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],' \n \n \n \n \n \n■半年換手：'+NUMTOSTR(半年換手[p],2)+'%'),PXDN24,align4,COLORMAGENTA;DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],'代碼：'+STKLABEL+'　名稱：'+STKNAME+' 總股本：'+NUMTOSTR(FINANCE(1)/10000,4)+'(億股)'),PXDN8,align4,COLORFFDD00;
DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],'代碼：'+STKLABEL+'　名稱：'+STKNAME+' 流通盤：'+NUMTOSTR(FINANCE(7)/10000,4)+'(億股)'),PXDN8,align4,COLORFFDD00;
DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],' \n \n \n 三天增減：'+NUMTOSTR(三天增減[p],2)),PXDN6,align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],' \n \n \n \n ●五天增減：'+NUMTOSTR(五天增減[p],2)),PXDN12,align4,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],' \n \n \n \n \n ◆十天增減：'+NUMTOSTR(十天增減[p],2)),PXDN18,align4,COLORFFAA00;
DRAWTEXT(BARPOS=SYSPARAM(2),凈買[p],' \n \n \n \n \n \n ▼廿天增減：'+NUMTOSTR(廿天增減[p],2)),PXDN24,align4,COLOR00FF00;DRAWTEXT(BARPOS=SYSPARAM(2),總[p],' \n \n \n 當天增減比率：'+NUMTOSTR(AA0[p],2)),PXDN6,align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),總[p],' \n \n \n \n ●三天增減比率：'+NUMTOSTR(AA3[p],2)),PXDN12,align4,COLORYELLOW;
DRAWTEXT(BARPOS=SYSPARAM(2),總[p],' \n \n \n \n \n ◆五天增減比率：'+NUMTOSTR(AA5[p],2)),PXDN18,align4,COLORFFAA00;
DRAWTEXT(BARPOS=SYSPARAM(2),總[p],' \n \n \n \n \n \n ▼十天增減比率：'+NUMTOSTR(AA10[p],2)),PXDN24,align4,COLOR00FF00;重點關注:zJC,LINETHICK0;
短關:機構短線>ref(機構短線,1) and ref(機構短線,1)<ref(機構短線,2) and ref(機構短線,2)<ref(機構短線,3) and ref(機構短線,3)<ref(機構短線,4),LINETHICK0,colorffff00;▲:CROSS(ZK,ZD),LINETHICK0;
//

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