/* Copyright (C) 1988-1994 Sun Microsystems, Inc. 2550 Garcia Avenue */ /* Mountain View, California 94043 All rights reserved. */ /* */ /* Any person is hereby authorized to download, copy, use, create bug fixes, */ /* and distribute, subject to the following conditions: */ /* */ /* 1. the software may not be redistributed for a fee except as */ /* reasonable to cover media costs; */ /* 2. any copy of the software must include this notice, as well as */ /* any other embedded copyright notices; and */ /* 3. any distribution of this software or derivative works thereof */ /* must comply with all applicable U.S. export control laws. */ /* */ /* THE SOFTWARE IS MADE AVAILABLE "AS IS" AND WITHOUT EXPRESS OR IMPLIED */ /* WARRANTY OF ANY KIND, INCLUDING BUT NOT LIMITED TO THE IMPLIED */ /* WARRANTIES OF DESIGN, MERCHANTIBILITY, FITNESS FOR A PARTICULAR */ /* PURPOSE, NON-INFRINGEMENT, PERFORMANCE OR CONFORMANCE TO */ /* SPECIFICATIONS. */ /* */ /* BY DOWNLOADING AND/OR USING THIS SOFTWARE, THE USER WAIVES ALL CLAIMS */ /* AGAINST SUN MICROSYSTEMS, INC. AND ITS AFFILIATED COMPANIES IN ANY */ /* JURISDICTION, INCLUDING BUT NOT LIMITED TO CLAIMS FOR DAMAGES OR */ /* EQUITABLE RELIEF BASED ON LOSS OF DATA, AND SPECIFICALLY WAIVES EVEN */ /* UNKNOWN OR UNANTICIPATED CLAIMS OR LOSSES, PRESENT AND FUTURE. */ /* */ /* IN NO EVENT WILL SUN MICROSYSTEMS, INC. OR ANY OF ITS AFFILIATED */ /* COMPANIES BE LIABLE FOR ANY LOST REVENUE OR PROFITS OR OTHER SPECIAL, */ /* INDIRECT AND CONSEQUENTIAL DAMAGES, EVEN IF IT HAS BEEN ADVISED OF THE */ /* POSSIBILITY OF SUCH DAMAGES. */ /* */ /* This file is provided with no support and without any obligation on the */ /* part of Sun Microsystems, Inc. ("Sun") or any of its affiliated */ /* companies to assist in its use, correction, modification or */ /* enhancement. Nevertheless, and without creating any obligation on its */ /* part, Sun welcomes your comments concerning the software and requests */ /* that they be sent to fdlibm-comments@sunpro.sun.com. */ /* tanh(+-max) = +-1 */ tanhs n eq x 7f7fffff 3f800000 tanhs n eq x ff7fffff bf800000 tanhs z vn x 7f7fffff 3f800000 tanhs z vn x ff7fffff bf800000 tanhs p vn x 7f7fffff 3f800000 tanhs p vn x ff7fffff bf800000 tanhs m vn x 7f7fffff 3f800000 tanhs m vn x ff7fffff bf800000 /* tanh(tiny) :=: tiny */ tanhs n eq x 31000000 31000000 tanhs n eq x b1000000 b1000000 tanhs n eq x 00800000 00800000 tanhs n eq x 80800000 80800000 /* tanh(+-0) = +-0 */ tanhs n eq - 00000000 00000000 tanhs n eq - 80000000 80000000 tanhs z eq - 00000000 00000000 tanhs z eq - 80000000 80000000 tanhs p eq - 00000000 00000000 tanhs p eq - 80000000 80000000 tanhs m eq - 00000000 00000000 tanhs m eq - 80000000 80000000 /* random arguments between -9 9 */ tanhs n nb x c01ac6ae bf7bf86b tanhs n nb x 40cd1ef8 3f7fffa5 tanhs n nb x 40fd91d0 3f7ffffc tanhs n nb x c0c057a8 bf7fff36 tanhs n nb x c01c0a47 bf7c2012 tanhs n nb x beb50eb1 beadde97 tanhs n nb x 40a68f37 3f7ffc0d tanhs n nb x 40f643fa 3f7ffff9 tanhs n nb x bfc19d89 bf684b8f tanhs n nb x c109f49a bf7fffff /* tanh(nan) is nan */ tanhs n uo v ff800001 00000000 tanhs n uo - 7fc00000 00000000 tanhs z uo v ff800001 00000000 tanhs z uo - 7fc00000 00000000 tanhs p uo v ff800001 00000000 tanhs p uo - 7fc00000 00000000 tanhs m uo v ff800001 00000000 tanhs m uo - 7fc00000 00000000 /* tanh(+-inf) is 1.0 */ tanhs n eq - 7f800000 3f800000 tanhs n eq - ff800000 bf800000 tanhs z eq - 7f800000 3f800000 tanhs z eq - ff800000 bf800000 tanhs p eq - 7f800000 3f800000 tanhs p eq - ff800000 bf800000 tanhs m eq - 7f800000 3f800000 tanhs m eq - ff800000 bf800000 /* tanh(+-subnormal) */ tanhs n eq x 00000001 00000001 tanhs n eq x 80000001 80000001 tanhs m uo - 7fc00000 00000000 tanhs m uo - 7fff0000 7fff0000 tanhs m uo - ffff0000 ffff0000 tanhs m uo v 7f810000 7fff0000 tanhs m uo v ff800001 00000000 tanhs m uo v ff810000 ffff0000 tanhs m vn x 00800001 00800001 tanhs m vn x 00800002 00800002 tanhs m vn x 01000000 01000000 tanhs m vn x 01800000 01800000 tanhs m vn x 31800000 31800000 tanhs m vn x 32000000 32000000 tanhs m vn x 32400000 32400000 tanhs m vn x 32800000 32800000 tanhs m vn x 32a00000 32a00000 tanhs m vn x 32c00000 32c00000 tanhs m vn x 39800000 39800000 tanhs m vn x 42b30000 3f800000 tanhs m vn x 4431a000 3f800000 tanhs m vn x 7e800000 3f800000 tanhs m vn x 7f000000 3f800000 tanhs m vn x 7f7ffffe 3f800000 tanhs m vn x 80800001 80800001 tanhs m vn x 80800002 80800002 tanhs m vn x 81000000 81000000 tanhs m vn x 81800000 81800000 tanhs m vn x b1800000 b1800000 tanhs m vn x b2000000 b2000000 tanhs m vn x b2400000 b2400000 tanhs m vn x b2800000 b2800000 tanhs m vn x b2a00000 b2a00000 tanhs m vn x b2c00000 b2c00000 tanhs m vn x b9800000 b9800000 tanhs m vn x c2b30000 bf800000 tanhs m vn x c431a000 bf800000 tanhs m vn x fe800000 bf800000 tanhs m vn x ff000000 bf800000 tanhs m vn x ff7ffffe bf800000 tanhs m vn x?u 00000001 00000001 tanhs m vn x?u 00000002 00000002 tanhs m vn x?u 00200000 00200000 tanhs m vn x?u 00400000 00400000 tanhs m vn x?u 007ffffe 007ffffe tanhs m vn x?u 007fffff 007fffff tanhs m vn x?u 00800000 00800000 tanhs m vn x?u 80000001 80000001 tanhs m vn x?u 80000002 80000002 tanhs m vn x?u 80200000 80200000 tanhs m vn x?u 80400000 80400000 tanhs m vn x?u 807ffffe 807ffffe tanhs m vn x?u 807fffff 807fffff tanhs m vn x?u 80800000 80800000 tanhs n eq x 00800001 00800001 tanhs n eq x 00800002 00800002 tanhs n eq x 01000000 01000000 tanhs n eq x 01800000 01800000 tanhs n eq x 31800000 31800000 tanhs n eq x 32000000 32000000 tanhs n eq x 32400000 32400000 tanhs n eq x 32800000 32800000 tanhs n eq x 32a00000 32a00000 tanhs n eq x 32c00000 32c00000 tanhs n eq x 39800000 39800000 tanhs n eq x 42b30000 3f800000 tanhs n eq x 4431a000 3f800000 tanhs n eq x 7e800000 3f800000 tanhs n eq x 7f000000 3f800000 tanhs n eq x 7f7ffffe 3f800000 tanhs n eq x 80800001 80800001 tanhs n eq x 80800002 80800002 tanhs n eq x 81000000 81000000 tanhs n eq x 81800000 81800000 tanhs n eq x b1800000 b1800000 tanhs n eq x b2000000 b2000000 tanhs n eq x b2400000 b2400000 tanhs n eq x b2800000 b2800000 tanhs n eq x b2a00000 b2a00000 tanhs n eq x b2c00000 b2c00000 tanhs n eq x b9800000 b9800000 tanhs n eq x c2b30000 bf800000 tanhs n eq x c431a000 bf800000 tanhs n eq x fe800000 bf800000 tanhs n eq x ff000000 bf800000 tanhs n eq x ff7ffffe bf800000 tanhs n eq x?u 00000002 00000002 tanhs n eq x?u 00200000 00200000 tanhs n eq x?u 00400000 00400000 tanhs n eq x?u 007ffffe 007ffffe tanhs n eq x?u 007fffff 007fffff tanhs n eq x?u 80000002 80000002 tanhs n eq x?u 80200000 80200000 tanhs n eq x?u 80400000 80400000 tanhs n eq x?u 807ffffe 807ffffe tanhs n eq x?u 807fffff 807fffff tanhs n uo - 7fc00000 00000000 tanhs n uo - 7fff0000 7fff0000 tanhs n uo - ffff0000 ffff0000 tanhs n uo v 7f810000 7fff0000 tanhs n uo v ff800001 00000000 tanhs n uo v ff810000 ffff0000 tanhs p uo - 7fc00000 00000000 tanhs p uo - 7fff0000 7fff0000 tanhs p uo - ffff0000 ffff0000 tanhs p uo v 7f810000 7fff0000 tanhs p uo v ff800001 00000000 tanhs p uo v ff810000 ffff0000 tanhs p vn x 00800001 00800001 tanhs p vn x 00800002 00800002 tanhs p vn x 01000000 01000000 tanhs p vn x 01800000 01800000 tanhs p vn x 31800000 31800000 tanhs p vn x 32000000 32000000 tanhs p vn x 32400000 32400000 tanhs p vn x 32800000 32800000 tanhs p vn x 32a00000 32a00000 tanhs p vn x 32c00000 32c00000 tanhs p vn x 39800000 39800000 tanhs p vn x 42b30000 3f800000 tanhs p vn x 4431a000 3f800000 tanhs p vn x 7e800000 3f800000 tanhs p vn x 7f000000 3f800000 tanhs p vn x 7f7ffffe 3f800000 tanhs p vn x 80800001 80800001 tanhs p vn x 80800002 80800002 tanhs p vn x 81000000 81000000 tanhs p vn x 81800000 81800000 tanhs p vn x b1800000 b1800000 tanhs p vn x b2000000 b2000000 tanhs p vn x b2400000 b2400000 tanhs p vn x b2800000 b2800000 tanhs p vn x b2a00000 b2a00000 tanhs p vn x b2c00000 b2c00000 tanhs p vn x b9800000 b9800000 tanhs p vn x c2b30000 bf800000 tanhs p vn x c431a000 bf800000 tanhs p vn x fe800000 bf800000 tanhs p vn x ff000000 bf800000 tanhs p vn x ff7ffffe bf800000 tanhs p vn x?u 00000001 00000001 tanhs p vn x?u 00000002 00000002 tanhs p vn x?u 00200000 00200000 tanhs p vn x?u 00400000 00400000 tanhs p vn x?u 007ffffe 007ffffe tanhs p vn x?u 007fffff 007fffff tanhs p vn x?u 00800000 00800000 tanhs p vn x?u 80000001 80000001 tanhs p vn x?u 80000002 80000002 tanhs p vn x?u 80200000 80200000 tanhs p vn x?u 80400000 80400000 tanhs p vn x?u 807ffffe 807ffffe tanhs p vn x?u 807fffff 807fffff tanhs p vn x?u 80800000 80800000 tanhs z uo - 7fc00000 00000000 tanhs z uo - 7fff0000 7fff0000 tanhs z uo - ffff0000 ffff0000 tanhs z uo v 7f810000 7fff0000 tanhs z uo v ff800001 00000000 tanhs z uo v ff810000 ffff0000 tanhs z vn x 00800001 00800001 tanhs z vn x 00800002 00800002 tanhs z vn x 01000000 01000000 tanhs z vn x 01800000 01800000 tanhs z vn x 31800000 31800000 tanhs z vn x 32000000 32000000 tanhs z vn x 32400000 32400000 tanhs z vn x 32800000 32800000 tanhs z vn x 32a00000 32a00000 tanhs z vn x 32c00000 32c00000 tanhs z vn x 39800000 39800000 tanhs z vn x 42b30000 3f800000 tanhs z vn x 4431a000 3f800000 tanhs z vn x 7e800000 3f800000 tanhs z vn x 7f000000 3f800000 tanhs z vn x 7f7ffffe 3f800000 tanhs z vn x 80800001 80800001 tanhs z vn x 80800002 80800002 tanhs z vn x 81000000 81000000 tanhs z vn x 81800000 81800000 tanhs z vn x b1800000 b1800000 tanhs z vn x b2000000 b2000000 tanhs z vn x b2400000 b2400000 tanhs z vn x b2800000 b2800000 tanhs z vn x b2a00000 b2a00000 tanhs z vn x b2c00000 b2c00000 tanhs z vn x b9800000 b9800000 tanhs z vn x c2b30000 bf800000 tanhs z vn x c431a000 bf800000 tanhs z vn x fe800000 bf800000 tanhs z vn x ff000000 bf800000 tanhs z vn x ff7ffffe bf800000 tanhs z vn x?u 00000001 00000001 tanhs z vn x?u 00000002 00000002 tanhs z vn x?u 00200000 00200000 tanhs z vn x?u 00400000 00400000 tanhs z vn x?u 007ffffe 007ffffe tanhs z vn x?u 007fffff 007fffff tanhs z vn x?u 00800000 00800000 tanhs z vn x?u 80000001 80000001 tanhs z vn x?u 80000002 80000002 tanhs z vn x?u 80200000 80200000 tanhs z vn x?u 80400000 80400000 tanhs z vn x?u 807ffffe 807ffffe tanhs z vn x?u 807fffff 807fffff tanhs z vn x?u 80800000 80800000