| ︙ | | | ︙ | |
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.61 2004/06/21 16:30:41 gawthrop
## Don't zero for cc code
##
## Revision 1.60 2004/06/21 16:05:58 gawthrop
## Zapped comment that causes
##
## Revision 1.59 2004/06/20 13:53:06 gawthrop
|
>
>
>
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.62 2004/07/19 22:22:25 geraint
## Fixed initialisation of ColumnVectors for -oct.
##
## Revision 1.61 2004/06/21 16:30:41 gawthrop
## Don't zero for cc code
##
## Revision 1.60 2004/06/21 16:05:58 gawthrop
## Zapped comment that causes
##
## Revision 1.59 2004/06/20 13:53:06 gawthrop
|
| ︙ | | | ︙ | |
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
|
system=$1
rep=$2
language=$3
fun_name=${1}_${2}
other=$4 # Anything else eg stdin
insertor=\<\< # help emacs sh-mode out with C++ lines
if [ -z "$system" ]; then
echo 'Usage: mtt_header sys rep lang [stdin]'
exit
fi
|
|
|
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
|
system=$1
rep=$2
language=$3
fun_name=${1}_${2}
other=$4 # Anything else eg stdin
insertor=\<\< # help emacs sh-mode with C++ lines
if [ -z "$system" ]; then
echo 'Usage: mtt_header sys rep lang [stdin]'
exit
fi
|
| ︙ | | | ︙ | |
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
|
;;
cse)
states=yes;
inputs=yes;
parameters=yes;
output='mttdx,mtte'
args=$eqnargs
zeromatrices='dx,e'
;;
csex)
states=yes;
inputs=yes;
parameters=yes;
output=mttedx
args=$eqnargs
|
|
|
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
|
;;
cse)
states=yes;
inputs=yes;
parameters=yes;
output='mttdx,mtte'
args=$eqnargs
zeromatrices='dx e'
;;
csex)
states=yes;
inputs=yes;
parameters=yes;
output=mttedx
args=$eqnargs
|
| ︙ | | | ︙ | |
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
|
parameters=no;
declareinputs=no;
else
states=yes;
parameters=yes;
declareinputs=yes
declarestates=yes
zeromatrices=u
fi
;;
logic)
states=no;
inputs=no;
parameters=yes;
output=mttopen
|
|
|
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
|
parameters=no;
declareinputs=no;
else
states=yes;
parameters=yes;
declareinputs=yes
declarestates=yes
zeromatrices='u'
fi
;;
logic)
states=no;
inputs=no;
parameters=yes;
output=mttopen
|
| ︙ | | | ︙ | |
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
|
;;
sese)
states=yes;
inputs=yes;
parameters=yes;
output="mttdx,mtty";
args=$eqnargs;
zeromatrices="dx,y";
;;
sm)
states=no;
inputs=no;
parameters=yes;
output='mtta,mttb,mttc,mttd'
args=mttpar;
|
|
|
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
|
;;
sese)
states=yes;
inputs=yes;
parameters=yes;
output="mttdx,mtty";
args=$eqnargs;
zeromatrices="dx y";
;;
sm)
states=no;
inputs=no;
parameters=yes;
output='mtta,mttb,mttc,mttd'
args=mttpar;
|
| ︙ | | | ︙ | |
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
|
state)
states=no;
inputs=no;
parameters=yes;
output=mttx
args=mttpar
declarestates=yes
zeromatrices=x
;;
sim)
states=no;
inputs=no;
parameters=no;
output='y,x,t'
args='x0,par,simpar,u'
|
|
|
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
|
state)
states=no;
inputs=no;
parameters=yes;
output=mttx
args=mttpar
declarestates=yes
zeromatrices='x'
;;
sim)
states=no;
inputs=no;
parameters=no;
output='y,x,t'
args='x0,par,simpar,u'
|
| ︙ | | | ︙ | |