function gamma=UF(x,chi,m)
y=chi*abs(m-x);
    gamma=1.0-(0.5925485)*(y.^.3333).*besselk(.33333,y);
end