Plotting Moon Phases
Author
Stephen Wolfram
Title
Plotting Moon Phases
Description
Find the current phase of the Moon (fraction of Moon illuminated):
Category
Educational Materials
Keywords
URL
http://www.notebookarchive.org/2019-08-98zxcmg/
DOI
https://notebookarchive.org/2019-08-98zxcmg
Date Added
2019-08-20
Date Last Modified
2019-08-20
File Size
18.36 kilobytes
Supplements
Rights
Redistribution rights reserved



Plotting Moon Phases
Plotting Moon Phases
Find the current phase of the Moon (fraction of Moon illuminated):
In[]:=
MoonPhase[]
Out[]=
0.06138
Show an icon version:
In[]:=
IconData["MoonPhase",MoonPhase[]]
Out[]=
Find what the phase of the Moon will be next Sunday:
In[]:=
IconData"MoonPhase",MoonPhase
Out[]=
Find the phase of the Moon when Apollo 11 landed:
In[]:=
IconData"MoonPhase",MoonPhase
Apollo 11 | MANNED SPACE MISSION |
lunar landing date
Out[]=
Compute the phases of the Moon for the next 100 days:
In[]:=
Table[MoonPhase[DayPlus[Today,n]],{n,100}]
Out[]=
{0.08052,0.1457,0.2279,0.3243,0.4309,0.5431,0.6551,0.7605,0.8528,0.9258,0.9748,0.9969,0.9917,0.9613,0.9092,0.8400,0.7583,0.6684,0.5742,0.4788,0.3851,0.2958,0.2134,0.1406,0.08031,0.03533,0.008455,0.002067,0.01780,0.05621,0.1165,0.1966,0.2929,0.4007,0.5145,0.6282,0.7354,0.8300,0.9068,0.9616,0.9922,0.9980,0.9802,0.9413,0.8847,0.8140,0.7326,0.6440,0.5509,0.4562,0.3626,0.2730,0.1903,0.1181,0.06002,0.02002,0.001593,0.007389,0.03864,0.09470,0.1730,0.2691,0.3774,0.4916,0.6054,0.7126,0.8079,0.8868,0.9461,0.9838,0.9993,0.9930,0.9666,0.9223,0.8627,0.7904,0.7082,0.6187,0.5245,0.4281,0.3326,0.2413,0.1583,0.08810,0.03566,0.005664,0.001830,0.02601,0.07758,0.1534,0.2481,0.3554,0.4685,0.5809,0.6870,0.7822,0.8627,0.9261,0.9703,0.9947}
Plot the values:
In[]:=
ListLinePlot[Table[MoonPhase[DayPlus[Today,n]],{n,100}]]
Out[]=


Cite this as: Stephen Wolfram, "Plotting Moon Phases" from the Notebook Archive (2019), https://notebookarchive.org/2019-08-98zxcmg

Download

