11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.17 1998/08/27 07:38:40 peterg
## About to change to new integration (Euler/Implicit only)
##
## Revision 1.16 1998/08/19 08:46:00 peterg
## Now translates ; % to #
##
## Revision 1.15 1998/08/15 13:46:01 peterg
|
>
>
>
|
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.18 1998/08/27 08:55:40 peterg
## Mods to integration methods
##
## Revision 1.17 1998/08/27 07:38:40 peterg
## About to change to new integration (Euler/Implicit only)
##
## Revision 1.16 1998/08/19 08:46:00 peterg
## Now translates ; % to #
##
## Revision 1.15 1998/08/15 13:46:01 peterg
|
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
echo "VAR"
echo " MTTt,mttLAST,mttDT,mttDDT : REAL;"
echo " MTTWMIN,mttWMAX : REAL;"
echo " mttx,mttdx,mttxx,mttAAx : StateVector;"
echo " mttu : InputVector;"
echo " mtty : OutputVector;"
echo " mttAA : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS : INTEGER;"
echo " mttMETHOD : IntegrationMethod;"
echo ""
;;
switch)
echo "PROCEDURE $Sys_rep(VAR mttxs : StateVector;"
echo " mttx : StateVector);"
echo "VAR"
|
|
|
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
echo "VAR"
echo " MTTt,mttLAST,mttDT,mttDDT : REAL;"
echo " MTTWMIN,mttWMAX : REAL;"
echo " mttx,mttdx,mttxx,mttAAx : StateVector;"
echo " mttu : InputVector;"
echo " mtty : OutputVector;"
echo " mttAA : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
echo " mttMETHOD : IntegrationMethod;"
echo ""
;;
switch)
echo "PROCEDURE $Sys_rep(VAR mttxs : StateVector;"
echo " mttx : StateVector);"
echo "VAR"
|