projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
check for qra locator and offer alternative
[spider.git]
/
perl
/
Minimuf.pm
diff --git
a/perl/Minimuf.pm
b/perl/Minimuf.pm
index e911663c5ca3daa86917d7767ad64bc630d24601..e5ab130f20f1f9e6664f867cacc0e9f32598d5e2 100644
(file)
--- a/
perl/Minimuf.pm
+++ b/
perl/Minimuf.pm
@@
-4,6
+4,8
@@
#
# Translated and modified for my own purposes by Dirk Koopman G1TLH
#
#
# Translated and modified for my own purposes by Dirk Koopman G1TLH
#
+# as fixed by Steve Franke K9AN
+#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
# The original copyright:-
# Copyright (c) 1999 Dirk Koopman G1TLH
#
# The original copyright:-
@@
-253,7
+255,7
@@
sub ion
# Calculate the E-layer critical frequency and MUF.
$fcE = 0;
# Calculate the E-layer critical frequency and MUF.
$fcE = 0;
- $psi = zenith($dist, $lat1, $lon1, $b
2, $b1
, $lats, $lons);
+ $psi = zenith($dist, $lat1, $lon1, $b
1, $b2
, $lats, $lons);
$ftemp = cos($psi);
$fcE = .9 * pow((180. + 1.44 * $ssn) * $ftemp, .25) if ($ftemp > 0);
$fcE = .005 * $ssn if ($fcE < .005 * $ssn);
$ftemp = cos($psi);
$fcE = .9 * pow((180. + 1.44 * $ssn) * $ftemp, .25) if ($ftemp > 0);
$fcE = .005 * $ssn if ($fcE < .005 * $ssn);
@@
-471,7
+473,7
@@
sub ds
$s = 0 if $s < 0;
my $plus = (($l / 6) >= $s + 0.5) ? '+' : ' ';
$s = 0 if $s < 0;
my $plus = (($l / 6) >= $s + 0.5) ? '+' : ' ';
- return "$c2
\
S$s$plus";
+ return "$c2
". "
S$s$plus";
}
1;
}
1;