Mercurial > octave-nkf
diff scripts/control/system/zp2tf.m @ 7136:59dcf01bb3e3
[project @ 2007-11-08 20:18:25 by jwe]
author | jwe |
---|---|
date | Thu, 08 Nov 2007 20:18:26 +0000 |
parents | f084ba47812b |
children |
line wrap: on
line diff
--- a/scripts/control/system/zp2tf.m Thu Nov 08 18:54:10 2007 +0000 +++ b/scripts/control/system/zp2tf.m Thu Nov 08 20:18:26 2007 +0000 @@ -49,7 +49,7 @@ if (! (isvector (zer) || isempty (zer))) error ("zer(%dx%d) must be a vector", rz, cz); - elseif(! (isvector (pol) || isempty (pol))) + elseif (! (isvector (pol) || isempty (pol))) error ("pol(%dx%d) must be a vector", rp, cp); elseif (length (zer) > length (pol)) error ("zer(%dx%d) longer than pol(%dx%d)", rz, cz, rp, cp); @@ -57,12 +57,13 @@ ## initialize converted polynomials - num = k; den = 1; + num = k; + den = 1; ## call __zp2ssg2__ if there are complex conjugate pairs left, otherwise ## construct real zeros one by one. Repeat for poles. - while(! isempty (zer)) + while (! isempty (zer)) if (max (abs (imag (zer)))) [poly, zer] = __zp2ssg2__ (zer); else