program_3_8.m

这是国外一本经典教材附带的程序

% Program 3_8
% Determination of the Rational z-Transform
% from its Poles and Zeros
%
format long
zr =3D input('Type in the zeros as a row vector =3D ');
pr =3D input('Type in the poles  as a row vector =3D ');
% Transpose zero and pole row vectors
z =3D zr'; p =3D pr';
k =3D input('Type in the gain constant =3D ');
[num, den] =3D zp2tf(z, p, k);
disp('Numerator polynomial coefficients'); disp(num);
disp('Denominator polynomial coefficients'); =
disp(den);