/cln-1.3.2/src/real/elem/cl_R_plusp.cc

# · C++ · 24 lines · 13 code · 7 blank · 4 comment · 1 complexity · afe837cf6da7ab7658cc4e6d52b7c288 MD5 · raw file 

    

  1. // plusp().
    2. 

  2. 

  3. // General includes.
    4. 

  4. #include "base/cl_sysdep.h"
    5. 

  5. 

  6. // Specification.
    7. 

  7. #include "cln/real.h"
    8. 

  8. 

  9. 

  10. // Implementation.
    11. 

  11. 

  12. namespace cln {
    13. 

  13. 

  14. bool plusp (const cl_R& x)
    15. 

  15. {
    16. 

  16. 	if (minusp(x))
    17. 

  17. 		return false; // x<0 -> nein
    18. 

  18. 	elif (zerop(x))
    19. 

  19. 		return false; // x=0 -> nein
    20. 

  20. 	else
    21. 

  21. 		return true; // sonst ist x>0.
    22. 

  22. }
    23. 

  23. 

  24. }  // namespace cln
    25.