From 45823b2468645745f706fd467d08b29717942176 Mon Sep 17 00:00:00 2001 From: djk Date: Sat, 6 Nov 1999 11:47:22 +0000 Subject: [PATCH] put in long path stuff for show/muf (not convinced it works) --- cmd/Commands_en.hlp | 9 ++++++++- cmd/show/muf.pl | 22 +++++++++++++++++++++- 2 files changed, 29 insertions(+), 2 deletions(-) diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp index 015bc790..aec709dd 100644 --- 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. -=== 0^SHOW/MUF []^Show the likely propagation to a prefix +=== 0^SHOW/MUF [][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) @@ -527,6 +527,13 @@ inputing:- 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 ^Interrogate the prefix database This command takes the (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 65cc21b5..5487ea0d 100644 --- a/cmd/show/muf.pl +++ b/cmd/show/muf.pl @@ -10,8 +10,18 @@ # 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; +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; @@ -45,6 +55,16 @@ $b1 *= $d2r; $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; -- 2.43.0