混合数量
混合数量は,金銭,時間,距離,重さ,角度等,多数のコンテキストに見られる.
In[1]:=

Quantity[MixedMagnitude[{2, 35, 21.2}],
MixedUnit[{"Hours", "Minutes", "Seconds"}]]
Out[1]=

In[2]:=

UnitConvert[Quantity[75.562, "AngularDegrees"],
MixedUnit[{"AngularDegrees", "ArcMinutes", "ArcSeconds"}]]
Out[2]=

In[3]:=

Quantity[MixedMagnitude[{5, 11}], MixedUnit[{"Feet", "Inches"}]]
Out[3]=

In[4]:=

Quantity[MixedMagnitude[{5, 11}], MixedUnit[{"Feet", "Inches"}]];
% + Quantity[2.5, "Feet"]
Out[4]=

関数SiderealTimeは混合数量を返す.ユーザの現在位置における恒星時を求める.
In[5]:=

stime = SiderealTime[]
Out[5]=

太陽の現在位置を赤道座標系で求める.
In[6]:=

sunpos = SunPosition[CelestialSystem -> "Equatorial"]
Out[6]=

月の位置を同じ座標系で計算する.
In[7]:=

moonpos = MoonPosition[CelestialSystem -> "Equatorial"]
Out[7]=

惑星の赤経座標を求める.
In[8]:=

planetpos =
QuantityMagnitude[
DeleteMissing[
EntityValue[EntityClass["Planet", All],
EntityProperty["Planet", "RightAscension"]]],
"HoursOfRightAscension"]
Out[8]=

さまざまな位置の測度値を組み合せ,各天体の赤経のリストを作る.
In[9]:=

ascensions = Join[ {0, moonpos[[1, 1]] - sunpos[[1, 1]]}, planetpos];
完全なWolfram言語入力を表示する
南極から見た惑星,太陽,月の位置のグラフィックビューを作る.
完全なWolfram言語入力を表示する
Out[11]=
