int
gsl_sf_complex_logsin_e(const double zr, const double zi,
gsl_sf_result * lszr, gsl_sf_result * lszi)
{
/* CHECK_POINTER(lszr) */
/* CHECK_POINTER(lszi) */
if(zi > 60.0) {
lszr->val = -M_LN2 + zi;
lszi->val = 0.5*M_PI - zr;
lszr->err = 2.0 * GSL_DBL_EPSILON * fabs(lszr->val);
lszi->err = 2.0 * GSL_DBL_EPSILON * fabs(lszi->val);
}
else if(zi < -60.0) {
lszr->val = -M_LN2 - zi;
lszi->val = -0.5*M_PI + zr;
lszr->err = 2.0 * GSL_DBL_EPSILON * fabs(lszr->val);
lszi->err = 2.0 * GSL_DBL_EPSILON * fabs(lszi->val);
}
else {
gsl_sf_result sin_r, sin_i;
int status;
gsl_sf_complex_sin_e(zr, zi, &sin_r, &sin_i); /* ok by construction */
status = gsl_sf_complex_log_e(sin_r.val, sin_i.val, lszr, lszi);
if(status == GSL_EDOM) {
DOMAIN_ERROR_2(lszr, lszi);
}
}
return gsl_sf_angle_restrict_symm_e(&(lszi->val));
}
int
gsl_sf_complex_log_e(const double zr, const double zi, gsl_sf_result * lnr, gsl_sf_result * theta)
{
/* CHECK_POINTER(lnr) */
/* CHECK_POINTER(theta) */
if(zr != 0.0 || zi != 0.0) {
const double ax = fabs(zr);
const double ay = fabs(zi);
const double min = GSL_MIN(ax, ay);
const double max = GSL_MAX(ax, ay);
lnr->val = log(max) + 0.5 * log(1.0 + (min/max)*(min/max));
lnr->err = 2.0 * GSL_DBL_EPSILON * fabs(lnr->val);
theta->val = atan2(zi, zr);
theta->err = GSL_DBL_EPSILON * fabs(lnr->val);
return GSL_SUCCESS;
}
else {
DOMAIN_ERROR_2(lnr, theta);
}
}
