home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / ATANH.(X) < prev    next >
Text File  |  1993-10-16  |  247b  |  10 lines
  1. atanh(0) := 0
  2. atanh(1) := discont
  3. atanh(1-zero) := inf
  4. atanh(1+zero) := inf-pi/2*i
  5. atanh(-1) := discont
  6. atanh(-1+zero) := -inf
  7. atanh(inf) := -pi/2*i
  8. atanh(-inf) := pi/2*i
  9. atanh(x_) := if( isnumber(x) and numeric==on, ln((x+1)/(1-x))/2 )
  10.