use crate::Float;
use crate::InnerFloat::{Finite, Infinity, NaN, Zero};
use crate::float::arithmetic::acos::{SCALED_RADICAND_EXPONENT, SCALED_RADICAND_SHIFT};
use crate::float::arithmetic::atan::{
arc_with_period_scale, atan_rational_helper, scaled_unsigned,
};
use crate::float::arithmetic::sin::{SCALE, scaled_underflow};
use crate::{emulate_float_to_float_fn, emulate_rational_to_float_fn};
use core::cmp::Ordering::{self, Equal, Greater, Less};
use core::cmp::max;
use malachite_base::num::arithmetic::traits::{
Abs, Asec, AsecAssign, CeilingLogBase2, IsPowerOf2, Square,
};
use malachite_base::num::basic::floats::PrimitiveFloat;
use malachite_base::num::basic::integers::PrimitiveInt;
use malachite_base::num::basic::traits::{NaN as NaNTrait, One, Zero as ZeroTrait};
use malachite_base::num::comparison::traits::PartialOrdAbs;
use malachite_base::num::conversion::traits::{ExactFrom, RoundingFrom};
use malachite_base::num::logic::traits::SignificantBits;
use malachite_base::rounding_modes::RoundingMode::{self, *};
use malachite_nz::natural::arithmetic::float::round::float_can_round;
use malachite_nz::platform::Limb;
use malachite_q::Rational;
fn asec_prec_round_normal_ref(x: &Float, prec: u64, rm: RoundingMode) -> (Float, Ordering) {
let positive = *x > 0u32;
match x.partial_cmp_abs(&1u32).unwrap() {
Less => (Float::NAN, Equal),
Equal => {
if positive {
(Float::ZERO, Equal)
} else {
Float::pi_prec_round(prec, rm)
}
}
Greater => {
assert_ne!(rm, Exact, "Inexact asec");
let exp_x = i64::from(x.get_exponent().unwrap());
let exact_w = (x.get_prec().unwrap() << 1) + 2;
let mut w = prec + prec.ceiling_log_base_2() + 10;
let mut increment = Limb::WIDTH;
loop {
let q = if exp_x << 1 > i64::exact_from(w) + 2 {
x.abs()
} else {
x.square_prec_ref(max(w, exact_w))
.0
.sub_prec(Float::ONE, max(w, exact_w))
.0
.sqrt_prec(w)
.0
};
let t = q.atan_prec(w).0;
let (t, err) = if positive {
(t, 3)
} else {
(Float::pi_prec(w).0.sub_prec(t, w).0, 4)
};
if float_can_round(t.significand_ref().unwrap(), w - err, prec, rm) {
return Float::from_float_prec_round(t, prec, rm);
}
w += increment;
increment = w >> 1;
}
}
}
}
fn asec_with_period_prec_round_normal_ref(
x: &Float,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Float, Ordering) {
let positive = *x > 0u32;
let exp_x = i64::from(x.get_exponent().unwrap());
let power_of_2 = x.significand_ref().unwrap().is_power_of_2();
if exp_x == 1 && power_of_2 {
return if positive {
(Float::ZERO, Equal)
} else {
scaled_unsigned(u, 1, true, prec, rm)
};
}
if exp_x == 2 && power_of_2 && u.is_multiple_of(3) {
return scaled_unsigned(u / 3, u32::from(positive), true, prec, rm);
}
assert_ne!(rm, Exact, "Inexact asec_with_period");
if exp_x >= 65 && exp_x >= i64::exact_from(prec) + 4 {
let w = if prec <= 63 { 65 } else { prec + 2 };
let mut t = Float::from_unsigned_prec_round(u, w, Exact).0;
if positive {
t.decrement();
} else {
t.increment();
}
t >>= 2u32;
return Float::from_float_prec_round(t, prec, rm);
}
arc_with_period_scale(
|w| x.asec_prec_round_ref(w, Up).0 << SCALE,
u,
true,
prec,
rm,
)
}
pub(crate) fn asec_rational_helper(x: &Rational, prec: u64, rm: RoundingMode) -> (Float, Ordering) {
assert_ne!(rm, Exact, "Inexact asec_rational");
let positive = *x > 0u32;
let exp_x = x.floor_log_base_2_abs() + 1;
let xp = x.abs();
let mut w = prec + prec.ceiling_log_base_2() + 10;
let mut increment = Limb::WIDTH;
if positive {
let v = &xp - Rational::ONE;
if v.floor_log_base_2_abs() + 2 <= SCALED_RADICAND_EXPONENT {
let scaled = v << SCALED_RADICAND_SHIFT;
loop {
let t = Float::sqrt_rational_prec_round_ref(&scaled, w, Up).0;
if let Some(result) = scaled_underflow(&t, true, prec, rm) {
return result;
}
let t = t >> SCALE;
if float_can_round(t.significand_ref().unwrap(), w - 2, prec, rm) {
return Float::from_float_prec_round(t, prec, rm);
}
w += increment;
increment = w >> 1;
}
}
}
let mut r = None;
loop {
let t = if exp_x << 1 > i64::exact_from(w) + 2 {
atan_rational_helper(&xp, w, Nearest).0
} else {
let r = r.get_or_insert_with(|| (&xp).square() - Rational::ONE);
Float::sqrt_rational_prec_ref(r, w).0.atan_prec(w).0
};
let (t, err) = if positive {
(t, 3)
} else {
(Float::pi_prec(w).0.sub_prec(t, w).0, 4)
};
if float_can_round(t.significand_ref().unwrap(), w - err, prec, rm) {
return Float::from_float_prec_round(t, prec, rm);
}
w += increment;
increment = w >> 1;
}
}
pub(crate) fn asec_with_period_rational_helper(
x: &Rational,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Float, Ordering) {
let positive = *x > 0u32;
let exp_x = x.floor_log_base_2_abs() + 1; let integer = x.denominator_ref() == &1u32;
if integer && x.numerator_ref() == &1u32 {
return if positive {
(Float::ZERO, Equal)
} else {
scaled_unsigned(u, 1, true, prec, rm)
};
}
if integer && x.numerator_ref() == &2u32 && u.is_multiple_of(3) {
return scaled_unsigned(u / 3, u32::from(positive), true, prec, rm);
}
assert_ne!(rm, Exact, "Inexact asec_with_period_rational");
if exp_x >= 65 && exp_x >= i64::exact_from(prec) + 4 {
let w = if prec <= 63 { 65 } else { prec + 2 };
let mut t = Float::from_unsigned_prec_round(u, w, Exact).0;
if positive {
t.decrement();
} else {
t.increment();
}
t >>= 2u32;
return Float::from_float_prec_round(t, prec, rm);
}
if positive {
let v = x - Rational::ONE;
if v.floor_log_base_2_abs() + 2 <= SCALED_RADICAND_EXPONENT {
let scaled = v << SCALED_RADICAND_SHIFT;
return arc_with_period_scale(
|w| Float::sqrt_rational_prec_round_ref(&scaled, w, Up).0,
u,
true,
prec,
rm,
);
}
}
arc_with_period_scale(
|w| asec_rational_helper(x, w, Up).0 << SCALE,
u,
true,
prec,
rm,
)
}
impl Float {
#[inline]
pub fn asec_prec_round(self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.asec_prec_round_ref(prec, rm)
}
pub fn asec_prec_round_ref(&self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
assert_ne!(prec, 0);
match &self.0 {
NaN | Zero { .. } => (Self::NAN, Equal),
Infinity { .. } => {
let (pi, o) = Self::pi_prec_round(prec, rm);
(pi >> 1u32, o)
}
Finite { .. } => asec_prec_round_normal_ref(self, prec, rm),
}
}
#[inline]
pub fn asec_prec(self, prec: u64) -> (Self, Ordering) {
self.asec_prec_round(prec, Nearest)
}
#[inline]
pub fn asec_prec_ref(&self, prec: u64) -> (Self, Ordering) {
self.asec_prec_round_ref(prec, Nearest)
}
#[inline]
pub fn asec_round(self, rm: RoundingMode) -> (Self, Ordering) {
let prec = self.significant_bits();
self.asec_prec_round(prec, rm)
}
#[inline]
pub fn asec_round_ref(&self, rm: RoundingMode) -> (Self, Ordering) {
self.asec_prec_round_ref(self.significant_bits(), rm)
}
#[inline]
pub fn asec_prec_round_assign(&mut self, prec: u64, rm: RoundingMode) -> Ordering {
let (s, o) = self.asec_prec_round_ref(prec, rm);
*self = s;
o
}
#[inline]
pub fn asec_prec_assign(&mut self, prec: u64) -> Ordering {
self.asec_prec_round_assign(prec, Nearest)
}
#[inline]
pub fn asec_round_assign(&mut self, rm: RoundingMode) -> Ordering {
let prec = self.significant_bits();
self.asec_prec_round_assign(prec, rm)
}
#[inline]
#[allow(clippy::needless_pass_by_value)]
pub fn asec_rational_prec_round(x: Rational, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
Self::asec_rational_prec_round_ref(&x, prec, rm)
}
pub fn asec_rational_prec_round_ref(
x: &Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
assert_ne!(prec, 0);
match x.partial_cmp_abs(&1u32).unwrap() {
Less => (Self::NAN, Equal),
Equal => {
if *x > 0u32 {
(Self::ZERO, Equal)
} else {
Self::pi_prec_round(prec, rm)
}
}
Greater => asec_rational_helper(x, prec, rm),
}
}
#[inline]
pub fn asec_rational_prec(x: Rational, prec: u64) -> (Self, Ordering) {
Self::asec_rational_prec_round(x, prec, Nearest)
}
#[inline]
pub fn asec_rational_prec_ref(x: &Rational, prec: u64) -> (Self, Ordering) {
Self::asec_rational_prec_round_ref(x, prec, Nearest)
}
#[inline]
pub fn asec_with_period_prec_round(
self,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
self.asec_with_period_prec_round_ref(u, prec, rm)
}
#[inline]
pub fn asec_with_period_prec_round_ref(
&self,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
assert_ne!(prec, 0);
match &self.0 {
NaN | Zero { .. } => (Self::NAN, Equal),
Infinity { .. } => scaled_unsigned(u, 2, true, prec, rm),
Finite { .. } => {
if self.lt_abs(&1u32) {
(Self::NAN, Equal)
} else if u == 0 {
(Self::ZERO, Equal)
} else {
asec_with_period_prec_round_normal_ref(self, u, prec, rm)
}
}
}
}
#[inline]
pub fn asec_with_period_prec(self, u: u64, prec: u64) -> (Self, Ordering) {
self.asec_with_period_prec_round(u, prec, Nearest)
}
#[inline]
pub fn asec_with_period_prec_ref(&self, u: u64, prec: u64) -> (Self, Ordering) {
self.asec_with_period_prec_round_ref(u, prec, Nearest)
}
#[inline]
pub fn asec_with_period_round(self, u: u64, rm: RoundingMode) -> (Self, Ordering) {
let prec = self.significant_bits();
self.asec_with_period_prec_round(u, prec, rm)
}
#[inline]
pub fn asec_with_period_round_ref(&self, u: u64, rm: RoundingMode) -> (Self, Ordering) {
self.asec_with_period_prec_round_ref(u, self.significant_bits(), rm)
}
#[inline]
pub fn asec_with_period(self, u: u64) -> Self {
let prec = self.significant_bits();
self.asec_with_period_prec(u, prec).0
}
#[inline]
pub fn asec_with_period_ref(&self, u: u64) -> Self {
self.asec_with_period_prec_ref(u, self.significant_bits()).0
}
#[inline]
pub fn asec_with_period_prec_round_assign(
&mut self,
u: u64,
prec: u64,
rm: RoundingMode,
) -> Ordering {
let (c, o) = self.asec_with_period_prec_round_ref(u, prec, rm);
*self = c;
o
}
#[inline]
pub fn asec_with_period_prec_assign(&mut self, u: u64, prec: u64) -> Ordering {
self.asec_with_period_prec_round_assign(u, prec, Nearest)
}
#[inline]
pub fn asec_with_period_round_assign(&mut self, u: u64, rm: RoundingMode) -> Ordering {
let prec = self.significant_bits();
self.asec_with_period_prec_round_assign(u, prec, rm)
}
#[inline]
pub fn asec_with_period_assign(&mut self, u: u64) {
let prec = self.significant_bits();
self.asec_with_period_prec_assign(u, prec);
}
#[inline]
#[allow(clippy::needless_pass_by_value)]
pub fn asec_with_period_rational_prec_round(
x: Rational,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::asec_with_period_rational_prec_round_ref(&x, u, prec, rm)
}
pub fn asec_with_period_rational_prec_round_ref(
x: &Rational,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
assert_ne!(prec, 0);
if x.lt_abs(&1u32) {
return (Self::NAN, Equal);
}
if u == 0 {
return (Self::ZERO, Equal);
}
asec_with_period_rational_helper(x, u, prec, rm)
}
#[inline]
pub fn asec_with_period_rational_prec(x: Rational, u: u64, prec: u64) -> (Self, Ordering) {
Self::asec_with_period_rational_prec_round(x, u, prec, Nearest)
}
#[inline]
pub fn asec_with_period_rational_prec_ref(x: &Rational, u: u64, prec: u64) -> (Self, Ordering) {
Self::asec_with_period_rational_prec_round_ref(x, u, prec, Nearest)
}
#[inline]
pub fn asec_pi_prec_round(self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.asec_with_period_prec_round(2, prec, rm)
}
#[inline]
pub fn asec_pi_prec_round_ref(&self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.asec_with_period_prec_round_ref(2, prec, rm)
}
#[inline]
pub fn asec_pi_prec(self, prec: u64) -> (Self, Ordering) {
self.asec_with_period_prec(2, prec)
}
#[inline]
pub fn asec_pi_prec_ref(&self, prec: u64) -> (Self, Ordering) {
self.asec_with_period_prec_ref(2, prec)
}
#[inline]
pub fn asec_pi_round(self, rm: RoundingMode) -> (Self, Ordering) {
self.asec_with_period_round(2, rm)
}
#[inline]
pub fn asec_pi_round_ref(&self, rm: RoundingMode) -> (Self, Ordering) {
self.asec_with_period_round_ref(2, rm)
}
#[inline]
pub fn asec_pi(self) -> Self {
self.asec_with_period(2)
}
#[inline]
pub fn asec_pi_ref(&self) -> Self {
self.asec_with_period_ref(2)
}
#[inline]
pub fn asec_pi_prec_round_assign(&mut self, prec: u64, rm: RoundingMode) -> Ordering {
self.asec_with_period_prec_round_assign(2, prec, rm)
}
#[inline]
pub fn asec_pi_prec_assign(&mut self, prec: u64) -> Ordering {
self.asec_with_period_prec_assign(2, prec)
}
#[inline]
pub fn asec_pi_round_assign(&mut self, rm: RoundingMode) -> Ordering {
self.asec_with_period_round_assign(2, rm)
}
#[inline]
pub fn asec_pi_assign(&mut self) {
self.asec_with_period_assign(2);
}
#[inline]
pub fn asec_pi_rational_prec_round(
x: Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::asec_with_period_rational_prec_round(x, 2, prec, rm)
}
#[inline]
pub fn asec_pi_rational_prec_round_ref(
x: &Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::asec_with_period_rational_prec_round_ref(x, 2, prec, rm)
}
#[inline]
pub fn asec_pi_rational_prec(x: Rational, prec: u64) -> (Self, Ordering) {
Self::asec_with_period_rational_prec(x, 2, prec)
}
#[inline]
pub fn asec_pi_rational_prec_ref(x: &Rational, prec: u64) -> (Self, Ordering) {
Self::asec_with_period_rational_prec_ref(x, 2, prec)
}
}
impl Asec for Float {
type Output = Self;
#[inline]
fn asec(self) -> Self {
let prec = self.significant_bits();
self.asec_prec(prec).0
}
}
impl Asec for &Float {
type Output = Float;
#[inline]
fn asec(self) -> Float {
self.asec_prec_ref(self.significant_bits()).0
}
}
impl AsecAssign for Float {
#[inline]
fn asec_assign(&mut self) {
let prec = self.significant_bits();
self.asec_prec_assign(prec);
}
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asec<T: PrimitiveFloat>(x: T) -> T
where
Float: From<T> + PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float> + RoundingFrom<&'a Float>,
{
emulate_float_to_float_fn(Float::asec_prec, x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asec_rational<T: PrimitiveFloat>(x: &Rational) -> T
where
Float: PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float>,
{
emulate_rational_to_float_fn(Float::asec_rational_prec_ref, x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asec_with_period<T: PrimitiveFloat>(x: T, u: u64) -> T
where
Float: From<T> + PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float> + RoundingFrom<&'a Float>,
{
emulate_float_to_float_fn(|x, prec| Float::asec_with_period_prec(x, u, prec), x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asec_with_period_rational<T: PrimitiveFloat>(x: &Rational, u: u64) -> T
where
Float: PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float>,
{
emulate_rational_to_float_fn(
|x, prec| Float::asec_with_period_rational_prec_ref(x, u, prec),
x,
)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asec_pi<T: PrimitiveFloat>(x: T) -> T
where
Float: From<T> + PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float> + RoundingFrom<&'a Float>,
{
primitive_float_asec_with_period(x, 2)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asec_pi_rational<T: PrimitiveFloat>(x: &Rational) -> T
where
Float: PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float>,
{
primitive_float_asec_with_period_rational(x, 2)
}