p2r.m

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

function [r,im]=p2r(mag,ph)
%P2R    Converts polar to rectangular co-ordinates.
%       P2R(MAG,PH) converts the magnitude and phase in
%       degrees to a complex vector or matrix.
%
%       [R,IM]=P2R(MAG,PH) returns the real and
%       imaginary parts separately.

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

r=mag.*exp(ph.*(sqrt(-1)*pi/180));
if nargout==2
   im=imag(r);
   r=real(r);
end