Mercurial > hg > octave-lyh

comparison scripts/control/system/syschtsam.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 4c8a2e4e0717
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
27 ## Created: August 1996 27 ## Created: August 1996
28 28
29 function retsys = syschtsam (sys, tsam) 29 function retsys = syschtsam (sys, tsam)
30 30
31 if (nargin != 2) 31 if (nargin != 2)
32 usage ("retsys = syschtsam (sys, tsam)"); 32 print_usage ();
33 elseif (! isstruct (sys)) 33 elseif (! isstruct (sys))
34 error ("sys must be in system data structure form"); 34 error ("sys must be in system data structure form");
35 elseif (! isscalar (tsam)) 35 elseif (! isscalar (tsam))
36 disp ("syschtsam:") 36 disp ("syschtsam:")
37 tsam 37 tsam