Mercurial > octave-nkf

diff scripts/control/system/ord2.m @ 7133:1d0d7be2d0f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 16:25:44 by jwe]
author jwe
date Thu, 08 Nov 2007 16:25:44 +0000
parents a1dbe9d80eee
children
line wrap: on
line diff
--- a/scripts/control/system/ord2.m	Thu Nov 08 16:17:34 2007 +0000
+++ b/scripts/control/system/ord2.m	Thu Nov 08 16:25:44 2007 +0000
@@ -65,16 +65,14 @@
 
   ## Updates
 
-  if(nargin != 2 & nargin != 3)
-    print_usage ();
-  endif
-  if (nargout > 1)
+  if (nargin == 2 || nargin == 3)
+    if (nargin == 2)
+      gain = 1.0;
+    endif
+    w = 2.0 * pi * nfreq;
+    outsys = ss ([-2.0*w*damp, -w; w, 0], [w; 0], [0, gain]);
+  else
     print_usage ();
   endif
-  if (nargin == 2)
-    gain = 1.0;
-  endif
 
-  w = 2.0 * pi * nfreq;
-  outsys = ss ([-2.0*w*damp, -w; w, 0], [w; 0], [0, gain]);
 endfunction