projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
put in input filter for ann and output filters for ann/wwv/spots
[spider.git]
/
cmd
/
show
/
muf.pl
diff --git
a/cmd/show/muf.pl
b/cmd/show/muf.pl
index e880eabd9c20b05882821578a0b0becd26a1b3da..c216b6ddf0888b016ca64f60f9b37b2e919ecb25 100644
(file)
--- a/
cmd/show/muf.pl
+++ b/
cmd/show/muf.pl
@@
-31,8
+31,8
@@
if (!$lon1 && !$lat1) {
}
$lat2 = $a->{lat};
$lon2 = $a->{long};
}
$lat2 = $a->{lat};
$lon2 = $a->{long};
-($b
2
, $d) = DXBearing::bdist($lat1, $lon1, $lat2, $lon2);
-($b
1
, undef) = DXBearing::bdist($lat2, $lon2, $lat1, $lon1);
+($b
1
, $d) = DXBearing::bdist($lat1, $lon1, $lat2, $lon2);
+($b
2
, undef) = DXBearing::bdist($lat2, $lon2, $lat1, $lon1);
# convert stuff into radians
$lat1 *= $d2r;
# convert stuff into radians
$lat1 *= $d2r;
@@
-46,7
+46,7
@@
$d = ($d / $R);
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;
-my $ssn =
Geomag::r ||
Minimuf::spots($flux);
+my $ssn = Minimuf::spots($flux);
my $theta; # path angle (rad)
my ($lats, $lons); # subsolar coordinates (rad)
my $theta; # path angle (rad)
my ($lats, $lons); # subsolar coordinates (rad)