home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / meschach / !Meschach / c / fmacheps < prev    next >
Encoding:
Text File  |  1994-01-13  |  1.4 KB  |  47 lines
  1.  
  2. /**************************************************************************
  3. **
  4. ** Copyright (C) 1993 David E. Steward & Zbigniew Leyk, all rights reserved.
  5. **
  6. **                 Meschach Library
  7. ** 
  8. ** This Meschach Library is provided "as is" without any express 
  9. ** or implied warranty of any kind with respect to this software. 
  10. ** In particular the authors shall not be liable for any direct, 
  11. ** indirect, special, incidental or consequential damages arising 
  12. ** in any way from use of the software.
  13. ** 
  14. ** Everyone is granted permission to copy, modify and redistribute this
  15. ** Meschach Library, provided:
  16. **  1.  All copies contain this copyright notice.
  17. **  2.  All modified copies shall carry a notice stating who
  18. **      made the last modification and the date of such modification.
  19. **  3.  No charge is made for this software or works derived from it.  
  20. **      This clause shall not be construed as constraining other software
  21. **      distributed on the same medium as this software, nor is a
  22. **      distribution fee considered a charge.
  23. **
  24. ***************************************************************************/
  25.  
  26.  
  27. #include    <stdio.h>
  28.  
  29. double    fclean(x)
  30. double    x;
  31. {
  32.     static float    y;
  33.     y = x;
  34.     return y;    /* prevents optimisation */
  35. }
  36.  
  37. main()
  38. {
  39.     static float    feps, feps1, ftmp;
  40.  
  41.     feps = 1.0;
  42.     while ( fclean(1.0+feps) > 1.0 )
  43.     feps = 0.5*feps;
  44.  
  45.     printf("%g\n", 2.0*feps);
  46. }
  47.