home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / FRAC.(X) < prev    next >
Text File  |  1993-11-07  |  126b  |  5 lines
  1. #    frac(x) gives the fractional part of real number x.
  2. #    e.g. frac(2.4) gives 0.4.
  3.  
  4. frac(x_) := if(isreal(x), x-trunc(x))
  5.