File BTZ434.PS

Directory of image this file is from
This file as a plain text file

PROGRAM BESSELSCHETAGESZAHLEN (IN,OUT);
VAR
  JD,JDE,JDA:INTEGER;
  D,T,O,F,M,ML,LM,L:REAL;
BEGIN
  READLN;READ(JDA,JDE);
 FOR JD:=JDA TO JDE DO BEGIN
  D:=JD-2415020;
  T:=D/36525;
  O:=281.220833+1.719175*T+0.000361*T*T;
  F:=0.01675104-4.18E-5;
  M:=358.475833+0.9856002669*D-0.00015*T*T-3.3E-6;
  ML:=259.183275-0.0529539222*D+2.077E-3*T*T+2.2E-6;
  LM:=270.434164+13.1763965268*D-1.13333E-3*T*T+1.9E-6*T*T*T;
  L:=296.104608+13.0649924465*D+1.9167E-3*T*T+1.439E-5*T*T*T;
  REPEAT M:=M-360 UNTIL M<360;
  REPEAT ML:=ML+360 UNTIL ML>0;
  REPEAT LM:=LM-360 UNTIL LM<360;
  REPEAT L:=L-360 UNTIL L<360;
  WRITELN("JD:",JD:16);
  WRITELN("EXZENTRIZITAET:",F:28:6);
  WRITELN("LAENGE DES PERIHELS(ERDE):",O:17:6," *");
  WRITELN("MITTLERE ANOMALIE:",M:25:6," *");
  WRITELN("MITTL. LAENGE DES MONDKNOTENS:",ML:13:6," *");
  WRITELN("MITTL. LAENGE DES MONDES:",LM:18:6," *");
  WRITELN("MITTLERE ANOMALIE:",L:25:6," *");
  WRITELN;
  WRITELN;
 END;
END.



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search