diff options
Diffstat (limited to 'ic-reals-6.3/math-lib/atanh_R.c')
-rw-r--r-- | ic-reals-6.3/math-lib/atanh_R.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/ic-reals-6.3/math-lib/atanh_R.c b/ic-reals-6.3/math-lib/atanh_R.c new file mode 100644 index 0000000..c88e2d4 --- /dev/null +++ b/ic-reals-6.3/math-lib/atanh_R.c @@ -0,0 +1,24 @@ +/* + * Copyright (C) 2000, Imperial College + * + * This file is part of the Imperial College Exact Real Arithmetic Library. + * See the copyright notice included in the distribution for conditions + * of use. + */ + +#include <stdio.h> +#include "real.h" + +/* + * One could do this more efficiently, but it will have to wait. + */ +Real +atanh_R(Real x) +{ + Real r; + + r = matrix_Int(x, 1, -1, 1, 1); + r = log_R(r); + r = div_R_Int(r, 2); + return r; +} |