X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSun.pm;h=301fa4a5b862906b55409d8025c64ae3915afe36;hb=9b47e7023d41616a9efa885ef9338277dc2ab851;hp=759f99489a76199f0e2572f08b39d07ea852850a;hpb=5a5a0fce49c14f8fa065fd3601a36535625087b6;p=spider.git diff --git a/perl/Sun.pm b/perl/Sun.pm index 759f9948..301fa4a5 100644 --- a/perl/Sun.pm +++ b/perl/Sun.pm @@ -18,12 +18,14 @@ # # $Id$ # +# 2005/02/25 add calculation of civil dawn and dusk, defined to be times +# when solar zenith angle is 96 degrees. +# 2001/12/16 Fixed Julian_Date_of_Epoch and now I actually use it... # 2001/09/15 some changes to take care of cases where the object # doesn't rise or set on a given day... package Sun; -use POSIX; require Exporter; @ISA = qw(Exporter); @@ -33,7 +35,7 @@ use strict; use vars qw($VERSION $BRANCH); $VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0; +$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); $main::build += $VERSION; $main::branch += $BRANCH; @@ -47,6 +49,9 @@ use vars qw(%keps); use Keps; use DXVars; use DXUtil; +use DXDebug; + +use POSIX qw(:math_h); # reload the keps data sub load @@ -76,13 +81,18 @@ sub Julian_Day sub Julian_Date_of_Epoch { my $epoch=shift; - my $year=int($epoch*1e-3); - $year=$year+2000 if ($year < 57); - $year=$year+1900 if ($year >= 57); - my $day=$epoch-$year*1e3; + my $year=int($epoch/1000); + my $day=$epoch-$year*1000; + if ($year < 57 ) { + $year=$year+2000; + } + else { + $year=$year+1900; + } my $Julian_Date_of_Epoch=Julian_Date_of_Year($year)+$day; return $Julian_Date_of_Epoch; } + sub Julian_Date_of_Year { my $year=shift; @@ -161,14 +171,12 @@ sub rise_set my $lat = shift; my $lon = shift; my $sun0_moon1=shift; # 0 for sun, 1 for moon, 2 for venus... + my ($alpha1,$delta1,$alpha2,$delta2,$alpha3,$delta3); + my ($aznow,$hnow,$alphanow,$deltanow,$distance,$distancenow); + my ($h0,$H); + my ($risetime,$settime); + my ($dawntime,$dusktime); - my $norise = 0; - my $noset = 0; - my ($risehr,$risemin,$risetime,$sethr,$setmin,$settime); - - 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 ($ifrac,$ifracnow); my $julianday=Julian_Day($year,$month,$day); @@ -190,12 +198,27 @@ sub rise_set ($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; + $h0=-0.8333; # this is for sun rise and sun set + ($risetime,$settime)= + do_rise_set_calculations($h0,$theta0,$lat,$lon,$alpha1,$delta1, + $alpha2,$delta2,$alpha3,$delta3); + $h0=-6.0; # this is for civil dawn and dusk + ($dawntime,$dusktime)= + do_rise_set_calculations($h0,$theta0,$lat,$lon,$alpha1,$delta1, + $alpha2,$delta2,$alpha3,$delta3); + $dawntime = "------" if( $dawntime eq "NoRise" ); + $dusktime = "------" if( $dusktime eq "NoSet " ); + + return ( + sprintf("%s", $dawntime), sprintf("%s",$risetime), + sprintf("%s", $settime), sprintf("%s",$dusktime), + $aznow+180,$hnow + ); } if ( $sun0_moon1 == 1 ) { @@ -203,14 +226,41 @@ sub rise_set ($alpha2, $delta2, $distance, $ifrac)=get_moon_alpha_delta($tt2); ($alpha3, $delta3, $distance, $ifrac)=get_moon_alpha_delta($tt3); ($alphanow, $deltanow, $distancenow, $ifracnow)=get_moon_alpha_delta($ttnow); - $h0=0.7275*$r2d*asin(6378.14/$distancenow)-34./60.; + $h0=0.7275*$r2d*asin(6378.14/$distancenow)-34.0/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; + ($risetime,$settime)= + do_rise_set_calculations($h0,$theta0,$lat,$lon,$alpha1,$delta1, + $alpha2,$delta2,$alpha3,$delta3); + return (sprintf("%s", $risetime), sprintf("%s",$settime), + $aznow+180,$hnow, -40*log10($distance/385000), $ifracnow ); + } +} + +sub do_rise_set_calculations +{ + my $norise = 0; + my $noset = 0; + my ($risehr,$risemin,$risetime,$sethr,$setmin,$settime); + my ($m0,$m1,$m2,$theta,$alpha,$delta,$H,$az,$h,$corr); + my ($i,$arg,$argtest,$H0); + + my $h0=shift; + my $theta0=shift; + my $lat=shift; + my $lon=shift; + my $alpha1=shift; + my $delta1=shift; + my $alpha2=shift; + my $delta2=shift; + my $alpha3=shift; + my $delta3=shift; + $arg = (sindeg($h0)-sindeg($lat)*sindeg($delta2))/(cosdeg($lat)*cosdeg($delta2)); if ( abs($arg) > 1. ) { # either up all day or down all day $norise = 1; # leave it to the user to examine @@ -248,7 +298,7 @@ sub rise_set $corr=-$H/360; $m0=$m0+$corr; $m0=$m0+1 if( $m0 < 0 ); - $m0=$m0-1 if( $m0 > 1 ); + $m0=$m0-1 if( $m0 >= 1 ); } @@ -265,7 +315,9 @@ sub rise_set ($az,$h)=get_az_el($H,$delta,$lat); $corr=($h-$h0)/(360*(cosdeg($delta)*cosdeg($lat)*sindeg($H))); $m1=$m1+$corr; - $norise=1 if( $m1 < 0 || $m1 > 1); +# $norise=1 if( $m1 < 0 || $m1 > 1); + $m1=$m1-1 if( $m1 >= 1); + $m1=$m1+1 if( $m1 < 0); } } @@ -276,6 +328,7 @@ sub rise_set $risemin=$risemin-60; $risehr=$risehr+1; } + $risehr=0 if($risehr==24); $risetime=sprintf("%02d:%02dZ",$risehr,$risemin); } else { $risetime="NoRise"; @@ -284,7 +337,7 @@ sub rise_set if( !$noset ){ $m2 = $m0 + $H0/360.; $m2=$m2+1 if( $m2 < 0 ); - $m2=$m2-1 if( $m2 > 1 ); + $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; @@ -294,7 +347,9 @@ sub rise_set ($az,$h)=get_az_el($H,$delta,$lat); $corr=($h-$h0)/(360*(cosdeg($delta)*cosdeg($lat)*sindeg($H))); $m2 = $m2 + $corr; - $noset=1 if( $m2 < 0 || $m2 > 1); +# $noset=1 if( $m2 < 0 || $m2 > 1); + $m2=$m2-1 if( $m2 >= 1); + $m2=$m2+1 if( $m2 < 0); } } @@ -305,20 +360,16 @@ sub rise_set $setmin=$setmin-60; $sethr=$sethr+1; } + $sethr=0 if($sethr==24); $settime=sprintf("%02d:%02dZ",$sethr,$setmin); } else { $settime="NoSet "; } + return $risetime,$settime; +} + - if ( $sun0_moon1 == 0 ) { - return (sprintf("%s", $risetime), sprintf("%s",$settime),$aznow+180,$hnow); - } - if ( $sun0_moon1 == 1 ) { - return (sprintf("%s", $risetime), sprintf("%s",$settime), - $aznow+180,$hnow, -40*log10($distance/385000), $ifracnow ); - } -} sub get_moon_alpha_delta { # @@ -645,14 +696,7 @@ sub get_satellite_pos my $epoch = $sat_ref ->{epoch}; #printf("epoch = %10.2f\n",$epoch); - my $epoch_year=int($epoch/1000); - my $epoch_day=$epoch-int(1000*$epoch_year); -#printf("epoch_year = %10.2f\n",$epoch_year); -#printf("epoch_day = %17.12f\n",$epoch_day); - my $ep_year=$epoch_year+2000 if ($epoch_year < 57); - $ep_year=$epoch_year+1900 if ($epoch_year >= 57); - my $jt_epoch=Julian_Date_of_Year($ep_year); - $jt_epoch=$jt_epoch+$epoch_day; + my $jt_epoch=Julian_Date_of_Epoch($epoch); #printf("JT for epoch = %17.12f\n",$jt_epoch); my $tsince=($jtime-$jt_epoch)*24*60; #printf("tsince (min) = %17.12f\n",$tsince);