Mercurial > octave-nkf

comparison scripts/control/system/fir2sys.m @ 4771:b8105302cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 17:45:50 by jwe]
author jwe
date Mon, 16 Feb 2004 17:45:50 +0000
parents 7923abdeb4e5
children bdbee5282954
comparison
equal deleted inserted replaced
4770:ef5e598f099b 4771:b8105302cfe8
78 ## Test for the correct number of input arguments 78 ## Test for the correct number of input arguments
79 if (nargin < 1 | nargin > 4) 79 if (nargin < 1 | nargin > 4)
80 usage ("sys = fir2sys(num [, tsam, inname, outname])"); 80 usage ("sys = fir2sys(num [, tsam, inname, outname])");
81 endif 81 endif
82 82
83 ## let tf2sys do the argument checking 83 ## let tf do the argument checking
84 den = [1,zeros(1,length(num)-1)]; 84 den = [1,zeros(1,length(num)-1)];
85 85
86 ## check sampling interval (if any) 86 ## check sampling interval (if any)
87 if (nargin <= 1) 87 if (nargin <= 1)
88 tsam = 1; # default 88 tsam = 1; # default
98 ## Set name of output 98 ## Set name of output
99 if (nargin < 4) 99 if (nargin < 4)
100 outname = __sysdefioname__ (1, "y"); 100 outname = __sysdefioname__ (1, "y");
101 endif 101 endif
102 102
103 sys = tf2sys (num, den, tsam, inname, outname); 103 sys = tf (num, den, tsam, inname, outname);
104 104
105 endfunction 105 endfunction