Mercurial > hg > octave-lyh
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