Mercurial > hg > octave-nkf

diff scripts/control/sysadd.m @ 3236:98e15955107e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-03-05 07:17:10 by jwe]
author jwe
date Fri, 05 Mar 1999 07:19:35 +0000
parents 28aba52a2368
children 041ea33fbbf4
line wrap: on
line diff
--- a/scripts/control/sysadd.m
+++ b/scripts/control/sysadd.m
@@ -36,7 +36,6 @@
 #                  --------
 
 # Written by John Ingram July 1996
-# $Revision: 2.0.0.2 $
 
   save_val = implicit_str_to_num_ok;	# save for later
   implicit_str_to_num_ok = 1;
@@ -82,15 +81,17 @@
   Gsys = sysupdate(Gsys,"ss");
   Hsys = sysupdate(Hsys,"ss");
 
+  # change signal names to avoid warning messages from sysgroup
+  Gsys = syssetsignals(Gsys,"in",sysdefioname(length(Gin),"Gin_u"));
+  Gsys = syssetsignals(Gsys,"out",sysdefioname(length(Gout),"Gout_u"));
+  Hsys = syssetsignals(Hsys,"in",sysdefioname(length(Hin),"Hin_u"));
+  Hsys = syssetsignals(Hsys,"out",sysdefioname(length(Hout),"Hout_u"));
+  
   sys = sysgroup(Gsys,Hsys);
 
   eyin = eye(mg);
   eyout = eye(pg);
 
-
-  inname = Gin;
-  outname = Gout;
-
-  sys = sysscale(sys,[eyout eyout],[eyin;eyin],outname,inname);
+  sys = sysscale(sys,[eyout eyout],[eyin;eyin],Gout,Gin);
 
 endfunction