(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 97933, 3134] NotebookOptionsPosition[ 75470, 2405] NotebookOutlinePosition[ 81277, 2562] CellTagsIndexPosition[ 80393, 2538] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ (* ChineseCalendarV1.nb, example notebook for the ChineseCalendar package V1 *) (* :Title: Chinese Calendar Computations *) (* :Author: Helmer Aslaksen Department of Mathematics National University of Singapore Singapore 117543 Singapore helmer.aslaksen@gmail.com http://www.math.nus.edu.sg/aslaksen/ *) (* :Mathematica Version: 8.0 *) (* :Package Version: 1.07, 2011 May 31 *) (* :Requirements: CalendricaV1.m, written by Robert C. McNally and updated for Mathematica V8 \ by Helmer Aslaksen. Available on http://www.math.nus.edu.sg/aslaksen/calendar/CalendricaV1.m . ChineseCalendarV1.m, written by Helmer Aslaksen. Available on http://www.math.nus.edu.sg/aslaksen/calendar/ChineseCalendarV1.m . *) (* :Warnings: The names of my functions have lower case initials to distinguish them from the functions of Robert C. McNally. I describe Chinese months by {gYear, cMonth}. I number a Chinese year by the Gregorian year in which it starts. So {1999,12} starts on January 7, 2000. *)\ \>", "Input", CellChangeTimes->{{3.5160963097368345`*^9, 3.5160963244636774`*^9}, { 3.5160963629458785`*^9, 3.51609636804517*^9}, {3.516096401162064*^9, 3.5160965445682664`*^9}, {3.5160965781981897`*^9, 3.516096601990551*^9}, { 3.516100532074339*^9, 3.5161005495593386`*^9}, {3.5161007403202496`*^9, 3.5161007433714247`*^9}, {3.5161008586090155`*^9, 3.516100869907662*^9}}], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5160966138572297`*^9, 3.5160966142682533`*^9}, { 3.516100878767168*^9, 3.5161008814183197`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "ChineseCalendar"}]], "Input"], Cell[BoxData[ StyleBox["\<\"ChineseCalendar is a package for performing Chinese \ calendrical computations. It is written by Helmer Aslaksen, Department of \ Mathematics, National University of Singapore, helmer.aslaksen@gmail.com, \ http://www.math.nus.edu.sg/aslaksen/. It uses the functions written by Nachum \ Dershowitz and Edward M. Reingold for their book Calendrical Calculations. \ Their Lisp functions were translated into the Mathematica package Calendrica \ by Robert C. McNally , and modified by me. They \ are available from http://www.math.nus.edu.sg/aslaksen/calendar/Calendrica.m \ .\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004668516083`*^9}, CellTags->"Info3516129266-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "nthChineseNewMoonOnOrAfterChineseNewYear"}]], "Input"], Cell[BoxData[ StyleBox["\<\"nthChineseNewMoonOnOrAfterChineseNewYear[gYear, n] gives the \ fixed date for the nth new moon on or after Chinese New Year in the given \ Gregorian year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100467042619*^9}, CellTags->"Info3516129266-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"nthChineseNewMoonOnOrAfterChineseNewYear", "[", RowBox[{"1998", ",", "6"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"6", ",", "24", ",", "1998"}], "]"}]], "Output", CellChangeTimes->{3.5161004671766267`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "nthChineseMonth"}]], "Input"], Cell[BoxData[ StyleBox["\<\"nthChineseMonth[gYear, n, leap] gives the Gregorian date for \ the new moon that starts the nth Chinese month in the Chinese year that \ starts in the given Gregorian year. If it is a leap month, add an extra \ variable equal to 1.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004672936335`*^9}, CellTags->"Info3516129267-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nthChineseMonth", "[", RowBox[{"1998", ",", "5"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"5", ",", "26", ",", "1998"}], "]"}]], "Output", CellChangeTimes->{3.516100467620652*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nthChineseMonth", "[", RowBox[{"1998", ",", "5", ",", " ", "1"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"6", ",", "24", ",", "1998"}], "]"}]], "Output", CellChangeTimes->{3.5161004677616606`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nthChineseMonth", "[", RowBox[{"1998", ",", "6"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"7", ",", "23", ",", "1998"}], "]"}]], "Output", CellChangeTimes->{3.516100468056677*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseNewMoonsInYear"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseNewMoonsInYear[gYear] lists the Gregorian dates of the \ new moons in the Chinese year starting in the given Gregorian year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004681276813`*^9}, CellTags->"Info3516129268-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseNewMoonsInYear", "[", "1998", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Gregorian", "[", RowBox[{"1", ",", "28", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "27", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"3", ",", "28", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"4", ",", "26", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"5", ",", "26", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"6", ",", "24", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"7", ",", "23", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"8", ",", "22", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"9", ",", "21", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"10", ",", "20", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"11", ",", "19", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "19", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "17", ",", "1999"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5161004683426933`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseNewMoonsInYear", "[", "1999", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Gregorian", "[", RowBox[{"2", ",", "16", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"3", ",", "18", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"4", ",", "16", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"5", ",", "15", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"6", ",", "14", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"7", ",", "13", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"8", ",", "11", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"9", ",", "10", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"10", ",", "9", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"11", ",", "8", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "8", ",", "1999"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "7", ",", "2000"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.516100468493702*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "majorSolarTermsInYear"}]], "Input"], Cell[BoxData[ StyleBox["\<\"majorSolarTermsInYear[gYear] lists the Gregorian dates of the \ major solar terms (zhong qi's) in the Chinese year starting in the given \ Gregorian year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004685667067`*^9}, CellTags->"Info3516129268-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"majorSolarTermsInYear", "[", "1998", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Gregorian", "[", RowBox[{"2", ",", "19", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"3", ",", "21", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"4", ",", "20", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"5", ",", "21", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"6", ",", "21", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"7", ",", "23", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"8", ",", "23", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"9", ",", "23", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"10", ",", "23", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"11", ",", "22", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "22", ",", "1998"}], "]"}], ",", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "20", ",", "1999"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5161004687377157`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseLeapYearQ"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseLeapYearQ[gYear] returns True if the Chinese year \ starting in the given Gregorian year is a leap year.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.5161004688117204`*^9}, CellTags->"Info3516129268-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapYearQ", "[", "1998", "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.5161004689467278`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapYearQ", "[", "1999", "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.516100469037733*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseLeapSolsticeYearQ"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseLeapSolsticeYearQ[gYear] returns True if the Chinese \ solstice year (sui) starting in the year before the given Gregorian year has \ 13 months.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004691097374`*^9}, CellTags->"Info3516129269-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapSolsticeYearQ", "[", "1998", "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.5161004691977425`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapSolsticeYearQ", "[", "1999", "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.516100469243745*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapSolsticeYearQ", "[", "2033", "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.5161004692957478`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapSolsticeYearQ", "[", "2034", "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.516100469343751*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseLeapMonth"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseLeapMonth[gYear] gives the number of the month that is \ repeated if the Chinese year starting in the given Gregorian year is a \ Chinese leap year, and returns nothing if the given Gregorian year is not a \ Chinese leap year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100469415755*^9}, CellTags->"Info3516129269-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonth", "[", "1998", "]"}]], "Input"], Cell[BoxData["5"], "Output", CellChangeTimes->{3.5161004698217783`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonth", "[", "2033", "]"}]], "Input"], Cell[BoxData["11"], "Output", CellChangeTimes->{3.5161004700237894`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonth", "[", "3358", "]"}]], "Input"], Cell[BoxData["12"], "Output", CellChangeTimes->{3.5161004703388076`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonth", "[", "2262", "]"}]], "Input"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.516100470597822*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseLeapMonthQ"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseLeapMonthQ[gYear, n] returns True if the nth month of \ the Chinese year starting in the given Gregorian year has a leap month.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004706858273`*^9}, CellTags->"Info3516129270-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonthQ", "[", RowBox[{"1998", ",", "5"}], "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.51610047107485*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonthQ", "[", RowBox[{"1998", ",", "7"}], "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.51610047125486*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "winterSolstice"}]], "Input"], Cell[BoxData[ StyleBox["\<\"winterSolstice[gYear] gives the Gregorian date of the winter \ solstice of the given Gregorian year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004713158636`*^9}, CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"winterSolstice", "[", "1999", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"12", ",", "22", ",", "1999"}], "]"}]], "Output", CellChangeTimes->{3.5161004714058685`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "z12"}]], "Input"], Cell[BoxData[ StyleBox["\<\"z12[gYear] gives the Gregorian date of the 12th zhong qi \ (major solar term) of the given Gregorian year.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.5161004714748726`*^9}, CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z12", "[", "1999", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"1", ",", "20", ",", "1999"}], "]"}]], "Output", CellChangeTimes->{3.5161004715408764`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "liChun"}]], "Input"], Cell[BoxData[ StyleBox["\<\"liChun[gYear] gives the Gregorian date of the li chun (first \ minor solar term) of the given Gregorian year.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.51610047160188*^9}, CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"liChun", "[", "2000", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"2", ",", "4", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.516100471658883*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "z1"}]], "Input"], Cell[BoxData[ StyleBox["\<\"z1[gYear] gives the Gregorian date of the 1st zhong qi (major \ solar term) of the given Gregorian year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004717218866`*^9}, CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z1", "[", "2000", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"2", ",", "19", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.5161004717808905`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "z2"}]], "Input"], Cell[BoxData[ StyleBox["\<\"z2[gYear] gives the Gregorian date of the 2nd zhong qi (major \ solar term) of the given Gregorian year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100471845894*^9}, CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z2", "[", "2000", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"3", ",", "20", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.5161004719018974`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseNewYearData"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseNewYearData[gYear] gives the Gregorian date of the \ astronomical events necessary to determine the Gregorian date of Chinese New \ Year of the given Gregorian year and any possible leap months for months 11, \ 12 and 1.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004719689007`*^9}, CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseNewYearData", "[", "2000", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\<\"Winter solstice: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "22", ",", "1999"}], "]"}]}]], "Print", CellChangeTimes->{3.5161004720319047`*^9}], Cell[BoxData[ RowBox[{"\<\"Month 11+: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "7", ",", "2000"}], "]"}]}]], "Print", CellChangeTimes->{3.51610047212691*^9}], Cell[BoxData[ RowBox[{"\<\"zhong qi 12: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "20", ",", "1999"}], "]"}]}]], "Print", CellChangeTimes->{3.516100472145911*^9}], Cell[BoxData[ RowBox[{"\<\"Chinese New Year: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "5", ",", "2000"}], "]"}]}]], "Print", CellChangeTimes->{3.516100472254917*^9}], Cell[BoxData[ RowBox[{"\<\"Li chun: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "4", ",", "2000"}], "]"}]}]], "Print", CellChangeTimes->{3.5161004722719183`*^9}], Cell[BoxData[ RowBox[{"\<\"zhong qi 1: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "19", ",", "2000"}], "]"}]}]], "Print", CellChangeTimes->{3.5161004722889194`*^9}], Cell[BoxData[ RowBox[{"\<\"Month 1+: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"3", ",", "6", ",", "2000"}], "]"}]}]], "Print", CellChangeTimes->{3.516100472318921*^9}], Cell[BoxData[ RowBox[{"\<\"zhong qi 2: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"3", ",", "20", ",", "2000"}], "]"}]}]], "Print", CellChangeTimes->{3.516100472334922*^9}], Cell[BoxData[ RowBox[{"\<\"Month 1++: \"\>", " ", RowBox[{"Gregorian", "[", RowBox[{"4", ",", "5", ",", "2000"}], "]"}]}]], "Print", CellChangeTimes->{3.516100472375924*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "mChineseNewYear"}]], "Input"], Cell[BoxData[ StyleBox["\<\"mtChineseNewYear[gYear] gives the moment (fixed day with \ fractional part indicating time of day) for ChineseNewYear[gYear].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004724519286`*^9}, CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mChineseNewYear", "[", "1999", "]"}]], "Input"], Cell[BoxData["729801.6102223131`"], "Output", CellChangeTimes->{3.5161004725379333`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "tChineseNewYear"}]], "Input"], Cell[BoxData[ StyleBox["\<\"tChineseNewYear[gYear] gives the Gregorian day and time for \ ChineseNewYear[gYear].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100472603937*^9}, CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tChineseNewYear", "[", "1999", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"Gregorian", "[", RowBox[{"2", ",", "16", ",", "1999"}], "]"}], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", RowBox[{"TimeOfDay", "[", RowBox[{"14", ",", "38", ",", "43.207847595214844`"}], "]"}]}]}], SequenceForm[ CalendricaV1`Gregorian[2, 16, 1999], "," CalendricaV1`TimeOfDay[14, 38, 43.207847595214844`]], Editable->False]], "Print", CellChangeTimes->{3.5161004727229443`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "mChineseNewMoonOnOrAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"mChineseNewMoonOnOrAfter[fDate] gives the moment (fixed day \ with fractional part indicating time of day) for \ ChineseNewMoonOnOrAfter[fDate].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004727849474`*^9}, CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mChineseNewMoonOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"June", "[", "]"}], ",", "11", ",", "1999"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData["729919.1269556861`"], "Output", CellChangeTimes->{3.516100472838951*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "tChineseNewMoonOnOrAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"tChineseNewMoonOnOrAfter[fDate] gives the Gregorian day and \ time for ChineseNewMoonOnOrAfter[fDate].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100472906955*^9}, CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tChineseNewMoonOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"June", "[", "]"}], ",", "11", ",", "1999"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"Gregorian", "[", RowBox[{"6", ",", "14", ",", "1999"}], "]"}], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", RowBox[{"TimeOfDay", "[", RowBox[{"3", ",", "2", ",", "48.971282958984375`"}], "]"}]}]}], SequenceForm[ CalendricaV1`Gregorian[6, 14, 1999], "," CalendricaV1`TimeOfDay[3, 2, 48.971282958984375`]], Editable->False]], "Print", CellChangeTimes->{3.5161004729609575`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "mChineseDateNextSolarLongitude"}]], "Input"], Cell[BoxData[ StyleBox["\<\"mChineseDateNextSolarLongitude[d, l] gives the moment (fixed \ day with fractional part indicating time of day) for \ ChineseDateNextSolarLongitude[d, l].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004730279617`*^9}, CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mChineseDateNextSolarLongitude", "[", RowBox[{ RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"June", "[", "]"}], ",", "11", ",", "1999"}], "]"}], "]"}], ",", " ", "15"}], "]"}]], "Input"], Cell[BoxData["729927.1589312553`"], "Output", CellChangeTimes->{3.5161004730939655`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "tChineseDateNextSolarLongitude"}]], "Input"], Cell[BoxData[ StyleBox["\<\"tChineseDateNextSolarLongitude[d, l] gives the Gregorian day \ and time for ChineseDateNextSolarLongitude[d, l].\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.5161004731709695`*^9}, CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tChineseDateNextSolarLongitude", "[", RowBox[{ RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"June", "[", "]"}], ",", "11", ",", "1999"}], "]"}], "]"}], ",", " ", "15"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"Gregorian", "[", RowBox[{"6", ",", "22", ",", "1999"}], "]"}], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", RowBox[{"TimeOfDay", "[", RowBox[{"3", ",", "48", ",", "51.66046142578125`"}], "]"}]}]}], SequenceForm[ CalendricaV1`Gregorian[6, 22, 1999], "," CalendricaV1`TimeOfDay[3, 48, 51.66046142578125]], Editable->False]], "Print", CellChangeTimes->{3.516100473246974*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "mMajorSolarTermOnOrAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"mMajorSolarTermOnOrAfter[fDate] gives the moment (fixed day \ with fractional part indicating time of day) for \ MajorSolarTermOnOrAfter[fDate].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100473320978*^9}, CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mMajorSolarTermOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"June", "[", "]"}], ",", "11", ",", "1999"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData["729927.1589312553`"], "Output", CellChangeTimes->{3.516100473387982*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "tMajorSolarTermOnOrAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"tMajorSolarTermOnOrAfter[fDate] gives the Gregorian day and \ time for MajorSolarTermOnOrAfter[fDate].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004734669867`*^9}, CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tMajorSolarTermOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"June", "[", "]"}], ",", "11", ",", "1999"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"Gregorian", "[", RowBox[{"6", ",", "22", ",", "1999"}], "]"}], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", RowBox[{"TimeOfDay", "[", RowBox[{"3", ",", "48", ",", "51.66046142578125`"}], "]"}]}]}], SequenceForm[ CalendricaV1`Gregorian[6, 22, 1999], "," CalendricaV1`TimeOfDay[3, 48, 51.66046142578125]], Editable->False]], "Print", CellChangeTimes->{3.516100473543991*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "mMinorSolarTermOnOrAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"mMinorSolarTermOnOrAfter[fDate] gives the moment (fixed day \ with fractional part indicating time of day) for \ MinorSolarTermOnOrAfter[fDate].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004736139956`*^9}, CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"mMinorSolarTermOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"June", "[", "]"}], ",", "11", ",", "1999"}], "]"}], "]"}], "]"}], " "}]], "Input"], Cell[BoxData["729942.8922006288`"], "Output", CellChangeTimes->{3.5161004736869993`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "tMinorSolarTermOnOrAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"tMinorSolarTermOnOrAfter[fDate] gives the Gregorian day and \ time for MinorSolarTermOnOrAfter[fDate].\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100473762004*^9}, CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"tMinorSolarTermOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"June", "[", "]"}], ",", "11", ",", "1999"}], "]"}], "]"}], "]"}], " "}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"Gregorian", "[", RowBox[{"7", ",", "7", ",", "1999"}], "]"}], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", RowBox[{"TimeOfDay", "[", RowBox[{"21", ",", "24", ",", "46.13432312011719`"}], "]"}]}]}], SequenceForm[ CalendricaV1`Gregorian[7, 7, 1999], "," CalendricaV1`TimeOfDay[21, 24, 46.13432312011719]], Editable->False]], "Print", CellChangeTimes->{3.516100473860009*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "daysToLiChun"}]], "Input"], Cell[BoxData[ StyleBox["\<\"daysToLiChun[gYear] gives the number of days between li chun \ (the first minor solar term) and Chinese New Year of the given Gregorian and \ the new moons before and after New Year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100473931013*^9}, CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"daysToLiChun", "[", "1985", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "1985", "\[InvisibleSpace]", "\<\": CNY-1 to LC: \"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "45"}], SequenceForm[ 1985, ": CNY-1 to LC: ", 14, ", CNY to LC: ", 16, ", CNY+1 to LC: ", 45], Editable->False]], "Print", CellChangeTimes->{3.5161004740340195`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"daysToLiChun", "[", "2015", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2015", "\[InvisibleSpace]", "\<\": CNY-1 to LC: \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "44"}], SequenceForm[ 2015, ": CNY-1 to LC: ", 15, ", CNY to LC: ", 15, ", CNY+1 to LC: ", 44], Editable->False]], "Print", CellChangeTimes->{3.516100474103023*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "timeToLiChun"}]], "Input"], Cell[BoxData[ StyleBox["\<\"timeToLiChun[gYear] gives the time between li chun (the first \ minor solar term) and Chinese New Year of the given Gregorian and the new \ moons before and after New Year.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100474177027*^9}, CellTags->"Info3516129274-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timeToLiChun", "[", "1985", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "1985", "\[InvisibleSpace]", "\<\": CNY-1 to LC: \"\>", "\[InvisibleSpace]", "13.780311238020658`", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "15.89633141970262`", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "45.61575908679515`"}], SequenceForm[ 1985, ": CNY-1 to LC: ", 13.780311238020658`, ", CNY to LC: ", 15.89633141970262, ", CNY+1 to LC: ", 45.61575908679515], Editable->False]], "Print", CellChangeTimes->{3.516100474295034*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timeToLiChun", "[", "2015", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2015", "\[InvisibleSpace]", "\<\": CNY-1 to LC: \"\>", "\[InvisibleSpace]", "14.614307483192533`", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "14.825642362702638`", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "44.23463455401361`"}], SequenceForm[ 2015, ": CNY-1 to LC: ", 14.614307483192533`, ", CNY to LC: ", 14.825642362702638`, ", CNY+1 to LC: ", 44.23463455401361], Editable->False]], "Print", CellChangeTimes->{3.5161004743700385`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "liChunErrorBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"liChunErrorBetween[gYear1, gYear2] lists the years between the \ two given Gregorian years when Chinese New Year was not the new moon closest \ to li chun (the first minor solar term).\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100474438042*^9}, CellTags->"Info3516129274-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"liChunErrorBetween", "[", RowBox[{"2014", ",", "2016"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2015", "\[InvisibleSpace]", "\<\": CNY-1 to LC: \"\>", "\[InvisibleSpace]", "14.614307483192533`", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "14.825642362702638`", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "44.23463455401361`"}], SequenceForm[ 2015, ": CNY-1 to LC: ", 14.614307483192533`, ", CNY to LC: ", 14.825642362702638`, ", CNY+1 to LC: ", 44.23463455401361], Editable->False]], "Print", CellChangeTimes->{3.5161004746250525`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "lateLiChunBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"lateLiChunBetween[gYear1, gYear2] lists the years between the \ two given Gregorian years in which the time between the new moon following \ Chinese New Year and li chun (the first minor solar term) is less than 16 \ days.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.51610047474006*^9}, CellTags->"Info3516129274-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lateLiChunBetween", "[", RowBox[{"2003", ",", "2005"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2004", "\[InvisibleSpace]", "\<\": CNY-1 to LC: \"\>", "\[InvisibleSpace]", "43.0923900664784`", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "13.618828450329602`", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "15.890063973143697`"}], SequenceForm[ 2004, ": CNY-1 to LC: ", 43.0923900664784, ", CNY to LC: ", 13.618828450329602`, ", CNY+1 to LC: ", 15.890063973143697`], Editable->False]], "Print", CellChangeTimes->{3.5161004749160695`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "z12ErrorBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"z12ErrorBetween[gYear1, gYear2] lists the years between the \ two given Gregorian years in which the z12 rule fails.\"\>", "MSG"]], "Print",\ "PrintUsage", CellChangeTimes->{3.516100475032076*^9}, CellTags->"Info3516129274-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z12ErrorBetween", "[", RowBox[{"2052", ",", "2054"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"2053", "\[InvisibleSpace]", "\<\": Z12: \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "19", ",", "2053"}], "]"}], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", RowBox[{"TimeOfDay", "[", RowBox[{"22", ",", "57", ",", "29.006668090820312`"}], "]"}]}], "\[InvisibleSpace]", "\<\"M12: \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "20", ",", "2053"}], "]"}], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", RowBox[{"TimeOfDay", "[", RowBox[{"7", ",", "10", ",", "44.56510925292969`"}], "]"}]}]}], SequenceForm[2053, ": Z12: ", CalendricaV1`Gregorian[1, 19, 2053], "," CalendricaV1`TimeOfDay[22, 57, 29.006668090820312`], "M12: ", CalendricaV1`Gregorian[1, 20, 2053], "," CalendricaV1`TimeOfDay[7, 10, 44.56510925292969]], Editable->False]], "Print", CellChangeTimes->{3.516100475201086*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseLeapYearsBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseLeapYearsBetween[gYear1, gYear2] lists all the \ Gregorian years between the two given Gregorian years that are Chinese leap \ years.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004752790904`*^9}, CellTags->"Info3516129275-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapYearsBetween", "[", RowBox[{"1990", ",", "1993"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData["1990"], "Print", CellChangeTimes->{3.516100475403097*^9}], Cell[BoxData["1993"], "Print", CellChangeTimes->{3.5161004756081095`*^9}], Cell[BoxData["2"], "Print", CellChangeTimes->{3.516100475612109*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseLeapMonthsBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseLeapMonthsBetween[gYear1, gYear2] lists the Gregorian \ year and month number for the months that have a leap month between the two \ given Gregorian years, and the total number of repeats for each month.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100475687114*^9}, CellTags->"Info3516129275-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonthsBetween", "[", RowBox[{"1990", ",", " ", "1993"}], "]"}]], "Input", CellChangeTimes->{{3.516099900436211*^9, 3.5160999025413313`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1990", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "5"}], SequenceForm[1990, ": ", 5], Editable->False]], "Print", CellChangeTimes->{3.5161004761691413`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "1993", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "3"}], SequenceForm[1993, ": ", 3], Editable->False]], "Print", CellChangeTimes->{3.5161004766271677`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Print", CellChangeTimes->{3.516100476632168*^9}] }, Open ]], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0., 0.4545454545454546}}]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.5454545454545454`}, {1., 3.4545454545454546`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{18.400000214576725`, 564.3004586740417}, { 67.66539126095645, 94.74995074731738}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.545454545454545}, {1., 5.454545454545454}, "RoundingRadius" -> 0]}, ImageSizeCache->{{18.400000214576725`, 564.3004586740417}, { 11.599360705674968`, 38.683920192035885`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}, {}, {}, {}, {}, {}}, {}, {}}, {}, {{{{{}, {}, \ {{{}, {}}, {}}, {}, {{{}, {}}, {}}, {}, {}, {}, {}, {}, {}, {}}, {}}, {}}, \ {}}, GraphicsGroupBox[ {GrayLevel[0], StyleBox[ GraphicsGroupBox[{ LineBox[{{{0., 0.5454545454545454}, Offset[{-4, 0}, {0., 0.5454545454545454}]}, {{0., 12.454545454545453`}, Offset[{-4, 0}, {0., 12.454545454545453`}]}}], InsetBox[ PaneBox["1"], Offset[{-2, 0}, {0., 1.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["2"], Offset[{-2, 0}, {0., 2.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["3"], Offset[{-2, 0}, {0., 3.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["4"], Offset[{-2, 0}, {0., 4.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["5"], Offset[{-2, 0}, {0., 5.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["6"], Offset[{-2, 0}, {0., 6.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["7"], Offset[{-2, 0}, {0., 7.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["8"], Offset[{-2, 0}, {0., 7.999999999999999}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["9"], Offset[{-2, 0}, {0., 9.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["10"], Offset[{-2, 0}, {0., 10.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["11"], Offset[{-2, 0}, {0., 11.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["12"], Offset[{-2, 0}, {0., 12.}], ImageScaled[{1, Rational[1, 2]}]]}], Antialiasing->False]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0, 0.4545454545454546}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRangePadding->Scaled[0.02], Ticks->{Automatic, None}]], "Output", CellChangeTimes->{3.516100476810178*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "nthChineseLeapMonthsBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"nthChineseLeapMonthsBetween[gYear1, gYear2, n] counts the \ number of time the nth month is repeated between the two given Gregorian \ years.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004769321847`*^9}, CellTags->"Info3516129276-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nthChineseLeapMonthsBetween", "[", RowBox[{"1990", ",", " ", "1998", ",", "5"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData["1990"], "Print", CellChangeTimes->{3.516100477290205*^9}], Cell[BoxData["1998"], "Print", CellChangeTimes->{3.5161004782382593`*^9}], Cell[BoxData["2"], "Print", CellChangeTimes->{3.5161004782412596`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseNewYearsBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseNewYearsBetween[gYear1, gYear2] displays the Gregorian \ dates of Chinese New Year between the two given Gregorian years, and gives a \ list and a table showing the number of times Chinese New Year falls on the \ days between January 20 and February 21 between the two given Gregorian \ years.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100478313264*^9}, CellTags->"Info3516129278-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseNewYearsBetween", "[", RowBox[{"1998", ",", "1999"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"1998", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "28", ",", "1998"}], "]"}]}], SequenceForm[1998, ": ", CalendricaV1`Gregorian[1, 28, 1998]], Editable->False]], "Print", CellChangeTimes->{3.5161004785182753`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"1999", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "16", ",", "1999"}], "]"}]}], SequenceForm[1999, ": ", CalendricaV1`Gregorian[2, 16, 1999]], Editable->False]], "Print", CellChangeTimes->{3.5161004786452827`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"20/1:0\"\>", ",", "\<\"21/1:0\"\>", ",", "\<\"22/1:0\"\>", ",", "\<\"23/1:0\"\>", ",", "\<\"24/1:0\"\>", ",", "\<\"25/1:0\"\>", ",", "\<\"26/1:0\"\>", ",", "\<\"27/1:0\"\>", ",", "\<\"28/1:1\"\>", ",", "\<\"29/1:0\"\>", ",", "\<\"30/1:0\"\>", ",", "\<\"31/1:0\"\>", ",", "\<\"1/2:0\"\>", ",", "\<\"2/2:0\"\>", ",", "\<\"3/2:0\"\>", ",", "\<\"4/2:0\"\>", ",", "\<\"5/2:0\"\>", ",", "\<\"6/2:0\"\>", ",", "\<\"7/2:0\"\>", ",", "\<\"8/2:0\"\>", ",", "\<\"9/2:0\"\>", ",", "\<\"10/2:0\"\>", ",", "\<\"11/2:0\"\>", ",", "\<\"12/2:0\"\>", ",", "\<\"13/2:0\"\>", ",", "\<\"14/2:0\"\>", ",", "\<\"15/2:0\"\>", ",", "\<\"16/2:1\"\>", ",", "\<\"17/2:0\"\>", ",", "\<\"18/2:0\"\>", ",", "\<\"19/2:0\"\>", ",", "\<\"20/2:0\"\>", ",", "\<\"21/2:0\"\>"}], "}"}]], "Print", CellChangeTimes->{3.5161004786512833`*^9}] }, Open ]], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0., 0.4545454545454546}}]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {}, {}, {}, {}, {}, {}, {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.545454545454545}, {1., 9.454545454545453}, "RoundingRadius" -> 0]}, ImageSizeCache->{{31.40000021457672, 564.5657647964906}, { 58.132074418574376`, 68.78236959410589}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 27.545454545454543`}, {1., 28.454545454545453`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{31.40000021457672, 564.5657647964906}, {-131.01909176026527`, -120.36879658473373`}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}, {}, {}, {}}, {}, {}}, {}, {{{{{}, {}, {}, {}, \ {}, {}, {}, {}, {{{}, {}}, {}}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {{{}, {}}, {}}, {}, {}, {}, {}, {}}, {}}, {}}, \ {}}, GraphicsGroupBox[ {GrayLevel[0], StyleBox[ GraphicsGroupBox[{ LineBox[{{{0., 0.5454545454545454}, Offset[{-4, 0}, {0., 0.5454545454545454}]}, {{0., 33.45454545454545}, Offset[{-4, 0}, {0., 33.45454545454545}]}}], InsetBox[ PaneBox["\<\"20/1\"\>"], Offset[{-2, 0}, {0., 1.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"21/1\"\>"], Offset[{-2, 0}, {0., 2.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"22/1\"\>"], Offset[{-2, 0}, {0., 3.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"23/1\"\>"], Offset[{-2, 0}, {0., 4.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"24/1\"\>"], Offset[{-2, 0}, {0., 5.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"25/1\"\>"], Offset[{-2, 0}, {0., 6.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"26/1\"\>"], Offset[{-2, 0}, {0., 7.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"27/1\"\>"], Offset[{-2, 0}, {0., 7.999999999999999}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"28/1\"\>"], Offset[{-2, 0}, {0., 9.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"29/1\"\>"], Offset[{-2, 0}, {0., 10.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"30/1\"\>"], Offset[{-2, 0}, {0., 11.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"31/1\"\>"], Offset[{-2, 0}, {0., 12.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"1/2\"\>"], Offset[{-2, 0}, {0., 13.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"2/2\"\>"], Offset[{-2, 0}, {0., 14.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"3/2\"\>"], Offset[{-2, 0}, {0., 15.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"4/2\"\>"], Offset[{-2, 0}, {0., 16.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"5/2\"\>"], Offset[{-2, 0}, {0., 17.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"6/2\"\>"], Offset[{-2, 0}, {0., 18.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"7/2\"\>"], Offset[{-2, 0}, {0., 19.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"8/2\"\>"], Offset[{-2, 0}, {0., 20.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"9/2\"\>"], Offset[{-2, 0}, {0., 21.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"10/2\"\>"], Offset[{-2, 0}, {0., 22.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"11/2\"\>"], Offset[{-2, 0}, {0., 23.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"12/2\"\>"], Offset[{-2, 0}, {0., 24.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"13/2\"\>"], Offset[{-2, 0}, {0., 25.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"14/2\"\>"], Offset[{-2, 0}, {0., 26.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"15/2\"\>"], Offset[{-2, 0}, {0., 27.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"16/2\"\>"], Offset[{-2, 0}, {0., 28.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"17/2\"\>"], Offset[{-2, 0}, {0., 29.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"18/2\"\>"], Offset[{-2, 0}, {0., 30.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"19/2\"\>"], Offset[{-2, 0}, {0., 31.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"20/2\"\>"], Offset[{-2, 0}, {0., 32.}], ImageScaled[{1, Rational[1, 2]}]], InsetBox[ PaneBox["\<\"21/2\"\>"], Offset[{-2, 0}, {0., 33.}], ImageScaled[{1, Rational[1, 2]}]]}], Antialiasing->False]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0, 0.4545454545454546}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRangePadding->Scaled[0.02], Ticks->{Automatic, None}]], "Output", CellChangeTimes->{3.516100478792291*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "MinorSolarTermOnOrAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"This corrects a bug in MinorSolarTermOnOrAfter as defined by \ Dershowitz and Reingold.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100478873296*^9}, CellTags->"Info3516129278-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"Calendrica`Private`MinorSolarTermOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"February", "[", "]"}], ",", "5", ",", "1999"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"Calendrica`Private`MinorSolarTermOnOrAfter", "[", "729790", "]"}], "]"}]], "Output", CellChangeTimes->{3.516100478933299*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"MinorSolarTermOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{ RowBox[{"February", "[", "]"}], ",", "5", ",", "1999"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"3", ",", "6", ",", "1999"}], "]"}]], "Output", CellChangeTimes->{3.516100478973302*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "lengthOfChineseYear"}]], "Input"], Cell[BoxData[ StyleBox["\<\"lengthOfChineseYear[gYear] computes the number of days in the \ Chinese year starting in the given Gregorian year.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.516100479054306*^9}, CellTags->"Info3516129278-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lengthOfChineseYear", "[", "1998", "]"}]], "Input"], Cell[BoxData["384"], "Output", CellChangeTimes->{3.516100479199314*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "lengthOfChineseYearsBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"lengthOfChineseYearsBetween[gYear1, gYear2] displays the \ number of days in the Chinese years between the two given Gregorian years and \ lists how often the different lengths occur.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.5161004792853193`*^9}, CellTags->"Info3516129279-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lengthOfChineseYearsBetween", "[", RowBox[{"1998", ",", "2002"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1998", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "384"}], SequenceForm[1998, ": ", 384], Editable->False]], "Print", CellChangeTimes->{3.516100479854352*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "1999", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "354"}], SequenceForm[1999, ": ", 354], Editable->False]], "Print", CellChangeTimes->{3.5161004800453625`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2000", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "354"}], SequenceForm[2000, ": ", 354], Editable->False]], "Print", CellChangeTimes->{3.516100480259375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2001", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "384"}], SequenceForm[2001, ": ", 384], Editable->False]], "Print", CellChangeTimes->{3.516100480677399*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2002", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "354"}], SequenceForm[2002, ": ", 354], Editable->False]], "Print", CellChangeTimes->{3.51610048086541*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"353:0\"\>", ",", "\<\"354:3\"\>", ",", "\<\"355:0\"\>", ",", "\<\"383:0\"\>", ",", "\<\"384:2\"\>", ",", "\<\"385:0\"\>", ",", "\<\"Exceptions:0\"\>"}], "}"}]], "Output", CellChangeTimes->{3.51610048086841*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "lengthOfChineseMonthsBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"lengthOfChineseMonthsBetween[fDate1, fDate2] determines if the \ months between the two given fixed dates are short or long.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004809434147`*^9}, CellTags->"Info3516129280-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lengthOfChineseMonthsBetween", "[", RowBox[{"730000", ",", "730100"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting on \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"9", ",", "10", ",", "1999"}], "]"}], "\[InvisibleSpace]", "\<\" is short\"\>"}], SequenceForm["The month starting on ", CalendricaV1`Gregorian[9, 10, 1999], " is short"], Editable->False]], "Print", CellChangeTimes->{3.516100481004418*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting on \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"10", ",", "9", ",", "1999"}], "]"}], "\[InvisibleSpace]", "\<\" is long\"\>"}], SequenceForm["The month starting on ", CalendricaV1`Gregorian[10, 9, 1999], " is long"], Editable->False]], "Print", CellChangeTimes->{3.516100481023419*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting on \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"11", ",", "8", ",", "1999"}], "]"}], "\[InvisibleSpace]", "\<\" is long\"\>"}], SequenceForm["The month starting on ", CalendricaV1`Gregorian[11, 8, 1999], " is long"], Editable->False]], "Print", CellChangeTimes->{3.516100481027419*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting on \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "8", ",", "1999"}], "]"}], "\[InvisibleSpace]", "\<\" is long\"\>"}], SequenceForm["The month starting on ", CalendricaV1`Gregorian[12, 8, 1999], " is long"], Editable->False]], "Print", CellChangeTimes->{3.516100481032419*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "stringsOfChineseMonthsBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"stringsOfChineseMonthsBetween[fDate1, fDate2] determines if \ there are strings of 3 short or 4 or 5 long months between the two given \ fixed dates.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004810994234`*^9}, CellTags->"Info3516129281-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stringsOfChineseMonthsBetween", "[", RowBox[{"740000", ",", "750000"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"FOUR LONG months in a row ending on \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"4", ",", "16", ",", "2037"}], "]"}]}], SequenceForm["FOUR LONG months in a row ending on ", CalendricaV1`Gregorian[4, 16, 2037]], Editable->False]], "Print", CellChangeTimes->{3.516100482001475*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"FOUR LONG months in a row ending on \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"3", ",", "19", ",", "2045"}], "]"}]}], SequenceForm["FOUR LONG months in a row ending on ", CalendricaV1`Gregorian[3, 19, 2045]], Editable->False]], "Print", CellChangeTimes->{3.5161004826605124`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"FOUR LONG months in a row ending on \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "19", ",", "2053"}], "]"}]}], SequenceForm["FOUR LONG months in a row ending on ", CalendricaV1`Gregorian[2, 19, 2053]], Editable->False]], "Print", CellChangeTimes->{3.5161004833165503`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "fullMoonAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"fullMoonAfter[jd] returns the astronomical (julian) day number \ of the first full moon after astronomical (julian) day number jd (in \ Greenwich). The fractional part is the time of day.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.5161004834845595`*^9}, CellTags->"Info3516129283-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"FixedFromJD", "[", RowBox[{"fullMoonAfter", "[", RowBox[{"JDFromFixed", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "20", ",", "2000"}], "]"}], "]"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"1", ",", "21", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.5161004835995665`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chineseFullMoonAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"chineseFullMoonAfter[fDate] gives the fixed date for the first \ Chinese full moon after the given fixed date.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.51610048367457*^9}, CellTags->"Info3516129283-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"chineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "20", ",", "2000"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"1", ",", "21", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.516100483785577*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"chineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "21", ",", "2000"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"1", ",", "21", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.5161004838625813`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"chineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "22", ",", "2000"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"2", ",", "20", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.5161004839435863`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "timeOfChineseFullMoonAfter"}]], "Input"], Cell[BoxData[ StyleBox["\<\"timeOfChineseFullMoonAfter[fDate] gives the time for the first \ Chinese full moon after the given fixed date.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.51610048401759*^9}, CellTags->"Info3516129283-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"chineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "1", ",", "1986"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"1", ",", "26", ",", "1986"}], "]"}]], "Output", CellChangeTimes->{3.5161004841365967`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timeOfChineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "1", ",", "1986"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"TimeOfDay", "[", RowBox[{"23", ",", "2", ",", "17.590858459472656`"}], "]"}]], "Output", CellChangeTimes->{3.5161004842186017`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "dayOfChineseFullMoonBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"dayOfChineseFullMoonBetween[gYear1, gYear2] gives the day of \ the full moon in the Chinese months between Chinese New Year of the two given \ Gregorian years.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100484294606*^9}, CellTags->"Info3516129284-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dayOfChineseFullMoonBetween", "[", RowBox[{"1985", ",", "1986"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "20", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", CalendricaV1`Gregorian[2, 20, 1985]], Editable->False]], "Print", CellChangeTimes->{3.516100484486617*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"3", ",", "21", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", CalendricaV1`Gregorian[3, 21, 1985]], Editable->False]], "Print", CellChangeTimes->{3.516100484555621*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"4", ",", "20", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", CalendricaV1`Gregorian[4, 20, 1985]], Editable->False]], "Print", CellChangeTimes->{3.5161004846246247`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"5", ",", "20", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", CalendricaV1`Gregorian[5, 20, 1985]], Editable->False]], "Print", CellChangeTimes->{3.516100484695629*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"6", ",", "18", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", CalendricaV1`Gregorian[6, 18, 1985]], Editable->False]], "Print", CellChangeTimes->{3.516100484766633*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"7", ",", "18", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", CalendricaV1`Gregorian[7, 18, 1985]], Editable->False]], "Print", CellChangeTimes->{3.5161004848386374`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"8", ",", "16", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", CalendricaV1`Gregorian[8, 16, 1985]], Editable->False]], "Print", CellChangeTimes->{3.516100484907641*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"9", ",", "15", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", CalendricaV1`Gregorian[9, 15, 1985]], Editable->False]], "Print", CellChangeTimes->{3.516100484976645*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"10", ",", "14", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", CalendricaV1`Gregorian[10, 14, 1985]], Editable->False]], "Print", CellChangeTimes->{3.516100485046649*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"11", ",", "12", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", CalendricaV1`Gregorian[11, 12, 1985]], Editable->False]], "Print", CellChangeTimes->{3.5161004851146526`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "12", ",", "1985"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", CalendricaV1`Gregorian[12, 12, 1985]], Editable->False]], "Print", CellChangeTimes->{3.5161004851876574`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "10", ",", "1986"}], "]"}]}], SequenceForm[ "The full moon falls on the ", 17, "th day \n of the month starting ", CalendricaV1`Gregorian[1, 10, 1986]], Editable->False]], "Print", CellChangeTimes->{3.5161004852816625`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"14:0\"\>", ",", "\<\"15:5\"\>", ",", "\<\"16:6\"\>", ",", "\<\"17:1\"\>"}], "}"}]], "Print", CellChangeTimes->{3.5161004852996635`*^9}] }, Open ]], Cell[BoxData["15.666666666666666`"], "Output", CellChangeTimes->{3.516100485302664*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "solsticeYear"}]], "Input"], Cell[BoxData[ StyleBox["\<\"solsticeYear[fDate] gives the Gregorian number of the solstice \ year containing the given fixed date.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100485378668*^9}, CellTags->"Info3516129285-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solsticeYear", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "1", ",", "2000"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData["2000"], "Output", CellChangeTimes->{3.5161004854436717`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solsticeYear", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "25", ",", "2000"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData["2001"], "Output", CellChangeTimes->{3.516100485471673*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "winterSolsticeOnOrBefore"}]], "Input"], Cell[BoxData[ StyleBox["\<\"winterSolsticeOnOrBefore[fDate] gives the fixed date of the \ winter solstice on the day of or before the given fixed date.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.516100485537677*^9}, CellTags->"Info3516129285-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"winterSolsticeOnOrBefore", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "20", ",", "2000"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"12", ",", "22", ",", "1999"}], "]"}]], "Output", CellChangeTimes->{3.5161004856136813`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"winterSolsticeOnOrBefore", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "21", ",", "2000"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"12", ",", "21", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.5161004856536837`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"winterSolsticeOnOrBefore", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"12", ",", "25", ",", "2000"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"12", ",", "21", ",", "2000"}], "]"}]], "Output", CellChangeTimes->{3.516100485696686*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "fakeLeapMonthsBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"fakeLeapMonthsBetween[gYear1, gYear2] lists the fake leap \ months (non-leap months without any zhong qi) between Chinese New Year of the \ two given Gregorian years.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004857726903`*^9}, CellTags->"Info3516129285-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fakeLeapMonthsBetween", "[", RowBox[{"2033", ",", "2035"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"8", ",", "25", ",", "2033"}], "]"}], "\[InvisibleSpace]", "\<\" is a fake leap month in a non-leap sui\"\>"}], SequenceForm["The month starting ", CalendricaV1`Gregorian[8, 25, 2033], " is a fake leap month in a non-leap sui"], Editable->False]], "Print", CellChangeTimes->{3.5161004860777082`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "19", ",", "2034"}], "]"}], "\[InvisibleSpace]", "\<\" is a fake leap month in a leap sui\"\>"}], SequenceForm["The month starting ", CalendricaV1`Gregorian[2, 19, 2034], " is a fake leap month in a leap sui"], Editable->False]], "Print", CellChangeTimes->{3.516100486326722*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "twoZhongQisBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"twoZhongQisBetween[gYear1, gYear2] lists the months that \ contain two zhong qis between Chinese New Year of the two given Gregorian \ years.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.5161004865977373`*^9}, CellTags->"Info3516129286-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"twoZhongQisBetween", "[", RowBox[{"2033", ",", "2034"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Two zhong qis in month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"11", ",", "22", ",", "2033"}], "]"}]}], SequenceForm["Two zhong qis in month starting ", CalendricaV1`Gregorian[11, 22, 2033]], Editable->False]], "Print", CellChangeTimes->{3.5161004870377626`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Two zhong qis in month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "20", ",", "2034"}], "]"}]}], SequenceForm["Two zhong qis in month starting ", CalendricaV1`Gregorian[1, 20, 2034]], Editable->False]], "Print", CellChangeTimes->{3.5161004870917664`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "twoJieQisBetween"}]], "Input"], Cell[BoxData[ StyleBox["\<\"twoJieQisBetween[gYear1, gYear2] lists the months that contain \ two jie qis between Chinese New Year of the two given Gregorian years.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.51610048716477*^9}, CellTags->"Info3516129287-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"twoJieQisBetween", "[", RowBox[{"1999", ",", "2000"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Two jie qi's in month starting \"\>", "\[InvisibleSpace]", RowBox[{"Gregorian", "[", RowBox[{"11", ",", "8", ",", "1999"}], "]"}]}], SequenceForm["Two jie qi's in month starting ", CalendricaV1`Gregorian[11, 8, 1999]], Editable->False]], "Print", CellChangeTimes->{3.5161004875767937`*^9}] }, Open ]] }, WindowSize->{1902, 824}, WindowMargins->{{2, Automatic}, {Automatic, 15}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True, Magnification->1.6000001430511475`, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3516129266-3308885"->{ Cell[2242, 77, 749, 11, 133, "Print", CellTags->"Info3516129266-3308885"], Cell[3114, 96, 300, 5, 68, "Print", CellTags->"Info3516129266-3308885"]}, "Info3516129267-3308885"->{ Cell[3852, 122, 379, 6, 101, "Print", CellTags->"Info3516129267-3308885"]}, "Info3516129268-3308885"->{ Cell[5180, 172, 282, 5, 68, "Print", CellTags->"Info3516129268-3308885"], Cell[8144, 257, 302, 5, 108, "Print", CellTags->"Info3516129268-3308885"], Cell[9794, 305, 261, 5, 108, "Print", CellTags->"Info3516129268-3308885"]}, "Info3516129269-3308885"->{ Cell[10535, 336, 299, 5, 108, "Print", CellTags->"Info3516129269-3308885"], Cell[11711, 385, 379, 6, 161, "Print", CellTags->"Info3516129269-3308885"]}, "Info3516129270-3308885"->{ Cell[12926, 435, 285, 5, 108, "Print", CellTags->"Info3516129270-3308885"]}, "Info3516129271-3308885"->{ Cell[13725, 468, 248, 4, 108, "Print", CellTags->"Info3516129271-3308885"], Cell[14314, 491, 256, 5, 108, "Print", CellTags->"Info3516129271-3308885"], Cell[14902, 515, 257, 5, 108, "Print", CellTags->"Info3516129271-3308885"], Cell[15487, 539, 252, 4, 108, "Print", CellTags->"Info3516129271-3308885"], Cell[16066, 562, 250, 4, 108, "Print", CellTags->"Info3516129271-3308885"], Cell[16659, 585, 375, 6, 161, "Print", CellTags->"Info3516129271-3308885"]}, "Info3516129272-3308885"->{ Cell[18966, 662, 276, 5, 108, "Print", CellTags->"Info3516129272-3308885"], Cell[19540, 684, 230, 4, 108, "Print", CellTags->"Info3516129272-3308885"], Cell[20458, 716, 292, 5, 108, "Print", CellTags->"Info3516129272-3308885"], Cell[21203, 743, 248, 4, 108, "Print", CellTags->"Info3516129272-3308885"], Cell[22289, 780, 302, 5, 108, "Print", CellTags->"Info3516129272-3308885"]}, "Info3516129273-3308885"->{ Cell[23092, 808, 262, 5, 108, "Print", CellTags->"Info3516129273-3308885"], Cell[24223, 847, 290, 5, 108, "Print", CellTags->"Info3516129273-3308885"], Cell[24966, 874, 250, 4, 108, "Print", CellTags->"Info3516129273-3308885"], Cell[26045, 911, 292, 5, 108, "Print", CellTags->"Info3516129273-3308885"], Cell[26815, 939, 248, 4, 108, "Print", CellTags->"Info3516129273-3308885"], Cell[27903, 977, 328, 5, 108, "Print", CellTags->"Info3516129273-3308885"]}, "Info3516129274-3308885"->{ Cell[29454, 1026, 318, 5, 108, "Print", CellTags->"Info3516129274-3308885"], Cell[31212, 1079, 330, 5, 108, "Print", CellTags->"Info3516129274-3308885"], Cell[32346, 1113, 367, 6, 161, "Print", CellTags->"Info3516129274-3308885"], Cell[33512, 1148, 264, 5, 108, "Print", CellTags->"Info3516129274-3308885"]}, "Info3516129275-3308885"->{ Cell[34975, 1190, 288, 5, 108, "Print", CellTags->"Info3516129275-3308885"], Cell[35770, 1222, 360, 6, 108, "Print", CellTags->"Info3516129275-3308885"]}, "Info3516129276-3308885"->{ Cell[41239, 1371, 289, 5, 108, "Print", CellTags->"Info3516129276-3308885"]}, "Info3516129278-3308885"->{ Cell[42054, 1403, 447, 7, 161, "Print", CellTags->"Info3516129278-3308885"], Cell[51172, 1610, 233, 4, 108, "Print", CellTags->"Info3516129278-3308885"], Cell[52453, 1657, 262, 5, 108, "Print", CellTags->"Info3516129278-3308885"]}, "Info3516129279-3308885"->{ Cell[53012, 1679, 333, 6, 108, "Print", CellTags->"Info3516129279-3308885"]}, "Info3516129280-3308885"->{ Cell[55038, 1750, 275, 5, 108, "Print", CellTags->"Info3516129280-3308885"]}, "Info3516129281-3308885"->{ Cell[57196, 1817, 297, 5, 108, "Print", CellTags->"Info3516129281-3308885"]}, "Info3516129283-3308885"->{ Cell[58880, 1870, 337, 6, 108, "Print", CellTags->"Info3516129283-3308885"], Cell[59808, 1902, 257, 5, 108, "Print", CellTags->"Info3516129283-3308885"], Cell[61399, 1963, 257, 5, 108, "Print", CellTags->"Info3516129283-3308885"]}, "Info3516129284-3308885"->{ Cell[62561, 2006, 305, 5, 108, "Print", CellTags->"Info3516129284-3308885"]}, "Info3516129285-3308885"->{ Cell[69351, 2194, 248, 4, 108, "Print", CellTags->"Info3516129285-3308885"], Cell[70284, 2230, 272, 5, 108, "Print", CellTags->"Info3516129285-3308885"], Cell[71903, 2291, 314, 5, 108, "Print", CellTags->"Info3516129285-3308885"]}, "Info3516129286-3308885"->{ Cell[73394, 2337, 289, 5, 108, "Print", CellTags->"Info3516129286-3308885"]}, "Info3516129287-3308885"->{ Cell[74677, 2380, 283, 5, 108, "Print", CellTags->"Info3516129287-3308885"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3516129266-3308885", 75898, 2419}, {"Info3516129267-3308885", 76086, 2424}, {"Info3516129268-3308885", 76196, 2427}, {"Info3516129269-3308885", 76465, 2434}, {"Info3516129270-3308885", 76657, 2439}, {"Info3516129271-3308885", 76768, 2442}, {"Info3516129272-3308885", 77284, 2455}, {"Info3516129273-3308885", 77719, 2466}, {"Info3516129274-3308885", 78235, 2479}, {"Info3516129275-3308885", 78593, 2488}, {"Info3516129276-3308885", 78787, 2493}, {"Info3516129278-3308885", 78899, 2496}, {"Info3516129279-3308885", 79175, 2503}, {"Info3516129280-3308885", 79287, 2506}, {"Info3516129281-3308885", 79399, 2509}, {"Info3516129283-3308885", 79511, 2512}, {"Info3516129284-3308885", 79787, 2519}, {"Info3516129285-3308885", 79899, 2522}, {"Info3516129286-3308885", 80175, 2529}, {"Info3516129287-3308885", 80287, 2532} } *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1392, 45, 920, "Input"], Cell[1952, 67, 204, 3, 46, "Input"], Cell[CellGroupData[{ Cell[2181, 74, 58, 1, 46, "Input"], Cell[2242, 77, 749, 11, 133, "Print", CellTags->"Info3516129266-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[3028, 93, 83, 1, 46, "Input"], Cell[3114, 96, 300, 5, 68, "Print", CellTags->"Info3516129266-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[3451, 106, 156, 3, 46, "Input"], Cell[3610, 111, 144, 3, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3791, 119, 58, 1, 46, "Input"], Cell[3852, 122, 379, 6, 101, "Print", CellTags->"Info3516129267-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[4268, 133, 94, 2, 46, "Input"], Cell[4365, 137, 142, 3, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4544, 145, 109, 2, 46, "Input"], Cell[4656, 149, 144, 3, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4837, 157, 94, 2, 46, "Input"], Cell[4934, 161, 142, 3, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5113, 169, 64, 1, 46, "Input"], Cell[5180, 172, 282, 5, 68, "Print", CellTags->"Info3516129268-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[5499, 182, 77, 1, 46, "Input"], Cell[5579, 185, 1218, 29, 100, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6834, 219, 77, 1, 73, "Input"], Cell[6914, 222, 1126, 27, 116, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8077, 254, 64, 1, 73, "Input"], Cell[8144, 257, 302, 5, 108, "Print", CellTags->"Info3516129268-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[8483, 267, 77, 1, 73, "Input"], Cell[8563, 270, 1132, 27, 116, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9732, 302, 59, 1, 73, "Input"], Cell[9794, 305, 261, 5, 108, "Print", CellTags->"Info3516129268-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[10092, 315, 72, 1, 73, "Input"], Cell[10167, 318, 75, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10279, 324, 72, 1, 73, "Input"], Cell[10354, 327, 74, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10465, 333, 67, 1, 73, "Input"], Cell[10535, 336, 299, 5, 108, "Print", CellTags->"Info3516129269-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[10871, 346, 80, 1, 73, "Input"], Cell[10954, 349, 75, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11066, 355, 80, 1, 73, "Input"], Cell[11149, 358, 74, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11260, 364, 80, 1, 73, "Input"], Cell[11343, 367, 76, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11456, 373, 80, 1, 73, "Input"], Cell[11539, 376, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11649, 382, 59, 1, 73, "Input"], Cell[11711, 385, 379, 6, 161, "Print", CellTags->"Info3516129269-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[12127, 396, 72, 1, 73, "Input"], Cell[12202, 399, 72, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12311, 405, 72, 1, 73, "Input"], Cell[12386, 408, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12496, 414, 72, 1, 73, "Input"], Cell[12571, 417, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12681, 423, 72, 1, 73, "Input"], Cell[12756, 426, 70, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12863, 432, 60, 1, 73, "Input"], Cell[12926, 435, 285, 5, 108, "Print", CellTags->"Info3516129270-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[13248, 445, 96, 2, 73, "Input"], Cell[13347, 449, 72, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13456, 455, 96, 2, 73, "Input"], Cell[13555, 459, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13665, 465, 57, 1, 73, "Input"], Cell[13725, 468, 248, 4, 108, "Print", CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[14010, 477, 70, 1, 73, "Input"], Cell[14083, 480, 145, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14265, 488, 46, 1, 73, "Input"], Cell[14314, 491, 256, 5, 108, "Print", CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[14607, 501, 59, 1, 73, "Input"], Cell[14669, 504, 144, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14850, 512, 49, 1, 73, "Input"], Cell[14902, 515, 257, 5, 108, "Print", CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[15196, 525, 62, 1, 73, "Input"], Cell[15261, 528, 141, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15439, 536, 45, 1, 73, "Input"], Cell[15487, 539, 252, 4, 108, "Print", CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[15776, 548, 58, 1, 73, "Input"], Cell[15837, 551, 144, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16018, 559, 45, 1, 73, "Input"], Cell[16066, 562, 250, 4, 108, "Print", CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[16353, 571, 58, 1, 73, "Input"], Cell[16414, 574, 144, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16595, 582, 61, 1, 73, "Input"], Cell[16659, 585, 375, 6, 161, "Print", CellTags->"Info3516129271-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[17071, 596, 74, 1, 73, "Input"], Cell[CellGroupData[{ Cell[17170, 601, 192, 4, 52, "Print"], Cell[17365, 607, 181, 4, 52, "Print"], Cell[17549, 613, 185, 4, 52, "Print"], Cell[17737, 619, 189, 4, 52, "Print"], Cell[17929, 625, 182, 4, 52, "Print"], Cell[18114, 631, 186, 4, 52, "Print"], Cell[18303, 637, 181, 4, 52, "Print"], Cell[18487, 643, 184, 4, 52, "Print"], Cell[18674, 649, 182, 4, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18905, 659, 58, 1, 73, "Input"], Cell[18966, 662, 276, 5, 108, "Print", CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[19279, 672, 71, 1, 73, "Input"], Cell[19353, 675, 89, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19479, 681, 58, 1, 73, "Input"], Cell[19540, 684, 230, 4, 108, "Print", CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[19807, 693, 71, 1, 73, "Input"], Cell[19881, 696, 470, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[20388, 713, 67, 1, 73, "Input"], Cell[20458, 716, 292, 5, 108, "Print", CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[20787, 726, 219, 6, 73, "Input"], Cell[21009, 734, 87, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21133, 740, 67, 1, 73, "Input"], Cell[21203, 743, 248, 4, 108, "Print", CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[21488, 752, 219, 6, 73, "Input"], Cell[21710, 760, 466, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[22213, 777, 73, 1, 73, "Input"], Cell[22289, 780, 302, 5, 108, "Print", CellTags->"Info3516129272-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[22628, 790, 259, 7, 73, "Input"], Cell[22890, 799, 89, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23016, 805, 73, 1, 73, "Input"], Cell[23092, 808, 262, 5, 108, "Print", CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[23391, 818, 259, 7, 73, "Input"], Cell[23653, 827, 463, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[24153, 844, 67, 1, 73, "Input"], Cell[24223, 847, 290, 5, 108, "Print", CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[24550, 857, 219, 6, 73, "Input"], Cell[24772, 865, 87, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24896, 871, 67, 1, 73, "Input"], Cell[24966, 874, 250, 4, 108, "Print", CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[25253, 883, 219, 6, 73, "Input"], Cell[25475, 891, 463, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[25975, 908, 67, 1, 73, "Input"], Cell[26045, 911, 292, 5, 108, "Print", CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[26374, 921, 242, 7, 73, "Input"], Cell[26619, 930, 89, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26745, 936, 67, 1, 73, "Input"], Cell[26815, 939, 248, 4, 108, "Print", CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[27100, 948, 242, 7, 73, "Input"], Cell[27345, 957, 463, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[27845, 974, 55, 1, 73, "Input"], Cell[27903, 977, 328, 5, 108, "Print", CellTags->"Info3516129273-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[28268, 987, 68, 1, 73, "Input"], Cell[28339, 990, 457, 10, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[28833, 1005, 68, 1, 73, "Input"], Cell[28904, 1008, 455, 10, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[29396, 1023, 55, 1, 73, "Input"], Cell[29454, 1026, 318, 5, 108, "Print", CellTags->"Info3516129274-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[29809, 1036, 68, 1, 73, "Input"], Cell[29880, 1039, 559, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[30476, 1056, 68, 1, 73, "Input"], Cell[30547, 1059, 564, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[31148, 1076, 61, 1, 73, "Input"], Cell[31212, 1079, 330, 5, 108, "Print", CellTags->"Info3516129274-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[31579, 1089, 100, 2, 73, "Input"], Cell[31682, 1093, 564, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[32283, 1110, 60, 1, 73, "Input"], Cell[32346, 1113, 367, 6, 161, "Print", CellTags->"Info3516129274-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[32750, 1124, 99, 2, 73, "Input"], Cell[32852, 1128, 562, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[33451, 1145, 58, 1, 73, "Input"], Cell[33512, 1148, 264, 5, 108, "Print", CellTags->"Info3516129274-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[33813, 1158, 97, 2, 73, "Input"], Cell[33913, 1162, 956, 20, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[34906, 1187, 66, 1, 73, "Input"], Cell[34975, 1190, 288, 5, 108, "Print", CellTags->"Info3516129275-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[35300, 1200, 105, 2, 73, "Input"], Cell[CellGroupData[{ Cell[35430, 1206, 72, 1, 52, "Print"], Cell[35505, 1209, 74, 1, 52, "Print"], Cell[35582, 1212, 69, 1, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35700, 1219, 67, 1, 73, "Input"], Cell[35770, 1222, 360, 6, 108, "Print", CellTags->"Info3516129275-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[36167, 1233, 179, 3, 73, "Input"], Cell[CellGroupData[{ Cell[36371, 1240, 222, 6, 52, "Print"], Cell[36596, 1248, 222, 6, 52, "Print"], Cell[36821, 1256, 221, 5, 52, "Print"] }, Open ]], Cell[37057, 1264, 4072, 99, 627, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41166, 1368, 70, 1, 73, "Input"], Cell[41239, 1371, 289, 5, 108, "Print", CellTags->"Info3516129276-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[41565, 1381, 124, 2, 73, "Input"], Cell[CellGroupData[{ Cell[41714, 1387, 72, 1, 52, "Print"], Cell[41789, 1390, 74, 1, 52, "Print"], Cell[41866, 1393, 71, 1, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41986, 1400, 65, 1, 73, "Input"], Cell[42054, 1403, 447, 7, 161, "Print", CellTags->"Info3516129278-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[42538, 1415, 104, 2, 73, "Input"], Cell[CellGroupData[{ Cell[42667, 1421, 333, 8, 52, "Print"], Cell[43003, 1431, 333, 8, 52, "Print"], Cell[43339, 1441, 889, 14, 97, "Print"] }, Open ]], Cell[44243, 1458, 6823, 144, 614, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51103, 1607, 66, 1, 73, "Input"], Cell[51172, 1610, 233, 4, 108, "Print", CellTags->"Info3516129278-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[51442, 1619, 281, 7, 73, "Input"], Cell[51726, 1628, 182, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51945, 1637, 262, 7, 73, "Input"], Cell[52210, 1646, 141, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52388, 1654, 62, 1, 73, "Input"], Cell[52453, 1657, 262, 5, 108, "Print", CellTags->"Info3516129278-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[52752, 1667, 75, 1, 73, "Input"], Cell[52830, 1670, 72, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52939, 1676, 70, 1, 73, "Input"], Cell[53012, 1679, 333, 6, 108, "Print", CellTags->"Info3516129279-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[53382, 1690, 109, 2, 73, "Input"], Cell[CellGroupData[{ Cell[53516, 1696, 224, 6, 52, "Print"], Cell[53743, 1704, 226, 6, 52, "Print"], Cell[53972, 1712, 224, 6, 52, "Print"], Cell[54199, 1720, 224, 6, 52, "Print"], Cell[54426, 1728, 223, 6, 52, "Print"] }, Open ]], Cell[54664, 1737, 263, 5, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54964, 1747, 71, 1, 73, "Input"], Cell[55038, 1750, 275, 5, 108, "Print", CellTags->"Info3516129280-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[55350, 1760, 114, 2, 73, "Input"], Cell[CellGroupData[{ Cell[55489, 1766, 395, 9, 52, "Print"], Cell[55887, 1777, 393, 9, 52, "Print"], Cell[56283, 1788, 393, 9, 52, "Print"], Cell[56679, 1799, 393, 9, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57121, 1814, 72, 1, 73, "Input"], Cell[57196, 1817, 297, 5, 108, "Print", CellTags->"Info3516129281-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[57530, 1827, 115, 2, 73, "Input"], Cell[CellGroupData[{ Cell[57670, 1833, 364, 8, 52, "Print"], Cell[58037, 1843, 366, 8, 52, "Print"], Cell[58406, 1853, 366, 8, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58821, 1867, 56, 1, 73, "Input"], Cell[58880, 1870, 337, 6, 108, "Print", CellTags->"Info3516129283-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[59254, 1881, 304, 8, 73, "Input"], Cell[59561, 1891, 144, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59742, 1899, 63, 1, 73, "Input"], Cell[59808, 1902, 257, 5, 108, "Print", CellTags->"Info3516129283-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[60102, 1912, 225, 6, 73, "Input"], Cell[60330, 1920, 142, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60509, 1928, 225, 6, 73, "Input"], Cell[60737, 1936, 144, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60918, 1944, 225, 6, 73, "Input"], Cell[61146, 1952, 144, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61327, 1960, 69, 1, 73, "Input"], Cell[61399, 1963, 257, 5, 108, "Print", CellTags->"Info3516129283-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[61693, 1973, 224, 6, 73, "Input"], Cell[61920, 1981, 144, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62101, 1989, 188, 4, 73, "Input"], Cell[62292, 1995, 159, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62488, 2003, 70, 1, 73, "Input"], Cell[62561, 2006, 305, 5, 108, "Print", CellTags->"Info3516129284-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[62903, 2016, 109, 2, 73, "Input"], Cell[CellGroupData[{ Cell[63037, 2022, 490, 11, 97, "Print"], Cell[63530, 2035, 490, 11, 97, "Print"], Cell[64023, 2048, 492, 11, 97, "Print"], Cell[64518, 2061, 490, 11, 97, "Print"], Cell[65011, 2074, 490, 11, 97, "Print"], Cell[65504, 2087, 492, 11, 97, "Print"], Cell[65999, 2100, 490, 11, 97, "Print"], Cell[66492, 2113, 490, 11, 97, "Print"], Cell[66985, 2126, 492, 11, 97, "Print"], Cell[67480, 2139, 494, 11, 97, "Print"], Cell[67977, 2152, 494, 11, 97, "Print"], Cell[68474, 2165, 492, 11, 97, "Print"], Cell[68969, 2178, 184, 4, 52, "Print"] }, Open ]], Cell[69168, 2185, 88, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69293, 2191, 55, 1, 73, "Input"], Cell[69351, 2194, 248, 4, 108, "Print", CellTags->"Info3516129285-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[69636, 2203, 174, 4, 73, "Input"], Cell[69813, 2209, 75, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69925, 2215, 176, 4, 73, "Input"], Cell[70104, 2221, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70214, 2227, 67, 1, 73, "Input"], Cell[70284, 2230, 272, 5, 108, "Print", CellTags->"Info3516129285-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[70593, 2240, 230, 6, 73, "Input"], Cell[70826, 2248, 145, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71008, 2256, 230, 6, 73, "Input"], Cell[71241, 2264, 145, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71423, 2272, 230, 6, 73, "Input"], Cell[71656, 2280, 143, 3, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71836, 2288, 64, 1, 73, "Input"], Cell[71903, 2291, 314, 5, 108, "Print", CellTags->"Info3516129285-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[72254, 2301, 103, 2, 73, "Input"], Cell[CellGroupData[{ Cell[72382, 2307, 455, 10, 52, "Print"], Cell[72840, 2319, 441, 9, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73330, 2334, 61, 1, 73, "Input"], Cell[73394, 2337, 289, 5, 108, "Print", CellTags->"Info3516129286-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[73720, 2347, 100, 2, 73, "Input"], Cell[CellGroupData[{ Cell[73845, 2353, 360, 8, 52, "Print"], Cell[74208, 2363, 358, 8, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74615, 2377, 59, 1, 73, "Input"], Cell[74677, 2380, 283, 5, 108, "Print", CellTags->"Info3516129287-3308885"] }, Open ]], Cell[CellGroupData[{ Cell[74997, 2390, 98, 2, 73, "Input"], Cell[75098, 2394, 356, 8, 52, "Print"] }, Open ]] } ] *) (* End of internal cache information *)