Hi Thomas
Was meinst du damit? Ob jemand Perl kann? :-?
Mane
... Ich glaube ganz ohne dem geht es evtl. nicht......
also dies sind die Ergebnisse aus meiner Rechnung mit den Perl Astro::ECI::TLE Modulen
Es ist Tue Feb 10 17:55:597957 2009
EPOCH 1234284959.7957
Die Entfernung von COSMOS NACH IRIDIUM ist 0.698011327562359
Azimuth = 243.294246488226
Elevation = -2.65543776234093
IRIDIUM 33-TLE-Daten, NORAD-ID 24946:
IRIDIUM 33
1 24946U 97051C 09040.78448243 +.00000153 +00000-0 +47668-4 0 04775
2 24946 086.3994 121.7028 0002288 085.1644 274.9812 14.34219863597336
TLE-Daten
from: Mon Feb 9 18:49:39 2009
Eccentricity : 0.0002288
Inclination : 86.3994
Mean Motion : 14.34219863
Mean anomaly at epoch: 274.9812
Right Ascension of ascending node: 121.7028
Argument of perigee : 85.1644
IRIDIUM 33 Hoehe APO x Peri : 779.298 km x 776.023 km
Orbit number at epoch: 59733
COSMOS 2251-TLE-Daten, NORAD-ID 22675:
COSMOS 2251
1 22675U 93036A 09040.49834364 -.00000001 00000-0 95251-5 0 7411
2 22675 074.0355 019.4646 0016027 098.7014 261.5952 14.31135643817415
TLE-Daten
from: Mon Feb 9 11:57:36 2009
Eccentricity : 0.0016027
Inclination : 74.0355
Mean Motion : 14.31135643
Mean anomaly at epoch: 261.5952
Right Ascension of ascending node: 19.4646
Argument of perigee : 98.7014
COSMOS 2251 Hoehe APO x Peri : 799.423 km x 776.453 km
Orbit number at epoch: 81741
Mit dem Programm STK 8 von AGI ergibt sich:
Azimuth 308.835
Elevation 2.606
Range (km) 0.698012
Hier der Auszug aus dem Perl Skript:
use Astro::Coord::ECI;
use Astro::Coord::ECI::Sun;
use Astro::Coord::ECI::Moon;
use Astro::Coord::ECI::TLE;
use Astro::Coord::ECI::TLE::Set;
use Astro::Coord::ECI::Utils qw{:all};
# TLE-Data Input - if no file specified
my $tle_data_1 =(<<EOD);
IRIDIUM 33
1 24946U 97051C 09040.36587205 .00000121 00000-0 36194-4 0 4723
2 24946 086.3996 121.8779 0002273 085.9342 274.2112 14.34219614597272
IRIDIUM 33
1 24946U 97051C 09040.78448243 +.00000153 +00000-0 +47668-4 0 04775
2 24946 086.3994 121.7028 0002288 085.1644 274.9812 14.34219863597336
IRIDIUM 33
1 24946U 97051C 09041.76123952 .00000148 00000-0 45664-4 0 4735
2 24946 086.3989 121.2960 0002253 089.6115 270.5342 14.34220263597475
EOD
my $tle_data_2 =(<<EOD);
COSMOS 2251
1 22675U 93036A 09039.51970769 -.00000003 +00000-0 +87983-5 0 07417
2 22675 074.0356 021.2473 0016045 100.8058 259.4899 14.31135543817277
COSMOS 2251
1 22675U 93036A 09040.49834364 -.00000001 00000-0 95251-5 0 7411
2 22675 074.0355 019.4646 0016027 098.7014 261.5952 14.31135643817415
COSMOS 2251
1 22675U 93036A 09041.75659016 -.00000010 00000-0 60222-5 0 7421
2 22675 074.0357 017.1729 0016015 095.9865 264.3113 14.31135598817592
EOD
my @iridium = Astro::Coord::ECI::TLE::Set->aggregate (Astro::Coord::ECI::TLE->parse ($tle_data_1));
my @cosmos = Astro::Coord::ECI::TLE::Set->aggregate (Astro::Coord::ECI::TLE->parse ($tle_data_2));
.....
$iridium[0]->universal($time);
$cosmos[0]->universal($time);
($azimuth, $elevation, $range) = $iridium[0]->azel ($cosmos[0]);
print "\n\n\nDie Entfernung von COSMOS NACH IRIDIUM ist $range\n\n\n";
print "Azimuth = ".rad2deg($azimuth)."\n";
print "Elevation = ".rad2deg($elevation)."\n";
Hat jemand eine Idee?? Zumindest freut mit die Entfernung schon relativ genau zu haben.....