Mercurial > octave

comparison scripts/control/obsolete/packsys.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 22bd65326ec1
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
4770:ef5e598f099b 4771:b8105302cfe8
14 ## 14 ##
15 ## You should have received a copy of the GNU General Public License 15 ## You should have received a copy of the GNU General Public License
16 ## along with Octave; see the file COPYING. If not, write to the Free 16 ## along with Octave; see the file COPYING. If not, write to the Free
17 ## Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. 17 ## Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA.
18 18
19 ## O B S O L E T E: use ss2sys instead. 19 ## O B S O L E T E: use ss instead.
20 ## function Asys = packsys(a,b,c[,d,dflg]) 20 ## function Asys = packsys(a,b,c[,d,dflg])
21 ## 21 ##
22 ## dflg: 0 for continuous time system, 1 for discrete-time system. 22 ## dflg: 0 for continuous time system, 1 for discrete-time system.
23 ## 23 ##
24 ## defaults: 24 ## defaults:
32 ## Modified by David Clem November 13, 1994 32 ## Modified by David Clem November 13, 1994
33 ## Modified by A. S. Hodel April 1995 33 ## Modified by A. S. Hodel April 1995
34 34
35 function Asys = packsys (a, b, c, d, dflg) 35 function Asys = packsys (a, b, c, d, dflg)
36 36
37 warning("packsys is obsolete! Use ss2sys instead."); 37 warning("packsys is obsolete! Use ss instead.");
38 38
39 if (nargin < 3 || nargin > 5) 39 if (nargin < 3 || nargin > 5)
40 disp("packsys: Invalid number of arguments") 40 disp("packsys: Invalid number of arguments")
41 endif 41 endif
42 42
64 [n,m,p] = abcddim(a,b,c,d); 64 [n,m,p] = abcddim(a,b,c,d);
65 if (n == -1 || m == -1 || p == -1) 65 if (n == -1 || m == -1 || p == -1)
66 error("packsys: incompatible dimensions") 66 error("packsys: incompatible dimensions")
67 endif 67 endif
68 68
69 Asys = ss2sys(a,b,c,d,dflg); 69 Asys = ss(a,b,c,d,dflg);
70 70
71 endfunction 71 endfunction