We need to translate from degree to rad

This commit is contained in:
Holger Vogt 2023-03-17 21:27:41 +01:00
parent 2a6052517b
commit 3632a6b4ae
1 changed files with 2 additions and 2 deletions

View File

@ -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);