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

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

Revision: 6217
          http://octave.svn.sourceforge.net/octave/?rev=6217&view=rev
Author:   paramaniac
Date:     2009-09-05 06:52:12 +0000 (Sat, 05 Sep 2009)

Log Message:
-----------
margin: fix bug

Modified Paths:
--------------
    trunk/octave-forge/main/control/inst/margin.m

Modified: trunk/octave-forge/main/control/inst/margin.m
===================================================================
--- trunk/octave-forge/main/control/inst/margin.m	2009-09-05 06:19:38 UTC (rev 6216)
+++ trunk/octave-forge/main/control/inst/margin.m	2009-09-05 06:52:12 UTC (rev 6217)
@@ -114,7 +114,7 @@
 ## @end example
 ## @end deftypefn
 
-## Version: 0.6.1
+## Version: 0.6.2
 
 function [gamma_r, phi_r, w_gamma_r, w_phi_r] = margin (sys, tol = 1e-7)
 
@@ -281,10 +281,10 @@
 
     title_str = sprintf ("GM = %g dB (at %g rad/s),   PM = %g deg (at %g rad/s)", ...
                          gamma_db, w_gamma, phi, w_phi);
-    if (digital)
+    if (Ts == 0)
+      xl_str = "Frequency [rad/s]";
+    else
       xl_str = sprintf ("Frequency [rad/s]     Pi / T = %g", pi/Ts);
-    else
-      xl_str = "Frequency [rad/s]";
     endif
 
     subplot (2, 1, 1)


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