| ︙ | | | ︙ | |
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.55 2002/10/30 01:15:20 gawthrop
## Now gives correct-size matrices for dm rep.
##
## Revision 1.54 2002/07/11 13:00:23 geraint
## Declared more function arguments to be "const" - improves compiler optimisation.
##
## Revision 1.53 2002/06/10 23:22:16 geraint
|
>
>
>
|
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.56 2003/04/17 20:07:33 geraint
## Added rule to create _sese.m
##
## Revision 1.55 2002/10/30 01:15:20 gawthrop
## Now gives correct-size matrices for dm rep.
##
## Revision 1.54 2002/07/11 13:00:23 geraint
## Declared more function arguments to be "const" - improves compiler optimisation.
##
## Revision 1.53 2002/06/10 23:22:16 geraint
|
| ︙ | | | ︙ | |
333
334
335
336
337
338
339
340
341
342
343
344
345
346
|
inputs=no;
parameters=yes;
output=mttopen
args=$eqnargs
declareinputs=yes
declarestates=yes
declareswitches=yes
;;
numpar)
states=no;
inputs=no;
parameters=no;
output='mttpar'
;;
|
>
|
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
|
inputs=no;
parameters=yes;
output=mttopen
args=$eqnargs
declareinputs=yes
declarestates=yes
declareswitches=yes
zeromatrices='open';
;;
numpar)
states=no;
inputs=no;
parameters=no;
output='mttpar'
;;
|
| ︙ | | | ︙ | |
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
|
;;
smxa)
states=no;
inputs=no;
parameters=yes;
output='mtta'
args=$eqnargs
;;
smxax)
states=no;
inputs=no;
parameters=yes;
output='mttax'
args=$eqnargs
;;
state)
states=no;
inputs=no;
parameters=yes;
output=mttx
args=mttpar
|
>
>
|
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
|
;;
smxa)
states=no;
inputs=no;
parameters=yes;
output='mtta'
args=$eqnargs
zeromatrices='a';
;;
smxax)
states=no;
inputs=no;
parameters=yes;
output='mttax'
args=$eqnargs
zeromatrices='ax';
;;
state)
states=no;
inputs=no;
parameters=yes;
output=mttx
args=mttpar
|
| ︙ | | | ︙ | |
575
576
577
578
579
580
581
582
583
584
585
586
587
588
|
;;
edx)
N=$Nx; M=1
;;
y)
N=$Ny; M=1
;;
*)
esac
if [ "${language}" = "oct" ]; then
if [ "$M" = "1" ]; then
echo " mtt$name = zeros($N);"
|
>
>
>
>
>
>
|
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
|
;;
edx)
N=$Nx; M=1
;;
y)
N=$Ny; M=1
;;
open)
N=$Nx; M=1
;;
ax)
N=$Nx; M=1
;;
*)
esac
if [ "${language}" = "oct" ]; then
if [ "$M" = "1" ]; then
echo " mtt$name = zeros($N);"
|
| ︙ | | | ︙ | |