home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / FLOOR.LI < prev    next >
Encoding:
Text File  |  1995-03-23  |  170 b   |  6 lines
  1. # floor(x) gives the greatest integer less than or equal to x
  2. # See also: ceiling, round, trunc.
  3. # e.g. floor(3.1) gives 3
  4.  
  5. floor(x_) := if(isreal(x), round(x-0.5))
  6.