相關標簽:

 

{換手100%}
svol:=INTPART(SUM(V,0)/CAPITAL);
tj0:=svol>REF(svol,1) or BARSSINCE(CLOSE)=0;
S1:=BARSLAST(tj0)+1,PRECISION,COLORWHITE;//時間1
tj2:=S1<ref(S1,1);//取點
S2:=if(tj2,ref(S1,1)+1,S1),PRECISION,COLORMAGENTA;//時間2
S3:=sum(tj2,0),COLORMAGENTA;
階段總額（萬元）:=SUM(AMOUNT/10000,S2)*100,PRECISION,LINETHICK,Color008BFA;//換手100%成交額
階段總量（手）:=SUM(V,S2)*100,PRECISION,LINETHICK,COLORCYAN;//換手100%成交量
階段成本（元）:=(階段總額（萬元）/(階段總量（手）/100)),LINETHICK,PRECISION2,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),h,'■階段平均成本:'+NUMTOSTR(階段成本（元）[SYSPARAM(1)],2)+'(元)'),align4,COLORCYAN;
//
{取點}
Zk1:=STKINDI('' ,'kdj.k',0,7);
Zd2:=STKINDI('' ,'kdj.d',0,7);
ZF1:=STKINDI('' ,'macd.diff',0,7);
ZA2:=STKINDI('' ,'macd.dea',0,7);
{------------------☆功能開關--------------------}
{建倉統計}
換手率:v/FINANCE(7),LINETHICK,PRECISION2,COLORCYAN;{換手率}
JCD:=FILTER(CROSS(Zk1,Zd2)&&Zd2<30,13);{周KD金叉位置}
取點:=barslast(JCD);
吸籌區:=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;
{-----------------【圖解模板】---------------------}
{換手率}
換手冷清:STICKLINE(換手率<3,0,換手率,4,1),COLORWHITE;//冷清
換手活躍:STICKLINE(換手率>=3 and 換手率<7,0,換手率,4,1),COLORYELLOW;//活躍
換手熱烈:STICKLINE(換手率>=7,0,換手率,4,1),COLORRED;//熱烈
{換手MA}
PARTLINE(C,MA(換手率,13)),Color0089FF;
PARTLINE(C,MA(換手率,55)),COLOR009900;

PARTLINE(RANGE(BARPOS,SYSPARAM(2),SYSPARAM(1)+1)&&ZS1>0,中),COLORCYAN;//建倉橫線
VERTLINE(JCD),LINEDOT,COLORGREEN;//建倉點豎線
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(1)&&SYSPARAM(1)>ZS1,中*2,' 主力建倉天數:'+NUMTOSTR(ZS1[SYSPARAM(1)],0)+'(天) '),PXDN30,align2,COLORGREEN;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(1)&&SYSPARAM(1)>ZS1,中*2,' \n 估算主力籌碼:'+NUMTOSTR(ZSA[SYSPARAM(1)],2)+'% '),PXDN30,align2,COLORMAGENTA;
DRAWICON(FILTER(CROSS(ZF1,ZA2),5),0,4),align5;
DRAWICON(FILTER(CROSS(Zk1,Zd2),5),0,8),align5;
DRAWICON(FILTER(CROSS(Zd2,Zk1),5),0,9),align5;{程序化交易 www.weiqiv.net.cn }