[amsat-bb] NOVA PERL DDE Doppler shift calc

["Andrew Rich" <vk4tec@xxxxxxxxxxxxxxxxx>]

Dabbling

connect to NOVA, get RR and calc doppler 

#!/usr/bin/perl
use Net::Telnet;
my $host = "192.168.1.101";
my $t = new Net::Telnet(Timeout=> '5', port => '9947');
$t->errmode('return');
$t->Net::Telnet::open($host);
sleep 2;
print $t "SUMMARY\n";
$frequency = '437975000';
while (<$t>)
{
print $t "SUMMARY\n";
sleep 2;
@data = split (/:/);
$rr = $data[3];
@doppler = split (/ /,$data[3]);
$shift = -$frequency * $doppler[0] * (1.0/299792.458);

$newfreq = $frequency + $shift;
print "Tune: ".substr($newfreq,0,3).".".substr($newfreq,3,3)." MHz\n";
}
$t->close();        
----
Sent via amsat-bb@amsat.org. Opinions expressed are those of the author.
Not an AMSAT member? Join now to support the amateur satellite program!
To unsubscribe, send "unsubscribe amsat-bb" to Majordomo@amsat.org