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.29 1999/04/02 06:27:55 peterg
## Modified for new implicit method with swoitches
##
## Revision 1.28 1999/02/17 02:59:54 peterg
## Added -q switch to mtt
##
## Revision 1.27 1999/02/16 21:56:52 peterg
## Now gets standard include files directly from source,
##
## Revision 1.26 1999/02/16 21:43:54 peterg
|
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
-
-
-
-
-
|
echo " mtty : OutputVector;"
echo " mttAA : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
echo " mttMETHOD : IntegrationMethod;"
echo " MTTopen : StateVector;"
echo ""
;;
switch)
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
switchopen)
echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
*) echo "PROCEDURE $Sys_rep;"
echo "VAR"
|
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
|
280
281
282
283
284
285
286
287
288
289
290
291
292
293
|
-
|
printf("{%s $MTTPATH/trans/p/zero_vector.p}\n",inc)
printf("{%s %s_simpar.p}\n",inc,Sys)
printf("{%s %s_numpar.p}\n",inc,Sys)
printf("{%s %s_state.p}\n",inc,Sys)
printf("{%s %s_input.p}\n",inc,Sys)
printf("{%s %s_ode.p}\n",inc,Sys)
printf("{%s %s_odeo.p}\n",inc,Sys)
printf("{%s %s_switch.p}\n\n",inc,Sys)
printf("{%s %s_switchopen.p}\n\n",inc,Sys)
printf("\n{%s %s_smx.p}\n",inc,Sys)
for (k=1;k<=j;k++) printf("%s\n", comment[k])
printf("\n")
printf("\nBEGIN{%s}\n", Sys_rep)
}
|