mp-tool

[David Arnold <darnold@northcoast.com>]

All,

Defined in mp-tool is

def tand (expr x) = (sind(x)/cosd(x))                enddef;
def sqr  (expr
x) = (x*x)                            enddef;
def ln   (expr x) = (if x=0:
0 else: mlog(x)/256 fi) enddef;
def exp  (expr x) = ((mexp 256)**x)
         enddef;
def pow  (expr x) = (x**power)
enddef;
def inv  (expr x) = (if x=0: 0 else: x**-1 fi)       enddef;
def
asin (expr x) = (x+(x**3)/6+3(x**5)/40)          enddef;
def acos (expr x)
= (asin(-x))                       enddef;
def atan (expr x) =
(x-(x**3)/3+(x**5)/5-(x**7)/7)   enddef;

It would be useful to add to this list. Specifically, cos, sin, tan for
radian measure, and create a value for pi. Maybe,

pi=4*atan(1);
def sin (expr x) = sind(x*(180/pi)) enddef;

etc.

Any other suggested additions?