mpfi.hpp 70 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798
  1. ///////////////////////////////////////////////////////////////////////////////
  2. // Copyright 2011 John Maddock. Distributed under the Boost
  3. // Software License, Version 1.0. (See accompanying file
  4. // LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
  5. #ifndef BOOST_MATH_BN_MPFI_HPP
  6. #define BOOST_MATH_BN_MPFI_HPP
  7. #include <boost/multiprecision/number.hpp>
  8. #include <boost/math/special_functions/fpclassify.hpp>
  9. #include <boost/cstdint.hpp>
  10. #include <boost/multiprecision/detail/big_lanczos.hpp>
  11. #include <boost/multiprecision/detail/digits.hpp>
  12. #include <boost/multiprecision/mpfr.hpp>
  13. #include <boost/multiprecision/logged_adaptor.hpp>
  14. #include <boost/math/constants/constants.hpp>
  15. #include <boost/functional/hash_fwd.hpp>
  16. #include <mpfi.h>
  17. #include <cmath>
  18. #include <algorithm>
  19. #ifndef BOOST_MULTIPRECISION_MPFI_DEFAULT_PRECISION
  20. # define BOOST_MULTIPRECISION_MPFI_DEFAULT_PRECISION 20
  21. #endif
  22. namespace boost{
  23. namespace multiprecision{
  24. namespace backends{
  25. template <unsigned digits10>
  26. struct mpfi_float_backend;
  27. } // namespace backends
  28. template <unsigned digits10>
  29. struct number_category<backends::mpfi_float_backend<digits10> > : public mpl::int_<number_kind_floating_point>{};
  30. struct interval_error : public std::runtime_error
  31. {
  32. interval_error(const std::string& s) : std::runtime_error(s) {}
  33. };
  34. namespace backends{
  35. namespace detail{
  36. inline int mpfi_sgn(mpfi_srcptr p)
  37. {
  38. if(mpfi_is_zero(p))
  39. return 0;
  40. if(mpfi_is_strictly_pos(p))
  41. return 1;
  42. if(mpfi_is_strictly_neg(p))
  43. return -1;
  44. BOOST_THROW_EXCEPTION(interval_error("Sign of interval is ambiguous."));
  45. }
  46. template <unsigned digits10>
  47. struct mpfi_float_imp;
  48. template <unsigned digits10>
  49. struct mpfi_float_imp
  50. {
  51. #ifdef BOOST_HAS_LONG_LONG
  52. typedef mpl::list<long, boost::long_long_type> signed_types;
  53. typedef mpl::list<unsigned long, boost::ulong_long_type> unsigned_types;
  54. #else
  55. typedef mpl::list<long> signed_types;
  56. typedef mpl::list<unsigned long> unsigned_types;
  57. #endif
  58. typedef mpl::list<double, long double> float_types;
  59. typedef long exponent_type;
  60. mpfi_float_imp()
  61. {
  62. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  63. mpfi_set_ui(m_data, 0u);
  64. }
  65. mpfi_float_imp(unsigned prec)
  66. {
  67. mpfi_init2(m_data, prec);
  68. mpfi_set_ui(m_data, 0u);
  69. }
  70. mpfi_float_imp(const mpfi_float_imp& o)
  71. {
  72. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  73. if(o.m_data[0].left._mpfr_d)
  74. mpfi_set(m_data, o.m_data);
  75. }
  76. #ifndef BOOST_NO_CXX11_RVALUE_REFERENCES
  77. mpfi_float_imp(mpfi_float_imp&& o) BOOST_NOEXCEPT
  78. {
  79. m_data[0] = o.m_data[0];
  80. o.m_data[0].left._mpfr_d = 0;
  81. }
  82. #endif
  83. mpfi_float_imp& operator = (const mpfi_float_imp& o)
  84. {
  85. if(m_data[0].left._mpfr_d == 0)
  86. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  87. if(o.m_data[0].left._mpfr_d)
  88. mpfi_set(m_data, o.m_data);
  89. return *this;
  90. }
  91. #ifndef BOOST_NO_CXX11_RVALUE_REFERENCES
  92. mpfi_float_imp& operator = (mpfi_float_imp&& o) BOOST_NOEXCEPT
  93. {
  94. mpfi_swap(m_data, o.m_data);
  95. return *this;
  96. }
  97. #endif
  98. #ifdef BOOST_HAS_LONG_LONG
  99. #ifdef _MPFR_H_HAVE_INTMAX_T
  100. mpfi_float_imp& operator = (boost::ulong_long_type i)
  101. {
  102. if(m_data[0].left._mpfr_d == 0)
  103. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  104. mpfr_set_uj(left_data(), i, GMP_RNDD);
  105. mpfr_set_uj(right_data(), i, GMP_RNDU);
  106. return *this;
  107. }
  108. mpfi_float_imp& operator = (boost::long_long_type i)
  109. {
  110. if(m_data[0].left._mpfr_d == 0)
  111. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  112. mpfr_set_sj(left_data(), i, GMP_RNDD);
  113. mpfr_set_sj(right_data(), i, GMP_RNDU);
  114. return *this;
  115. }
  116. #else
  117. mpfi_float_imp& operator = (boost::ulong_long_type i)
  118. {
  119. if(m_data[0].left._mpfr_d == 0)
  120. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  121. boost::ulong_long_type mask = ((((1uLL << (std::numeric_limits<unsigned long>::digits - 1)) - 1) << 1) | 1u);
  122. unsigned shift = 0;
  123. mpfi_t t;
  124. mpfi_init2(t, (std::max)(static_cast<unsigned long>(std::numeric_limits<boost::ulong_long_type>::digits), static_cast<unsigned long>(multiprecision::detail::digits10_2_2(digits10))));
  125. mpfi_set_ui(m_data, 0);
  126. while(i)
  127. {
  128. mpfi_set_ui(t, static_cast<unsigned long>(i & mask));
  129. if(shift)
  130. mpfi_mul_2exp(t, t, shift);
  131. mpfi_add(m_data, m_data, t);
  132. shift += std::numeric_limits<unsigned long>::digits;
  133. i >>= std::numeric_limits<unsigned long>::digits;
  134. }
  135. mpfi_clear(t);
  136. return *this;
  137. }
  138. mpfi_float_imp& operator = (boost::long_long_type i)
  139. {
  140. if(m_data[0].left._mpfr_d == 0)
  141. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  142. bool neg = i < 0;
  143. *this = boost::multiprecision::detail::unsigned_abs(i);
  144. if(neg)
  145. mpfi_neg(m_data, m_data);
  146. return *this;
  147. }
  148. #endif
  149. #endif
  150. mpfi_float_imp& operator = (unsigned long i)
  151. {
  152. if(m_data[0].left._mpfr_d == 0)
  153. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  154. mpfi_set_ui(m_data, i);
  155. return *this;
  156. }
  157. mpfi_float_imp& operator = (long i)
  158. {
  159. if(m_data[0].left._mpfr_d == 0)
  160. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  161. mpfi_set_si(m_data, i);
  162. return *this;
  163. }
  164. mpfi_float_imp& operator = (double d)
  165. {
  166. if(m_data[0].left._mpfr_d == 0)
  167. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  168. mpfi_set_d(m_data, d);
  169. return *this;
  170. }
  171. mpfi_float_imp& operator = (long double a)
  172. {
  173. if(m_data[0].left._mpfr_d == 0)
  174. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  175. mpfr_set_ld(left_data(), a, GMP_RNDD);
  176. mpfr_set_ld(right_data(), a, GMP_RNDU);
  177. return *this;
  178. }
  179. mpfi_float_imp& operator = (const char* s)
  180. {
  181. using default_ops::eval_fpclassify;
  182. if(m_data[0].left._mpfr_d == 0)
  183. mpfi_init2(m_data, multiprecision::detail::digits10_2_2(digits10 ? digits10 : get_default_precision()));
  184. if(s && (*s == '{'))
  185. {
  186. mpfr_float_backend<digits10> a, b;
  187. std::string part;
  188. const char* p = ++s;
  189. while(*p && (*p != ',') && (*p != '}'))
  190. ++p;
  191. part.assign(s + 1, p);
  192. a = part.c_str();
  193. s = p;
  194. if(*p && (*p != '}'))
  195. {
  196. ++p;
  197. while(*p && (*p != ',') && (*p != '}'))
  198. ++p;
  199. part.assign(s + 1, p);
  200. }
  201. else
  202. part.erase();
  203. b = part.c_str();
  204. if(eval_fpclassify(a) == (int)FP_NAN)
  205. {
  206. mpfi_set_fr(this->data(), a.data());
  207. }
  208. else if(eval_fpclassify(b) == (int)FP_NAN)
  209. {
  210. mpfi_set_fr(this->data(), b.data());
  211. }
  212. else
  213. {
  214. if(a.compare(b) > 0)
  215. {
  216. BOOST_THROW_EXCEPTION(std::runtime_error("Attempt to create interval with invalid range (start is greater than end)."));
  217. }
  218. mpfi_interv_fr(m_data, a.data(), b.data());
  219. }
  220. }
  221. else if(mpfi_set_str(m_data, s, 10) != 0)
  222. {
  223. BOOST_THROW_EXCEPTION(std::runtime_error(std::string("Unable to parse string \"") + s + std::string("\"as a valid floating point number.")));
  224. }
  225. return *this;
  226. }
  227. void swap(mpfi_float_imp& o) BOOST_NOEXCEPT
  228. {
  229. mpfi_swap(m_data, o.m_data);
  230. }
  231. std::string str(std::streamsize digits, std::ios_base::fmtflags f)const
  232. {
  233. BOOST_ASSERT(m_data[0].left._mpfr_d);
  234. mpfr_float_backend<digits10> a, b;
  235. mpfi_get_left(a.data(), m_data);
  236. mpfi_get_right(b.data(), m_data);
  237. if(a.compare(b) == 0)
  238. return a.str(digits, f);
  239. return "{" + a.str(digits, f) + "," + b.str(digits, f) + "}";
  240. }
  241. ~mpfi_float_imp() BOOST_NOEXCEPT
  242. {
  243. if(m_data[0].left._mpfr_d)
  244. mpfi_clear(m_data);
  245. }
  246. void negate() BOOST_NOEXCEPT
  247. {
  248. BOOST_ASSERT(m_data[0].left._mpfr_d);
  249. mpfi_neg(m_data, m_data);
  250. }
  251. int compare(const mpfi_float_imp& o)const BOOST_NOEXCEPT
  252. {
  253. BOOST_ASSERT(m_data[0].left._mpfr_d && o.m_data[0].left._mpfr_d);
  254. if(mpfr_cmp(right_data(), o.left_data()) < 0)
  255. return -1;
  256. if(mpfr_cmp(left_data(), o.right_data()) > 0)
  257. return 1;
  258. if((mpfr_cmp(left_data(), o.left_data()) == 0) && (mpfr_cmp(right_data(), o.right_data()) == 0))
  259. return 0;
  260. BOOST_THROW_EXCEPTION(interval_error("Ambiguous comparison between two values."));
  261. return 0;
  262. }
  263. template <class V>
  264. int compare(V v)const BOOST_NOEXCEPT
  265. {
  266. mpfi_float_imp d;
  267. d = v;
  268. return compare(d);
  269. }
  270. mpfi_t& data() BOOST_NOEXCEPT
  271. {
  272. BOOST_ASSERT(m_data[0].left._mpfr_d);
  273. return m_data;
  274. }
  275. const mpfi_t& data()const BOOST_NOEXCEPT
  276. {
  277. BOOST_ASSERT(m_data[0].left._mpfr_d);
  278. return m_data;
  279. }
  280. mpfr_ptr left_data() BOOST_NOEXCEPT
  281. {
  282. BOOST_ASSERT(m_data[0].left._mpfr_d);
  283. return &(m_data[0].left);
  284. }
  285. mpfr_srcptr left_data()const BOOST_NOEXCEPT
  286. {
  287. BOOST_ASSERT(m_data[0].left._mpfr_d);
  288. return &(m_data[0].left);
  289. }
  290. mpfr_ptr right_data() BOOST_NOEXCEPT
  291. {
  292. BOOST_ASSERT(m_data[0].left._mpfr_d);
  293. return &(m_data[0].right);
  294. }
  295. mpfr_srcptr right_data()const BOOST_NOEXCEPT
  296. {
  297. BOOST_ASSERT(m_data[0].left._mpfr_d);
  298. return &(m_data[0].right);
  299. }
  300. protected:
  301. mpfi_t m_data;
  302. static unsigned& get_default_precision() BOOST_NOEXCEPT
  303. {
  304. static unsigned val = BOOST_MULTIPRECISION_MPFI_DEFAULT_PRECISION;
  305. return val;
  306. }
  307. };
  308. } // namespace detail
  309. template <unsigned digits10>
  310. struct mpfi_float_backend : public detail::mpfi_float_imp<digits10>
  311. {
  312. mpfi_float_backend() : detail::mpfi_float_imp<digits10>() {}
  313. mpfi_float_backend(const mpfi_float_backend& o) : detail::mpfi_float_imp<digits10>(o) {}
  314. #ifndef BOOST_NO_CXX11_RVALUE_REFERENCES
  315. mpfi_float_backend(mpfi_float_backend&& o) : detail::mpfi_float_imp<digits10>(static_cast<detail::mpfi_float_imp<digits10>&&>(o)) {}
  316. #endif
  317. template <unsigned D>
  318. mpfi_float_backend(const mpfi_float_backend<D>& val, typename enable_if_c<D <= digits10>::type* = 0)
  319. : detail::mpfi_float_imp<digits10>()
  320. {
  321. mpfi_set(this->m_data, val.data());
  322. }
  323. template <unsigned D>
  324. explicit mpfi_float_backend(const mpfi_float_backend<D>& val, typename disable_if_c<D <= digits10>::type* = 0)
  325. : detail::mpfi_float_imp<digits10>()
  326. {
  327. mpfi_set(this->m_data, val.data());
  328. }
  329. mpfi_float_backend(const mpfi_t val)
  330. : detail::mpfi_float_imp<digits10>()
  331. {
  332. mpfi_set(this->m_data, val);
  333. }
  334. mpfi_float_backend& operator=(const mpfi_float_backend& o)
  335. {
  336. *static_cast<detail::mpfi_float_imp<digits10>*>(this) = static_cast<detail::mpfi_float_imp<digits10> const&>(o);
  337. return *this;
  338. }
  339. template <unsigned D>
  340. mpfi_float_backend(const mpfr_float_backend<D>& val, typename enable_if_c<D <= digits10>::type* = 0)
  341. : detail::mpfi_float_imp<digits10>()
  342. {
  343. mpfi_set_fr(this->m_data, val.data());
  344. }
  345. template <unsigned D>
  346. mpfi_float_backend& operator=(const mpfr_float_backend<D>& val)
  347. {
  348. mpfi_set_fr(this->m_data, val.data());
  349. return *this;
  350. }
  351. template <unsigned D>
  352. explicit mpfi_float_backend(const mpfr_float_backend<D>& val, typename disable_if_c<D <= digits10>::type* = 0)
  353. : detail::mpfi_float_imp<digits10>()
  354. {
  355. mpfi_set_fr(this->m_data, val.data());
  356. }
  357. #ifndef BOOST_NO_CXX11_RVALUE_REFERENCES
  358. mpfi_float_backend& operator=(mpfi_float_backend&& o) BOOST_NOEXCEPT
  359. {
  360. *static_cast<detail::mpfi_float_imp<digits10>*>(this) = static_cast<detail::mpfi_float_imp<digits10>&&>(o);
  361. return *this;
  362. }
  363. #endif
  364. template <class V>
  365. mpfi_float_backend& operator=(const V& v)
  366. {
  367. *static_cast<detail::mpfi_float_imp<digits10>*>(this) = v;
  368. return *this;
  369. }
  370. mpfi_float_backend& operator=(const mpfi_t val)
  371. {
  372. mpfi_set(this->m_data, val);
  373. return *this;
  374. }
  375. // We don't change our precision here, this is a fixed precision type:
  376. template <unsigned D>
  377. mpfi_float_backend& operator=(const mpfi_float_backend<D>& val)
  378. {
  379. mpfi_set(this->m_data, val.data());
  380. return *this;
  381. }
  382. };
  383. template <>
  384. struct mpfi_float_backend<0> : public detail::mpfi_float_imp<0>
  385. {
  386. mpfi_float_backend() : detail::mpfi_float_imp<0>() {}
  387. mpfi_float_backend(const mpfi_t val)
  388. : detail::mpfi_float_imp<0>(mpfi_get_prec(val))
  389. {
  390. mpfi_set(this->m_data, val);
  391. }
  392. mpfi_float_backend(const mpfi_float_backend& o) : detail::mpfi_float_imp<0>(o) {}
  393. #ifndef BOOST_NO_CXX11_RVALUE_REFERENCES
  394. mpfi_float_backend(mpfi_float_backend&& o) BOOST_NOEXCEPT : detail::mpfi_float_imp<0>(static_cast<detail::mpfi_float_imp<0>&&>(o)) {}
  395. #endif
  396. mpfi_float_backend(const mpfi_float_backend& o, unsigned digits10)
  397. : detail::mpfi_float_imp<0>(digits10)
  398. {
  399. *this = o;
  400. }
  401. template <unsigned D>
  402. mpfi_float_backend(const mpfi_float_backend<D>& val)
  403. : detail::mpfi_float_imp<0>(mpfi_get_prec(val.data()))
  404. {
  405. mpfi_set(this->m_data, val.data());
  406. }
  407. mpfi_float_backend& operator=(const mpfi_float_backend& o)
  408. {
  409. mpfi_set_prec(this->m_data, mpfi_get_prec(o.data()));
  410. mpfi_set(this->m_data, o.data());
  411. return *this;
  412. }
  413. #ifndef BOOST_NO_CXX11_RVALUE_REFERENCES
  414. mpfi_float_backend& operator=(mpfi_float_backend&& o) BOOST_NOEXCEPT
  415. {
  416. *static_cast<detail::mpfi_float_imp<0>*>(this) = static_cast<detail::mpfi_float_imp<0> &&>(o);
  417. return *this;
  418. }
  419. #endif
  420. template <class V>
  421. mpfi_float_backend& operator=(const V& v)
  422. {
  423. *static_cast<detail::mpfi_float_imp<0>*>(this) = v;
  424. return *this;
  425. }
  426. mpfi_float_backend& operator=(const mpfi_t val)
  427. {
  428. mpfi_set_prec(this->m_data, mpfi_get_prec(val));
  429. mpfi_set(this->m_data, val);
  430. return *this;
  431. }
  432. template <unsigned D>
  433. mpfi_float_backend& operator=(const mpfi_float_backend<D>& val)
  434. {
  435. mpfi_set_prec(this->m_data, mpfi_get_prec(val.data()));
  436. mpfi_set(this->m_data, val.data());
  437. return *this;
  438. }
  439. static unsigned default_precision() BOOST_NOEXCEPT
  440. {
  441. return get_default_precision();
  442. }
  443. static void default_precision(unsigned v) BOOST_NOEXCEPT
  444. {
  445. get_default_precision() = v;
  446. }
  447. unsigned precision()const BOOST_NOEXCEPT
  448. {
  449. return multiprecision::detail::digits2_2_10(mpfi_get_prec(this->m_data));
  450. }
  451. void precision(unsigned digits10) BOOST_NOEXCEPT
  452. {
  453. mpfi_set_prec(this->m_data, multiprecision::detail::digits10_2_2((digits10)));
  454. }
  455. };
  456. template <unsigned digits10, class T>
  457. inline typename enable_if<is_arithmetic<T>, bool>::type eval_eq(const mpfi_float_backend<digits10>& a, const T& b) BOOST_NOEXCEPT
  458. {
  459. return a.compare(b) == 0;
  460. }
  461. template <unsigned digits10, class T>
  462. inline typename enable_if<is_arithmetic<T>, bool>::type eval_lt(const mpfi_float_backend<digits10>& a, const T& b) BOOST_NOEXCEPT
  463. {
  464. return a.compare(b) < 0;
  465. }
  466. template <unsigned digits10, class T>
  467. inline typename enable_if<is_arithmetic<T>, bool>::type eval_gt(const mpfi_float_backend<digits10>& a, const T& b) BOOST_NOEXCEPT
  468. {
  469. return a.compare(b) > 0;
  470. }
  471. template <unsigned D1, unsigned D2>
  472. inline void eval_add(mpfi_float_backend<D1>& result, const mpfi_float_backend<D2>& o)
  473. {
  474. mpfi_add(result.data(), result.data(), o.data());
  475. }
  476. template <unsigned D1, unsigned D2>
  477. inline void eval_subtract(mpfi_float_backend<D1>& result, const mpfi_float_backend<D2>& o)
  478. {
  479. mpfi_sub(result.data(), result.data(), o.data());
  480. }
  481. template <unsigned D1, unsigned D2>
  482. inline void eval_multiply(mpfi_float_backend<D1>& result, const mpfi_float_backend<D2>& o)
  483. {
  484. if((void*)&result == (void*)&o)
  485. mpfi_sqr(result.data(), o.data());
  486. else
  487. mpfi_mul(result.data(), result.data(), o.data());
  488. }
  489. template <unsigned D1, unsigned D2>
  490. inline void eval_divide(mpfi_float_backend<D1>& result, const mpfi_float_backend<D2>& o)
  491. {
  492. mpfi_div(result.data(), result.data(), o.data());
  493. }
  494. template <unsigned digits10>
  495. inline void eval_add(mpfi_float_backend<digits10>& result, unsigned long i)
  496. {
  497. mpfi_add_ui(result.data(), result.data(), i);
  498. }
  499. template <unsigned digits10>
  500. inline void eval_subtract(mpfi_float_backend<digits10>& result, unsigned long i)
  501. {
  502. mpfi_sub_ui(result.data(), result.data(), i);
  503. }
  504. template <unsigned digits10>
  505. inline void eval_multiply(mpfi_float_backend<digits10>& result, unsigned long i)
  506. {
  507. mpfi_mul_ui(result.data(), result.data(), i);
  508. }
  509. template <unsigned digits10>
  510. inline void eval_divide(mpfi_float_backend<digits10>& result, unsigned long i)
  511. {
  512. mpfi_div_ui(result.data(), result.data(), i);
  513. }
  514. template <unsigned digits10>
  515. inline void eval_add(mpfi_float_backend<digits10>& result, long i)
  516. {
  517. if(i > 0)
  518. mpfi_add_ui(result.data(), result.data(), i);
  519. else
  520. mpfi_sub_ui(result.data(), result.data(), boost::multiprecision::detail::unsigned_abs(i));
  521. }
  522. template <unsigned digits10>
  523. inline void eval_subtract(mpfi_float_backend<digits10>& result, long i)
  524. {
  525. if(i > 0)
  526. mpfi_sub_ui(result.data(), result.data(), i);
  527. else
  528. mpfi_add_ui(result.data(), result.data(), boost::multiprecision::detail::unsigned_abs(i));
  529. }
  530. template <unsigned digits10>
  531. inline void eval_multiply(mpfi_float_backend<digits10>& result, long i)
  532. {
  533. mpfi_mul_ui(result.data(), result.data(), boost::multiprecision::detail::unsigned_abs(i));
  534. if(i < 0)
  535. mpfi_neg(result.data(), result.data());
  536. }
  537. template <unsigned digits10>
  538. inline void eval_divide(mpfi_float_backend<digits10>& result, long i)
  539. {
  540. mpfi_div_ui(result.data(), result.data(), boost::multiprecision::detail::unsigned_abs(i));
  541. if(i < 0)
  542. mpfi_neg(result.data(), result.data());
  543. }
  544. //
  545. // Specialised 3 arg versions of the basic operators:
  546. //
  547. template <unsigned D1, unsigned D2, unsigned D3>
  548. inline void eval_add(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, const mpfi_float_backend<D3>& y)
  549. {
  550. mpfi_add(a.data(), x.data(), y.data());
  551. }
  552. template <unsigned D1, unsigned D2>
  553. inline void eval_add(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, unsigned long y)
  554. {
  555. mpfi_add_ui(a.data(), x.data(), y);
  556. }
  557. template <unsigned D1, unsigned D2>
  558. inline void eval_add(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, long y)
  559. {
  560. if(y < 0)
  561. mpfi_sub_ui(a.data(), x.data(), boost::multiprecision::detail::unsigned_abs(y));
  562. else
  563. mpfi_add_ui(a.data(), x.data(), y);
  564. }
  565. template <unsigned D1, unsigned D2>
  566. inline void eval_add(mpfi_float_backend<D1>& a, unsigned long x, const mpfi_float_backend<D2>& y)
  567. {
  568. mpfi_add_ui(a.data(), y.data(), x);
  569. }
  570. template <unsigned D1, unsigned D2>
  571. inline void eval_add(mpfi_float_backend<D1>& a, long x, const mpfi_float_backend<D2>& y)
  572. {
  573. if(x < 0)
  574. {
  575. mpfi_ui_sub(a.data(), boost::multiprecision::detail::unsigned_abs(x), y.data());
  576. mpfi_neg(a.data(), a.data());
  577. }
  578. else
  579. mpfi_add_ui(a.data(), y.data(), x);
  580. }
  581. template <unsigned D1, unsigned D2, unsigned D3>
  582. inline void eval_subtract(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, const mpfi_float_backend<D3>& y)
  583. {
  584. mpfi_sub(a.data(), x.data(), y.data());
  585. }
  586. template <unsigned D1, unsigned D2>
  587. inline void eval_subtract(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, unsigned long y)
  588. {
  589. mpfi_sub_ui(a.data(), x.data(), y);
  590. }
  591. template <unsigned D1, unsigned D2>
  592. inline void eval_subtract(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, long y)
  593. {
  594. if(y < 0)
  595. mpfi_add_ui(a.data(), x.data(), boost::multiprecision::detail::unsigned_abs(y));
  596. else
  597. mpfi_sub_ui(a.data(), x.data(), y);
  598. }
  599. template <unsigned D1, unsigned D2>
  600. inline void eval_subtract(mpfi_float_backend<D1>& a, unsigned long x, const mpfi_float_backend<D2>& y)
  601. {
  602. mpfi_ui_sub(a.data(), x, y.data());
  603. }
  604. template <unsigned D1, unsigned D2>
  605. inline void eval_subtract(mpfi_float_backend<D1>& a, long x, const mpfi_float_backend<D2>& y)
  606. {
  607. if(x < 0)
  608. {
  609. mpfi_add_ui(a.data(), y.data(), boost::multiprecision::detail::unsigned_abs(x));
  610. mpfi_neg(a.data(), a.data());
  611. }
  612. else
  613. mpfi_ui_sub(a.data(), x, y.data());
  614. }
  615. template <unsigned D1, unsigned D2, unsigned D3>
  616. inline void eval_multiply(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, const mpfi_float_backend<D3>& y)
  617. {
  618. if((void*)&x == (void*)&y)
  619. mpfi_sqr(a.data(), x.data());
  620. else
  621. mpfi_mul(a.data(), x.data(), y.data());
  622. }
  623. template <unsigned D1, unsigned D2>
  624. inline void eval_multiply(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, unsigned long y)
  625. {
  626. mpfi_mul_ui(a.data(), x.data(), y);
  627. }
  628. template <unsigned D1, unsigned D2>
  629. inline void eval_multiply(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, long y)
  630. {
  631. if(y < 0)
  632. {
  633. mpfi_mul_ui(a.data(), x.data(), boost::multiprecision::detail::unsigned_abs(y));
  634. a.negate();
  635. }
  636. else
  637. mpfi_mul_ui(a.data(), x.data(), y);
  638. }
  639. template <unsigned D1, unsigned D2>
  640. inline void eval_multiply(mpfi_float_backend<D1>& a, unsigned long x, const mpfi_float_backend<D2>& y)
  641. {
  642. mpfi_mul_ui(a.data(), y.data(), x);
  643. }
  644. template <unsigned D1, unsigned D2>
  645. inline void eval_multiply(mpfi_float_backend<D1>& a, long x, const mpfi_float_backend<D2>& y)
  646. {
  647. if(x < 0)
  648. {
  649. mpfi_mul_ui(a.data(), y.data(), boost::multiprecision::detail::unsigned_abs(x));
  650. mpfi_neg(a.data(), a.data());
  651. }
  652. else
  653. mpfi_mul_ui(a.data(), y.data(), x);
  654. }
  655. template <unsigned D1, unsigned D2, unsigned D3>
  656. inline void eval_divide(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, const mpfi_float_backend<D3>& y)
  657. {
  658. mpfi_div(a.data(), x.data(), y.data());
  659. }
  660. template <unsigned D1, unsigned D2>
  661. inline void eval_divide(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, unsigned long y)
  662. {
  663. mpfi_div_ui(a.data(), x.data(), y);
  664. }
  665. template <unsigned D1, unsigned D2>
  666. inline void eval_divide(mpfi_float_backend<D1>& a, const mpfi_float_backend<D2>& x, long y)
  667. {
  668. if(y < 0)
  669. {
  670. mpfi_div_ui(a.data(), x.data(), boost::multiprecision::detail::unsigned_abs(y));
  671. a.negate();
  672. }
  673. else
  674. mpfi_div_ui(a.data(), x.data(), y);
  675. }
  676. template <unsigned D1, unsigned D2>
  677. inline void eval_divide(mpfi_float_backend<D1>& a, unsigned long x, const mpfi_float_backend<D2>& y)
  678. {
  679. mpfi_ui_div(a.data(), x, y.data());
  680. }
  681. template <unsigned D1, unsigned D2>
  682. inline void eval_divide(mpfi_float_backend<D1>& a, long x, const mpfi_float_backend<D2>& y)
  683. {
  684. if(x < 0)
  685. {
  686. mpfi_ui_div(a.data(), boost::multiprecision::detail::unsigned_abs(x), y.data());
  687. mpfi_neg(a.data(), a.data());
  688. }
  689. else
  690. mpfi_ui_div(a.data(), x, y.data());
  691. }
  692. template <unsigned digits10>
  693. inline bool eval_is_zero(const mpfi_float_backend<digits10>& val) BOOST_NOEXCEPT
  694. {
  695. return 0 != mpfi_is_zero(val.data());
  696. }
  697. template <unsigned digits10>
  698. inline int eval_get_sign(const mpfi_float_backend<digits10>& val)
  699. {
  700. return detail::mpfi_sgn(val.data());
  701. }
  702. template <unsigned digits10>
  703. inline void eval_convert_to(unsigned long* result, const mpfi_float_backend<digits10>& val)
  704. {
  705. mpfr_float_backend<digits10> t;
  706. mpfi_mid(t.data(), val.data());
  707. eval_convert_to(result, t);
  708. }
  709. template <unsigned digits10>
  710. inline void eval_convert_to(long* result, const mpfi_float_backend<digits10>& val)
  711. {
  712. mpfr_float_backend<digits10> t;
  713. mpfi_mid(t.data(), val.data());
  714. eval_convert_to(result, t);
  715. }
  716. #ifdef _MPFR_H_HAVE_INTMAX_T
  717. template <unsigned digits10>
  718. inline void eval_convert_to(boost::ulong_long_type* result, const mpfi_float_backend<digits10>& val)
  719. {
  720. mpfr_float_backend<digits10> t;
  721. mpfi_mid(t.data(), val.data());
  722. eval_convert_to(result, t);
  723. }
  724. template <unsigned digits10>
  725. inline void eval_convert_to(boost::long_long_type* result, const mpfi_float_backend<digits10>& val)
  726. {
  727. mpfr_float_backend<digits10> t;
  728. mpfi_mid(t.data(), val.data());
  729. eval_convert_to(result, t);
  730. }
  731. #endif
  732. template <unsigned digits10>
  733. inline void eval_convert_to(double* result, const mpfi_float_backend<digits10>& val) BOOST_NOEXCEPT
  734. {
  735. *result = mpfi_get_d(val.data());
  736. }
  737. template <unsigned digits10>
  738. inline void eval_convert_to(long double* result, const mpfi_float_backend<digits10>& val) BOOST_NOEXCEPT
  739. {
  740. mpfr_float_backend<digits10> t;
  741. mpfi_mid(t.data(), val.data());
  742. eval_convert_to(result, t);
  743. }
  744. template <unsigned D1, unsigned D2, mpfr_allocation_type AllocationType>
  745. inline void assign_components(mpfi_float_backend<D1>& result, const mpfr_float_backend<D2, AllocationType>& a, const mpfr_float_backend<D2, AllocationType>& b)
  746. {
  747. using default_ops::eval_fpclassify;
  748. if(eval_fpclassify(a) == (int)FP_NAN)
  749. {
  750. mpfi_set_fr(result.data(), a.data());
  751. }
  752. else if(eval_fpclassify(b) == (int)FP_NAN)
  753. {
  754. mpfi_set_fr(result.data(), b.data());
  755. }
  756. else
  757. {
  758. if(a.compare(b) > 0)
  759. {
  760. BOOST_THROW_EXCEPTION(std::runtime_error("Attempt to create interval with invalid range (start is greater than end)."));
  761. }
  762. mpfi_interv_fr(result.data(), a.data(), b.data());
  763. }
  764. }
  765. template <unsigned Digits10, class V>
  766. inline typename enable_if_c<is_convertible<V, number<mpfr_float_backend<Digits10, allocate_dynamic>, et_on> >::value >::type
  767. assign_components(mpfi_float_backend<Digits10>& result, const V& a, const V& b)
  768. {
  769. number<mpfr_float_backend<Digits10, allocate_dynamic>, et_on> x(a), y(b);
  770. assign_components(result, x.backend(), y.backend());
  771. }
  772. //
  773. // Native non-member operations:
  774. //
  775. template <unsigned Digits10>
  776. inline void eval_sqrt(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& val)
  777. {
  778. mpfi_sqrt(result.data(), val.data());
  779. }
  780. template <unsigned Digits10>
  781. inline void eval_abs(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& val)
  782. {
  783. mpfi_abs(result.data(), val.data());
  784. }
  785. template <unsigned Digits10>
  786. inline void eval_fabs(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& val)
  787. {
  788. mpfi_abs(result.data(), val.data());
  789. }
  790. template <unsigned Digits10>
  791. inline void eval_ceil(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& val)
  792. {
  793. mpfr_float_backend<Digits10> a, b;
  794. mpfr_set(a.data(), val.left_data(), GMP_RNDN);
  795. mpfr_set(b.data(), val.right_data(), GMP_RNDN);
  796. eval_ceil(a, a);
  797. eval_ceil(b, b);
  798. if(a.compare(b) != 0)
  799. {
  800. BOOST_THROW_EXCEPTION(interval_error("Attempt to take the ceil of a value that straddles an integer boundary."));
  801. }
  802. mpfi_set_fr(result.data(), a.data());
  803. }
  804. template <unsigned Digits10>
  805. inline void eval_floor(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& val)
  806. {
  807. mpfr_float_backend<Digits10> a, b;
  808. mpfr_set(a.data(), val.left_data(), GMP_RNDN);
  809. mpfr_set(b.data(), val.right_data(), GMP_RNDN);
  810. eval_floor(a, a);
  811. eval_floor(b, b);
  812. if(a.compare(b) != 0)
  813. {
  814. BOOST_THROW_EXCEPTION(interval_error("Attempt to take the floor of a value that straddles an integer boundary."));
  815. }
  816. mpfi_set_fr(result.data(), a.data());
  817. }
  818. template <unsigned Digits10>
  819. inline void eval_ldexp(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& val, long e)
  820. {
  821. if(e > 0)
  822. mpfi_mul_2exp(result.data(), val.data(), e);
  823. else if(e < 0)
  824. mpfi_div_2exp(result.data(), val.data(), -e);
  825. else
  826. result = val;
  827. }
  828. template <unsigned Digits10>
  829. inline void eval_frexp(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& val, int* e)
  830. {
  831. mpfr_float_backend<Digits10> t, rt;
  832. mpfi_mid(t.data(), val.data());
  833. eval_frexp(rt, t, e);
  834. eval_ldexp(result, val, -*e);
  835. }
  836. template <unsigned Digits10>
  837. inline void eval_frexp(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& val, long* e)
  838. {
  839. mpfr_float_backend<Digits10> t, rt;
  840. mpfi_mid(t.data(), val.data());
  841. eval_frexp(rt, t, e);
  842. eval_ldexp(result, val, -*e);
  843. }
  844. template <unsigned Digits10>
  845. inline int eval_fpclassify(const mpfi_float_backend<Digits10>& val) BOOST_NOEXCEPT
  846. {
  847. return mpfi_inf_p(val.data()) ? FP_INFINITE : mpfi_nan_p(val.data()) ? FP_NAN : mpfi_is_zero(val.data()) ? FP_ZERO : FP_NORMAL;
  848. }
  849. template <unsigned Digits10>
  850. inline void eval_pow(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& b, const mpfi_float_backend<Digits10>& e)
  851. {
  852. typedef typename boost::multiprecision::detail::canonical<unsigned, mpfi_float_backend<Digits10> >::type ui_type;
  853. using default_ops::eval_get_sign;
  854. int s = eval_get_sign(b);
  855. if(s == 0)
  856. {
  857. if(eval_get_sign(e) == 0)
  858. {
  859. result = ui_type(1);
  860. }
  861. else
  862. {
  863. result = ui_type(0);
  864. }
  865. return;
  866. }
  867. if(s < 0)
  868. {
  869. if(eval_get_sign(e) < 0)
  870. {
  871. mpfi_float_backend<Digits10> t1, t2;
  872. t1 = e;
  873. t1.negate();
  874. eval_pow(t2, b, t1);
  875. t1 = ui_type(1);
  876. eval_divide(result, t1, t2);
  877. return;
  878. }
  879. typename boost::multiprecision::detail::canonical<boost::uintmax_t, mpfi_float_backend<Digits10> >::type an;
  880. #ifndef BOOST_NO_EXCEPTIONS
  881. try
  882. {
  883. #endif
  884. using default_ops::eval_convert_to;
  885. eval_convert_to(&an, e);
  886. if(e.compare(an) == 0)
  887. {
  888. mpfi_float_backend<Digits10> pb(b);
  889. pb.negate();
  890. eval_pow(result, pb, e);
  891. if(an & 1u)
  892. result.negate();
  893. return;
  894. }
  895. #ifndef BOOST_NO_EXCEPTIONS
  896. }
  897. catch(const std::exception&)
  898. {
  899. // conversion failed, just fall through, value is not an integer.
  900. }
  901. #endif
  902. result = std::numeric_limits<number<mpfi_float_backend<Digits10>, et_on> >::quiet_NaN().backend();
  903. return;
  904. }
  905. mpfi_log(result.data(), b.data());
  906. mpfi_mul(result.data(), result.data(), e.data());
  907. mpfi_exp(result.data(), result.data());
  908. }
  909. template <unsigned Digits10>
  910. inline void eval_exp(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  911. {
  912. mpfi_exp(result.data(), arg.data());
  913. }
  914. template <unsigned Digits10>
  915. inline void eval_exp2(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  916. {
  917. mpfi_exp2(result.data(), arg.data());
  918. }
  919. template <unsigned Digits10>
  920. inline void eval_log(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  921. {
  922. mpfi_log(result.data(), arg.data());
  923. }
  924. template <unsigned Digits10>
  925. inline void eval_log10(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  926. {
  927. mpfi_log10(result.data(), arg.data());
  928. }
  929. template <unsigned Digits10>
  930. inline void eval_sin(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  931. {
  932. mpfi_sin(result.data(), arg.data());
  933. }
  934. template <unsigned Digits10>
  935. inline void eval_cos(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  936. {
  937. mpfi_cos(result.data(), arg.data());
  938. }
  939. template <unsigned Digits10>
  940. inline void eval_tan(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  941. {
  942. mpfi_tan(result.data(), arg.data());
  943. }
  944. template <unsigned Digits10>
  945. inline void eval_asin(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  946. {
  947. mpfi_asin(result.data(), arg.data());
  948. }
  949. template <unsigned Digits10>
  950. inline void eval_acos(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  951. {
  952. mpfi_acos(result.data(), arg.data());
  953. }
  954. template <unsigned Digits10>
  955. inline void eval_atan(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  956. {
  957. mpfi_atan(result.data(), arg.data());
  958. }
  959. template <unsigned Digits10>
  960. inline void eval_atan2(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg1, const mpfi_float_backend<Digits10>& arg2)
  961. {
  962. mpfi_atan2(result.data(), arg1.data(), arg2.data());
  963. }
  964. template <unsigned Digits10>
  965. inline void eval_sinh(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  966. {
  967. mpfi_sinh(result.data(), arg.data());
  968. }
  969. template <unsigned Digits10>
  970. inline void eval_cosh(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  971. {
  972. mpfi_cosh(result.data(), arg.data());
  973. }
  974. template <unsigned Digits10>
  975. inline void eval_tanh(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  976. {
  977. mpfi_tanh(result.data(), arg.data());
  978. }
  979. template <unsigned Digits10>
  980. inline void eval_log2(mpfi_float_backend<Digits10>& result, const mpfi_float_backend<Digits10>& arg)
  981. {
  982. mpfi_log2(result.data(), arg.data());
  983. }
  984. template <unsigned Digits10>
  985. inline std::size_t hash_value(const mpfi_float_backend<Digits10>& val)
  986. {
  987. std::size_t result = 0;
  988. std::size_t len = val.left_data()[0]._mpfr_prec / mp_bits_per_limb;
  989. if(val.left_data()[0]._mpfr_prec % mp_bits_per_limb)
  990. ++len;
  991. for(std::size_t i = 0; i < len; ++i)
  992. boost::hash_combine(result, val.left_data()[0]._mpfr_d[i]);
  993. boost::hash_combine(result, val.left_data()[0]._mpfr_exp);
  994. boost::hash_combine(result, val.left_data()[0]._mpfr_sign);
  995. len = val.right_data()[0]._mpfr_prec / mp_bits_per_limb;
  996. if(val.right_data()[0]._mpfr_prec % mp_bits_per_limb)
  997. ++len;
  998. for(std::size_t i = 0; i < len; ++i)
  999. boost::hash_combine(result, val.right_data()[0]._mpfr_d[i]);
  1000. boost::hash_combine(result, val.right_data()[0]._mpfr_exp);
  1001. boost::hash_combine(result, val.right_data()[0]._mpfr_sign);
  1002. return result;
  1003. }
  1004. template <class To, unsigned D>
  1005. void generic_interconvert(To& to, const mpfi_float_backend<D>& from, const mpl::int_<number_kind_integer>& to_type, const mpl::int_<number_kind_floating_point>& from_type)
  1006. {
  1007. using boost::multiprecision::detail::generic_interconvert;
  1008. mpfr_float_backend<D> t;
  1009. mpfi_mid(t.data(), from.data());
  1010. generic_interconvert(to, t, to_type, from_type);
  1011. }
  1012. template <class To, unsigned D>
  1013. void generic_interconvert(To& to, const mpfi_float_backend<D>& from, const mpl::int_<number_kind_rational>& to_type, const mpl::int_<number_kind_floating_point>& from_type)
  1014. {
  1015. using boost::multiprecision::detail::generic_interconvert;
  1016. mpfr_float_backend<D> t;
  1017. mpfi_mid(t.data(), from.data());
  1018. generic_interconvert(to, t, to_type, from_type);
  1019. }
  1020. template <class To, unsigned D>
  1021. void generic_interconvert(To& to, const mpfi_float_backend<D>& from, const mpl::int_<number_kind_floating_point>& to_type, const mpl::int_<number_kind_floating_point>& from_type)
  1022. {
  1023. using boost::multiprecision::detail::generic_interconvert;
  1024. mpfr_float_backend<D> t;
  1025. mpfi_mid(t.data(), from.data());
  1026. generic_interconvert(to, t, to_type, from_type);
  1027. }
  1028. } // namespace backends
  1029. #ifdef BOOST_NO_SFINAE_EXPR
  1030. namespace detail{
  1031. template<unsigned D1, unsigned D2>
  1032. struct is_explicitly_convertible<backends::mpfi_float_backend<D1>, backends::mpfi_float_backend<D2> > : public mpl::true_ {};
  1033. }
  1034. #endif
  1035. template<>
  1036. struct number_category<detail::canonical<mpfi_t, backends::mpfi_float_backend<0> >::type> : public mpl::int_<number_kind_floating_point>{};
  1037. template <unsigned Digits10>
  1038. struct is_interval_number<backends::mpfi_float_backend<Digits10> > : public mpl::true_ {};
  1039. using boost::multiprecision::backends::mpfi_float_backend;
  1040. typedef number<mpfi_float_backend<50> > mpfi_float_50;
  1041. typedef number<mpfi_float_backend<100> > mpfi_float_100;
  1042. typedef number<mpfi_float_backend<500> > mpfi_float_500;
  1043. typedef number<mpfi_float_backend<1000> > mpfi_float_1000;
  1044. typedef number<mpfi_float_backend<0> > mpfi_float;
  1045. //
  1046. // Special interval specific functions:
  1047. //
  1048. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1049. inline number<mpfr_float_backend<Digits10>, ExpressionTemplates> lower(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& val)
  1050. {
  1051. number<mpfr_float_backend<Digits10> > result;
  1052. mpfr_set(result.backend().data(), val.backend().left_data(), GMP_RNDN);
  1053. return result;
  1054. }
  1055. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1056. inline number<mpfr_float_backend<Digits10>, ExpressionTemplates> upper(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& val)
  1057. {
  1058. number<mpfr_float_backend<Digits10> > result;
  1059. mpfr_set(result.backend().data(), val.backend().right_data(), GMP_RNDN);
  1060. return result;
  1061. }
  1062. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1063. inline number<mpfr_float_backend<Digits10>, ExpressionTemplates> median(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& val)
  1064. {
  1065. number<mpfr_float_backend<Digits10> > result;
  1066. mpfi_mid(result.backend().data(), val.backend().data());
  1067. return result;
  1068. }
  1069. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1070. inline number<mpfr_float_backend<Digits10>, ExpressionTemplates> width(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& val)
  1071. {
  1072. number<mpfr_float_backend<Digits10> > result;
  1073. mpfi_diam_abs(result.backend().data(), val.backend().data());
  1074. return result;
  1075. }
  1076. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1077. inline number<mpfi_float_backend<Digits10>, ExpressionTemplates> intersect(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& a, const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& b)
  1078. {
  1079. number<mpfi_float_backend<Digits10>, ExpressionTemplates> result;
  1080. mpfi_intersect(result.backend().data(), a.backend().data(), b.backend().data());
  1081. return result;
  1082. }
  1083. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1084. inline number<mpfi_float_backend<Digits10>, ExpressionTemplates> hull(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& a, const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& b)
  1085. {
  1086. number<mpfi_float_backend<Digits10>, ExpressionTemplates> result;
  1087. mpfi_union(result.backend().data(), a.backend().data(), b.backend().data());
  1088. return result;
  1089. }
  1090. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1091. inline bool overlap(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& a, const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& b)
  1092. {
  1093. return (lower(a) <= lower(b) && lower(b) <= upper(a)) ||
  1094. (lower(b) <= lower(a) && lower(a) <= upper(b));
  1095. }
  1096. template <unsigned Digits10, expression_template_option ExpressionTemplates1, expression_template_option ExpressionTemplates2>
  1097. inline bool in(const number<mpfr_float_backend<Digits10>, ExpressionTemplates1>& a, const number<mpfi_float_backend<Digits10>, ExpressionTemplates2>& b)
  1098. {
  1099. return mpfi_is_inside_fr(a.backend().data(), b.backend().data()) != 0;
  1100. }
  1101. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1102. inline bool zero_in(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& a)
  1103. {
  1104. return mpfi_has_zero(a.backend().data()) != 0;
  1105. }
  1106. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1107. inline bool subset(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& a, const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& b)
  1108. {
  1109. return mpfi_is_inside(a.backend().data(), b.backend().data()) != 0;
  1110. }
  1111. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1112. inline bool proper_subset(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& a, const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& b)
  1113. {
  1114. return mpfi_is_strictly_inside(a.backend().data(), b.backend().data()) != 0;
  1115. }
  1116. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1117. inline bool empty(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& a)
  1118. {
  1119. return mpfi_is_empty(a.backend().data()) != 0;
  1120. }
  1121. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1122. inline bool singleton(const number<mpfi_float_backend<Digits10>, ExpressionTemplates>& a)
  1123. {
  1124. return mpfr_cmp(a.backend().left_data(), a.backend().right_data()) == 0;
  1125. }
  1126. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1127. struct component_type<number<mpfi_float_backend<Digits10>, ExpressionTemplates> >
  1128. {
  1129. typedef number<mpfr_float_backend<Digits10>, ExpressionTemplates> type;
  1130. };
  1131. //
  1132. // Overloaded special functions which call native mpfr routines:
  1133. //
  1134. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1135. inline boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> asinh BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates>& arg)
  1136. {
  1137. boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result;
  1138. mpfi_asinh(result.backend().data(), arg.backend().data());
  1139. return BOOST_MP_MOVE(result);
  1140. }
  1141. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1142. inline boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> acosh BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates>& arg)
  1143. {
  1144. boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result;
  1145. mpfi_acosh(result.backend().data(), arg.backend().data());
  1146. return BOOST_MP_MOVE(result);
  1147. }
  1148. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1149. inline boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> atanh BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates>& arg)
  1150. {
  1151. boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result;
  1152. mpfi_atanh(result.backend().data(), arg.backend().data());
  1153. return BOOST_MP_MOVE(result);
  1154. }
  1155. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1156. inline boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> cbrt BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates>& arg)
  1157. {
  1158. boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result;
  1159. mpfi_cbrt(result.backend().data(), arg.backend().data());
  1160. return BOOST_MP_MOVE(result);
  1161. }
  1162. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1163. inline boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> expm1 BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates>& arg)
  1164. {
  1165. boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result;
  1166. mpfi_expm1(result.backend().data(), arg.backend().data());
  1167. return BOOST_MP_MOVE(result);
  1168. }
  1169. template <unsigned Digits10, expression_template_option ExpressionTemplates>
  1170. inline boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> log1p BOOST_PREVENT_MACRO_SUBSTITUTION(const boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates>& arg)
  1171. {
  1172. boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result;
  1173. mpfi_log1p(result.backend().data(), arg.backend().data());
  1174. return BOOST_MP_MOVE(result);
  1175. }
  1176. } // namespace multiprecision
  1177. namespace math{
  1178. namespace tools{
  1179. template <>
  1180. inline int digits<boost::multiprecision::mpfi_float>()
  1181. #ifdef BOOST_MATH_NOEXCEPT
  1182. BOOST_NOEXCEPT
  1183. #endif
  1184. {
  1185. return multiprecision::detail::digits10_2_2(boost::multiprecision::mpfi_float::default_precision());
  1186. }
  1187. template <>
  1188. inline int digits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, boost::multiprecision::et_off> >()
  1189. #ifdef BOOST_MATH_NOEXCEPT
  1190. BOOST_NOEXCEPT
  1191. #endif
  1192. {
  1193. return multiprecision::detail::digits10_2_2(boost::multiprecision::mpfi_float::default_precision());
  1194. }
  1195. template <>
  1196. inline boost::multiprecision::mpfi_float
  1197. max_value<boost::multiprecision::mpfi_float>()
  1198. {
  1199. boost::multiprecision::mpfi_float result(0.5);
  1200. mpfi_mul_2exp(result.backend().data(), result.backend().data(), mpfr_get_emax());
  1201. //BOOST_ASSERT(mpfi_number_p(result.backend().data()));
  1202. return result;
  1203. }
  1204. template <>
  1205. inline boost::multiprecision::mpfi_float
  1206. min_value<boost::multiprecision::mpfi_float>()
  1207. {
  1208. boost::multiprecision::mpfi_float result(0.5);
  1209. mpfi_div_2exp(result.backend().data(), result.backend().data(), -mpfr_get_emin());
  1210. //BOOST_ASSERT(mpfi_number_p(result.backend().data()));
  1211. return result;
  1212. }
  1213. template <>
  1214. inline boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, boost::multiprecision::et_off>
  1215. max_value<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, boost::multiprecision::et_off> >()
  1216. {
  1217. boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, boost::multiprecision::et_off> result(0.5);
  1218. mpfi_mul_2exp(result.backend().data(), result.backend().data(), mpfr_get_emax());
  1219. //BOOST_ASSERT(mpfi_number_p(result.backend().data()));
  1220. return result;
  1221. }
  1222. template <>
  1223. inline boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, boost::multiprecision::et_off>
  1224. min_value<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, boost::multiprecision::et_off> >()
  1225. {
  1226. boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, boost::multiprecision::et_off> result(0.5);
  1227. mpfi_div_2exp(result.backend().data(), result.backend().data(), -mpfr_get_emin());
  1228. //BOOST_ASSERT(mpfi_number_p(result.backend().data()));
  1229. return result;
  1230. }
  1231. // mpfi gets used with logged_adaptor fairly often, so specialize for that use case as well:
  1232. typedef boost::multiprecision::number<boost::multiprecision::backends::logged_adaptor<boost::multiprecision::mpfi_float::backend_type>, boost::multiprecision::et_on> logged_type1;
  1233. typedef boost::multiprecision::number<boost::multiprecision::backends::logged_adaptor<boost::multiprecision::mpfi_float::backend_type>, boost::multiprecision::et_off> logged_type2;
  1234. template <>
  1235. inline int digits<logged_type1>()
  1236. #ifdef BOOST_MATH_NOEXCEPT
  1237. BOOST_NOEXCEPT
  1238. #endif
  1239. {
  1240. return multiprecision::detail::digits10_2_2(logged_type1::default_precision());
  1241. }
  1242. template <>
  1243. inline int digits<logged_type2 >()
  1244. #ifdef BOOST_MATH_NOEXCEPT
  1245. BOOST_NOEXCEPT
  1246. #endif
  1247. {
  1248. return multiprecision::detail::digits10_2_2(logged_type1::default_precision());
  1249. }
  1250. template <>
  1251. inline logged_type1
  1252. max_value<logged_type1>()
  1253. {
  1254. logged_type1 result(0.5);
  1255. mpfi_mul_2exp(result.backend().value().data(), result.backend().value().data(), mpfr_get_emax());
  1256. //BOOST_ASSERT(mpfi_number_p(result.backend().data()));
  1257. return result;
  1258. }
  1259. template <>
  1260. inline logged_type1
  1261. min_value<logged_type1>()
  1262. {
  1263. logged_type1 result(0.5);
  1264. mpfi_div_2exp(result.backend().value().data(), result.backend().value().data(), -mpfr_get_emin());
  1265. //BOOST_ASSERT(mpfi_number_p(result.backend().data()));
  1266. return result;
  1267. }
  1268. template <>
  1269. inline logged_type2
  1270. max_value<logged_type2 >()
  1271. {
  1272. logged_type2 result(0.5);
  1273. mpfi_mul_2exp(result.backend().value().data(), result.backend().value().data(), mpfr_get_emax());
  1274. //BOOST_ASSERT(mpfi_number_p(result.backend().data()));
  1275. return result;
  1276. }
  1277. template <>
  1278. inline logged_type2
  1279. min_value<logged_type2 >()
  1280. {
  1281. logged_type2 result(0.5);
  1282. mpfi_div_2exp(result.backend().value().data(), result.backend().value().data(), -mpfr_get_emin());
  1283. //BOOST_ASSERT(mpfi_number_p(result.backend().data()));
  1284. return result;
  1285. }
  1286. } // namespace tools
  1287. namespace constants{ namespace detail{
  1288. template <class T> struct constant_pi;
  1289. template <class T> struct constant_ln_two;
  1290. template <class T> struct constant_euler;
  1291. template <class T> struct constant_catalan;
  1292. //
  1293. // Initializer: ensure all our constants are initialized prior to the first call of main:
  1294. //
  1295. template <class T>
  1296. struct mpfi_initializer
  1297. {
  1298. struct init
  1299. {
  1300. init()
  1301. {
  1302. boost::math::constants::pi<T>();
  1303. boost::math::constants::ln_two<T>();
  1304. boost::math::constants::euler<T>();
  1305. boost::math::constants::catalan<T>();
  1306. }
  1307. void force_instantiate()const{}
  1308. };
  1309. static const init initializer;
  1310. static void force_instantiate()
  1311. {
  1312. initializer.force_instantiate();
  1313. }
  1314. };
  1315. template <class T>
  1316. const typename mpfi_initializer<T>::init mpfi_initializer<T>::initializer;
  1317. template<unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1318. struct constant_pi<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >
  1319. {
  1320. typedef boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result_type;
  1321. template<int N>
  1322. static inline const result_type& get(const mpl::int_<N>&)
  1323. {
  1324. mpfi_initializer<result_type>::force_instantiate();
  1325. static result_type result;
  1326. static bool has_init = false;
  1327. if(!has_init)
  1328. {
  1329. has_init = true;
  1330. mpfi_const_pi(result.backend().data());
  1331. }
  1332. return result;
  1333. }
  1334. static inline result_type get(const mpl::int_<0>&)
  1335. {
  1336. result_type result;
  1337. mpfi_const_pi(result.backend().data());
  1338. return result;
  1339. }
  1340. };
  1341. template<unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1342. struct constant_ln_two<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >
  1343. {
  1344. typedef boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result_type;
  1345. template<int N>
  1346. static inline const result_type& get(const mpl::int_<N>&)
  1347. {
  1348. mpfi_initializer<result_type>::force_instantiate();
  1349. static result_type result;
  1350. static bool has_init = false;
  1351. if(!has_init)
  1352. {
  1353. has_init = true;
  1354. mpfi_const_log2(result.backend().data());
  1355. }
  1356. return result;
  1357. }
  1358. static inline result_type get(const mpl::int_<0>&)
  1359. {
  1360. result_type result;
  1361. mpfi_const_log2(result.backend().data());
  1362. return result;
  1363. }
  1364. };
  1365. template<unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1366. struct constant_euler<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >
  1367. {
  1368. typedef boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result_type;
  1369. template<int N>
  1370. static inline result_type const& get(const mpl::int_<N>&)
  1371. {
  1372. mpfi_initializer<result_type>::force_instantiate();
  1373. static result_type result;
  1374. static bool has_init = false;
  1375. if(!has_init)
  1376. {
  1377. has_init = true;
  1378. mpfi_const_euler(result.backend().data());
  1379. }
  1380. return result;
  1381. }
  1382. static inline result_type get(const mpl::int_<0>&)
  1383. {
  1384. result_type result;
  1385. mpfi_const_euler(result.backend().data());
  1386. return result;
  1387. }
  1388. };
  1389. template<unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1390. struct constant_catalan<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >
  1391. {
  1392. typedef boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> result_type;
  1393. template<int N>
  1394. static inline result_type const& get(const mpl::int_<N>&)
  1395. {
  1396. mpfi_initializer<result_type>::force_instantiate();
  1397. static result_type result;
  1398. static bool has_init = false;
  1399. if(!has_init)
  1400. {
  1401. has_init = true;
  1402. mpfi_const_catalan(result.backend().data());
  1403. }
  1404. return result;
  1405. }
  1406. static inline result_type get(const mpl::int_<0>&)
  1407. {
  1408. result_type result;
  1409. mpfi_const_catalan(result.backend().data());
  1410. return result;
  1411. }
  1412. };
  1413. }} // namespaces
  1414. }} // namespaces
  1415. namespace std{
  1416. //
  1417. // numeric_limits [partial] specializations for the types declared in this header:
  1418. //
  1419. template<unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1420. class numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >
  1421. {
  1422. typedef boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> number_type;
  1423. public:
  1424. BOOST_STATIC_CONSTEXPR bool is_specialized = true;
  1425. static number_type (min)()
  1426. {
  1427. initializer.do_nothing();
  1428. static std::pair<bool, number_type> value;
  1429. if(!value.first)
  1430. {
  1431. value.first = true;
  1432. value.second = 0.5;
  1433. mpfi_div_2exp(value.second.backend().data(), value.second.backend().data(), -mpfr_get_emin());
  1434. }
  1435. return value.second;
  1436. }
  1437. static number_type (max)()
  1438. {
  1439. initializer.do_nothing();
  1440. static std::pair<bool, number_type> value;
  1441. if(!value.first)
  1442. {
  1443. value.first = true;
  1444. value.second = 0.5;
  1445. mpfi_mul_2exp(value.second.backend().data(), value.second.backend().data(), mpfr_get_emax());
  1446. }
  1447. return value.second;
  1448. }
  1449. BOOST_STATIC_CONSTEXPR number_type lowest()
  1450. {
  1451. return -(max)();
  1452. }
  1453. BOOST_STATIC_CONSTEXPR int digits = static_cast<int>((Digits10 * 1000L) / 301L + ((Digits10 * 1000L) % 301 ? 2 : 1));
  1454. BOOST_STATIC_CONSTEXPR int digits10 = Digits10;
  1455. // Is this really correct???
  1456. BOOST_STATIC_CONSTEXPR int max_digits10 = Digits10 + 3;
  1457. BOOST_STATIC_CONSTEXPR bool is_signed = true;
  1458. BOOST_STATIC_CONSTEXPR bool is_integer = false;
  1459. BOOST_STATIC_CONSTEXPR bool is_exact = false;
  1460. BOOST_STATIC_CONSTEXPR int radix = 2;
  1461. static number_type epsilon()
  1462. {
  1463. initializer.do_nothing();
  1464. static std::pair<bool, number_type> value;
  1465. if(!value.first)
  1466. {
  1467. value.first = true;
  1468. value.second = 1;
  1469. mpfi_div_2exp(value.second.backend().data(), value.second.backend().data(), std::numeric_limits<number_type>::digits - 1);
  1470. }
  1471. return value.second;
  1472. }
  1473. // What value should this be????
  1474. static number_type round_error()
  1475. {
  1476. // returns epsilon/2
  1477. initializer.do_nothing();
  1478. static std::pair<bool, number_type> value;
  1479. if(!value.first)
  1480. {
  1481. value.first = true;
  1482. value.second = 1;
  1483. mpfi_div_2exp(value.second.backend().data(), value.second.backend().data(), 1);
  1484. }
  1485. return value.second;
  1486. }
  1487. BOOST_STATIC_CONSTEXPR long min_exponent = MPFR_EMIN_DEFAULT;
  1488. BOOST_STATIC_CONSTEXPR long min_exponent10 = (MPFR_EMIN_DEFAULT / 1000) * 301L;
  1489. BOOST_STATIC_CONSTEXPR long max_exponent = MPFR_EMAX_DEFAULT;
  1490. BOOST_STATIC_CONSTEXPR long max_exponent10 = (MPFR_EMAX_DEFAULT / 1000) * 301L;
  1491. BOOST_STATIC_CONSTEXPR bool has_infinity = true;
  1492. BOOST_STATIC_CONSTEXPR bool has_quiet_NaN = true;
  1493. BOOST_STATIC_CONSTEXPR bool has_signaling_NaN = false;
  1494. BOOST_STATIC_CONSTEXPR float_denorm_style has_denorm = denorm_absent;
  1495. BOOST_STATIC_CONSTEXPR bool has_denorm_loss = false;
  1496. static number_type infinity()
  1497. {
  1498. initializer.do_nothing();
  1499. static std::pair<bool, number_type> value;
  1500. if(!value.first)
  1501. {
  1502. boost::multiprecision::mpfr_float_backend<Digits10> t;
  1503. mpfr_set_inf(t.data(), 1);
  1504. value.first = true;
  1505. mpfi_set_fr(value.second.backend().data(), t.data());
  1506. }
  1507. return value.second;
  1508. }
  1509. static number_type quiet_NaN()
  1510. {
  1511. initializer.do_nothing();
  1512. static std::pair<bool, number_type> value;
  1513. if(!value.first)
  1514. {
  1515. boost::multiprecision::mpfr_float_backend<Digits10> t;
  1516. mpfr_set_nan(t.data());
  1517. value.first = true;
  1518. mpfi_set_fr(value.second.backend().data(), t.data());
  1519. }
  1520. return value.second;
  1521. }
  1522. BOOST_STATIC_CONSTEXPR number_type signaling_NaN()
  1523. {
  1524. return number_type(0);
  1525. }
  1526. BOOST_STATIC_CONSTEXPR number_type denorm_min() { return number_type(0); }
  1527. BOOST_STATIC_CONSTEXPR bool is_iec559 = false;
  1528. BOOST_STATIC_CONSTEXPR bool is_bounded = true;
  1529. BOOST_STATIC_CONSTEXPR bool is_modulo = false;
  1530. BOOST_STATIC_CONSTEXPR bool traps = true;
  1531. BOOST_STATIC_CONSTEXPR bool tinyness_before = false;
  1532. BOOST_STATIC_CONSTEXPR float_round_style round_style = round_to_nearest;
  1533. private:
  1534. struct data_initializer
  1535. {
  1536. data_initializer()
  1537. {
  1538. std::numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<digits10> > >::epsilon();
  1539. std::numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<digits10> > >::round_error();
  1540. (std::numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<digits10> > >::min)();
  1541. (std::numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<digits10> > >::max)();
  1542. std::numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<digits10> > >::infinity();
  1543. std::numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<digits10> > >::quiet_NaN();
  1544. }
  1545. void do_nothing()const{}
  1546. };
  1547. static const data_initializer initializer;
  1548. };
  1549. template<unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1550. const typename numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::data_initializer numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::initializer;
  1551. #ifndef BOOST_NO_INCLASS_MEMBER_INITIALIZATION
  1552. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1553. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::digits;
  1554. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1555. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::digits10;
  1556. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1557. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::max_digits10;
  1558. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1559. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::is_signed;
  1560. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1561. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::is_integer;
  1562. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1563. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::is_exact;
  1564. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1565. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::radix;
  1566. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1567. BOOST_CONSTEXPR_OR_CONST long numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::min_exponent;
  1568. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1569. BOOST_CONSTEXPR_OR_CONST long numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::min_exponent10;
  1570. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1571. BOOST_CONSTEXPR_OR_CONST long numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::max_exponent;
  1572. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1573. BOOST_CONSTEXPR_OR_CONST long numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::max_exponent10;
  1574. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1575. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::has_infinity;
  1576. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1577. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::has_quiet_NaN;
  1578. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1579. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::has_signaling_NaN;
  1580. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1581. BOOST_CONSTEXPR_OR_CONST float_denorm_style numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::has_denorm;
  1582. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1583. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::has_denorm_loss;
  1584. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1585. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::is_iec559;
  1586. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1587. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::is_bounded;
  1588. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1589. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::is_modulo;
  1590. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1591. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::traps;
  1592. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1593. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::tinyness_before;
  1594. template <unsigned Digits10, boost::multiprecision::expression_template_option ExpressionTemplates>
  1595. BOOST_CONSTEXPR_OR_CONST float_round_style numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<Digits10>, ExpressionTemplates> >::round_style;
  1596. #endif
  1597. template<boost::multiprecision::expression_template_option ExpressionTemplates>
  1598. class numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >
  1599. {
  1600. typedef boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> number_type;
  1601. public:
  1602. BOOST_STATIC_CONSTEXPR bool is_specialized = false;
  1603. static number_type (min)() { return number_type(0); }
  1604. static number_type (max)() { return number_type(0); }
  1605. static number_type lowest() { return number_type(0); }
  1606. BOOST_STATIC_CONSTEXPR int digits = 0;
  1607. BOOST_STATIC_CONSTEXPR int digits10 = 0;
  1608. BOOST_STATIC_CONSTEXPR int max_digits10 = 0;
  1609. BOOST_STATIC_CONSTEXPR bool is_signed = false;
  1610. BOOST_STATIC_CONSTEXPR bool is_integer = false;
  1611. BOOST_STATIC_CONSTEXPR bool is_exact = false;
  1612. BOOST_STATIC_CONSTEXPR int radix = 0;
  1613. static number_type epsilon() { return number_type(0); }
  1614. static number_type round_error() { return number_type(0); }
  1615. BOOST_STATIC_CONSTEXPR int min_exponent = 0;
  1616. BOOST_STATIC_CONSTEXPR int min_exponent10 = 0;
  1617. BOOST_STATIC_CONSTEXPR int max_exponent = 0;
  1618. BOOST_STATIC_CONSTEXPR int max_exponent10 = 0;
  1619. BOOST_STATIC_CONSTEXPR bool has_infinity = false;
  1620. BOOST_STATIC_CONSTEXPR bool has_quiet_NaN = false;
  1621. BOOST_STATIC_CONSTEXPR bool has_signaling_NaN = false;
  1622. BOOST_STATIC_CONSTEXPR float_denorm_style has_denorm = denorm_absent;
  1623. BOOST_STATIC_CONSTEXPR bool has_denorm_loss = false;
  1624. static number_type infinity() { return number_type(0); }
  1625. static number_type quiet_NaN() { return number_type(0); }
  1626. static number_type signaling_NaN() { return number_type(0); }
  1627. static number_type denorm_min() { return number_type(0); }
  1628. BOOST_STATIC_CONSTEXPR bool is_iec559 = false;
  1629. BOOST_STATIC_CONSTEXPR bool is_bounded = false;
  1630. BOOST_STATIC_CONSTEXPR bool is_modulo = false;
  1631. BOOST_STATIC_CONSTEXPR bool traps = false;
  1632. BOOST_STATIC_CONSTEXPR bool tinyness_before = false;
  1633. BOOST_STATIC_CONSTEXPR float_round_style round_style = round_toward_zero;
  1634. };
  1635. #ifndef BOOST_NO_INCLASS_MEMBER_INITIALIZATION
  1636. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1637. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::digits;
  1638. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1639. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::digits10;
  1640. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1641. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::max_digits10;
  1642. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1643. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::is_signed;
  1644. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1645. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::is_integer;
  1646. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1647. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::is_exact;
  1648. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1649. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::radix;
  1650. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1651. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::min_exponent;
  1652. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1653. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::min_exponent10;
  1654. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1655. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::max_exponent;
  1656. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1657. BOOST_CONSTEXPR_OR_CONST int numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::max_exponent10;
  1658. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1659. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::has_infinity;
  1660. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1661. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::has_quiet_NaN;
  1662. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1663. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::has_signaling_NaN;
  1664. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1665. BOOST_CONSTEXPR_OR_CONST float_denorm_style numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::has_denorm;
  1666. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1667. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::has_denorm_loss;
  1668. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1669. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::is_iec559;
  1670. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1671. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::is_bounded;
  1672. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1673. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::is_modulo;
  1674. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1675. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::traps;
  1676. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1677. BOOST_CONSTEXPR_OR_CONST bool numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::tinyness_before;
  1678. template <boost::multiprecision::expression_template_option ExpressionTemplates>
  1679. BOOST_CONSTEXPR_OR_CONST float_round_style numeric_limits<boost::multiprecision::number<boost::multiprecision::mpfi_float_backend<0>, ExpressionTemplates> >::round_style;
  1680. #endif
  1681. } // namespace std
  1682. #endif