r2p.m

控制系统计算机辅助设计——MATLAB语言与应用(源代码）

function [mag,ph]=r2p(r,im)
%R2P    Converts rectangular to polar co-ordinates.
%       [MAG,PH]=R2P(C) converts complex vector or
%       matrix C to magnitude and phase in degrees.
%
%       [MAG,PH]=R2P(R,IM) converts the real, R,
%       and imaginary, IM, parts to polar form.
%       PH is in degrees.

%       Dr M.P. Ford 4th August 1987
% Copyright (c) 1987 by GEC Engineering Research Centre & Cambridge Control Ltd

i=sqrt(-1);
if nargin==2
   r=r+i*im;
end
mag=abs(r);
ph=imag(log(r)).*(180/pi);