home *** CD-ROM | disk | FTP | other *** search
/ T.C. 1,001 Programme der Spitzenklasse / T._C._1001_Programme_der_Spitzenklasse.iso / richter / 8547 / 8547.mhs / RICHTER.DTP / MERCURY / DERIV.EKA < prev    next >
Text File  |  1992-03-24  |  270b  |  12 lines
  1. ; Demo of symbolic derivatives.
  2. ; x is deliberately left undefined, so Mercury will not be able to simplify
  3. ; to a real value.
  4. f(x) := EXP(x SIN(x))
  5. a = deriv(f(x),x)
  6.  
  7. ; numerical derivatives
  8. b = deriv(f(y),y)
  9. c = (f(y + eps) - f(y)) / eps
  10. eps = 1e-10
  11. y = 1
  12.