This coming Saturday, Oct 14, 2023, there will be an annular eclipse of the Sun. An annular eclipse is when the Moon moves directly in front of the Sun, but its so far from Earth at the time that it doesn’t cover all of the Sun and leaves a ring, or annulus, of the Sun still visible. The path of annularity is limited to the western U.S. and locations south of there. Other places in the U.S. will see a partial eclipse of the Sun. This will be a preview of the total solar eclipse on April 8, 2024.
Create a map of the United States that includes the path of annularity of the Oct 14 solar eclipse:
In[]:=
politicalboundaries=Directive[AbsoluteThickness[1],Gray],Line@@@EntityValue["Country","Polygon"],Line@@@EntityValue,"Polygon",Line@@@EntityValue,;
In[]:=
usmap=GeoGraphics{politicalboundaries,{GeoStyling[Magenta,Opacity[.5]],SolarEclipse[DateObject[{2023,10,14}],"TotalPhasePolygon"]}},GeoBackground->"ReliefMap",GeoRange->,GeoZoomLevel->6,ImageSize->600;
Here is a utility function that plots the sky, centered on the Sun, as seen from a given location on a given date in its local time zone:
In[]:=
sky[loc_,date_]:=AstroGraphicsAstroCenter->,AstroRange->Quantity[1,"AngularDegrees"],AstroReferenceFrame->{"Equatorial",date,loc},PlotLabel->DateString[TimeZoneConvert[date,LocalTimeZone[loc]]]<>" "<>loc["Name"]<>", "<>loc["AdministrativeDivision"]["StateAbbreviation"],ImageSize->{300,300},LabelStyle->Scaled[.04],BaseStyle->12
Assemble a grid that includes the US map along with the view of the Sun and Moon near maximum of the eclipse as seen from those locations:
In[]:=
GridPrependPartitionWith[{loc=#[[1]],date=#[[2]]},sky[loc,date]]&/@,,,,,,,,2,{usmap,SpanFromLeft},Dividers->All,Alignment->Top
Out[]=
Since this is an annular eclipse, this means the whole Sun is not obscured. As a result, its important that you use eclipse glasses or other properly designated viewing aid to avoid damaging your eyes. Only a total eclipse can be viewed with the naked eye, so make plans for April 8, 2024 as soon as possible!
CITE THIS NOTEBOOK
CITE THIS NOTEBOOK
The Western U.S. to Witness Annular Solar Eclipse on October 14, 2023
by Jeff Bryant
Wolfram Community, STAFF PICKS, October 9, 2023
https://community.wolfram.com/groups/-/m/t/3030463
by Jeff Bryant
Wolfram Community, STAFF PICKS, October 9, 2023
https://community.wolfram.com/groups/-/m/t/3030463