建仓统计副图指标 源码 通达信

{换手100%}
SVOL:=INTPART(SUM(V,0)/CAPITAL);
TJ0:=SVOL>REF(SVOL,1) OR BARSSINCE(CLOSE)=0;
S1:=BARSLAST(TJ0)+1,COLORWHITE;{//时间1}
TJ2:=S1<REF(S1,1);{//取点}
S2:=IF(TJ2,REF(S1,1)+1,S1),COLORMAGENTA;{//时间2}
S3:=SUM(TJ2,0),COLORMAGENTA;
阶段总额万元:SUM(AMOUNT/10000,S2)*100,NODRAW,COLOR008BFA;{//换手100%成交额}
阶段总量:SUM(V,S2)*100,NODRAW,COLORCYAN;{//换手100%成交量}
阶段成本元:(阶段总额万元/(阶段总量/100)),NODRAW,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);}
ZK1:=KDJ.K#WEEK;
ZD2:=KDJ.D#WEEK;
ZF1:=MACD.DIF#WEEK;
ZA2:=MACD.DEA#WEEK;
{------------------☆功能开关--------------------}
{建仓统计}
换手率:100*V/CAPITAL,NODRAW,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:=ISLASTBAR;
NN:=N1-80+1;
HH:=HHV(换手率,NN);
LL:=LLV(换手率,NN);
最高:=HH;
最低:=LL;
中:=最低+(最高-最低)*0.5;
主力建仓天数:ZS1,NODRAW,COLORGREEN;
估算主力筹码:ZSA,NODRAW,COLORMAGENTA;
{-----------------【图解模板】---------------------}
{换手率}
换手冷清:STICKLINE(换手率<3,0,换手率,2,1),COLORWHITE;{//冷清}
换手活跃:STICKLINE(换手率>=3 AND 换手率<7,0,换手率,2,1),COLORYELLOW;{//活跃}
换手热烈:STICKLINE(换手率>=7,0,换手率,2,1),COLORRED;{//热烈}
{换手MA}
MA(换手率,13),COLOR0089FF;
MA(换手率,55),COLOR009900;
STICKLINE(JCD>0,最高,最低,0.1,0),COLORRED;
DRAWICON(FILTER(CROSS(ZF1,ZA2),5),0,4),;
DRAWICON(FILTER(CROSS(ZK1,ZD2),5),0,8),;
DRAWICON(FILTER(CROSS(ZD2,ZK1),5),0,9),;