use crate::Float;
use crate::InnerFloat::{Finite, Infinity, NaN, Zero};
use crate::float::arithmetic::asin::{asin_at_prec, asin_cancellation};
use crate::float::arithmetic::atan::{arc_with_period_scale, scaled_unsigned};
use crate::float::arithmetic::sin::{SCALE, SCALED_INPUT_EXPONENT, scaled_underflow};
use crate::{emulate_float_to_float_fn, emulate_rational_to_float_fn};
use core::cmp::Ordering::{self, Equal, Greater, Less};
use malachite_base::num::arithmetic::traits::{
Acos, AcosAssign, 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;
pub(crate) const SCALED_RADICAND_EXPONENT: i64 = SCALED_INPUT_EXPONENT << 1;
pub(crate) const SCALED_RADICAND_SHIFT: u64 = (SCALE << 1) + 1;
fn acos_prec_round_normal_ref(x: &Float, prec: u64, rm: RoundingMode) -> (Float, Ordering) {
let positive = *x > 0u32;
match x.partial_cmp_abs(&1u32).unwrap() {
Greater => (Float::NAN, Equal),
Equal => {
if positive {
(Float::ZERO, Equal)
} else {
Float::pi_prec_round(prec, rm)
}
}
Less => {
assert_ne!(rm, Exact, "Inexact acos");
let cancel = asin_cancellation(x, positive);
let supplement = if positive { (cancel << 1) - 2 } else { cancel };
let mut w = prec + prec.ceiling_log_base_2() + 10 + supplement;
let mut increment = Limb::WIDTH;
loop {
let t = asin_at_prec(x, w);
let half_pi = Float::pi_prec(w).0 >> 1u32;
let t = half_pi.sub_prec(t, w).0;
if float_can_round(t.significand_ref().unwrap(), w - supplement, prec, rm) {
return Float::from_float_prec_round(t, prec, rm);
}
w += increment;
increment = w >> 1;
}
}
}
}
fn acos_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 == 0 && power_of_2 && u.is_multiple_of(3) {
return scaled_unsigned(u / 3, u32::from(positive), true, prec, rm);
}
assert_ne!(rm, Exact, "Inexact acos_with_period");
if exp_x <= -64 && exp_x <= -i64::exact_from(prec) - 3 {
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.acos_prec_round_ref(w, Up).0 << SCALE,
u,
true,
prec,
rm,
)
}
pub(crate) fn acos_rational_helper(x: &Rational, prec: u64, rm: RoundingMode) -> (Float, Ordering) {
assert_ne!(rm, Exact, "Inexact acos_rational");
let positive = *x > 0u32;
let mut w = prec + prec.ceiling_log_base_2() + 10;
let mut increment = Limb::WIDTH;
if positive {
let u = Rational::ONE - x;
if u.floor_log_base_2_abs() + 2 <= SCALED_RADICAND_EXPONENT {
let scaled = u << 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 exp_x = x.floor_log_base_2_abs() + 1;
if -(exp_x << 1) > i64::exact_from(prec) + 10 {
loop {
let t = Float::from_rational_prec_ref(x, w).0.acos_prec(w).0;
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 x2 = x.square();
let r = (Rational::ONE - &x2) / x2;
loop {
let t = 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 acos_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; if exp_x == 1 {
return if positive {
(Float::ZERO, Equal)
} else {
scaled_unsigned(u, 1, true, prec, rm)
};
}
if u.is_multiple_of(3) && x.numerator_ref() == &1u32 && x.denominator_ref() == &2u32 {
return scaled_unsigned(u / 3, u32::from(positive), true, prec, rm);
}
assert_ne!(rm, Exact, "Inexact acos_with_period_rational");
if exp_x <= -64 && exp_x <= -i64::exact_from(prec) - 3 {
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 = Rational::ONE - x;
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| acos_rational_helper(x, w, Up).0 << SCALE,
u,
true,
prec,
rm,
)
}
impl Float {
#[inline]
pub fn acos_prec_round(self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.acos_prec_round_ref(prec, rm)
}
pub fn acos_prec_round_ref(&self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
assert_ne!(prec, 0);
match &self.0 {
NaN | Infinity { .. } => (Self::NAN, Equal),
Zero { .. } => {
let (pi, o) = Self::pi_prec_round(prec, rm);
(pi >> 1u32, o)
}
Finite { .. } => acos_prec_round_normal_ref(self, prec, rm),
}
}
#[inline]
pub fn acos_prec(self, prec: u64) -> (Self, Ordering) {
self.acos_prec_round(prec, Nearest)
}
#[inline]
pub fn acos_prec_ref(&self, prec: u64) -> (Self, Ordering) {
self.acos_prec_round_ref(prec, Nearest)
}
#[inline]
pub fn acos_round(self, rm: RoundingMode) -> (Self, Ordering) {
let prec = self.significant_bits();
self.acos_prec_round(prec, rm)
}
#[inline]
pub fn acos_round_ref(&self, rm: RoundingMode) -> (Self, Ordering) {
self.acos_prec_round_ref(self.significant_bits(), rm)
}
#[inline]
pub fn acos_prec_round_assign(&mut self, prec: u64, rm: RoundingMode) -> Ordering {
let (c, o) = self.acos_prec_round_ref(prec, rm);
*self = c;
o
}
#[inline]
pub fn acos_prec_assign(&mut self, prec: u64) -> Ordering {
self.acos_prec_round_assign(prec, Nearest)
}
#[inline]
pub fn acos_round_assign(&mut self, rm: RoundingMode) -> Ordering {
let prec = self.significant_bits();
self.acos_prec_round_assign(prec, rm)
}
#[inline]
#[allow(clippy::needless_pass_by_value)]
pub fn acos_rational_prec_round(x: Rational, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
Self::acos_rational_prec_round_ref(&x, prec, rm)
}
pub fn acos_rational_prec_round_ref(
x: &Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
assert_ne!(prec, 0);
if *x == 0u32 {
let (pi, o) = Self::pi_prec_round(prec, rm);
return (pi >> 1u32, o);
}
match x.partial_cmp_abs(&1u32).unwrap() {
Greater => (Self::NAN, Equal),
Equal => {
if *x > 0u32 {
(Self::ZERO, Equal)
} else {
Self::pi_prec_round(prec, rm)
}
}
Less => acos_rational_helper(x, prec, rm),
}
}
#[inline]
pub fn acos_rational_prec(x: Rational, prec: u64) -> (Self, Ordering) {
Self::acos_rational_prec_round(x, prec, Nearest)
}
#[inline]
pub fn acos_rational_prec_ref(x: &Rational, prec: u64) -> (Self, Ordering) {
Self::acos_rational_prec_round_ref(x, prec, Nearest)
}
#[inline]
pub fn acos_with_period_prec_round(
self,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
self.acos_with_period_prec_round_ref(u, prec, rm)
}
pub fn acos_with_period_prec_round_ref(
&self,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
assert_ne!(prec, 0);
match &self.0 {
NaN | Infinity { .. } => (Self::NAN, Equal),
Zero { .. } => scaled_unsigned(u, 2, true, prec, rm),
Finite { .. } => {
if self.gt_abs(&1u32) {
(Self::NAN, Equal)
} else if u == 0 {
(Self::ZERO, Equal)
} else {
acos_with_period_prec_round_normal_ref(self, u, prec, rm)
}
}
}
}
#[inline]
pub fn acos_with_period_prec(self, u: u64, prec: u64) -> (Self, Ordering) {
self.acos_with_period_prec_round(u, prec, Nearest)
}
#[inline]
pub fn acos_with_period_prec_ref(&self, u: u64, prec: u64) -> (Self, Ordering) {
self.acos_with_period_prec_round_ref(u, prec, Nearest)
}
#[inline]
pub fn acos_with_period_round(self, u: u64, rm: RoundingMode) -> (Self, Ordering) {
let prec = self.significant_bits();
self.acos_with_period_prec_round(u, prec, rm)
}
#[inline]
pub fn acos_with_period_round_ref(&self, u: u64, rm: RoundingMode) -> (Self, Ordering) {
self.acos_with_period_prec_round_ref(u, self.significant_bits(), rm)
}
#[inline]
pub fn acos_with_period(self, u: u64) -> Self {
let prec = self.significant_bits();
self.acos_with_period_prec(u, prec).0
}
#[inline]
pub fn acos_with_period_ref(&self, u: u64) -> Self {
self.acos_with_period_prec_ref(u, self.significant_bits()).0
}
#[inline]
pub fn acos_with_period_prec_round_assign(
&mut self,
u: u64,
prec: u64,
rm: RoundingMode,
) -> Ordering {
let (c, o) = self.acos_with_period_prec_round_ref(u, prec, rm);
*self = c;
o
}
#[inline]
pub fn acos_with_period_prec_assign(&mut self, u: u64, prec: u64) -> Ordering {
self.acos_with_period_prec_round_assign(u, prec, Nearest)
}
#[inline]
pub fn acos_with_period_round_assign(&mut self, u: u64, rm: RoundingMode) -> Ordering {
let prec = self.significant_bits();
self.acos_with_period_prec_round_assign(u, prec, rm)
}
#[inline]
pub fn acos_with_period_assign(&mut self, u: u64) {
let prec = self.significant_bits();
self.acos_with_period_prec_assign(u, prec);
}
#[inline]
#[allow(clippy::needless_pass_by_value)]
pub fn acos_with_period_rational_prec_round(
x: Rational,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::acos_with_period_rational_prec_round_ref(&x, u, prec, rm)
}
pub fn acos_with_period_rational_prec_round_ref(
x: &Rational,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
assert_ne!(prec, 0);
if x.gt_abs(&1u32) {
return (Self::NAN, Equal);
}
if u == 0 {
return (Self::ZERO, Equal);
}
if *x == 0u32 {
return scaled_unsigned(u, 2, true, prec, rm);
}
acos_with_period_rational_helper(x, u, prec, rm)
}
#[inline]
pub fn acos_with_period_rational_prec(x: Rational, u: u64, prec: u64) -> (Self, Ordering) {
Self::acos_with_period_rational_prec_round(x, u, prec, Nearest)
}
#[inline]
pub fn acos_with_period_rational_prec_ref(x: &Rational, u: u64, prec: u64) -> (Self, Ordering) {
Self::acos_with_period_rational_prec_round_ref(x, u, prec, Nearest)
}
#[inline]
pub fn acos_pi_prec_round(self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.acos_with_period_prec_round(2, prec, rm)
}
#[inline]
pub fn acos_pi_prec_round_ref(&self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.acos_with_period_prec_round_ref(2, prec, rm)
}
#[inline]
pub fn acos_pi_prec(self, prec: u64) -> (Self, Ordering) {
self.acos_with_period_prec(2, prec)
}
#[inline]
pub fn acos_pi_prec_ref(&self, prec: u64) -> (Self, Ordering) {
self.acos_with_period_prec_ref(2, prec)
}
#[inline]
pub fn acos_pi_round(self, rm: RoundingMode) -> (Self, Ordering) {
self.acos_with_period_round(2, rm)
}
#[inline]
pub fn acos_pi_round_ref(&self, rm: RoundingMode) -> (Self, Ordering) {
self.acos_with_period_round_ref(2, rm)
}
#[inline]
pub fn acos_pi(self) -> Self {
self.acos_with_period(2)
}
#[inline]
pub fn acos_pi_ref(&self) -> Self {
self.acos_with_period_ref(2)
}
#[inline]
pub fn acos_pi_prec_round_assign(&mut self, prec: u64, rm: RoundingMode) -> Ordering {
self.acos_with_period_prec_round_assign(2, prec, rm)
}
#[inline]
pub fn acos_pi_prec_assign(&mut self, prec: u64) -> Ordering {
self.acos_with_period_prec_assign(2, prec)
}
#[inline]
pub fn acos_pi_round_assign(&mut self, rm: RoundingMode) -> Ordering {
self.acos_with_period_round_assign(2, rm)
}
#[inline]
pub fn acos_pi_assign(&mut self) {
self.acos_with_period_assign(2);
}
#[inline]
pub fn acos_pi_rational_prec_round(
x: Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::acos_with_period_rational_prec_round(x, 2, prec, rm)
}
#[inline]
pub fn acos_pi_rational_prec_round_ref(
x: &Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::acos_with_period_rational_prec_round_ref(x, 2, prec, rm)
}
#[inline]
pub fn acos_pi_rational_prec(x: Rational, prec: u64) -> (Self, Ordering) {
Self::acos_with_period_rational_prec(x, 2, prec)
}
#[inline]
pub fn acos_pi_rational_prec_ref(x: &Rational, prec: u64) -> (Self, Ordering) {
Self::acos_with_period_rational_prec_ref(x, 2, prec)
}
}
impl Acos for Float {
type Output = Self;
#[inline]
fn acos(self) -> Self {
let prec = self.significant_bits();
self.acos_prec(prec).0
}
}
impl Acos for &Float {
type Output = Float;
#[inline]
fn acos(self) -> Float {
self.acos_prec_ref(self.significant_bits()).0
}
}
impl AcosAssign for Float {
#[inline]
fn acos_assign(&mut self) {
let prec = self.significant_bits();
self.acos_prec_assign(prec);
}
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_acos<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::acos_prec, x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_acos_rational<T: PrimitiveFloat>(x: &Rational) -> T
where
Float: PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float>,
{
emulate_rational_to_float_fn(Float::acos_rational_prec_ref, x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_acos_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::acos_with_period_prec(x, u, prec), x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_acos_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::acos_with_period_rational_prec_ref(x, u, prec),
x,
)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_acos_pi<T: PrimitiveFloat>(x: T) -> T
where
Float: From<T> + PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float> + RoundingFrom<&'a Float>,
{
primitive_float_acos_with_period(x, 2)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_acos_pi_rational<T: PrimitiveFloat>(x: &Rational) -> T
where
Float: PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float>,
{
primitive_float_acos_with_period_rational(x, 2)
}