use super::{reduce_half_mul_pi, tan::tan_inner, ReduceHalfMulPi, Tan};
use crate::double::SemiDouble;
use crate::traits::{CastFrom as _, Int as _};
pub(crate) fn tanpi<F: ReduceHalfMulPi + Tan>(x: F) -> F {
let e = x.raw_exp();
if e == F::MAX_RAW_EXP {
F::NAN
} else if e == F::RawExp::ZERO && x.raw_mant() == F::Raw::ZERO {
x
} else if e <= F::RawExp::from(F::MANT_BITS) {
let logscale = F::Exp::TWO * F::Exp::cast_from(F::MANT_BITS);
let scale = F::exp2i_fast(logscale);
let descale = F::exp2i_fast(-logscale);
let sx = SemiDouble::new(x * scale);
let y = sx * F::pi_ex();
y.to_single() * descale
} else {
let (n, y) = reduce_half_mul_pi(x);
let inv = (n & 1) != 0;
if inv && y.hi() == F::ZERO {
F::INFINITY.copysign(x)
} else {
tan_inner(y.hi(), y.lo(), inv)
}
}
}
#[cfg(test)]
mod tests {
use crate::traits::Float;
use crate::FloatMath;
fn test<F: Float + FloatMath>() {
use crate::tanpi;
assert_is_nan!(tanpi(F::NAN));
assert_is_nan!(tanpi(F::INFINITY));
assert_is_nan!(tanpi(F::neg_infinity()));
assert_total_eq!(tanpi(F::ZERO), F::ZERO);
assert_total_eq!(tanpi(-F::ZERO), -F::ZERO);
}
#[test]
fn test_f32() {
test::<f32>();
}
#[cfg(feature = "soft-float")]
#[test]
fn test_soft_f32() {
test::<crate::SoftF32>();
}
#[test]
fn test_f64() {
test::<f64>();
}
#[cfg(feature = "soft-float")]
#[test]
fn test_soft_f64() {
test::<crate::SoftF64>();
}
}