Mercurial > octave-nkf

comparison scripts/control/tzero.m @ 71:ca37b3c9d066

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-08-30 14:39:54 by jwe]
author jwe
date Mon, 30 Aug 1993 14:39:54 +0000
parents 671f8bf989d8
children f3c9042fd609
comparison
equal deleted inserted replaced
70:a5e8b7c9a3ad 71:ca37b3c9d066
1 function zr = tzero (a, b, c, d, bal) 1 function zr = tzero (a, b, c, d, bal)
2 2
3 # Usage: zr = tzero (a, b, c, d, bal)
4 #
3 # Compute the transmission zeros of a, b, c, d. 5 # Compute the transmission zeros of a, b, c, d.
4 # 6 #
5 # bal = balancing option (see balance); default is "B". 7 # bal = balancing option (see balance); default is "B".
6 # 8 #
7 # Needs to incorporate mvzero algorithm to isolate finite zeros. 9 # Needs to incorporate mvzero algorithm to isolate finite zeros.
10
11 # Written by A. S. Hodel (scotte@eng.auburn.edu) August 1993
8 12
9 if (nargin == 4) 13 if (nargin == 4)
10 bal = "B"; 14 bal = "B";
11 elseif (nargin ~= 5) 15 elseif (nargin ~= 5)
12 error("tzero: illegal number of arguments") 16 error("tzero: illegal number of arguments")