From 3632a6b4ae73e9186eeced31cdfb70350e6769f6 Mon Sep 17 00:00:00 2001 From: Holger Vogt Date: Fri, 17 Mar 2023 21:27:41 +0100 Subject: [PATCH] We need to translate from degree to rad --- src/maths/cmaths/cmath1.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/maths/cmaths/cmath1.c b/src/maths/cmaths/cmath1.c index 34ddc9ca1..8389fea4a 100644 --- a/src/maths/cmaths/cmath1.c +++ b/src/maths/cmaths/cmath1.c @@ -875,10 +875,10 @@ cx_atanh(void* data, short int type, int length, int* newlength, short int* newt int i; for (i = 0; i < length; i++) { #ifdef _MSC_VER - _Dcomplex midin = _Cbuild(cc[i].cx_real, cc[i].cx_imag); + _Dcomplex midin = _Cbuild(degtorad(realpart(cc[i])), degtorad(imagpart(cc[i]))); _Dcomplex midout = catanh(midin); #else - double complex midin = cc[i].cx_real + _Complex_I * cc[i].cx_imag; + double complex midin = degtorad(realpart(cc[i])) + _Complex_I * degtorad(imagpart(cc[i])); double complex midout = catanh(midin); #endif d[i].cx_real = creal(midout);