Mercurial > octave-nkf

comparison scripts/control/base/dgram.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 4a375de63f66
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
59 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu> 59 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
60 ## Created: July 1995 60 ## Created: July 1995
61 61
62 function m = dgram (a, b) 62 function m = dgram (a, b)
63 63
64 if (nargin != 2)
65 print_usage();
66 endif
67
64 ## let dlyap do the error checking... 68 ## let dlyap do the error checking...
65 69
66 m = dlyap (a, b*b'); 70 m = dlyap (a, b*b');
67 71
68 endfunction 72 endfunction