function p=gettran2(ym,wm,m,r,s,su) ;
[n,n0]=size(ym) ;
x=ym(:,ones(n,1)) ;
y=x' ;
w=wm(:,ones(n,1))' ;
c1=condnorm(y,x,m,r,s) ;
c2=unconorm(y,m,su) ;
p=(c1.*w)./c2 ;
sm=sum(p')' ;
p=p./sm(:,ones(n,1)) ;
