筹码分布

input:n(70,1,100),w(10,1,100),ctl(10,1,99);
k:=(100-n)/2;
A1:=cost(n+k);
A2:=cost(k);
A3:=abs(a1-a2);
上轨:a1,PRECISION2,colorwhite,LINEDOT;
中线:(A1+A2)/2,PRECISION2,colorgreen;
下轨:a2,PRECISION2,colorwhite,LINEDOT;
带宽:100*A3/中线,linethick0,colorred;
//上偏移:100*(c-上轨)/上轨,PRECISION2,linethick0;
//下偏移:100*(下轨-c)/下轨,PRECISION2,linethick0;
PARTLINE(1,C),colorred,;
DRAWICON((带宽<w) and DATATYPE=6,下轨,5),ALIGN1;
var1:=带宽[datacount];
var2:=(带宽<var1*1.005) and (带宽>var1*0.995);
DRAWICON(var2,中线,9);
//穿透率
Var3:=100*VOL/CAPITAL;
Var4:=100*(WINNER(CLOSE)-REF(WINNER(CLOSE),1));
穿透率:Var4/Var3,PRECISION2,LINETHICK0,colorgreen;
最大穿透率:hhv(穿透率,20),PRECISION2,linethick0,COLORRED;
Var5:=穿透率>ctl;
DRAWICON(var5,上轨,4),ALIGN0;

浮筹比例:(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100,PRECISION2,colorgreen,linethick0;

DRAWTEXTEX(1,1,0,30,'总股本:'+NUMTOSTR(FINANCE(1),0)+'万 ' +' 流通A股:'+NUMTOSTR(FINANCE(7),0)+'万 '),COLORGREEN;
DRAWTEXTEX(1,1,0,200,'市盈率:'+NUMTOSTR(DYNAINFO(39),3)+'% '+' 每股收益:'+NUMTOSTR(FINANCE(33),3)+'元 '),COLORMAGENTA;
DRAWTEXTEX(1,1,0,370,'绿箭头表示筹码带宽小于设置值 '),COLORGREEN;
DRAWTEXTEX(1,1,0,540,'红箭头表示穿透率大于设置值 '),COLORred;