home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / D.LIA < prev    next >
Encoding:
Text File  |  1995-04-21  |  1.2 KB  |  50 lines
  1. #    d(f(x),x) differentiates f(x) with respect to x. f'(x) = d(f(x),x).
  2. #    d(f(x), x,n) differentiates f(x) with respect to x in n order
  3.  
  4. sign'(x_) := 0
  5. abs'(x_) := abs(x)/x
  6. ln'(x_) := 1/x
  7. exp'(x_) := e^x
  8.  
  9. sin'(x_) := cos(x)
  10. cos'(x_) := -sin(x)
  11. tan'(x_) := sec(x)^2
  12. #cot'(x_) := -csc(x)^2
  13. #sec'(x_) := tan(x)*sec(x)
  14. #csc'(x_) := -cot(x)*csc(x)
  15.  
  16. asin'(x_) := 1/sqrt(1-x^2)
  17. acos'(x_) := -1/sqrt(1-x^2)
  18. atan'(x_) := 1/(1+x^2)
  19. acot'(x_) := -1/(1+x^2)
  20. asec'(x_) := 1/(x*sqrt(x^2-1))
  21. acsc'(x_) := -1/(x*sqrt(x^2-1))
  22.  
  23. #sinh'(x_) := cosh(x)
  24. #cosh'(x_) := sinh(x)
  25. #tanh'(x_) := sech(x)^2
  26. #coth'(x_) := -csch(x)^2
  27. #sech'(x_) := -tanh(x)*sech(x)
  28. #csch'(x_) := -coth(x)*csch(x)
  29.  
  30. #asinh'(x_) := 1/sqrt(1+x^2)
  31. #acosh'(x_) := 1/sqrt(x^2-1)
  32. #atanh'(x_) := 1/(1-x^2)
  33. #acoth'(x_) := 1/(x^2-1)
  34. #asech'(x_) := -1/(x*sqrt(1-x^2))
  35. #acsch'(x_) := -1/(x*sqrt(1+x^2))
  36.  
  37. si'(x_) := sin(x)/x
  38. ci'(x_) := cos(x)/x
  39.  
  40. erf'(x_) := 2/sqrt(pi)*exp(-x^2)
  41. gamma'(x_) := gamma(x)*polygamma(x)
  42. ei'(x_) := e^x/x
  43. li'(x_) := 1/ln(x)
  44.  
  45. d(gamma(n_, x_), x) := x^n*e^-x
  46. d(ei(n_, x_), x_) := x^n*e^x
  47. d(li(n_, x_), x_) := ln(x)^n
  48.  
  49. d(y_, x_,n_) := if(n>0, block(p:=y, do(p:=d(p,x), j,1,n,1), p, local(p) ))
  50.