home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 021 / d.sm < prev    next >
Encoding:
Text File  |  1993-04-15  |  791 b   |  33 lines
  1. output=off
  2.  
  3. d(1/x_, x_) := ln(x*sgn(x))
  4.  
  5. d(erf(x_), x_) := 2/sqrt(pi)*exp(-x^2)
  6.  
  7. d(sec(x_), x_) := tan(x)*sec(x)
  8. d(csc(x_), x_) := -cot(x)*csc(x)
  9.  
  10. d(asin(x_), x_) := 1/sqrt(1-x^2)
  11. d(acos(x_), x_) := -1/sqrt(1-x^2)
  12. d(atan(x_), x_) := 1/(1+x^2)
  13. d(acot(x_), x_) := -1/(1+x^2)
  14. d(asec(x_), x_) := 1/(x*sqrt(x^2-1))
  15. d(acsc(x_), x_) := -1/(x*sqrt(x^2-1))
  16.  
  17. d(sech(x_), x_) := -tanh(x)*sech(x)
  18. d(csch(x_), x_) := -coth(x)*csch(x)
  19.  
  20. d(asinh(x_), x_) := 1/sqrt(1+x^2)
  21. d(acosh(x_), x_) := sgn(acosh(x))/sqrt(x^2-1)
  22. d(atanh(x_), x_) := 1/(1-x^2)
  23. d(acoth(x_), x_) := 1/(x^2-1)
  24. d(asech(x_), x_) := -sgn(asech(x))/(x*sqrt(1-x^2))
  25. d(acsch(x_), x_) := -1/(x*sqrt(1+x^2))
  26.  
  27. d(si(x_), x_) := sin(x)/x
  28. d(ci(x_), x_) := cos(x)/x
  29. d(ei(x_), x_) := exp(x)/x
  30.  
  31. block(output=on, null)
  32. end
  33.