(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 439091, 10365] NotebookOptionsPosition[ 310255, 7819] NotebookOutlinePosition[ 406189, 9691] CellTagsIndexPosition[ 405238, 9660] WindowTitle->MoonPhaseDate | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["MoonPhaseDate", "Title", CellTags->{"Name", "TemplateCell", "Title"}], Cell["Compute the date of a specific phase of the Moon", "Text", CellTags->{"Description", "TemplateCell"}], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ATMP", "[", RowBox[{"at_", "?", "NumericQ"}], "]"}], ":=", RowBox[{"N", "@", RowBox[{"MoonPhase", "[", RowBox[{"DateObject", "[", "at", "]"}], "]"}]}]}], ";"}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122908104959335`*^9, 3.8122908259112988`*^9}}, CellLabel->"In[43]:=", CellID->91597805], Cell[BoxData[ RowBox[{ RowBox[{"lm", "=", RowBox[{"QuantityMagnitude", "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1", ",", "\"\\""}], "]"}], ",", "\"\\""}], "]"}]}], ";"}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122908104959335`*^9, 3.8122908259112988`*^9}, 3.81229086206501*^9}, CellLabel->"In[44]:=", CellID->382672939], Cell[BoxData[ RowBox[{ RowBox[{"NextFullMoon", "[", "date_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], "}"}], ",", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "at", "}"}], ",", RowBox[{"DateObject", "[", RowBox[{"at", "/.", RowBox[{"Quiet", "@", RowBox[{"Last", "@", RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"ATMP", "[", "at", "]"}], ",", RowBox[{"{", RowBox[{"at", ",", RowBox[{"at0", "+", RowBox[{"lm", "/", "4"}]}], ",", "at0", ",", RowBox[{"at0", "+", "lm"}]}], "}"}]}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122908104959335`*^9, 3.8122908231926107`*^9}, { 3.812290912290716*^9, 3.812290921448704*^9}, {3.8130129953713856`*^9, 3.8130129989110546`*^9}}, CellLabel->"In[45]:=", CellID->177923368], Cell[BoxData[ RowBox[{ RowBox[{"PreviousFullMoon", "[", "date_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], "}"}], ",", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "at", "}"}], ",", RowBox[{"DateObject", "[", RowBox[{"at", "/.", RowBox[{"Quiet", "@", RowBox[{"Last", "@", RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"ATMP", "[", "at", "]"}], ",", RowBox[{"{", RowBox[{"at", ",", RowBox[{"at0", "-", RowBox[{"lm", "/", "2"}]}], ",", RowBox[{"at0", "-", "lm"}], ",", "at0"}], "}"}]}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122908104959335`*^9, 3.8122908176971197`*^9}}, CellLabel->"In[46]:=", CellID->153547055], Cell[BoxData[ RowBox[{ RowBox[{"NearestFullMoon", "[", "date_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], "}"}], ",", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "at", "}"}], ",", RowBox[{"DateObject", "[", RowBox[{"at", "/.", RowBox[{"Quiet", "@", RowBox[{"Last", "@", RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"ATMP", "[", "at", "]"}], ",", RowBox[{"{", RowBox[{"at", ",", "at0", ",", RowBox[{"at0", "-", RowBox[{"lm", "/", "2"}]}], ",", RowBox[{"at0", "+", RowBox[{"lm", "/", "2"}]}]}], "}"}]}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122908104959335`*^9, 3.8122908137976184`*^9}}, CellLabel->"In[47]:=", CellID->73399602], Cell[BoxData[ RowBox[{ RowBox[{"NextNewMoon", "[", "date_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], "}"}], ",", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "at", "}"}], ",", RowBox[{"DateObject", "[", RowBox[{"at", "/.", RowBox[{"Quiet", "@", RowBox[{"Last", "@", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"ATMP", "[", "at", "]"}], ",", RowBox[{"{", RowBox[{"at", ",", RowBox[{"at0", "+", RowBox[{"lm", "/", "4"}]}], ",", "at0", ",", RowBox[{"at0", "+", "lm"}]}], "}"}]}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122908104959335`*^9, 3.8122908231926107`*^9}, { 3.812290912290716*^9, 3.812290921448704*^9}, {3.812299373956399*^9, 3.812299381995446*^9}, {3.8130130043327284`*^9, 3.8130130044421062`*^9}}, CellLabel->"In[48]:=", CellID->71199948], Cell[BoxData[ RowBox[{ RowBox[{"PreviousNewMoon", "[", "date_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], "}"}], ",", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "at", "}"}], ",", RowBox[{"DateObject", "[", RowBox[{"at", "/.", RowBox[{"Quiet", "@", RowBox[{"Last", "@", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"ATMP", "[", "at", "]"}], ",", RowBox[{"{", RowBox[{"at", ",", RowBox[{"at0", "-", RowBox[{"lm", "/", "2"}]}], ",", RowBox[{"at0", "-", "lm"}], ",", "at0"}], "}"}]}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122908104959335`*^9, 3.8122908176971197`*^9}, { 3.8122993861853666`*^9, 3.8122993981734695`*^9}}, CellLabel->"In[49]:=", CellID->103658292], Cell[BoxData[ RowBox[{ RowBox[{"NearestNewMoon", "[", "date_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], "}"}], ",", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "at", "}"}], ",", RowBox[{"DateObject", "[", RowBox[{"at", "/.", RowBox[{"Quiet", "@", RowBox[{"Last", "@", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"ATMP", "[", "at", "]"}], ",", RowBox[{"{", RowBox[{"at", ",", "at0", ",", RowBox[{"at0", "-", RowBox[{"lm", "/", "2"}]}], ",", RowBox[{"at0", "+", RowBox[{"lm", "/", "2"}]}]}], "}"}]}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122908104959335`*^9, 3.8122908137976184`*^9}, { 3.812299392543888*^9, 3.8122993996579547`*^9}}, CellLabel->"In[50]:=", CellID->134728654], Cell[BoxData[ RowBox[{ RowBox[{"NextFirstQuarter", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", ",", "pts", ",", "func", ",", "sols"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pts", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"at", ",", RowBox[{"ATMP", "[", "at", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"at", ",", "at0", ",", RowBox[{"at0", "+", RowBox[{"1.1", " ", "lm"}]}], ",", RowBox[{"2", " ", "86400"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"func", "=", RowBox[{"Interpolation", "[", "pts", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sols", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"x", "/.", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"func", "[", "x", "]"}], "\[Equal]", ".5"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Sequence", "@@", "#"}]}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"First", "/@", "#"}], ")"}], "&"}], "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{"pts", ",", "2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", "0.5"}], "]"}], "&"}]}], "]"}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"#", ">", "at0"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateObject", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"sols", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"func", "'"}], "[", "#", "]"}], "&"}], "/@", RowBox[{"Sort", "[", "sols", "]"}]}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8123665256731653`*^9, 3.8123665743986545`*^9}, { 3.812366636411147*^9, 3.812366636943227*^9}, {3.8123666827217035`*^9, 3.812366696756521*^9}, {3.812366734881007*^9, 3.8123667539653473`*^9}, 3.81236679005352*^9, {3.81236688165198*^9, 3.812366883677725*^9}, { 3.8123669581925263`*^9, 3.812367048693573*^9}, 3.812367094237439*^9, { 3.8123671455336857`*^9, 3.8123671600690355`*^9}, {3.8123671929129653`*^9, 3.812367329754979*^9}, {3.8123674921078167`*^9, 3.8123675140128345`*^9}, { 3.8123675545805354`*^9, 3.8123675630375614`*^9}, {3.8123675935002623`*^9, 3.8123676082143154`*^9}, {3.812368270632512*^9, 3.8123683355372915`*^9}, { 3.8123684118620872`*^9, 3.8123684237233286`*^9}, {3.8123690280072756`*^9, 3.8123690589436007`*^9}, {3.8123691056815577`*^9, 3.812369138399271*^9}, { 3.812369171016389*^9, 3.8123692226806555`*^9}, {3.812369261945126*^9, 3.8123694383458986`*^9}, {3.8123702067121687`*^9, 3.8123702081215935`*^9}, {3.8123704376372185`*^9, 3.8123704718353434`*^9}, {3.812380617401422*^9, 3.812380617723327*^9}, { 3.8123808876834407`*^9, 3.8123810294034367`*^9}, {3.812381095167688*^9, 3.812381095778434*^9}}, CellLabel->"In[51]:=", CellID->314948624], Cell[BoxData[ RowBox[{ RowBox[{"PreviousFirstQuarter", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", ",", "pts", ",", "func", ",", "sols"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pts", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"at", ",", RowBox[{"ATMP", "[", "at", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"at", ",", RowBox[{"at0", "-", RowBox[{"1.1", " ", "lm"}]}], ",", "at0", ",", RowBox[{"2", " ", "86400"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"func", "=", RowBox[{"Interpolation", "[", "pts", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sols", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"x", "/.", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"func", "[", "x", "]"}], "\[Equal]", ".5"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Sequence", "@@", "#"}]}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"First", "/@", "#"}], ")"}], "&"}], "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{"pts", ",", "2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", "0.5"}], "]"}], "&"}]}], "]"}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"#", "<", "at0"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateObject", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"sols", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"func", "'"}], "[", "#", "]"}], "&"}], "/@", RowBox[{"Sort", "[", "sols", "]"}]}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8123665256731653`*^9, 3.8123665743986545`*^9}, { 3.812366636411147*^9, 3.812366636943227*^9}, {3.8123666827217035`*^9, 3.812366696756521*^9}, {3.812366734881007*^9, 3.8123667539653473`*^9}, 3.81236679005352*^9, {3.81236688165198*^9, 3.812366883677725*^9}, { 3.8123669581925263`*^9, 3.812367048693573*^9}, 3.812367094237439*^9, { 3.8123671455336857`*^9, 3.8123671600690355`*^9}, {3.8123671929129653`*^9, 3.812367329754979*^9}, {3.8123674921078167`*^9, 3.8123675140128345`*^9}, { 3.8123675545805354`*^9, 3.8123675630375614`*^9}, {3.8123675935002623`*^9, 3.8123676082143154`*^9}, {3.812368270632512*^9, 3.8123683355372915`*^9}, { 3.8123684118620872`*^9, 3.8123684237233286`*^9}, {3.8123690280072756`*^9, 3.8123690589436007`*^9}, {3.8123691056815577`*^9, 3.812369138399271*^9}, { 3.812369171016389*^9, 3.8123692226806555`*^9}, {3.812369261945126*^9, 3.8123694383458986`*^9}, {3.8123695411378436`*^9, 3.812369542670477*^9}, { 3.8123695785466146`*^9, 3.8123695925160103`*^9}, 3.8123696830274687`*^9, { 3.8123697345443354`*^9, 3.8123697647030525`*^9}, {3.812370201548981*^9, 3.812370202955387*^9}, {3.812370486095216*^9, 3.812370505229122*^9}, { 3.8123806044145966`*^9, 3.812380606738909*^9}, {3.812381036047637*^9, 3.812381036269944*^9}, {3.81238109861976*^9, 3.8123810990582376`*^9}}, CellLabel->"In[52]:=", CellID->99530894], Cell[BoxData[ RowBox[{ RowBox[{"NearestFirstQuarter", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"next", ",", "prev"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"next", "=", RowBox[{"NextFirstQuarter", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"prev", "=", RowBox[{"PreviousFirstQuarter", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"prev", ",", "next"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"DateDifference", "[", RowBox[{"prev", ",", "date", ",", "\"\\""}], "]"}], ",", RowBox[{"DateDifference", "[", RowBox[{"next", ",", "date", ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812369909991454*^9, 3.8123699556532383`*^9}, { 3.8123701547499256`*^9, 3.8123701597396345`*^9}, {3.8123702411936684`*^9, 3.812370275278977*^9}, {3.8123703115131984`*^9, 3.8123703798577366`*^9}, { 3.812712117454335*^9, 3.812712121865472*^9}}, CellLabel->"In[53]:=", CellID->2319405], Cell[BoxData[ RowBox[{ RowBox[{"NextLastQuarter", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", ",", "pts", ",", "func", ",", "sols"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pts", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"at", ",", RowBox[{"ATMP", "[", "at", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"at", ",", "at0", ",", RowBox[{"at0", "+", RowBox[{"1.1", " ", "lm"}]}], ",", RowBox[{"2", " ", "86400"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"func", "=", RowBox[{"Interpolation", "[", "pts", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sols", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"x", "/.", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"func", "[", "x", "]"}], "\[Equal]", ".5"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Sequence", "@@", "#"}]}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"First", "/@", "#"}], ")"}], "&"}], "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{"pts", ",", "2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", "0.5"}], "]"}], "&"}]}], "]"}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"#", ">", "at0"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateObject", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"sols", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"func", "'"}], "[", "#", "]"}], "&"}], "/@", RowBox[{"Sort", "[", "sols", "]"}]}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8123665256731653`*^9, 3.8123665743986545`*^9}, { 3.812366636411147*^9, 3.812366636943227*^9}, {3.8123666827217035`*^9, 3.812366696756521*^9}, {3.812366734881007*^9, 3.8123667539653473`*^9}, 3.81236679005352*^9, {3.81236688165198*^9, 3.812366883677725*^9}, { 3.8123669581925263`*^9, 3.812367048693573*^9}, 3.812367094237439*^9, { 3.8123671455336857`*^9, 3.8123671600690355`*^9}, {3.8123671929129653`*^9, 3.812367329754979*^9}, {3.8123674921078167`*^9, 3.8123675140128345`*^9}, { 3.8123675545805354`*^9, 3.8123675630375614`*^9}, {3.8123675935002623`*^9, 3.8123676082143154`*^9}, {3.812368270632512*^9, 3.8123683355372915`*^9}, { 3.8123684118620872`*^9, 3.8123684237233286`*^9}, {3.8123690280072756`*^9, 3.8123690589436007`*^9}, {3.8123691056815577`*^9, 3.812369138399271*^9}, { 3.812369171016389*^9, 3.8123692226806555`*^9}, {3.812369261945126*^9, 3.8123694383458986`*^9}, {3.8123702067121687`*^9, 3.8123702081215935`*^9}, {3.8123704376372185`*^9, 3.8123704718353434`*^9}, {3.812371007295052*^9, 3.812371034542617*^9}, { 3.812371250450898*^9, 3.81237125235266*^9}, {3.812380636363285*^9, 3.812380636753942*^9}, {3.8123810475122347`*^9, 3.8123810476997976`*^9}, { 3.812381106761243*^9, 3.8123811070582952`*^9}}, CellLabel->"In[54]:=", CellID->630832285], Cell[BoxData[ RowBox[{ RowBox[{"PreviousLastQuarter", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"at0", ",", "pts", ",", "func", ",", "sols"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"at0", "=", RowBox[{"AbsoluteTime", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pts", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"at", ",", RowBox[{"ATMP", "[", "at", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"at", ",", RowBox[{"at0", "-", RowBox[{"1.1", " ", "lm"}]}], ",", "at0", ",", RowBox[{"2", " ", "86400"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"func", "=", RowBox[{"Interpolation", "[", "pts", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sols", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"x", "/.", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"func", "[", "x", "]"}], "\[Equal]", ".5"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Sequence", "@@", "#"}]}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"First", "/@", "#"}], ")"}], "&"}], "/@", RowBox[{"Select", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{"pts", ",", "2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"#", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", "0.5"}], "]"}], "&"}]}], "]"}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"#", "<", "at0"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateObject", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"sols", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"func", "'"}], "[", "#", "]"}], "&"}], "/@", RowBox[{"Sort", "[", "sols", "]"}]}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "0"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8123665256731653`*^9, 3.8123665743986545`*^9}, { 3.812366636411147*^9, 3.812366636943227*^9}, {3.8123666827217035`*^9, 3.812366696756521*^9}, {3.812366734881007*^9, 3.8123667539653473`*^9}, 3.81236679005352*^9, {3.81236688165198*^9, 3.812366883677725*^9}, { 3.8123669581925263`*^9, 3.812367048693573*^9}, 3.812367094237439*^9, { 3.8123671455336857`*^9, 3.8123671600690355`*^9}, {3.8123671929129653`*^9, 3.812367329754979*^9}, {3.8123674921078167`*^9, 3.8123675140128345`*^9}, { 3.8123675545805354`*^9, 3.8123675630375614`*^9}, {3.8123675935002623`*^9, 3.8123676082143154`*^9}, {3.812368270632512*^9, 3.8123683355372915`*^9}, { 3.8123684118620872`*^9, 3.8123684237233286`*^9}, {3.8123690280072756`*^9, 3.8123690589436007`*^9}, {3.8123691056815577`*^9, 3.812369138399271*^9}, { 3.812369171016389*^9, 3.8123692226806555`*^9}, {3.812369261945126*^9, 3.8123694383458986`*^9}, {3.8123695411378436`*^9, 3.812369542670477*^9}, { 3.8123695785466146`*^9, 3.8123695925160103`*^9}, 3.8123696830274687`*^9, { 3.8123697345443354`*^9, 3.8123697647030525`*^9}, {3.812370201548981*^9, 3.812370202955387*^9}, {3.812370486095216*^9, 3.812370505229122*^9}, { 3.8123710118949327`*^9, 3.812371043631781*^9}, {3.8123712546420383`*^9, 3.812371256274118*^9}, {3.812380642722842*^9, 3.812380642958646*^9}, { 3.812381053543397*^9, 3.812381053715212*^9}, {3.812381111097163*^9, 3.812381111991434*^9}}, CellLabel->"In[55]:=", CellID->100648982], Cell[BoxData[ RowBox[{ RowBox[{"NearestLastQuarter", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"next", ",", "prev"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"next", "=", RowBox[{"NextLastQuarter", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"prev", "=", RowBox[{"PreviousLastQuarter", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"prev", ",", "next"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"DateDifference", "[", RowBox[{"prev", ",", "date", ",", "\"\\""}], "]"}], ",", RowBox[{"DateDifference", "[", RowBox[{"next", ",", "date", ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812369909991454*^9, 3.8123699556532383`*^9}, { 3.8123701547499256`*^9, 3.8123701597396345`*^9}, {3.8123702411936684`*^9, 3.812370275278977*^9}, {3.8123703115131984`*^9, 3.8123703798577366`*^9}, { 3.812371018311762*^9, 3.812371020237593*^9}, {3.8123710605225983`*^9, 3.8123710682004814`*^9}, {3.8123712591612883`*^9, 3.812371260945109*^9}, { 3.8125376212448006`*^9, 3.812537632020676*^9}, {3.812712108850998*^9, 3.812712112193898*^9}}, CellLabel->"In[56]:=", CellID->327021929], Cell[BoxData[ RowBox[{ RowBox[{"NextWaxingCrescent", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nextnew", ",", "nextfirstquarter"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nextnew", "=", RowBox[{"NextNewMoon", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nextfirstquarter", "=", RowBox[{"NextFirstQuarter", "[", "nextnew", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{"nextnew", ",", "nextfirstquarter"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8127113732974696`*^9, 3.812711468069414*^9}}, CellLabel->"In[57]:=", CellID->661943481], Cell[BoxData[ RowBox[{ RowBox[{"PreviousWaxingCrescent", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"lastnew", ",", "lastfirstquarter"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"lastfirstquarter", "=", RowBox[{"PreviousFirstQuarter", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"lastnew", "=", RowBox[{"PreviousNewMoon", "[", "lastfirstquarter", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{"lastnew", ",", "lastfirstquarter"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8127114804123373`*^9, 3.8127115532603292`*^9}, { 3.8127115897599845`*^9, 3.8127116948303533`*^9}}, CellLabel->"In[58]:=", CellID->81836751], Cell[BoxData[ RowBox[{ RowBox[{"NearestWaxingCrescent", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "next", ",", "previous", ",", "dbnext", ",", "dbprevious", ",", "res"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"next", "=", RowBox[{"NextWaxingCrescent", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"previous", "=", RowBox[{"PreviousWaxingCrescent", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dbnext", "=", RowBox[{"DateBounds", "[", "next", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dbprevious", "=", RowBox[{"DateBounds", "[", "previous", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dbprevious", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"dbnext", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"DateDifference", "[", RowBox[{ RowBox[{"dbprevious", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "date", ",", "\"\\""}], "]"}], ",", RowBox[{"DateDifference", "[", RowBox[{ RowBox[{"dbnext", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "date", ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "===", "\"\\""}], ",", "previous", ",", "next"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8127117819861326`*^9, 3.812711851101169*^9}, { 3.812711881463484*^9, 3.812711999096736*^9}, 3.812712077393321*^9, { 3.8127121461227837`*^9, 3.812712149472845*^9}, {3.8127121939947605`*^9, 3.8127122155965595`*^9}, {3.812712250124729*^9, 3.812712260377962*^9}, { 3.812712291472484*^9, 3.8127123766506467`*^9}, {3.8127126977028804`*^9, 3.81271269824392*^9}, {3.8127135003901324`*^9, 3.812713500859872*^9}}, CellLabel->"In[59]:=", CellID->608019194], Cell[BoxData[ RowBox[{ RowBox[{"NextWaningCrescent", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nextlastquarter", ",", "nextnewmoon"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nextlastquarter", "=", RowBox[{"NextLastQuarter", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nextnewmoon", "=", RowBox[{"NextNewMoon", "[", "nextlastquarter", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{"nextlastquarter", ",", "nextnewmoon"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8127128994950953`*^9, 3.812712900688489*^9}, { 3.8127129378960686`*^9, 3.812713010625785*^9}, {3.812720434669407*^9, 3.812720449028415*^9}}, CellLabel->"In[60]:=", CellID->425340923], Cell[BoxData[ RowBox[{ RowBox[{"PreviousWaningCrescent", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"previouslastquarter", ",", "previousnewmoon"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"previousnewmoon", "=", RowBox[{"PreviousNewMoon", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"previouslastquarter", "=", RowBox[{"PreviousLastQuarter", "[", "previousnewmoon", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{"previouslastquarter", ",", "previousnewmoon"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812712911439809*^9, 3.812712912095522*^9}, { 3.8127130857204704`*^9, 3.812713128686208*^9}, {3.812713173484274*^9, 3.812713205425907*^9}, {3.8127205402087193`*^9, 3.812720556957984*^9}}, CellLabel->"In[61]:=", CellID->193187108], Cell[BoxData[ RowBox[{ RowBox[{"NearestWaningCrescent", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "next", ",", "previous", ",", "dbnext", ",", "dbprevious", ",", "res"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"next", "=", RowBox[{"NextWaningCrescent", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"previous", "=", RowBox[{"PreviousWaningCrescent", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dbnext", "=", RowBox[{"DateBounds", "[", "next", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dbprevious", "=", RowBox[{"DateBounds", "[", "previous", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dbprevious", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"dbnext", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"DateDifference", "[", RowBox[{ RowBox[{"dbprevious", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "date", ",", "\"\\""}], "]"}], ",", RowBox[{"DateDifference", "[", RowBox[{ RowBox[{"dbnext", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "date", ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "===", "\"\\""}], ",", "previous", ",", "next"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8127129200501933`*^9, 3.812712920992655*^9}, { 3.8127133678456736`*^9, 3.81271337808525*^9}, {3.8127134910148067`*^9, 3.812713491477533*^9}}, CellLabel->"In[62]:=", CellID->13048791], Cell[BoxData[ RowBox[{ RowBox[{"NextWaxingGibbous", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nextfirstquarter", ",", "nextfull"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nextfirstquarter", "=", RowBox[{"NextFirstQuarter", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nextfull", "=", RowBox[{"NextFullMoon", "[", "nextfirstquarter", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{"nextfirstquarter", ",", "nextfull"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812713469219417*^9, 3.812713470556364*^9}, { 3.812713534399346*^9, 3.812713592597497*^9}}, CellLabel->"In[63]:=", CellID->315745841], Cell[BoxData[ RowBox[{ RowBox[{"PreviousWaxingGibbous", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"lastfull", ",", "lastfirstquarter"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"lastfull", "=", RowBox[{"PreviousFullMoon", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"lastfirstquarter", "=", RowBox[{"PreviousFirstQuarter", "[", "lastfull", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{"lastfirstquarter", ",", "lastfull"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812713475173941*^9, 3.8127134763890963`*^9}, { 3.8127136205506983`*^9, 3.812713670823757*^9}}, CellLabel->"In[64]:=", CellID->19793260], Cell[BoxData[ RowBox[{ RowBox[{"NearestWaxingGibbous", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "next", ",", "previous", ",", "dbnext", ",", "dbprevious", ",", "res"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"next", "=", RowBox[{"NextWaxingGibbous", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"previous", "=", RowBox[{"PreviousWaxingGibbous", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dbnext", "=", RowBox[{"DateBounds", "[", "next", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dbprevious", "=", RowBox[{"DateBounds", "[", "previous", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dbprevious", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"dbnext", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"DateDifference", "[", RowBox[{ RowBox[{"dbprevious", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "date", ",", "\"\\""}], "]"}], ",", RowBox[{"DateDifference", "[", RowBox[{ RowBox[{"dbnext", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "date", ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "===", "\"\\""}], ",", "previous", ",", "next"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812713480556886*^9, 3.8127134875177402`*^9}, { 3.812713703791757*^9, 3.8127137083202705`*^9}}, CellLabel->"In[65]:=", CellID->396982434], Cell[BoxData[ RowBox[{ RowBox[{"NextWaningGibbous", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nextfull", ",", "nextlastquarter"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nextfull", "=", RowBox[{"NextFullMoon", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nextlastquarter", "=", RowBox[{"NextLastQuarter", "[", "nextfull", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{"nextfull", ",", "nextlastquarter"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812713773966882*^9, 3.8127138299515886`*^9}, { 3.81271386978479*^9, 3.812713873321971*^9}, {3.8127139219217863`*^9, 3.812713946224533*^9}}, CellLabel->"In[66]:=", CellID->57111135], Cell[BoxData[ RowBox[{ RowBox[{"PreviousWaningGibbous", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"previouslastquarter", ",", "lastnew"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"previouslastquarter", "=", RowBox[{"PreviousLastQuarter", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"lastnew", "=", RowBox[{"PreviousNewMoon", "[", "previouslastquarter", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{"lastnew", ",", "previouslastquarter"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.81271377818224*^9, 3.8127137783198695`*^9}, { 3.8127139949689837`*^9, 3.8127140425921593`*^9}, {3.812720623985202*^9, 3.8127206750783176`*^9}}, CellLabel->"In[67]:=", CellID->391331505], Cell[BoxData[ RowBox[{ RowBox[{"NearestWaningGibbous", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "next", ",", "previous", ",", "dbnext", ",", "dbprevious", ",", "res"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"next", "=", RowBox[{"NextWaningGibbous", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"previous", "=", RowBox[{"PreviousWaningGibbous", "[", "date", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dbnext", "=", RowBox[{"DateBounds", "[", "next", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dbprevious", "=", RowBox[{"DateBounds", "[", "previous", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"dbprevious", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"dbnext", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"DateDifference", "[", RowBox[{ RowBox[{"dbprevious", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "date", ",", "\"\\""}], "]"}], ",", RowBox[{"DateDifference", "[", RowBox[{ RowBox[{"dbnext", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "date", ",", "\"\\""}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "===", "\"\\""}], ",", "previous", ",", "next"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812713780725584*^9, 3.812713780808357*^9}, { 3.8127140742373176`*^9, 3.812714078787259*^9}}, CellLabel->"In[68]:=", CellID->294617321], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MoonPhaseDate", "::", "bdinc"}], "=", "\"\\""}], ";"}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122959188135633`*^9, 3.8122959788913813`*^9}, { 3.8122961781901093`*^9, 3.8122961901638184`*^9}, {3.8122962258491144`*^9, 3.812296235268382*^9}, {3.8122974430743475`*^9, 3.8122974464712067`*^9}, 3.8122974953223543`*^9, 3.81229962991933*^9}, CellLabel->"In[69]:=", CellID->5877248], Cell[BoxData[ RowBox[{ RowBox[{"validEventQ", "[", "event_String", "]"}], ":=", RowBox[{"MatchQ", "[", RowBox[{"event", ",", RowBox[{ "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\""}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812299419157777*^9, 3.8122994479382277`*^9}, { 3.8123714669976296`*^9, 3.812371477882583*^9}, {3.812712733760296*^9, 3.812712781862217*^9}}, CellLabel->"In[70]:=", CellID->461295163], Cell[BoxData[ RowBox[{ RowBox[{"validEventQ", "[", "event_Entity", "]"}], ":=", RowBox[{"validEventQ", "[", RowBox[{"event", "[", "\"\\"", "]"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812712790768981*^9, 3.812712832382511*^9}}, CellLabel->"In[71]:=", CellID->140999770], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Options", "[", "MoonPhaseDate", "]"}], "=", RowBox[{"SortBy", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"TimeDirection", "\[Rule]", "1"}], "}"}], ",", RowBox[{"Options", "[", "DateObject", "]"}]}], "]"}], ",", RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "&"}]}], "]"}]}], ";"}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812291157379294*^9, 3.8122911732977114`*^9}, { 3.8122920290033617`*^9, 3.812292031872851*^9}, 3.812294483465084*^9, { 3.81229740809198*^9, 3.8122974103272305`*^9}, 3.8122974910123606`*^9, 3.8122996355239964`*^9, {3.8123759670057116`*^9, 3.8123760035058994`*^9}}, CellLabel->"In[72]:=", CellID->725873713], Cell[BoxData[ RowBox[{ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"date_", "?", "DateObjectQ"}], ",", RowBox[{"event0_", "?", "validEventQ"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "MoonPhaseDate", "]"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"event", ",", "td", ",", "res"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"event", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"event0", ",", "_String"}], "]"}], ",", "event0", ",", RowBox[{"event0", "[", "\"\\"", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"td", "=", RowBox[{"OptionValue", "[", "TimeDirection", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"MatchQ", "[", RowBox[{"td", ",", RowBox[{"1", "|", "0", "|", RowBox[{"-", "1"}]}]}], "]"}]}], ",", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"MoonPhaseDate", "::", "bdtd"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"Switch", "[", RowBox[{"td", ",", "\[IndentingNewLine]", "1", ",", RowBox[{"Switch", "[", RowBox[{"event", ",", "\"\\"", ",", RowBox[{"NextFullMoon", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NextNewMoon", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NextFirstQuarter", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NextLastQuarter", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NextWaxingCrescent", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NextWaningCrescent", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NextWaxingGibbous", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NextWaningGibbous", "[", "date", "]"}], ",", "_", ",", RowBox[{"NextFullMoon", "[", "date", "]"}]}], "]"}], ",", "\[IndentingNewLine]", "0", ",", RowBox[{"Switch", "[", RowBox[{"event", ",", "\"\\"", ",", RowBox[{"NearestFullMoon", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NearestNewMoon", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NearestFirstQuarter", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NearestLastQuarter", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NearestWaxingCrescent", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NearestWaningCrescent", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NearestWaxingGibbous", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"NearestWaningGibbous", "[", "date", "]"}], ",", "_", ",", RowBox[{"NearestFullMoon", "[", "date", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"-", "1"}], ",", RowBox[{"Switch", "[", RowBox[{"event", ",", "\"\\"", ",", RowBox[{"PreviousFullMoon", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"PreviousNewMoon", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"PreviousFirstQuarter", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"PreviousLastQuarter", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"PreviousWaxingCrescent", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"PreviousWaningCrescent", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"PreviousWaxingGibbous", "[", "date", "]"}], ",", "\"\\"", ",", RowBox[{"PreviousWaningGibbous", "[", "date", "]"}], ",", "_", ",", RowBox[{"PreviousFullMoon", "[", "date", "]"}]}], "]"}], ",", "\[IndentingNewLine]", "_", ",", RowBox[{"NextFullMoon", "[", "date", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Head", "[", "res", "]"}], "[", RowBox[{"res", ",", RowBox[{"FilterRules", "[", RowBox[{ RowBox[{"{", "opts", "}"}], ",", RowBox[{"Except", "[", "TimeDirection", "]"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.812291065572131*^9, 3.8122911020962934`*^9}, { 3.8122911478186703`*^9, 3.812291151593069*^9}, {3.812291187633404*^9, 3.8122912731535707`*^9}, {3.812291365581829*^9, 3.8122913666584425`*^9}, { 3.812291410716942*^9, 3.8122914122130356`*^9}, {3.8122915532265167`*^9, 3.8122915567520456`*^9}, 3.8122920373706274`*^9, {3.8122938599726706`*^9, 3.8122938638219676`*^9}, {3.812294485199577*^9, 3.812294486730849*^9}, { 3.812295853316506*^9, 3.8122958963530493`*^9}, {3.81229600393773*^9, 3.812296009562775*^9}, {3.8122961965177617`*^9, 3.8122961967650948`*^9}, { 3.812297417331335*^9, 3.812297435146919*^9}, {3.8122974982076*^9, 3.8122975012025642`*^9}, {3.812299480719305*^9, 3.8122996009983773`*^9}, { 3.812299637190867*^9, 3.812299642590992*^9}, {3.812299743761449*^9, 3.812299783501053*^9}, {3.812371281849342*^9, 3.8123714209383855`*^9}, { 3.8123714524573097`*^9, 3.8123714540902443`*^9}, {3.8123760369657955`*^9, 3.8123760965765133`*^9}, {3.8127158702294817`*^9, 3.812715950964083*^9}, { 3.812715990204155*^9, 3.812716035172228*^9}, {3.8127181901066055`*^9, 3.812718193640385*^9}, {3.812974363409929*^9, 3.812974393050253*^9}, 3.8129757935609274`*^9}, CellLabel->"In[73]:=", CellID->676561043], Cell[BoxData[ RowBox[{ RowBox[{"MoonPhaseDate", "[", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "MoonPhaseDate", "]"}]}], "]"}], ":=", RowBox[{"MoonPhaseDate", "[", RowBox[{"Now", ",", "\"\\"", ",", "opts"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122911180019355`*^9, 3.8122911206785297`*^9}, { 3.8122913148692265`*^9, 3.812291347613784*^9}, 3.8122938753870354`*^9, { 3.812294488770278*^9, 3.8122944924494133`*^9}, {3.8122975063754067`*^9, 3.812297509261166*^9}, {3.812299493031525*^9, 3.812299495343772*^9}, { 3.8122996462632504`*^9, 3.8122996486846027`*^9}}, CellLabel->"In[74]:=", CellID->431241406], Cell[BoxData[ RowBox[{ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"date_", "?", "DateObjectQ"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "MoonPhaseDate", "]"}]}]}], "]"}], ":=", RowBox[{"MoonPhaseDate", "[", RowBox[{"date", ",", "\"\\"", ",", "opts"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122911180019355`*^9, 3.8122911206785297`*^9}, { 3.8122913148692265`*^9, 3.812291347613784*^9}, 3.8122938753870354`*^9, { 3.812294488770278*^9, 3.8122944924494133`*^9}, {3.8122975063754067`*^9, 3.812297509261166*^9}, {3.812299493031525*^9, 3.812299495343772*^9}, { 3.8122996462632504`*^9, 3.8122996486846027`*^9}, {3.812299859103114*^9, 3.812299863962467*^9}}, CellLabel->"In[75]:=", CellID->35051270], Cell[BoxData[ RowBox[{ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"event_", "?", "validEventQ"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "MoonPhaseDate", "]"}]}]}], "]"}], ":=", RowBox[{"MoonPhaseDate", "[", RowBox[{"Now", ",", "event", ",", "opts"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122911180019355`*^9, 3.8122911206785297`*^9}, { 3.8122913148692265`*^9, 3.812291347613784*^9}, 3.8122938753870354`*^9, { 3.812294488770278*^9, 3.8122944924494133`*^9}, {3.8122975063754067`*^9, 3.812297509261166*^9}, {3.812299493031525*^9, 3.812299495343772*^9}, { 3.8122996462632504`*^9, 3.8122996486846027`*^9}, {3.812299859103114*^9, 3.812299863962467*^9}, {3.812300233145978*^9, 3.8123002412366347`*^9}}, CellLabel->"In[76]:=", CellID->152914112], Cell[BoxData[ RowBox[{ RowBox[{"MoonPhaseDate", "[", RowBox[{"di_DateInterval", ",", RowBox[{"event0_", "?", "validEventQ"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "MoonPhaseDate", "]"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"event", ",", "db", ",", "date", ",", "lst", ",", "res"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"event", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"event0", ",", "_String"}], "]"}], ",", "event0", ",", RowBox[{"event0", "[", "\"\\"", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"db", "=", RowBox[{"DateBounds", "[", "di", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"date", "=", RowBox[{"Switch", "[", RowBox[{"event", ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"PreviousFullMoon", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"PreviousNewMoon", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"PreviousFirstQuarter", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"PreviousLastQuarter", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{ RowBox[{"DateBounds", "[", RowBox[{"PreviousWaxingCrescent", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{ RowBox[{"DateBounds", "[", RowBox[{"PreviousWaningCrescent", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{ RowBox[{"DateBounds", "[", RowBox[{"PreviousWaxingGibbous", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{ RowBox[{"DateBounds", "[", RowBox[{"PreviousWaningGibbous", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", "_", ",", RowBox[{"PreviousFullMoon", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"lst", "=", RowBox[{"{", "date", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"DateObject", "[", RowBox[{"date", ",", RowBox[{"db", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}], "<", RowBox[{"db", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"date", "=", RowBox[{"Switch", "[", RowBox[{"event", ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"NearestFullMoon", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{".9", ",", "\"\\""}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"NearestNewMoon", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{".9", ",", "\"\\""}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"NearestFirstQuarter", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{".9", ",", "\"\\""}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"NearestLastQuarter", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{".9", ",", "\"\\""}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{ RowBox[{"DateBounds", "[", RowBox[{"NearestWaxingCrescent", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{"1.2", ",", "\"\\""}], "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{ RowBox[{"DateBounds", "[", RowBox[{"NearestWaningCrescent", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{"1.2", ",", "\"\\""}], "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{ RowBox[{"DateBounds", "[", RowBox[{"NearestWaxingGibbous", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{"1.2", ",", "\"\\""}], "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{ RowBox[{"DateBounds", "[", RowBox[{"NearestWaningGibbous", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{"1.2", ",", "\"\\""}], "]"}]}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", "_", ",", RowBox[{"NearestFullMoon", "[", RowBox[{"date", "+", RowBox[{"Quantity", "[", RowBox[{".9", ",", "\"\\""}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"lst", ",", "date"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"DeleteDuplicatesBy", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Switch", "[", RowBox[{ "event", ",", "\[IndentingNewLine]", "\"\\"", ",", "#", ",", "\[IndentingNewLine]", "\"\\"", ",", "#", ",", "\[IndentingNewLine]", "\"\\"", ",", "#", ",", "\[IndentingNewLine]", "\"\\"", ",", "#", ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"NextWaxingCrescent", "[", "#", "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"NextWaningCrescent", "[", "#", "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"NextWaxingGibbous", "[", "#", "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", RowBox[{"NextWaningGibbous", "[", "#", "]"}], ",", "\[IndentingNewLine]", "_", ",", RowBox[{"NextFullMoon", "[", RowBox[{"db", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "&"}], "/@", "lst"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Head", "[", "#", "]"}], "[", RowBox[{"#", ",", RowBox[{"db", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}], ")"}], "&"}]}], "]"}], ",", RowBox[{ RowBox[{"DateOverlapsQ", "[", RowBox[{"di", ",", RowBox[{"DateObject", "[", RowBox[{"#", ",", RowBox[{"db", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}]}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Head", "[", RowBox[{"res", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", RowBox[{"#", ",", RowBox[{"FilterRules", "[", RowBox[{ RowBox[{"{", "opts", "}"}], ",", RowBox[{"Except", "[", "TimeDirection", "]"}]}], "]"}]}], "]"}], "&"}], "/@", "res"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8122985144101467`*^9, 3.812298555907436*^9}, { 3.8122986366865587`*^9, 3.81229869590518*^9}, {3.8122987273889055`*^9, 3.812298942291484*^9}, {3.8122990239894376`*^9, 3.812299060570549*^9}, { 3.812299650796359*^9, 3.812299652372031*^9}, {3.812299946174797*^9, 3.8123000830048943`*^9}, {3.812371501328987*^9, 3.812371626909441*^9}, { 3.812375683330069*^9, 3.8123756972104616`*^9}, {3.8123761291896596`*^9, 3.8123761494032917`*^9}, {3.812716085518208*^9, 3.81271619294448*^9}, { 3.81271735114592*^9, 3.8127174447450485`*^9}, {3.812717526996081*^9, 3.812717533442894*^9}, {3.812717592845901*^9, 3.812717618146123*^9}, { 3.812717648189205*^9, 3.812717674658803*^9}, {3.812718177672905*^9, 3.8127181801703725`*^9}, {3.812718210584593*^9, 3.8127182129847317`*^9}, { 3.812718276580793*^9, 3.812718277081415*^9}, {3.812718407588804*^9, 3.8127184125141478`*^9}, {3.812718608720565*^9, 3.8127186158460207`*^9}, { 3.8127186617433243`*^9, 3.8127187280606933`*^9}, {3.812718758827149*^9, 3.81271876384767*^9}, {3.812718837705189*^9, 3.812718996481077*^9}, { 3.812719229951507*^9, 3.8127192376981015`*^9}, {3.8127210487491274`*^9, 3.8127210551318083`*^9}, {3.8127211132969275`*^9, 3.812721131723234*^9}, { 3.812721383320984*^9, 3.8127214148224044`*^9}, {3.812721453362491*^9, 3.8127214609035254`*^9}, {3.8127219353624477`*^9, 3.8127219386357183`*^9}, {3.8127220356786795`*^9, 3.812722052659914*^9}, { 3.812722199183014*^9, 3.8127222799937477`*^9}, {3.8127223264173565`*^9, 3.81272232683819*^9}, 3.8127230381352673`*^9, {3.8127231598100567`*^9, 3.8127231671120615`*^9}, {3.812723308051217*^9, 3.8127233083364496`*^9}, { 3.8127234778533497`*^9, 3.8127234872979565`*^9}, {3.812723582425321*^9, 3.8127235856113844`*^9}, {3.8127236511546507`*^9, 3.812723653908185*^9}, { 3.812723690335415*^9, 3.812723693762905*^9}, {3.8127237469909163`*^9, 3.812723762612795*^9}, {3.8127238354443426`*^9, 3.812723905501979*^9}, { 3.8127242629073243`*^9, 3.81272429938004*^9}, {3.81297427241177*^9, 3.8129743105519905`*^9}, 3.812975804513097*^9}, CellLabel->"In[77]:=", CellID->163760185], Cell[BoxData[ RowBox[{ RowBox[{"MoonPhaseDate", "[", RowBox[{"di_DateInterval", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "MoonPhaseDate", "]"}]}]}], "]"}], ":=", RowBox[{"MoonPhaseDate", "[", RowBox[{"di", ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8123001244889903`*^9, 3.812300144910308*^9}}, CellLabel->"In[78]:=", CellID->253881348] }, Open ]], Cell["Documentation", "Section", CellTags->"Documentation", CellID->363488142], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell["computes the date of the next full moon.", "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", StyleBox["date", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "computes the date of the next full moon after the specified ", Cell[BoxData[ StyleBox["date", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", StyleBox["phase", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "computes the date of the next ", Cell[BoxData[ StyleBox["phase", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the Moon." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ StyleBox["date", "TI"], ",", StyleBox["phase", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "computes the date of the next specified ", Cell[BoxData[ StyleBox["phase", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the Moon after the specified ", Cell[BoxData[ StyleBox["date", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", StyleBox["dateinterval", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "computes the dates of the full moons within the specified ", Cell[BoxData[ StyleBox["dateinterval", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ StyleBox["dateinterval", "TI"], ",", StyleBox["phase", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "computes the dates of the specified ", Cell[BoxData[ StyleBox["phase", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of the Moon within the specified ", Cell[BoxData[ StyleBox["dateinterval", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[TextData[{ "The values accepted for phase are ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " or any of the entities from the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " entity type." }], "Notes", CellID->485551412], Cell[TextData[{ "The ", Cell[BoxData[ StyleBox["date", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " should be a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DateObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/DateObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->850294048], Cell[TextData[{ "If a date isn't specified, then ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Now", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Now", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " is assumed." }], "Notes", CellID->156541368], Cell[TextData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equivalent to ", Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ TagBox[ ButtonBox[ StyleBox["Now", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Now", ContentPadding->False], MouseAppearanceTag["LinkHand"]], ",", "\"\\""}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->724793727], Cell[TextData[{ Cell[BoxData["MoonPhaseDate"], "InlineFormula", FontFamily->"Source Sans Pro"], " accepts the same options as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DateObject", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/DateObject", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " in addition to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TimeDirection", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/TimeDirection", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->521904482], Cell[TextData[{ "The ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TimeDirection", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/TimeDirection", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " option accepts the following values:" }], "Notes", CellID->304567377], Cell[BoxData[GridBox[{ {Cell["1", "TableText"], Cell["next event (default)", "TableText"]}, {Cell["0", "TableText"], Cell["nearest event", "TableText"]}, {Cell["-1", "TableText"], Cell["previous event", "TableText"]} }]], "TableNotes", CellID->29727486], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TimeDirection", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/TimeDirection", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " is irrelevant when a date interval is specified." }], "Notes", CellID->564945957] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellLabel->"In[80]:=", CellID->462042388], Cell["Find the time of the next full moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294368733157*^9, 3.8122943739514446`*^9}, { 3.8129726505388937`*^9, 3.8129726580078297`*^9}}, CellID->679978943], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81229137110824*^9, 3.812291374267168*^9}, { 3.812291436454562*^9, 3.812291436765725*^9}, {3.812291580062602*^9, 3.8122915837401934`*^9}, {3.812291869034287*^9, 3.8122918700620904`*^9}, { 3.812292071650154*^9, 3.8122920823241425`*^9}, 3.8122944090781965`*^9, 3.812294495074381*^9, 3.8122975107408323`*^9, 3.812299879149548*^9, { 3.8123001956747637`*^9, 3.8123001973157506`*^9}}, CellLabel->"In[1]:=", CellID->75027184], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Sat 31 Oct 2020 11:00:43\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "31", ",", "11", ",", "0", ",", "43.89731979370117`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.812291374591296*^9, {3.8122914197315693`*^9, 3.8122914371387186`*^9}, { 3.81229156427539*^9, 3.812291584244833*^9}, 3.8122918705064044`*^9, 3.81229194979088*^9, {3.812291984754033*^9, 3.8122919982686186`*^9}, 3.8122920434560704`*^9, {3.812292077512024*^9, 3.8122920828263044`*^9}, 3.812293889590225*^9, 3.812294561515581*^9, 3.81229754342268*^9, 3.8122999009276395`*^9, 3.812300113032288*^9, {3.812300186714138*^9, 3.8123001986748285`*^9}, 3.812300248580261*^9, 3.8123826149238005`*^9, 3.8125376974952197`*^9, 3.812712872709133*^9, 3.81271626312603*^9, 3.8127191314574676`*^9, 3.8127192934648943`*^9, 3.8127226414109755`*^9, 3.812723929177901*^9, 3.812974523669645*^9, {3.8129758105033264`*^9, 3.8129758249817443`*^9}, 3.8130130277231236`*^9, 3.8130649579404182`*^9}, CellLabel->"Out[1]=", CellID->67512654] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1881179067], Cell["Next new moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294368733157*^9, 3.8122943739514446`*^9}, 3.812300440264201*^9}, CellID->14530796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81229137110824*^9, 3.812291374267168*^9}, { 3.812291436454562*^9, 3.812291436765725*^9}, {3.812291580062602*^9, 3.8122915837401934`*^9}, {3.812291869034287*^9, 3.8122918700620904`*^9}, { 3.812292071650154*^9, 3.8122920823241425`*^9}, 3.8122944090781965`*^9, 3.812294495074381*^9, 3.8122975107408323`*^9, 3.812299879149548*^9, { 3.8123001956747637`*^9, 3.8123001973157506`*^9}, {3.812300329906674*^9, 3.8123003303290057`*^9}}, CellLabel->"In[1]:=", CellID->518004895], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Sun 15 Nov 2020 00:57:04\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "11", ",", "15", ",", "0", ",", "57", ",", "4.946522235870361`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.812291374591296*^9, {3.8122914197315693`*^9, 3.8122914371387186`*^9}, { 3.81229156427539*^9, 3.812291584244833*^9}, 3.8122918705064044`*^9, 3.81229194979088*^9, {3.812291984754033*^9, 3.8122919982686186`*^9}, 3.8122920434560704`*^9, {3.812292077512024*^9, 3.8122920828263044`*^9}, 3.812293889590225*^9, 3.812294561515581*^9, 3.81229754342268*^9, 3.8122999009276395`*^9, 3.812300113032288*^9, {3.812300186714138*^9, 3.8123001986748285`*^9}, 3.812300248580261*^9, 3.812300331241494*^9, 3.8123826151097183`*^9, 3.8127162637000647`*^9, 3.812719131676713*^9, 3.812719293660347*^9, 3.8127226418792562`*^9, 3.8127239294431834`*^9, 3.8130130280666304`*^9, 3.813064960572324*^9}, CellLabel->"Out[1]=", CellID->2066847906] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1722327935], Cell["Next full moon after a given date:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8122944311691136`*^9, 3.8122944395440865`*^9}}, CellID->96158066], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2023", ",", "3", ",", "5"}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812294415699223*^9, 3.8122944259323635`*^9}, 3.812294501058504*^9, 3.8122975151096344`*^9, 3.812299884746641*^9, { 3.8123002713598995`*^9, 3.8123002910949907`*^9}}, CellLabel->"In[1]:=", CellID->121139976], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Tue 7 Mar 2023 08:53:17\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2023", ",", "3", ",", "7", ",", "8", ",", "53", ",", "17.129590034484863`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8122944283256216`*^9, 3.812294563667156*^9, 3.8122975443112946`*^9, 3.812299916015828*^9, 3.812300114153491*^9, 3.812300188072877*^9, { 3.8123002725828595`*^9, 3.812300292688653*^9}, 3.812382615515951*^9, 3.812716264353858*^9, 3.812719132256118*^9, 3.8127192941308656`*^9, 3.8127226420892005`*^9, 3.8127239297274203`*^9, 3.8130130283010025`*^9, 3.813064962666658*^9}, CellLabel->"Out[1]=", CellID->1587145684] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1233525632], Cell["Next new moon after a given date:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8122944311691136`*^9, 3.8122944395440865`*^9}, 3.812300435191163*^9}, CellID->59377651], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2023", ",", "3", ",", "5"}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812294415699223*^9, 3.8122944259323635`*^9}, 3.812294501058504*^9, 3.8122975151096344`*^9, 3.812299884746641*^9, { 3.8123002713598995`*^9, 3.8123002910949907`*^9}, 3.8123003452348614`*^9}, CellLabel->"In[1]:=", CellID->193440356], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Tue 21 Mar 2023 13:21:32\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2023", ",", "3", ",", "21", ",", "13", ",", "21", ",", "32.0070104598999`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8122944283256216`*^9, 3.812294563667156*^9, 3.8122975443112946`*^9, 3.812299916015828*^9, 3.812300114153491*^9, 3.812300188072877*^9, { 3.8123002725828595`*^9, 3.812300292688653*^9}, 3.812300346047386*^9, 3.8123826157907887`*^9, 3.812716264892407*^9, 3.8127191325558834`*^9, 3.81271929455473*^9, 3.8127226424143577`*^9, 3.8127239302011423`*^9, 3.813013028598315*^9, 3.813064965501966*^9}, CellLabel->"Out[1]=", CellID->730531300] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->58168886], Cell["Find all the full moons within a date interval:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812299324425294*^9, 3.812299336643717*^9}}, CellID->499525245], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], "]"}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2021", ",", "1", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122989540529976`*^9, 3.812298980087551*^9}, 3.8122998875242786`*^9, {3.812300401842991*^9, 3.8123004034370117`*^9}}, CellLabel->"In[1]:=", CellID->111477791], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{ RowBox[{"\"Fri 10 Jan 2020 14:40:05\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "10", ",", "14", ",", "40", ",", "5.910862922668457`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 9 Feb 2020 02:36:12\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "9", ",", "2", ",", "36", ",", "12.64755392074585`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 9 Mar 2020 13:03:22\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "9", ",", "13", ",", "3", ",", "22.71861505508423`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Tue 7 Apr 2020 22:16:10\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "4", ",", "7", ",", "22", ",", "16", ",", "10.513080596923828`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Thu 7 May 2020 06:39:21\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "5", ",", "7", ",", "6", ",", "39", ",", "21.037501335144043`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Fri 5 Jun 2020 14:55:15\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "6", ",", "5", ",", "14", ",", "55", ",", "15.676938533782959`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 5 Jul 2020 00:02:02\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "7", ",", "5", ",", "0", ",", "2", ",", "2.2719531059265137`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 3 Aug 2020 11:02:57\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "8", ",", "3", ",", "11", ",", "2", ",", "57.59091758728027`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Wed 2 Sep 2020 00:42:30\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "9", ",", "2", ",", "0", ",", "42", ",", "30.8050274848938`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Thu 1 Oct 2020 17:00:09\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "10", ",", "1", ",", "17", ",", "0", ",", "9.777685642242432`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sat 31 Oct 2020 11:00:43\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "10", ",", "31", ",", "11", ",", "0", ",", "43.89759397506714`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 30 Nov 2020 05:20:08\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "11", ",", "30", ",", "5", ",", "20", ",", "8.5086989402771`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Tue 29 Dec 2020 22:43:56\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "12", ",", "29", ",", "22", ",", "43", ",", "56.90667915344238`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.812299045367381*^9, 3.8122990652420206`*^9}, 3.8122999209688654`*^9, 3.812300114265395*^9, 3.812300191192314*^9, 3.8123003071663866`*^9, 3.8123004069057293`*^9, 3.8123765034993773`*^9, 3.812382618638148*^9, 3.8127162691743536`*^9, 3.812719136571231*^9, 3.8127192979601836`*^9, 3.8127215285944586`*^9, 3.8127226452932825`*^9, 3.8127239342886653`*^9, 3.812724312943448*^9, 3.8130130314596133`*^9, 3.8130650051481047`*^9}, CellLabel->"Out[1]=", CellID->269821980] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->539407617], Cell["Find all the new moons within a date interval:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812299324425294*^9, 3.812299336643717*^9}, { 3.8123004313919344`*^9, 3.8123004317456307`*^9}}, CellID->758225723], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], "]"}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2021", ",", "1", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122989540529976`*^9, 3.812298980087551*^9}, 3.8122998875242786`*^9, {3.8123004125774174`*^9, 3.812300414718066*^9}}, CellLabel->"In[1]:=", CellID->420656350], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{ RowBox[{"\"Fri 24 Jan 2020 16:50:56\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "24", ",", "16", ",", "50", ",", "56.7421669960022`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 23 Feb 2020 10:39:33\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "23", ",", "10", ",", "39", ",", "33.65776348114014`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Tue 24 Mar 2020 05:06:10\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24", ",", "5", ",", "6", ",", "10.790188312530518`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Wed 22 Apr 2020 22:31:58\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "4", ",", "22", ",", "22", ",", "31", ",", "58.36040544509888`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Fri 22 May 2020 13:40:43\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "5", ",", "22", ",", "13", ",", "40", ",", "43.732014656066895`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 21 Jun 2020 02:13:40\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "6", ",", "21", ",", "2", ",", "13", ",", "40.67395353317261`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 20 Jul 2020 12:40:08\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "7", ",", "20", ",", "12", ",", "40", ",", "8.652034282684326`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Tue 18 Aug 2020 21:49:20\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "8", ",", "18", ",", "21", ",", "49", ",", "20.79192018508911`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Thu 17 Sep 2020 06:29:51\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "9", ",", "17", ",", "6", ",", "29", ",", "51.012535572052`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Fri 16 Oct 2020 15:21:44\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "10", ",", "16", ",", "15", ",", "21", ",", "44.490405559539795`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 15 Nov 2020 00:57:05\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "11", ",", "15", ",", "0", ",", "57", ",", "5.041507244110107`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 14 Dec 2020 11:44:02\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "12", ",", "14", ",", "11", ",", "44", ",", "2.8283510208129883`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.812299045367381*^9, 3.8122990652420206`*^9}, 3.8122999209688654`*^9, 3.812300114265395*^9, 3.812300191192314*^9, 3.8123003071663866`*^9, 3.8123004173032813`*^9, 3.812376511567381*^9, 3.812382621232305*^9, 3.8127162733778133`*^9, 3.812719140905573*^9, 3.812719301198455*^9, 3.812721522384224*^9, 3.812722648619199*^9, 3.812723937774379*^9, 3.8127243272518272`*^9, 3.813013034519595*^9, 3.813065047635893*^9}, CellLabel->"Out[1]=", CellID->1648454787] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellLabel->"In[2]:=", CellID->964056545], Cell["Next first-quarter moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294368733157*^9, 3.8122943739514446`*^9}, { 3.812371735220565*^9, 3.8123717374922132`*^9}, {3.8140179268607807`*^9, 3.8140179270847607`*^9}}, CellID->201877151], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81229137110824*^9, 3.812291374267168*^9}, { 3.812291436454562*^9, 3.812291436765725*^9}, {3.812291580062602*^9, 3.8122915837401934`*^9}, {3.812291869034287*^9, 3.8122918700620904`*^9}, { 3.812292071650154*^9, 3.8122920823241425`*^9}, 3.8122944090781965`*^9, 3.812294495074381*^9, 3.8122975107408323`*^9, 3.812299879149548*^9, { 3.8123001956747637`*^9, 3.8123001973157506`*^9}, {3.8123717400369415`*^9, 3.812371744686934*^9}}, CellLabel->"In[1]:=", CellID->678740665], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Sun 22 Nov 2020 00:04:58\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "11", ",", "22", ",", "0", ",", "4", ",", "58.70396375656128`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.812291374591296*^9, {3.8122914197315693`*^9, 3.8122914371387186`*^9}, { 3.81229156427539*^9, 3.812291584244833*^9}, 3.8122918705064044`*^9, 3.81229194979088*^9, {3.812291984754033*^9, 3.8122919982686186`*^9}, 3.8122920434560704`*^9, {3.812292077512024*^9, 3.8122920828263044`*^9}, 3.812293889590225*^9, 3.812294561515581*^9, 3.81229754342268*^9, 3.8122999009276395`*^9, 3.812300113032288*^9, {3.812300186714138*^9, 3.8123001986748285`*^9}, 3.812300248580261*^9, 3.8123717455045595`*^9, 3.812382615204962*^9, 3.8127162638456717`*^9, 3.812719131785418*^9, 3.8127192937611074`*^9, 3.8127226620181556`*^9, 3.812724337771326*^9, 3.813013041410396*^9, 3.813065094010203*^9}, CellLabel->"Out[1]=", CellID->2081777111] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1498006008], Cell["Next last-quarter moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294368733157*^9, 3.8122943739514446`*^9}, { 3.812371735220565*^9, 3.8123717374922132`*^9}, {3.812371778958093*^9, 3.8123717794687185`*^9}, {3.814017931877637*^9, 3.814017932282291*^9}}, CellID->29032014], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81229137110824*^9, 3.812291374267168*^9}, { 3.812291436454562*^9, 3.812291436765725*^9}, {3.812291580062602*^9, 3.8122915837401934`*^9}, {3.812291869034287*^9, 3.8122918700620904`*^9}, { 3.812292071650154*^9, 3.8122920823241425`*^9}, 3.8122944090781965`*^9, 3.812294495074381*^9, 3.8122975107408323`*^9, 3.812299879149548*^9, { 3.8123001956747637`*^9, 3.8123001973157506`*^9}, {3.8123717400369415`*^9, 3.812371744686934*^9}, {3.8123717822922115`*^9, 3.812371784005145*^9}}, CellLabel->"In[1]:=", CellID->269737160], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Sun 8 Nov 2020 09:32:06\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "11", ",", "8", ",", "9", ",", "32", ",", "6.400463581085205`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.812291374591296*^9, {3.8122914197315693`*^9, 3.8122914371387186`*^9}, { 3.81229156427539*^9, 3.812291584244833*^9}, 3.8122918705064044`*^9, 3.81229194979088*^9, {3.812291984754033*^9, 3.8122919982686186`*^9}, 3.8122920434560704`*^9, {3.812292077512024*^9, 3.8122920828263044`*^9}, 3.812293889590225*^9, 3.812294561515581*^9, 3.81229754342268*^9, 3.8122999009276395`*^9, 3.812300113032288*^9, {3.812300186714138*^9, 3.8123001986748285`*^9}, 3.812300248580261*^9, 3.8123717455045595`*^9, 3.8123717851888833`*^9, 3.812382615289607*^9, 3.8127162639953012`*^9, 3.8127191319120445`*^9, 3.8127192938628345`*^9, 3.81272072842126*^9, 3.8127226621488314`*^9, 3.8127243378850203`*^9, 3.8130130415667443`*^9, 3.813065095247415*^9}, CellLabel->"Out[1]=", CellID->760601590] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->2036182675], Cell["Next waxing crescent moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294368733157*^9, 3.8122943739514446`*^9}, { 3.812371735220565*^9, 3.8123717374922132`*^9}, {3.812371778958093*^9, 3.8123717794687185`*^9}, {3.8127202285434675`*^9, 3.812720231641451*^9}}, CellID->89519715], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81229137110824*^9, 3.812291374267168*^9}, { 3.812291436454562*^9, 3.812291436765725*^9}, {3.812291580062602*^9, 3.8122915837401934`*^9}, {3.812291869034287*^9, 3.8122918700620904`*^9}, { 3.812292071650154*^9, 3.8122920823241425`*^9}, 3.8122944090781965`*^9, 3.812294495074381*^9, 3.8122975107408323`*^9, 3.812299879149548*^9, { 3.8123001956747637`*^9, 3.8123001973157506`*^9}, {3.8123717400369415`*^9, 3.812371744686934*^9}, {3.8123717822922115`*^9, 3.812371784005145*^9}, { 3.812720218398632*^9, 3.81272022155361*^9}}, CellLabel->"In[1]:=", CellID->680111298], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 15 Nov 2020 00:57:04\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 22 Nov 2020 00:06:16\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 15 Nov 2020 00:57:04\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 22 Nov 2020 00:06:16\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 11, 15, 0, 57, 4.946535110473633}, { 2020, 11, 22, 0, 6, 16.97742986679077}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.812291374591296*^9, {3.8122914197315693`*^9, 3.8122914371387186`*^9}, { 3.81229156427539*^9, 3.812291584244833*^9}, 3.8122918705064044`*^9, 3.81229194979088*^9, {3.812291984754033*^9, 3.8122919982686186`*^9}, 3.8122920434560704`*^9, {3.812292077512024*^9, 3.8122920828263044`*^9}, 3.812293889590225*^9, 3.812294561515581*^9, 3.81229754342268*^9, 3.8122999009276395`*^9, 3.812300113032288*^9, {3.812300186714138*^9, 3.8123001986748285`*^9}, 3.812300248580261*^9, 3.8123717455045595`*^9, 3.8123717851888833`*^9, 3.812382615289607*^9, 3.8127162639953012`*^9, 3.8127191319120445`*^9, 3.8127192938628345`*^9, 3.812720234475502*^9, 3.8127207321493196`*^9, 3.8127226624709363`*^9, 3.8127243381991806`*^9, 3.8130130420307293`*^9, 3.813065098992469*^9}, CellLabel->"Out[1]=", CellID->1450392653] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1970303780], Cell["Next waning crescent moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294368733157*^9, 3.8122943739514446`*^9}, { 3.812371735220565*^9, 3.8123717374922132`*^9}, {3.812371778958093*^9, 3.8123717794687185`*^9}, {3.8127202285434675`*^9, 3.8127202470654087`*^9}}, CellID->93418547], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81229137110824*^9, 3.812291374267168*^9}, { 3.812291436454562*^9, 3.812291436765725*^9}, {3.812291580062602*^9, 3.8122915837401934`*^9}, {3.812291869034287*^9, 3.8122918700620904`*^9}, { 3.812292071650154*^9, 3.8122920823241425`*^9}, 3.8122944090781965`*^9, 3.812294495074381*^9, 3.8122975107408323`*^9, 3.812299879149548*^9, { 3.8123001956747637`*^9, 3.8123001973157506`*^9}, {3.8123717400369415`*^9, 3.812371744686934*^9}, {3.8123717822922115`*^9, 3.812371784005145*^9}, { 3.812720218398632*^9, 3.8127202501777415`*^9}}, CellLabel->"In[1]:=", CellID->210496037], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 8 Nov 2020 09:32:06\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 15 Nov 2020 00:57:05\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 8 Nov 2020 09:32:06\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 15 Nov 2020 00:57:05\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 11, 8, 9, 32, 6.403243541717529}, { 2020, 11, 15, 0, 57, 5.290792465209961}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.812291374591296*^9, {3.8122914197315693`*^9, 3.8122914371387186`*^9}, { 3.81229156427539*^9, 3.812291584244833*^9}, 3.8122918705064044`*^9, 3.81229194979088*^9, {3.812291984754033*^9, 3.8122919982686186`*^9}, 3.8122920434560704`*^9, {3.812292077512024*^9, 3.8122920828263044`*^9}, 3.812293889590225*^9, 3.812294561515581*^9, 3.81229754342268*^9, 3.8122999009276395`*^9, 3.812300113032288*^9, {3.812300186714138*^9, 3.8123001986748285`*^9}, 3.812300248580261*^9, 3.8123717455045595`*^9, 3.8123717851888833`*^9, 3.812382615289607*^9, 3.8127162639953012`*^9, 3.8127191319120445`*^9, 3.8127192938628345`*^9, {3.812720234475502*^9, 3.8127202508743687`*^9}, 3.8127207367320805`*^9, 3.8127226632329063`*^9, 3.8127243389152503`*^9, 3.813013042456977*^9, 3.8130651032967653`*^9}, CellLabel->"Out[1]=", CellID->345160088] }, Open ]], Cell["Next waxing gibbous moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294368733157*^9, 3.8122943739514446`*^9}, { 3.812371735220565*^9, 3.8123717374922132`*^9}, {3.812371778958093*^9, 3.8123717794687185`*^9}, {3.8127202285434675`*^9, 3.812720231641451*^9}, { 3.812720276377684*^9, 3.8127202773789825`*^9}}, CellID->202120163], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81229137110824*^9, 3.812291374267168*^9}, { 3.812291436454562*^9, 3.812291436765725*^9}, {3.812291580062602*^9, 3.8122915837401934`*^9}, {3.812291869034287*^9, 3.8122918700620904`*^9}, { 3.812292071650154*^9, 3.8122920823241425`*^9}, 3.8122944090781965`*^9, 3.812294495074381*^9, 3.8122975107408323`*^9, 3.812299879149548*^9, { 3.8123001956747637`*^9, 3.8123001973157506`*^9}, {3.8123717400369415`*^9, 3.812371744686934*^9}, {3.8123717822922115`*^9, 3.812371784005145*^9}, { 3.812720218398632*^9, 3.81272022155361*^9}, {3.8127202824791975`*^9, 3.812720283626266*^9}}, CellLabel->"In[2]:=", CellID->496521116], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 22 Nov 2020 00:04:58\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 30 Nov 2020 05:20:08\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 22 Nov 2020 00:04:58\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 30 Nov 2020 05:20:08\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 11, 22, 0, 4, 58.67241859436035}, { 2020, 11, 30, 5, 20, 8.47006893157959}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.812291374591296*^9, {3.8122914197315693`*^9, 3.8122914371387186`*^9}, { 3.81229156427539*^9, 3.812291584244833*^9}, 3.8122918705064044`*^9, 3.81229194979088*^9, {3.812291984754033*^9, 3.8122919982686186`*^9}, 3.8122920434560704`*^9, {3.812292077512024*^9, 3.8122920828263044`*^9}, 3.812293889590225*^9, 3.812294561515581*^9, 3.81229754342268*^9, 3.8122999009276395`*^9, 3.812300113032288*^9, {3.812300186714138*^9, 3.8123001986748285`*^9}, 3.812300248580261*^9, 3.8123717455045595`*^9, 3.8123717851888833`*^9, 3.812382615289607*^9, 3.8127162639953012`*^9, 3.8127191319120445`*^9, 3.8127192938628345`*^9, 3.812720234475502*^9, 3.812720284808072*^9, 3.8127207400031395`*^9, 3.8127226638182354`*^9, 3.8127243394413433`*^9, 3.813013042878868*^9, 3.81306510639268*^9}, CellLabel->"Out[2]=", CellID->1563837046] }, Open ]], Cell["Next waning gibbous moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294368733157*^9, 3.8122943739514446`*^9}, { 3.812371735220565*^9, 3.8123717374922132`*^9}, {3.812371778958093*^9, 3.8123717794687185`*^9}, {3.8127202285434675`*^9, 3.8127202470654087`*^9}, { 3.8127202874749374`*^9, 3.812720301016284*^9}}, CellID->41562907], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.81229137110824*^9, 3.812291374267168*^9}, { 3.812291436454562*^9, 3.812291436765725*^9}, {3.812291580062602*^9, 3.8122915837401934`*^9}, {3.812291869034287*^9, 3.8122918700620904`*^9}, { 3.812292071650154*^9, 3.8122920823241425`*^9}, 3.8122944090781965`*^9, 3.812294495074381*^9, 3.8122975107408323`*^9, 3.812299879149548*^9, { 3.8123001956747637`*^9, 3.8123001973157506`*^9}, {3.8123717400369415`*^9, 3.812371744686934*^9}, {3.8123717822922115`*^9, 3.812371784005145*^9}, { 3.812720218398632*^9, 3.8127202501777415`*^9}, {3.8127202928427086`*^9, 3.812720293970231*^9}}, CellLabel->"In[3]:=", CellID->36161351], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 31 Oct 2020 11:00:43\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 8 Nov 2020 09:36:51\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 31 Oct 2020 11:00:43\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 8 Nov 2020 09:36:51\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 10, 31, 11, 0, 43.89726257324219}, { 2020, 11, 8, 9, 36, 51.205477237701416`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.812291374591296*^9, {3.8122914197315693`*^9, 3.8122914371387186`*^9}, { 3.81229156427539*^9, 3.812291584244833*^9}, 3.8122918705064044`*^9, 3.81229194979088*^9, {3.812291984754033*^9, 3.8122919982686186`*^9}, 3.8122920434560704`*^9, {3.812292077512024*^9, 3.8122920828263044`*^9}, 3.812293889590225*^9, 3.812294561515581*^9, 3.81229754342268*^9, 3.8122999009276395`*^9, 3.812300113032288*^9, {3.812300186714138*^9, 3.8123001986748285`*^9}, 3.812300248580261*^9, 3.8123717455045595`*^9, 3.8123717851888833`*^9, 3.812382615289607*^9, 3.8127162639953012`*^9, 3.8127191319120445`*^9, 3.8127192938628345`*^9, {3.812720234475502*^9, 3.8127202508743687`*^9}, 3.8127202949252176`*^9, 3.812720762547826*^9, 3.812722664380727*^9, 3.8127243400023575`*^9, 3.8130130431604567`*^9, 3.813065109555912*^9}, CellLabel->"Out[3]=", CellID->1273422176] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->500967184], Cell["Next first-quarter moon after a given date:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8122944311691136`*^9, 3.8122944395440865`*^9}, 3.812300435191163*^9, {3.8123718101173315`*^9, 3.8123718121159773`*^9}, 3.81297282190243*^9}, CellID->918660108], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2023", ",", "3", ",", "5"}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812294415699223*^9, 3.8122944259323635`*^9}, 3.812294501058504*^9, 3.8122975151096344`*^9, 3.812299884746641*^9, { 3.8123002713598995`*^9, 3.8123002910949907`*^9}, 3.8123003452348614`*^9, { 3.8123718165503225`*^9, 3.8123718195328712`*^9}}, CellLabel->"In[1]:=", CellID->516691597], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Tue 28 Mar 2023 21:54:59\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2023", ",", "3", ",", "28", ",", "21", ",", "54", ",", "59.18414640426636`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8122944283256216`*^9, 3.812294563667156*^9, 3.8122975443112946`*^9, 3.812299916015828*^9, 3.812300114153491*^9, 3.812300188072877*^9, { 3.8123002725828595`*^9, 3.812300292688653*^9}, 3.812300346047386*^9, 3.8123718203964167`*^9, 3.812382616015694*^9, 3.812716265024562*^9, 3.812719132706476*^9, 3.8127192947242737`*^9, 3.8127226647407894`*^9, 3.8127243403494205`*^9, 3.8130130433475666`*^9, 3.8130651107727633`*^9}, CellLabel->"Out[1]=", CellID->975553256] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->697793720], Cell["Next last-quarter moon after a given date:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8122944311691136`*^9, 3.8122944395440865`*^9}, 3.812300435191163*^9, {3.8123718253751335`*^9, 3.812371828972088*^9}, 3.8129728200326967`*^9}, CellID->171988399], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2023", ",", "3", ",", "5"}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812294415699223*^9, 3.8122944259323635`*^9}, 3.812294501058504*^9, 3.8122975151096344`*^9, 3.812299884746641*^9, { 3.8123002713598995`*^9, 3.8123002910949907`*^9}, 3.8123003452348614`*^9, { 3.812371832953354*^9, 3.8123718361662774`*^9}}, CellLabel->"In[1]:=", CellID->313226258], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Tue 14 Mar 2023 21:59:56\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2023", ",", "3", ",", "14", ",", "21", ",", "59", ",", "56.167059898376465`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8122944283256216`*^9, 3.812294563667156*^9, 3.8122975443112946`*^9, 3.812299916015828*^9, 3.812300114153491*^9, 3.812300188072877*^9, { 3.8123002725828595`*^9, 3.812300292688653*^9}, 3.812300346047386*^9, 3.812371837196533*^9, 3.8123826161562395`*^9, 3.8127162651781483`*^9, 3.8127191328720603`*^9, 3.812719294886836*^9, 3.812722664868415*^9, 3.8127243404790716`*^9, 3.8130130435509033`*^9, 3.813065112016241*^9}, CellLabel->"Out[1]=", CellID->1517358404] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->410855773], Cell["Next waxing crescent moon after a given date:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8122944311691136`*^9, 3.8122944395440865`*^9}, 3.812300435191163*^9, {3.8123718253751335`*^9, 3.812371828972088*^9}, { 3.812720794344288*^9, 3.812720800821253*^9}}, CellID->78125953], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2023", ",", "3", ",", "5"}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812294415699223*^9, 3.8122944259323635`*^9}, 3.812294501058504*^9, 3.8122975151096344`*^9, 3.812299884746641*^9, { 3.8123002713598995`*^9, 3.8123002910949907`*^9}, 3.8123003452348614`*^9, { 3.812371832953354*^9, 3.8123718361662774`*^9}, {3.8127208048001842`*^9, 3.8127208075210977`*^9}}, CellLabel->"In[1]:=", CellID->446486512], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 21 Mar 2023 13:21:32\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 28 Mar 2023 21:56:34\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 21 Mar 2023 13:21:32\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 28 Mar 2023 21:56:34\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2023, 3, 21, 13, 21, 32.0070104598999}, { 2023, 3, 28, 21, 56, 34.41495895385742}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8122944283256216`*^9, 3.812294563667156*^9, 3.8122975443112946`*^9, 3.812299916015828*^9, 3.812300114153491*^9, 3.812300188072877*^9, { 3.8123002725828595`*^9, 3.812300292688653*^9}, 3.812300346047386*^9, 3.812371837196533*^9, 3.8123826161562395`*^9, 3.8127162651781483`*^9, 3.8127191328720603`*^9, 3.812719294886836*^9, 3.8127208090580053`*^9, 3.8127226653182025`*^9, 3.812724340923874*^9, 3.8130130440510864`*^9, 3.8130649283275023`*^9, 3.813065116077241*^9}, CellLabel->"Out[1]=", CellID->136017259] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->335117625], Cell["Next waning crescent moon after a given date:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8122944311691136`*^9, 3.8122944395440865`*^9}, 3.812300435191163*^9, {3.8123718253751335`*^9, 3.812371828972088*^9}, { 3.812720794344288*^9, 3.812720818525754*^9}}, CellID->379707217], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2023", ",", "3", ",", "5"}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812294415699223*^9, 3.8122944259323635`*^9}, 3.812294501058504*^9, 3.8122975151096344`*^9, 3.812299884746641*^9, { 3.8123002713598995`*^9, 3.8123002910949907`*^9}, 3.8123003452348614`*^9, { 3.812371832953354*^9, 3.8123718361662774`*^9}, {3.8127208048001842`*^9, 3.812720821079879*^9}}, CellLabel->"In[1]:=", CellID->18757589], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 14 Mar 2023 21:59:56\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 21 Mar 2023 13:21:33\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 14 Mar 2023 21:59:56\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 21 Mar 2023 13:21:33\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2023, 3, 14, 21, 59, 56.167059898376465`}, { 2023, 3, 21, 13, 21, 33.42660856246948}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8122944283256216`*^9, 3.812294563667156*^9, 3.8122975443112946`*^9, 3.812299916015828*^9, 3.812300114153491*^9, 3.812300188072877*^9, { 3.8123002725828595`*^9, 3.812300292688653*^9}, 3.812300346047386*^9, 3.812371837196533*^9, 3.8123826161562395`*^9, 3.8127162651781483`*^9, 3.8127191328720603`*^9, 3.812719294886836*^9, {3.8127208090580053`*^9, 3.8127208222417507`*^9}, 3.8127226658986397`*^9, 3.8127243416495285`*^9, 3.8130130444881687`*^9, 3.813065121203409*^9}, CellLabel->"Out[1]=", CellID->1942704322] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1619800941], Cell["Next waxing gibbous moon after a given date:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8122944311691136`*^9, 3.8122944395440865`*^9}, 3.812300435191163*^9, {3.8123718253751335`*^9, 3.812371828972088*^9}, { 3.812720794344288*^9, 3.812720800821253*^9}, {3.8127208433448467`*^9, 3.8127208444304733`*^9}}, CellID->289720297], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2023", ",", "3", ",", "5"}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812294415699223*^9, 3.8122944259323635`*^9}, 3.812294501058504*^9, 3.8122975151096344`*^9, 3.812299884746641*^9, { 3.8123002713598995`*^9, 3.8123002910949907`*^9}, 3.8123003452348614`*^9, { 3.812371832953354*^9, 3.8123718361662774`*^9}, {3.8127208048001842`*^9, 3.8127208075210977`*^9}, {3.812720848071125*^9, 3.812720849120235*^9}}, CellLabel->"In[1]:=", CellID->8080292], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 28 Mar 2023 21:54:59\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Thu 6 Apr 2023 00:32:05\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 28 Mar 2023 21:54:59\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Thu 6 Apr 2023 00:32:05\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2023, 3, 28, 21, 54, 59.18414640426636}, { 2023, 4, 6, 0, 32, 5.7326250076293945`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8122944283256216`*^9, 3.812294563667156*^9, 3.8122975443112946`*^9, 3.812299916015828*^9, 3.812300114153491*^9, 3.812300188072877*^9, { 3.8123002725828595`*^9, 3.812300292688653*^9}, 3.812300346047386*^9, 3.812371837196533*^9, 3.8123826161562395`*^9, 3.8127162651781483`*^9, 3.8127191328720603`*^9, 3.812719294886836*^9, 3.8127208090580053`*^9, 3.8127208498624396`*^9, 3.8127226663470063`*^9, 3.8127243421115246`*^9, 3.8130130448944297`*^9, 3.8130651242470837`*^9}, CellLabel->"Out[1]=", CellID->1814280709] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->344222368], Cell["Next waning gibbous moon after a given date:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8122944311691136`*^9, 3.8122944395440865`*^9}, 3.812300435191163*^9, {3.8123718253751335`*^9, 3.812371828972088*^9}, { 3.812720794344288*^9, 3.812720800821253*^9}, {3.8127208433448467`*^9, 3.8127208651943855`*^9}}, CellID->590911869], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2023", ",", "3", ",", "5"}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812294415699223*^9, 3.8122944259323635`*^9}, 3.812294501058504*^9, 3.8122975151096344`*^9, 3.812299884746641*^9, { 3.8123002713598995`*^9, 3.8123002910949907`*^9}, 3.8123003452348614`*^9, { 3.812371832953354*^9, 3.8123718361662774`*^9}, {3.8127208048001842`*^9, 3.8127208075210977`*^9}, {3.812720848071125*^9, 3.812720867887275*^9}}, CellLabel->"In[1]:=", CellID->414247711], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 7 Mar 2023 08:53:17\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 14 Mar 2023 21:57:32\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 7 Mar 2023 08:53:17\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 14 Mar 2023 21:57:32\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2023, 3, 7, 8, 53, 17.129590034484863`}, { 2023, 3, 14, 21, 57, 32.33819580078125}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8122944283256216`*^9, 3.812294563667156*^9, 3.8122975443112946`*^9, 3.812299916015828*^9, 3.812300114153491*^9, 3.812300188072877*^9, { 3.8123002725828595`*^9, 3.812300292688653*^9}, 3.812300346047386*^9, 3.812371837196533*^9, 3.8123826161562395`*^9, 3.8127162651781483`*^9, 3.8127191328720603`*^9, 3.812719294886836*^9, 3.8127208090580053`*^9, { 3.8127208498624396`*^9, 3.8127208688781457`*^9}, 3.812722666686124*^9, 3.8127243424870276`*^9, 3.813013045300805*^9, 3.813065127551321*^9}, CellLabel->"Out[1]=", CellID->1276933650] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->329727232], Cell["Find all the first-quarter moons within a date interval:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812299324425294*^9, 3.812299336643717*^9}, { 3.8123004313919344`*^9, 3.8123004317456307`*^9}, {3.8123718765415745`*^9, 3.81237187918817*^9}, 3.812972842533403*^9}, CellID->12330571], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], "]"}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2021", ",", "1", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122989540529976`*^9, 3.812298980087551*^9}, 3.8122998875242786`*^9, {3.8123004125774174`*^9, 3.812300414718066*^9}, { 3.8123718827059064`*^9, 3.812371884662964*^9}}, CellLabel->"In[1]:=", CellID->592504976], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{ RowBox[{"\"Fri 3 Jan 2020 00:02:27\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "3", ",", "0", ",", "2", ",", "27.001408100128174`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sat 1 Feb 2020 20:55:48\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "1", ",", "20", ",", "55", ",", "48.12135124206543`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 2 Mar 2020 15:09:51\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "2", ",", "15", ",", "9", ",", "51.37210559844971`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Wed 1 Apr 2020 05:32:24\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "4", ",", "1", ",", "5", ",", "32", ",", "24.150475025177002`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Thu 30 Apr 2020 15:49:35\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "4", ",", "30", ",", "15", ",", "49", ",", "35.95698022842407`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Fri 29 May 2020 22:42:53\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "5", ",", "29", ",", "22", ",", "42", ",", "53.219292640686035`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 28 Jun 2020 03:31:07\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "6", ",", "28", ",", "3", ",", "31", ",", "7.698680400848389`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 27 Jul 2020 07:50:25\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "7", ",", "27", ",", "7", ",", "50", ",", "25.883058071136475`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Tue 25 Aug 2020 13:17:36\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "8", ",", "25", ",", "13", ",", "17", ",", "36.81178665161133`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Wed 23 Sep 2020 21:16:20\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "9", ",", "23", ",", "21", ",", "16", ",", "20.119935989379883`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Fri 23 Oct 2020 08:44:51\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "10", ",", "23", ",", "8", ",", "44", ",", "51.966309547424316`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 22 Nov 2020 00:06:21\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "11", ",", "22", ",", "0", ",", "6", ",", "21.63711929321289`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 21 Dec 2020 19:01:24\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "12", ",", "21", ",", "19", ",", "1", ",", "24.96083164215088`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.812299045367381*^9, 3.8122990652420206`*^9}, 3.8122999209688654`*^9, 3.812300114265395*^9, 3.812300191192314*^9, 3.8123003071663866`*^9, 3.8123004173032813`*^9, 3.812371895804864*^9, 3.812375728414068*^9, 3.8123765326935077`*^9, 3.8123806636127367`*^9, 3.8123810734492664`*^9, 3.812381124934566*^9, 3.8123826232588415`*^9, 3.8127162769141974`*^9, 3.8127191459262915`*^9, 3.8127193035761986`*^9, 3.812721514991745*^9, 3.8127226692174587`*^9, 3.8127243454291835`*^9, 3.8130130478633842`*^9, 3.81306516002131*^9}, CellLabel->"Out[1]=", CellID->402335159] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->117757440], Cell["Find all the last-quarter moons within a date interval:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812299324425294*^9, 3.812299336643717*^9}, { 3.8123004313919344`*^9, 3.8123004317456307`*^9}, {3.8123718765415745`*^9, 3.812371905757665*^9}, 3.8129728468110743`*^9}, CellID->249225697], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], "]"}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2021", ",", "1", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122989540529976`*^9, 3.812298980087551*^9}, 3.8122998875242786`*^9, {3.8123004125774174`*^9, 3.812300414718066*^9}, { 3.8123718827059064`*^9, 3.812371910357279*^9}}, CellLabel->"In[1]:=", CellID->135477113], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{ RowBox[{"\"Fri 17 Jan 2020 08:48:14\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "17", ",", "8", ",", "48", ",", "14.890035152435303`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sat 15 Feb 2020 18:10:16\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "15", ",", "18", ",", "10", ",", "16.50046396255493`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 16 Mar 2020 05:30:01\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16", ",", "5", ",", "30", ",", "1.3823904991149902`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Tue 14 Apr 2020 18:53:50\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "4", ",", "14", ",", "18", ",", "53", ",", "50.89695692062378`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Thu 14 May 2020 10:01:21\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "5", ",", "14", ",", "10", ",", "1", ",", "21.120863437652588`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sat 13 Jun 2020 02:22:24\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "6", ",", "13", ",", "2", ",", "22", ",", "24.18898057937622`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 12 Jul 2020 19:26:52\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "7", ",", "12", ",", "19", ",", "26", ",", "52.44440746307373`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Tue 11 Aug 2020 12:40:40\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "8", ",", "11", ",", "12", ",", "40", ",", "40.635507583618164`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Thu 10 Sep 2020 05:18:28\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "9", ",", "10", ",", "5", ",", "18", ",", "28.377594470977783`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Fri 9 Oct 2020 20:28:32\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "10", ",", "9", ",", "20", ",", "28", ",", "32.36282777786255`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Sun 8 Nov 2020 09:32:04\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "11", ",", "8", ",", "9", ",", "32", ",", "4.807990074157715`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{ RowBox[{"\"Mon 7 Dec 2020 20:21:34\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2020", ",", "12", ",", "7", ",", "20", ",", "21", ",", "34.66031312942505`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.812299045367381*^9, 3.8122990652420206`*^9}, 3.8122999209688654`*^9, 3.812300114265395*^9, 3.812300191192314*^9, 3.8123003071663866`*^9, 3.8123004173032813`*^9, {3.812371895804864*^9, 3.8123719217701464`*^9}, 3.8123765535075254`*^9, 3.8123806772077837`*^9, 3.812381136913085*^9, 3.8123826325616856`*^9, 3.812716279563566*^9, 3.812719150372387*^9, 3.8127193059249916`*^9, 3.8127215085379887`*^9, 3.812722671480107*^9, 3.812724348246644*^9, 3.8130130504617624`*^9, 3.8130651896709023`*^9}, CellLabel->"Out[1]=", CellID->2104650376] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1316855193], Cell["Find all the waxing crescent moons within a date interval:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812299324425294*^9, 3.812299336643717*^9}, { 3.8123004313919344`*^9, 3.8123004317456307`*^9}, {3.8123718765415745`*^9, 3.812371905757665*^9}, {3.8127209819829087`*^9, 3.8127209875600705`*^9}}, CellID->144713893], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], "]"}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "4", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122989540529976`*^9, 3.812298980087551*^9}, 3.8122998875242786`*^9, {3.8123004125774174`*^9, 3.812300414718066*^9}, { 3.8123718827059064`*^9, 3.812371910357279*^9}, {3.812720990498189*^9, 3.812720996153832*^9}, {3.812722776361667*^9, 3.812722800483056*^9}}, CellLabel->"In[1]:=", CellID->158554744], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 3 Jan 2020 00:02:34\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 1 Feb 2020 20:57:31\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 3 Jan 2020 00:02:34\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 1 Feb 2020 20:57:31\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 1, 3, 0, 2, 34.38583517074585}, { 2020, 2, 1, 20, 57, 31.272818088531494`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 23 Feb 2020 10:39:43\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 2 Mar 2020 15:12:10\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 23 Feb 2020 10:39:43\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 2 Mar 2020 15:12:10\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 2, 23, 10, 39, 43.530559062957764`}, { 2020, 3, 2, 15, 12, 10.19013261795044}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 24 Mar 2020 05:06:10\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Wed 1 Apr 2020 05:37:13\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 24 Mar 2020 05:06:10\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Wed 1 Apr 2020 05:37:13\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 3, 24, 5, 6, 10.15865182876587}, { 2020, 4, 1, 5, 37, 13.994320392608643`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.812299045367381*^9, 3.8122990652420206`*^9}, 3.8122999209688654`*^9, 3.812300114265395*^9, 3.812300191192314*^9, 3.8123003071663866`*^9, 3.8123004173032813`*^9, {3.812371895804864*^9, 3.8123719217701464`*^9}, 3.8123765535075254`*^9, 3.8123806772077837`*^9, 3.812381136913085*^9, 3.8123826325616856`*^9, 3.812716279563566*^9, 3.812719150372387*^9, 3.8127193059249916`*^9, 3.812721013852631*^9, 3.8127210858634987`*^9, 3.812721156035391*^9, 3.812721440113225*^9, 3.8127214908662653`*^9, 3.8127223924912696`*^9, 3.8127226899716654`*^9, { 3.8127227848406563`*^9, 3.8127228056872497`*^9}, 3.812723203180922*^9, 3.8127233338448257`*^9, 3.8127235115980835`*^9, 3.812723602087492*^9, 3.812723676936221*^9, 3.812723716515994*^9, 3.8127237773530183`*^9, 3.8127243544716825`*^9, 3.81301305573244*^9, 3.813065250325078*^9}, CellLabel->"Out[1]=", CellID->1721226076] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1616025485], Cell["Find all the waning crescent moons within a date interval:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812299324425294*^9, 3.812299336643717*^9}, { 3.8123004313919344`*^9, 3.8123004317456307`*^9}, {3.8123718765415745`*^9, 3.812371905757665*^9}, {3.8127209819829087`*^9, 3.8127209875600705`*^9}, { 3.812721717360607*^9, 3.81272171747829*^9}}, CellID->614889496], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], "]"}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "4", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122989540529976`*^9, 3.812298980087551*^9}, 3.8122998875242786`*^9, {3.8123004125774174`*^9, 3.812300414718066*^9}, { 3.8123718827059064`*^9, 3.812371910357279*^9}, {3.812720990498189*^9, 3.812720996153832*^9}, {3.812721721047511*^9, 3.8127217211831455`*^9}, 3.812722773322342*^9, 3.8127228546560717`*^9}, CellLabel->"In[1]:=", CellID->198531441], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 17 Jan 2020 08:47:15\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 24 Jan 2020 16:50:56\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 17 Jan 2020 08:47:15\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 24 Jan 2020 16:50:56\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 1, 17, 8, 47, 15.711909294128418`}, { 2020, 1, 24, 16, 50, 56.74226999282837}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 15 Feb 2020 18:06:13\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 23 Feb 2020 10:39:33\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 15 Feb 2020 18:06:13\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 23 Feb 2020 10:39:33\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 2, 15, 18, 6, 13.670171737670898`}, { 2020, 2, 23, 10, 39, 33.54832220077515}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 16 Mar 2020 05:26:58\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 24 Mar 2020 05:06:10\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 16 Mar 2020 05:26:58\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 24 Mar 2020 05:06:10\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 3, 16, 5, 26, 58.077210903167725`}, { 2020, 3, 24, 5, 6, 10.15865421295166}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.812721742086378*^9, 3.812722436395809*^9, 3.8127227118437033`*^9, 3.812722861494999*^9, 3.812723352033931*^9, 3.8127243616546803`*^9, 3.813013059825512*^9, 3.8130652998852158`*^9}, CellLabel->"Out[1]=", CellID->201694689] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1314642786], Cell["Find all the waxing gibbous moons within a date interval:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812299324425294*^9, 3.812299336643717*^9}, { 3.8123004313919344`*^9, 3.8123004317456307`*^9}, {3.8123718765415745`*^9, 3.812371905757665*^9}, {3.8127209819829087`*^9, 3.8127209875600705`*^9}, { 3.812721753006898*^9, 3.8127217541029634`*^9}}, CellID->83818289], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], "]"}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "4", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122989540529976`*^9, 3.812298980087551*^9}, 3.8122998875242786`*^9, {3.8123004125774174`*^9, 3.812300414718066*^9}, { 3.8123718827059064`*^9, 3.812371910357279*^9}, {3.812720990498189*^9, 3.812720996153832*^9}, {3.8127217582110434`*^9, 3.812721759400401*^9}, 3.812722770076163*^9, 3.8127228648347096`*^9}, CellLabel->"In[1]:=", CellID->3340476], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 3 Jan 2020 00:00:30\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 10 Jan 2020 14:40:03\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 3 Jan 2020 00:00:30\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 10 Jan 2020 14:40:03\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 1, 3, 0, 0, 30.983508586883545`}, { 2020, 1, 10, 14, 40, 3.6238503456115723`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 1 Feb 2020 20:56:32\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 9 Feb 2020 02:36:14\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 1 Feb 2020 20:56:32\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 9 Feb 2020 02:36:14\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 2, 1, 20, 56, 32.03263282775879}, { 2020, 2, 9, 2, 36, 14.231410503387451`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 2 Mar 2020 15:10:16\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 9 Mar 2020 13:03:22\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 2 Mar 2020 15:10:16\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 9 Mar 2020 13:03:22\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 3, 2, 15, 10, 16.367724418640137`}, { 2020, 3, 9, 13, 3, 22.718520164489746`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Wed 1 Apr 2020 05:32:48\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 7 Apr 2020 22:16:10\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Wed 1 Apr 2020 05:32:48\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 7 Apr 2020 22:16:10\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 4, 1, 5, 32, 48.46905755996704}, { 2020, 4, 7, 22, 16, 10.546462535858154`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8127217814671526`*^9, 3.812722463427835*^9, 3.8127227382361135`*^9, 3.812722872947159*^9, 3.812724370663041*^9, 3.8130130645317526`*^9, 3.813065360495763*^9}, CellLabel->"Out[1]=", CellID->1374082647] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1889543966], Cell["Find all the waning gibbous moons within a date interval:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812299324425294*^9, 3.812299336643717*^9}, { 3.8123004313919344`*^9, 3.8123004317456307`*^9}, {3.8123718765415745`*^9, 3.812371905757665*^9}, {3.8127209819829087`*^9, 3.8127209875600705`*^9}, { 3.812721800488226*^9, 3.812721804323556*^9}}, CellID->125518546], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{ RowBox[{"DateInterval", "[", RowBox[{"{", RowBox[{ RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], "]"}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2020", ",", "4", ",", "1"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122989540529976`*^9, 3.812298980087551*^9}, 3.8122998875242786`*^9, {3.8123004125774174`*^9, 3.812300414718066*^9}, { 3.8123718827059064`*^9, 3.812371910357279*^9}, {3.812720990498189*^9, 3.812720996153832*^9}, {3.812721807584367*^9, 3.8127218120970354`*^9}, { 3.812722761066633*^9, 3.8127227631132126`*^9}, 3.8127228758115025`*^9}, CellLabel->"In[1]:=", CellID->149707321], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 10 Jan 2020 14:40:03\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 17 Jan 2020 08:48:13\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 10 Jan 2020 14:40:03\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Fri 17 Jan 2020 08:48:13\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 1, 10, 14, 40, 3.6328907012939453`}, { 2020, 1, 17, 8, 48, 13.895938396453857`}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 9 Feb 2020 02:36:36\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 15 Feb 2020 18:09:50\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sun 9 Feb 2020 02:36:36\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 15 Feb 2020 18:09:50\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 2, 9, 2, 36, 36.07273244857788}, { 2020, 2, 15, 18, 9, 50.3220796585083}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 15 Feb 2020 18:08:52\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 16 Mar 2020 05:29:01\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Sat 15 Feb 2020 18:08:52\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 16 Mar 2020 05:29:01\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 2, 15, 18, 8, 52.89547824859619}, { 2020, 3, 16, 5, 29, 1.490647315979004}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False], ",", InterpretationBox[ RowBox[{ TagBox["DateInterval", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 16 Mar 2020 05:28:40\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 14 Apr 2020 18:52:41\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], DynamicBox[ FEPrivate`FrontEndResource["FEExpressions", "DateObjectIcon"], ImageSizeCache -> {15., {3., 12.}}], GridBox[{{ RowBox[{ TagBox["\"Beginning: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Mon 16 Mar 2020 05:28:40\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Until: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Tue 14 Apr 2020 18:52:41\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Granularity: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Instant\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Calendar type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Gregorian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time zone: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"-", "5.`"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], DateInterval[{{{2020, 3, 16, 5, 28, 40.21334362030029}, { 2020, 4, 14, 18, 52, 41.22841930389404}}}, "Instant", "Gregorian", -5.], Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.812721832720883*^9, 3.8127224896229897`*^9, 3.8127227568996954`*^9, 3.812722882524767*^9, 3.812724377413001*^9, 3.813013069644286*^9, 3.813065428556499*^9}, CellLabel->"Out[1]=", CellID->653983060] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellLabel->"In[2]:=", CellID->776923543], Cell["Compute the next full moon in a specific time zone:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812376371791316*^9, 3.8123764092053337`*^9}, { 3.8123830398892145`*^9, 3.8123830399770145`*^9}, {3.814017953139512*^9, 3.814017953544691*^9}}, CellID->396885707], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8123764134397593`*^9, 3.8123764254091854`*^9}}, CellLabel->"In[1]:=", CellID->369144179], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Sat 31 Oct 2020 16:00:43\"", StyleBox["\"GMT\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "31", ",", "16", ",", "0", ",", "43.89730262756348`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", "0.`"}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8123764261812468`*^9, 3.8123826329374523`*^9, 3.812719151094441*^9, 3.81272439000556*^9, 3.8130130848881407`*^9, 3.813065430796198*^9}, CellLabel->"Out[1]=", CellID->455558343] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->577264726], Cell["Compute the nearest full moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294377733076*^9, 3.812294382663346*^9}, { 3.8123764390142355`*^9, 3.812376441254449*^9}}, CellID->197798888], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeDirection", "\[Rule]", "0"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812293934552126*^9, 3.812293942127145*^9}, 3.8122944969336834`*^9, 3.8122974623993216`*^9, 3.81229751193251*^9, 3.812299880462077*^9, {3.8123002606737413`*^9, 3.8123002614846354`*^9}}, CellLabel->"In[1]:=", CellID->205428197], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Sat 31 Oct 2020 11:00:43\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "31", ",", "11", ",", "0", ",", "43.89741897583008`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.812293943086561*^9, 3.812294563088809*^9, 3.812297543789693*^9, 3.8122999065740423`*^9, 3.81230011362965*^9, 3.812300187303791*^9, 3.812300262095871*^9, 3.8123826331589108`*^9, 3.812719151407629*^9, 3.8127243903546195`*^9, 3.8130130850812397`*^9, 3.813065432850775*^9}, CellLabel->"Out[1]=", CellID->1242036805] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1904616383], Cell["Compute the previous full moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.81229438710743*^9, 3.81229439263933*^9}, { 3.8123720460698605`*^9, 3.8123720473226385`*^9}, {3.81237644491284*^9, 3.8123764467598734`*^9}}, CellID->447979326], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeDirection", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122939489862995`*^9, 3.812293949044159*^9}, 3.8122944984991665`*^9, 3.8122974642825217`*^9, 3.8122975138600407`*^9, 3.8122998833370256`*^9, {3.812300266302183*^9, 3.812300266761279*^9}}, CellLabel->"In[1]:=", CellID->130428341], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Thu 1 Oct 2020 17:00:09\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "1", ",", "17", ",", "0", ",", "9.387830257415771`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8122939498814006`*^9, 3.8122945634168596`*^9, 3.812296018375239*^9, 3.8122975440679483`*^9, 3.812299913188882*^9, 3.8123001139514875`*^9, 3.81230018773875*^9, 3.81230026787049*^9, 3.8123826335538874`*^9, 3.812719151771324*^9, 3.8127243906958065`*^9, 3.8130130853468237`*^9, 3.813065436640884*^9}, CellLabel->"Out[1]=", CellID->241487776] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->496306899], Cell["Compute the nearest new moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294377733076*^9, 3.812294382663346*^9}, 3.8123004383114977`*^9, {3.8123764490331564`*^9, 3.812376450638834*^9}}, CellID->255830060], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeDirection", "\[Rule]", "0"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812293934552126*^9, 3.812293942127145*^9}, 3.8122944969336834`*^9, 3.8122974623993216`*^9, 3.81229751193251*^9, 3.812299880462077*^9, {3.8123002606737413`*^9, 3.8123002614846354`*^9}, 3.8123003374534492`*^9}, CellLabel->"In[1]:=", CellID->427201658], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Fri 16 Oct 2020 15:21:49\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "16", ",", "15", ",", "21", ",", "49.21284198760986`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.812293943086561*^9, 3.812294563088809*^9, 3.812297543789693*^9, 3.8122999065740423`*^9, 3.81230011362965*^9, 3.812300187303791*^9, 3.812300262095871*^9, 3.8123003384224205`*^9, 3.8123826339494233`*^9, 3.8127191520153003`*^9, 3.812724391093736*^9, 3.8130130856281123`*^9, 3.813065442104866*^9}, CellLabel->"Out[1]=", CellID->367138650] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->603566545], Cell["Compute the previous new moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.81229438710743*^9, 3.81229439263933*^9}, 3.812300436768471*^9, {3.812372039294278*^9, 3.812372040545829*^9}, { 3.8123764543025084`*^9, 3.8123764560467567`*^9}}, CellID->340434175], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeDirection", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122939489862995`*^9, 3.812293949044159*^9}, 3.8122944984991665`*^9, 3.8122974642825217`*^9, 3.8122975138600407`*^9, 3.8122998833370256`*^9, {3.812300266302183*^9, 3.812300266761279*^9}, 3.812300341062731*^9}, CellLabel->"In[1]:=", CellID->101381632], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Fri 16 Oct 2020 15:21:44\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "16", ",", "15", ",", "21", ",", "44.49040508270264`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8122939498814006`*^9, 3.8122945634168596`*^9, 3.812296018375239*^9, 3.8122975440679483`*^9, 3.812299913188882*^9, 3.8123001139514875`*^9, 3.81230018773875*^9, 3.81230026787049*^9, 3.812300342312974*^9, 3.8123826342527523`*^9, 3.8127191523314495`*^9, 3.812724391421853*^9, 3.8130130858782916`*^9, 3.813065444189942*^9}, CellLabel->"Out[1]=", CellID->1663921904] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1577657034], Cell["Compute the nearest first quarter moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294377733076*^9, 3.812294382663346*^9}, 3.8123004383114977`*^9, {3.8123719688791933`*^9, 3.812371970877946*^9}, { 3.8123764581984572`*^9, 3.812376459631648*^9}}, CellID->270353497], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeDirection", "\[Rule]", "0"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812293934552126*^9, 3.812293942127145*^9}, 3.8122944969336834`*^9, 3.8122974623993216`*^9, 3.81229751193251*^9, 3.812299880462077*^9, {3.8123002606737413`*^9, 3.8123002614846354`*^9}, 3.8123003374534492`*^9, {3.8123719758116446`*^9, 3.8123719779112015`*^9}}, CellLabel->"In[1]:=", CellID->210221569], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Fri 23 Oct 2020 08:44:28\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "23", ",", "8", ",", "44", ",", "28.630770683288574`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.812293943086561*^9, 3.812294563088809*^9, 3.812297543789693*^9, 3.8122999065740423`*^9, 3.81230011362965*^9, 3.812300187303791*^9, 3.812300262095871*^9, 3.8123003384224205`*^9, 3.8123719830982623`*^9, 3.812382634444796*^9, 3.8127191525598345`*^9, 3.8127243916811543`*^9, 3.8130130861594653`*^9, 3.8130654467948847`*^9}, CellLabel->"Out[1]=", CellID->1601394536] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->701180929], Cell["Compute the previous first quarter moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.81229438710743*^9, 3.81229439263933*^9}, 3.812300436768471*^9, {3.812371986597047*^9, 3.812371988503179*^9}, { 3.8123720233523693`*^9, 3.812372024599019*^9}, {3.812376462486066*^9, 3.812376463854399*^9}}, CellID->45084687], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeDirection", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122939489862995`*^9, 3.812293949044159*^9}, 3.8122944984991665`*^9, 3.8122974642825217`*^9, 3.8122975138600407`*^9, 3.8122998833370256`*^9, {3.812300266302183*^9, 3.812300266761279*^9}, 3.812300341062731*^9, {3.812371991441185*^9, 3.812371994502361*^9}}, CellLabel->"In[1]:=", CellID->135056970], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Fri 23 Oct 2020 08:44:28\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "23", ",", "8", ",", "44", ",", "28.63723850250244`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8122939498814006`*^9, 3.8122945634168596`*^9, 3.812296018375239*^9, 3.8122975440679483`*^9, 3.812299913188882*^9, 3.8123001139514875`*^9, 3.81230018773875*^9, 3.81230026787049*^9, 3.812300342312974*^9, 3.8123719955810165`*^9, 3.8123826345457377`*^9, 3.8127191527737656`*^9, 3.8127243918506966`*^9, 3.813013086378175*^9, 3.813065448148283*^9}, CellLabel->"Out[1]=", CellID->1625925079] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1505102614], Cell["Compute the nearest last quarter moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.812294377733076*^9, 3.812294382663346*^9}, 3.8123004383114977`*^9, {3.812372000078948*^9, 3.8123720024058743`*^9}, { 3.8123764656551685`*^9, 3.812376467037779*^9}}, CellID->450973504], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeDirection", "\[Rule]", "0"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.812293934552126*^9, 3.812293942127145*^9}, 3.8122944969336834`*^9, 3.8122974623993216`*^9, 3.81229751193251*^9, 3.812299880462077*^9, {3.8123002606737413`*^9, 3.8123002614846354`*^9}, 3.8123003374534492`*^9, {3.812372005564702*^9, 3.812372007349534*^9}}, CellLabel->"In[1]:=", CellID->715854412], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Sun 8 Nov 2020 09:32:06\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "11", ",", "8", ",", "9", ",", "32", ",", "6.607101917266846`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.812293943086561*^9, 3.812294563088809*^9, 3.812297543789693*^9, 3.8122999065740423`*^9, 3.81230011362965*^9, 3.812300187303791*^9, 3.812300262095871*^9, 3.8123003384224205`*^9, 3.812372008957396*^9, 3.8123826352953444`*^9, 3.81271915296628*^9, 3.8127243923755493`*^9, 3.8130130866595697`*^9, 3.813065450826441*^9}, CellLabel->"Out[1]=", CellID->1731434558] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->1049755485], Cell["Compute the previous last quarter moon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.81229438710743*^9, 3.81229439263933*^9}, 3.812300436768471*^9, {3.8123720143265696`*^9, 3.812372020601245*^9}, { 3.8123764705087442`*^9, 3.812376471806327*^9}}, CellID->556416468], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MoonPhaseDate", "[", RowBox[{"\"\\"", ",", RowBox[{"TimeDirection", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8122939489862995`*^9, 3.812293949044159*^9}, 3.8122944984991665`*^9, 3.8122974642825217`*^9, 3.8122975138600407`*^9, 3.8122998833370256`*^9, {3.812300266302183*^9, 3.812300266761279*^9}, 3.812300341062731*^9, 3.8123720309532127`*^9}, CellLabel->"In[1]:=", CellID->76216344], Cell[BoxData[ TemplateBox[{ RowBox[{"\"Fri 9 Oct 2020 20:32:10\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", StyleBox[ RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> False]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ "2020", ",", "10", ",", "9", ",", "20", ",", "32", ",", "10.999481201171875`"}], "}"}], ",", "\"Instant\"", ",", "\"Gregorian\"", ",", RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8122939498814006`*^9, 3.8122945634168596`*^9, 3.812296018375239*^9, 3.8122975440679483`*^9, 3.812299913188882*^9, 3.8123001139514875`*^9, 3.81230018773875*^9, 3.81230026787049*^9, 3.812300342312974*^9, 3.812372033059185*^9, 3.812382635459791*^9, 3.812719153074956*^9, 3.812724392510186*^9, 3.8130130868312426`*^9, 3.813065452194829*^9}, CellLabel->"Out[1]=", CellID->1520758794] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->348526984], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell["Jeff Bryant", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell["full moon", "Item"], Cell["new moon", "Item"], Cell["first quarter moon", "Item"], Cell["1st quarter moon", "Item"], Cell["last quarter moon", "Item"], Cell["3rd quarter moon", "Item"], Cell["moon phase", "Item"], Cell["moon phases", "Item"], Cell["moon", "Item"], Cell["next full moon", "Item"], Cell["last full moon", "Item"], Cell["previous full moon", "Item"], Cell["nearest full moon", "Item"], Cell["next new moon", "Item"], Cell["last new moon", "Item"], Cell["previous new moon", "Item"], Cell["nearest new moon", "Item"], Cell["next first quarter moon", "Item"], Cell["next 1st quarter moon", "Item"], Cell["last first quarter moon", "Item"], Cell["last 1st quarter moon", "Item"], Cell["previous first quarter moon", "Item"], Cell["previous 1st quarter moon", "Item"], Cell["nearest first quarter moon", "Item"], Cell["nearest 1st quarter moon", "Item"], Cell["next last quarter moon", "Item"], Cell["next 3rd quarter moon", "Item"], Cell["last last quarter moon", "Item"], Cell["last 3rd quarter moon", "Item"], Cell["previous last quarter moon", "Item"], Cell["previous 3rd quarter moon", "Item"], Cell["nearest last quarter moon", "Item"], Cell["nearest 3rd quarter moon", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Scientific and Medical Data & Computation", { False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound"}], "\" \"", "\"Sound\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Time-Related Computation", {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, ColumnsEqual->True, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{}, RowsEqual->True], "Grid"]], "Output", Editable->False, Deletable->False, CellTags->"CategoriesCell"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell["MoonPhase", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests", Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"MoonPhaseDate | Definition Notebook", TaggingRules->{ "CreationTimestamp" -> 3.81402087522646`16.333958054894286*^9, "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.81402087558812`16.33395805493547*^9, "TemplateVersion" -> "1.3.1"}, CreateCellID->True, FrontEndVersion->"12.1 for Linux x86 (64-bit) (September 11, 2020)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, AutoQuoteCharacters -> {}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.4588, 0.4588, 0.4588]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.0909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.6274, 0.6274, 0.6274, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[0.6274, 0.6274, 0.6274, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.0909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.0444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ = 0., ResourceSystemClientTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ > ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.9882, 0.4196, 0.2039], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TemplateInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ LiteralInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ DelimiterInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ SubscriptInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, Null]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableInsert[2]]; Null]]], "\"Insert table with three columns\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableInsert[3]]; Null]]], "\"Add a row to the selected table\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableRowInsert[]]; Null]]], "\"Sort the selected table\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableSort[]]; Null]]], "\"Merge selected tables\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableMerge[]]; Null]]]}, Appearance -> None, Method -> "Queued"], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ CommentInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.9882, 0.4196, 0.2039], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ViewExampleNotebook[ ButtonNotebook[]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ViewStyleGuidelines[ ButtonNotebook[]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 10, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 10, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ToggleToolbar[ ButtonNotebook[]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.9941, 0.7098, 0.602]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`CheckDefinitionNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`PreviewResource[ ButtonNotebook[], "Notebook"]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"On the cloud\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`PreviewResource[ ButtonNotebook[], "Cloud"]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "Local"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"For my cloud account\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"Publicly in the cloud\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "CloudPublic"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"In this session only (without documentation)\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "KernelSession"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[0.9608, 0.7059, 0.498, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, ResourceSystemClient`DefinitionNotebook`\ SubmitRepositoryUpdate[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb], "ShowProgress" -> True]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[0.9608, 0.7059, 0.498, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, ResourceSystemClient`DefinitionNotebook`SubmitRepository[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb], "ShowProgress" -> True]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.9882, 0.4196, 0.2039], RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.9882, 0.4196, 0.2039], 2 -> RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.9882, 0.4196, 0.2039]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$, If[ TrueQ[#4], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; #2[]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, {TaggingRules, "StatusMessage"}] = ""; Null], #2[]]]; Null]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.9216, 0.3412, 0.1059], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.0556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.3084}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.3084}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/sWTrBh9WVTg5rt0 5zz/3akCt//sGRBQgbsPxoe5H8aH+Q+mH+Z/mPmw8IHZDws/mPtg4Yse/gBw FJLS "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.9216, 0.3412, 0.1059]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.6144, 0.2275, 0.0706]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.8549, 0.3961, 0.1451], RGBColor[0.0196, 0.2863, 0.651]]]], Cell[ StyleData["StringTypeLink"], TemplateBoxOptions -> {DisplayFunction :> (TagBox[ DynamicBox[ If[ CurrentValue["MouseOver"], ButtonBox[ StyleBox[#, FontColor -> RGBColor[0.9686, 0.4667, 0.]], ButtonData -> #2], ButtonBox[#, ButtonData -> #2]]], MouseAppearanceTag["LinkHand"]]& )}, ButtonBoxOptions -> { BaseStyle -> {FontColor -> GrayLevel[0.4667], "Link"}}], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.9059]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.8807, 0.611, 0.1421], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821, 0.9417, 0.8713]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.3684, 0.5068, 0.7098], Background -> RGBColor[0.9053, 0.926, 0.9565]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.5602, 0.6916, 0.1949], Background -> RGBColor[0.934, 0.9537, 0.8792]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.1 for Linux x86 (64-bit) (September 11, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[607, 21, 76, 1, 70, "Title",ExpressionUUID->"97437073-b784-4567-b47f-cfa2904f9dd9", CellTags->{"Name", "TemplateCell", "Title"}]}, "TemplateCell"->{ Cell[607, 21, 76, 1, 70, "Title",ExpressionUUID->"97437073-b784-4567-b47f-cfa2904f9dd9", CellTags->{"Name", "TemplateCell", "Title"}], Cell[686, 24, 108, 1, 70, "Text",ExpressionUUID->"9ae81bfc-a641-4059-bab6-9b1189f7bbba", CellTags->{"Description", "TemplateCell"}]}, "Title"->{ Cell[607, 21, 76, 1, 70, "Title",ExpressionUUID->"97437073-b784-4567-b47f-cfa2904f9dd9", CellTags->{"Name", "TemplateCell", "Title"}]}, "Description"->{ Cell[686, 24, 108, 1, 70, "Text",ExpressionUUID->"9ae81bfc-a641-4059-bab6-9b1189f7bbba", CellTags->{"Description", "TemplateCell"}]}, "Definition"->{ Cell[819, 29, 946, 23, 70, "Section",ExpressionUUID->"44bcac82-895f-4233-ba5a-9099ba48d6b7", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301]}, "Function"->{ Cell[819, 29, 946, 23, 70, "Section",ExpressionUUID->"44bcac82-895f-4233-ba5a-9099ba48d6b7", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301]}, "TemplateCellGroup"->{ Cell[819, 29, 946, 23, 70, "Section",ExpressionUUID->"44bcac82-895f-4233-ba5a-9099ba48d6b7", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[70593, 1808, 1697, 44, 70, "Subsection",ExpressionUUID->"7ccbec24-7d19-40d8-8a3b-cfbffb3b8500", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[74705, 1958, 1187, 26, 70, "Subsection",ExpressionUUID->"ac3c2ad5-8a19-40e6-9668-e9d7d075f101", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[81526, 2182, 6634, 145, 70, "Section",ExpressionUUID->"0c06b13e-2299-40c5-913a-926d9ae306db", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[293108, 7248, 756, 20, 70, "Subsection",ExpressionUUID->"88662f53-c1af-433e-9ab1-5dc2d0ad8f5d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell[293931, 7275, 731, 20, 70, "Subsection",ExpressionUUID->"bc0dbc65-9cdd-4d7d-a632-198987d9f22a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell[295933, 7366, 130, 3, 70, "Subsection",ExpressionUUID->"90bc3462-f287-4056-a849-5699b5574a43", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[302538, 7592, 708, 20, 70, "Subsection",ExpressionUUID->"6b10f1f5-f0a9-4f1f-8926-c436405e7667", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell[303311, 7619, 758, 20, 70, "Subsection",ExpressionUUID->"61973290-e3da-406a-913f-df936c011d78", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell[304617, 7654, 809, 21, 70, "Subsection",ExpressionUUID->"bbccf74e-c583-4076-b901-961b46ea95fa", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell[305962, 7690, 661, 20, 70, "Subsection",ExpressionUUID->"897ee20f-6c8f-42fe-9599-2d84f800bfee", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell[307148, 7725, 836, 22, 70, "Subsection",ExpressionUUID->"e84d281d-57dc-45c5-9521-28aea96a5d33", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[308295, 7767, 131, 3, 70, "Section",ExpressionUUID->"eb1a11de-3348-4ae9-9dae-df7f18dfe479", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell[308975, 7785, 766, 21, 70, "Section",ExpressionUUID->"4ada48b3-f24c-41db-8ba7-288c9300317d", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912]}, "Documentation"->{ Cell[70488, 1802, 80, 2, 70, "Section",ExpressionUUID->"a3488e01-e2b9-4e74-a8d3-e396ad47b313", CellTags->"Documentation", CellID->363488142]}, "Usage"->{ Cell[70593, 1808, 1697, 44, 70, "Subsection",ExpressionUUID->"7ccbec24-7d19-40d8-8a3b-cfbffb3b8500", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351]}, "Details & Options"->{ Cell[74705, 1958, 1187, 26, 70, "Subsection",ExpressionUUID->"ac3c2ad5-8a19-40e6-9668-e9d7d075f101", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349]}, "Notes"->{ Cell[74705, 1958, 1187, 26, 70, "Subsection",ExpressionUUID->"ac3c2ad5-8a19-40e6-9668-e9d7d075f101", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349]}, "TabNext"->{ Cell[78865, 2091, 1179, 38, 70, "Notes",ExpressionUUID->"3e059a40-f396-4520-afdc-61f8818e6a56", CellTags->"TabNext", CellID->521904482], Cell[304072, 7641, 508, 8, 70, "Item",ExpressionUUID->"36e9b7a9-7537-429e-a7c3-c23adc95dd60", CellTags->"TabNext", CellID->960273585], Cell[305429, 7677, 496, 8, 70, "Text",ExpressionUUID->"ce1bd71f-7e81-4b25-b973-aac1015a1a3b", CellTags->"TabNext", CellID->343081869], Cell[306626, 7712, 485, 8, 70, "Item",ExpressionUUID->"287c5aca-b0d1-4d13-bb87-d07d45ba8fbd", CellTags->"TabNext", CellID->485448166], Cell[308429, 7772, 509, 8, 70, "Text",ExpressionUUID->"5d98bc02-5cc8-4063-86d5-16057d3f2254", CellTags->"TabNext", CellID->567921317], Cell[309744, 7808, 495, 8, 70, "Text",ExpressionUUID->"adc8f2dc-6ce0-402a-b38b-a8af2bf1ab2f", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[81526, 2182, 6634, 145, 70, "Section",ExpressionUUID->"0c06b13e-2299-40c5-913a-926d9ae306db", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095]}, "Source & Additional Information"->{ Cell[292967, 7242, 116, 2, 70, "Section",ExpressionUUID->"b67d7b3c-4e16-4e25-b109-f9385b1bc228", CellTags->"Source & Additional Information", CellID->348526984]}, "Contributed By"->{ Cell[293108, 7248, 756, 20, 70, "Subsection",ExpressionUUID->"88662f53-c1af-433e-9ab1-5dc2d0ad8f5d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318]}, "ContributorInformation"->{ Cell[293108, 7248, 756, 20, 70, "Subsection",ExpressionUUID->"88662f53-c1af-433e-9ab1-5dc2d0ad8f5d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318]}, "Keywords"->{ Cell[293931, 7275, 731, 20, 70, "Subsection",ExpressionUUID->"bc0dbc65-9cdd-4d7d-a632-198987d9f22a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024]}, "Categories"->{ Cell[295933, 7366, 130, 3, 70, "Subsection",ExpressionUUID->"90bc3462-f287-4056-a849-5699b5574a43", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210]}, "CategoriesCell"->{ Cell[296066, 7371, 6435, 216, 70, "Output",ExpressionUUID->"58c49ddc-6896-48bb-9681-8f31b85a6135", CellTags->"CategoriesCell"]}, "Related Symbols"->{ Cell[302538, 7592, 708, 20, 70, "Subsection",ExpressionUUID->"6b10f1f5-f0a9-4f1f-8926-c436405e7667", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732]}, "Related Resource Objects"->{ Cell[303311, 7619, 758, 20, 70, "Subsection",ExpressionUUID->"61973290-e3da-406a-913f-df936c011d78", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204]}, "Source/Reference Citation"->{ Cell[304617, 7654, 809, 21, 70, "Subsection",ExpressionUUID->"bbccf74e-c583-4076-b901-961b46ea95fa", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096]}, "Links"->{ Cell[305962, 7690, 661, 20, 70, "Subsection",ExpressionUUID->"897ee20f-6c8f-42fe-9599-2d84f800bfee", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713]}, "Tests"->{ Cell[307148, 7725, 836, 22, 70, "Subsection",ExpressionUUID->"e84d281d-57dc-45c5-9521-28aea96a5d33", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658]}, "VerificationTests"->{ Cell[307148, 7725, 836, 22, 70, "Subsection",ExpressionUUID->"e84d281d-57dc-45c5-9521-28aea96a5d33", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658]}, "Author Notes"->{ Cell[308295, 7767, 131, 3, 70, "Section",ExpressionUUID->"eb1a11de-3348-4ae9-9dae-df7f18dfe479", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409]}, "Submission Notes"->{ Cell[308975, 7785, 766, 21, 70, "Section",ExpressionUUID->"4ada48b3-f24c-41db-8ba7-288c9300317d", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 396800, 9498}, {"TemplateCell", 396960, 9501}, {"Title", 397251, 9506}, {"Description", 397410, 9509}, {"Definition", 397566, 9512}, {"Function", 397762, 9516}, {"TemplateCellGroup", 397967, 9520}, {"Documentation", 400534, 9563}, {"Usage", 400697, 9567}, {"Details & Options", 400893, 9571}, {"Notes", 401097, 9575}, {"TabNext", 401303, 9579}, {"Examples", 402179, 9598}, {"Source & Additional Information", 402390, 9602}, {"Contributed By", 402582, 9606}, {"ContributorInformation", 402818, 9610}, {"Keywords", 403040, 9614}, {"Categories", 403232, 9618}, {"CategoriesCell", 403429, 9622}, {"Related Symbols", 403585, 9625}, {"Related Resource Objects", 403798, 9629}, {"Source/Reference Citation", 404021, 9633}, {"Links", 404225, 9637}, {"Tests", 404409, 9641}, {"VerificationTests", 404626, 9645}, {"Author Notes", 404838, 9649}, {"Submission Notes", 405036, 9653} } *) (*NotebookFileOutline Notebook[{ Cell[607, 21, 76, 1, 70, "Title",ExpressionUUID->"97437073-b784-4567-b47f-cfa2904f9dd9", CellTags->{"Name", "TemplateCell", "Title"}], Cell[686, 24, 108, 1, 70, "Text",ExpressionUUID->"9ae81bfc-a641-4059-bab6-9b1189f7bbba", CellTags->{"Description", "TemplateCell"}], Cell[CellGroupData[{ Cell[819, 29, 946, 23, 70, "Section",ExpressionUUID->"44bcac82-895f-4233-ba5a-9099ba48d6b7", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[1768, 54, 396, 12, 70, "Input",ExpressionUUID->"258da6cc-0329-4f99-a471-bf95979e82e9", InitializationCell->True, CellID->91597805], Cell[2167, 68, 426, 13, 70, "Input",ExpressionUUID->"dd1f74ee-66e8-46c2-bdb8-cda3cbdd6583", InitializationCell->True, CellID->382672939], Cell[2596, 83, 1062, 30, 70, "Input",ExpressionUUID->"81c6301c-7586-45ff-8610-2181aa32e756", InitializationCell->True, CellID->177923368], Cell[3661, 115, 966, 28, 70, "Input",ExpressionUUID->"3e7e767d-d27e-4473-bc98-4bf9919c40bb", InitializationCell->True, CellID->153547055], Cell[4630, 145, 998, 29, 70, "Input",ExpressionUUID->"145b5a67-1b5f-4084-8536-885555218103", InitializationCell->True, CellID->73399602], Cell[5631, 176, 1106, 30, 70, "Input",ExpressionUUID->"da0935ad-b88d-48a5-8590-a295384660bf", InitializationCell->True, CellID->71199948], Cell[6740, 208, 1018, 29, 70, "Input",ExpressionUUID->"53c2bc8d-d3f4-4e96-8a43-dc81c8337450", InitializationCell->True, CellID->103658292], Cell[7761, 239, 1049, 30, 70, "Input",ExpressionUUID->"c01a9f8b-b50b-4ae7-a708-470293ebbad8", InitializationCell->True, CellID->134728654], Cell[8813, 271, 4326, 106, 70, "Input",ExpressionUUID->"6b94e701-942b-40c6-9f35-28633a0f2338", InitializationCell->True, CellID->314948624], Cell[13142, 379, 4496, 107, 70, "Input",ExpressionUUID->"12904931-b915-46ee-9d1e-e5084a636be0", InitializationCell->True, CellID->99530894], Cell[17641, 488, 1652, 44, 70, "Input",ExpressionUUID->"46028256-cc99-4c3c-b55b-11b366f742b5", InitializationCell->True, CellID->2319405], Cell[19296, 534, 4422, 107, 70, "Input",ExpressionUUID->"c8c58b6d-905b-4708-850e-1eee6ac42724", InitializationCell->True, CellID->630832285], Cell[23721, 643, 4597, 109, 70, "Input",ExpressionUUID->"e6bbbe2a-0f04-490a-83bc-f41e9b012e05", InitializationCell->True, CellID->100648982], Cell[28321, 754, 1852, 47, 70, "Input",ExpressionUUID->"6e3a7a5d-ca64-4662-8967-f7911544605b", InitializationCell->True, CellID->327021929], Cell[30176, 803, 817, 22, 70, "Input",ExpressionUUID->"bc8ca6c3-adff-4fda-8c97-0599754a0d94", InitializationCell->True, CellID->661943481], Cell[30996, 827, 898, 24, 70, "Input",ExpressionUUID->"a0ec4fc0-ab85-4c5f-916c-86e81fbbe177", InitializationCell->True, CellID->81836751], Cell[31897, 853, 2770, 70, 70, "Input",ExpressionUUID->"aa1129b6-ee4c-4997-8938-a29f829157eb", InitializationCell->True, CellID->608019194], Cell[34670, 925, 939, 25, 70, "Input",ExpressionUUID->"305aab85-4edc-4dc7-a6d0-e8d5b47b25a0", InitializationCell->True, CellID->425340923], Cell[35612, 952, 1024, 25, 70, "Input",ExpressionUUID->"28f4a470-3b5d-439f-b3c1-7422b8e5879e", InitializationCell->True, CellID->193187108], Cell[36639, 979, 2495, 67, 70, "Input",ExpressionUUID->"b26439ec-730b-42ad-a986-81655e1a39d8", InitializationCell->True, CellID->13048791], Cell[39137, 1048, 882, 24, 70, "Input",ExpressionUUID->"17c4ede3-3fb5-4fe6-b55f-6e41e22639e3", InitializationCell->True, CellID->315745841], Cell[40022, 1074, 889, 24, 70, "Input",ExpressionUUID->"bc322cf7-bc03-4c70-9093-b9fc83ebe750", InitializationCell->True, CellID->19793260], Cell[40914, 1100, 2443, 66, 70, "Input",ExpressionUUID->"ba88f243-1e12-4a55-b237-4ae84c06c8ec", InitializationCell->True, CellID->396982434], Cell[43360, 1168, 921, 25, 70, "Input",ExpressionUUID->"58352e13-9c42-4369-866a-7f862c6550bf", InitializationCell->True, CellID->57111135], Cell[44284, 1195, 957, 25, 70, "Input",ExpressionUUID->"8ae7ecf2-f42f-423e-b803-5ba31a58835c", InitializationCell->True, CellID->391331505], Cell[45244, 1222, 2441, 66, 70, "Input",ExpressionUUID->"d4b57866-417f-4940-8573-a0df1b40d408", InitializationCell->True, CellID->294617321], Cell[47688, 1290, 547, 13, 70, "Input",ExpressionUUID->"c049c12f-ea7f-4482-aea4-c2b63150408a", InitializationCell->True, CellID->5877248], Cell[48238, 1305, 666, 16, 70, "Input",ExpressionUUID->"328d6479-e4ad-405c-8e39-9802d8549618", InitializationCell->True, CellID->461295163], Cell[48907, 1323, 346, 9, 70, "Input",ExpressionUUID->"39954d8c-9e0e-4526-babe-6a0063cb382d", InitializationCell->True, CellID->140999770], Cell[49256, 1334, 867, 23, 70, "Input",ExpressionUUID->"da0178c6-b98a-4ac6-aadb-4d3713c5b7ec", InitializationCell->True, CellID->725873713], Cell[50126, 1359, 6190, 128, 70, "Input",ExpressionUUID->"35d949e6-137c-4dc3-865c-49ec1f606e8b", InitializationCell->True, CellID->676561043], Cell[56319, 1489, 702, 15, 70, "Input",ExpressionUUID->"ea91f1eb-24f7-4284-bf30-45a82f516cd7", InitializationCell->True, CellID->431241406], Cell[57024, 1506, 817, 18, 70, "Input",ExpressionUUID->"3efacf99-aadf-48d7-b67d-467a1c67574c", InitializationCell->True, CellID->35051270], Cell[57844, 1526, 859, 18, 70, "Input",ExpressionUUID->"0b98ca5b-f838-42b1-8b71-464af0528d86", InitializationCell->True, CellID->152914112], Cell[58706, 1546, 11318, 239, 70, "Input",ExpressionUUID->"3bada49f-1437-4736-b813-b2131e0de5da", InitializationCell->True, CellID->163760185], Cell[70027, 1787, 446, 12, 70, "Input",ExpressionUUID->"c1603d54-d8ff-4506-b041-09e361c13dd0", InitializationCell->True, CellID->253881348] }, Open ]], Cell[70488, 1802, 80, 2, 70, "Section",ExpressionUUID->"a3488e01-e2b9-4e74-a8d3-e396ad47b313", CellTags->"Documentation", CellID->363488142], Cell[CellGroupData[{ Cell[70593, 1808, 1697, 44, 70, "Subsection",ExpressionUUID->"7ccbec24-7d19-40d8-8a3b-cfbffb3b8500", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[CellGroupData[{ Cell[72315, 1856, 99, 2, 70, "UsageInputs",ExpressionUUID->"18ba1992-fff7-4a8c-9dac-ebcabcf59822"], Cell[72417, 1860, 68, 0, 70, "UsageDescription",ExpressionUUID->"1bdf70f8-5f7d-4f5f-8965-ed07fb33849e"] }, Open ]], Cell[CellGroupData[{ Cell[72522, 1865, 126, 3, 70, "UsageInputs",ExpressionUUID->"1cdf5d5c-4414-4d69-b915-bc3846299d49"], Cell[72651, 1870, 202, 6, 70, "UsageDescription",ExpressionUUID->"4fc08fde-33d4-49e8-a3b5-8a5957b53593"] }, Open ]], Cell[CellGroupData[{ Cell[72890, 1881, 127, 3, 70, "UsageInputs",ExpressionUUID->"002456a6-a6cd-4f60-864e-61d312491846"], Cell[73020, 1886, 185, 6, 70, "UsageDescription",ExpressionUUID->"51673781-3395-46e8-9333-c4fedc0dacc2"] }, Open ]], Cell[CellGroupData[{ Cell[73242, 1897, 174, 5, 70, "UsageInputs",ExpressionUUID->"988b60cc-c41e-4bad-90d1-e13b32266380"], Cell[73419, 1904, 314, 10, 70, "UsageDescription",ExpressionUUID->"7bf1963d-0d4b-41ab-95f5-085d3e11dd4d"] }, Open ]], Cell[CellGroupData[{ Cell[73770, 1919, 134, 3, 70, "UsageInputs",ExpressionUUID->"b678b63c-868e-4eea-8866-ecc769fb3d77"], Cell[73907, 1924, 208, 6, 70, "UsageDescription",ExpressionUUID->"32fc037a-efa5-40f2-bc3d-4f5752d508e4"] }, Open ]], Cell[CellGroupData[{ Cell[74152, 1935, 182, 5, 70, "UsageInputs",ExpressionUUID->"87e80f20-0d10-4a16-8d78-da08d37206bc"], Cell[74337, 1942, 319, 10, 70, "UsageDescription",ExpressionUUID->"77202135-e9ee-41e8-b2e0-919fec1d9c5e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74705, 1958, 1187, 26, 70, "Subsection",ExpressionUUID->"ac3c2ad5-8a19-40e6-9668-e9d7d075f101", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[75895, 1986, 986, 30, 70, "Notes",ExpressionUUID->"8a4ef000-2917-4dcf-889d-1267cfca2046", CellID->485551412], Cell[76884, 2018, 653, 23, 70, "Notes",ExpressionUUID->"9644d1c1-0428-409b-847b-b35971294bd8", CellID->850294048], Cell[77540, 2043, 567, 19, 70, "Notes",ExpressionUUID->"ef17b880-aa1d-4cf2-8854-244f52f4702a", CellID->156541368], Cell[78110, 2064, 752, 25, 70, "Notes",ExpressionUUID->"3d93c691-81d7-40b2-a27a-1ae6658c93b5", CellID->724793727], Cell[78865, 2091, 1179, 38, 70, "Notes",ExpressionUUID->"3e059a40-f396-4520-afdc-61f8818e6a56", CellTags->"TabNext", CellID->521904482], Cell[80047, 2131, 584, 19, 70, "Notes",ExpressionUUID->"37a88d33-0e0e-4593-a35f-0c412782d343", CellID->304567377], Cell[80634, 2152, 265, 5, 70, "TableNotes",ExpressionUUID->"a68aae3d-d445-44ba-9c9e-62c5296e6422", CellID->29727486], Cell[80902, 2159, 587, 18, 70, "Notes",ExpressionUUID->"232c0240-932c-44ad-8c84-dc1b7d48245b", CellID->564945957] }, Open ]], Cell[CellGroupData[{ Cell[81526, 2182, 6634, 145, 70, "Section",ExpressionUUID->"0c06b13e-2299-40c5-913a-926d9ae306db", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[CellGroupData[{ Cell[88185, 2331, 99, 3, 70, "Subsection",ExpressionUUID->"51dd248d-f121-4d2a-9dc5-39f2ea30e995", CellID->462042388], Cell[88287, 2336, 212, 4, 70, "Text",ExpressionUUID->"8dcdaf12-5964-41a7-aac8-7ef77c2fd33b", CellID->679978943], Cell[CellGroupData[{ Cell[88524, 2344, 555, 10, 70, "Input",ExpressionUUID->"4c903e3c-9f3f-4972-83d4-3801308e9c62", CellID->75027184], Cell[89082, 2356, 1498, 32, 70, "Output",ExpressionUUID->"36093c6e-33a0-4264-b3ae-415a7c40a4e0", CellID->67512654] }, Open ]], Cell[CellGroupData[{ Cell[90617, 2393, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"8b895eff-bce6-4fb3-9e8c-a94d25e589e3", CellID->1881179067], Cell[90765, 2399, 162, 4, 70, "Text",ExpressionUUID->"6670e9fd-93d8-4f9c-8dac-f08ae6118c4e", CellID->14530796], Cell[CellGroupData[{ Cell[90952, 2407, 607, 11, 70, "Input",ExpressionUUID->"b5c6ef10-6d04-49e9-b587-7e3e8b4035cb", CellID->518004895], Cell[91562, 2420, 1399, 31, 70, "Output",ExpressionUUID->"ac23a1c8-126a-4652-962d-3188a0cfcee6", CellID->2066847906] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[93010, 2457, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"20b41604-c782-4767-8dda-e82ff600d855", CellID->1722327935], Cell[93158, 2463, 158, 3, 70, "Text",ExpressionUUID->"ca0eeb04-24a5-4183-8b1b-aa137a8f5537", CellID->96158066], Cell[CellGroupData[{ Cell[93341, 2470, 462, 12, 70, "Input",ExpressionUUID->"c85ff850-fc90-4860-a05f-ceee68b2d17d", CellID->121139976], Cell[93806, 2484, 1078, 27, 70, "Output",ExpressionUUID->"6977ee78-2750-48a4-99fe-5a486cf54ffa", CellID->1587145684] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[94933, 2517, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"0897f8b4-c06f-467c-a955-053c1a5acec5", CellID->1233525632], Cell[95081, 2523, 183, 4, 70, "Text",ExpressionUUID->"117689ce-918e-4018-97d5-3af0d59c68cb", CellID->59377651], Cell[CellGroupData[{ Cell[95289, 2531, 484, 12, 70, "Input",ExpressionUUID->"38bb2a1f-b4b7-4d24-b106-f395793a9467", CellID->193440356], Cell[95776, 2545, 1099, 27, 70, "Output",ExpressionUUID->"dfe4aebc-a536-4268-bd0b-263b88d07d4a", CellID->730531300] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[96924, 2578, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9e4d4907-4142-4c50-bc7c-6cca67ab6ba2", CellID->58168886], Cell[97070, 2584, 168, 3, 70, "Text",ExpressionUUID->"5e183b42-4fba-4a08-b95e-4e8f15b9cea1", CellID->499525245], Cell[CellGroupData[{ Cell[97263, 2591, 623, 17, 70, "Input",ExpressionUUID->"8b4370f4-b981-4175-8511-d4d7e0feb129", CellID->111477791], Cell[97889, 2610, 8670, 233, 70, "Output",ExpressionUUID->"14e26c92-4220-4147-9a55-bafc1863324a", CellID->269821980] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[106608, 2849, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"7cf07e45-82a1-4a12-99df-ba5381c6862a", CellID->539407617], Cell[106755, 2855, 220, 4, 70, "Text",ExpressionUUID->"c17012da-2947-4bef-ad0b-e4d66f5fb788", CellID->758225723], Cell[CellGroupData[{ Cell[107000, 2863, 622, 17, 70, "Input",ExpressionUUID->"76dad2fc-64cc-42d0-90b6-1532a1a725ae", CellID->420656350], Cell[107625, 2882, 8057, 216, 70, "Output",ExpressionUUID->"288d9f4d-6e90-473e-b70a-aade726f75e5", CellID->1648454787] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[115743, 3105, 89, 3, 70, "Subsection",ExpressionUUID->"67753227-4a3a-4940-afd9-639975783cc7", CellID->964056545], Cell[115835, 3110, 251, 5, 70, "Text",ExpressionUUID->"0a7541e8-dbc6-448d-a27c-268d3a7c5a4e", CellID->201877151], Cell[CellGroupData[{ Cell[116111, 3119, 616, 11, 70, "Input",ExpressionUUID->"2ca92a53-f377-48e2-885f-6de8e2f6f6dd", CellID->678740665], Cell[116730, 3132, 1396, 31, 70, "Output",ExpressionUUID->"b4251168-f798-4616-a28b-d0dde288b798", CellID->2081777111] }, Open ]], Cell[CellGroupData[{ Cell[118163, 3168, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"f6015266-35d1-4808-95a2-f5970b2d3193", CellID->1498006008], Cell[118311, 3174, 293, 5, 70, "Text",ExpressionUUID->"c3e86604-712d-498c-a4df-98d118068d8c", CellID->29032014], Cell[CellGroupData[{ Cell[118629, 3183, 663, 11, 70, "Input",ExpressionUUID->"7bddb835-bf5c-429c-9ad3-0090efd324ec", CellID->269737160], Cell[119295, 3196, 1449, 32, 70, "Output",ExpressionUUID->"2dac245d-71a1-4da6-9413-57765143441f", CellID->760601590] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[120793, 3234, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"066db20f-f8a7-4102-a1c8-b9ae915acda3", CellID->2036182675], Cell[120941, 3240, 298, 5, 70, "Text",ExpressionUUID->"3cdc6373-eb66-4529-9335-92cf561cab1d", CellID->89519715], Cell[CellGroupData[{ Cell[121264, 3249, 715, 12, 70, "Input",ExpressionUUID->"e07bef29-13ab-4b68-969c-fa4aa5a2c20a", CellID->680111298], Cell[121982, 3263, 5637, 114, 70, "Output",ExpressionUUID->"9c0131b9-1602-4d3d-933d-f3813daf41a1", CellID->1450392653] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[127668, 3383, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"edfcd6c0-112e-48b7-9e92-ec88e40b7c3b", CellID->1970303780], Cell[127816, 3389, 300, 5, 70, "Text",ExpressionUUID->"f40546c4-bfa0-4347-a296-6787ea11ddf8", CellID->93418547], Cell[CellGroupData[{ Cell[128141, 3398, 718, 12, 70, "Input",ExpressionUUID->"2f43b735-62a0-4d7c-8109-2dfdd8ff059e", CellID->210496037], Cell[128862, 3412, 5660, 114, 70, "Output",ExpressionUUID->"26c1f2d8-0b1b-4493-9526-0e94e8bec9ba", CellID->345160088] }, Open ]], Cell[134537, 3529, 349, 6, 70, "Text",ExpressionUUID->"6c150820-66f7-47cc-a06e-21cff18b6e38", CellID->202120163], Cell[CellGroupData[{ Cell[134911, 3539, 766, 13, 70, "Input",ExpressionUUID->"10c5effd-c6bb-449b-855a-703e98bd03a3", CellID->496521116], Cell[135680, 3554, 5655, 114, 70, "Output",ExpressionUUID->"b682fec9-b4a5-4d11-ad08-b382e87b8a98", CellID->1563837046] }, Open ]], Cell[141350, 3671, 350, 6, 70, "Text",ExpressionUUID->"3901e858-ce08-487f-9161-305a97d3ca99", CellID->41562907], Cell[CellGroupData[{ Cell[141725, 3681, 768, 13, 70, "Input",ExpressionUUID->"162b70ba-a007-4085-a638-b5b1e2a32a01", CellID->36161351], Cell[142496, 3696, 5690, 116, 70, "Output",ExpressionUUID->"1fc60452-a2b6-4ba2-928f-ab837a80f596", CellID->1273422176] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[148235, 3818, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"46c49064-a97f-40d6-b031-ce3dc74e27b9", CellID->500967184], Cell[148382, 3824, 269, 5, 70, "Text",ExpressionUUID->"a77a422b-b74c-48fe-9328-713489421e79", CellID->918660108], Cell[CellGroupData[{ Cell[148676, 3833, 548, 13, 70, "Input",ExpressionUUID->"909c975d-5d11-42e2-9006-4493097b15f8", CellID->516691597], Cell[149227, 3848, 1127, 27, 70, "Output",ExpressionUUID->"02f31746-a60d-48cb-825d-3c8cdfafa72f", CellID->975553256] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[150403, 3881, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"920a27cf-2e2a-468d-96eb-57bc08d95573", CellID->697793720], Cell[150550, 3887, 269, 5, 70, "Text",ExpressionUUID->"54c091d2-445a-4ed8-8060-b94b56ce2b79", CellID->171988399], Cell[CellGroupData[{ Cell[150844, 3896, 545, 13, 70, "Input",ExpressionUUID->"0215db87-8851-4d48-803d-2fd1e3512bcf", CellID->313226258], Cell[151392, 3911, 1127, 27, 70, "Output",ExpressionUUID->"8b85f598-d7f2-4b3b-9515-30311e0975b1", CellID->1517358404] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[152568, 3944, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"6b3709c6-c5ba-4ead-b81d-3ba5503b7292", CellID->410855773], Cell[152715, 3950, 293, 5, 70, "Text",ExpressionUUID->"84c6b4ad-7f3d-4822-978a-8b58a8828698", CellID->78125953], Cell[CellGroupData[{ Cell[153033, 3959, 602, 14, 70, "Input",ExpressionUUID->"1afd47b3-d790-4b6c-ac2d-ae19a76c42ff", CellID->446486512], Cell[153638, 3975, 5337, 110, 70, "Output",ExpressionUUID->"e986b5a7-8175-4e61-83ce-8d91bc51a9e0", CellID->136017259] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[159024, 4091, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"ce1d03ad-2722-44ce-b437-77c2859aad8e", CellID->335117625], Cell[159171, 4097, 294, 5, 70, "Text",ExpressionUUID->"3958e70a-a88b-4db4-a090-265f6c2beb01", CellID->379707217], Cell[CellGroupData[{ Cell[159490, 4106, 599, 14, 70, "Input",ExpressionUUID->"b77c6128-c51c-4767-9507-d7c96567eda4", CellID->18757589], Cell[160092, 4122, 5345, 110, 70, "Output",ExpressionUUID->"464ed850-a908-424b-a2d9-f5325a2a670a", CellID->1942704322] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[165486, 4238, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"2c1ade98-654a-4c54-b2e8-034792189005", CellID->1619800941], Cell[165634, 4244, 347, 6, 70, "Text",ExpressionUUID->"221b4aa4-493e-483c-896a-bad93556973d", CellID->289720297], Cell[CellGroupData[{ Cell[166006, 4254, 645, 14, 70, "Input",ExpressionUUID->"e51c5833-dd33-40d4-abbe-7da497ea7ab5", CellID->8080292], Cell[166654, 4270, 5341, 110, 70, "Output",ExpressionUUID->"e4fdf62e-6b0c-4ef4-a123-0f405561c37f", CellID->1814280709] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[172044, 4386, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"cd21d588-4675-466c-a480-83bc4bab9b39", CellID->344222368], Cell[172191, 4392, 347, 6, 70, "Text",ExpressionUUID->"ed99e36a-2fa7-4d99-b192-bc41f1882fa6", CellID->590911869], Cell[CellGroupData[{ Cell[172563, 4402, 647, 14, 70, "Input",ExpressionUUID->"8e19972d-2e99-462e-9ebb-c1fcfa1b3953", CellID->414247711], Cell[173213, 4418, 5361, 110, 70, "Output",ExpressionUUID->"831a7fef-1d4c-43c5-8c49-d38142abdac0", CellID->1276933650] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[178623, 4534, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"deff964d-6983-4d72-9568-767d88a7244a", CellID->329727232], Cell[178770, 4540, 303, 5, 70, "Text",ExpressionUUID->"1a76cc05-034c-4ef8-9943-e4bf3510d7af", CellID->12330571], Cell[CellGroupData[{ Cell[179098, 4549, 683, 18, 70, "Input",ExpressionUUID->"b5065db7-13b9-40b6-963f-a5c025b9287c", CellID->592504976], Cell[179784, 4569, 8779, 234, 70, "Output",ExpressionUUID->"34610b22-1f15-44e6-8a26-b0e1780c3fc3", CellID->402335159] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[188612, 4809, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"84f774dd-90f1-4b45-9d4f-1198973d82f7", CellID->117757440], Cell[188759, 4815, 306, 5, 70, "Text",ExpressionUUID->"ba041e0d-0ec6-4825-becb-05009dcc72c9", CellID->249225697], Cell[CellGroupData[{ Cell[189090, 4824, 682, 18, 70, "Input",ExpressionUUID->"781746d0-5a6e-4896-bca7-3cb7fdb6a0ac", CellID->135477113], Cell[189775, 4844, 8138, 217, 70, "Output",ExpressionUUID->"dae99001-f2cf-46d1-8ed2-303989a40aef", CellID->2104650376] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[197962, 5067, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"fb0a65eb-078f-4c5f-ae99-1e4805805bbd", CellID->1316855193], Cell[198110, 5073, 333, 5, 70, "Text",ExpressionUUID->"530d8c08-feef-4bb7-bd3d-ecd3eb7e4309", CellID->144713893], Cell[CellGroupData[{ Cell[198468, 5082, 781, 19, 70, "Input",ExpressionUUID->"a4bfa01a-6fb3-4d6f-b970-190e37dc2812", CellID->158554744], Cell[199252, 5103, 16004, 326, 70, "Output",ExpressionUUID->"924bb2f9-57a8-4f5c-bd67-665d6f85295c", CellID->1721226076] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[215305, 5435, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"8a88c4bc-457e-4337-b5bd-e821ab336967", CellID->1616025485], Cell[215453, 5441, 381, 6, 70, "Text",ExpressionUUID->"b008f7bd-5c8b-4976-a2b2-9c9c509298ad", CellID->614889496], Cell[CellGroupData[{ Cell[215859, 5451, 833, 20, 70, "Input",ExpressionUUID->"498df323-585a-4a06-b022-de71f096a601", CellID->198531441], Cell[216695, 5473, 15420, 320, 70, "Output",ExpressionUUID->"bb3773da-6e87-4f64-8d5c-574dedb9f454", CellID->201694689] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[232164, 5799, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"e3ab37cd-d717-4a97-811d-07836c9ff175", CellID->1314642786], Cell[232312, 5805, 382, 6, 70, "Text",ExpressionUUID->"0fff9958-fcf4-4a8c-9807-180ee47e50aa", CellID->83818289], Cell[CellGroupData[{ Cell[232719, 5815, 830, 20, 70, "Input",ExpressionUUID->"d392722e-e8bd-4719-a42e-b9da4561c023", CellID->3340476], Cell[233552, 5837, 20241, 415, 70, "Output",ExpressionUUID->"fecd16ca-8af0-4a9d-bb08-f1c0af5e40ac", CellID->1374082647] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[253842, 6258, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"d2726cf3-708c-435c-b85b-e4f0d8c48cba", CellID->1889543966], Cell[253990, 6264, 381, 6, 70, "Text",ExpressionUUID->"d3c26e0c-2e69-446b-9d46-fe5fb4a56c68", CellID->125518546], Cell[CellGroupData[{ Cell[254396, 6274, 858, 20, 70, "Input",ExpressionUUID->"2aaa2bc5-94a0-48aa-9d0c-c77149ca5b8f", CellID->149707321], Cell[255257, 6296, 20398, 424, 70, "Output",ExpressionUUID->"ad42112c-2d81-4890-9ada-41ba8c6a9914", CellID->653983060] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[275716, 6727, 91, 3, 70, "Subsection",ExpressionUUID->"73feef74-0031-402b-9b18-70c032453c5d", CellID->776923543], Cell[275810, 6732, 276, 5, 70, "Text",ExpressionUUID->"a5bbaca5-08a2-4be4-9e86-0501828b31e8", CellID->396885707], Cell[CellGroupData[{ Cell[276111, 6741, 269, 7, 70, "Input",ExpressionUUID->"35a96925-5beb-444c-856d-8476a69790d2", CellID->369144179], Cell[276383, 6750, 667, 18, 70, "Output",ExpressionUUID->"b31c7a0e-2032-4c5c-9238-0d09b06d5bae", CellID->455558343] }, Open ]], Cell[CellGroupData[{ Cell[277087, 6773, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"9690828d-eabe-4e70-b6df-c1bfcab6591e", CellID->577264726], Cell[277234, 6779, 202, 4, 70, "Text",ExpressionUUID->"58624002-ce5e-4c78-9af1-c818ea6a07e7", CellID->197798888], Cell[CellGroupData[{ Cell[277461, 6787, 419, 9, 70, "Input",ExpressionUUID->"03f6bfaa-5c2e-463e-94a9-36fcac417f44", CellID->205428197], Cell[277883, 6798, 972, 25, 70, "Output",ExpressionUUID->"44c11f18-fec3-47f5-afe0-fd5069dec206", CellID->1242036805] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[278904, 6829, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"cea383db-84bc-4a00-ac24-b1621d444fbb", CellID->1904616383], Cell[279052, 6835, 253, 5, 70, "Text",ExpressionUUID->"6bc2d8bf-a83d-48fb-9f6b-9d402da70236", CellID->447979326], Cell[CellGroupData[{ Cell[279330, 6844, 442, 10, 70, "Input",ExpressionUUID->"fdb36248-d81e-45c8-b86d-a240a2cf4574", CellID->130428341], Cell[279775, 6856, 996, 25, 70, "Output",ExpressionUUID->"631bbc66-4e3b-4a51-8fca-40f47ac90d28", CellID->241487776] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[280820, 6887, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"2582706e-2ce5-4aa9-b08d-af7d2dcda6aa", CellID->496306899], Cell[280967, 6893, 226, 4, 70, "Text",ExpressionUUID->"734f4ea4-95ce-4e4d-94d2-77044b5b4d4a", CellID->255830060], Cell[CellGroupData[{ Cell[281218, 6901, 446, 10, 70, "Input",ExpressionUUID->"22e08c4b-8632-44fc-8944-4668a99d3db7", CellID->427201658], Cell[281667, 6913, 996, 25, 70, "Output",ExpressionUUID->"c7471329-5e03-43c2-ac38-e93e0326b5aa", CellID->367138650] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[282712, 6944, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"539f3918-4b6c-4240-8d98-89b7a14ffd9d", CellID->603566545], Cell[282859, 6950, 275, 5, 70, "Text",ExpressionUUID->"44ba0d0a-194a-4916-b2f4-c3cfcac2d8f6", CellID->340434175], Cell[CellGroupData[{ Cell[283159, 6959, 467, 11, 70, "Input",ExpressionUUID->"eb914345-34a8-4db3-8a4b-f35f1869c9ee", CellID->101381632], Cell[283629, 6972, 1022, 25, 70, "Output",ExpressionUUID->"7278a57e-a2b9-43fd-a761-1c7738329b7b", CellID->1663921904] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[284700, 7003, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"5f656564-5efa-46c2-b6fa-77da2c7770d9", CellID->1577657034], Cell[284848, 7009, 288, 5, 70, "Text",ExpressionUUID->"78198dcb-9826-4408-b734-be1d26cf1242", CellID->270353497], Cell[CellGroupData[{ Cell[285161, 7018, 505, 10, 70, "Input",ExpressionUUID->"9ed7f51e-b330-48d1-8c2e-1292e108ae28", CellID->210221569], Cell[285669, 7030, 1023, 25, 70, "Output",ExpressionUUID->"a43166ac-95c5-4bde-bd23-de7abec851b2", CellID->1601394536] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[286741, 7061, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"732ebadc-386b-4c7b-acc9-0da41e28c53e", CellID->701180929], Cell[286888, 7067, 332, 6, 70, "Text",ExpressionUUID->"7be0200b-be85-4876-aeb2-3ca3b1beb0dd", CellID->45084687], Cell[CellGroupData[{ Cell[287245, 7077, 522, 11, 70, "Input",ExpressionUUID->"1b51b3dc-1e84-4276-aaae-17df37f9ddf7", CellID->135056970], Cell[287770, 7090, 1048, 26, 70, "Output",ExpressionUUID->"955a7da4-7f1a-4615-9e46-379f943f34b1", CellID->1625925079] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[288867, 7122, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"97e8b9fe-6a7c-440f-8077-bd9d4f6ed337", CellID->1505102614], Cell[289015, 7128, 287, 5, 70, "Text",ExpressionUUID->"ff0df3cd-4811-4014-b26a-7ced70576f07", CellID->450973504], Cell[CellGroupData[{ Cell[289327, 7137, 500, 10, 70, "Input",ExpressionUUID->"19d17f9e-b289-40fc-a2d8-f0d4bae470f7", CellID->715854412], Cell[289830, 7149, 1015, 25, 70, "Output",ExpressionUUID->"98a8819a-f2d2-4a36-bdab-43d831fd7d31", CellID->1731434558] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[290894, 7180, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"b76cb63f-d7b2-4b25-8fa2-3d3f5eb728b4", CellID->1049755485], Cell[291042, 7186, 284, 5, 70, "Text",ExpressionUUID->"5415b94b-139b-45fd-8832-43ab6b38239b", CellID->556416468], Cell[CellGroupData[{ Cell[291351, 7195, 498, 11, 70, "Input",ExpressionUUID->"c09078a9-d48d-4033-ac89-e481b8b9c5b0", CellID->76216344], Cell[291852, 7208, 1042, 26, 70, "Output",ExpressionUUID->"7823b619-42e9-48bd-8db1-2a8fc3b2b667", CellID->1520758794] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[292967, 7242, 116, 2, 70, "Section",ExpressionUUID->"b67d7b3c-4e16-4e25-b109-f9385b1bc228", CellTags->"Source & Additional Information", CellID->348526984], Cell[CellGroupData[{ Cell[293108, 7248, 756, 20, 70, "Subsection",ExpressionUUID->"88662f53-c1af-433e-9ab1-5dc2d0ad8f5d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell[293867, 7270, 27, 0, 70, "Text",ExpressionUUID->"2639b1a0-8502-4538-b7b7-b819f5a5a894"] }, Open ]], Cell[CellGroupData[{ Cell[293931, 7275, 731, 20, 70, "Subsection",ExpressionUUID->"bc0dbc65-9cdd-4d7d-a632-198987d9f22a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell[294665, 7297, 25, 0, 70, "Item",ExpressionUUID->"a9e71173-4b62-4d63-8ed8-154477a8ee0f"], Cell[294693, 7299, 24, 0, 70, "Item",ExpressionUUID->"92d27dc1-5e18-4b38-8262-d0e4938ac19a"], Cell[294720, 7301, 34, 0, 70, "Item",ExpressionUUID->"516b686f-febc-440d-aac3-cc4aacfaaea7"], Cell[294757, 7303, 32, 0, 70, "Item",ExpressionUUID->"79b3c114-0f1c-4dfd-9d66-101e2e8da0e6"], Cell[294792, 7305, 33, 0, 70, "Item",ExpressionUUID->"a33e2c9b-2663-4339-8ea5-02b2413d3c68"], Cell[294828, 7307, 32, 0, 70, "Item",ExpressionUUID->"49c235ff-7db5-4657-98c4-4a4767de24f4"], Cell[294863, 7309, 26, 0, 70, "Item",ExpressionUUID->"6dacc830-35d0-4c1f-81cb-c72562f3b87c"], Cell[294892, 7311, 27, 0, 70, "Item",ExpressionUUID->"4d899715-7afb-4647-ba45-60b04cb2ece3"], Cell[294922, 7313, 20, 0, 70, "Item",ExpressionUUID->"d0dc75f1-a6a8-4136-a9d8-b9982c99516b"], Cell[294945, 7315, 30, 0, 70, "Item",ExpressionUUID->"581744b0-77cd-4be1-8c59-826f7029119e"], Cell[294978, 7317, 30, 0, 70, "Item",ExpressionUUID->"d35064b4-4488-48fe-9d22-9850fb567ff3"], Cell[295011, 7319, 34, 0, 70, "Item",ExpressionUUID->"2560f08d-3ef9-4e53-8e98-76ed82707646"], Cell[295048, 7321, 33, 0, 70, "Item",ExpressionUUID->"5836837e-bcb0-4bd5-a5dc-33807891204a"], Cell[295084, 7323, 29, 0, 70, "Item",ExpressionUUID->"3789edf4-f657-4baf-92b2-99a54f912e1b"], Cell[295116, 7325, 29, 0, 70, "Item",ExpressionUUID->"cffca5ae-bf00-44ca-97ae-aa5e9a1a1e4c"], Cell[295148, 7327, 33, 0, 70, "Item",ExpressionUUID->"2cf3424b-f3d5-4de1-8ab3-5c31a42f3625"], Cell[295184, 7329, 32, 0, 70, "Item",ExpressionUUID->"89d4f36f-678b-48ba-8d88-c2cff4d1cef1"], Cell[295219, 7331, 39, 0, 70, "Item",ExpressionUUID->"484eb285-3e4c-4c5c-b0b8-f0450b7d843d"], Cell[295261, 7333, 37, 0, 70, "Item",ExpressionUUID->"c682ca47-7c76-4182-8f95-95d1df2689fe"], Cell[295301, 7335, 39, 0, 70, "Item",ExpressionUUID->"08fe3b47-5db6-44d9-83eb-c8206ebf050c"], Cell[295343, 7337, 37, 0, 70, "Item",ExpressionUUID->"3804d459-26a7-4bdf-85d3-6918376f3934"], Cell[295383, 7339, 43, 0, 70, "Item",ExpressionUUID->"6a96a9f1-607a-4ab9-bca1-2af44b2f22a6"], Cell[295429, 7341, 41, 0, 70, "Item",ExpressionUUID->"db6ced2e-a39f-47e4-a27b-f1069d2c0d80"], Cell[295473, 7343, 42, 0, 70, "Item",ExpressionUUID->"30314a16-39a9-455c-b118-8ad6027102a8"], Cell[295518, 7345, 40, 0, 70, "Item",ExpressionUUID->"465e3e23-79be-426a-b830-409fff3fc93a"], Cell[295561, 7347, 38, 0, 70, "Item",ExpressionUUID->"7a06942c-32d3-45cb-8546-b3013824ac0f"], Cell[295602, 7349, 37, 0, 70, "Item",ExpressionUUID->"541516f1-b7b7-48fe-b8f0-339f0bb02255"], Cell[295642, 7351, 38, 0, 70, "Item",ExpressionUUID->"9e74e712-e2b7-4c57-89d8-bf71327077ec"], Cell[295683, 7353, 37, 0, 70, "Item",ExpressionUUID->"b1cd4580-d953-4c2d-9472-7e3ff7bb0363"], Cell[295723, 7355, 42, 0, 70, "Item",ExpressionUUID->"369f0632-6dbb-4f21-891e-3ec5a26c0b38"], Cell[295768, 7357, 41, 0, 70, "Item",ExpressionUUID->"6a1214d0-0d59-49ce-a1f3-961712ed672e"], Cell[295812, 7359, 41, 0, 70, "Item",ExpressionUUID->"088275e1-6258-4d14-9bc1-457577c1dbb6"], Cell[295856, 7361, 40, 0, 70, "Item",ExpressionUUID->"b4baa4a8-0c1e-4991-948c-265ce211dc43"] }, Open ]], Cell[CellGroupData[{ Cell[295933, 7366, 130, 3, 70, "Subsection",ExpressionUUID->"90bc3462-f287-4056-a849-5699b5574a43", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[296066, 7371, 6435, 216, 70, "Output",ExpressionUUID->"58c49ddc-6896-48bb-9681-8f31b85a6135", CellTags->"CategoriesCell"] }, Open ]], Cell[CellGroupData[{ Cell[302538, 7592, 708, 20, 70, "Subsection",ExpressionUUID->"6b10f1f5-f0a9-4f1f-8926-c436405e7667", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell[303249, 7614, 25, 0, 70, "Item",ExpressionUUID->"4b014ae6-df22-4741-95aa-4ee4450a4ae7"] }, Open ]], Cell[CellGroupData[{ Cell[303311, 7619, 758, 20, 70, "Subsection",ExpressionUUID->"61973290-e3da-406a-913f-df936c011d78", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell[304072, 7641, 508, 8, 70, "Item",ExpressionUUID->"36e9b7a9-7537-429e-a7c3-c23adc95dd60", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[304617, 7654, 809, 21, 70, "Subsection",ExpressionUUID->"bbccf74e-c583-4076-b901-961b46ea95fa", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell[305429, 7677, 496, 8, 70, "Text",ExpressionUUID->"ce1bd71f-7e81-4b25-b973-aac1015a1a3b", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[305962, 7690, 661, 20, 70, "Subsection",ExpressionUUID->"897ee20f-6c8f-42fe-9599-2d84f800bfee", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell[306626, 7712, 485, 8, 70, "Item",ExpressionUUID->"287c5aca-b0d1-4d13-bb87-d07d45ba8fbd", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[307148, 7725, 836, 22, 70, "Subsection",ExpressionUUID->"e84d281d-57dc-45c5-9521-28aea96a5d33", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[CellGroupData[{ Cell[308009, 7751, 129, 4, 70, "Input",ExpressionUUID->"7b4f7d0c-dc65-4211-bbcb-bdb2971ccf61", CellID->667877521], Cell[308141, 7757, 93, 3, 70, "Output",ExpressionUUID->"acad63c0-d6c7-4811-9cc1-f42389e2c616", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[308295, 7767, 131, 3, 70, "Section",ExpressionUUID->"eb1a11de-3348-4ae9-9dae-df7f18dfe479", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell[308429, 7772, 509, 8, 70, "Text",ExpressionUUID->"5d98bc02-5cc8-4063-86d5-16057d3f2254", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[308975, 7785, 766, 21, 70, "Section",ExpressionUUID->"4ada48b3-f24c-41db-8ba7-288c9300317d", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912], Cell[309744, 7808, 495, 8, 70, "Text",ExpressionUUID->"adc8f2dc-6ce0-402a-b38b-a8af2bf1ab2f", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)