Mercurial > hg > octave-nkf

diff scripts/control/system/abcddim.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 99ab64f4a09d
children 22bd65326ec1
line wrap: on
line diff
--- a/scripts/control/system/abcddim.m
+++ b/scripts/control/system/abcddim.m
@@ -73,10 +73,10 @@
 
   n = m = p = -1;
 
-  [a,an,am] = abcddims(a);
-  [b,bn,bm] = abcddims(b);
-  [c,cn,cm] = abcddims(c);
-  [d,dn,dm] = abcddims(d);
+  [a, an, am] = __abcddims__ (a);
+  [b, bn, bm] = __abcddims__ (b);
+  [c, cn, cm] = __abcddims__ (c);
+  [d, dn, dm] = __abcddims__ (d);
 
   if ( (!is_square(a)) & (!isempty(a)) )
     warning (["abcddim: a is not square (",num2str(an),"x",num2str(am),")"]);
@@ -103,7 +103,7 @@
 
   if( (dn == 0) & have_connections)
     warning("abcddim: empty d matrix passed; setting compatibly with b, c");
-    [d,dn,dm] = abcddims(zeros(cn,bm));
+    [d, dn, dm] = __abcddims__ (zeros (cn, bm));
   endif
 
   if(an > 0)