Wolfram Astronomia | Experimente!
Wolfram Astronomia | Experimente!
Edite e execute qualquer trecho de código clicando dentro do código e pressionando .
+
Calcule e Visualize Dados Astronômicos. Torne a astronomia computável com dados astronômicos selecionados e informações posicionais precisas obtidas a partir das efemérides mais recentes. Crie facilmente mapas detalhados do céu e visualize eventos astronômicos do passado ou do futuro.
Cálculo Astronômico
Cálculo Astronômico
Calcule a posição de Marte em relação ao horizonte local atual: |
In[]:=
AstroPosition,"Horizon"
Calcule as coordenadas equatoriais de Altair: |
In[]:=
AstroPosition,"Equatorial"
Calcule as coordenadas médias da eclíptica de Antares: |
In[]:=
AstroPosition,"MeanEcliptic"
Calcule as coordenadas galácticas de Rigil Kentaurus: |
In[]:=
AstroPosition,"Galactic"
Visualize vários planos de referência em relação ao plano de referência galáctico visto da Terra: |
In[]:=
AstroGraphicsAstroReferenceFrame->"Galactic",,AstroBackground->"GalacticSky"
Dinâmica Precisa do Sistema Solar
Dinâmica Precisa do Sistema Solar
Trace um gráfico da separação angular entre Júpiter e Saturno, conforme observado de Londres, entre os anos 2000 e 2040: |
In[]:=
PlotAstroAngularSeparation,,Dated,year,{year,2000,2040}
Calcule a aproximação aparente mais próxima, chamada de apulso, entre Júpiter e Europa em 8 de janeiro de 1610: |
In[]:=
date=FindAstroEvent"Appulse",,,,,TimeZone->"Europe/Rome"
Out[]=
Visualize a posição de Europa e Júpiter nessa data e observe Io no mesmo campo, orientado com a eclíptica: |
In[]:=
ResourceFunction["TelescopeView3D"],date,,"SatellitesToInclude"->EntityClass["PlanetaryMoon","GalileanMoon"],ViewVertical->{0,0,1}
Eclipses
Eclipses
Resolva a data do eclipse máximo de 8 de abril de 2024: |
In[]:=
eclipse=SolarEclipse[DateObject[{2024,4,8}]]
Gere um mapa da rota do eclipse e de outros elementos relevantes da geometria do eclipse: |
In[]:=
SolarEclipse[eclipse,"EclipseMap"]
Fórmulas Astronômicas
Fórmulas Astronômicas
Pesquise fórmulas usando linguagem 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 equações para diferentes fórmulas: |
In[]:=
eqs=FormulaData/@forms
Exiba fórmulas utilizando a notação tradicional: |
In[]:=
TraditionalForm[Column[eqs]]
Calcule a razão de brilho entre duas estrelas com magnitudes aparentes diferentes: |
In[]:=
FormulaData["ApparentMagnitudeIntensity",{->4.5,->6.35}]
m
1
m
2
Dados Astronômicos
Dados Astronômicos
Selecione aleatoriamente um asteroide Apolo: |
In[]:=
asteroid=RandomChoiceEntityList
Consulte várias propriedades do asteroide:
In[]:=
EntityValue[asteroid,{"SemimajorAxis","Eccentricity","Inclination","Apoapsis","Periapsis"},"Dataset"]
Trace um histograma dos valores do semieixo maior orbital dos asteroides Apolo: |
In[]:=
Histogram["DistanceFromSun"],PlotTheme->"Marketing",FrameLabel->{"semimajor axis (AU)","asteroid count"}
Visualização Astronômica
Visualização Astronômica
Visualize o céu voltado para o sul e centrado a 30° acima do horizonte em 15 de agosto de 2024 às 22h: |
In[]:=
AstroGraphics[AstroReferenceFrame->{"Horizon",DateObject[{2024,8,15,22,0,0}]},AstroBackground->"GalacticSky",AstroProjection->"Stereographic",AstroRange->Quantity[35,"AngularDegrees"],AstroCenter->{180,30}]
Constelações e Mapas Estelares
Constelações e Mapas Estelares
Defina alguns estilos personalizados para um 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};
Visualize o céu voltado para a constelação de Escorpião e inclua os estilos personalizados com ilustrações e limites: |
In[]:=
AstroGraphics,AstroBackground->AstroStyling"GalacticSky","ShowConstellations"->,style,AstroReferenceFrame->"J2000"
Tempo na Astronomia
Tempo na Astronomia
Calcule as posições semanais de Marte de julho de 2022 a julho de 2023: |
In[]:=
mars=AstroPosition[Entity["Planet","Mars"],{"Equatorial",#}]&/@DateRange["1 Jul 2022","1 July 2023","Week"];
Parte da trajetória esteve em movimento retrógrado: |
In[]:=
AstroGraphics[{White,Point[mars]},AstroReferenceFrame->"Equatorial"]
Escalas no Universo
Escalas no Universo
Defina uma equação relevante para escalas nanométricas: |
In[]:=
equation=FormulaData[{"PlanckRadiationLaw","Wavelength"},{"T"->Quantity[5000,"Kelvins"],"λ"->Quantity[wl,"Nanometers"]}][[2,2]];
Trace um gráfico da equação ao longo de um intervalo de comprimentos de onda: |
In[]:=
Plot[equation,{wl,200,5000},AxesLabel->{"Wavelength (nm)","Spectral radiance (W )"}]
-1
sr
-3
m
Explore propriedades de modelos cosmológicos de composição arbitrária: |
UniverseModelData[Quantity[10^9,"Parsecs"],<|"OmegaLambda"->0,"OmegaMatter"->0.8,"OmegaRadiation"->0.2,"HubbleH0"->Quantity[50,("Kilometers")/("Megaparsecs""Seconds")]|>]
Geografia em Corpos Celestes
Geografia em Corpos Celestes
Interprete características do sistema solar usando linguagem natural: |
In[]:=
feature=Interpreter["SolarSystemFeature"]["Sinai Planum"]
Gere um mapa de relevo de características do sistema solar: |
In[]:=
GeoGraphics[GeoCenter->feature,GeoBackground->"ReliefMap",GeoRange->Quantity[1000,"Miles"]]