blob: c88e2d44e0e39e7056c8d3d7e0d622f5b279d3c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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;
}
|