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

/* 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;
}