home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / TANH.LI < prev    next >
Encoding:
Text File  |  1993-10-16  |  119 b   |  5 lines
  1. tanh(0) := 0
  2. tanh(inf) := 1
  3. tanh(-inf) := -1
  4. tanh(x_) := if( isnumber(x) and numeric==on, (e^x-e^-x)/(e^x+e^-x) )
  5.