月相カレンダーを作成する 

MoonPhaseによって生成されたアイコンを使って，2014年1月の月相カレンダーをスタイル付きで作成する．

In[1]:=

X dates = DateRange["Jan 1 2014 12:00", "Jan 31 2014 12:00", 1];

In[2]:=

X phase = MoonPhase[dates, "Icon"]

Out[2]=

In[3]:=

X fr = MoonPhase[dates, "Fraction"]

Out[3]=

TimeSeriesThreadを使って，アイコンと割合のペアの時系列を生成する．

In[4]:=

X moon = TimeSeriesThread[Identity, {phase, fr}];

TimeSeriesMapThreadを使い，月の明るさに依存するグラデーションの背景を持つ一連のラベル付き画像を生成する．

完全なWolfram言語入力を表示する入力を隠す

In[5]:=

X styleFun = Framed[Labeled[ImageResize[First[#2], 45], Style[DateValue[#1, "Day"], Bold, ColorNegate[ ColorData["StarryNightColors", Round[Last[#2], .5]]], FontFamily -> "Helvetica"]], Background -> Lighter[ColorData["StarryNightColors", Last[#2]], .3]] &;

In[6]:=

X ts = TimeSeriesMapThread[styleFun, moon]

Out[6]=

月のカレンダーを可視化する．

完全なWolfram言語入力を表示する入力を隠す

In[7]:=

X Labeled[Grid[Partition[ts["Values"], 7, 7, 4, ""], Dividers -> False, Spacings -> {0, 0}], Style["January 2014", Bold, FontFamily -> "Helvetica"], Top]

Out[7]=