home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / SIGN.(X) < prev    next >
Text File  |  1993-11-14  |  166b  |  12 lines
  1. #    library sign.(x)
  2.  
  3. sign(0) := 0
  4. sign(zero) := 1
  5. sign(-zero) := -1
  6. sign(e) := 1
  7. sign(pi) := 1
  8. sign(inf) := 1
  9. sign(-inf) := -1
  10.  
  11. sign(x_) := if(x>0, 1, -1)
  12.