mirror of https://git.musl-libc.org/git/musl
2 changed files with 32 additions and 0 deletions
@ -0,0 +1,16 @@ |
|||
#include <math.h> |
|||
|
|||
// FIXME: use lanczos approximation
|
|||
|
|||
double __lgamma_r(double, int *); |
|||
|
|||
double tgamma(double x) |
|||
{ |
|||
int sign; |
|||
double y; |
|||
|
|||
y = exp(__lgamma_r(x, &sign)); |
|||
if (sign < 0) |
|||
y = -y; |
|||
return y; |
|||
} |
|||
@ -0,0 +1,16 @@ |
|||
#include <math.h> |
|||
|
|||
// FIXME: use lanczos approximation
|
|||
|
|||
float __lgammaf_r(float, int *); |
|||
|
|||
float tgammaf(float x) |
|||
{ |
|||
int sign; |
|||
float y; |
|||
|
|||
y = exp(__lgammaf_r(x, &sign)); |
|||
if (sign < 0) |
|||
y = -y; |
|||
return y; |
|||
} |
|||
Loading…
Reference in new issue