Mercurial > hg > octave-nkf

diff scripts/control/system/tf2sys.m @ 3438:2e06c3941943

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-14 06:33:18 by jwe]
author jwe
date Fri, 14 Jan 2000 06:34:24 +0000
parents 65b3519ac3a1
children 7923abdeb4e5
line wrap: on
line diff
--- a/scripts/control/system/tf2sys.m
+++ b/scripts/control/system/tf2sys.m
@@ -74,8 +74,8 @@
   endif
 
   ## strip leading zero coefficients
-  num = tf2sysl(num);
-  den = tf2sysl(den);
+  num = __tf2sysl__ (num);
+  den = __tf2sysl__ (den);
 
   if (length(num) >  length(den))
     error("# of poles (%d) < # of zeros (%d)",length(den)-1, length(num)-1);
@@ -105,9 +105,9 @@
     outsys.yd = 1;
   endif
 
-  outsys.inname  = sysdefioname(1,"u");
-  outsys.outname = sysdefioname(1,"y");
-  outsys.stname  = sysdefstname(outsys.n,outsys.nz);
+  outsys.inname  = __sysdefioname__ (1, "u");
+  outsys.outname = __sysdefioname__ (1, "y");
+  outsys.stname  = __sysdefstname__ (outsys.n, outsys.nz);
 
   ## Set name of input
   if (nargin > 3)