fastmath.cpp 5.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899
  1. // This file is part of Eigen, a lightweight C++ template library
  2. // for linear algebra.
  3. //
  4. // Copyright (C) 2015 Gael Guennebaud <gael.guennebaud@inria.fr>
  5. //
  6. // This Source Code Form is subject to the terms of the Mozilla
  7. // Public License v. 2.0. If a copy of the MPL was not distributed
  8. // with this file, You can obtain one at http://mozilla.org/MPL/2.0/.
  9. #include "main.h"
  10. void check(bool b, bool ref)
  11. {
  12. std::cout << b;
  13. if(b==ref)
  14. std::cout << " OK ";
  15. else
  16. std::cout << " BAD ";
  17. }
  18. #if EIGEN_COMP_MSVC && EIGEN_COMP_MSVC < 1800
  19. namespace std {
  20. template<typename T> bool (isfinite)(T x) { return _finite(x); }
  21. template<typename T> bool (isnan)(T x) { return _isnan(x); }
  22. template<typename T> bool (isinf)(T x) { return _fpclass(x)==_FPCLASS_NINF || _fpclass(x)==_FPCLASS_PINF; }
  23. }
  24. #endif
  25. template<typename T>
  26. void check_inf_nan(bool dryrun) {
  27. Matrix<T,Dynamic,1> m(10);
  28. m.setRandom();
  29. m(3) = std::numeric_limits<T>::quiet_NaN();
  30. if(dryrun)
  31. {
  32. std::cout << "std::isfinite(" << m(3) << ") = "; check((std::isfinite)(m(3)),false); std::cout << " ; numext::isfinite = "; check((numext::isfinite)(m(3)), false); std::cout << "\n";
  33. std::cout << "std::isinf(" << m(3) << ") = "; check((std::isinf)(m(3)),false); std::cout << " ; numext::isinf = "; check((numext::isinf)(m(3)), false); std::cout << "\n";
  34. std::cout << "std::isnan(" << m(3) << ") = "; check((std::isnan)(m(3)),true); std::cout << " ; numext::isnan = "; check((numext::isnan)(m(3)), true); std::cout << "\n";
  35. std::cout << "allFinite: "; check(m.allFinite(), 0); std::cout << "\n";
  36. std::cout << "hasNaN: "; check(m.hasNaN(), 1); std::cout << "\n";
  37. std::cout << "\n";
  38. }
  39. else
  40. {
  41. if( (std::isfinite)(m(3))) g_test_level=1; VERIFY( !(numext::isfinite)(m(3)) ); g_test_level=0;
  42. if( (std::isinf) (m(3))) g_test_level=1; VERIFY( !(numext::isinf)(m(3)) ); g_test_level=0;
  43. if(!(std::isnan) (m(3))) g_test_level=1; VERIFY( (numext::isnan)(m(3)) ); g_test_level=0;
  44. if( (std::isfinite)(m(3))) g_test_level=1; VERIFY( !m.allFinite() ); g_test_level=0;
  45. if(!(std::isnan) (m(3))) g_test_level=1; VERIFY( m.hasNaN() ); g_test_level=0;
  46. }
  47. T hidden_zero = (std::numeric_limits<T>::min)()*(std::numeric_limits<T>::min)();
  48. m(4) /= hidden_zero;
  49. if(dryrun)
  50. {
  51. std::cout << "std::isfinite(" << m(4) << ") = "; check((std::isfinite)(m(4)),false); std::cout << " ; numext::isfinite = "; check((numext::isfinite)(m(4)), false); std::cout << "\n";
  52. std::cout << "std::isinf(" << m(4) << ") = "; check((std::isinf)(m(4)),true); std::cout << " ; numext::isinf = "; check((numext::isinf)(m(4)), true); std::cout << "\n";
  53. std::cout << "std::isnan(" << m(4) << ") = "; check((std::isnan)(m(4)),false); std::cout << " ; numext::isnan = "; check((numext::isnan)(m(4)), false); std::cout << "\n";
  54. std::cout << "allFinite: "; check(m.allFinite(), 0); std::cout << "\n";
  55. std::cout << "hasNaN: "; check(m.hasNaN(), 1); std::cout << "\n";
  56. std::cout << "\n";
  57. }
  58. else
  59. {
  60. if( (std::isfinite)(m(3))) g_test_level=1; VERIFY( !(numext::isfinite)(m(4)) ); g_test_level=0;
  61. if(!(std::isinf) (m(3))) g_test_level=1; VERIFY( (numext::isinf)(m(4)) ); g_test_level=0;
  62. if( (std::isnan) (m(3))) g_test_level=1; VERIFY( !(numext::isnan)(m(4)) ); g_test_level=0;
  63. if( (std::isfinite)(m(3))) g_test_level=1; VERIFY( !m.allFinite() ); g_test_level=0;
  64. if(!(std::isnan) (m(3))) g_test_level=1; VERIFY( m.hasNaN() ); g_test_level=0;
  65. }
  66. m(3) = 0;
  67. if(dryrun)
  68. {
  69. std::cout << "std::isfinite(" << m(3) << ") = "; check((std::isfinite)(m(3)),true); std::cout << " ; numext::isfinite = "; check((numext::isfinite)(m(3)), true); std::cout << "\n";
  70. std::cout << "std::isinf(" << m(3) << ") = "; check((std::isinf)(m(3)),false); std::cout << " ; numext::isinf = "; check((numext::isinf)(m(3)), false); std::cout << "\n";
  71. std::cout << "std::isnan(" << m(3) << ") = "; check((std::isnan)(m(3)),false); std::cout << " ; numext::isnan = "; check((numext::isnan)(m(3)), false); std::cout << "\n";
  72. std::cout << "allFinite: "; check(m.allFinite(), 0); std::cout << "\n";
  73. std::cout << "hasNaN: "; check(m.hasNaN(), 0); std::cout << "\n";
  74. std::cout << "\n\n";
  75. }
  76. else
  77. {
  78. if(!(std::isfinite)(m(3))) g_test_level=1; VERIFY( (numext::isfinite)(m(3)) ); g_test_level=0;
  79. if( (std::isinf) (m(3))) g_test_level=1; VERIFY( !(numext::isinf)(m(3)) ); g_test_level=0;
  80. if( (std::isnan) (m(3))) g_test_level=1; VERIFY( !(numext::isnan)(m(3)) ); g_test_level=0;
  81. if( (std::isfinite)(m(3))) g_test_level=1; VERIFY( !m.allFinite() ); g_test_level=0;
  82. if( (std::isnan) (m(3))) g_test_level=1; VERIFY( !m.hasNaN() ); g_test_level=0;
  83. }
  84. }
  85. EIGEN_DECLARE_TEST(fastmath) {
  86. std::cout << "*** float *** \n\n"; check_inf_nan<float>(true);
  87. std::cout << "*** double ***\n\n"; check_inf_nan<double>(true);
  88. std::cout << "*** long double *** \n\n"; check_inf_nan<long double>(true);
  89. check_inf_nan<float>(false);
  90. check_inf_nan<double>(false);
  91. check_inf_nan<long double>(false);
  92. }