kolibrios-fun/programs/develop/ktcc/trunk/libc.obj/source/math/atanh.c

9 lines
143 B
C
Raw Normal View History

/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
#include <math.h>
double
atanh(double x)
{
return log((1+x)/(1-x)) / 2.0;
}