Wolfram 천문학 | 시도해 볼 것들

모든 코드는 클릭 한 다음
+
를 눌러 편집하거나 실행할 수 있습니다.
천문 데이터 계산 및 시각화 최신 제공된 천문 데이터를 기반으로 정밀한 위치 정보를 사용하여 천문학을 계산 가능하게 합니다. 상세한 하늘 지도와 과거 또는 미래의 천문 이벤트를 쉽게 시각화할 수 있습니다.

천체 계산

현재 위치의 수평선을 기준으로 화성의 위치를 계산합니다:
실행
In[]:=
AstroPosition
Mars
PLANET
,"Horizon"
알타이르의 적도 좌표를 계산합니다:
실행
In[]:=
AstroPosition
Altair
STAR
,"Equatorial"
안타레스의 평균 황도 좌표를 계산합니다:
실행
In[]:=
AstroPosition
Antares
STAR
,"MeanEcliptic"
리길 케타우루수우의 은하 좌표를 계산합니다:
실행
In[]:=
AstroPosition
Rigil Kentaurus
STAR
,"Galactic"
지구에서 본 은하 기준면을 기준으로 다양한 기준면을 시각화합니다:
실행
In[]:=
AstroGraphicsAstroReferenceFrame->"Galactic",
Earth
PLANET
,AstroBackground->"GalacticSky"

정밀한 태양계 동역학

2000년부터 2040년까지 런던에서 관측된 목성과 토성의 각 거리를 플롯합니다:
실행
In[]:=
PlotAstroAngularSeparation
Jupiter
PLANET
,
Saturn
PLANET
,Dated
London
CITY
,year,{year,2000,2040}
2009년 8월 27일 목성과 유로파 사이의 가장 근접한 겉보기 접근, 즉 접근점을 계산합니다:
실행
In[]:=
date=FindAstroEvent{"Appulse",Entity["Planet","Jupiter"],Entity["PlanetaryMoon","Europa"]},
Thu 27 Aug 2009
,TimeZone"Europe/Rome"
위와 같은 날 유로파와 목성의 위치를 ​​시각화하고 같은 장소에서 이오를 관측하며 황도 기준으로 방향을 맞춥니다:
실행
In[]:=
ResourceFunction["TelescopeView3D"]
Jupiter
PLANET
,date,
Padua
CITY
,"SatellitesToInclude"->EntityClass["PlanetaryMoon","GalileanMoon"],ViewVertical->{0,0,1}

식

2024년 4월 8일 최대 일식 날짜를 계산합니다:
실행
In[]:=
eclipse=SolarEclipse[DateObject[{2024,4,8}]]
일식 경로와 일식 기하학의 다른 관련 요소를 포함한 지도를 생성합니다:
실행
In[]:=
SolarEclipse[eclipse,"EclipseMap"]

천문학 공식

자연어를 사용하여 공식을 검색합니다:
실행
In[]:=
forms=Join[FormulaLookup["apparent magnitude formula"],FormulaLookup["parallax formula"],FormulaLookup["Drake's equation"],FormulaLookup["stellar energy flux equation"],{FormulaLookup["black hole temperature"][[1]]}]
공식에 대한 방정식을 검색합니다:
실행
In[]:=
eqs=FormulaData/@forms
기존의 표기법을 사용하여 공식을 표시합니다:
실행
In[]:=
TraditionalForm[Column[eqs]]
두 별의 겉보기 밝기 차이가 다른 경우, 그들의 밝기 비율을 계산합니다:
실행
In[]:=
FormulaData["ApparentMagnitudeIntensity",{
m
1
->4.5,
m
2
->6.35}]

천문학 데이터

아폴로 소행성을 무작위로 선택합니다:
실행
In[]:=
asteroid=RandomChoiceEntityList
Apollo asteroids
MINOR PLANETS

그 소행성에 대한 다양한 특성을 조회합니다:
실행
In[]:=
EntityValue[asteroid,{"SemimajorAxis","Eccentricity","Inclination","Apoapsis","Periapsis"},"Dataset"]
아폴로 소행성의 궤도 세미주축 값에 대한 히스토그램을 그립니다:
실행
In[]:=
Histogram
Apollo asteroids
MINOR PLANETS
["DistanceFromSun"],


천문의 시각화

2024년 8월 15일 오후 10시에 수평선에서 30° 위를 중심으로 남쪽을 바라보는 하늘을 시각화합니다:
실행
In[]:=
AstroGraphics[AstroReferenceFrame->{"Horizon",DateObject[{2024,8,15,22,0,0}]},AstroBackground->"GalacticSky",AstroProjection->"Stereographic",AstroRange->Quantity[35,"AngularDegrees"],AstroCenter->{180,30}]

별자리와 별지도

별지도를 위한 사용자 정의 스타일을 정의합니다:
실행
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};
전갈자리가 보이는 하늘을 시각화하고, 일러스트와 경계선을 포함한 사용자 정의 스타일을 적용합니다:
실행
In[]:=
AstroGraphics
Scorpius
CONSTELLATION
,AstroBackground->AstroStyling"GalacticSky","ShowConstellations"->
Scorpius
CONSTELLATION
,style,AstroReferenceFrame->"J2000"

천문학에서의 시간

2022년 7월부터 2023년 7월까지 화성의 주간 위치를 계산합니다:
실행
In[]:=
mars=AstroPosition[Entity["Planet","Mars"],{"Equatorial",#}]&/@DateRange["1 Jul 2022","1 July 2023","Week"];
경로의 일부는 역행 운동을 포함하고 있었습니다:
실행
In[]:=
AstroGraphics[{White,Point[mars]},AstroReferenceFrame->"Equatorial"]

우주의 규모

나노미터 스케일에서 관련된 공식을 정의합니다:
실행
In[]:=
equation=FormulaData[{"PlanckRadiationLaw","Wavelength"},{"T"->Quantity[5000,"Kelvins"],"λ"->Quantity[wl,"Nanometers"]}][[2,2]];
주어진 공식에 대해 파장 범위에서 그래프를 그립니다:
실행
In[]:=
Plot[equation,{wl,200,5000},AxesLabel->{"Wavelength (nm)","Spectral radiance (W
-1
sr
-3
m
​)"}]
임의의 구성 요소를 가진 우주론 모델의 속성을 탐구합니다:
실행
In[]:=
UniverseModelData[Quantity[10^9,"Parsecs"],<|"OmegaLambda"->0,"OmegaMatter"->0.8,"OmegaRadiation"->0.2,"HubbleH0"->Quantity[50,("Kilometers")/("Megaparsecs""Seconds")]|>]

천체의 지리학

자연어를 사용하여 태양계의 특징을 해석합니다:
실행
In[]:=
feature=Interpreter["SolarSystemFeature"]["Sinai Planum"]
태양계 특징의 지형도를 생성합니다:
실행
In[]:=
GeoGraphics[GeoCenter->feature,GeoBackground->"ReliefMap",GeoRange->Quantity[1000,"Miles"]]