function r2p(z)

mag = 1:length(z);
ang = 1:length(z);

for n=1:length(z);
   mag(n) = abs(z(n));
   ang(n) = angle(z(n))*180/pi;
   disp([num2str(mag(n)) '/' num2str(ang(n)) char(186)])
end
