home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / CAL / DENOM.CAL < prev    next >
Text File  |  1993-10-07  |  220b  |  7 lines
  1. frac(x,e) : x - floor(x+e);
  2. sq(x) : x * x;
  3.  
  4. denom(x,e) : if( e-frac(x,e), 1, if( e-frac(1/x,e), floor(1/x+e),
  5.         denom(frac(1/frac(1/x,e),e),e/sq(x)/sq(frac(1/x,e))) +
  6.         floor(1/x+e)*denom(frac(1/x,e),e/sq(x)) ) );
  7.