12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.6 1999/03/15 07:29:25 peterg
## Fixed various obscure reduce bugs
## THIS NEEDS A MAJOR REWRITE!!!!
##
## Revision 1.5 1998/08/13 16:25:07 peterg
## Removed some documentation form odeo.m
##
|
>
>
>
|
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.7 1999/03/16 00:38:06 peterg
## Done some more tidying up
##
## Revision 1.6 1999/03/15 07:29:25 peterg
## Fixed various obscure reduce bugs
## THIS NEEDS A MAJOR REWRITE!!!!
##
## Revision 1.5 1998/08/13 16:25:07 peterg
## Removed some documentation form odeo.m
##
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
sed 's/mtt_matrix/mtty/' <mtt_odeo >> $1_odeo.p
rm -f mtt_odeo mtt_ode
# Convert from Pascal syntax to Octave syntax
mtt_p2m<$1_odeo.p > $1_odeo.m
#rm -f $1_odeo.p
|
|
<
|
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
sed 's/mtt_matrix/mtty/' <mtt_odeo >> $1_odeo.p
rm -f mtt_odeo mtt_ode
# Convert from Pascal syntax to Octave syntax
mtt_p2m<$1_odeo.p > $1_odeo.m
rm -f $1_odeo.p
fi
if [ "$rep" = "sm" ]||[ "$rep" = "dm" ]; then
if [ "$rep" = "sm" ]; then
#Header
lang_header $1 $rep $ext '' [mtta,mttb,mttc,mttd] > $outfile.p
|