summaryrefslogtreecommitdiff
path: root/include/MSL_C/math.h
blob: afabafac9d383ef4d85446e38c342baf00c4628d (plain)
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
#ifndef MSL_MATH_H_
#define MSL_MATH_H_

#include "MSL_C/MSL_Common/Src/float.h"

#define NAN (*(float*)__float_nan)
#define HUGE_VALF (*(float*)__float_huge)

#define M_PI 3.14159265358979323846f

#define DEG_TO_RAD(degrees) (degrees * (M_PI / 180.0f))

#ifdef __cplusplus
extern "C" {
#endif

int abs(int);
double acos(double);
float acosf(float);
double asin(double);
double atan(double);
double atan2(double, double);
double ceil(double);
double copysign(double, double);
double cos(double);
float cosf(float);
double exp(double);

extern float __fabsf(float);
inline double fabs(double f) {
    return __fabs(f);
}
inline double fabsf2(float f) {
    return __fabsf(f);
}
inline float fabsf(float f) {
    return fabsf2(f);
}

double floor(double);
double fmod(double, double);
inline float fmodf(float f1, float f2) {
    return fmod(f1, f2);
}

double frexp(double, int*);
double ldexp(double, int);
double modf(double, double*);
double pow(double, double);
double sin(double);
float sinf(float);
double tan(double);
float tanf(float);

inline double sqrt_step(double tmpd, float mag) {
    return tmpd * 0.5 * (3.0 - mag * (tmpd * tmpd));
}

extern inline float sqrtf(float x) {
    const double _half = .5;
    const double _three = 3.0;
    volatile float y;
    if (x > 0.0f) {
        double guess = __frsqrte((double)x);                   // returns an approximation to
        guess = _half * guess * (_three - guess * guess * x);  // now have 12 sig bits
        guess = _half * guess * (_three - guess * guess * x);  // now have 24 sig bits
        guess = _half * guess * (_three - guess * guess * x);  // now have 32 sig bits
        y = (float)(x * guess);
        return y;
    }
    return x;
}

extern inline double sqrt(double x) {
    if(x > 0.0)
    {
        double guess = __frsqrte(x);                   /* returns an approximation to    */
        guess = .5*guess*(3.0 - guess*guess*x);      /* now have 8 sig bits            */
        guess = .5*guess*(3.0 - guess*guess*x);      /* now have 16 sig bits            */
        guess = .5*guess*(3.0 - guess*guess*x);      /* now have 32 sig bits            */
        guess = .5*guess*(3.0 - guess*guess*x);      /* now have > 53 sig bits        */
        return x*guess ;
    }
    else if ( x == 0 )
        return 0;
    else if ( x )
        return NAN;

    return HUGE_VALF;
}

inline float atan2f(float y, float x) {
    return (float)atan2(y, x);
}

// these are duplicated due to sinf/cosf having a symbol, but
// still being used as inlines elsewhere
inline float i_sinf(float x) {
    return sin(x);
}

inline float i_cosf(float x) {
    return cos(x);
}

#ifdef __cplusplus
};
#endif

#endif