14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
+
+
+
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.28 2001/07/13 04:54:04 geraint
## Branch merge: numerical-algebraic-solution back to main.
##
## Revision 1.27.4.1 2001/05/04 04:07:24 geraint
## Numerical solution of algebraic equations.
## sys_ae.cc written for unsolved inputs.
## Solution of equations using hybrd from MINPACK (as used by Octave fsolve).
##
## Revision 1.27 2001/02/08 00:39:56 geraint
## Removed clear from code generated by: mtt -c -i euler -o
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
-
-
+
+
|
#Convert from the (optimised) r file
echo >> mtt_junk
echo '## Code' >> mtt_junk
strip_comments<$1_$2.r | tr [A-Z] [a-z] |\
grep -vi 'MATRIX ' |\
grep -vi 'END;' |\
grep -vi 'clear mtt' |\
grep -v '^off' |\
grep -v '^in' |\
grep -v '^off .*\$' |\
grep -v '^in .*\$' |\
sed \
-e "s/^mtt/ mtt/" \
-e "s/:=/=/" \
-e "s/\\$/;/" \
>> mtt_junk
echo '## END Code' >> mtt_junk
echo endfunction >> mtt_junk
|