put in long path stuff for show/muf (not convinced it works)

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 015bc790118bb77f0342c10dee9fcd055949b62d..aec709dd16a98e8189fc35a5378375531f9bc65a 100644 (file)
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -468,7 +468,7 @@ string to see a selection of files in a filearea eg:-
 
 See also TYPE - to see the contents of a file.
 
 
 See also TYPE - to see the contents of a file.
 

-=== 0^SHOW/MUF <prefix> [<hours>]^Show the likely propagation to a prefix
+=== 0^SHOW/MUF <prefix> [<hours>][long]^Show the likely propagation to a prefix

 This command allow you to estimate the likelihood of you contacting
 a station with the prefix you have specified. The output assumes a modest
 power of 20dBW and receiver sensitivity of -123dBm (about 0.15muV/10dB SINAD)
 This command allow you to estimate the likelihood of you contacting
 a station with the prefix you have specified. The output assumes a modest
 power of 20dBW and receiver sensitivity of -123dBm (about 0.15muV/10dB SINAD)


@@ -527,6 +527,13 @@ inputing:-
 will get you the above display, but with the next 24 hours worth of
 propagation data.
 
 will get you the above display, but with the next 24 hours worth of
 propagation data.
 

+  SH/MUF W L 24
+  SH/MUF W 24 Long
+
+Gives you an estimate of the long path propagation characterics. It
+should be noted that the figures will probably not be very useful, nor
+terrible accurate, but it is included for completeness.
+

 === 0^SHOW/PREFIX <callsign>^Interrogate the prefix database 
 This command takes the <callsign> (which can be a full or partial 
 callsign or a prefix), looks up which internal country number 
 === 0^SHOW/PREFIX <callsign>^Interrogate the prefix database 
 This command takes the <callsign> (which can be a full or partial 
 callsign or a prefix), looks up which internal country number 

diff --git a/cmd/show/muf.pl b/cmd/show/muf.pl
index 65cc21b5883a9f58e70ca7338699384046773795..5487ea0d1602f3ffd174d17be3d1424285dda6bd 100644 (file)
--- a/cmd/show/muf.pl
+++ b/cmd/show/muf.pl
@@ -10,8 +10,18 @@
 #
 
 my ($self, $line) = @_;
 #
 
 my ($self, $line) = @_;

-my ($prefix, $hr2) = split /\s+/, $line;
+my @f = split /\s+/, $line;
+
+my $prefix = uc shift @f;

 return (1, $self->msg('e4')) unless $prefix;
 return (1, $self->msg('e4')) unless $prefix;

+my $lp;
+my $hr2;
+
+while (@f) {
+       my $f = shift @f;
+       $lp++ if $f =~ /^l/;
+       $hr2 = $f if $f =~ /^\d+$/;
+}

 
 $hr2 = 2 if !$hr2 || $hr2 < 2;
 $hr2 = 24 if $hr2 > 24;
 
 $hr2 = 2 if !$hr2 || $hr2 < 2;
 $hr2 = 24 if $hr2 > 24;


@@ -45,6 +55,16 @@ $b1 *= $d2r;
 $b2 *= $d2r;
 $d = ($d / $R);
 
 $b2 *= $d2r;
 $d = ($d / $R);
 

+# handle long path
+if ($lp) {
+       $d = $pi2 - $d;
+       $b1 += $pi;
+       $b1 -= $pi2 if ($b1 >= $pi2);
+       $b2 += $pi;
+       $b2 -= $pi2 if ($b2 >= $pi2);
+}
+
+

 my ($hr1, $day, $month) = (gmtime($main::systime))[2,3,4];
 $month++;
 my $flux = Geomag::sfi;
 my ($hr1, $day, $month) = (gmtime($main::systime))[2,3,4];
 $month++;
 my $flux = Geomag::sfi;