diff scripts/control/system/tfout.m @ 7136:59dcf01bb3e3

[project @ 2007-11-08 20:18:25 by jwe]
author jwe
date Thu, 08 Nov 2007 20:18:26 +0000
parents 1d0d7be2d0f8
children aeeb646f6538
line wrap: on
line diff
--- a/scripts/control/system/tfout.m
+++ b/scripts/control/system/tfout.m
@@ -34,24 +34,24 @@
     print_usage ();
   endif
 
-  if ( (!isvector(num)) | (!isvector(denom)) )
-    error("tfout: first two argument must be vectors");
+  if (! isvector (num) || ! isvector (denom))
+    error ("tfout: first two argument must be vectors");
   endif
 
   if (nargin == 2)
     x = "s";
-  elseif( ! ischar(x) )
-    error("tfout: third argument must be a string");
+  elseif (! ischar (x))
+    error ("tfout: third argument must be a string");
   endif
 
-  numstring = polyout(num,x);
-  denomstring = polyout(denom,x);
-  len = max(length(numstring),length(denomstring));
-  if(len > 0)
-    y = strrep(blanks(len)," ","-");
-    disp(numstring)
-    disp(y)
-    disp(denomstring)
+  numstring = polyout (num, x);
+  denomstring = polyout (denom, x);
+  len = max (length (numstring), length (denomstring));
+  if (len > 0)
+    y = strrep (blanks (len), " ", "-");
+    disp (numstring)
+    disp (y)
+    disp (denomstring)
   else
     error ("tfout: empty transfer function")
   end