Mercurial > hg > octave-kai > gnulib-hg
comparison lib/sincosl.c @ 7686:cc03ad3b094d
* lib/sincosl.c (kernel_sinl): Fix typo in threshold.
| author | Bruno Haible <bruno@clisp.org> |
|---|---|
| date | Thu, 23 Nov 2006 20:18:34 +0000 |
| parents | a48fb0e98c8c |
| children | c115624bf99a |
comparison
equal
deleted
inserted
replaced
| 7685:89b16a28419e | 7686:cc03ad3b094d |
|---|---|
| 1 /* Quad-precision floating point trigonometric functions on <-pi/4,pi/4>. | 1 /* Quad-precision floating point trigonometric functions on <-pi/4,pi/4>. |
| 2 Copyright (C) 1999 Free Software Foundation, Inc. | 2 Copyright (C) 1999, 2006 Free Software Foundation, Inc. |
| 3 This file is part of the GNU C Library. | 3 This file is part of the GNU C Library. |
| 4 Contributed by Jakub Jelinek <jj@ultra.linux.cz> | 4 Contributed by Jakub Jelinek <jj@ultra.linux.cz> |
| 5 | 5 |
| 6 This program is free software; you can redistribute it and/or modify | 6 This program is free software; you can redistribute it and/or modify |
| 7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
| 111 { | 111 { |
| 112 x = -x; | 112 x = -x; |
| 113 sign = -1; | 113 sign = -1; |
| 114 } | 114 } |
| 115 | 115 |
| 116 if (x < 0.148375L) /* |x| < 0.1484375 */ | 116 if (x < 0.1484375L) /* |x| < 0.1484375 */ |
| 117 { | 117 { |
| 118 /* Argument is small enough to approximate it by a Chebyshev | 118 /* Argument is small enough to approximate it by a Chebyshev |
| 119 polynomial of degree 17. */ | 119 polynomial of degree 17. */ |
| 120 if (x < 0.000000000000000006938893903907228377647697925567626953125L) /* |x| < 2^-57 */ | 120 if (x < 0.000000000000000006938893903907228377647697925567626953125L) /* |x| < 2^-57 */ |
| 121 if (!((int) x)) | 121 if (!((int) x)) |