10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop, 1990, 1994
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.23 2003/08/17 11:35:07 gawthrop
## Fixed problem with parentheses
##
## 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.
##
|
>
>
>
|
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.24 2003/08/17 11:35:45 gawthrop
## Zapped ^ to uparrow conversion.
##
## Revision 1.23 2003/08/17 11:35:07 gawthrop
## Fixed problem with parentheses
##
## 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.
##
|
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
-e "s/mttz/z/g" \
-e "s/mttyy/Y/g" \
-e "s/mttw/w/g" \
-e "s/mttt/T/g" \
-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/\*\*/^/g" \
-e "s/\*/ /g" \
-e "s/)/\\\right )}/g" \
|
|
|
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
-e "s/mttz/z/g" \
-e "s/mttyy/Y/g" \
-e "s/mttw/w/g" \
-e "s/mttt/T/g" \
-e "s/mttpar//g" \
-e "s/!/\\\/g" \
-e "s/\\$//g" \
-e "s/f\{0,1\}abs(\([^()]*\))/|{ \1 }|/g" \
-e "s/(\([^(),]*\),/( { \1 } ,/g" \
-e "s/,\([^(),]*\),/, { \1 } ,/g" \
-e "s/,\([^(),]*\))/, { \1 } )/g" \
-e "s/(/{\\\\left (/g" \
-e "s/\*\*/^/g" \
-e "s/\*/ /g" \
-e "s/)/\\\right )}/g" \
|