use crate::Float;
use crate::InnerFloat::{Finite, Infinity, NaN, Zero};
use crate::float::arithmetic::atan::{arc_with_period_scale, scaled_unsigned};
use crate::float::arithmetic::round_near_x::{round_rational_leading_term, small_input_shortcut};
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::{CeilingLogBase2, IsPowerOf2, Square};
use malachite_base::num::basic::traits::Zero as ZeroTrait;
use malachite_base::num::comparison::traits::PartialOrdAbs;
use malachite_q::Rational;
use malachite_base::num::arithmetic::traits::{Abs, Asin, AsinAssign};
use malachite_base::num::basic::floats::PrimitiveFloat;
use malachite_base::num::basic::integers::PrimitiveInt;
use malachite_base::num::basic::traits::{NaN as NaNTrait, NegativeZero, One};
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;
fn asin_prec_round_normal_ref(x: &Float, prec: u64, rm: RoundingMode) -> (Float, Ordering) {
let exp_x = i64::from(x.get_exponent().unwrap());
if let Some(result) = small_input_shortcut(x, -(exp_x << 1), 2, true, prec, rm) {
return result;
}
match x.partial_cmp_abs(&1u32).unwrap() {
Greater => (Float::NAN, Equal),
Equal => {
assert_ne!(rm, Exact, "Inexact asin");
let negative = *x < 0u32;
let (pi, o) = Float::pi_prec_round(prec, if negative { -rm } else { rm });
let half = pi >> 1u32;
if negative {
(-half, o.reverse())
} else {
(half, o)
}
}
Less => {
assert_ne!(rm, Exact, "Inexact asin");
let cancel = asin_cancellation(x, *x > 0u32);
let mut w = prec + 10 + cancel;
let mut increment = Limb::WIDTH;
loop {
let t = asin_at_prec(x, w);
if w > cancel && float_can_round(t.significand_ref().unwrap(), w - cancel, prec, rm)
{
return Float::from_float_prec_round(t, prec, rm);
}
w += increment;
increment = w >> 1;
}
}
}
}
pub(crate) fn asin_cancellation(x: &Float, positive: bool) -> u64 {
let p = x.get_prec().unwrap();
let one_minus = if positive {
Float::one_prec(p).sub_prec_round_val_ref(x, p, Floor).0
} else {
Float::one_prec(p).add_prec_round_val_ref(x, p, Floor).0
};
u64::exact_from(2 - i64::from(one_minus.get_exponent().unwrap()))
}
pub(crate) fn asin_at_prec(x: &Float, w: u64) -> Float {
let t = Float::ONE
.sub_prec_ref_val(x.square_prec_ref(w).0, w)
.0
.sqrt_prec(w)
.0;
x.div_prec_ref_val(t, w).0.atan_prec(w).0
}
fn asin_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 scaled_unsigned(u, 2, positive, prec, rm);
}
if exp_x == 0 && power_of_2 && u.is_multiple_of(3) {
return scaled_unsigned(u / 3, 2, positive, prec, rm);
}
assert_ne!(rm, Exact, "Inexact asin_with_period");
arc_with_period_scale(
|w| x.asin_prec_round_ref(w, Up).0 << SCALE,
u,
positive,
prec,
rm,
)
}
pub(crate) fn asin_rational_helper(x: &Rational, prec: u64, rm: RoundingMode) -> (Float, Ordering) {
assert_ne!(rm, Exact, "Inexact asin_rational");
let positive = *x > 0u32;
let exp_x = x.floor_log_base_2_abs() + 1;
if exp_x <= SCALED_INPUT_EXPONENT {
let scaled = x << SCALE;
let mut w = prec + prec.ceiling_log_base_2() + 10;
let mut increment = Limb::WIDTH;
loop {
let t = Float::from_rational_prec_round_ref(&scaled, w, Up).0;
if let Some(result) = scaled_underflow(&t, positive, 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;
}
}
if -(exp_x << 1) > i64::exact_from(prec + x.denominator_ref().significant_bits()) + 4 {
return round_rational_leading_term(x.abs(), positive, true, prec, rm);
}
let x2 = (&x.abs()).square();
let r = (&x2 / (Rational::ONE - &x2)).abs();
let mut w = prec + prec.ceiling_log_base_2() + 10;
let mut increment = Limb::WIDTH;
loop {
let t = Float::sqrt_rational_prec_ref(&r, w).0.atan_prec(w).0;
if float_can_round(t.significand_ref().unwrap(), w - 3, prec, rm) {
return Float::from_float_prec_round(if positive { t } else { -t }, prec, rm);
}
w += increment;
increment = w >> 1;
}
}
pub(crate) fn asin_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 scaled_unsigned(u, 2, positive, prec, rm);
}
if u.is_multiple_of(3) && x.numerator_ref() == &1u32 && x.denominator_ref() == &2u32 {
return scaled_unsigned(u / 3, 2, positive, prec, rm);
}
assert_ne!(rm, Exact, "Inexact asin_with_period_rational");
if exp_x <= SCALED_INPUT_EXPONENT {
let scaled = x << SCALE;
return arc_with_period_scale(
|w| Float::from_rational_prec_round_ref(&scaled, w, Up).0,
u,
positive,
prec,
rm,
);
}
arc_with_period_scale(
|w| asin_rational_helper(x, w, Up).0 << SCALE,
u,
positive,
prec,
rm,
)
}
impl Float {
#[inline]
pub fn asin_prec_round(self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.asin_prec_round_ref(prec, rm)
}
pub fn asin_prec_round_ref(&self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
assert_ne!(prec, 0);
match &self.0 {
NaN | Infinity { .. } => (Self::NAN, Equal),
Zero { .. } => (self.clone(), Equal),
Finite { .. } => asin_prec_round_normal_ref(self, prec, rm),
}
}
#[inline]
pub fn asin_prec(self, prec: u64) -> (Self, Ordering) {
self.asin_prec_round(prec, Nearest)
}
#[inline]
pub fn asin_prec_ref(&self, prec: u64) -> (Self, Ordering) {
self.asin_prec_round_ref(prec, Nearest)
}
#[inline]
pub fn asin_round(self, rm: RoundingMode) -> (Self, Ordering) {
let prec = self.significant_bits();
self.asin_prec_round(prec, rm)
}
#[inline]
pub fn asin_round_ref(&self, rm: RoundingMode) -> (Self, Ordering) {
self.asin_prec_round_ref(self.significant_bits(), rm)
}
#[inline]
pub fn asin_prec_round_assign(&mut self, prec: u64, rm: RoundingMode) -> Ordering {
let o;
(*self, o) = self.asin_prec_round_ref(prec, rm);
o
}
#[inline]
pub fn asin_prec_assign(&mut self, prec: u64) -> Ordering {
self.asin_prec_round_assign(prec, Nearest)
}
#[inline]
pub fn asin_round_assign(&mut self, rm: RoundingMode) -> Ordering {
let prec = self.significant_bits();
self.asin_prec_round_assign(prec, rm)
}
#[inline]
#[allow(clippy::needless_pass_by_value)]
pub fn asin_rational_prec_round(x: Rational, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
Self::asin_rational_prec_round_ref(&x, prec, rm)
}
pub fn asin_rational_prec_round_ref(
x: &Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
assert_ne!(prec, 0);
if *x == 0u32 {
return (Self::ZERO, Equal);
}
match x.partial_cmp_abs(&1u32).unwrap() {
Greater => (Self::NAN, Equal),
Equal => {
assert_ne!(rm, Exact, "Inexact asin_rational");
let negative = *x < 0u32;
let (pi, o) = Self::pi_prec_round(prec, if negative { -rm } else { rm });
let half = pi >> 1u32;
if negative {
(-half, o.reverse())
} else {
(half, o)
}
}
Less => asin_rational_helper(x, prec, rm),
}
}
#[inline]
#[allow(clippy::needless_pass_by_value)]
pub fn asin_rational_prec(x: Rational, prec: u64) -> (Self, Ordering) {
Self::asin_rational_prec_round_ref(&x, prec, Nearest)
}
#[inline]
pub fn asin_rational_prec_ref(x: &Rational, prec: u64) -> (Self, Ordering) {
Self::asin_rational_prec_round_ref(x, prec, Nearest)
}
}
impl Float {
#[inline]
pub fn asin_with_period_prec_round(
self,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
self.asin_with_period_prec_round_ref(u, prec, rm)
}
pub fn asin_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 { .. } => (self.clone(), Equal),
Finite { .. } => {
if self.gt_abs(&1u32) {
(Self::NAN, Equal)
} else if u == 0 {
(
if *self < 0u32 {
Self::NEGATIVE_ZERO
} else {
Self::ZERO
},
Equal,
)
} else {
asin_with_period_prec_round_normal_ref(self, u, prec, rm)
}
}
}
}
#[inline]
pub fn asin_with_period_prec(self, u: u64, prec: u64) -> (Self, Ordering) {
self.asin_with_period_prec_round(u, prec, Nearest)
}
#[inline]
pub fn asin_with_period_prec_ref(&self, u: u64, prec: u64) -> (Self, Ordering) {
self.asin_with_period_prec_round_ref(u, prec, Nearest)
}
#[inline]
pub fn asin_with_period_round(self, u: u64, rm: RoundingMode) -> (Self, Ordering) {
let prec = self.significant_bits();
self.asin_with_period_prec_round(u, prec, rm)
}
#[inline]
pub fn asin_with_period_round_ref(&self, u: u64, rm: RoundingMode) -> (Self, Ordering) {
self.asin_with_period_prec_round_ref(u, self.significant_bits(), rm)
}
#[inline]
pub fn asin_with_period(self, u: u64) -> Self {
let prec = self.significant_bits();
self.asin_with_period_prec(u, prec).0
}
#[inline]
pub fn asin_with_period_ref(&self, u: u64) -> Self {
self.asin_with_period_prec_ref(u, self.significant_bits()).0
}
#[inline]
pub fn asin_with_period_prec_round_assign(
&mut self,
u: u64,
prec: u64,
rm: RoundingMode,
) -> Ordering {
let (t, o) = self.asin_with_period_prec_round_ref(u, prec, rm);
*self = t;
o
}
#[inline]
pub fn asin_with_period_prec_assign(&mut self, u: u64, prec: u64) -> Ordering {
self.asin_with_period_prec_round_assign(u, prec, Nearest)
}
#[inline]
pub fn asin_with_period_round_assign(&mut self, u: u64, rm: RoundingMode) -> Ordering {
let prec = self.significant_bits();
self.asin_with_period_prec_round_assign(u, prec, rm)
}
#[inline]
pub fn asin_with_period_assign(&mut self, u: u64) {
let prec = self.significant_bits();
self.asin_with_period_prec_assign(u, prec);
}
#[inline]
#[allow(clippy::needless_pass_by_value)]
pub fn asin_with_period_rational_prec_round(
x: Rational,
u: u64,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::asin_with_period_rational_prec_round_ref(&x, u, prec, rm)
}
pub fn asin_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 *x == 0u32 || u == 0 {
return (
if *x < 0u32 {
Self::NEGATIVE_ZERO
} else {
Self::ZERO
},
Equal,
);
}
asin_with_period_rational_helper(x, u, prec, rm)
}
#[inline]
pub fn asin_with_period_rational_prec(x: Rational, u: u64, prec: u64) -> (Self, Ordering) {
Self::asin_with_period_rational_prec_round(x, u, prec, Nearest)
}
#[inline]
pub fn asin_with_period_rational_prec_ref(x: &Rational, u: u64, prec: u64) -> (Self, Ordering) {
Self::asin_with_period_rational_prec_round_ref(x, u, prec, Nearest)
}
#[inline]
pub fn asin_pi_prec_round(self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.asin_with_period_prec_round(2, prec, rm)
}
#[inline]
pub fn asin_pi_prec_round_ref(&self, prec: u64, rm: RoundingMode) -> (Self, Ordering) {
self.asin_with_period_prec_round_ref(2, prec, rm)
}
#[inline]
pub fn asin_pi_prec(self, prec: u64) -> (Self, Ordering) {
self.asin_with_period_prec(2, prec)
}
#[inline]
pub fn asin_pi_prec_ref(&self, prec: u64) -> (Self, Ordering) {
self.asin_with_period_prec_ref(2, prec)
}
#[inline]
pub fn asin_pi_round(self, rm: RoundingMode) -> (Self, Ordering) {
self.asin_with_period_round(2, rm)
}
#[inline]
pub fn asin_pi_round_ref(&self, rm: RoundingMode) -> (Self, Ordering) {
self.asin_with_period_round_ref(2, rm)
}
#[inline]
pub fn asin_pi(self) -> Self {
self.asin_with_period(2)
}
#[inline]
pub fn asin_pi_ref(&self) -> Self {
self.asin_with_period_ref(2)
}
#[inline]
pub fn asin_pi_prec_round_assign(&mut self, prec: u64, rm: RoundingMode) -> Ordering {
self.asin_with_period_prec_round_assign(2, prec, rm)
}
#[inline]
pub fn asin_pi_prec_assign(&mut self, prec: u64) -> Ordering {
self.asin_with_period_prec_assign(2, prec)
}
#[inline]
pub fn asin_pi_round_assign(&mut self, rm: RoundingMode) -> Ordering {
self.asin_with_period_round_assign(2, rm)
}
#[inline]
pub fn asin_pi_assign(&mut self) {
let prec = self.significant_bits();
self.asin_pi_prec_assign(prec);
}
#[inline]
pub fn asin_pi_rational_prec_round(
x: Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::asin_with_period_rational_prec_round(x, 2, prec, rm)
}
#[inline]
pub fn asin_pi_rational_prec_round_ref(
x: &Rational,
prec: u64,
rm: RoundingMode,
) -> (Self, Ordering) {
Self::asin_with_period_rational_prec_round_ref(x, 2, prec, rm)
}
#[inline]
pub fn asin_pi_rational_prec(x: Rational, prec: u64) -> (Self, Ordering) {
Self::asin_with_period_rational_prec(x, 2, prec)
}
#[inline]
pub fn asin_pi_rational_prec_ref(x: &Rational, prec: u64) -> (Self, Ordering) {
Self::asin_with_period_rational_prec_ref(x, 2, prec)
}
}
impl Asin for Float {
type Output = Self;
#[inline]
fn asin(self) -> Self {
let prec = self.significant_bits();
self.asin_prec_round(prec, Nearest).0
}
}
impl Asin for &Float {
type Output = Float;
#[inline]
fn asin(self) -> Float {
self.asin_prec_round_ref(self.significant_bits(), Nearest).0
}
}
impl AsinAssign for Float {
#[inline]
fn asin_assign(&mut self) {
let prec = self.significant_bits();
self.asin_prec_round_assign(prec, Nearest);
}
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asin<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::asin_prec, x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asin_rational<T: PrimitiveFloat>(x: &Rational) -> T
where
Float: PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float>,
{
emulate_rational_to_float_fn(Float::asin_rational_prec_ref, x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asin_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::asin_with_period_prec(x, u, prec), x)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asin_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::asin_with_period_rational_prec_ref(x, u, prec),
x,
)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asin_pi<T: PrimitiveFloat>(x: T) -> T
where
Float: From<T> + PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float> + RoundingFrom<&'a Float>,
{
primitive_float_asin_with_period(x, 2)
}
#[inline]
#[allow(clippy::type_repetition_in_bounds)]
pub fn primitive_float_asin_pi_rational<T: PrimitiveFloat>(x: &Rational) -> T
where
Float: PartialOrd<T>,
for<'a> T: ExactFrom<&'a Float>,
{
primitive_float_asin_with_period_rational(x, 2)
}