Mercurial > octave-nkf

comparison scripts/control/util/zgreduce.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children b01db194c526
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
22 ## Implementation of procedure REDUCE in (Emami-Naeini and Van Dooren, 22 ## Implementation of procedure REDUCE in (Emami-Naeini and Van Dooren,
23 ## Automatica, # 1982). 23 ## Automatica, # 1982).
24 ## @end deftypefn 24 ## @end deftypefn
25 25
26 function retsys = zgreduce (Asys, meps) 26 function retsys = zgreduce (Asys, meps)
27
28 if (nargin != 2)
29 print_usage ();
30 endif
27 31
28 ## SYS_INTERNAL accesses members of system data structure 32 ## SYS_INTERNAL accesses members of system data structure
29 33
30 is_digital(Asys); # make sure it's pure digital/continuous 34 is_digital(Asys); # make sure it's pure digital/continuous
31 35