Mercurial > octave-nkf

diff scripts/control/hinf/hinfsyn_chk.m @ 7131:a184bc985c37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 15:55:02 by jwe]
author jwe
date Thu, 08 Nov 2007 15:55:02 +0000
parents f084ba47812b
children
line wrap: on
line diff
--- a/scripts/control/hinf/hinfsyn_chk.m	Thu Nov 08 15:28:41 2007 +0000
+++ b/scripts/control/hinf/hinfsyn_chk.m	Thu Nov 08 15:55:02 2007 +0000
@@ -88,8 +88,8 @@
 
   ## Construct the two Hamiltonians
   g2 = 1/(g*g);
-  Hc = [ A ,  g2*B1*B1' - B2*B2'; -C1'*C1 , -A'];
-  Hf = [ A' , g2*C1'*C1 - C2'*C2; -B1*B1' , -A];
+  Hc = [A,  g2*B1*B1' - B2*B2'; -C1'*C1, -A'];
+  Hf = [A', g2*C1'*C1 - C2'*C2; -B1*B1', -A];
 
   ## check if Hc, Hf are in dom(Ric)
   Hcminval = min (abs (real (eig (Hc))));