(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 102520, 3044] NotebookOptionsPosition[ 81833, 2373] NotebookOutlinePosition[ 87305, 2522] CellTagsIndexPosition[ 86379, 2497] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ (* ChineseCalendar.nb, example notebook for the ChineseCalendar.m package *) (* :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: 2.0, 2011 June 3 *) (* :Requirements: Calendrica.m, written by Robert C. McNally and updated for Mathematica V8 by \ Helmer Aslaksen. Available on http://www.math.nus.edu.sg/aslaksen/calendar/Calendrica.m . ChineseCalendar.m, written by Helmer Aslaksen. Available on http://www.math.nus.edu.sg/aslaksen/calendar/ChineseCalendar.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.5157276213607454`*^9, 3.5157276666813374`*^9}, { 3.5157283366526575`*^9, 3.515728400633317*^9}, {3.5158115497739215`*^9, 3.5158115503355227`*^9}, {3.516077177155631*^9, 3.516077181362872*^9}, { 3.5160772232272663`*^9, 3.516077236556029*^9}, {3.5161006559584246`*^9, 3.516100667956111*^9}, {3.5161007037171564`*^9, 3.5161007219261975`*^9}, { 3.5161007560371485`*^9, 3.5161008243760576`*^9}, {3.5161009042666273`*^9, 3.5161009117890573`*^9}}], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5157295095647445`*^9, 3.5157295107548122`*^9}, { 3.5157299933884172`*^9, 3.5157300155556855`*^9}, {3.515730282835973*^9, 3.515730291508469*^9}, {3.515730706444202*^9, 3.515730711412486*^9}, { 3.5157307652295647`*^9, 3.515730767715707*^9}, {3.515747537068194*^9, 3.515747539470598*^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.5160771302819505`*^9}, CellTags->"Info3516105929-7479132"] }, 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.5160771304349594`*^9}, CellTags->"Info3516105930-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"nthChineseNewMoonOnOrAfterChineseNewYear", "[", RowBox[{"1998", ",", "6"}], "]"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Wednesday, \\!\\(24\\) June \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 24, "June", 1998], Editable->False]], "Output", CellChangeTimes->{3.5160771305819674`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "nthChineseMonth"}]], "Input"], Cell[CellGroupData[{ 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.516077130656972*^9}, CellTags->"Info3516105930-7479132"], Cell[BoxData[ StyleBox[ "\"\\"", "MSG"]], "Print", "PrintUsage", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.515842786904251*^9, 3.515842941750123*^9}, CellTags->"Info3515871586-7926486"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nthChineseMonth", "[", RowBox[{"1998", ",", "5"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Tuesday, \\!\\(26\\) May \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 26, "May", 1998], Editable->False]], "Output", CellChangeTimes->{3.516077131046994*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nthChineseMonth", "[", RowBox[{"1998", ",", "5", ",", " ", "1"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Wednesday, \\!\\(24\\) June \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 24, "June", 1998], Editable->False]], "Output", CellChangeTimes->{3.5160771311990027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nthChineseMonth", "[", RowBox[{"1998", ",", "6"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Thursday, \\!\\(23\\) July \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Thursday", 23, "July", 1998], Editable->False]], "Output", CellChangeTimes->{3.516077131482019*^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.516077131566024*^9}, CellTags->"Info3516105931-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseNewMoonsInYear", "[", "1998", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox["\<\"Wednesday, \\!\\(28\\) January \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 28, "January", 1998], Editable->False], ",", InterpretationBox["\<\"Friday, \\!\\(27\\) February \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Friday", 27, "February", 1998], Editable->False], ",", InterpretationBox["\<\"Saturday, \\!\\(28\\) March \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Saturday", 28, "March", 1998], Editable->False], ",", InterpretationBox["\<\"Sunday, \\!\\(26\\) April \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Sunday", 26, "April", 1998], Editable->False], ",", InterpretationBox["\<\"Tuesday, \\!\\(26\\) May \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 26, "May", 1998], Editable->False], ",", InterpretationBox["\<\"Wednesday, \\!\\(24\\) June \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 24, "June", 1998], Editable->False], ",", InterpretationBox["\<\"Thursday, \\!\\(23\\) July \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Thursday", 23, "July", 1998], Editable->False], ",", InterpretationBox["\<\"Saturday, \\!\\(22\\) August \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Saturday", 22, "August", 1998], Editable->False], ",", InterpretationBox["\<\"Monday, \\!\\(21\\) September \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Monday", 21, "September", 1998], Editable->False], ",", InterpretationBox["\<\"Tuesday, \\!\\(20\\) October \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 20, "October", 1998], Editable->False], ",", InterpretationBox["\<\"Thursday, \\!\\(19\\) November \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Thursday", 19, "November", 1998], Editable->False], ",", InterpretationBox["\<\"Saturday, \\!\\(19\\) December \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Saturday", 19, "December", 1998], Editable->False], ",", InterpretationBox["\<\"Sunday, \\!\\(17\\) January \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Sunday", 17, "January", 1999], Editable->False]}], "}"}]], "Output", CellChangeTimes->{3.5160771318220387`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseNewMoonsInYear", "[", "1999", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox["\<\"Tuesday, \\!\\(16\\) February \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 16, "February", 1999], Editable->False], ",", InterpretationBox["\<\"Thursday, \\!\\(18\\) March \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Thursday", 18, "March", 1999], Editable->False], ",", InterpretationBox["\<\"Friday, \\!\\(16\\) April \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Friday", 16, "April", 1999], Editable->False], ",", InterpretationBox["\<\"Saturday, \\!\\(15\\) May \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Saturday", 15, "May", 1999], Editable->False], ",", InterpretationBox["\<\"Monday, \\!\\(14\\) June \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Monday", 14, "June", 1999], Editable->False], ",", InterpretationBox["\<\"Tuesday, \\!\\(13\\) July \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 13, "July", 1999], Editable->False], ",", InterpretationBox["\<\"Wednesday, \\!\\(11\\) August \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 11, "August", 1999], Editable->False], ",", InterpretationBox["\<\"Friday, \\!\\(10\\) September \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Friday", 10, "September", 1999], Editable->False], ",", InterpretationBox["\<\"Saturday, \\!\\(9\\) October \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Saturday", 9, "October", 1999], Editable->False], ",", InterpretationBox["\<\"Monday, \\!\\(8\\) November \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Monday", 8, "November", 1999], Editable->False], ",", InterpretationBox["\<\"Wednesday, \\!\\(8\\) December \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 8, "December", 1999], Editable->False], ",", InterpretationBox["\<\"Friday, \\!\\(7\\) January \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Friday", 7, "January", 2000], Editable->False]}], "}"}]], "Output", CellChangeTimes->{3.5160771319790473`*^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.516077132045051*^9}, CellTags->"Info3516105931-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"majorSolarTermsInYear", "[", "1998", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox["\<\"Thursday, \\!\\(19\\) February \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Thursday", 19, "February", 1998], Editable->False], ",", InterpretationBox["\<\"Saturday, \\!\\(21\\) March \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Saturday", 21, "March", 1998], Editable->False], ",", InterpretationBox["\<\"Monday, \\!\\(20\\) April \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Monday", 20, "April", 1998], Editable->False], ",", InterpretationBox["\<\"Thursday, \\!\\(21\\) May \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Thursday", 21, "May", 1998], Editable->False], ",", InterpretationBox["\<\"Sunday, \\!\\(21\\) June \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Sunday", 21, "June", 1998], Editable->False], ",", InterpretationBox["\<\"Thursday, \\!\\(23\\) July \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Thursday", 23, "July", 1998], Editable->False], ",", InterpretationBox["\<\"Sunday, \\!\\(23\\) August \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Sunday", 23, "August", 1998], Editable->False], ",", InterpretationBox["\<\"Wednesday, \\!\\(23\\) September \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 23, "September", 1998], Editable->False], ",", InterpretationBox["\<\"Friday, \\!\\(23\\) October \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Friday", 23, "October", 1998], Editable->False], ",", InterpretationBox["\<\"Sunday, \\!\\(22\\) November \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Sunday", 22, "November", 1998], Editable->False], ",", InterpretationBox["\<\"Tuesday, \\!\\(22\\) December \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 22, "December", 1998], Editable->False], ",", InterpretationBox["\<\"Wednesday, \\!\\(20\\) January \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 20, "January", 1999], Editable->False]}], "}"}]], "Output", CellChangeTimes->{3.5160771323550687`*^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.516077132426073*^9}, CellTags->"Info3516105932-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapYearQ", "[", "1998", "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.5160771325370793`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapYearQ", "[", "1999", "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.5160771326050835`*^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.516077132670087*^9}, CellTags->"Info3516105932-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapSolsticeYearQ", "[", "1998", "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.516077132770093*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapSolsticeYearQ", "[", "1999", "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.516077132842097*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapSolsticeYearQ", "[", "2033", "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.5160771329401026`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapSolsticeYearQ", "[", "2034", "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.5160771330321074`*^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.5160771330971117`*^9}, CellTags->"Info3516105933-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonth", "[", "1998", "]"}]], "Input"], Cell[BoxData["5"], "Output", CellChangeTimes->{3.516077133582139*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonth", "[", "2033", "]"}]], "Input"], Cell[BoxData["11"], "Output", CellChangeTimes->{3.5160771339581604`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonth", "[", "3358", "]"}]], "Input"], Cell[BoxData["12"], "Output", CellChangeTimes->{3.5160771344121866`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonth", "[", "2262", "]"}]], "Input"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.516077134700203*^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.5160771348032093`*^9}, CellTags->"Info3516105934-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonthQ", "[", RowBox[{"1998", ",", "5"}], "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.516077135227233*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonthQ", "[", RowBox[{"1998", ",", "7"}], "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.516077135448246*^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.5160771355132494`*^9}, CellTags->"Info3516105935-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"winterSolstice", "[", "1999", "]"}]], "Input", CellChangeTimes->{{3.515750491574649*^9, 3.515750494649825*^9}}], Cell[BoxData[ InterpretationBox["\<\"Wednesday, \\!\\(22\\) December \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 22, "December", 1999], Editable->False]], "Output", CellChangeTimes->{3.516077135583254*^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.516077135647257*^9}, CellTags->"Info3516105935-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z12", "[", "1999", "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Wednesday, \\!\\(20\\) January \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 20, "January", 1999], Editable->False]], "Output", CellChangeTimes->{3.5160771357212615`*^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.5160771357912655`*^9}, CellTags->"Info3516105935-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"liChun", "[", "2000", "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Friday, \\!\\(4\\) February \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Friday", 4, "February", 2000], Editable->False]], "Output", CellChangeTimes->{3.51607713586127*^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.5160771359242735`*^9}, CellTags->"Info3516105935-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z1", "[", "2000", "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Saturday, \\!\\(19\\) February \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Saturday", 19, "February", 2000], Editable->False]], "Output", CellChangeTimes->{3.5160771359972773`*^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.5160771360612807`*^9}, CellTags->"Info3516105936-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z2", "[", "2000", "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Monday, \\!\\(20\\) March \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Monday", 20, "March", 2000], Editable->False]], "Output", CellChangeTimes->{3.516077136130285*^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.5160771361952887`*^9}, CellTags->"Info3516105936-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseNewYearData", "[", "2000", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\<\"Winter solstice:\"\>", " ", InterpretationBox["\<\"Wednesday, \\!\\(22\\) December \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 22, "December", 1999], Editable->False]}]], "Print", CellChangeTimes->{3.5160771362662926`*^9}], Cell[BoxData[ RowBox[{"\<\"Month 11+:\"\>", " ", InterpretationBox["\<\"Friday, \\!\\(7\\) January \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Friday", 7, "January", 2000], Editable->False]}]], "Print", CellChangeTimes->{3.516077136357298*^9}], Cell[BoxData[ RowBox[{"\<\"zhong qi 12:\"\>", " ", InterpretationBox["\<\"Wednesday, \\!\\(20\\) January \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 20, "January", 1999], Editable->False]}]], "Print", CellChangeTimes->{3.5160771363822994`*^9}], Cell[BoxData[ RowBox[{"\<\"Chinese New Year:\"\>", " ", InterpretationBox["\<\"Saturday, \\!\\(5\\) February \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Saturday", 5, "February", 2000], Editable->False]}]], "Print", CellChangeTimes->{3.516077136468304*^9}], Cell[BoxData[ RowBox[{"\<\"Li chun:\"\>", " ", InterpretationBox["\<\"Friday, \\!\\(4\\) February \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Friday", 4, "February", 2000], Editable->False]}]], "Print", CellChangeTimes->{3.516077136495306*^9}], Cell[BoxData[ RowBox[{"\<\"zhong qi 1:\"\>", " ", InterpretationBox["\<\"Saturday, \\!\\(19\\) February \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Saturday", 19, "February", 2000], Editable->False]}]], "Print", CellChangeTimes->{3.5160771365223074`*^9}], Cell[BoxData[ RowBox[{"\<\"Month 1+:\"\>", " ", InterpretationBox["\<\"Monday, \\!\\(6\\) March \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Monday", 6, "March", 2000], Editable->False]}]], "Print", CellChangeTimes->{3.51607713656131*^9}], Cell[BoxData[ RowBox[{"\<\"zhong qi 2:\"\>", " ", InterpretationBox["\<\"Monday, \\!\\(20\\) March \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Monday", 20, "March", 2000], Editable->False]}]], "Print", CellChangeTimes->{3.5160771365863113`*^9}], Cell[BoxData[ RowBox[{"\<\"Month 1++:\"\>", " ", InterpretationBox["\<\"Wednesday, \\!\\(5\\) April \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 5, "April", 2000], Editable->False]}]], "Print", CellChangeTimes->{3.5160771366323137`*^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.5160771367073183`*^9}, CellTags->"Info3516105936-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mChineseNewYear", "[", "1999", "]"}]], "Input"], Cell[BoxData["729801.6102223131`"], "Output", CellChangeTimes->{3.516077136827325*^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.5160771368883286`*^9}, CellTags->"Info3516105936-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tChineseNewYear", "[", "1999", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"Tuesday, \\!\\(16\\) February \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 16, "February", 1999], Editable->False], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", "\<\"02:38:43 P.M.\"\>"}]}], SequenceForm[ Calendrica`Gregorian[1999, 2, 16], "," Calendrica`TimeOfDay[14, 38, 43.207847595214844`]], Editable->False]], "Print", CellChangeTimes->{3.5160771370643387`*^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.516077137127342*^9}, CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mChineseNewMoonOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1999", ",", RowBox[{"June", "[", "]"}], ",", "11"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5158354905941277`*^9, 3.51583549766094*^9}}], Cell[BoxData["729919.1269556858`"], "Output", CellChangeTimes->{3.5160771371803446`*^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.516077137245349*^9}, CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tChineseNewMoonOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1999", ",", RowBox[{"June", "[", "]"}], ",", "11"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.515835646500802*^9, 3.5158356880592747`*^9}, 3.5158357436109724`*^9, {3.515835802142275*^9, 3.515835802594676*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"Monday, \\!\\(14\\) June \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Monday", 14, "June", 1999], Editable->False], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", "\<\"03:02:48 A.M.\"\>"}]}], SequenceForm[ Calendrica`Gregorian[1999, 6, 14], "," Calendrica`TimeOfDay[3, 2, 48.97125244140625]], Editable->False]], "Print", CellChangeTimes->{3.5160771373063517`*^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.5160771373703556`*^9}, CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tMajorSolarTermOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1999", ",", RowBox[{"June", "[", "]"}], ",", "11"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.515835837008336*^9, 3.5158358426711464`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"Tuesday, \\!\\(22\\) June \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 22, "June", 1999], Editable->False], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", "\<\"03:48:52 A.M.\"\>"}]}], SequenceForm[ Calendrica`Gregorian[1999, 6, 22], "," Calendrica`TimeOfDay[3, 48, 52.01038360595703]], Editable->False]], "Print", CellChangeTimes->{3.516077137465361*^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.5160771375383654`*^9}, CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"tMinorSolarTermOnOrAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1999", ",", " ", RowBox[{"June", "[", "]"}], ",", "11"}], "]"}], "]"}], "]"}], " "}]], "Input", CellChangeTimes->{{3.5158372207000675`*^9, 3.5158372295985765`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ InterpretationBox["\<\"Wednesday, \\!\\(7\\) July \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 7, "July", 1999], Editable->False], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", "\<\"09:24:46 P.M.\"\>"}]}], SequenceForm[ Calendrica`Gregorian[1999, 7, 7], "," Calendrica`TimeOfDay[21, 24, 46.160057067871094`]], Editable->False]], "Print", CellChangeTimes->{3.516077137635371*^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.516077137701375*^9}, CellTags->"Info3516105937-7479132"] }, 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.5160771378173814`*^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.516077137894386*^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.51607713796239*^9}, CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timeToLiChun", "[", "1985", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "1985", "\[InvisibleSpace]", "\<\", CNY-1 to LC: \"\>", "\[InvisibleSpace]", "13.78030797361862`", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "15.896334683638997`", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "45.615762351080775`"}], SequenceForm[ 1985, ", CNY-1 to LC: ", 13.78030797361862, ", CNY to LC: ", 15.896334683638997`, ", CNY+1 to LC: ", 45.615762351080775`], Editable->False]], "Print", CellChangeTimes->{3.516077138123399*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timeToLiChun", "[", "2015", "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2015", "\[InvisibleSpace]", "\<\", CNY-1 to LC: \"\>", "\[InvisibleSpace]", "14.614304172922857`", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "14.825645672273822`", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "44.23463786370121`"}], SequenceForm[ 2015, ", CNY-1 to LC: ", 14.614304172922857`, ", CNY to LC: ", 14.825645672273822`, ", CNY+1 to LC: ", 44.23463786370121], Editable->False]], "Print", CellChangeTimes->{3.516077138233405*^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.5160771383014092`*^9}, CellTags->"Info3516105938-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"liChunErrorBetween", "[", RowBox[{"2014", ",", "2016"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2015", "\[InvisibleSpace]", "\<\", CNY-1 to LC: \"\>", "\[InvisibleSpace]", "14.614305719849654`", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "14.825644125347026`", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "44.23463631677441`"}], SequenceForm[ 2015, ", CNY-1 to LC: ", 14.614305719849654`, ", CNY to LC: ", 14.825644125347026`, ", CNY+1 to LC: ", 44.23463631677441], Editable->False]], "Print", CellChangeTimes->{3.5160771385524235`*^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.516077138703432*^9}, CellTags->"Info3516105938-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lateLiChunBetween", "[", RowBox[{"2003", ",", "2005"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2004", "\[InvisibleSpace]", "\<\", CNY-1 to LC: \"\>", "\[InvisibleSpace]", "43.09238953294698`", "\[InvisibleSpace]", "\<\", CNY to LC: \"\>", "\[InvisibleSpace]", "13.618827916798182`", "\[InvisibleSpace]", "\<\", CNY+1 to LC: \"\>", "\[InvisibleSpace]", "15.890064506907947`"}], SequenceForm[ 2004, ", CNY-1 to LC: ", 43.09238953294698, ", CNY to LC: ", 13.618827916798182`, ", CNY+1 to LC: ", 15.890064506907947`], Editable->False]], "Print", CellChangeTimes->{3.5160771389574466`*^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.5160771391144557`*^9}, CellTags->"Info3516105939-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z12ErrorBetween", "[", RowBox[{"2052", ",", "2054"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"2053", "\[InvisibleSpace]", "\<\", Z12: \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Sunday, \\!\\(19\\) January \\!\\(2053\\)\"\>", StringForm["``, `` `` ``", "Sunday", 19, "January", 2053], Editable->False], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", "\<\"10:57:29 P.M.\"\>"}]}], SequenceForm[2053, ", Z12: ", Calendrica`Gregorian[2053, 1, 19], "," Calendrica`TimeOfDay[22, 57, 29.436904907226562`]], Editable->False]], "Print", CellChangeTimes->{3.516077139351469*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"M12: \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Monday, \\!\\(20\\) January \\!\\(2053\\)\"\>", StringForm["``, `` `` ``", "Monday", 20, "January", 2053], Editable->False], "\[InvisibleSpace]", RowBox[{"\<\",\"\>", " ", "\<\"07:10:44 A.M.\"\>"}]}], SequenceForm["M12: ", Calendrica`Gregorian[2053, 1, 20], "," Calendrica`TimeOfDay[7, 10, 44.56507873535156]], Editable->False]], "Print", CellChangeTimes->{3.5160771394244733`*^9}] }, Open ]] }, 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.516077139560481*^9}, CellTags->"Info3516105939-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapYearsBetween", "[", RowBox[{"1990", ",", "1993"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData["1990"], "Print", CellChangeTimes->{3.5160771396844883`*^9}], Cell[BoxData["1993"], "Print", CellChangeTimes->{3.5160771399035006`*^9}], Cell[BoxData["2"], "Print", CellChangeTimes->{3.5160771399085007`*^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.5160771399835052`*^9}, CellTags->"Info3516105939-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseLeapMonthsBetween", "[", RowBox[{"1990", ",", " ", "1993"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"1990", "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", "5"}], SequenceForm[1990, ":", 5], Editable->False]], "Print", CellChangeTimes->{3.516077140523536*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"1993", "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", "3"}], SequenceForm[1993, ":", 3], Editable->False]], "Print", CellChangeTimes->{3.5160771409845624`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Print", CellChangeTimes->{3.516077140990563*^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.5160771411375713`*^9}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXc1rG0cUH0m7WvkjUOilBUeNocE4lGK7vdSnUoINgVJ0amTFMSaUJA6l IQ1tD0XrWy4+66/yJZdelT8gl1x8yMWd92ZXGq00ozUZRxvez87z25n9zefO e/P2ZWfm5+OXT377/fjl00fHt/ZfHD9/8vTRn7f2/nihoxo1peo/KlV7/pnS 1/+qxhv11WV6qf/9lF4qdZXLf/Sf6GRD6Z+dYV0H4vT93Tfq3bNLHRnr2EZt kGqw6haBUQ6MdKCh7+hL9cCJ4kD3lO7UBodFWJLDdFl0VaeSTVgdaFpJL7YU /yT7RxmGyqvbGcXUoL/1n2b/nNPqNDvDJlVPR9CPyXa1R9neLwKXrHb0ZuXS 1Dc5bfe0NphCUOmtcTPMLeqPhm415ZkUU1DHqb8IQcl2htyavAZNg27vUu+n nb3hfQewZV0fODD8iEyhJj7trOmO5IdaDn+xpVvOj9eu4Ky0jXGrTCF2gYkB 7gzTvLLTmCjrM/qJ6IERWsf96sPrfqUK1q2Kdx14elBJ99T0bPZsphs2nW7c sInCOmtUGD+F7isanKbgGZiIB7p+lFSw/cQc2Il4GsF5o2bgqVFN/TTe9khQ 9N3DYotmJHK0yHRfKwNSBtOlGgyX2j3rjdoz3RwDpOa0qAlr73pGejXClStV N2KJ1XceetthEpRohxmn3nakF9uDMu1I6Lq9zfqI7ruwJlPd01qDXmzpTP2P pNiUGSNwyUgGaWR134GhjOP++c5wQiXMlgKSMqrAoUeyLM18stHeVVON8EqK rR+M6jOZ9l+zGuehUBtM66EMm/CkcbY3fiYzQHHefTqjQ0+hHK9bYMd7FVqG 4dbk0wrp/5G6T1jgzOCnh3dQBNHYi3jq0hn1ineT0V0d9aB4lycAo57GM06c zYP2fDJKwfPJxISeWEmoghPT83KhHyZumIDOumff4fZMTOL56GilxYnYMjI+ p5KUYi1uor9ZULSuJlVNqR90C4q4L6zrLx3xZa6vmvZjlmVfL6MDdAesppct pToOyC8lsimD+b4E5jvfszm54vVTX2aLFUJHNM1uTdvOj2bjVtLLkU0deyCZ WhcDof6z5wcHjLV7rrYdmOoMCtHR+aud4tfW8bt43T0AZr3pOuA0ECbeMBve ocfvbI7xssoiad5+HFLLkOx1wgsxBpgDcsPIPlvAjupSpxXtS0duDC3YcA6o LVy5cV+NQRIyevPe7U3V2Lyn4tubm/foF2GEEUZ4TjjKwyu5NtHs8cNnR4+P nqXg8rh+yV50FcAXyZX6OkRW63dub9o6RccfgWSS1imLrgJokaR1Sohs1pcK dgrFL1xhgi+Ck51SkaqAL4KTnRIgq/Vl2CkgQ7BThFMoO2UZ/hRww+FPEc7h TwEFJtgpwgn+FPDAHP4U4Rz+FFBggp0inEL7U1rmy0fzoXH+GSwcLKI5HCzC eWgHS/GDZxgxoglGjHAK7WzJlkLwsowGHC/SORwvwnlox8toNVZ7F/YLCPaL cArthFnNF7eO9Us1FCn4Ijj8L8J5aP8LLW+Ps8XztMkRbBjxBBtGOIX2waxY Pt4YPhjpHD4Y4fx6fDCdm4MU9gsI9ot0uo4PYZL0gLfdpk1E801f4YsRzeGL Ec5D+2KMnuE95HmjPfhjQCnsGfEU2h8za5dO+GREc/hkhHMsSAIFJtgtwgkb vIAH5vC5COfY4AUUmGCnCCds8AIemMOfIpzDnwIKTLBThNM1+VNuLq0va7oD Lo9rnbLoKoAvkmudEiYry06J6YjECh27hjDCCH864QaF00/lQO4g0fky73nn /n4wpGX2w+FPfyJNMe2MwyCVwb4df4rY2eOb/hz5QPLuWW8E9OHSi+3BHByv SO2f7wz9xdJsE3XP9nxZMYY/dHJjuM/6576iqjNMcFwxwggj/HHCOK4YfILj 6wvhHF9fgAIT/ldDOOHrC/DAHF9fCOf4+gIUmGCnCCesZgEPzOFPEc7hTwEF Jtgpwgn+FPDAHP4U4Rz+FFBggp0inK7luOK0s4bjisFzDgeLcI7jikHXSDBi hNO1HFdMix9SHFcMDseLdB7a8ZLpl9pgrF/0/SOQTIL9IpxCO2FumOWltn6p hiIFXwSH/0U4D+1/MSu63999QwdXwAEjnmDACKfQDhjeH8MoGFXX1CBTBs4Y cDhjxPPQzhjaESfqn5tTuJowZqQTjBnhFNobs8SGC2+5pRJ4Y6RzeGOE89De GN6q72RD5QeJwiEjnmDDCKfQDhnWMflnvbVBrmMYt3CFCr4IDkeMcI7lSKDA BLtFOGF7F/DAHP4W4Rzbu4ACE+wU4YTtXcADc/hThHP4U0CBCXaKcMJhxeCB OQ4rFs5xWDHCCCNcpbDAw4qpqZE5Q7g2iGdj+LTfkw21SucC04Jw33nEdETv zlDVs821kv0jXm/lgvfPKdsMbpKWhdNqCz+8RZC1d7ratAhMJ/RgEyq9vb1F PUFFeE4+pjOXCZJ4IJRbbeCCcK/zYcY6H0ev0/ZkEX+Q6a54dcaR6Ojl7InT TnLN2ZAVHjev9o9S+gTODemft3fnQLKCPMMmL8h/TDYX5INkBTkgN6yCvCL7 H6mNXGS5UB+cpULRbU26+DypQ86yL5Z5eadKuDIOeHWGi+hoc3S8WZTrO8ud 9TfjeBCYU93nDZzRxHOxRQraAacqJN1TGoo0n/Fx8R4o1fZtL1PWnoPuzfI/ t0I3eXXW9LxgJMvT8mTc8pON9q5LBkcrnDUknxPntcY02DuRlzEKqjOiREfT CIjMJ9XtXa+1kZlAvmlDK1OPwl+1BpvPOso+8DYqeXWs/F0yTpKVy7jW4HPM PzIoc+PyKtZiCbiG2MblHA3SNFsjsdm4O1+Q2rsQpCpH06PmoVg0JYwNrseO 4/nxELFmkabRwWY6coyLhiVt9Vys8skri3cMvemk5iWrxAvXVNLy8uFP6n1v C5n0A9pq97B/liQTPrNCM5OjaarsfaQ8VPJZOyoxbqoz9EVHT8h908i9ibEV gW+UZbIfF6/9gzIuXgNeHj4tovE46Eo0LaF5ABJa5egJCY2MQJ5sxNaGTg7z sjgzN8z+LGUsU3s80lBpGs+F/u3sDUtMOdkY5r2/Swx5dhr5nTZTcOvkglJw M/+VgCem20b7fpaYXZP+60xv6lKyhZ1zxZYT8rv1JT3Q0arzeaJrizulqbz0 6henlsoivq1W1VwiV/sft9+mEg==\ \>"]] }, 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.516077141251578*^9}, CellTags->"Info3516105941-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nthChineseLeapMonthsBetween", "[", RowBox[{"1990", ",", " ", "1998", ",", "5"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData["1990"], "Print", CellChangeTimes->{3.516077141725605*^9}], Cell[BoxData["1998"], "Print", CellChangeTimes->{3.51607714286667*^9}], Cell[BoxData["2"], "Print", CellChangeTimes->{3.5160771428706703`*^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.516077142948675*^9}, CellTags->"Info3516105942-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"chineseNewYearsBetween", "[", RowBox[{"1998", ",", "1999"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"1998", "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Wednesday, \\!\\(28\\) January \\!\\(1998\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 28, "January", 1998], Editable->False]}], SequenceForm[1998, ":", Calendrica`Gregorian[1998, 1, 28]], Editable->False]], "Print", CellChangeTimes->{3.516077143176688*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"1999", "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Tuesday, \\!\\(16\\) February \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 16, "February", 1999], Editable->False]}], SequenceForm[1999, ":", Calendrica`Gregorian[1999, 2, 16]], Editable->False]], "Print", CellChangeTimes->{3.5160771432916946`*^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.516077143295695*^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.516077143456704*^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.5160771435387087`*^9}, CellTags->"Info3516105943-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lengthOfChineseYear", "[", "1998", "]"}]], "Input"], Cell[BoxData["384"], "Output", CellChangeTimes->{3.516077143667716*^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.5160771437447205`*^9}, CellTags->"Info3516105943-7479132"] }, 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.5160771442027464`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "1999", "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", "354"}], SequenceForm[1999, ":", 354], Editable->False]], "Print", CellChangeTimes->{3.5160771443637557`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2000", "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", "354"}], SequenceForm[2000, ":", 354], Editable->False]], "Print", CellChangeTimes->{3.5160771445727677`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2001", "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", "384"}], SequenceForm[2001, ":", 384], Editable->False]], "Print", CellChangeTimes->{3.516077144999792*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2002", "\[InvisibleSpace]", "\<\":\"\>", "\[InvisibleSpace]", "354"}], SequenceForm[2002, ":", 354], Editable->False]], "Print", CellChangeTimes->{3.5160771451648016`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"353:0\"\>", ",", "\<\"354:3\"\>", ",", "\<\"355:0\"\>", ",", "\<\"383:0\"\>", ",", "\<\"384:2\"\>", ",", "\<\"385:0\"\>", ",", "\<\"Exceptions:0\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5160771451688023`*^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.5160771452508063`*^9}, CellTags->"Info3516105945-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lengthOfChineseMonthsBetween", "[", RowBox[{"730000", ",", "730100"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting on \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Friday, \\!\\(10\\) September \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Friday", 10, "September", 1999], Editable->False], "\[InvisibleSpace]", "\<\" is short\"\>"}], SequenceForm["The month starting on ", Calendrica`Gregorian[1999, 9, 10], " is short"], Editable->False]], "Print", CellChangeTimes->{3.516077145327811*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting on \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Saturday, \\!\\(9\\) October \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Saturday", 9, "October", 1999], Editable->False], "\[InvisibleSpace]", "\<\" is long\"\>"}], SequenceForm["The month starting on ", Calendrica`Gregorian[1999, 10, 9], " is long"], Editable->False]], "Print", CellChangeTimes->{3.5160771453468122`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting on \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Monday, \\!\\(8\\) November \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Monday", 8, "November", 1999], Editable->False], "\[InvisibleSpace]", "\<\" is long\"\>"}], SequenceForm["The month starting on ", Calendrica`Gregorian[1999, 11, 8], " is long"], Editable->False]], "Print", CellChangeTimes->{3.5160771453658133`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting on \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Wednesday, \\!\\(8\\) December \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 8, "December", 1999], Editable->False], "\[InvisibleSpace]", "\<\" is long\"\>"}], SequenceForm["The month starting on ", Calendrica`Gregorian[1999, 12, 8], " is long"], Editable->False]], "Print", CellChangeTimes->{3.5160771453708134`*^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.5160771454548182`*^9}, CellTags->"Info3516105945-7479132"] }, 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]", InterpretationBox["\<\"Thursday, \\!\\(16\\) April \\!\\(2037\\)\"\>", StringForm["``, `` `` ``", "Thursday", 16, "April", 2037], Editable->False]}], SequenceForm["FOUR LONG months in a row ending on ", Calendrica`Gregorian[2037, 4, 16]], Editable->False]], "Print", CellChangeTimes->{3.516077147221919*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"FOUR LONG months in a row ending on \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Sunday, \\!\\(19\\) March \\!\\(2045\\)\"\>", StringForm["``, `` `` ``", "Sunday", 19, "March", 2045], Editable->False]}], SequenceForm["FOUR LONG months in a row ending on ", Calendrica`Gregorian[2045, 3, 19]], Editable->False]], "Print", CellChangeTimes->{3.516077148512993*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"FOUR LONG months in a row ending on \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Wednesday, \\!\\(19\\) February \\!\\(2053\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 19, "February", 2053], Editable->False]}], SequenceForm["FOUR LONG months in a row ending on ", Calendrica`Gregorian[2053, 2, 19]], Editable->False]], "Print", CellChangeTimes->{3.5160771497900662`*^9}] }, Open ]] }, 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.5160771500750823`*^9}, CellTags->"Info3516105950-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"chineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2000", ",", "1", ",", "20"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5160721520622125`*^9, 3.5160721562534523`*^9}}], Cell[BoxData[ InterpretationBox["\<\"Friday, \\!\\(21\\) January \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Friday", 21, "January", 2000], Editable->False]], "Output", CellChangeTimes->{3.516077150170088*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"chineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2000", ",", "1", ",", "21"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.516072159030611*^9, 3.516072162350801*^9}}], Cell[BoxData[ InterpretationBox["\<\"Friday, \\!\\(21\\) January \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Friday", 21, "January", 2000], Editable->False]], "Output", CellChangeTimes->{3.5160771502310915`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"chineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2000", ",", "1", ",", "22"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5160721654389777`*^9, 3.5160721797657967`*^9}}], Cell[BoxData[ InterpretationBox["\<\"Sunday, \\!\\(20\\) February \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Sunday", 20, "February", 2000], Editable->False]], "Output", CellChangeTimes->{3.5160771502950954`*^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.516077150369099*^9}, CellTags->"Info3516105950-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"chineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"1", ",", "1", ",", "1986"}], "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox["\<\"Wednesday, \\!\\(28\\) June \\!\\(6\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 28, "June", 6], Editable->False]], "Output", CellChangeTimes->{3.516077150479106*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"timeOfChineseFullMoonAfter", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2", ",", "1", ",", "1986"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData["\<\"02:32:48 P.M.\"\>"], "Output", CellChangeTimes->{3.5160771505611105`*^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.5160771506301146`*^9}, CellTags->"Info3516105950-7479132"] }, 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]", InterpretationBox["\<\"Wednesday, \\!\\(20\\) February \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 20, "February", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", Calendrica`Gregorian[1985, 2, 20]], Editable->False]], "Print", CellChangeTimes->{3.5160771507901235`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Thursday, \\!\\(21\\) March \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Thursday", 21, "March", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", Calendrica`Gregorian[1985, 3, 21]], Editable->False]], "Print", CellChangeTimes->{3.5160771508471265`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Saturday, \\!\\(20\\) April \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Saturday", 20, "April", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", Calendrica`Gregorian[1985, 4, 20]], Editable->False]], "Print", CellChangeTimes->{3.5160771509071302`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Monday, \\!\\(20\\) May \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Monday", 20, "May", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", Calendrica`Gregorian[1985, 5, 20]], Editable->False]], "Print", CellChangeTimes->{3.5160771509771338`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Tuesday, \\!\\(18\\) June \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 18, "June", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", Calendrica`Gregorian[1985, 6, 18]], Editable->False]], "Print", CellChangeTimes->{3.516077151039138*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Thursday, \\!\\(18\\) July \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Thursday", 18, "July", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", Calendrica`Gregorian[1985, 7, 18]], Editable->False]], "Print", CellChangeTimes->{3.516077151106141*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Friday, \\!\\(16\\) August \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Friday", 16, "August", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", Calendrica`Gregorian[1985, 8, 16]], Editable->False]], "Print", CellChangeTimes->{3.516077151167145*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Sunday, \\!\\(15\\) September \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Sunday", 15, "September", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 15, "th day \n of the month starting ", Calendrica`Gregorian[1985, 9, 15]], Editable->False]], "Print", CellChangeTimes->{3.516077151227148*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Monday, \\!\\(14\\) October \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Monday", 14, "October", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", Calendrica`Gregorian[1985, 10, 14]], Editable->False]], "Print", CellChangeTimes->{3.516077151289152*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Tuesday, \\!\\(12\\) November \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 12, "November", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", Calendrica`Gregorian[1985, 11, 12]], Editable->False]], "Print", CellChangeTimes->{3.5160771513521557`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Thursday, \\!\\(12\\) December \\!\\(1985\\)\"\>", StringForm["``, `` `` ``", "Thursday", 12, "December", 1985], Editable->False]}], SequenceForm[ "The full moon falls on the ", 16, "th day \n of the month starting ", Calendrica`Gregorian[1985, 12, 12]], Editable->False]], "Print", CellChangeTimes->{3.516077151415159*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The full moon falls on the \"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\"th day \\n of the month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Friday, \\!\\(10\\) January \\!\\(1986\\)\"\>", StringForm["``, `` `` ``", "Friday", 10, "January", 1986], Editable->False]}], SequenceForm[ "The full moon falls on the ", 17, "th day \n of the month starting ", Calendrica`Gregorian[1986, 1, 10]], Editable->False]], "Print", CellChangeTimes->{3.516077151476163*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"14:0\"\>", ",", "\<\"15:5\"\>", ",", "\<\"16:6\"\>", ",", "\<\"17:1\"\>"}], "}"}]], "Print", CellChangeTimes->{3.5160771514931636`*^9}] }, Open ]], Cell[BoxData["15.666666666666666`"], "Output", CellChangeTimes->{3.516077151496164*^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.516077151566168*^9}, CellTags->"Info3516105951-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solsticeYear", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2000", ",", "1", ",", "1"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5160745529905376`*^9, 3.5160745569977665`*^9}, 3.516074596862047*^9}], Cell[BoxData["2000"], "Output", CellChangeTimes->{3.516077151639172*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solsticeYear", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2000", ",", "12", ",", "25"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5160745603109565`*^9, 3.5160745646462045`*^9}}], Cell[BoxData["2001"], "Output", CellChangeTimes->{3.5160771516821747`*^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.5160771517481785`*^9}, CellTags->"Info3516105951-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"winterSolsticeOnOrBefore", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2000", ",", "12", ",", "20"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5160745685664287`*^9, 3.5160745726876645`*^9}}], Cell[BoxData[ InterpretationBox["\<\"Wednesday, \\!\\(22\\) December \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Wednesday", 22, "December", 1999], Editable->False]], "Output", CellChangeTimes->{3.516077151853184*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"winterSolsticeOnOrBefore", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2000", ",", "12", ",", "21"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.516074575303814*^9, 3.516074578645005*^9}}], Cell[BoxData[ InterpretationBox["\<\"Thursday, \\!\\(21\\) December \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Thursday", 21, "December", 2000], Editable->False]], "Output", CellChangeTimes->{3.5160771519171877`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Gregorian", "[", RowBox[{"winterSolsticeOnOrBefore", "[", RowBox[{"ToFixed", "[", RowBox[{"Gregorian", "[", RowBox[{"2000", ",", "12", ",", "25"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5160745806711206`*^9, 3.5160745849723673`*^9}}], Cell[BoxData[ InterpretationBox["\<\"Thursday, \\!\\(21\\) December \\!\\(2000\\)\"\>", StringForm["``, `` `` ``", "Thursday", 21, "December", 2000], Editable->False]], "Output", CellChangeTimes->{3.516077151984192*^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.5160771520541954`*^9}, CellTags->"Info3516105952-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fakeLeapMonthsBetween", "[", RowBox[{"2033", ",", "2035"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Thursday, \\!\\(25\\) August \\!\\(2033\\)\"\>", StringForm["``, `` `` ``", "Thursday", 25, "August", 2033], Editable->False], "\[InvisibleSpace]", "\<\" is a fake leap month in a non-leap sui\"\>"}], SequenceForm["The month starting ", Calendrica`Gregorian[2033, 8, 25], " is a fake leap month in a non-leap sui"], Editable->False]], "Print", CellChangeTimes->{3.5160771526052275`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Sunday, \\!\\(19\\) February \\!\\(2034\\)\"\>", StringForm["``, `` `` ``", "Sunday", 19, "February", 2034], Editable->False], "\[InvisibleSpace]", "\<\" is a fake leap month in a leap sui\"\>"}], SequenceForm["The month starting ", Calendrica`Gregorian[2034, 2, 19], " is a fake leap month in a leap sui"], Editable->False]], "Print", CellChangeTimes->{3.5160771532272625`*^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.5160771538322973`*^9}, CellTags->"Info3516105953-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"twoZhongQisBetween", "[", RowBox[{"2033", ",", "2034"}], "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Two zhong qis in month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Tuesday, \\!\\(22\\) November \\!\\(2033\\)\"\>", StringForm["``, `` `` ``", "Tuesday", 22, "November", 2033], Editable->False]}], SequenceForm["Two zhong qis in month starting ", Calendrica`Gregorian[2033, 11, 22]], Editable->False]], "Print", CellChangeTimes->{3.5160771547663507`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Two zhong qis in month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Friday, \\!\\(20\\) January \\!\\(2034\\)\"\>", StringForm["``, `` `` ``", "Friday", 20, "January", 2034], Editable->False]}], SequenceForm["Two zhong qis in month starting ", Calendrica`Gregorian[2034, 1, 20]], Editable->False]], "Print", CellChangeTimes->{3.5160771549173594`*^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.5160771549883633`*^9}, CellTags->"Info3516105954-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"twoJieQisBetween", "[", RowBox[{"1999", ",", "2000"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Two jie qi's in month starting \"\>", "\[InvisibleSpace]", InterpretationBox["\<\"Monday, \\!\\(8\\) November \\!\\(1999\\)\"\>", StringForm["``, `` `` ``", "Monday", 8, "November", 1999], Editable->False]}], SequenceForm["Two jie qi's in month starting ", Calendrica`Gregorian[1999, 11, 8]], Editable->False]], "Print", CellChangeTimes->{3.5160771556364007`*^9}] }, Open ]] }, WindowSize->{1902, 824}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, 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->{ "Info3516105929-7479132"->{ Cell[2520, 82, 749, 11, 133, "Print", CellTags->"Info3516105929-7479132"]}, "Info3516105930-7479132"->{ Cell[3392, 101, 302, 5, 68, "Print", CellTags->"Info3516105930-7479132"], Cell[4231, 130, 377, 6, 101, "Print", CellTags->"Info3516105930-7479132"]}, "Info3515871586-7926486"->{ Cell[4611, 138, 452, 9, 101, "Print", CellTags->"Info3515871586-7926486"]}, "Info3516105931-7479132"->{ Cell[6247, 195, 280, 5, 68, "Print", CellTags->"Info3516105931-7479132"], Cell[11200, 305, 300, 5, 108, "Print", CellTags->"Info3516105931-7479132"]}, "Info3516105932-7479132"->{ Cell[13803, 365, 259, 5, 108, "Print", CellTags->"Info3516105932-7479132"], Cell[14544, 396, 297, 5, 108, "Print", CellTags->"Info3516105932-7479132"]}, "Info3516105933-7479132"->{ Cell[15718, 445, 381, 6, 161, "Print", CellTags->"Info3516105933-7479132"]}, "Info3516105934-7479132"->{ Cell[16933, 495, 285, 5, 108, "Print", CellTags->"Info3516105934-7479132"]}, "Info3516105935-7479132"->{ Cell[17734, 528, 248, 4, 108, "Print", CellTags->"Info3516105935-7479132"], Cell[18471, 553, 254, 5, 108, "Print", CellTags->"Info3516105935-7479132"], Cell[19140, 578, 259, 5, 108, "Print", CellTags->"Info3516105935-7479132"], Cell[19804, 603, 252, 4, 108, "Print", CellTags->"Info3516105935-7479132"]}, "Info3516105936-7479132"->{ Cell[20466, 627, 252, 4, 108, "Print", CellTags->"Info3516105936-7479132"], Cell[21132, 651, 375, 6, 161, "Print", CellTags->"Info3516105936-7479132"], Cell[24152, 737, 276, 5, 108, "Print", CellTags->"Info3516105936-7479132"], Cell[24724, 759, 232, 4, 108, "Print", CellTags->"Info3516105936-7479132"]}, "Info3516105937-7479132"->{ Cell[25649, 790, 290, 5, 108, "Print", CellTags->"Info3516105937-7479132"], Cell[26458, 817, 248, 4, 108, "Print", CellTags->"Info3516105937-7479132"], Cell[27672, 854, 250, 4, 108, "Print", CellTags->"Info3516105937-7479132"], Cell[28815, 890, 250, 4, 108, "Print", CellTags->"Info3516105937-7479132"], Cell[29982, 928, 328, 5, 108, "Print", CellTags->"Info3516105937-7479132"], Cell[31533, 977, 317, 5, 108, "Print", CellTags->"Info3516105937-7479132"]}, "Info3516105938-7479132"->{ Cell[33291, 1030, 332, 5, 108, "Print", CellTags->"Info3516105938-7479132"], Cell[34427, 1064, 368, 6, 161, "Print", CellTags->"Info3516105938-7479132"]}, "Info3516105939-7479132"->{ Cell[35596, 1099, 266, 5, 108, "Print", CellTags->"Info3516105939-7479132"], Cell[37212, 1148, 286, 5, 108, "Print", CellTags->"Info3516105939-7479132"], Cell[38009, 1180, 362, 6, 108, "Print", CellTags->"Info3516105939-7479132"]}, "Info3516105941-7479132"->{ Cell[46722, 1382, 287, 5, 108, "Print", CellTags->"Info3516105941-7479132"]}, "Info3516105942-7479132"->{ Cell[47532, 1414, 446, 7, 161, "Print", CellTags->"Info3516105942-7479132"]}, "Info3516105943-7479132"->{ Cell[56801, 1623, 264, 5, 108, "Print", CellTags->"Info3516105943-7479132"], Cell[57362, 1645, 333, 6, 108, "Print", CellTags->"Info3516105943-7479132"]}, "Info3516105945-7479132"->{ Cell[59388, 1716, 275, 5, 108, "Print", CellTags->"Info3516105945-7479132"], Cell[61856, 1783, 297, 5, 108, "Print", CellTags->"Info3516105945-7479132"]}, "Info3516105950-7479132"->{ Cell[63780, 1839, 260, 5, 108, "Print", CellTags->"Info3516105950-7479132"], Cell[65813, 1906, 258, 5, 108, "Print", CellTags->"Info3516105950-7479132"], Cell[66978, 1948, 307, 5, 108, "Print", CellTags->"Info3516105950-7479132"]}, "Info3516105951-7479132"->{ Cell[74697, 2148, 248, 4, 108, "Print", CellTags->"Info3516105951-7479132"], Cell[75796, 2187, 274, 5, 108, "Print", CellTags->"Info3516105951-7479132"]}, "Info3516105952-7479132"->{ Cell[77869, 2254, 314, 5, 108, "Print", CellTags->"Info3516105952-7479132"]}, "Info3516105953-7479132"->{ Cell[79520, 2302, 289, 5, 108, "Print", CellTags->"Info3516105953-7479132"]}, "Info3516105954-7479132"->{ Cell[80960, 2347, 286, 5, 108, "Print", CellTags->"Info3516105954-7479132"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3516105929-7479132", 82260, 2387}, {"Info3516105930-7479132", 82370, 2390}, {"Info3515871586-7926486", 82559, 2395}, {"Info3516105931-7479132", 82669, 2398}, {"Info3516105932-7479132", 82859, 2403}, {"Info3516105933-7479132", 83051, 2408}, {"Info3516105934-7479132", 83162, 2411}, {"Info3516105935-7479132", 83273, 2414}, {"Info3516105936-7479132", 83627, 2423}, {"Info3516105937-7479132", 83981, 2432}, {"Info3516105938-7479132", 84497, 2445}, {"Info3516105939-7479132", 84691, 2450}, {"Info3516105941-7479132", 84967, 2457}, {"Info3516105942-7479132", 85079, 2460}, {"Info3516105943-7479132", 85191, 2463}, {"Info3516105945-7479132", 85385, 2468}, {"Info3516105950-7479132", 85579, 2473}, {"Info3516105951-7479132", 85855, 2480}, {"Info3516105952-7479132", 86049, 2485}, {"Info3516105953-7479132", 86161, 2488}, {"Info3516105954-7479132", 86273, 2491} } *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 1487, 47, 920, "Input"], Cell[2035, 69, 399, 6, 46, "Input"], Cell[CellGroupData[{ Cell[2459, 79, 58, 1, 46, "Input"], Cell[2520, 82, 749, 11, 133, "Print", CellTags->"Info3516105929-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[3306, 98, 83, 1, 46, "Input"], Cell[3392, 101, 302, 5, 68, "Print", CellTags->"Info3516105930-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[3731, 111, 156, 3, 46, "Input"], Cell[3890, 116, 221, 4, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4148, 125, 58, 1, 46, "Input"], Cell[CellGroupData[{ Cell[4231, 130, 377, 6, 101, "Print", CellTags->"Info3516105930-7479132"], Cell[4611, 138, 452, 9, 101, "Print", CellTags->"Info3515871586-7926486"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5112, 153, 94, 2, 46, "Input"], Cell[5209, 157, 213, 4, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5459, 166, 109, 2, 46, "Input"], Cell[5571, 170, 221, 4, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5829, 179, 94, 2, 46, "Input"], Cell[5926, 183, 217, 4, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6180, 192, 64, 1, 46, "Input"], Cell[6247, 195, 280, 5, 68, "Print", CellTags->"Info3516105931-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[6564, 205, 77, 1, 73, "Input"], Cell[6644, 208, 2258, 42, 160, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8939, 255, 77, 1, 73, "Input"], Cell[9019, 258, 2077, 39, 116, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11133, 302, 64, 1, 73, "Input"], Cell[11200, 305, 300, 5, 108, "Print", CellTags->"Info3516105931-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[11537, 315, 77, 1, 73, "Input"], Cell[11617, 318, 2087, 39, 160, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13741, 362, 59, 1, 73, "Input"], Cell[13803, 365, 259, 5, 108, "Print", CellTags->"Info3516105932-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[14099, 375, 72, 1, 73, "Input"], Cell[14174, 378, 75, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14286, 384, 72, 1, 73, "Input"], Cell[14361, 387, 76, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14474, 393, 67, 1, 73, "Input"], Cell[14544, 396, 297, 5, 108, "Print", CellTags->"Info3516105932-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[14878, 406, 80, 1, 73, "Input"], Cell[14961, 409, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15071, 415, 80, 1, 73, "Input"], Cell[15154, 418, 74, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15265, 424, 80, 1, 73, "Input"], Cell[15348, 427, 76, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15461, 433, 80, 1, 73, "Input"], Cell[15544, 436, 75, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15656, 442, 59, 1, 73, "Input"], Cell[15718, 445, 381, 6, 161, "Print", CellTags->"Info3516105933-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[16136, 456, 72, 1, 73, "Input"], Cell[16211, 459, 70, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16318, 465, 72, 1, 73, "Input"], Cell[16393, 468, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16503, 474, 72, 1, 73, "Input"], Cell[16578, 477, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16688, 483, 72, 1, 73, "Input"], Cell[16763, 486, 70, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16870, 492, 60, 1, 73, "Input"], Cell[16933, 495, 285, 5, 108, "Print", CellTags->"Info3516105934-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[17255, 505, 96, 2, 73, "Input"], Cell[17354, 509, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17464, 515, 96, 2, 73, "Input"], Cell[17563, 519, 74, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17674, 525, 57, 1, 73, "Input"], Cell[17734, 528, 248, 4, 108, "Print", CellTags->"Info3516105935-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[18019, 537, 136, 2, 73, "Input"], Cell[18158, 541, 227, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18422, 550, 46, 1, 73, "Input"], Cell[18471, 553, 254, 5, 108, "Print", CellTags->"Info3516105935-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[18762, 563, 59, 1, 73, "Input"], Cell[18824, 566, 227, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19088, 575, 49, 1, 73, "Input"], Cell[19140, 578, 259, 5, 108, "Print", CellTags->"Info3516105935-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[19436, 588, 62, 1, 73, "Input"], Cell[19501, 591, 218, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19756, 600, 45, 1, 73, "Input"], Cell[19804, 603, 252, 4, 108, "Print", CellTags->"Info3516105935-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[20093, 612, 58, 1, 73, "Input"], Cell[20154, 615, 227, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20418, 624, 45, 1, 73, "Input"], Cell[20466, 627, 252, 4, 108, "Print", CellTags->"Info3516105936-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[20755, 636, 58, 1, 73, "Input"], Cell[20816, 639, 215, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21068, 648, 61, 1, 73, "Input"], Cell[21132, 651, 375, 6, 161, "Print", CellTags->"Info3516105936-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[21544, 662, 74, 1, 73, "Input"], Cell[CellGroupData[{ Cell[21643, 667, 276, 5, 52, "Print"], Cell[21922, 674, 258, 5, 52, "Print"], Cell[22183, 681, 270, 5, 52, "Print"], Cell[22456, 688, 271, 5, 52, "Print"], Cell[22730, 695, 258, 5, 52, "Print"], Cell[22991, 702, 269, 5, 52, "Print"], Cell[23263, 709, 252, 5, 52, "Print"], Cell[23518, 716, 259, 5, 52, "Print"], Cell[23780, 723, 262, 5, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24091, 734, 58, 1, 73, "Input"], Cell[24152, 737, 276, 5, 108, "Print", CellTags->"Info3516105936-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[24465, 747, 71, 1, 73, "Input"], Cell[24539, 750, 87, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24663, 756, 58, 1, 73, "Input"], Cell[24724, 759, 232, 4, 108, "Print", CellTags->"Info3516105936-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[24993, 768, 71, 1, 73, "Input"], Cell[25067, 771, 475, 11, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[25579, 787, 67, 1, 73, "Input"], Cell[25649, 790, 290, 5, 108, "Print", CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[25976, 800, 283, 6, 73, "Input"], Cell[26262, 808, 89, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26388, 814, 67, 1, 73, "Input"], Cell[26458, 817, 248, 4, 108, "Print", CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[26743, 826, 358, 7, 73, "Input"], Cell[27104, 835, 461, 11, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[27602, 851, 67, 1, 73, "Input"], Cell[27672, 854, 250, 4, 108, "Print", CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[27959, 863, 284, 6, 73, "Input"], Cell[28246, 871, 462, 11, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[28745, 887, 67, 1, 73, "Input"], Cell[28815, 890, 250, 4, 108, "Print", CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[29102, 899, 316, 8, 73, "Input"], Cell[29421, 909, 466, 11, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[29924, 925, 55, 1, 73, "Input"], Cell[29982, 928, 328, 5, 108, "Print", CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[30347, 938, 68, 1, 73, "Input"], Cell[30418, 941, 457, 10, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[30912, 956, 68, 1, 73, "Input"], Cell[30983, 959, 455, 10, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[31475, 974, 55, 1, 73, "Input"], Cell[31533, 977, 317, 5, 108, "Print", CellTags->"Info3516105937-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[31887, 987, 68, 1, 73, "Input"], Cell[31958, 990, 562, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[32557, 1007, 68, 1, 73, "Input"], Cell[32628, 1010, 562, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[33227, 1027, 61, 1, 73, "Input"], Cell[33291, 1030, 332, 5, 108, "Print", CellTags->"Info3516105938-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[33660, 1040, 100, 2, 73, "Input"], Cell[33763, 1044, 564, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[34364, 1061, 60, 1, 73, "Input"], Cell[34427, 1064, 368, 6, 161, "Print", CellTags->"Info3516105938-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[34832, 1075, 99, 2, 73, "Input"], Cell[34934, 1079, 564, 12, 52, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[35535, 1096, 58, 1, 73, "Input"], Cell[35596, 1099, 266, 5, 108, "Print", CellTags->"Info3516105939-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[35899, 1109, 97, 2, 73, "Input"], Cell[CellGroupData[{ Cell[36021, 1115, 555, 11, 52, "Print"], Cell[36579, 1128, 515, 11, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37143, 1145, 66, 1, 73, "Input"], Cell[37212, 1148, 286, 5, 108, "Print", CellTags->"Info3516105939-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[37535, 1158, 105, 2, 73, "Input"], Cell[CellGroupData[{ Cell[37665, 1164, 74, 1, 52, "Print"], Cell[37742, 1167, 74, 1, 52, "Print"], Cell[37819, 1170, 71, 1, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37939, 1177, 67, 1, 73, "Input"], Cell[38009, 1180, 362, 6, 108, "Print", CellTags->"Info3516105939-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[38408, 1191, 111, 2, 73, "Input"], Cell[CellGroupData[{ Cell[38544, 1197, 215, 5, 52, "Print"], Cell[38762, 1204, 217, 5, 52, "Print"], Cell[38982, 1211, 221, 5, 52, "Print"] }, Open ]], Cell[39218, 1219, 7394, 155, 627, 4030, 98, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46649, 1379, 70, 1, 73, "Input"], Cell[46722, 1382, 287, 5, 108, "Print", CellTags->"Info3516105941-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[47046, 1392, 124, 2, 73, "Input"], Cell[CellGroupData[{ Cell[47195, 1398, 72, 1, 52, "Print"], Cell[47270, 1401, 71, 1, 52, "Print"], Cell[47344, 1404, 71, 1, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47464, 1411, 65, 1, 73, "Input"], Cell[47532, 1414, 446, 7, 161, "Print", CellTags->"Info3516105942-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[48015, 1426, 104, 2, 73, "Input"], Cell[CellGroupData[{ Cell[48144, 1432, 412, 9, 52, "Print"], Cell[48559, 1443, 412, 9, 52, "Print"], Cell[48974, 1454, 887, 14, 97, "Print"] }, Open ]], Cell[49876, 1471, 6823, 144, 614, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56736, 1620, 62, 1, 73, "Input"], Cell[56801, 1623, 264, 5, 108, "Print", CellTags->"Info3516105943-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[57102, 1633, 75, 1, 73, "Input"], Cell[57180, 1636, 72, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57289, 1642, 70, 1, 73, "Input"], Cell[57362, 1645, 333, 6, 108, "Print", CellTags->"Info3516105943-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[57732, 1656, 109, 2, 73, "Input"], Cell[CellGroupData[{ Cell[57866, 1662, 224, 6, 52, "Print"], Cell[58093, 1670, 224, 6, 52, "Print"], Cell[58320, 1678, 224, 6, 52, "Print"], Cell[58547, 1686, 222, 6, 52, "Print"], Cell[58772, 1694, 224, 6, 52, "Print"] }, Open ]], Cell[59011, 1703, 266, 5, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59314, 1713, 71, 1, 73, "Input"], Cell[59388, 1716, 275, 5, 108, "Print", CellTags->"Info3516105945-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[59700, 1726, 114, 2, 73, "Input"], Cell[CellGroupData[{ Cell[59839, 1732, 472, 9, 52, "Print"], Cell[60314, 1743, 470, 9, 52, "Print"], Cell[60787, 1754, 468, 9, 52, "Print"], Cell[61258, 1765, 474, 9, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61781, 1780, 72, 1, 73, "Input"], Cell[61856, 1783, 297, 5, 108, "Print", CellTags->"Info3516105945-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[62190, 1793, 115, 2, 73, "Input"], Cell[CellGroupData[{ Cell[62330, 1799, 441, 9, 52, "Print"], Cell[62774, 1810, 437, 9, 52, "Print"], Cell[63214, 1821, 451, 9, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63714, 1836, 63, 1, 73, "Input"], Cell[63780, 1839, 260, 5, 108, "Print", CellTags->"Info3516105950-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[64077, 1849, 295, 7, 73, "Input"], Cell[64375, 1858, 219, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64631, 1867, 291, 7, 73, "Input"], Cell[64925, 1876, 221, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65183, 1885, 295, 7, 73, "Input"], Cell[65481, 1894, 223, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65741, 1903, 69, 1, 73, "Input"], Cell[65813, 1906, 258, 5, 108, "Print", CellTags->"Info3516105950-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[66108, 1916, 224, 6, 73, "Input"], Cell[66335, 1924, 213, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66585, 1933, 188, 4, 73, "Input"], Cell[66776, 1939, 92, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66905, 1945, 70, 1, 73, "Input"], Cell[66978, 1948, 307, 5, 108, "Print", CellTags->"Info3516105950-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[67322, 1958, 109, 2, 73, "Input"], Cell[CellGroupData[{ Cell[67456, 1964, 577, 12, 97, "Print"], Cell[68036, 1978, 569, 12, 97, "Print"], Cell[68608, 1992, 569, 12, 97, "Print"], Cell[69180, 2006, 561, 12, 97, "Print"], Cell[69744, 2020, 563, 12, 97, "Print"], Cell[70310, 2034, 565, 12, 97, "Print"], Cell[70878, 2048, 565, 12, 97, "Print"], Cell[71446, 2062, 571, 12, 97, "Print"], Cell[72020, 2076, 568, 12, 97, "Print"], Cell[72591, 2090, 574, 12, 97, "Print"], Cell[73168, 2104, 574, 12, 97, "Print"], Cell[73745, 2118, 567, 12, 97, "Print"], Cell[74315, 2132, 184, 4, 52, "Print"] }, Open ]], Cell[74514, 2139, 88, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74639, 2145, 55, 1, 73, "Input"], Cell[74697, 2148, 248, 4, 108, "Print", CellTags->"Info3516105951-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[74982, 2157, 270, 6, 73, "Input"], Cell[75255, 2165, 73, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75365, 2171, 246, 5, 73, "Input"], Cell[75614, 2178, 75, 1, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75726, 2184, 67, 1, 73, "Input"], Cell[75796, 2187, 274, 5, 108, "Print", CellTags->"Info3516105951-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[76107, 2197, 300, 7, 73, "Input"], Cell[76410, 2206, 227, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76674, 2215, 296, 7, 73, "Input"], Cell[76973, 2224, 227, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77237, 2233, 300, 7, 73, "Input"], Cell[77540, 2242, 225, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77802, 2251, 64, 1, 73, "Input"], Cell[77869, 2254, 314, 5, 108, "Print", CellTags->"Info3516105952-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[78220, 2264, 103, 2, 73, "Input"], Cell[CellGroupData[{ Cell[78348, 2270, 534, 11, 52, "Print"], Cell[78885, 2283, 522, 10, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79456, 2299, 61, 1, 73, "Input"], Cell[79520, 2302, 289, 5, 108, "Print", CellTags->"Info3516105953-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[79846, 2312, 100, 2, 73, "Input"], Cell[CellGroupData[{ Cell[79971, 2318, 440, 9, 52, "Print"], Cell[80414, 2329, 435, 9, 52, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[80898, 2344, 59, 1, 73, "Input"], Cell[80960, 2347, 286, 5, 108, "Print", CellTags->"Info3516105954-7479132"] }, Open ]], Cell[CellGroupData[{ Cell[81283, 2357, 98, 2, 73, "Input"], Cell[81384, 2361, 433, 9, 52, "Print"] }, Open ]] } ] *) (* End of internal cache information *)