aa:=vol/((high-low)*2-abs(close-open));
买量:=if(close open,aa*(high-low),if(close open,aa*((high-open)+(close-low)),VOL/2)),linethick0,colorred;
卖量:=if(close open,0-aa*((high-close)+(open-low)),if(close open,0-aa*(high-low),0-vol/2)),linethick0,colorgreen;
进出量:=买量+卖量,color00ffff;stickline(进出量 0,0,进出量,1,0),colorff6600;
stickline(进出量 0,0,进出量,3,0),colorff9900;
stickline(进出量 0,0,进出量,1.5,0),colorffcc00;
stickline(进出量 0,0,进出量,0.5,0),colorcyan;
stickline(进出量 0,0,进出量,3,0),color000099;
stickline(进出量 0,0,进出量,3,0),color0000cc;
stickline(进出量 0,0,进出量,1.0,0),color0000ff;
stickline(进出量 0,0,进出量,0.5,0),colorcc66ff;n:=1;qj0:=(high+low+close)/3;
qj1:=if(high=low,1,high-max(open,close));
qj2:=if(high=low,1,max(close,open)-qj0);
qj3:=if(high=low,1,min(open,close)-low);
qj4:=if(high=low,1,qj0-min(close,open));
qj5:=vol/(if(high=low,4,high-low));
qj6:= macd.dif macd.dea and macd.dea
qj7:= kdj.k kdj.d and kdj.d
qj8:= macd.dif macd.dea
qj9:= kdj.k kdj.d and kdj.k
特大:qj4*qj5,nodraw;大单:qj3*qj5,nodraw;
中单:qj1*qj5,nodraw;小单:qj2*qj5,nodraw;
w1:=sum(大单,n)+sum(特大,n);w2:=sum(小单,n)+sum(中单,n);
量振1:=特大 大单 and 大单
量振2:=特大 小单 and 大单
标振1:=qj6 and qj7;
标振2:=qj8 and qj9;
a:=w1-w2;a0:=if(a 0,a,0);b0:=if(a 0,a,0);
stickline(a0,0,a0,1,0),color000044;
主力持仓:ema(100*(close-llv(low,34))/(hhv(high,34)-llv(low,34)),3),colorff00ff;
主力筹码集中度:(c)*100,colorred;