Mercurial > hg > octave-nkf

diff scripts/control/d2c.m @ 3238:041ea33fbbf4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-03-26 17:48:16 by jwe]
author jwe
date Fri, 26 Mar 1999 17:48:35 +0000
parents 98e15955107e
children 6dd06d525de6
line wrap: on
line diff
--- a/scripts/control/d2c.m
+++ b/scripts/control/d2c.m
@@ -123,7 +123,7 @@
       warning("d2c: empty b matrix");
       Amat = a;
     else
-      Amat = [a, b; zeros(nb, na) eye(nb)];
+      Amat = [a, b; zeros(nb,na), eye(nb)];
     endif
   
     poles = eig(a);
@@ -160,8 +160,8 @@
         Mall = Mtop;
         DMall = DMtop;
       else
-        Mall = [Mtop; zeros(nb, na+nb)];
-        DMall = [DMtop; zeros(nb, na+nb) ];
+        Mall = [Mtop; zeros(nb,na+nb)];
+        DMall = [DMtop; zeros(nb,na+nb) ];
       endif
   
       if(newgrad)