Mercurial > octave-nkf

comparison scripts/control/base/gram.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
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
27 27
28 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu> 28 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
29 29
30 function m = gram (a, b) 30 function m = gram (a, b)
31 31
32 if (nargin != 2)
33 print_usage ();
34 endif
35
32 ## Let lyap do the error checking... 36 ## Let lyap do the error checking...
33 37
34 m = lyap (a, b*b'); 38 m = lyap (a, b*b');
35 39
36 endfunction 40 endfunction