sinf.rs - source
Description: Source of the Rust file `/Users/erlendbasso/.cargo/registry/src/github.com-1ecc6299db9ec823/libm-0.2.6/src/math/sinf.rs`.
Keywords: rust, rustlang, rust-lang

    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

    /* origin: FreeBSD /usr/src/lib/msun/src/s_sinf.c */
    /*
     * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
     * Optimized by Bruce D. Evans.
     */
    /*
     * ====================================================
     * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
     *
     * Developed at SunPro, a Sun Microsystems, Inc. business.
     * Permission to use, copy, modify, and distribute this
     * software is freely granted, provided that this notice
     * is preserved.
     * ====================================================
     */

    use super::{k_cosf, k_sinf, rem_pio2f};

    use core::f64::consts::FRAC_PI_2;

    /* Small multiples of pi/2 rounded to double precision. */
    const S1_PIO2: f64 = 1. * FRAC_PI_2; /* 0x3FF921FB, 0x54442D18 */
    const S2_PIO2: f64 = 2. * FRAC_PI_2; /* 0x400921FB, 0x54442D18 */
    const S3_PIO2: f64 = 3. * FRAC_PI_2; /* 0x4012D97C, 0x7F3321D2 */
    const S4_PIO2: f64 = 4. * FRAC_PI_2; /* 0x401921FB, 0x54442D18 */

    #[cfg_attr(all(test, assert_no_panic), no_panic::no_panic)]
    pub fn sinf(x: f32) -> f32 {
        let x64 = x as f64;

        let x1p120 = f32::from_bits(0x7b800000); // 0x1p120f === 2 ^ 120

        let mut ix = x.to_bits();
        let sign = (ix >> 31) != 0;
        ix &= 0x7fffffff;

        if ix <= 0x3f490fda {
            /* |x| ~<= pi/4 */
            if ix < 0x39800000 {
                /* |x| < 2**-12 */
                /* raise inexact if x!=0 and underflow if subnormal */
                force_eval!(if ix < 0x00800000 {
                    x / x1p120
                } else {
                    x + x1p120
                });
                return x;
            }
            return k_sinf(x64);
        }
        if ix <= 0x407b53d1 {
            /* |x| ~<= 5*pi/4 */
            if ix <= 0x4016cbe3 {
                /* |x| ~<= 3pi/4 */
                if sign {
                    return -k_cosf(x64 + S1_PIO2);
                } else {
                    return k_cosf(x64 - S1_PIO2);
                }
            }
            return k_sinf(if sign {
                -(x64 + S2_PIO2)
            } else {
                -(x64 - S2_PIO2)
            });
        }
        if ix <= 0x40e231d5 {
            /* |x| ~<= 9*pi/4 */
            if ix <= 0x40afeddf {
                /* |x| ~<= 7*pi/4 */
                if sign {
                    return k_cosf(x64 + S3_PIO2);
                } else {
                    return -k_cosf(x64 - S3_PIO2);
                }
            }
            return k_sinf(if sign { x64 + S4_PIO2 } else { x64 - S4_PIO2 });
        }

        /* sin(Inf or NaN) is NaN */
        if ix >= 0x7f800000 {
            return x - x;
        }

        /* general argument reduction needed */
        let (n, y) = rem_pio2f(x);
        match n & 3 {
            0 => k_sinf(y),
            1 => k_cosf(y),
            2 => k_sinf(-y),
            _ => -k_cosf(y),
        }
    }