11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
+
+
+
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.13 1998/08/11 09:32:07 peterg
## Added comments at procedure begin and end.
##
## Revision 1.12 1998/07/30 11:30:42 peterg
## Included zeros function
##
## Revision 1.11 1998/07/29 14:18:34 peterg
## Reorganised rep dependednt output
##
## Revision 1.10 1998/07/27 20:26:15 peterg
|
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
-
-
-
-
+
+
+
+
+
+
+
+
|
echo "PROCEDURE $Sys_rep(VAR mtta : StateMatrix;"
echo " mttx : StateVector;"
echo " mttu : InputVector);"
;;
ode2odes)
echo "PROGRAM $Sys_rep;"
echo "TYPE"
echo " StateVector =ARRAY[1..$Nx] OF REAL;"
echo " InputVector =ARRAY[1..$Nu] OF REAL;"
echo " OutputVector =ARRAY[1..$Ny] OF REAL;"
echo " StateMatrix =ARRAY[1..$Nx,1..$Nx] OF REAL;"
echo " StateVector = ARRAY[1..$Nx] OF REAL;"
echo " InputVector = ARRAY[1..$Nu] OF REAL;"
echo " OutputVector = ARRAY[1..$Ny] OF REAL;"
echo " StateMatrix = ARRAY[1..$Nx,1..$Nx] OF REAL;"
echo " glnparray = StateVector;"
echo " glmparray = StateVector;"
echo " glnpbynp = StateMatrix;"
echo " glmpbynp = StateMatrix;"
echo " IntegrationMethod = 1..3;"
echo "VAR"
echo " MTTt,mttLAST,mttDT,mttDDT : REAL;"
echo " MTTWMIN,mttWMAX : REAL;"
echo " mttx,mttdx : StateVector;"
echo " mttu : InputVector;"
echo " mtty : OutputVector;"
|