km:=kl-ku;
kk:=if(kl km,km+abs(kl-km),km-abs(kl-km));
kl1:=kl+50;
kk1:=kk+50;
集散上轨:=if(max(kl1,kk1) 100,100,max(kl1,kk1));
集散下轨:=if(min(kl1,kk1) 0,0,min(kl1,kk1));
短线活筹百分比:=(集散上轨+集散下轨)/2;
短线筹码集散:(集散上轨-集散下轨)2.5,stick;
短线筹码进出:=短线活筹百分比-50;
强弱系数:短线筹码进出2.5;
pt:if(ref(集散下轨,1) 17 and c=llv(c,7),50,0),colorred,linethick2;