r2p.m

i hope use every file i put here to evry one and thank >

function [mag,ang] = r2p(r)

mag = abs(r);
ang = angle(r);

if ang < 0
   ang = 2 * pi - abs(ang);
end