Mercurial > hg > octave-lyh

diff scripts/control/system/sysappend.m @ 4771:b8105302cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 17:45:50 by jwe]
author jwe
date Mon, 16 Feb 2004 17:45:50 +0000
parents cef48c4b902d
children bdbee5282954
line wrap: on
line diff
--- a/scripts/control/system/sysappend.m
+++ b/scripts/control/system/sysappend.m
@@ -115,8 +115,12 @@
       else
 	inname = __sysdefioname__(Bm,"u",(Am+1));
       endif
-      if(Am)   Ain = append(Ain,inname);
-      else     Ain = inname;              endif
+
+      if(Am)
+        Ain = __sysconcat__(Ain,inname);
+      else
+        Ain = inname;
+      endif
 
       ## default b matrix
       if(isempty(b))     b  = zeros(Ann+Anz,(Bm-Am));
@@ -144,7 +148,7 @@
       else
 	outname = __sysdefioname__(Bp,"y",(Ap+1));
       endif
-      if(Ap)   Aout = append(Aout,outname);
+      if(Ap)   Aout = __sysconcat__(Aout,outname);
       else     Aout = outname;                endif
 
       ## construct new yd entries
@@ -183,7 +187,7 @@
     Ad = d;
 
     ## construct return system
-    retsys = ss2sys(Aa,Ab,Ac,Ad,Ats,Ann,Anz,Ast,Ain,Aout,find(Ayd == 1));
+    retsys = ss(Aa,Ab,Ac,Ad,Ats,Ann,Anz,Ast,Ain,Aout,find(Ayd == 1));
 
   unwind_protect_cleanup
     warn_empty_list_elements = save_warn_empty_list_elements;