ref: 05021e057945ef77b585b1835397f59bd3381282
dir: /sys/src/ape/lib/ap/math/tanh.c/
#include <math.h> /* tanh(arg) computes the hyperbolic tangent of its floating point argument. sinh and cosh are called except for large arguments, which would cause overflow improperly. */ double tanh(double arg) { if(arg < 0) { arg = -arg; if(arg > 21) return -1; return -sinh(arg)/cosh(arg); } if(arg > 21) return 1; return sinh(arg)/cosh(arg); }