飞狐筹码分布副图

飞狐筹码分布副图

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;