3
3
* ====================================================
4
4
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6
6
* Developed at SunPro, a Sun Microsystems, Inc. business.
7
7
* Permission to use, copy, modify, and distribute this
10
10
* ====================================================
19
15
* mathematically cosh(x) if defined to be (exp(x)+exp(-x))/2
23
19
* 0 <= x <= ln2/2 : cosh(x) := 1 + -------------------
27
23
* ln2/2 <= x <= 22 : cosh(x) := -------------------
30
26
* lnovft <= x <= ln2ovft: cosh(x) := exp(x/2)/2 * exp(x/2)
31
27
* ln2ovft < x : cosh(x) := huge*huge (overflow)