From ed104958bdcae57f6147b07eb3ebdaddf44908cf Mon Sep 17 00:00:00 2001 From: djk Date: Fri, 19 Nov 1999 01:06:02 +0000 Subject: [PATCH] new sh/sun --- Changes | 2 + cmd/show/sun.pl | 14 +- perl/Messages | 2 + perl/Sun.pm | 511 ++++++++++++++++++++++++++++++++++++++++++------ 4 files changed, 457 insertions(+), 72 deletions(-) diff --git a/Changes b/Changes index ed66380e..ca7477c9 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +19Nov99======================================================================= +1. Added new version of sh/sun and also sh/moon from Steve K9AN 18Nov99======================================================================= 1. Added ping obs counter together with Time::HiRes timers. This will dis- connect nodes that fail to respond to 3 ping requests (on the 4th attempt). diff --git a/cmd/show/sun.pl b/cmd/show/sun.pl index 1e9b9b06..8d7d79ae 100644 --- a/cmd/show/sun.pl +++ b/cmd/show/sun.pl @@ -30,24 +30,24 @@ if (@list) { my $a; foreach $a (@ans) { $lat = $a->{lat}; - $lon = $a->{long}; - $lat *= $d2r; - $lon *= -$d2r; + $lon = -$a->{long}; push @in, [ $a->name, $lat, $lon, $pre ]; } } } } else { if ($self->user->lat && $self->user->long) { - push @in, [$self->user->qth, $self->user->lat * $d2r, $self->user->long * -$d2r, $self->call ]; + push @in, [$self->user->qth, $self->user->lat, -$self->user->long, $self->call ]; } else { - push @in, [$main::myqth, $main::mylatitude * $d2r, $main::mylogitude * -$d2r, $main::mycall ]; + push @in, [$main::myqth, $main::mylatitude, -$main::mylongitude, $main::mycall ]; } } +push @out, " Rise Set Azim Elev"; foreach $l (@in) { - my $string=Sun::riseset($yr,$month,$day,$l->[1],$l->[2]); - push @out,sprintf("%-2s %s %s",$l->[3],$l->[0],$string); + my ($rise, $set, $az, $dec )=Sun::rise_set($yr,$month,$day,$hr,$min,$l->[1],$l->[2],0); + $l->[3] =~ s{(-\d+|/\w+)$}{}; + push @out,sprintf("%-6.6s %-30.30s %s %s %6.1f %6.1f ", $l->[3], $l->[0], $rise, $set, $az, $dec); } diff --git a/perl/Messages b/perl/Messages index 488f861e..6a49c2af 100644 --- a/perl/Messages +++ b/perl/Messages @@ -103,6 +103,7 @@ package DXM; msg3 => 'Msg $_[0]: $_[1] changed from $_[2] to $_[3]', msgu => 'usage: msg data...', merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]', + moon => 'Location Rise Set Azim Elev Loss dB', namee1 => 'Please enter your name, set/name ', namee2 => 'Can\'t find user $_[0]!', name => 'Your name is now \"$_[0]\"', @@ -138,6 +139,7 @@ package DXM; sqra => 'Cluster QRA Locator$_[0], DON\'T FORGET TO CHANGE YOUR DXVars.pm', sorry => 'Sorry', spf1 => 'spoof: creating new user $_[0]', + sun => 'Location Rise Set Azim Elev', suser1 => 'usage: callsign user_field_name value', suser2 => 'User $_[0] not found', suser3 => 'User field \'$_[0]\' was \'$_[1]\' now set to \'$_[2]\'', diff --git a/perl/Sun.pm b/perl/Sun.pm index 10a7f77c..79da73d4 100644 --- a/perl/Sun.pm +++ b/perl/Sun.pm @@ -1,15 +1,24 @@ #!/usr/bin/perl -w # -# The subroutines "julian_day" and "riseset" written by -# Steve Franke, November 1999. +# This module was written by Steve Franke K9AN. +# November, 1999. # -# The formulas used to calculate sunrise and sunset times -# are described in Chapters 7, 12, 15, and 25 of +# The formulas used in this module +# are described in: # Astronomical Algorithms, Second Edition # by Jean Meeus, 1998 # Published by Willmann-Bell, Inc. # P.O. Box 35025, Richmond, Virginia 23235 # +# Atmospheric refraction and parallax are taken into +# account when calculating positions of the sun and moon, +# and also when calculating the rise and set times. +# +# Copyright (c) 1999 - Steve Franke K9AN +# +# $Id$ +# + package Sun; use POSIX; @@ -20,7 +29,7 @@ require Exporter; use strict; use vars qw($pi $d2r $r2d ); - + $pi = 3.141592653589; $d2r = ($pi/180); $r2d = (180/$pi); @@ -31,85 +40,457 @@ sub julian_day my $month = shift; my $day = shift; my $julianday; - + $year=$year-1 if( $month <= 2 ); $month=$month+12 if( $month <= 2); - + $julianday = int(365.25*($year+4716)+int(30.6001*($month+1)))+$day-13-1524.5; return $julianday; } +sub reduce_angle_to_360 +{ + my $angle = shift; + + $angle=$angle-int($angle/360)*360; + $angle=$angle+360 if( $angle < 0 ); + return $angle; +} +sub sindeg +{ + my $angle_in_degrees = shift; + + return sin($angle_in_degrees*$d2r); +} +sub cosdeg +{ + my $angle_in_degrees = shift; -sub riseset + return cos($angle_in_degrees*$d2r); +} +sub tandeg +{ + my $angle_in_degrees = shift; + + return tan($angle_in_degrees*$d2r); +} +sub get_az_el +{ + my $H=shift; + my $delta=shift; + my $lat=shift; + + my $az=$r2d * atan2( sindeg($H), cosdeg($H)*sindeg($lat)-tandeg($delta)*cosdeg($lat) ); + my $h=$r2d * asin( sindeg($lat)*sindeg($delta)+cosdeg($lat)*cosdeg($delta)*cosdeg($H) ); + return ($az,$h); +} +sub rise_set { my $year = shift; my $month = shift; my $day = shift; + my $hr = shift; + my $min = shift; my $lat = shift; my $lon = shift; - my $julianday; - - $julianday=julian_day($year,$month,$day); - - my $tt = ($julianday-2451545)/36525.; + my $sun0_moon1=shift; # 0 for sun, 1 for moon, 2 for venus... + + my ($alpha1,$alpha2,$alpha3,$delta1,$delta2,$delta3); + my ($m0,$m1,$m2,$theta,$alpha,$delta,$H,$az,$h,$h0,$aznow,$hnow,$corr); + my ($i,$arg,$argtest,$H0,$alphanow,$deltanow,$distance,$distancenow); + my $julianday=julian_day($year,$month,$day); + my $tt1 = ($julianday-1-2451545)/36525.; + my $tt2 = ($julianday-2451545)/36525.; + my $tt3 = ($julianday+1-2451545)/36525.; + my $ttnow = ($julianday+$hr/24+$min/24/60-2451545)/36525.; + my $theta0=280.46061837+360.98564736629*($julianday-2451545.0)+ - 0.000387933*($tt^2)-($tt^3)/38710000; - $theta0=$theta0-int($theta0/360)*360; - $theta0=$theta0+360 if( $theta0 < 0 ); - + 0.000387933*$tt2*$tt2-$tt2*$tt2*$tt2/38710000; + $theta0=reduce_angle_to_360($theta0); + + my $thetanow=280.46061837+360.98564736629*($julianday+$hr/24+$min/24/60-2451545.0)+ + 0.000387933*$ttnow*$ttnow-$ttnow*$ttnow*$ttnow/38710000; + $thetanow=reduce_angle_to_360($thetanow); + + if ( $sun0_moon1 == 0 ) { + ($alpha1, $delta1)=get_sun_alpha_delta($tt1); + ($alpha2, $delta2)=get_sun_alpha_delta($tt2); + ($alpha3, $delta3)=get_sun_alpha_delta($tt3); + ($alphanow, $deltanow)=get_sun_alpha_delta($ttnow); + $h0=-0.8333; + $H=$thetanow-$lon-$alphanow; + $H=reduce_angle_to_360($H); + ($aznow,$hnow)=get_az_el($H,$deltanow,$lat); + $hnow=$hnow + + 1.02/(tandeg($hnow+10.3/($hnow+5.11)))/60; + } + + if ( $sun0_moon1 == 1 ) { + ($alpha1, $delta1, $distance)=get_moon_alpha_delta($tt1); + ($alpha2, $delta2, $distance)=get_moon_alpha_delta($tt2); + ($alpha3, $delta3, $distance)=get_moon_alpha_delta($tt3); + ($alphanow, $deltanow, $distancenow)=get_moon_alpha_delta($ttnow); + $h0=0.7275*$r2d*asin(6378.14/$distancenow)-34./60.; + $H=$thetanow-$lon-$alphanow; + $H=reduce_angle_to_360($H); + ($aznow,$hnow)=get_az_el($H,$deltanow,$lat); + $hnow=$hnow-$r2d*asin(sin(6378.14/$distancenow)*cosdeg($hnow))+ + 1.02/(tandeg($hnow+10.3/($hnow+5.11)))/60; + } + + $arg = (sindeg($h0)-sindeg($lat)*sindeg($delta2))/(cosdeg($lat)*cosdeg($delta2)); + $argtest = tandeg($lat)*tandeg($delta2); + + if ( $argtest < -1. ) { + return sprintf("Doesn't rise."); + } + if ( $argtest > 1. ) { + return sprintf("Doesn't set."); + } + + $H0 = acos($arg)*$r2d; + my $aa=$alpha2-$alpha1; + my $ba=$alpha3-$alpha2; + $aa=$aa+360 if ($aa < -180); + $aa=$aa-360 if ($aa > 180); + $ba=$ba+360 if ($ba < -180); + $ba=$ba-360 if ($ba > 180); + my $ca=$ba-$aa; + + my $ad=$delta2-$delta1; + my $bd=$delta3-$delta2; + $ad=$ad+360 if ($ad < -180); + $ad=$ad-360 if ($ad > 180); + $bd=$bd+360 if ($bd < -180); + $bd=$bd-360 if ($bd > 180); + my $cd=$bd-$ad; + + $m0 = ($alpha2 + $lon - $theta0)/360.; + $m0=$m0+1 if( $m0 < 0 ); + $m0=$m0-1 if( $m0 > 1 ); + for ($i=1; $i<=2; $i++) { + $theta = $theta0+360.985647*$m0; + $alpha=$alpha2+$m0*($aa+$ba+$m0*$ca)/2; + $delta=$delta2+$m0*($ad+$bd+$m0*$cd)/2; + $H=$theta-$lon-$alpha; + $H=reduce_angle_to_360($H); + $H=$H-360 if ($H > 180); + ($az,$h)=get_az_el($H,$delta,$lat); + $corr=-$H/360; + $m0=$m0+$corr; + $m0=$m0+1 if( $m0 < 0 ); + $m0=$m0-1 if( $m0 > 1 ); + } + + $m1 = $m0 - $H0/360.; + $m1=$m1+1 if( $m1 < 0 ); + $m1=$m1-1 if( $m1 > 1 ); + for ($i=1; $i<=2; $i++) { + $theta = $theta0+360.985647*$m1; + $alpha=$alpha2+$m1*($aa+$ba+$m1*$ca)/2; + $delta=$delta2+$m1*($ad+$bd+$m1*$cd)/2; + $H=$theta-$lon-$alpha; + $H=reduce_angle_to_360($H); + ($az,$h)=get_az_el($H,$delta,$lat); + $corr=($h-$h0)/(360*(cosdeg($delta)*cosdeg($lat)*sindeg($H))); + $m1=$m1+$corr; + $m1=$m1+1 if( $m1 < 0 ); + $m1=$m1-1 if( $m1 > 1 ); + } + + $m2 = $m0 + $H0/360.; + $m2=$m2+1 if( $m2 < 0 ); + $m2=$m2-1 if( $m2 > 1 ); + for ($i=1; $i<=2; $i++) { + $theta = $theta0+360.985647*$m2; + $alpha=$alpha2+$m2*($aa+$ba+$m2*$ca)/2; + $delta=$delta2+$m2*($ad+$bd+$m2*$cd)/2; + $H=$theta-$lon-$alpha; + $H=reduce_angle_to_360($H); + ($az,$h)=get_az_el($H,$delta,$lat); + $corr=($h-$h0)/(360*(cosdeg($delta)*cosdeg($lat)*sindeg($H))); + $m2 = $m2 + $corr; + $m2=$m2+1 if( $m2 < 0 ); + $m2=$m2-1 if( $m2 > 1 ); + } + my ($risehr,$risemin,$sethr,$setmin); + $risehr=int($m1*24); + $risemin=($m1*24-int($m1*24))*60+0.5; + if ( $risemin >= 60 ) { + $risemin=$risemin-60; + $risehr=$risehr+1; + } + $sethr=int($m2*24); + $setmin=($m2*24-int($m2*24))*60+0.5; + if ( $setmin >= 60 ) { + $setmin=$setmin-60; + $sethr=$sethr+1; + } + + if ( $sun0_moon1 == 0 ) { + return (sprintf("%02d:%02dZ", $risehr,$risemin), sprintf("%02d:%02dZ",$sethr,$setmin),$aznow+180,$hnow); + } + if ( $sun0_moon1 == 1 ) { + return (sprintf("%02d:%02dZ", $risehr,$risemin), sprintf("%02d:%02dZ",$sethr,$setmin), + $aznow+180,$hnow, -40*log10($distance/385000) ); + } +} +sub get_moon_alpha_delta +{ + # + # Calculate the moon's right ascension and declination + # + my $tt=shift; + + my $Lp=218.3164477+481267.88123421*$tt- + 0.0015786*$tt*$tt+$tt*$tt*$tt/538841-$tt*$tt*$tt*$tt/65194000; + $Lp=reduce_angle_to_360($Lp); + + my $D = 297.8501921+445267.1114034*$tt-0.0018819*$tt*$tt+ + $tt*$tt*$tt/545868.-$tt*$tt*$tt*$tt/113065000.; + $D=reduce_angle_to_360($D); + + my $M = 357.5291092 + 35999.0502909*$tt-0.0001536*$tt*$tt+ + $tt*$tt*$tt/24490000.; + $M=reduce_angle_to_360($M); + + my $Mp = 134.9633964 + 477198.8675055*$tt+0.0087414*$tt*$tt+ + $tt*$tt*$tt/69699-$tt*$tt*$tt*$tt/14712000; + $Mp=reduce_angle_to_360($Mp); + + my $F = 93.2720950 + 483202.0175233*$tt - 0.0036539*$tt*$tt- + $tt*$tt*$tt/3526000 + $tt*$tt*$tt*$tt/863310000; + $F=reduce_angle_to_360($F); + + my $A1 = 119.75 + 131.849 * $tt; + $A1=reduce_angle_to_360($A1); + + my $A2 = 53.09 + 479264.290 * $tt; + $A2=reduce_angle_to_360($A2); + + my $A3 = 313.45 + 481266.484 * $tt; + $A3=reduce_angle_to_360($A3); + + my $E = 1 - 0.002516 * $tt - 0.0000074 * $tt * $tt; + + my $Sl= 6288774*sindeg( 1 * $Mp ) + + 1274027*sindeg(2 * $D + -1 * $Mp ) + + 658314 *sindeg(2 * $D ) + + 213618 *sindeg( 2 * $Mp ) + + -185116 *sindeg( 1 * $M )*$E + + -114332 *sindeg( 2 * $F ) + + 58793 *sindeg(2 * $D + -2 * $Mp ) + + 57066 *sindeg(2 * $D - 1 * $M -1 * $Mp )*$E + + 53322 *sindeg(2 * $D + 1 * $Mp ) + + 45758 *sindeg(2 * $D - 1 * $M )*$E + + -40923 *sindeg( + 1 * $M -1 * $Mp )*$E + + -34720 *sindeg(1 * $D ) + + -30383 *sindeg( + 1 * $M + 1 * $Mp )*$E + + 15327 *sindeg(2 * $D + -2 * $F ) + + -12528 *sindeg( 1 * $Mp + 2 * $F ) + + 10980 *sindeg( 1 * $Mp - 2 * $F ) + + 10675 *sindeg(4 * $D + -1 * $Mp ) + + 10034 *sindeg( 3 * $Mp ) + + 8548 *sindeg(4 * $D + 0 * $M - 2 * $Mp + 0 * $F ) + + -7888 *sindeg(2 * $D + 1 * $M - 1 * $Mp + 0 * $F )*$E + + -6766 *sindeg(2 * $D + 1 * $M + 0 * $Mp + 0 * $F )*$E + + -5163 *sindeg(1 * $D + 0 * $M - 1 * $Mp + 0 * $F ) + + 4987 *sindeg(1 * $D + 1 * $M + 0 * $Mp + 0 * $F )*$E + + 4036 *sindeg(2 * $D - 1 * $M + 1 * $Mp + 0 * $F )*$E + + 3994 *sindeg(2 * $D + 0 * $M + 2 * $Mp + 0 * $F ) + + 3861 *sindeg(4 * $D + 0 * $M + 0 * $Mp + 0 * $F ) + + 3665 *sindeg(2 * $D + 0 * $M - 3 * $Mp + 0 * $F ) + + -2689 *sindeg(0 * $D + 1 * $M - 2 * $Mp + 0 * $F )*$E + + -2602 *sindeg(2 * $D + 0 * $M - 1 * $Mp + 2 * $F ) + + 2390 *sindeg(2 * $D - 1 * $M - 2 * $Mp + 0 * $F )*$E + + -2348 *sindeg(1 * $D + 0 * $M + 1 * $Mp + 0 * $F ) + + 2236 *sindeg(2 * $D - 2 * $M + 0 * $Mp + 0 * $F )*$E*$E + + -2120 *sindeg(0 * $D + 1 * $M + 2 * $Mp + 0 * $F )*$E + + -2069 *sindeg(0 * $D + 2 * $M + 0 * $Mp + 0 * $F )*$E*$E + + 2048 *sindeg(2 * $D - 2 * $M - 1 * $Mp + 0 * $F )*$E*$E + + -1773 *sindeg(2 * $D + 0 * $M + 1 * $Mp - 2 * $F ) + + -1595 *sindeg(2 * $D + 0 * $M + 0 * $Mp + 2 * $F ) + + 1215 *sindeg(4 * $D - 1 * $M - 1 * $Mp + 0 * $F )*$E + + -1110 *sindeg(0 * $D + 0 * $M + 2 * $Mp + 2 * $F ) + + -892 *sindeg(3 * $D + 0 * $M - 1 * $Mp + 0 * $F ) + + -810 *sindeg(2 * $D + 1 * $M + 1 * $Mp + 0 * $F )*$E + + 759 *sindeg(4 * $D - 1 * $M - 2 * $Mp + 0 * $F )*$E + + -713 *sindeg(0 * $D + 2 * $M - 1 * $Mp + 0 * $F )*$E*$E + + -700 *sindeg(2 * $D + 2 * $M - 1 * $Mp + 0 * $F )*$E*$E + + 691 *sindeg(2 * $D + 1 * $M - 2 * $Mp + 0 * $F )*$E + + 596 *sindeg(2 * $D - 1 * $M + 0 * $Mp - 2 * $F )*$E + + 549 *sindeg(4 * $D + 0 * $M + 1 * $Mp + 0 * $F ) + + 537 *sindeg(0 * $D + 0 * $M + 4 * $Mp + 0 * $F ) + + 520 *sindeg(4 * $D - 1 * $M + 0 * $Mp + 0 * $F )*$E + + -487 *sindeg(1 * $D + 0 * $M - 2 * $Mp + 0 * $F ) + + -399 *sindeg(2 * $D + 1 * $M + 0 * $Mp - 2 * $F )*$E + + -381 *sindeg(0 * $D + 0 * $M + 2 * $Mp - 2 * $F ) + + 351 *sindeg(1 * $D + 1 * $M + 1 * $Mp + 0 * $F )*$E + + -340 *sindeg(3 * $D + 0 * $M - 2 * $Mp + 0 * $F ) + + 330 *sindeg(4 * $D + 0 * $M - 3 * $Mp + 0 * $F ) + + 327 *sindeg(2 * $D - 1 * $M + 2 * $Mp + 0 * $F )*$E + + -323 *sindeg(0 * $D + 2 * $M + 1 * $Mp + 0 * $F )*$E*$E + + 299 *sindeg(1 * $D + 1 * $M - 1 * $Mp + 0 * $F )*$E + + 294 *sindeg(2 * $D + 0 * $M + 3 * $Mp + 0 * $F ) + + 3958 *sindeg($A1) + 1962*sindeg($Lp - $F) + 318*sindeg($A2); + + my $Sr=-20905355 *cosdeg( 1 * $Mp ) + + -3699111 *cosdeg(2 * $D + -1 * $Mp ) + + -2955968 *cosdeg(2 * $D ) + + -569925 *cosdeg( 2 * $Mp ) + + 48888 *cosdeg( 1 * $M )*$E + + -3149 *cosdeg( 2 * $F ) + + 246158 *cosdeg(2 * $D + -2 * $Mp ) + + -152138 *cosdeg(2 * $D - 1 * $M -1 * $Mp )*$E + + -170733 *cosdeg(2 * $D + 1 * $Mp ) + + -204586 *cosdeg(2 * $D - 1 * $M )*$E + + -129620 *cosdeg( + 1 * $M -1 * $Mp )*$E + + 108743 *cosdeg(1 * $D ) + + 104755 *cosdeg( + 1 * $M + 1 * $Mp )*$E + + 10321 *cosdeg(2 * $D + -2 * $F ) + + 79661 *cosdeg( 1 * $Mp - 2 * $F ) + + -34782 *cosdeg(4 * $D + -1 * $Mp ) + + -23210 *cosdeg( 3 * $Mp ) + + -21636 *cosdeg(4 * $D + 0 * $M - 2 * $Mp + 0 * $F ) + + 24208 *cosdeg(2 * $D + 1 * $M - 1 * $Mp + 0 * $F )*$E + + 30824 *cosdeg(2 * $D + 1 * $M + 0 * $Mp + 0 * $F )*$E + + -8379 *cosdeg(1 * $D + 0 * $M - 1 * $Mp + 0 * $F ) + + -16675 *cosdeg(1 * $D + 1 * $M + 0 * $Mp + 0 * $F )*$E + + -12831 *cosdeg(2 * $D - 1 * $M + 1 * $Mp + 0 * $F )*$E + + -10445 *cosdeg(2 * $D + 0 * $M + 2 * $Mp + 0 * $F ) + + -11650 *cosdeg(4 * $D + 0 * $M + 0 * $Mp + 0 * $F ) + + 14403 *cosdeg(2 * $D + 0 * $M - 3 * $Mp + 0 * $F ) + + -7003 *cosdeg(0 * $D + 1 * $M - 2 * $Mp + 0 * $F )*$E + + 10056 *cosdeg(2 * $D - 1 * $M - 2 * $Mp + 0 * $F )*$E + + 6322 *cosdeg(1 * $D + 0 * $M + 1 * $Mp + 0 * $F ) + + -9884 *cosdeg(2 * $D - 2 * $M + 0 * $Mp + 0 * $F )*$E*$E + + 5751 *cosdeg(0 * $D + 1 * $M + 2 * $Mp + 0 * $F )*$E + + -4950 *cosdeg(2 * $D - 2 * $M - 1 * $Mp + 0 * $F )*$E*$E + + 4130 *cosdeg(2 * $D + 0 * $M + 1 * $Mp - 2 * $F )+ + -3958 *cosdeg(4 * $D - 1 * $M - 1 * $Mp + 0 * $F )*$E + + 3258 *cosdeg(3 * $D + 0 * $M - 1 * $Mp + 0 * $F )+ + 2616 *cosdeg(2 * $D + 1 * $M + 1 * $Mp + 0 * $F )*$E + + -1897 *cosdeg(4 * $D - 1 * $M - 2 * $Mp + 0 * $F )*$E + + -2117 *cosdeg(0 * $D + 2 * $M - 1 * $Mp + 0 * $F )*$E*$E + + 2354 *cosdeg(2 * $D + 2 * $M - 1 * $Mp + 0 * $F )*$E*$E + + -1423 *cosdeg(4 * $D + 0 * $M + 1 * $Mp + 0 * $F )+ + -1117 *cosdeg(0 * $D + 0 * $M + 4 * $Mp + 0 * $F )+ + -1571 *cosdeg(4 * $D - 1 * $M + 0 * $Mp + 0 * $F )*$E + + -1739 *cosdeg(1 * $D + 0 * $M - 2 * $Mp + 0 * $F )+ + -4421 *cosdeg(0 * $D + 0 * $M + 2 * $Mp - 2 * $F )+ + 1165 *cosdeg(0 * $D + 2 * $M + 1 * $Mp + 0 * $F )*$E*$E + + 8752 *cosdeg(2 * $D + 0 * $M - 1 * $Mp - 2 * $F ); + + my $Sb= 5128122 *sindeg( 1 * $F ) + + 280602 *sindeg( 1 * $Mp + 1 * $F ) + + 277693 *sindeg( 1 * $Mp - 1 * $F ) + + 173237 *sindeg(2 * $D - 1 * $F ) + + 55413 *sindeg(2 * $D -1 * $Mp + 1 * $F ) + + 46271 *sindeg(2 * $D + -1 * $Mp - 1 * $F ) + + 32573 *sindeg(2 * $D + 1 * $F ) + + 17198 *sindeg( 2 * $Mp + 1 * $F )+ + 9266 *sindeg(2 * $D + 0 * $M + 1 * $Mp - 1 * $F ) + + 8822 *sindeg(0 * $D + 0 * $M + 2 * $Mp - 1 * $F ) + + 8216 *sindeg(2 * $D - 1 * $M + 0 * $Mp - 1 * $F )*$E + + 4324 *sindeg(2 * $D + 0 * $M - 2 * $Mp - 1 * $F ) + + 4200 *sindeg(2 * $D + 0 * $M + 1 * $Mp + 1 * $F ) + + -3359 *sindeg(2 * $D + 1 * $M + 0 * $Mp - 1 * $F )*$E + + 2463 *sindeg(2 * $D - 1 * $M - 1 * $Mp + 1 * $F )*$E + + 2211 *sindeg(2 * $D - 1 * $M + 0 * $Mp + 1 * $F )*$E + + 2065 *sindeg(2 * $D - 1 * $M - 1 * $Mp - 1 * $F )*$E + + -1870 *sindeg(0 * $D + 1 * $M - 1 * $Mp - 1 * $F )*$E + + 1828 *sindeg(4 * $D + 0 * $M - 1 * $Mp - 1 * $F ) + + -1794 *sindeg(0 * $D + 1 * $M + 0 * $Mp + 1 * $F )*$E + + -1749 *sindeg(0 * $D + 0 * $M + 0 * $Mp + 3 * $F ) + + -1565 *sindeg(0 * $D + 1 * $M - 1 * $Mp + 1 * $F )*$E + + -1491 *sindeg(1 * $D + 0 * $M + 0 * $Mp + 1 * $F ) + + -1475 *sindeg(0 * $D + 1 * $M + 1 * $Mp + 1 * $F )*$E + + -1410 *sindeg(0 * $D + 1 * $M + 1 * $Mp - 1 * $F )*$E + + -1344 *sindeg(0 * $D + 1 * $M + 0 * $Mp - 1 * $F )*$E + + -1335 *sindeg(1 * $D + 0 * $M + 0 * $Mp - 1 * $F ) + + 1107 *sindeg(0 * $D + 0 * $M + 3 * $Mp + 1 * $F ) + + 1021 *sindeg(4 * $D + 0 * $M + 0 * $Mp - 1 * $F ) + + 833 *sindeg(4 * $D + 0 * $M - 1 * $Mp + 1 * $F ) + + 777 *sindeg(0 * $D + 0 * $M + 1 * $Mp - 3 * $F ) + + 671 *sindeg(4 * $D + 0 * $M - 2 * $Mp + 1 * $F ) + + 607 *sindeg(2 * $D + 0 * $M + 0 * $Mp - 3 * $F ) + + 596 *sindeg(2 * $D + 0 * $M + 2 * $Mp - 1 * $F ) + + 491 *sindeg(2 * $D - 1 * $M + 1 * $Mp - 1 * $F )*$E + + -451 *sindeg(2 * $D + 0 * $M - 2 * $Mp + 1 * $F ) + + 439 *sindeg(0 * $D + 0 * $M + 3 * $Mp - 1 * $F ) + + 422 *sindeg(2 * $D + 0 * $M + 2 * $Mp + 1 * $F ) + + 421 *sindeg(2 * $D + 0 * $M - 3 * $Mp - 1 * $F ) + + -366 *sindeg(2 * $D + 1 * $M - 1 * $Mp + 1 * $F )*$E + + -351 *sindeg(2 * $D + 1 * $M + 0 * $Mp + 1 * $F )*$E + + 331 *sindeg(4 * $D + 0 * $M + 0 * $Mp + 1 * $F ) + + 315 *sindeg(2 * $D - 1 * $M + 1 * $Mp + 1 * $F )*$E + + 302 *sindeg(2 * $D - 2 * $M + 0 * $Mp - 1 * $F )*$E*$E + + -283 *sindeg(0 * $D + 0 * $M + 1 * $Mp + 3 * $F ) + + -229 *sindeg(2 * $D + 1 * $M + 1 * $Mp - 1 * $F )*$E + + 223 *sindeg(1 * $D + 1 * $M + 0 * $Mp - 1 * $F )*$E + + 223 *sindeg(1 * $D + 1 * $M + 0 * $Mp + 1 * $F )*$E + + -220 *sindeg(0 * $D + 1 * $M - 2 * $Mp - 1 * $F )*$E + + -220 *sindeg(2 * $D + 1 * $M - 1 * $Mp - 1 * $F )*$E + + -185 *sindeg(1 * $D + 0 * $M + 1 * $Mp + 1 * $F ) + + 181 *sindeg(2 * $D - 1 * $M - 2 * $Mp - 1 * $F )*$E + + -177 *sindeg(0 * $D + 1 * $M + 2 * $Mp + 1 * $F )*$E + + 176 *sindeg(4 * $D + 0 * $M - 2 * $Mp - 1 * $F ) + + 166 *sindeg(4 * $D - 1 * $M - 1 * $Mp - 1 * $F )*$E + + -164 *sindeg(1 * $D + 0 * $M + 1 * $Mp - 1 * $F ) + + 132 *sindeg(4 * $D + 0 * $M + 1 * $Mp - 1 * $F ) + + -119 *sindeg(1 * $D + 0 * $M - 1 * $Mp - 1 * $F ) + + 115 *sindeg(4 * $D - 1 * $M + 0 * $Mp - 1 * $F )*$E + + 107 *sindeg(2 * $D - 2 * $M + 0 * $Mp + 1 * $F )*$E*$E + -2235 *sindeg($Lp) + 382*sindeg($A3) + + 175 *sindeg($A1-$F) + 175*sindeg($A1+$F) + + 127 *sindeg($Lp-$Mp) - 115*sindeg($Lp+$Mp); + + my $lambda=$Lp+$Sl/1000000.; + + my $beta=$Sb/1000000.; + + my $distance=385000.56 + $Sr/1000.; + + my $epsilon = 23+26./60.+21.448/(60.*60.); + + my $alpha=atan2(cosdeg($epsilon)*sindeg($lambda)-tandeg($beta)*sindeg($epsilon),cosdeg($lambda))*$r2d; + $alpha = reduce_angle_to_360($alpha); + + my $delta=asin(cosdeg($beta)*sindeg($epsilon)*sindeg($lambda)+sindeg($beta)*cosdeg($epsilon))*$r2d; + $delta = reduce_angle_to_360($delta); + + return ($alpha,$delta,$distance); +} + +sub get_sun_alpha_delta +{ + # + # Calculate Sun's right ascension and declination + # + my $tt = shift; + my $L0 = 280.46646+36000.76983*$tt+0.0003032*($tt^2); - $L0=$L0-int($L0/360)*360; - $L0=$L0+360 if( $L0 < 0 ); - + $L0=reduce_angle_to_360($L0); + my $M = 357.52911 + 35999.05029*$tt-0.0001537*($tt^2); - $M=$M-int($M/360)*360; - $M=$M+360 if( $M < 0 ); - - my $C = (1.914602 - 0.004817*$tt-0.000014*($tt^2))*sin($M*$d2r) + - (0.019993 - 0.000101*$tt)*sin(2*$M*$d2r) + - 0.000289*sin(3*$M*$d2r); - + $M=reduce_angle_to_360($M); + + my $C = (1.914602 - 0.004817*$tt-0.000014*($tt^2))*sindeg($M) + + (0.019993 - 0.000101*$tt)*sindeg(2*$M) + + 0.000289*sindeg(3*$M); + my $OMEGA = 125.04 - 1934.136*$tt; - my $lambda=$L0+$C-0.00569-0.00478*sin($OMEGA*$d2r); - + my $lambda=$L0+$C-0.00569-0.00478*sindeg($OMEGA); + my $epsilon = 23+26./60.+21.448/(60.*60.); - - my $alpha=atan2(cos($epsilon*$d2r)*sin($lambda*$d2r),cos($lambda*$d2r))*$r2d; - $alpha = $alpha-int($alpha/360)*360; - $alpha=$alpha+360 if ( $alpha < 0 ); - + + my $alpha=atan2(cosdeg($epsilon)*sindeg($lambda),cosdeg($lambda))*$r2d; + $alpha = reduce_angle_to_360($alpha); + my $delta=asin(sin($epsilon*$d2r)*sin($lambda*$d2r))*$r2d; - $delta = $delta-int($delta/360)*360; - $delta = $delta+360 if ( $delta < 0 ); - - my $arg = (sin(-.8333*$d2r)-sin($lat)*sin($delta*$d2r))/(cos($lat)*cos($delta*$d2r)); - my $argtest = tan($lat)*tan($delta*$d2r); - - if ( $argtest < -1. ) { - return sprintf("Sun doesn't rise."); - } - if ( $argtest > 1. ) { - return sprintf("Sun doesn't set."); - } - - my $H0 = acos($arg)*$r2d; - - my $transit = ($alpha + $lon*$r2d - $theta0)/360.; - $transit=$transit+1 if( $transit < 0 ); - $transit=$transit-1 if( $transit > 1 ); - - my $rise = $transit - $H0/360.; - $rise=$rise+1 if( $rise < 0 ); - $rise=$rise-1 if( $rise > 1 ); - - my $set = $transit + $H0/360.; - $set=$set+1 if( $set < 0 ); - $set=$set-1 if( $set > 1 ); - - return sprintf("Sunrise: %2.2d%2.2dZ Sunset: %2.2d%2.2dZ",int($rise*24), - ($rise*24-int($rise*24))*60., - int($set*24),($set*24-int($set*24))*60.); + $delta = reduce_angle_to_360($delta); + + return ($alpha,$delta); } -1; -- 2.43.0