sys/src/cmd/astro/sunt.c

   1 #include "astro.h"
   2
   3 double  sunfp[] =
   4 {
   5         -.265, 0,
   6         3.760, 0,
   7          .200, 0,
   8         0,
   9
  10         -.021, 0,
  11         5.180, 0,
  12         1.882, 3.8991,
  13         -.030, 0,
  14         0,
  15
  16         0.075, 5.1766,
  17         4.838, 5.2203,
  18         0.074, 3.6285,
  19         0.116, 2.5988,
  20         5.526, 2.5885,
  21         2.497, 5.5143,
  22         0.044, 5.4350,
  23         0.666, 3.1016,
  24         1.559, 6.0258,
  25         1.024, 5.5527,
  26         0.210, 3.5989,
  27         0.144, 3.4104,
  28         0.152, 6.0004,
  29         0.084, 4.1120,
  30         0.037, 3.8711,
  31         0.123, 3.4086,
  32         0.154, 6.2762,
  33         0.038, 4.6094,
  34         0.020, 5.1313,
  35         0.042, 4.5239,
  36         0.032, 0.8517,
  37         0.273, 3.7996,
  38         0.048, 4.5431,
  39         0.041, 6.0388,
  40         2.043, 6.0020,
  41         1.770, 3.4977,
  42         0.028, 2.5831,
  43         0.129, 5.1348,
  44         0.425, 5.9146,
  45         0.034, 1.2391,
  46         0.500, 1.8357,
  47         0.585, 5.8304,
  48         0.085, 0.9529,
  49         0.204, 1.7593,
  50         0.020, 3.2463,
  51         0.154, 3.9689,
  52         0.101, 1.6808,
  53         0.049, 3.0805,
  54         0.106, 3.8868,
  55         0.052, 6.0895,
  56         0.021, 3.7559,
  57         0.028, 5.2011,
  58         0.062, 6.0388,
  59         0.044, 1.8483,
  60         0.045, 3.9759,
  61         0.021, 5.3931,
  62         0.026, 1.9722,
  63         0.163, 3.4662,
  64         7.208, 3.1334,
  65         2.600, 4.5940,
  66         0.073, 4.8223,
  67         0.069, 1.4102,
  68         2.731, 1.5210,
  69         1.610, 1.9110,
  70         0.073, 4.4087,
  71         0.164, 2.9758,
  72         0.556, 1.4425,
  73         0.210, 1.7261,
  74         0.044, 2.9356,
  75         0.080, 1.3561,
  76         0.419, 1.7555,
  77         0.320, 4.7030,
  78         0.108, 5.0719,
  79         0.112, 5.1243,
  80         0.021, 5.0440,
  81         0,
  82
  83         6.454, 0,
  84         0.177, 0,
  85         -.424, 0,
  86         0.039, 0,
  87         -.064, 0,
  88         0.172, 0,
  89         0,
  90
  91         -.092, 1.6354,
  92         -.067, 2.1468,
  93         -.210, 2.6494,
  94         -.166, 4.6338,
  95         0,
  96
  97         0.576, 0,
  98         -.047, 0,
  99         0.021, 0,
 100         0,
 101
 102         2.359e-6, 3.6607,
 103         6.842e-6, 1.0180,
 104         0.869e-6, 3.9567,
 105         1.045e-6, 1.5332,
 106         1.497e-6, 4.4691,
 107         0.376e-6, 2.0295,
 108         2.057e-6, 4.0941,
 109         0.215e-6, 4.3459,
 110         0.478e-6, 0.2648,
 111         0.208e-6, 1.9548,
 112         7.067e-6, 1.5630,
 113         0.244e-6, 5.9097,
 114         4.026e-6, 6.2526,
 115         1.459e-6, 0.3409,
 116         0.281e-6, 1.4172,
 117         0.803e-6, 6.1533,
 118         0.429e-6, 0.1850,
 119         0,
 120
 121         13.36e-6, 0,
 122         -1.33e-6, 0,
 123          0.37e-6, 0,
 124          0.36e-6, 0,
 125         0,
 126 };
 127 char    suncp[] =
 128 {
 129         4, -7, 3, 0,
 130         -8, 4, 0, 3,
 131         15, -8, 0, 0,
 132
 133         4, -7, 3, 0, 0,
 134         -8, 4, 0, 3, 0,
 135         0, 13, -8, 0, 1,
 136         15, -8, 0, 0, 0,
 137
 138         0,0,1,0,0,
 139         0,-1,1,0,0,
 140         0,-2,1,0,0,
 141         0,-1,2,0,0,
 142         0,-2,2,0,0,
 143         0,-3,2,0,0,
 144         0,-4,2,0,0,
 145         0,-3,3,0,0,
 146         0,-4,3,0,0,
 147         0,-5,3,0,0,
 148         0,-4,4,0,0,
 149         0,-5,4,0,0,
 150         0,-6,4,0,0,
 151         0,-5,5,0,0,
 152         0,-6,5,0,0,
 153         0,-7,5,0,0,
 154         0,-8,5,0,0,
 155         0,-6,6,0,0,
 156         0,-7,7,0,0,
 157         0,-12,8,0,0,
 158         0,-14,8,0,0,
 159         -1,1,0,0,0,
 160         -1,0,0,0,0,
 161         -2,3,0,0,0,
 162         -2,2,0,0,0,
 163         -2,1,0,0,0,
 164         -2,0,0,0,0,
 165         -3,3,0,0,0,
 166         -3,2,0,0,0,
 167         -4,4,0,0,0,
 168         -4,3,0,0,0,
 169         -4,2,0,0,0,
 170         -5,4,0,0,0,
 171         -5,3,0,0,0,
 172         -6,5,0,0,0,
 173         -6,4,0,0,0,
 174         -6,3,0,0,0,
 175         -7,5,0,0,0,
 176         -7,4,0,0,0,
 177         -8,5,0,0,0,
 178         -8,4,0,0,0,
 179         -9,6,0,0,0,
 180         -9,5,0,0,0,
 181         -11,6,0,0,0,
 182         -13,7,0,0,0,
 183         -15,9,0,0,0,
 184         -17,9,0,0,0,
 185         0,2,0,-1,0,
 186         0,1,0,-1,0,
 187         0,0,0,-1,0,
 188         0,-1,0,-1,0,
 189         0,3,0,-2,0,
 190         0,2,0,-2,0,
 191         0,1,0,-2,0,
 192         0,0,0,-2,0,
 193         0,3,0,-3,0,
 194         0,2,0,-3,0,
 195         0,1,0,-3,0,
 196         0,3,0,-4,0,
 197         0,2,0,-4,0,
 198         0,1,0,0,-1,
 199         0,0,0,0,-1,
 200         0,2,0,0,-2,
 201         0,1,0,0,-2,
 202         0,2,0,0,-3,
 203
 204         1,0,0,
 205         1,1,0,
 206         1,-1,0,
 207         3,-1,0,
 208         1,0,1,
 209         1,0,-1,
 210
 211         -2,1,0,
 212         -3,2,0,
 213         -4,2,0,
 214         1,0,-2,
 215
 216         1,0,0,
 217         1,-1,0,
 218         -1,0,2,
 219
 220         0,-1,1,0,0,
 221         0,-2,2,0,0,
 222         0,-3,2,0,0,
 223         0,-3,3,0,0,
 224         0,-4,3,0,0,
 225         0,-4,4,0,0,
 226         -2,2,0,0,0,
 227         -3,2,0,0,0,
 228         -4,3,0,0,0,
 229         0,2,0,-1,0,
 230         0,1,0,-1,0,
 231         0,0,0,-1,0,
 232         0,2,0,-2,0,
 233         0,1,0,-2,0,
 234         0,3,0,-3,0,
 235         0,2,0,-3,0,
 236         0,1,0,0,-1,
 237
 238         1,0,0,
 239         1,-1,0,
 240         1,1,0,
 241         1,0,-1,
 242 };