home *** CD-ROM | disk | FTP | other *** search
/ PC Open 11 / pcopen11.iso / Zipped / SM34A.ZIP / LIBRARY / CSCH.LI < prev    next >
Encoding:
Text File  |  1993-10-16  |  156 b   |  7 lines
  1. csch(0) := discont
  2. csch(zero) := inf
  3. csch(-zero) := -inf
  4. csch(inf) := 0
  5. csch(-inf) := 0
  6. csch(x_) :=  if( isnumber(x) and numeric==on, 2/(e^x-e^-x) )
  7.