Mercurial > hg > octave-nkf

comparison scripts/control/tzero.m @ 3398:0f515bc98460

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-12-18 04:21:28 by jwe]
author jwe
date Sat, 18 Dec 1999 04:21:52 +0000
parents 1a8e2c0d627a
children 18366d37e7dd
comparison
equal deleted inserted replaced
3397:1a8e2c0d627a 3398:0f515bc98460
44 ## @item Emami-Naeini and Van Dooren, Automatica, 1982. 44 ## @item Emami-Naeini and Van Dooren, Automatica, 1982.
45 ## @item Hodel, "Computation of Zeros with Balancing," 1992 Lin. Alg. Appl. 45 ## @item Hodel, "Computation of Zeros with Balancing," 1992 Lin. Alg. Appl.
46 ## @end enumerate 46 ## @end enumerate
47 ## @end deftypefn 47 ## @end deftypefn
48 48
49 ## Author: R. Bruce Tenison <btenison@eng.auburn.edu>
50 ## Created: July 4, 1994
51 ## A. S. Hodel Aug 1995: allow for MIMO and system data structures
52
49 function [zer, gain] = tzero (A, B, C, D) 53 function [zer, gain] = tzero (A, B, C, D)
50
51 ## R. Bruce Tenison July 4, 1994
52 ## A. S. Hodel Aug 1995: allow for MIMO and system data structures
53 54
54 ## get A,B,C,D and Asys variables, regardless of initial form 55 ## get A,B,C,D and Asys variables, regardless of initial form
55 if(nargin == 4) 56 if(nargin == 4)
56 Asys = ss2sys(A,B,C,D); 57 Asys = ss2sys(A,B,C,D);
57 elseif( (nargin == 1) && (! is_struct(A))) 58 elseif( (nargin == 1) && (! is_struct(A)))