Пример #1
0
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;
}
Пример #2
0
gsl_complex gsl_complex_arcsec(gsl_complex a)
{				/* z = arcsec(a) */
    gsl_complex z = gsl_complex_inverse(a);
    return gsl_complex_arccos(z);
}
Пример #3
0
 /** 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()));
 }
Пример #4
0
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);
}
Пример #5
0
void
gsl_complex_arcsec (complex_t const *a, complex_t *res)
{                               /* z = arcsec(a) */
        gsl_complex_inverse (a, res);
	gsl_complex_arccos (res, res);
}