Mercurial > octave

comparison scripts/control/lyap.m @ 1194:621fef7bcca1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-03-31 05:11:53 by jwe]
author jwe
date Fri, 31 Mar 1995 05:12:26 +0000
parents 3f257ab07921
children 611d403c7f3d
comparison
equal deleted inserted replaced
1193:3db39662c697 1194:621fef7bcca1
79 79
80 # Set up Sylvester equation. 80 # Set up Sylvester equation.
81 81
82 c = b; 82 c = b;
83 b = a; 83 b = a;
84 a = b' 84 a = b';
85 85
86 else 86 else
87 87
88 # Check dimensions. 88 # Check dimensions.
89 89
93 93
94 [n1, m1] = size(c); 94 [n1, m1] = size(c);
95 95
96 if (n != n1 || m != m1) 96 if (n != n1 || m != m1)
97 error("lyap: a,b,c not conformably dimensioned"); 97 error("lyap: a,b,c not conformably dimensioned");
98 endif; 98 endif
99 endif 99 endif
100 100
101 # Call octave built-in function. 101 # Call octave built-in function.
102 102
103 x = syl (a, b, c); 103 x = syl (a, b, c);