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
|
+
+
+
|
# Copyright (c) P.J.Gawthrop, 1990, 1994
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## 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.
## Allow latex to adjust size of parentheses according to expression within.
## Replaced ^ with \uparrow (less misleading - latex maths doesn't understand operator precedence or words).
## Replaced abs(x) with |x| when x does not contain brackets.
|
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
-
+
|
## Initial revision
##
###############################################################
cat $1 | \
tr "[A-Z]" "[a-z]" | \
sed \
-e "s/_\([a-z0-9,]*\)/_{\1}/g" \
-e "s/_\([a-z0-9]*\)/_{\1}/g" \
-e "s/\// \\\over /g" \
-e "s/[0-9a-z_]*mtty/mtty/g" \
-e "s/[0-9a-z_]*mttu/mttu/g" \
-e "s/mttx\([0-9]*\)/x_{\1}/g" \
-e "s/mttex\([0-9]*\)/\\\chi_{\1}/g" \
-e "s/mttddui\([0-9]*\)/\\\ddot{v}_{\1}/g" \
-e "s/mttdui\([0-9]*\)/\\\dot{v}_{\1}/g" \
|
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
+
|
-e "s/epsilon/\\\epsilon/g" \
-e "s/\([^b(Th)(th)z]\)eta/\1\\\eta/g" \
-e "s/^eta/\\\eta/g" \
-e "s/kappa/\\\kappa/g" \
-e "s/lambd/\\lambda/g" \
-e "s/lambda/\\\lambda/g" \
-e "s/mu/\\\mu/g" \
-e "s/nu/\\\nu/g" \
-e "s/phi/\\\phi/g" \
-e "s/pi/\\\pi/g" \
-e "s/rho/\\\rho/g" \
-e "s/sigma/\\\sigma/g" \
-e "s/omega/\\\omega/g" \
-e "s/zeta/\\\zeta/g" \
-e "s/infty/\\\infty/g" \
|