/** * This file has no copyright assigned and is placed in the Public Domain. * This file is part of the w64 mingw-runtime package. * No warranty is given; refer to the file DISCLAIMER.PD within this package. */ /* cacosh.c Contributed by Danny Smith 2003-10-20 */ #include <math.h> #include <complex.h> #if 0 /* cacosh (z) = I * cacos (z) */ double complex cacosh (double complex Z) { double complex Tmp; double complex Res; Tmp = cacos (Z); __real__ Res = -__imag__ Tmp; __imag__ Res = __real__ Tmp; return Res; } #else /* cacosh (z) = I * cacos (z) = I * (pi/2 - casin (z)) */ double complex cacosh (double complex Z) { double complex Tmp; double complex Res; Tmp = casin (Z); __real__ Res = __imag__ Tmp; __imag__ Res = M_PI_2 - __real__ Tmp; return Res; } #endif

Generated by Doxygen 1.6.0 Back to index