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.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
##
|
>
>
>
|
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.60 2004/06/21 16:05:58 gawthrop
## Zapped comment that causes
##
## 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
##
|
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
|
par)
N=$Npar; M=1
;;
*)
esac
if [ "${language}" = "oct" ]; then
if [ "$M" = "1" ]; then
echo " mtt$name = zeros($N);"
else
echo " mtt$name = zeros($N,$M);"
fi
else
echo " mtt$name = zeros($N,$M);"
fi
done
}
declare_dummies()
{
# Get the dummies
dummies="mtt_tmp"
|
|
>
>
>
>
|
|
|
|
|
>
>
|
<
<
|
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
|
par)
N=$Npar; M=1
;;
*)
esac
case ${language} in
m)
echo " mtt$name = zeros($N,$M);"
;;
oct)
if [ "$M" = "1" ]; then
echo " mtt$name = zeros($N);"
else
echo " mtt$name = zeros($N,$M);"
fi
;;
*)
esac
done
}
declare_dummies()
{
# Get the dummies
dummies="mtt_tmp"
|
744
745
746
747
748
749
750
751
752
753
754
755
756
757
|
if [ "$declaredummies" = "yes" ]; then
declare_dummies
fi
if [ "$declareswitches" = "yes" ]; then
declare_switches
fi
zero_matrices;
}
# Argument specific stuff
get_arg_specific_stuff ()
|
>
|
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
|
if [ "$declaredummies" = "yes" ]; then
declare_dummies
fi
if [ "$declareswitches" = "yes" ]; then
declare_switches
fi
zero_matrices;
}
# Argument specific stuff
get_arg_specific_stuff ()
|