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