[Octave-cvsupdate] SF.net SVN: octave:[8266] trunk/octave-forge/main/control/inst

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

Revision: 8266
          http://octave.svn.sourceforge.net/octave/?rev=8266&view=rev
Author:   paramaniac
Date:     2011-05-16 19:26:57 +0000 (Mon, 16 May 2011)

Log Message:
-----------
control: style fixes

Modified Paths:
--------------
    trunk/octave-forge/main/control/inst/@lti/norm.m
    trunk/octave-forge/main/control/inst/covar.m
    trunk/octave-forge/main/control/inst/h2syn.m

Modified: trunk/octave-forge/main/control/inst/@lti/norm.m
===================================================================
--- trunk/octave-forge/main/control/inst/@lti/norm.m	2011-05-16 07:09:16 UTC (rev 8265)
+++ trunk/octave-forge/main/control/inst/@lti/norm.m	2011-05-16 19:26:57 UTC (rev 8266)
@@ -30,7 +30,7 @@
 
 function [gain, varargout] = norm (sys, ntype = "2", tol = 0.01)
 
-  if (nargin > 3)  # norm () is caught by built-in function
+  if (nargin > 3)                     # norm () is caught by built-in function
     print_usage ();
   endif
 
@@ -68,7 +68,7 @@
     [a, b, c, d] = ssdata (sys);
     discrete = ! isct (sys);
     
-    if (! discrete && any (any (d)))  # continuous and non-zero feedthrough
+    if (! discrete && any (d(:)))     # continuous and non-zero feedthrough
       gain = inf;
     else
       [gain, iwarn] = slab13bd (a, b, c, d, discrete);

Modified: trunk/octave-forge/main/control/inst/covar.m
===================================================================
--- trunk/octave-forge/main/control/inst/covar.m	2011-05-16 07:09:16 UTC (rev 8265)
+++ trunk/octave-forge/main/control/inst/covar.m	2011-05-16 19:26:57 UTC (rev 8266)
@@ -59,7 +59,7 @@
   [a, b, c, d] = ssdata (sys);
   
   if (isct (sys))
-    if (any (any (d)))
+    if (any (d(:)))
       error ("covar: system is not strictly proper");
     endif
     

Modified: trunk/octave-forge/main/control/inst/h2syn.m
===================================================================
--- trunk/octave-forge/main/control/inst/h2syn.m	2011-05-16 07:09:16 UTC (rev 8265)
+++ trunk/octave-forge/main/control/inst/h2syn.m	2011-05-16 19:26:57 UTC (rev 8266)
@@ -104,7 +104,7 @@
   
   d11 = d(1:p1, 1:m1);
   
-  if (isct (P) && any (any (d11)))
+  if (isct (P) && any (d11(:)))
     warning ("h2syn: setting matrice D11 to zero");
     d(1:p1, 1:m1) = 0;
   endif


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