1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
// Copyright © 2026 Mikhail Hogrefe
//
// Uses code adopted from the GNU MPFR Library.
//
// Copyright 1999, 2001-2024 Free Software Foundation, Inc.
//
// Contributed by the AriC and Caramba projects, INRIA.
//
// This file is part of Malachite.
//
// Malachite is free software: you can redistribute it and/or modify it under the terms of the GNU
// Lesser General Public License (LGPL) as published by the Free Software Foundation; either version
// 3 of the License, or (at your option) any later version. See <https://www.gnu.org/licenses/>.
use crate::Float;
use core::cmp::Ordering;
use malachite_base::num::arithmetic::traits::Sqrt;
use malachite_base::num::basic::integers::PrimitiveInt;
use malachite_base::rounding_modes::RoundingMode::{self, *};
use malachite_nz::natural::arithmetic::float_extras::float_can_round;
use malachite_nz::platform::Limb;
impl Float {
/// Returns an approximation of $\sqrt{\pi}$, with the given precision and rounded using the
/// given [`RoundingMode`]. An [`Ordering`] is also returned, indicating whether the rounded
/// value is less than or greater than the exact value of the constant. (Since the constant is
/// irrational, the rounded value is never equal to the exact value.)
///
/// $$
/// x = \sqrt{\pi}+\varepsilon.
/// $$
/// - If $m$ is not `Nearest`, then $|\varepsilon| < 2^{-p+1}$.
/// - If $m$ is `Nearest`, then $|\varepsilon| < 2^{-p}$.
///
/// The constant is irrational and transcendental.
///
/// The output has precision `prec`.
///
/// # Worst-case complexity
/// $T(n) = O(n (\log n)^2 \log\log n)$
///
/// $M(n) = O(n (\log n)^2)$
///
/// where $T$ is time, $M$ is additional memory, and $n$ is `prec`.
///
/// # Panics
/// Panics if `prec` is zero or if `rm` is `Exact`.
///
/// # Examples
/// ```
/// use malachite_base::rounding_modes::RoundingMode::*;
/// use malachite_float::Float;
/// use std::cmp::Ordering::*;
///
/// let (sqrt_pi, o) = Float::sqrt_pi_prec_round(100, Floor);
/// assert_eq!(sqrt_pi.to_string(), "1.77245385090551602729816748334");
/// assert_eq!(o, Less);
///
/// let (sqrt_pi, o) = Float::sqrt_pi_prec_round(100, Ceiling);
/// assert_eq!(sqrt_pi.to_string(), "1.772453850905516027298167483341");
/// assert_eq!(o, Greater);
/// ```
pub fn sqrt_pi_prec_round(prec: u64, rm: RoundingMode) -> (Self, Ordering) {
let mut working_prec = prec + 10;
let mut increment = Limb::WIDTH;
loop {
let sqrt_pi = Self::pi_prec_round(working_prec, Floor).0.sqrt();
// See algorithms.tex. Since we rounded down when computing pi, the absolute error of
// the square root is bounded by (c_sqrt + k_fx)ulp(sqrt) <= 2ulp(sqrt).
if float_can_round(
sqrt_pi.significand_ref().unwrap(),
working_prec - 1,
prec,
rm,
) {
return Self::from_float_prec_round(sqrt_pi, prec, rm);
}
working_prec += increment;
increment = working_prec >> 1;
}
}
/// Returns an approximation of $\sqrt{\pi}$, with the given precision and rounded to the
/// nearest [`Float`] of that precision. An [`Ordering`] is also returned, indicating whether
/// the rounded value is less than or greater than the exact value of the constant. (Since the
/// constant is irrational, the rounded value is never equal to the exact value.)
///
/// $$
/// x = \sqrt{\pi}+\varepsilon.
/// $$
/// - $|\varepsilon| < 2^{-p}$.
///
/// The constant is irrational and transcendental.
///
/// The output has precision `prec`.
///
/// # Worst-case complexity
/// $T(n) = O(n (\log n)^2 \log\log n)$
///
/// $M(n) = O(n (\log n)^2)$
///
/// where $T$ is time, $M$ is additional memory, and $n$ is `prec`.
///
/// # Panics
/// Panics if `prec` is zero.
///
/// # Examples
/// ```
/// use malachite_float::Float;
/// use std::cmp::Ordering::*;
///
/// let (sqrt_pi, o) = Float::sqrt_pi_prec(1);
/// assert_eq!(sqrt_pi.to_string(), "2.0");
/// assert_eq!(o, Greater);
///
/// let (sqrt_pi, o) = Float::sqrt_pi_prec(10);
/// assert_eq!(sqrt_pi.to_string(), "1.771");
/// assert_eq!(o, Less);
///
/// let (sqrt_pi, o) = Float::sqrt_pi_prec(100);
/// assert_eq!(sqrt_pi.to_string(), "1.772453850905516027298167483341");
/// assert_eq!(o, Greater);
/// ```
#[inline]
pub fn sqrt_pi_prec(prec: u64) -> (Self, Ordering) {
Self::sqrt_pi_prec_round(prec, Nearest)
}
}