10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
+
+
+
+
|
# Copyright (c) P.J.Gawthrop, 1990, 1994
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.22 2002/09/26 08:33:54 geraint
## Removed comma from pattern so that braces are places around each argument
## of a function call. Added greek letter nu as a special variable.
##
## Revision 1.21 2002/08/21 18:11:15 geraint
## Replaced |x| with |{x}|. LaTeX now renders abs(fractions) correctly.
##
## Revision 1.20 2002/08/20 19:33:21 geraint
## Minor bug fixes and enhancements (I hope):
##
## Delimited expressions within function calls to prevent denominators from continuing beyond commas.
|
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
-
+
-
+
-
-
|
-e "s/mttpar//g" \
-e "s/!/\\\/g" \
-e "s/\\$//g" \
-e "s/abs(\([^()]*\))/|{ \1 }|/g" \
-e "s/(\([^(),]*\),/( { \1 } ,/g" \
-e "s/,\([^(),]*\),/, { \1 } ,/g" \
-e "s/,\([^(),]*\))/, { \1 } )/g" \
-e "s/(/{\\\left /g" \
-e "s/(/{\\\\left (/g" \
-e "s/\*\*/^/g" \
-e "s/\*/ /g" \
-e "s/)/\\\right }/g" \
-e "s/)/\\\right )}/g" \
-e "s/\left/\left (/g" \
-e "s/\right/\right )/g" \
-e "s/sqrt/\\\sqrt/g" \
-e "s/theta/\\\theta/g" \
-e "s/tau/\\\tau/g" \
-e "s/alpha/\\\alpha/g" \
-e "s/beta/\\\beta/g" \
-e "s/gamma/\\\gamma/g" \
-e "s/delta/\\\delta/g" \
|
173
174
175
176
177
178
179
180
181
182
183
184
|
175
176
177
178
179
180
181
|
-
-
-
-
-
|
-e "s/\\^/\\\uparrow /g" \
| cat -s | \
sed -e "s/ $//g" | \
tr -s '\012' '\012' \
>junk
mv junk $1
|