Wolfram Astronomía | Ejemplos a probar
Wolfram Astronomía | Ejemplos a probar
Edite y ejecute cualquier pieza de código haciendo clic dentro del código y presionando .
+
Calcule y visualice datos astronómicos. Vuelva la astronomía computable con datos astronómicos curados e información posicional precisa obtenida desde las efemérides más recientes disponibles. Cree con facilidad mapas detallados del cielo y visualice eventos astronómicos del pasado o futuro.
Computación astronómica
Computación astronómica
Calcule la posición de Marte con respecto al horizonte local actual: |
In[]:=
AstroPosition,"Horizon"
Calcule las coordenadas ecuatoriales de Altair: |
In[]:=
AstroPosition,"Equatorial"
Calcule las coordenadas medias eclípticas de Antares: |
In[]:=
AstroPosition,"MeanEcliptic"
Calcule las coordenadas galácticas de Rigil Kentaurus: |
In[]:=
AstroPosition,"Galactic"
Visualice diversos planos de referencia con respecto al plano de referencia galáctico visto desde la Tierra: |
In[]:=
AstroGraphicsAstroReferenceFrame->"Galactic",,AstroBackground->"GalacticSky"
Dinámica precisa del sistema solar
Dinámica precisa del sistema solar
Represente la separación angular entre Júpited y Saturno observada desde Londres entre los años 2000 y 2040: |
In[]:=
PlotAstroAngularSeparation,,Dated,year,{year,2000,2040}
Calcule la aproximación aparente más cercana, llamada apulso, entre Júpiter y Europa el 8 de enero de 1610: |
In[]:=
date=FindAstroEvent"Appulse",,,,,TimeZone->"Europe/Rome"
Out[]=
Visualice la posición de Europa y Júpiter en esa fecha y observe Ío en el mismo campo, orientada con la eclíptica: |
In[]:=
ResourceFunction["TelescopeView3D"],date,,"SatellitesToInclude"->EntityClass["PlanetaryMoon","GalileanMoon"],ViewVertical->{0,0,1}
Eclipses
Eclipses
Resuelva la fecha de eclipse máximo el 8 de abril de 2024: |
In[]:=
eclipse=SolarEclipse[DateObject[{2024,4,8}]]
Genere un mapa de la trayectoria del eclipse y otros elementos relevantes de la geometría del eclipse: |
In[]:=
SolarEclipse[eclipse,"EclipseMap"]
\bFórmulas astronómicas
\bFórmulas astronómicas
Busque fórmulas usando lenguaje natural: |
In[]:=
forms=Join[FormulaLookup["apparent magnitude formula"],FormulaLookup["parallax formula"],FormulaLookup["Drake's equation"],FormulaLookup["stellar energy flux equation"],{FormulaLookup["black hole temperature"][[1]]}]
Recupere ecuaciones para fórmulas: |
In[]:=
eqs=FormulaData/@forms
Muestre fórmulas usando notación tradicional: |
In[]:=
TraditionalForm[Column[eqs]]
Calcule la relación de brillo entre dos estrellas con diferente magnitud aparente: |
In[]:=
FormulaData["ApparentMagnitudeIntensity",{->4.5,->6.35}]
m
1
m
2
Datos astronómicos
Datos astronómicos
Seleccione un asteroide Apolo de manera aleatoria: |
In[]:=
asteroid=RandomChoiceEntityList
Consulte diversas propiedades del asteroide:
In[]:=
EntityValue[asteroid,{"SemimajorAxis","Eccentricity","Inclination","Apoapsis","Periapsis"},"Dataset"]
Represente un histograma de los valores del semieje mayor orbital de los asteroides Apolo: |
In[]:=
Histogram["DistanceFromSun"],PlotTheme->"Marketing",FrameLabel->{"semimajor axis (AU)","asteroid count"}
Visualización astronómica
Visualización astronómica
Visualice el cielo mirando hacia el sur y centrado a 30° sobre el horizonte el 15 de agosto de 2024 a las 10 PM: |
In[]:=
AstroGraphics[AstroReferenceFrame->{"Horizon",DateObject[{2024,8,15,22,0,0}]},AstroBackground->"GalacticSky",AstroProjection->"Stereographic",AstroRange->Quantity[35,"AngularDegrees"],AstroCenter->{180,30}]
Constelaciones y mapas estelares
Constelaciones y mapas estelares
Defina algunos estilos personalizados para un mapa estelar: |
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};
Visualice el cielo mirando hacia la constelación de Escorpio e incluya los estilos personalizados con ilustraciones y límites: |
In[]:=
AstroGraphics,AstroBackground->AstroStyling"GalacticSky","ShowConstellations"->,style,AstroReferenceFrame->"J2000"
Tiempo en astronomía
Tiempo en astronomía
Calcule posiciones semanales de Marte desde julio de 2020 hasta julio de 2023: |
In[]:=
mars=AstroPosition[Entity["Planet","Mars"],{"Equatorial",#}]&/@DateRange["1 Jul 2022","1 July 2023","Week"];
Parte de la trayectoria estaba en movimiento retrógrado: |
In[]:=
AstroGraphics[{White,Point[mars]},AstroReferenceFrame->"Equatorial"]
Escalas en el universo
Escalas en el universo
Defina una ecuación relevante a escalas de nanómetros: |
In[]:=
equation=FormulaData[{"PlanckRadiationLaw","Wavelength"},{"T"->Quantity[5000,"Kelvins"],"λ"->Quantity[wl,"Nanometers"]}][[2,2]];
Represente la ecuación sobre un rango de longitudes de onda: |
In[]:=
Plot[equation,{wl,200,5000},AxesLabel->{"Wavelength (nm)","Spectral radiance (W )"}]
-1
sr
-3
m
Explore propiedades de modelos cosmológicos de composición arbitraria: |
UniverseModelData[Quantity[10^9,"Parsecs"],<|"OmegaLambda"->0,"OmegaMatter"->0.8,"OmegaRadiation"->0.2,"HubbleH0"->Quantity[50,("Kilometers")/("Megaparsecs""Seconds")]|>]
Geografía en cuerpos celestes
Geografía en cuerpos celestes
Interprete características de sistemas solares usando lenguaje natural: |
In[]:=
feature=Interpreter["SolarSystemFeature"]["Sinai Planum"]
Generate a relief map of solar system features: |
In[]:=
GeoGraphics[GeoCenter->feature,GeoBackground->"ReliefMap",GeoRange->Quantity[1000,"Miles"]]