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.58 2004/06/20 13:34:11 gawthrop
## Create vectors using zeros(N,1) - avoids new octave
## default to row vector - more reps now included
##
## Revision 1.57 2004/06/20 10:18:00 gawthrop
## Explicitly size vectors - avoid default row vector bug
##
|
>
>
>
|
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.59 2004/06/20 13:53:06 gawthrop
## Initialise for numpar as well
##
## Revision 1.58 2004/06/20 13:34:11 gawthrop
## Create vectors using zeros(N,1) - avoids new octave
## default to row vector - more reps now included
##
## Revision 1.57 2004/06/20 10:18:00 gawthrop
## Explicitly size vectors - avoid default row vector bug
##
|
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
|
Npar=`wc -l $system\_sympar.txt | gawk '{print $1}'`
}
zero_matrices()
{
## Set matrices to zero
echo
## echo '## Set matrices to zero'
|
<
|
574
575
576
577
578
579
580
581
582
583
584
585
586
587
|
Npar=`wc -l $system\_sympar.txt | gawk '{print $1}'`
}
zero_matrices()
{
## Set matrices to zero
echo
for name in $zeromatrices; do
case $name in
a)
N=$Nx; M=$Nx
;;
b)
N=$Nx; M=$Nu
|