harvey/sys/src/cmd/astro/merct.c

#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,
};