home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
utility
/
sm22a.zip
/
D.SM
< prev
next >
Wrap
Text File
|
1993-04-15
|
791b
|
33 lines
output=off
d(1/x_, x_) := ln(x*sgn(x))
d(erf(x_), x_) := 2/sqrt(pi)*exp(-x^2)
d(sec(x_), x_) := tan(x)*sec(x)
d(csc(x_), x_) := -cot(x)*csc(x)
d(asin(x_), x_) := 1/sqrt(1-x^2)
d(acos(x_), x_) := -1/sqrt(1-x^2)
d(atan(x_), x_) := 1/(1+x^2)
d(acot(x_), x_) := -1/(1+x^2)
d(asec(x_), x_) := 1/(x*sqrt(x^2-1))
d(acsc(x_), x_) := -1/(x*sqrt(x^2-1))
d(sech(x_), x_) := -tanh(x)*sech(x)
d(csch(x_), x_) := -coth(x)*csch(x)
d(asinh(x_), x_) := 1/sqrt(1+x^2)
d(acosh(x_), x_) := sgn(acosh(x))/sqrt(x^2-1)
d(atanh(x_), x_) := 1/(1-x^2)
d(acoth(x_), x_) := 1/(x^2-1)
d(asech(x_), x_) := -sgn(asech(x))/(x*sqrt(1-x^2))
d(acsch(x_), x_) := -1/(x*sqrt(1+x^2))
d(si(x_), x_) := sin(x)/x
d(ci(x_), x_) := cos(x)/x
d(ei(x_), x_) := exp(x)/x
block(output=on, null)
end