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.49 2000/05/18 09:45:45 peterg
## Fixed missing ;
##
## Revision 1.48 2000/05/18 09:39:38 peterg
## Removed fifth argument from _input
##
## Revision 1.47 2000/05/16 18:56:03 peterg
## Upgraded for new simulation approach - uses data files to input
## parameters -- no more argv stuff
##
|
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
-
+
+
|
#if [ "$rep" = "simpar" ]; then
# mtt -q $Sys smx p
#fi
# Heading
(case $rep in
state)
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector;
mttpar : ParameterVector);"
;;
numpar)
echo "PROCEDURE $Sys_rep(VAR mttpar : ParameterVector);"
;;
simpar)
echo "PROCEDURE $Sys_rep(VAR mttsimpar : SimulationParameters);"
;;
|
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
|
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
|
-
+
+
|
sed 's/(\([ijk0-9,]*\))/\[\1\]/g' |\
sed 's/(\(MTT[ijk0-9],[0-9]*\))/\[\1\]/g' |\
sed 's/(\([0-9]*,MTT[ijk0-9]\))/\[\1\]/g' |\
sed 's/(\(MTT[ijk0-9],MTT[ijk0-9]\))/\[\1\]/g' |\
sed 's/(\(MTT[ijk0-9,]*\))/\[\1\]/g' |\
sed 's/switcha(mttAA,/switcha(/g' |\
sed 's/switch(MTTx,/switch(/g' |\
sed 's/if nargin<[1-9] THEN//' \
sed 's/if nargin<[1-9] THEN//' |\
sed 's/if nargin>[0-9] THEN//' \
>> $Filename
# p2c doesn't like mixed case filenames!
#if [ "$Filename" != "$filename" ]; then
# echo Creating $filename
# cp -f $Filename $filename
#fi
|