[a,b]=size(x)
for i=1:b
   y(i)=phiuk(x(i));z(i)=psim(x(i));zz(i)=phiug(x(i));zl(i)=phiug_large(x(i));
end;
