sys/src/cmd/astro/nutt.c

   1 #include "astro.h"
   2
   3 double  nutfp[] =
   4 {
   5           .2088,        0,
   6         -1.2730,        0,
   7           .1258,        0,
   8          -.0496,        0,
   9           .0214,        0,
  10           .0124,        0,
  11               0,
  12
  13          9.2109,        0,
  14          -.0904,        0,
  15           .5519,        0,
  16           .0215,        0,
  17          -.0093,        0,
  18          -.0066,        0,
  19               0,
  20
  21          -.2037,        0,
  22           .0675,        0,
  23          -.0342,        0,
  24          -.0261,        0,
  25          -.0149,        0,
  26           .0114,        0,
  27           .0060,        0,
  28           .0058,        0,
  29          -.0057,        0,
  30          -.0052,        0,
  31               0,
  32
  33           .0884,        0,
  34           .0183,        0,
  35           .0113,        0,
  36          -.0050,        0,
  37               0,
  38 };
  39
  40 char    nutcp[] =
  41 {
  42         2,0,0,0,
  43         2,2,-2,0,
  44         0,0,0,1,
  45         2,2,-2,1,
  46         2,2,-2,-1,
  47         1,2,-2,0,
  48
  49         1,0,0,0,
  50         2,0,0,0,
  51         2,2,-2,0,
  52         2,2,-2,1,
  53         2,2,-2,-1,
  54         1,2,-2,0,
  55
  56         2,2,0,0,
  57         0,0,1,0,
  58         1,2,0,0,
  59         2,2,1,0,
  60         0,0,1,-2,
  61         2,2,-1,0,
  62         0,0,0,2,
  63         1,0,1,0,
  64         1,0,-1,0,
  65         2,2,-1,2,
  66
  67         2,2,0,
  68         1,2,0,
  69         2,2,1,
  70         2,2,-1,
  71 };