source: buchla-68k/orig/DATE/MOONTX.H@ 5fa506d

Last change on this file since 5fa506d was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.
  • Property mode set to 100755
File size: 640 bytes
RevLine 
[3ae31e9]1# include <stdio.h>
2#ifdef VAX
3# include <sys/time.h>
4#else VAX
5# include <time.h>
6#endif VAX
7# include <math.h>
8
9#define EPOCH 1985
10#define EPSILONg 279.611371 /* solar ecliptic long at EPOCH */
11#define RHOg 282.680403 /* solar ecliptic long of perigee at EPOCH */
12#define e 0.01671542 /* solar orbit eccentricity */
13#define lzero 18.251907 /* lunar mean long at EPOCH */
14#define Pzero 192.917585 /* lunar mean long of perigee at EPOCH */
15#define Nzero 55.204723 /* lunar mean long of node at EPOCH */
16
17# define PI 3.141592654
18
Note: See TracBrowser for help on using the repository browser.