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.30 1999/04/20 06:16:46 peterg
## Removed calls to _switch.m
##
## 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
|
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
|
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
|
-
-
+
+
+
|
printvar("y",Ny);
printvar("_t",Nt);
printf("\n{%s $MTTPATH/trans/p/mtt_write.p}\n",inc)
printf("{%s $MTTPATH/trans/p/sign.p}\n",inc)
printf("{%s $MTTPATH/trans/p/mtt_euler.p}\n",inc)
printf("{%s $MTTPATH/trans/p/mtt_implicit.p}\n",inc)
printf("{%s $MTTPATH/trans/p/zero_matrix.p}\n",inc)
printf("{%s $MTTPATH/trans/p/zero_vector.p}\n",inc)
# printf("{%s $MTTPATH/trans/p/zero_matrix.p}\n",inc)
printf("{%s $MTTPATH/trans/p/zero_input.p}\n",inc)
printf("{%s $MTTPATH/trans/p/zero_state.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_switchopen.p}\n\n",inc,Sys)
|