9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21 /*
22 * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
23 */
24 /*
25 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
26 * Use is subject to license terms.
27 */
28
29 #pragma weak cosh = __cosh
30
31 /* INDENT OFF */
32 /*
33 * cosh(x)
34 * Code originated from 4.3bsd.
35 * Modified by K.C. Ng for SUN 4.0 libm.
36 * Method :
37 * 1. Replace x by |x| (cosh(x) = cosh(-x)).
38 * 2.
39 * [ exp(x) - 1 ]^2
40 * 0 <= x <= 0.3465 : cosh(x) := 1 + -------------------
41 * 2*exp(x)
42 *
43 * exp(x) + 1/exp(x)
44 * 0.3465 <= x <= 22 : cosh(x) := -------------------
45 * 2
46 * 22 <= x <= lnovft : cosh(x) := exp(x)/2
47 * lnovft <= x < INF : cosh(x) := scalbn(exp(x-1024*ln2),1023)
48 *
49 * Note: .3465 is a number near one half of ln2.
|
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21 /*
22 * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
23 */
24 /*
25 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
26 * Use is subject to license terms.
27 */
28
29 #pragma weak __cosh = cosh
30
31 /* INDENT OFF */
32 /*
33 * cosh(x)
34 * Code originated from 4.3bsd.
35 * Modified by K.C. Ng for SUN 4.0 libm.
36 * Method :
37 * 1. Replace x by |x| (cosh(x) = cosh(-x)).
38 * 2.
39 * [ exp(x) - 1 ]^2
40 * 0 <= x <= 0.3465 : cosh(x) := 1 + -------------------
41 * 2*exp(x)
42 *
43 * exp(x) + 1/exp(x)
44 * 0.3465 <= x <= 22 : cosh(x) := -------------------
45 * 2
46 * 22 <= x <= lnovft : cosh(x) := exp(x)/2
47 * lnovft <= x < INF : cosh(x) := scalbn(exp(x-1024*ln2),1023)
48 *
49 * Note: .3465 is a number near one half of ln2.
|