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