Mercurial > hg > octave-lyh

comparison scripts/control/system/jet707.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 2618a0750ae6
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
42 ## Created: September 28, 1997 42 ## Created: September 28, 1997
43 43
44 function outsys = jet707 () 44 function outsys = jet707 ()
45 45
46 if (nargin != 0) 46 if (nargin != 0)
47 usage("outsys = jet707()") 47 print_usage ();
48 endif 48 endif
49 if (nargin > 1) 49 if (nargin > 1)
50 usage("outsys = jet707()") 50 print_usage ();
51 endif 51 endif
52 52
53 a = [ -0.46E-01, 0.10681415316, 0.0, -0.17121680433; 53 a = [ -0.46E-01, 0.10681415316, 0.0, -0.17121680433;
54 -0.1675901504661613, -0.515, 1.0, 0.6420630320636088E-02; 54 -0.1675901504661613, -0.515, 1.0, 0.6420630320636088E-02;
55 0.1543104215347786, -0.547945, -0.906, -0.1521689385990753E-02; 55 0.1543104215347786, -0.547945, -0.906, -0.1521689385990753E-02;