[Octave-cvsupdate] SF.net SVN: octave:[9030] trunk/octave-forge/extra/control-devel/inst

[<par...@us...>]

Revision: 9030
          http://octave.svn.sourceforge.net/octave/?rev=9030&view=rev
Author:   paramaniac
Date:     2011-11-08 13:52:51 +0000 (Tue, 08 Nov 2011)
Log Message:
-----------
control-devel: get btamodred test working

Modified Paths:
--------------
    trunk/octave-forge/extra/control-devel/inst/__ab09id_modred__.m
    trunk/octave-forge/extra/control-devel/inst/btamodred.m

Modified: trunk/octave-forge/extra/control-devel/inst/__ab09id_modred__.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/__ab09id_modred__.m	2011-11-08 13:48:29 UTC (rev 9029)
+++ trunk/octave-forge/extra/control-devel/inst/__ab09id_modred__.m	2011-11-08 13:52:51 UTC (rev 9030)
@@ -145,7 +145,7 @@
                                av, bv, cv, dv, \
                                aw, bw, cw, dw, \
                                weight, jobc, jobo, alphac, alphao, \
-                               tol1, tol2)
+                               tol1, tol2);
 
   ## assemble reduced order model
   sysr = ss (ar, br, cr, dr, tsam);

Modified: trunk/octave-forge/extra/control-devel/inst/btamodred.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/btamodred.m	2011-11-08 13:48:29 UTC (rev 9029)
+++ trunk/octave-forge/extra/control-devel/inst/btamodred.m	2011-11-08 13:52:51 UTC (rev 9030)
@@ -67,15 +67,23 @@
 %!
 %! sys = ss (A, B, C, D);  % "scaled", false
 %!
-%! AV = [  0.2000   -1.0000
-%!         1.0000         0 ];
+%! AV = [  -1.0000,         0,    4.0000,   -9.2994,   -1.1624,   -0.1090;
+%!               0,    2.0000,         0,   -9.2994,   -1.1624,   -0.1090;
+%!               0,         0,   -3.0000,   -9.2994,   -1.1624,   -0.1090;
+%!         16.0000,   16.0000,   16.0000,  -26.4000,    6.4023,    4.3868;
+%!               0,         0,         0,   32.0000,         0,         0;
+%!               0,         0,         0,         0,    8.0000,         0 ];
 %!
-%! BV = [       1
-%!              0 ];
+%! BV = [        1
+%!               1
+%!               1
+%!               0
+%!               0
+%!               0 ];
 %!
-%! CV = [ -1.8000         0 ];
+%! CV = [        1          1          1          0          0          0 ];
 %!
-%! DV = [       1 ];
+%! DV = [        0 ];
 %!
 %! sysv = ss (AV, BV, CV, DV);
 %!

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.