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

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

Revision: 9406
          http://octave.svn.sourceforge.net/octave/?rev=9406&view=rev
Author:   paramaniac
Date:     2011-12-16 06:49:42 +0000 (Fri, 16 Dec 2011)
Log Message:
-----------
control-devel: unify variable name

Modified Paths:
--------------
    trunk/octave-forge/extra/control-devel/inst/bstmodred.m
    trunk/octave-forge/extra/control-devel/inst/hnamodred.m

Modified: trunk/octave-forge/extra/control-devel/inst/bstmodred.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/bstmodred.m	2011-12-15 23:00:23 UTC (rev 9405)
+++ trunk/octave-forge/extra/control-devel/inst/bstmodred.m	2011-12-16 06:49:42 UTC (rev 9406)
@@ -227,13 +227,13 @@
 ## Created: October 2011
 ## Version: 0.1
 
-function [sysr, info] = bstmodred (sys, varargin)
+function [Gr, info] = bstmodred (G, varargin)
 
   if (nargin == 0)
     print_usage ();
   endif
   
-  if (! isa (sys, "lti"))
+  if (! isa (G, "lti"))
     error ("bstmodred: first argument must be an LTI system");
   endif
 
@@ -256,8 +256,8 @@
     error ("bstmodred: keys and values must come in pairs");
   endif
 
-  [a, b, c, d, tsam, scaled] = ssdata (sys);
-  dt = isdt (sys);
+  [a, b, c, d, tsam, scaled] = ssdata (G);
+  dt = isdt (G);
   
   ## default arguments
   alpha = __modred_default_alpha__ (dt);
@@ -318,7 +318,7 @@
                                             tol1, tol2);
 
   ## assemble reduced order model
-  sysr = ss (ar, br, cr, dr, tsam);
+  Gr = ss (ar, br, cr, dr, tsam);
 
   ## assemble info struct
   n = rows (a);

Modified: trunk/octave-forge/extra/control-devel/inst/hnamodred.m
===================================================================
--- trunk/octave-forge/extra/control-devel/inst/hnamodred.m	2011-12-15 23:00:23 UTC (rev 9405)
+++ trunk/octave-forge/extra/control-devel/inst/hnamodred.m	2011-12-16 06:49:42 UTC (rev 9406)
@@ -152,13 +152,13 @@
 ## Created: October 2011
 ## Version: 0.1
 
-function [sysr, info] = hnamodred (sys, varargin)
+function [Gr, info] = hnamodred (G, varargin)
 
   if (nargin == 0)
     print_usage ();
   endif
   
-  if (! isa (sys, "lti"))
+  if (! isa (G, "lti"))
     error ("hnamodred: first argument must be an LTI system");
   endif
 
@@ -181,9 +181,9 @@
     error ("hnamodred: keys and values must come in pairs");
   endif
 
-  [a, b, c, d, tsam, scaled] = ssdata (sys);
-  [p, m] = size (sys);
-  dt = isdt (sys);
+  [a, b, c, d, tsam, scaled] = ssdata (G);
+  [p, m] = size (G);
+  dt = isdt (G);
   
   ## default arguments
   alpha = __modred_default_alpha__ (dt);
@@ -273,7 +273,7 @@
                                             jobinv, tol1, tol2);
 
   ## assemble reduced order model
-  sysr = ss (ar, br, cr, dr, tsam);
+  Gr = ss (ar, br, cr, dr, tsam);
 
   ## assemble info struct  
   n = rows (a);

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