10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop, 1991, 1994.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.3 1998/07/27 20:25:36 peterg
## *** empty log message ***
##
# Revision 1.2 1996/08/25 09:53:35 peter
# Error handling added.
#
## Revision 1.1 1996/08/18 20:03:51 peter
|
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright (c) P.J.Gawthrop, 1991, 1994.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 2005/03/21 11:44:06 gawthrop
## Avoid error messages when no inputs or no outputs or no states
##
## Revision 1.3 1998/07/27 20:25:36 peterg
## *** empty log message ***
##
# Revision 1.2 1996/08/25 09:53:35 peter
# Error handling added.
#
## Revision 1.1 1996/08/18 20:03:51 peter
|
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
IF MTTNz>0 THEN
FOR j := 1:MTTNz DO
MTTE(j+MTTNx, j+MTTNx) := 1;
% Find MTTA : the A matrix
% First row partition: x
IF MTTNx>0 THEN
BEGIN
matrix MTTA(MTTN,MTTN);
FOR j := 1:MTTNx DO
BEGIN
xj := MTTX(j,1);
FOR i := 1:MTTNx DO
MTTA(i,j) := df(MTTdX(i,1), xj, 1);
|
|
|
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
IF MTTNz>0 THEN
FOR j := 1:MTTNz DO
MTTE(j+MTTNx, j+MTTNx) := 1;
% Find MTTA : the A matrix
% First row partition: x
IF MTTN>0 THEN
BEGIN
matrix MTTA(MTTN,MTTN);
FOR j := 1:MTTNx DO
BEGIN
xj := MTTX(j,1);
FOR i := 1:MTTNx DO
MTTA(i,j) := df(MTTdX(i,1), xj, 1);
|