/* * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include "astro.h" double mercfp[] ={ 0.013, 0.6807, 0.048, 0.6283, 0.185, 0.6231, 0.711, 0.6191, 0.285, 0.5784, 0.075, 0.5411, 0.019, 0.5585, 0.010, 2.8449, 0.039, 2.8117, 0.147, 2.8135, 0.552, 2.8126, 2.100, 2.8126, 3.724, 2.8046, 0.729, 2.7883, 0.186, 2.7890, 0.049, 2.7943, 0.013, 2.7402, 0.033, 1.8361, 0.118, 1.8396, 0.431, 1.8391, 1.329, 1.8288, 0.539, 4.8686, 0.111, 4.8904, 0.027, 4.8956, 0.012, 3.9794, 0.056, 3.9636, 0.294, 3.9910, 0.484, 3.9514, 0.070, 3.9270, 0.018, 3.9270, 0.013, 6.1261, 0.050, 6.1052, 0.185, 6.1069, 0.685, 6.1011, 2.810, 6.1062, 7.356, 6.0699, 1.471, 6.0685, 0.375, 6.0687, 0.098, 6.0720, 0.026, 6.0476, 0.062, 5.1540, 0.122, 5.1191, 0.011, 0.9076, 0.074, 1.0123, 0.106, 0.9372, 0.017, 0.9425, 0.020, 0.0506, 0.052, 0.0384, 0.052, 3.0281, 0.012, 3.0543, 0.011, 2.1642, 0.016, 2.2340, 0.040, 4.3912, 0.080, 4.4262, 0.016, 4.4506, 0, 0.014, 1.0996, 0.056, 1.1153, 0.219, 1.1160, 0.083, 1.0734, 0.024, 0.9442, 0.018, 3.8432, 0.070, 3.8293, 0.256, 3.8230, 0.443, 3.8132, 0.080, 3.7647, 0.020, 3.7734, 0.019, 0.0000, 0.133, 0.1134, 0.129, 6.2588, 0.026, 6.2413, 0.026, 2.6599, 0.087, 2.6232, 0.374, 2.6496, 0.808, 2.5470, 0.129, 2.5587, 0.019, 2.5534, 0.012, 2.1642, 0, 0.014, 3.1416, 0.047, 3.1625, 0.179, 3.1695, 0.697, 3.1603, 0.574, 4.1315, 0.181, 4.2537, 0.047, 4.2481, 0.013, 4.2062, 0.018, 0.6650, 0.069, 0.6405, 0.253, 0.6449, 0.938, 0.6454, 3.275, 0.6458, 0.499, 0.5569, 0.119, 0.5271, 0.032, 0.5184, 0.030, 0.4939, 0.106, 0.4171, 0.353, 0.4510, 0.056, 0.3840, 0.013, 0.3142, 0.028, 0.2531, 0, 0.034, 0.9512, 0.060, 4.7962, 0.028, 4.7124, 0.028, 4.1836, 0.102, 4.1871, 0.380, 4.1864, 0.059, 4.1818, 0.015, 4.2185, 0.012, 4.1713, 0.050, 4.1870, 0, 0.218e-6, 5.3369, 0.491e-6, 5.3281, 0.172e-6, 2.1642, 0.091e-6, 2.1084, 0.204e-6, 1.2460, 0.712e-6, 1.2413, 2.370e-6, 1.2425, 0.899e-6, 1.2303, 0.763e-6, 4.3633, 0.236e-6, 4.3590, 0.163e-6, 0.2705, 0.541e-6, 0.2710, 1.157e-6, 0.2590, 0.099e-6, 0.1798, 0.360e-6, 2.4237, 0.234e-6, 2.3740, 0.253e-6, 4.5365, 0.849e-6, 4.5293, 2.954e-6, 4.5364, 0.282e-6, 4.4581, 1.550e-6, 1.3570, 0.472e-6, 1.3561, 0.135e-6, 1.3579, 0.081e-6, 3.5936, 0.087e-6, 3.5500, 0.087e-6, 5.7334, 0, 0.181e-6, 5.8275, 0.095e-6, 2.2427, 0.319e-6, 2.2534, 0.256e-6, 2.2403, 0.157e-6, 4.8292, 0.106e-6, 1.0332, 0.397e-6, 1.0756, 0.143e-6, 4.0980, 0, 0.222e-6, 1.6024, 0.708e-6, 1.5949, 0.191e-6, 5.7914, 0.100e-6, 5.3564, 0.347e-6, 5.3548, 1.185e-6, 5.3576, 3.268e-6, 5.3579, 0.371e-6, 2.2148, 0.160e-6, 2.1241, 0.134e-6, 5.1260, 0.347e-6, 5.1620, 0,}; char merccp[] ={ 4, 1, 3, 1, 2, 1, 1, 1, 0, 1, -1, 1, -2, 1, 6, 2, 5, 2, 4, 2, 3, 2, 2, 2, 1, 2, 0, 2, -1, 2, -2, 2, -3, 2, 5, 3, 4, 3, 3, 3, 2, 3, 1, 3, 0, 3, -1, 3, 5, 4, 4, 4, 3, 4, 2, 4, 1, 4, 0, 4, 7, 5, 6, 5, 5, 5, 4, 5, 3, 5, 2, 5, 1, 5, 0, 5, -1, 5, -2, 5, 4, 6, 3, 6, 5, 7, 4, 7, 3, 7, 2, 7, 5, 8, 4, 8, 3, 8, 2, 8, 5, 9, 4, 9, 5, 10, 4, 10, 3, 10, 3, 1, 2, 1, 1, 1, 0, 1, -1, 1, 4, 2, 3, 2, 2, 2, 1, 2, 0, 2, -1, 2, 3, 3, 2, 3, 1, 3, 0, 3, 4, 4, 3, 4, 2, 4, 1, 4, 0, 4, -1, 4, 2, 5, 4, 1, 3, 1, 2, 1, 1, 1, 0, 1, -1, 1, -2, 1, -3, 1, 5, 2, 4, 2, 3, 2, 2, 2, 1, 2, 0, 2, -1, 2, -2, 2, 3, 3, 2, 3, 1, 3, 0, 3, -1, 3, 1, 4, 1, 1, 0, 1, -1, 1, 3, 2, 2, 2, 1, 2, 0, 2, -1, 2, 2, 3, 1, 3, 2, 1, 1, 1, 0, 1, -1, 1, 4, 2, 3, 2, 2, 2, 1, 2, 0, 2, -1, 2, 4, 3, 3, 3, 2, 3, 0, 3, 3, 4, 2, 4, 5, 5, 4, 5, 3, 5, 2, 5, 1, 5, 0, 5, -1, 5, 4, 6, 3, 6, 4, 7, 1, 1, 3, 2, 2, 2, 1, 2, 2, 3, 3, 4, 2, 4, 0, 4, 2, 1, 1, 1, -1, 1, 4, 2, 3, 2, 2, 2, 1, 2, 0, 2, -1, 2, 2, 3, 1, 3,};
/*
* This file is part of the UCB release of Plan 9. It is subject to the license
* terms in the LICENSE file found in the top-level directory of this
* distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
* part of the UCB release of Plan 9, including this file, may be copied,
* modified, propagated, or distributed except according to the terms contained
* in the LICENSE file.
*/
#include "astro.h"
double mercfp[] =
{
0.013, 0.6807,
0.048, 0.6283,
0.185, 0.6231,
0.711, 0.6191,
0.285, 0.5784,
0.075, 0.5411,
0.019, 0.5585,
0.010, 2.8449,
0.039, 2.8117,
0.147, 2.8135,
0.552, 2.8126,
2.100, 2.8126,
3.724, 2.8046,
0.729, 2.7883,
0.186, 2.7890,
0.049, 2.7943,
0.013, 2.7402,
0.033, 1.8361,
0.118, 1.8396,
0.431, 1.8391,
1.329, 1.8288,
0.539, 4.8686,
0.111, 4.8904,
0.027, 4.8956,
0.012, 3.9794,
0.056, 3.9636,
0.294, 3.9910,
0.484, 3.9514,
0.070, 3.9270,
0.018, 3.9270,
0.013, 6.1261,
0.050, 6.1052,
0.185, 6.1069,
0.685, 6.1011,
2.810, 6.1062,
7.356, 6.0699,
1.471, 6.0685,
0.375, 6.0687,
0.098, 6.0720,
0.026, 6.0476,
0.062, 5.1540,
0.122, 5.1191,
0.011, 0.9076,
0.074, 1.0123,
0.106, 0.9372,
0.017, 0.9425,
0.020, 0.0506,
0.052, 0.0384,
0.052, 3.0281,
0.012, 3.0543,
0.011, 2.1642,
0.016, 2.2340,
0.040, 4.3912,
0.080, 4.4262,
0.016, 4.4506,
0,
0.014, 1.0996,
0.056, 1.1153,
0.219, 1.1160,
0.083, 1.0734,
0.024, 0.9442,
0.018, 3.8432,
0.070, 3.8293,
0.256, 3.8230,
0.443, 3.8132,
0.080, 3.7647,
0.020, 3.7734,
0.019, 0.0000,
0.133, 0.1134,
0.129, 6.2588,
0.026, 6.2413,
0.026, 2.6599,
0.087, 2.6232,
0.374, 2.6496,
0.808, 2.5470,
0.129, 2.5587,
0.019, 2.5534,
0.012, 2.1642,
0,
0.014, 3.1416,
0.047, 3.1625,
0.179, 3.1695,
0.697, 3.1603,
0.574, 4.1315,
0.181, 4.2537,
0.047, 4.2481,
0.013, 4.2062,
0.018, 0.6650,
0.069, 0.6405,
0.253, 0.6449,
0.938, 0.6454,
3.275, 0.6458,
0.499, 0.5569,
0.119, 0.5271,
0.032, 0.5184,
0.030, 0.4939,
0.106, 0.4171,
0.353, 0.4510,
0.056, 0.3840,
0.013, 0.3142,
0.028, 0.2531,
0,
0.034, 0.9512,
0.060, 4.7962,
0.028, 4.7124,
0.028, 4.1836,
0.102, 4.1871,
0.380, 4.1864,
0.059, 4.1818,
0.015, 4.2185,
0.012, 4.1713,
0.050, 4.1870,
0,
0.218e-6, 5.3369,
0.491e-6, 5.3281,
0.172e-6, 2.1642,
0.091e-6, 2.1084,
0.204e-6, 1.2460,
0.712e-6, 1.2413,
2.370e-6, 1.2425,
0.899e-6, 1.2303,
0.763e-6, 4.3633,
0.236e-6, 4.3590,
0.163e-6, 0.2705,
0.541e-6, 0.2710,
1.157e-6, 0.2590,
0.099e-6, 0.1798,
0.360e-6, 2.4237,
0.234e-6, 2.3740,
0.253e-6, 4.5365,
0.849e-6, 4.5293,
2.954e-6, 4.5364,
0.282e-6, 4.4581,
1.550e-6, 1.3570,
0.472e-6, 1.3561,
0.135e-6, 1.3579,
0.081e-6, 3.5936,
0.087e-6, 3.5500,
0.087e-6, 5.7334,
0,
0.181e-6, 5.8275,
0.095e-6, 2.2427,
0.319e-6, 2.2534,
0.256e-6, 2.2403,
0.157e-6, 4.8292,
0.106e-6, 1.0332,
0.397e-6, 1.0756,
0.143e-6, 4.0980,
0,
0.222e-6, 1.6024,
0.708e-6, 1.5949,
0.191e-6, 5.7914,
0.100e-6, 5.3564,
0.347e-6, 5.3548,
1.185e-6, 5.3576,
3.268e-6, 5.3579,
0.371e-6, 2.2148,
0.160e-6, 2.1241,
0.134e-6, 5.1260,
0.347e-6, 5.1620,
0,
};
char merccp[] =
{
4, 1,
3, 1,
2, 1,
1, 1,
0, 1,
-1, 1,
-2, 1,
6, 2,
5, 2,
4, 2,
3, 2,
2, 2,
1, 2,
0, 2,
-1, 2,
-2, 2,
-3, 2,
5, 3,
4, 3,
3, 3,
2, 3,
1, 3,
0, 3,
-1, 3,
5, 4,
4, 4,
3, 4,
2, 4,
1, 4,
0, 4,
7, 5,
6, 5,
5, 5,
4, 5,
3, 5,
2, 5,
1, 5,
0, 5,
-1, 5,
-2, 5,
4, 6,
3, 6,
5, 7,
4, 7,
3, 7,
2, 7,
5, 8,
4, 8,
3, 8,
2, 8,
5, 9,
4, 9,
5, 10,
4, 10,
3, 10,
3, 1,
2, 1,
1, 1,
0, 1,
-1, 1,
4, 2,
3, 2,
2, 2,
1, 2,
0, 2,
-1, 2,
3, 3,
2, 3,
1, 3,
0, 3,
4, 4,
3, 4,
2, 4,
1, 4,
0, 4,
-1, 4,
2, 5,
4, 1,
3, 1,
2, 1,
1, 1,
0, 1,
-1, 1,
-2, 1,
-3, 1,
5, 2,
4, 2,
3, 2,
2, 2,
1, 2,
0, 2,
-1, 2,
-2, 2,
3, 3,
2, 3,
1, 3,
0, 3,
-1, 3,
1, 4,
1, 1,
0, 1,
-1, 1,
3, 2,
2, 2,
1, 2,
0, 2,
-1, 2,
2, 3,
1, 3,
2, 1,
1, 1,
0, 1,
-1, 1,
4, 2,
3, 2,
2, 2,
1, 2,
0, 2,
-1, 2,
4, 3,
3, 3,
2, 3,
0, 3,
3, 4,
2, 4,
5, 5,
4, 5,
3, 5,
2, 5,
1, 5,
0, 5,
-1, 5,
4, 6,
3, 6,
4, 7,
1, 1,
3, 2,
2, 2,
1, 2,
2, 3,
3, 4,
2, 4,
0, 4,
2, 1,
1, 1,
-1, 1,
4, 2,
3, 2,
2, 2,
1, 2,
0, 2,
-1, 2,
2, 3,
1, 3,
};