function [r,fi]=polarni(x,y)
  r=sqrt(x.^2+y.^2);
  fi=atan2(y,x);
endfunction
