Wolfram Astronomy | Things to Try
Wolfram Astronomy | Things to Try
Make edits and run any piece of code by clicking inside the code and pressing .
+
Compute and Visualize Astronomical Data. Make astronomy computable with curated astronomical data and precise positional information obtained from the latest available ephemerides. Easily create detailed maps of the sky and visualize astronomical events from the past or future.
Astro Computation
Astro Computation
Compute the position of Mars with respect to the current local horizon: |
In[]:=
AstroPosition,"Horizon"
Compute the equatorial coordinates of Altair: |
In[]:=
AstroPosition,"Equatorial"
Compute the mean ecliptic coordinates of Antares: |
In[]:=
AstroPosition,"MeanEcliptic"
Compute the galactic coordinates of Rigil Kentaurus: |
In[]:=
AstroPosition,"Galactic"
Visualize various reference planes with respect to the galactic reference plane as seen from Earth: |
In[]:=
AstroGraphicsAstroReferenceFrame->"Galactic",,AstroBackground->"GalacticSky"
Precise Solar System Dynamics
Precise Solar System Dynamics
Plot the angular separation between Jupiter and Saturn as observed from London between the years 2000 and 2040: |
In[]:=
PlotAstroAngularSeparation,,Dated,year,{year,2000,2040}
Compute the closest apparent approach, called appulse, between Jupiter and Europa on August 27, 2009: |
In[]:=
date=FindAstroEvent{"Appulse",Entity["Planet","Jupiter"],Entity["PlanetaryMoon","Europa"]},,TimeZone"Europe/Rome"
Visualize the position of Europa and Jupiter on that date and observe Io in the same field, oriented with the ecliptic: |
In[]:=
ResourceFunction["TelescopeView3D"],date,,"SatellitesToInclude"->EntityClass["PlanetaryMoon","GalileanMoon"],ViewVertical->{0,0,1}
Eclipses
Eclipses
Resolve the date of maximum eclipse on April 8, 2024: |
In[]:=
eclipse=SolarEclipse[DateObject[{2024,4,8}]]
Generate a map of the eclipse path and other relevant elements of the eclipse geometry: |
In[]:=
SolarEclipse[eclipse,"EclipseMap"]
Astro Formulas
Astro Formulas
Search for formulas using natural language: |
In[]:=
forms=Join[FormulaLookup["apparent magnitude formula"],FormulaLookup["parallax formula"],FormulaLookup["Drake's equation"],FormulaLookup["stellar energy flux equation"],{FormulaLookup["black hole temperature"][[1]]}]
Retrieve equations for formulas: |
In[]:=
eqs=FormulaData/@forms
Display formulas using traditional notation: |
In[]:=
TraditionalForm[Column[eqs]]
Compute the brightness ratio between two stars with different apparent magnitude: |
In[]:=
FormulaData["ApparentMagnitudeIntensity",{->4.5,->6.35}]
m
1
m
2
Astro Data
Astro Data
Randomly select an Apollo asteroid: |
In[]:=
asteroid=RandomChoiceEntityList
Query for various properties for the asteroid: |
In[]:=
EntityValue[asteroid,{"SemimajorAxis","Eccentricity","Inclination","Apoapsis","Periapsis"},"Dataset"]
Plot a histogram of the orbital semimajor axis values for the Apollo asteroids: |
In[]:=
Histogram["DistanceFromSun"],
Astro Visualization
Astro Visualization
Visualize the sky looking due south and centered 30° above the horizon on August 15, 2024, at 10pm: |
In[]:=
AstroGraphics[AstroReferenceFrame->{"Horizon",DateObject[{2024,8,15,22,0,0}]},AstroBackground->"GalacticSky",AstroProjection->"Stereographic",AstroRange->Quantity[35,"AngularDegrees"],AstroCenter->{180,30}]
Constellations and Star Maps
Constellations and Star Maps
Define some custom styles for a star map: |
In[]:=
style={"ShowConstellationIllustrations"->True,"ShowConstellationRegions"->True,"ConstellationRegionStyle"->Darker[Blue,.2],"ConstellationLineStyle"->Opacity[0.6,LightBlue],"ShowConstellationBoundaries"->True,"ConstellationBoundaryStyle"->Directive[Dashing[{0,Tiny}],Yellow],"ConstellationNameStyle"->GrayLevel[0.7],"ShowSolarSystemObjects"->False};
Visualize the sky looking at the constellation Scorpius and include the custom styles with illustrations and boundaries: |
In[]:=
AstroGraphics,AstroBackground->AstroStyling"GalacticSky","ShowConstellations"->,style,AstroReferenceFrame->"J2000"
Time in Astronomy
Time in Astronomy
Compute weekly positions of Mars from July 2022 to July 2023: |
In[]:=
mars=AstroPosition[Entity["Planet","Mars"],{"Equatorial",#}]&/@DateRange["1 Jul 2022","1 July 2023","Week"];
Part of the trajectory was in retrograde motion: |
In[]:=
AstroGraphics[{White,Point[mars]},AstroReferenceFrame->"Equatorial"]
Scales in the Universe
Scales in the Universe
Define an equation relevant at nanometer scales: |
In[]:=
equation=FormulaData[{"PlanckRadiationLaw","Wavelength"},{"T"->Quantity[5000,"Kelvins"],"λ"->Quantity[wl,"Nanometers"]}][[2,2]];
Plot the equation over a range of wavelengths: |
In[]:=
Plot[equation,{wl,200,5000},AxesLabel->{"Wavelength (nm)","Spectral radiance (W )"}]
-1
sr
-3
m
Explore properties of cosmological models of arbitrary composition: |
In[]:=
UniverseModelData[Quantity[10^9,"Parsecs"],<|"OmegaLambda"->0,"OmegaMatter"->0.8,"OmegaRadiation"->0.2,"HubbleH0"->Quantity[50,("Kilometers")/("Megaparsecs""Seconds")]|>]
Geography on Celestial Bodies
Geography on Celestial Bodies
Interpret solar system features using natural language: |
In[]:=
feature=Interpreter["SolarSystemFeature"]["Sinai Planum"]
Generate a relief map of solar system features: |
In[]:=
GeoGraphics[GeoCenter->feature,GeoBackground->"ReliefMap",GeoRange->Quantity[1000,"Miles"]]