Plotting Moon Phases

Find the current phase of the Moon (fraction of Moon illuminated):

In[1]:=

MoonPhase[]

Out[1]=

0.9355

Show an icon version:

In[2]:=

IconData["MoonPhase",MoonPhase[]]

Out[2]=

Find what the phase of the Moon will be next Sunday:

In[3]:=

IconData"MoonPhase",MoonPhase



Out[3]=

Find the phase of the Moon when Apollo 11 landed:

In[4]:=

IconData"MoonPhase",MoonPhase

Apollo 11

MANNED SPACE MISSION



lunar landing date



Out[4]=

Compute the phases of the Moon for the next 100 days:

In[5]:=

Table[MoonPhase[DayPlus[Today,n]],{n,100}]

Out[5]=

{0.9051,0.8432,0.7681,0.6818,0.5864,0.4849,0.3807,0.2782,0.1832,0.1020,0.04162,0.007776,0.004168,0.03120,0.08593,0.1629,0.2554,0.3567,0.4610,0.5636,0.6607,0.7493,0.8271,0.8922,0.9428,0.9777,0.9957,0.9962,0.9788,0.9439,0.8919,0.8242,0.7424,0.6487,0.5460,0.4381,0.3298,0.2269,0.1363,0.06483,0.01863,0.001645,0.01479,0.05583,0.1201,0.2016,0.2943,0.3929,0.4926,0.5900,0.6821,0.7664,0.8407,0.9028,0.9510,0.9832,0.9980,0.9942,0.9711,0.9287,0.8678,0.7899,0.6974,0.5938,0.4833,0.3710,0.2632,0.1665,0.08767,0.03226,0.004057,0.004216,0.03125,0.08158,0.1504,0.2326,0.3235,0.4188,0.5151,0.6094,0.6991,0.7817,0.8547,0.9155,0.9616,0.9904,0.9998,0.9881,0.9546,0.8997,0.8250,0.7334,0.6289,0.5165,0.4021,0.2919,0.1924,0.1094,0.04791,0.01108}

Plot the values:

In[6]:=

ListLinePlot[Table[MoonPhase[DayPlus[Today,n]],{n,100}]]

Out[6]=

Wolfram Language Example Repository

See Also

Publisher Information

Plotting Moon Phases

See Also

Related Symbols

Publisher Information