Mercurial > octave-nkf

comparison scripts/control/base/impulse.m @ 7133:1d0d7be2d0f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 16:25:44 by jwe]
author jwe
date Thu, 08 Nov 2007 16:25:44 +0000
parents 4a375de63f66
children
comparison
equal deleted inserted replaced
7132:b01db194c526 7133:1d0d7be2d0f8
54 ## based on lsim.m of Scottedward Hodel 54 ## based on lsim.m of Scottedward Hodel
55 ## modified by 55 ## modified by
56 56
57 function [y, t] = impulse (sys, inp, tstop, n) 57 function [y, t] = impulse (sys, inp, tstop, n)
58 58
59 if (nargin < 1 || nargin > 4 || nargout > 2) 59 if (nargin < 1 || nargin > 4)
60 print_usage (); 60 print_usage ();
61 endif 61 endif
62 62
63 if (! isstruct (sys)) 63 if (! isstruct (sys))
64 error ("impulse: sys must be a system data structure."); 64 error ("impulse: sys must be a system data structure.");