[Octave-cvsupdate] SF.net SVN: octave:[7476] trunk/octave-forge

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

Revision: 7476
          http://octave.svn.sourceforge.net/octave/?rev=7476&view=rev
Author:   paramaniac
Date:     2010-07-13 20:17:54 +0000 (Tue, 13 Jul 2010)

Log Message:
-----------
control: minor simplifications

Modified Paths:
--------------
    trunk/octave-forge/extra/control-legacy/inst/gensig.m
    trunk/octave-forge/main/control/inst/gensig.m

Modified: trunk/octave-forge/extra/control-legacy/inst/gensig.m
===================================================================
--- trunk/octave-forge/extra/control-legacy/inst/gensig.m	2010-07-13 09:57:29 UTC (rev 7475)
+++ trunk/octave-forge/extra/control-legacy/inst/gensig.m	2010-07-13 20:17:54 UTC (rev 7476)
@@ -78,9 +78,9 @@
     case "co"
       u = cos (2*pi/tau * t);
     case "sq"
-      u = +(rem (t, tau) >= tau/2);
+      u = (rem (t, tau) >= tau/2);
     case "pu"
-      u = +(rem (t, tau) < (1 - 1000*eps) * tsam);
+      u = (rem (t, tau) < (1 - 1000*eps) * tsam);
     otherwise
       error ("gensig: invalid signal type");
   endswitch

Modified: trunk/octave-forge/main/control/inst/gensig.m
===================================================================
--- trunk/octave-forge/main/control/inst/gensig.m	2010-07-13 09:57:29 UTC (rev 7475)
+++ trunk/octave-forge/main/control/inst/gensig.m	2010-07-13 20:17:54 UTC (rev 7476)
@@ -82,9 +82,9 @@
     case "co"
       u = cos (2*pi/tau * t);
     case "sq"
-      u = +(rem (t, tau) >= tau/2);
+      u = (rem (t, tau) >= tau/2);
     case "pu"
-      u = +(rem (t, tau) < (1 - 1000*eps) * tsam);
+      u = (rem (t, tau) < (1 - 1000*eps) * tsam);
     otherwise
       error ("gensig: invalid signal type");
   endswitch


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