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;
//{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
