通达信私人看股分时 T+0源码副图
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"<0;
qj7:="kdj.k">"kdj.d" and "kdj.d"<30;
qj8:="macd.dif"<"macd.dea";
qj9:="kdj.k"<"kdj.d" and "kdj.k">80;
特大: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;
