mirror of https://github.com/XEphem/XEphem.git
29 lines
909 B
Raku
Executable File
29 lines
909 B
Raku
Executable File
#!/usr/bin/perl
|
|
# convert Minor Planet Electronic Circular, MPEC, to edb format
|
|
|
|
# Sample:
|
|
# Orbital elements:
|
|
# 2003 UB313
|
|
# Epoch 2005 Aug. 18.0 TT = JDT 2453600.5 MPC
|
|
# M 197.53790 (2000.0) P Q
|
|
# n 0.00176902 Peri. 151.31153 -0.91258509 -0.02028701
|
|
# a 67.7091000 Node 35.87500 -0.34877687 -0.48266077
|
|
# e 0.4416129 Incl. 44.17700 +0.21340843 -0.87557240
|
|
# P 557 H -1.1 G 0.15 U 5
|
|
|
|
while (<>) {
|
|
if (/Orbital elements/) {
|
|
chomp ($name = <>);
|
|
($e,$y,$m,$d) = split (/ +/, <>);
|
|
next unless ($e =~ /Epoch/);
|
|
($x,$M,$ep) = split (/[ ()]+/, <>);
|
|
($x,$n,$x,$P) = split (/ +/, <>);
|
|
($x,$a,$x,$N) = split (/ +/, <>);
|
|
($x,$e,$x,$i) = split (/ +/, <>);
|
|
($x,$x,$x,$H,$x,$G) = split (/ +/, <>);
|
|
|
|
print "$name,e,$i,$N,$P,$a,$n,$e,$M,8/$d/$y,$ep,H$H,$G\n",
|
|
}
|
|
}
|
|
|