home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / ABS.(X) < prev    next >
Text File  |  1993-10-16  |  258b  |  11 lines
  1. #    abs(x) is the absolute value function of x. The value of abs(x) 
  2. #    is real number >=0. abs(x)=|x|.
  3. #    e.g. abs(-2) gives 2, abs(-i) gives 1
  4.  
  5. abs(zero) := zero
  6. abs(e) := e
  7. abs(pi) := pi
  8. abs(inf) := inf
  9. abs(-zero) := zero
  10. abs(x_) := if(x>0, x, -x)
  11.