Wolfram 天文学 | 試してみよう
Wolfram 天文学 | 試してみよう
コードはどれも，コード内をクリックしてから，編集したり， を押して実行したりできます．
+
天文データの計算と可視化 精選された天文データを使用可能な最新の天文暦から得られた正確な位置情報と一緒に使って，天文現象を計算可能にします．詳しい星図の作成や過去・未来の天文現象の可視化が簡単にできます．
天文計算
天文計算
現在地の地平線を基準として火星の位置を計算する： |
In[]:=
AstroPosition,"Horizon"
アルタイルの赤道座標を計算する： |
In[]:=
AstroPosition,"Equatorial"
アンタレスの平均黄道座標を計算する： |
In[]:=
AstroPosition,"MeanEcliptic"
リギル・ケンタウルスの銀河座標を計算する： |
In[]:=
AstroPosition,"Galactic"
地球から見られる銀河基準面についてさまざまな基準面を可視化する： |
In[]:=
AstroGraphicsAstroReferenceFrame->"Galactic",,AstroBackground->"GalacticSky"
正確な太陽系力学
正確な太陽系力学
2000年から2040年までの間にロンドンで観測される，木星と土星の間の角距離をプロットする： |
In[]:=
PlotAstroAngularSeparation,,Dated,year,{year,2000,2040}
2009年8月27日の木星とエウロパの間の近接（見かけの最短距離）の時間を計算する： |
In[]:=
date=FindAstroEvent{"Appulse",Entity["Planet","Jupiter"],Entity["PlanetaryMoon","Europa"]},,TimeZone"Europe/Rome"
同じ日のエウロパと木星の位置を可視化し，黄道に沿った同じ場でイオを観測する： |
In[]:=
ResourceFunction["TelescopeView3D"],date,,"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]]
見かけの等級が異なる2つの恒星の光度比を計算する： |
In[]:=
FormulaData["ApparentMagnitudeIntensity",{->4.5,->6.35}]
m
1
m
2
天文データ
天文データ
アポロ群の小惑星をランダムに1つ選ぶ： |
In[]:=
asteroid=RandomChoiceEntityList
その小惑星に関するさまざまな特性を尋ねる： |
In[]:=
EntityValue[asteroid,{"SemimajorAxis","Eccentricity","Inclination","Apoapsis","Periapsis"},"Dataset"]
アポロ群の軌道長半径の値のヒストグラムをプロットする： |
In[]:=
Histogram["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,AstroBackground->AstroStyling"GalacticSky","ShowConstellations"->,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"]]