t_sincosl.c

glibc 库, 不仅可以学习使用库函数,还可以学习函数的具体实现,是提高功力的好资料

/* Quad-precision floating point sine and cosine tables.
   Copyright (C) 1999,2006 Free Software Foundation, Inc.
   This file is part of the GNU C Library.
   Contributed by Jakub Jelinek <[e-mail]>

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, write to the Free
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   02111-1307 USA.  */

/* For 0.1484375 + n/128.0, n=0..82 this table contains
   first 113 bits of cosine, then at least 113 additional
   bits and the same for sine.
   0.1484375+82.0/128.0 is the smallest number among above defined numbers
   larger than pi/4.
   Computed using gmp.
 */

const long double __sincosl_table[] = {

/* x =  1.48437500000000000000000000000000000e-01L 3ffc3000000000000000000000000000 */
/* cos(x) = 0.fd2f5320e1b790209b4dda2f98 f79caaa7b873aff1014b0fbc52 43766d03cb006bc837c4358 */
 0x0.fd2f5320e1b790209b4dda2f98p0L,
 0x0.f79caaa7b873aff1014b0fbc52p-104L,
/* sin(x) = 0.25dc50bc95711d0d9787d108fd 438cf5959ee0bfb7a1e36e8b1a 112968f356657420e9cc9ea */
 0x0.25dc50bc95711d0d9787d108fdp0L,
 0x0.438cf5959ee0bfb7a1e36e8b1ap-104L,

/* x = 1.56250000000000000000000000000000000e-01 3ffc4000000000000000000000000000 */
/* cos(x) = 0.fce1a053e621438b6d60c76e8c 45bf0a9dc71aa16f922acc10e9 5144ec796a249813c9cb649 */
 0x0.fce1a053e621438b6d60c76e8cp0L,
 0x0.45bf0a9dc71aa16f922acc10e9p-104L,
/* sin(x) = 0.27d66258bacd96a3eb335b365c 87d59438c5142bb56a489e9b8d b9d36234ffdebb6bdc22d8e */
 0x0.27d66258bacd96a3eb335b365cp0L,
 0x0.87d59438c5142bb56a489e9b8dp-104L,

/* x = 1.64062500000000000000000000000000000e-01 3ffc5000000000000000000000000000 */
/* cos(x) = 0.fc8ffa01ba6807417e05962b0d 9fdf1fddb0cc4c07d22e19e080 19bffa50a6c7acdb40307a3 */
 0x0.fc8ffa01ba6807417e05962b0dp0L,
 0x0.9fdf1fddb0cc4c07d22e19e080p-104L,
/* sin(x) = 0.29cfd49b8be4f665276cab01cb f0426934906c3dd105473b226e 410b1450f62e53ff7c6cce1 */
 0x0.29cfd49b8be4f665276cab01cbp0L,
 0x0.f0426934906c3dd105473b226ep-104L,

/* x = 1.71875000000000000000000000000000000e-01 3ffc6000000000000000000000000000 */
/* cos(x) = 0.fc3a6170f767ac735d63d99a9d 439e1db5e59d3ef153a4265d58 55850ed82b536bf361b80e3 */
 0x0.fc3a6170f767ac735d63d99a9dp0L,
 0x0.439e1db5e59d3ef153a4265d58p-104L,
/* sin(x) = 0.2bc89f9f424de5485de7ce03b2 514952b9faf5648c3244d4736f eb95dbb9da49f3b58a9253b */
 0x0.2bc89f9f424de5485de7ce03b2p0L,
 0x0.514952b9faf5648c3244d4736fp-104L,

/* x = 1.79687500000000000000000000000000000e-01 3ffc7000000000000000000000000000 */
/* cos(x) = 0.fbe0d7f7fef11e70aa43b8abf4 f6a457cea20c8f3f676b47781f 9821bbe9ce04b3c7b981c0b */
 0x0.fbe0d7f7fef11e70aa43b8abf4p0L,
 0x0.f6a457cea20c8f3f676b47781fp-104L,
/* sin(x) = 0.2dc0bb80b49a97ffb34e8dd1f8 db9df7af47ed2dcf58b12c8e78 27e048cae929da02c04ecac */
 0x0.2dc0bb80b49a97ffb34e8dd1f8p0L,
 0x0.db9df7af47ed2dcf58b12c8e78p-104L,

/* x = 1.87500000000000000000000000000000000e-01 3ffc8000000000000000000000000000 */
/* cos(x) = 0.fb835efcf670dd2ce6fe792469 7eea13ea358867e9cdb3899b78 3f4f9f43aa5626e8b67b3bc */
 0x0.fb835efcf670dd2ce6fe792469p0L,
 0x0.7eea13ea358867e9cdb3899b78p-104L,
/* sin(x) = 0.2fb8205f75e56a2b56a1c4792f 856258769af396e0189ef72c05 e4df59a6b00e4b44a6ea515 */
 0x0.2fb8205f75e56a2b56a1c4792fp0L,
 0x0.856258769af396e0189ef72c05p-104L,

/* x = 1.95312500000000000000000000000000000e-01 3ffc9000000000000000000000000000 */
/* cos(x) = 0.fb21f7f5c156696b00ac1fe28a c5fd76674a92b4df80d9c8a46c 684399005deccc41386257c */
 0x0.fb21f7f5c156696b00ac1fe28ap0L,
 0x0.c5fd76674a92b4df80d9c8a46cp-104L,
/* sin(x) = 0.31aec65df552876f82ece9a235 6713246eba6799983d7011b0b3 698d6e1da919c15d57c30c1 */
 0x0.31aec65df552876f82ece9a235p0L,
 0x0.6713246eba6799983d7011b0b3p-104L,

/* x = 2.03125000000000000000000000000000000e-01 3ffca000000000000000000000000000 */
/* cos(x) = 0.fabca467fb3cb8f1d069f01d8e a33ade5bfd68296ecd1cc9f7b7 609bbcf3676e726c3301334 */
 0x0.fabca467fb3cb8f1d069f01d8ep0L,
 0x0.a33ade5bfd68296ecd1cc9f7b7p-104L,
/* sin(x) = 0.33a4a5a19d86246710f602c44d f4fa513f4639ce938477aeeabb 82e8e0a7ed583a188879fd4 */
 0x0.33a4a5a19d86246710f602c44dp0L,
 0x0.f4fa513f4639ce938477aeeabbp-104L,

/* x = 2.10937500000000000000000000000000000e-01 3ffcb000000000000000000000000000 */
/* cos(x) = 0.fa5365e8f1d3ca27be1db5d76a e64d983d7470a4ab0f4ccf65a2 b8c67a380df949953a09bc1 */
 0x0.fa5365e8f1d3ca27be1db5d76ap0L,
 0x0.e64d983d7470a4ab0f4ccf65a2p-104L,
/* sin(x) = 0.3599b652f40ec999df12a0a4c8 561de159c98d4e54555de518b9 7f48886f715d8df5f4f093e */
 0x0.3599b652f40ec999df12a0a4c8p0L,
 0x0.561de159c98d4e54555de518b9p-104L,

/* x = 2.18750000000000000000000000000000000e-01 3ffcc000000000000000000000000000 */
/* cos(x) = 0.f9e63e1d9e8b6f6f2e296bae5b 5ed9c11fd7fa2fe11e09fc7bde 901abed24b6365e72f7db4e */
 0x0.f9e63e1d9e8b6f6f2e296bae5bp0L,
 0x0.5ed9c11fd7fa2fe11e09fc7bdep-104L,
/* sin(x) = 0.378df09db8c332ce0d2b53d865 582e4526ea336c768f68c32b49 6c6d11c1cd241bb9f1da523 */
 0x0.378df09db8c332ce0d2b53d865p0L,
 0x0.582e4526ea336c768f68c32b49p-104L,

/* x = 2.26562500000000000000000000000000000e-01 3ffcd000000000000000000000000000 */
/* cos(x) = 0.f9752eba9fff6b98842beadab0 54a932fb0f8d5b875ae63d6b22 88d09b148921aeb6e52f61b */
 0x0.f9752eba9fff6b98842beadab0p0L,
 0x0.54a932fb0f8d5b875ae63d6b22p-104L,
/* sin(x) = 0.39814cb10513453cb97b21bc1c a6a337b150c21a675ab85503bc 09a436a10ab1473934e20c8 */
 0x0.39814cb10513453cb97b21bc1cp0L,
 0x0.a6a337b150c21a675ab85503bcp-104L,

/* x = 2.34375000000000000000000000000000000e-01 3ffce000000000000000000000000000 */
/* cos(x) = 0.f90039843324f9b940416c1984 b6cbed1fc733d97354d4265788 a86150493ce657cae032674 */
 0x0.f90039843324f9b940416c1984p0L,
 0x0.b6cbed1fc733d97354d4265788p-104L,
/* sin(x) = 0.3b73c2bf6b4b9f668ef9499c81 f0d965087f1753fa64b086e58c b8470515c18c1412f8c2e02 */
 0x0.3b73c2bf6b4b9f668ef9499c81p0L,
 0x0.f0d965087f1753fa64b086e58cp-104L,

/* x = 2.42187500000000000000000000000000000e-01 3ffcf000000000000000000000000000 */
/* cos(x) = 0.f887604e2c39dbb20e4ec58250 59a789ffc95b275ad9954078ba 8a28d3fcfe9cc2c1d49697b */
 0x0.f887604e2c39dbb20e4ec58250p0L,
 0x0.59a789ffc95b275ad9954078bap-104L,
/* sin(x) = 0.3d654aff15cb457a0fca854698 aba33039a8a40626609204472d 9d40309b626eccc6dff0ffa */
 0x0.3d654aff15cb457a0fca854698p0L,
 0x0.aba33039a8a40626609204472dp-104L,

/* x = 2.50000000000000000000000000000000000e-01 3ffd0000000000000000000000000000 */
/* cos(x) = 0.f80aa4fbef750ba783d33cb95f 94f8a41426dbe79edc4a023ef9 ec13c944551c0795b84fee1 */
 0x0.f80aa4fbef750ba783d33cb95fp0L,
 0x0.94f8a41426dbe79edc4a023ef9p-104L,
/* sin(x) = 0.3f55dda9e62aed7513bd7b8e6a 3d1635dd5676648d7db525898d 7086af9330f03c7f285442a */
 0x0.3f55dda9e62aed7513bd7b8e6ap0L,
 0x0.3d1635dd5676648d7db525898dp-104L,

/* x = 2.57812500000000000000000000000000000e-01 3ffd0800000000000000000000000000 */
/* cos(x) = 0.f78a098069792daabc9ee42591 b7c5a68cb1ab822aeb446b3311 b4ba5371b8970e2c1547ad7 */
 0x0.f78a098069792daabc9ee42591p0L,
 0x0.b7c5a68cb1ab822aeb446b3311p-104L,
/* sin(x) = 0.414572fd94556e6473d6202713 88dd47c0ba050cdb5270112e3e 370e8c4705ae006426fb5d5 */
 0x0.414572fd94556e6473d6202713p0L,
 0x0.88dd47c0ba050cdb5270112e3ep-104L,

/* x = 2.65625000000000000000000000000000000e-01 3ffd1000000000000000000000000000 */
/* cos(x) = 0.f7058fde0788dfc805b8fe8878 9e4f4253e3c50afe8b22f41159 620ab5940ff7df9557c0d1f */
 0x0.f7058fde0788dfc805b8fe8878p0L,
 0x0.9e4f4253e3c50afe8b22f41159p-104L,
/* sin(x) = 0.4334033bcd90d6604f5f36c1d4 b84451a87150438275b77470b5 0e5b968fa7962b5ffb379b7 */
 0x0.4334033bcd90d6604f5f36c1d4p0L,
 0x0.b84451a87150438275b77470b5p-104L,

/* x = 2.73437500000000000000000000000000000e-01 3ffd1800000000000000000000000000 */
/* cos(x) = 0.f67d3a26af7d07aa4bd6d42af8 c0067fefb96d5b46c031eff536 27f215ea3242edc3f2e13eb */
 0x0.f67d3a26af7d07aa4bd6d42af8p0L,
 0x0.c0067fefb96d5b46c031eff536p-104L,
/* sin(x) = 0.452186aa5377ab20bbf2524f52 e3a06a969f47166ab88cf88c11 1ad12c55941021ef3317a1a */
 0x0.452186aa5377ab20bbf2524f52p0L,
 0x0.e3a06a969f47166ab88cf88c11p-104L,

/* x = 2.81250000000000000000000000000000000e-01 3ffd2000000000000000000000000000 */
/* cos(x) = 0.f5f10a7bb77d3dfa0c1da8b578 42783280d01ce3c0f82bae3b9d 623c168d2e7c29977994451 */
 0x0.f5f10a7bb77d3dfa0c1da8b578p0L,
 0x0.42783280d01ce3c0f82bae3b9dp-104L,
/* sin(x) = 0.470df5931ae1d946076fe0dcff 47fe31bb2ede618ebc607821f8 462b639e1f4298b5ae87fd3 */
 0x0.470df5931ae1d946076fe0dcffp0L,
 0x0.47fe31bb2ede618ebc607821f8p-104L,

/* x = 2.89062500000000000000000000000000000e-01 3ffd2800000000000000000000000000 */
/* cos(x) = 0.f561030ddd7a78960ea9f4a32c 6521554995667f5547bafee9ec 48b3155cdb0f7fd00509713 */
 0x0.f561030ddd7a78960ea9f4a32cp0L,
 0x0.6521554995667f5547bafee9ecp-104L,
/* sin(x) = 0.48f948446abcd6b0f7fccb100e 7a1b26eccad880b0d24b59948c 7cdd49514d44b933e6985c2 */
 0x0.48f948446abcd6b0f7fccb100ep0L,
 0x0.7a1b26eccad880b0d24b59948cp-104L,

/* x = 2.96875000000000000000000000000000000e-01 3ffd3000000000000000000000000000 */
/* cos(x) = 0.f4cd261d3e6c15bb369c875863 0d2ac00b7ace2a51c0631bfeb3 9ed158ba924cc91e259c195 */
 0x0.f4cd261d3e6c15bb369c875863p0L,
 0x0.0d2ac00b7ace2a51c0631bfeb3p-104L,
/* sin(x) = 0.4ae37710fad27c8aa9c4cf96c0 3519b9ce07dc08a1471775499f 05c29f86190aaebaeb9716e */
 0x0.4ae37710fad27c8aa9c4cf96c0p0L,
 0x0.3519b9ce07dc08a1471775499fp-104L,

/* x = 3.04687500000000000000000000000000000e-01 3ffd3800000000000000000000000000 */
/* cos(x) = 0.f43575f94d4f6b272f5fb76b14 d2a64ab52df1ee8ddf7c651034 e5b2889305a9ea9015d758a */
 0x0.f43575f94d4f6b272f5fb76b14p0L,
 0x0.d2a64ab52df1ee8ddf7c651034p-104L,
/* sin(x) = 0.4ccc7a50127e1de0cb6b40c302 c651f7bded4f9e7702b0471ae0 288d091a37391950907202f */
 0x0.4ccc7a50127e1de0cb6b40c302p0L,
 0x0.c651f7bded4f9e7702b0471ae0p-104L,

/* x = 3.12500000000000000000000000000000000e-01 3ffd4000000000000000000000000000 */
/* cos(x) = 0.f399f500c9e9fd37ae9957263d ab8877102beb569f101ee44953 50868e5847d181d50d3cca2 */
 0x0.f399f500c9e9fd37ae9957263dp0L,
 0x0.ab8877102beb569f101ee44953p-104L,
/* sin(x) = 0.4eb44a5da74f600207aaa090f0 734e288603ffadb3eb2542a469 77b105f8547128036dcf7f0 */
 0x0.4eb44a5da74f600207aaa090f0p0L,
 0x0.734e288603ffadb3eb2542a469p-104L,

/* x = 3.20312500000000000000000000000000000e-01 3ffd4800000000000000000000000000 */
/* cos(x) = 0.f2faa5a1b74e82fd61fa05f917 7380e8e69b7b15a945e8e5ae11 24bf3d12b0617e03af4fab5 */
 0x0.f2faa5a1b74e82fd61fa05f917p0L,
 0x0.7380e8e69b7b15a945e8e5ae11p-104L,
/* sin(x) = 0.509adf9a7b9a5a0f638a8fa3a6 0a199418859f18b37169a644fd b986c21ecb00133853bc35b */
 0x0.509adf9a7b9a5a0f638a8fa3a6p0L,
 0x0.0a199418859f18b37169a644fdp-104L,

/* x = 3.28125000000000000000000000000000000e-01 3ffd5000000000000000000000000000 */
/* cos(x) = 0.f2578a595224dd2e6bfa2eb2f9 9cc674f5ea6f479eae2eb58018 6897ae3f893df1113ca06b8 */
 0x0.f2578a595224dd2e6bfa2eb2f9p0L,
 0x0.9cc674f5ea6f479eae2eb58018p-104L,
/* sin(x) = 0.5280326c3cf481823ba6bb08ea c82c2093f2bce3c4eb4ee3dec7 df41c92c8a4226098616075 */
 0x0.5280326c3cf481823ba6bb08eap0L,
 0x0.c82c2093f2bce3c4eb4ee3dec7p-104L,

/* x = 3.35937500000000000000000000000000000e-01 3ffd5800000000000000000000000000 */
/* cos(x) = 0.f1b0a5b406b526d886c55feadc 8d0dcc8eb9ae2ac707051771b4 8e05b25b000009660bdb3e3 */
 0x0.f1b0a5b406b526d886c55feadcp0L,
 0x0.8d0dcc8eb9ae2ac707051771b4p-104L,
/* sin(x) = 0.54643b3da29de9b357155eef0f 332fb3e66c83bf4dddd9491c5e b8e103ccd92d6175220ed51 */
 0x0.54643b3da29de9b357155eef0fp0L,
 0x0.332fb3e66c83bf4dddd9491c5ep-104L,

/* x = 3.43750000000000000000000000000000000e-01 3ffd6000000000000000000000000000 */
/* cos(x) = 0.f105fa4d66b607a67d44e04272 5204435142ac8ad54dfb0907a4 f6b56b06d98ee60f19e557a */