gsl_complex
gsl_complex_arccosh (gsl_complex a)
{ /* z = arccosh(a) */
gsl_complex z = gsl_complex_arccos (a);
z = gsl_complex_mul_imag (z, GSL_IMAG(z) > 0 ? -1.0 : 1.0);
return z;
}
gsl_complex gsl_complex_arcsec(gsl_complex a)
{ /* z = arcsec(a) */
gsl_complex z = gsl_complex_inverse(a);
return gsl_complex_arccos(z);
}
/** Inverse cosine
\ingroup complex
\param[in] z Complex number
\return \f$ \arccos z \f$*/
complex arccos(const complex& z)
{
return complex(gsl_complex_arccos(z.as_gsl_type()));
}
void
gsl_complex_arccosh (complex_t const *a, complex_t *res)
{ /* z = arccosh(a) */
gsl_complex_arccos (a, res);
gsl_complex_mul_imag (res, GSL_IMAG (res) > 0 ? -1.0 : 1.0, res);
}
void
gsl_complex_arcsec (complex_t const *a, complex_t *res)
{ /* z = arcsec(a) */
gsl_complex_inverse (a, res);
gsl_complex_arccos (res, res);
}