1 ## Copyright (C) 1996, 1998, 2000, 2002, 2004, 2005, 2007 Auburn University
2 ## Copyright (C) 2012 Lukas F. Reichlin <lukas.reichlin@gmail.com>
4 ## This program is free software; you can redistribute it and/or modify it under
5 ## the terms of the GNU General Public License as published by the Free Software
6 ## Foundation; either version 3 of the License, or (at your option) any later
9 ## This program is distributed in the hope that it will be useful, but WITHOUT
10 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
11 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
14 ## You should have received a copy of the GNU General Public License along with
15 ## this program; if not, see <http://www.gnu.org/licenses/>.
18 ## @deftypefn {Function File} {[@var{num}, @var{den}] =} zp2tf (@var{zer}, @var{pol}, @var{k})
19 ## Converts zeros / poles to a transfer function.
25 ## Vectors of (possibly complex) poles and zeros of a transfer
26 ## function. Complex values must appear in conjugate pairs.
28 ## Real scalar (leading coefficient).
32 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
33 ## (With help from students Ingram, McGowan.)
35 function [num, den] = zp2tf (varargin)
41 [num, den] = tfdata (zpk (varargin{:}), "vector");