From 4abab5ad6c8465a7528ccdd5f49367da05f78bbd Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Tue, 1 Oct 2024 15:47:05 +0200 Subject: Initial version --- src/complex/casinf.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 src/complex/casinf.c (limited to 'src/complex/casinf.c') diff --git a/src/complex/casinf.c b/src/complex/casinf.c new file mode 100644 index 0000000..2cda2f0 --- /dev/null +++ b/src/complex/casinf.c @@ -0,0 +1,15 @@ +#include "complex_impl.h" + +// FIXME + +float complex casinf(float complex z) +{ + float complex w; + float x, y; + + x = crealf(z); + y = cimagf(z); + w = CMPLXF(1.0 - (x - y)*(x + y), -2.0*x*y); + float complex r = clogf(CMPLXF(-y, x) + csqrtf(w)); + return CMPLXF(cimagf(r), -crealf(r)); +} -- cgit v1.2.3