Mercurial > octave

diff scripts/control/c2d.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 f7e4a95916f2
line wrap: on
line diff
--- a/scripts/control/c2d.m	Sat Mar 06 07:44:55 1999 +0000
+++ b/scripts/control/c2d.m	Fri Mar 26 17:48:35 1999 +0000
@@ -97,7 +97,7 @@
     [ sys_a,  sys_b,  sys_c,  sys_d] = sys2ss( sys);
     if(isempty(Acd))                Bmat = sys_b;
     elseif(isempty(csys_b))         Bmat = Acd;
-    else                            Bmat = [Acd csys_b];     endif
+    else                            Bmat = [Acd, csys_b];     endif
     
     row_zer = columns(Bmat);
     csysn = sysdimensions(csys);
@@ -108,7 +108,7 @@
       warning("c2d: no inputs to continuous subsystem.");
       mat = csysa;
     else
-      mat = [csysa Bmat ; zeros( row_zer,col_zer) ];
+      mat = [csysa, Bmat ; zeros( row_zer,col_zer) ];
     endif
 
     matexp = expm(mat * T);