(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 219881, 5595] NotebookOptionsPosition[ 144668, 3837] NotebookOutlinePosition[ 201103, 5000] CellTagsIndexPosition[ 201023, 4995] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", "FirstSlide", CellTags->"SlideShowHeader"], Cell["Date and Calendar Functionality", "Title", CellChangeTimes->{{3.448190122176695*^9, 3.44819012385317*^9}, { 3.485609127497636*^9, 3.485609133015955*^9}, {3.514308355088097*^9, 3.514308374696691*^9}, 3.5146594348020153`*^9, 3.5146601881617107`*^9, 3.654430547969922*^9}], Cell["Nick Lariviere, Wolfram Research Inc.", "Subtitle", CellChangeTimes->{{3.485609136120798*^9, 3.4856091511532907`*^9}, { 3.4856091945334663`*^9, 3.485609199379443*^9}, {3.4951031489375*^9, 3.49510314984375*^9}, {3.495106455296875*^9, 3.495106455453125*^9}, { 3.5143083846926413`*^9, 3.514308395249558*^9}, 3.5443793532699003`*^9, 3.621626517580729*^9, {3.621626691998458*^9, 3.6216267186543407`*^9}, { 3.621695156698331*^9, 3.621695160632772*^9}, {3.622213306499199*^9, 3.622213328771823*^9}, 3.6544305565031376`*^9}], Cell[TextData[{ Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{}, ContentSelectable->True, ImageSize->{480, 360}, PlotRange->{{0, 480/360}, {0, 1}}], Scaled[{0, 0}], Center, Scaled[{0.5, 0.5}]], InsetBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztW8tu20YUDdouutQnsH+gT2CKfoCQ/sAkQLOtkBYosuMiiwBFIiex63eo WLZsd8NP4C7dlesWsMayxUUWBbfesfdSd+TL0ZAc6hkEGuAklszHnMP7mjv0 d09+fvT0qwcPHvzyLfzz6PFvD589e/z8x2/gw/fPf/3pydfwww+AhwD8cjM2 YzM243MZ8fmfDUB73fNY5wD+AcCjn13Ug/5vrHlqKxnENWUaePRZQQJ8gPgS NSEfkBUa6EA93PXOfHFD4+vhdzfvPwhASP4hS7QIPxctaK4dgFPzvKbGycPv r35/LQAJIAXIwda7cLh/FI7OLsISLWrde9GD+Kv5BLbPhuY+pYF8u+MAXODf ALQAHdQCNUE9yEYSgxbeEmlWcTH5r6TYboxhFN/0c1r4O+DvAVJCBOgAUIsm wEcbGbzaigq0CNcRN4lrkc8mFMMcdnxDnzva+dWbnTZpIAAh00EhQX0GnbcO 6OApu4BzI+2e+Lm5Yg3cEg30ZyRIk5xOg+29CDTw9GujT5AdyCktXm2hXYRo FzfH3cCg/cp0qKGBETfdHtpAatKAD9KD24ckH2mjTVzv7AWafa1MB7JtPRbo z8WI0dmlBO7SRgM1SIuIaSEoViTyzXak6SBXFR90f0Reg5394LbX9wtieIbr vSNlA6mKBzGrlSu0ULHTwc8lOkTLVyCbd44n8OHcguHYX3Oxa9TrB+wYya4l 2PVUTDXatOKvhtKB/GKleTPWcr2mwYSn3Dv0IY5nfjt4txux37mGa2IN1Ynv a0WrWoh0SA1xcqmxQddA7h4GBg0UEk0j3+L6ItbWFWWD4mSi5c2l+kScrxV1 P3cAHeJu0sMqZlHsVfdpVR0PGgRQS+ixQcxNtnh+uVpxeOhP7GAyJ+AKECwP TOJgzXs5NseBBk5WO4zryUmeqHu/knm4ZJ8d8oNcTGQ5HzHlh+j/trlQjbtP n1oAjyAAlfaD9STW1fPYAmqOdkfPuWotW6SBy3nUuT+d4wIkINWQoB50jAPo AHKxhdZdui2EltxbNlxLwGOiYPPEuYsa/JsG7iYt1M+ZzUHObFJN6We28PqN niMcSx30ur4MaB8hPn+MBVpeUM9KsLl6lhqYnn8RArQDtDXSIKsjaV2Rav0H 6zhUoEMy6p2HN/5JgPEf8jzafWSI+boGnjbnEG2jhL9bg7/CxBdYPY21dIB9 mLr+UKbD8KhrqoFy9RDWh8hfxQPNDnI+bYpvBs2s+ZMGbdIgwHpB94c6GtTQ wbsy1HuMU6PCp32K/Y0ZNJh6rtSPytbaVDuiv/KaqXCuc+gQVF2DYrcNJ1kz Fhhtm/UdxjHh9Jzbwkx7OiYdrg+Oef1XWPeSL3g1uc2rQcBiQqjlSG8WDYp0 gDwgq3QoiAeLQqdAA7W+xt5bcHPk87lX2m2JBg3Nr7JcIf84iMp0uLuvD5YB YaGBd729O3NuMOhg6p/p60HPoINtPKgLp0CDFtNAgAaqtkcYbceSfzOe7g0l 1/vH3B+iovXg3biWWXosIA1cpcGsfG35a35QyJ80QJ/wl+0HpMHEF0ZguwD8 37s9PRdQ4xWet0z+pMEiY2PpWljTwAekCNAA69y6taKw4B/a9kNg7tGCNHAr NPBVbgTu4USDXj8ADbya/PPxr3+ZVuWBCg0aC9ChMKbF476GYGsG9INkosHJ GdqBVY1k4o97ArBO4vEvZWsDUVYvG7QQFCOTmvxL7Rhz9223N1k7Am9H8Ufg eg9QOU/j84drA/9OxXqJr5tC1T8o0MCZIU+EdyU9pHjc95G0b4kaoA8IpkEE /BNAqd/G5fuoWX2RrZ+7vfD64H0odw9C4mvqm2J97BBn9AFcE7dn4F5q/2zu 6Aceq5PbwDuYaHB2gX5Q2mMu6BnYAutHqMtPfN5HoucdzhP/q+IfzT3b0745 7qq6IB3uHzW5H9x+OPVBg1It43z/UK+JrQAxx7h/cjfujfk1/B9txboHSfP2 WT7AfNhmGkjgj6i930I+5qp7xIZeMgfvqRZd87+Pf7Xu7teSHG2bZ26YY1O3 AcoHUqsLFtZfp/s2SJtcj4btsST6OWyPYZG9frWO89j+fKDFwgSfzSz1oeUc cnssg519pcEkh9Gegp5TFzIfZZssFyQUB+5rgrOLwCYfzDEHvible64d4q73 3VT+mNsWiL8c7h649I6KygUdzQaiOrXhDPOQPDcYuGbAvWayR957n/k9ZeKf jE7OOH/0gVYuFywhDhjmwurIi6mes+LO4+hge08ynWrZJ/k/Xk8Sf1UTR5CT cnXxqH+paiJ3Oeyn+ynaPpssep8Q8jSPDV6N+7XoeqFm/xHkBKyJI0McrLWe qTtibV9ueOhn7+Jgzzmu2J9ksXMqfxju47Kc7NH+QRl/1BnjYLSsOMjmlssJ +I5NFff7Y89L6wjK+W12PZ/WQvz9tIDsP8+/1w/JB5b+bppeG5TAjw19GLUG Z9fjzzsl/t7V1ju1n9qg559Q/G/l/H/F/GnOoQV3hx2ft5vTc6lpIOgY8e+L l+7fj58KQACYxHWs/yj/8/yX+f+q+dOcrbiz4/nfLEzqSvV74OoqzoCUQx1D 9V+i8Zfg/+vg7xi4o124FeflehP47pT6HXD1NO6oR/ufFy8dWv9Ijfs4/3V7 kuLfOt9VruSunZuzBfU92UEL0KT+j8it//VnP+6L4bPvLDv+F/BAv43qcGfn CpMGxDk02Hqe+9jv1Vq49v0XNUz+XvP8yKCBV8i9fxnSc5f07L15Oax7cF9S 32kaZH/Dk/Ee13sp+bxY47QXPlRuVZ+BrwC+WN8pP1e8vVXHu1UNZQvqM/o2 8W2v089XPeI598G/hBGv+O+PNmMzNqN4/A9AexV6 "], {{0, 68}, {65, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSizeRaw->{65, 68}, PlotRange->{{0, 65}, {0, 68}}], Scaled[{0.49333580155497714`, 0.5717682253254397}], Center, {1.1979558513699555`, 0.9210339753942228}, {{1., 0.}, {0., 1.}}]}, AspectRatio->1.0295620437956206`, ContentSelectable->True, ImageMargins->0., ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{74., 77.5}, PlotRange->{{0., 1.3333333333333335`}, {0., 1.}}, PlotRangePadding->Automatic]]], StyleBox[" ", FontColor->RGBColor[ 0.5019607843137255, 0.5019607843137255, 0.5019607843137255]], StyleBox["Join the Conversation ", FontColor->RGBColor[ 0.9019607843137255, 0.9019607843137255, 0.9019607843137255]], "#WolframTechConf" }], "Text", CellFrame->{{0, 0}, {0, 1}}, ShowCellBracket->Automatic, CellMargins->{{80, 80}, {100, 165}}, CellFrameMargins->{{0, 0}, {0, 50}}, CellFrameColor->RGBColor[0.886275, 0.364706, 0.427451], CellChangeTimes->{{3.6216253798451433`*^9, 3.621625396205482*^9}, 3.6216255185076437`*^9, {3.621625573653562*^9, 3.6216256020928392`*^9}, { 3.621625635821653*^9, 3.621625645324601*^9}, {3.621625678952072*^9, 3.62162572395792*^9}, {3.621625867660451*^9, 3.62162588677988*^9}, { 3.621625982321312*^9, 3.621625984476396*^9}}, TextAlignment->Center, FontFamily->"Arial", FontSize->24, FontColor->GrayLevel[1]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Overview", "Section", CellChangeTimes->{{3.653734928756527*^9, 3.653734931025754*^9}, { 3.653735851693244*^9, 3.6537358520582438`*^9}}], Cell[CellGroupData[{ Cell["Dates and Calendars Overview", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.653736687678244*^9}}], Cell["Wolfram Language Date Framework", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.6537366925912437`*^9}}], Cell["Date String Elements and Formats", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.653736697959244*^9}, { 3.65401039030579*^9, 3.65401040017679*^9}}], Cell["Time Zones", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.653736702567244*^9}}], Cell["Holiday Calendars", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.6537367235462437`*^9}}], Cell["Calendar Types", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.653736708758244*^9}}], Cell["Application Example: Custom Calendar", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.653736733436244*^9}, { 3.653736769804244*^9, 3.653736769809244*^9}}], Cell["Future Features", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.653736733436244*^9}, { 3.653736769804244*^9, 3.6537367723402443`*^9}}], Cell["Additional Resources", "Item", CellChangeTimes->{{3.6537366777702436`*^9, 3.653736733436244*^9}, { 3.653736769804244*^9, 3.653736777309244*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Dates and Calendars: General Concepts", "Section", CellChangeTimes->{{3.6537359704322443`*^9, 3.653735980777244*^9}, { 3.6537534448862295`*^9, 3.6537534480505457`*^9}}], Cell[CellGroupData[{ Cell["Absolute Dates - Fixed points in Time", "Subsubsection", CellChangeTimes->{{3.6537501267887087`*^9, 3.6537501610057087`*^9}, { 3.653750196050709*^9, 3.653750199784709*^9}}], Cell["\<\ In most applications, dates represent a fixed, or absolute, point in time. \ There are some exceptions(recurring dates and time spans, which will be \ covered at the end of the presentation in more detail), but by-and-large when \ referring to a date we are talking about a single moment in time(ex: \ \[OpenCurlyDoubleQuote]2:30 on October 22nd, 2015\[CloseCurlyDoubleQuote]). \ \>", "Text", CellChangeTimes->{{3.6537501323947086`*^9, 3.653750235558709*^9}, { 3.6537503290317087`*^9, 3.6537505517977085`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Time Units", "Subsubsection", CellChangeTimes->{{3.6537374933231707`*^9, 3.6537375011489534`*^9}}], Cell["\<\ Time units(as used in Quantity and other units frameworks) have fixed and \ fundamental unit values. This means that the length of a \ \[OpenCurlyDoubleQuote]Month\[CloseCurlyDoubleQuote] unit is constant, and \ has a fixed relationship with all other time units. Generally Time units are \ used as measures of duration, while calendar units are used as measures of \ both duration and absolute time.\ \>", "Text", CellChangeTimes->{{3.6537505664557085`*^9, 3.653750590181709*^9}, { 3.653750647793709*^9, 3.653750668591709*^9}, {3.653750744879709*^9, 3.6537508127070093`*^9}, {3.653750887008439*^9, 3.653750948315569*^9}, { 3.6537537718429213`*^9, 3.6537538182363214`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calendar Units", "Subsubsection", CellChangeTimes->{{3.6537374933231707`*^9, 3.653737514108249*^9}}], Cell["\<\ Calendar units on the other hand can have relative definitions, such as the \ variable length of months in most calendar systems. This means that the \ result of calendar arithmetic is often dependent on the specific dates being \ operated on.\ \>", "Text", CellChangeTimes->{{3.6537509517669144`*^9, 3.6537509865823956`*^9}, { 3.6537518047805157`*^9, 3.6537518356665163`*^9}, 3.6543638498182397`*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Calendar Epochs and Year 0", "Subsubsection", CellChangeTimes->{{3.6537374933231707`*^9, 3.6537375529721355`*^9}, { 3.653738860309224*^9, 3.6537388654715743`*^9}}], Cell["\<\ There is no definitive \[OpenCurlyDoubleQuote]absolute 0\ \[CloseCurlyDoubleQuote] value for time(though one can argue that time began \ with the big bang, roughly 15 billion years ago), and all calendar systems \ are based on some specific \[OpenCurlyDoubleQuote]first date\ \[CloseCurlyDoubleQuote] or epoch. Because of this, most calendars have to \ have a system for handling both negative year values, and also year 0. There \ is no universal rule for whether a year 0 is included or excluded for all \ calendars.\ \>", "Text", CellChangeTimes->{{3.653751842494516*^9, 3.653751852939516*^9}, { 3.6537519264235163`*^9, 3.6537520735235157`*^9}, {3.653753873266321*^9, 3.6537538889233212`*^9}, {3.653754120228321*^9, 3.6537541327223215`*^9}, 3.6543638542486477`*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Time Zones", "Subsubsection", CellChangeTimes->{{3.6537374933231707`*^9, 3.653737554607299*^9}}], Cell["\<\ Time zones represent a(most often geographic) region of uniform standard \ time. Time zones are typically regulated and defined by nations, and can \ include observations of daylight saving time. The dates on which DST is \ observed typically change over time.\ \>", "Text", CellChangeTimes->{{3.653752292933516*^9, 3.653752297347516*^9}, { 3.6537531514788914`*^9, 3.6537531980485477`*^9}, {3.653753240685811*^9, 3.653753429646705*^9}, {3.654377628424435*^9, 3.654377639748083*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Time Systems", "Subsubsection", CellChangeTimes->{{3.6537374933231707`*^9, 3.6537375499728355`*^9}}], Cell["\<\ Also known as time standards, these are specifications that dictate both \ fixed points in time and the rate at which time flows. These are the systems \ which handle leap seconds, and common conventions are International Atomic \ Time(TIA), Universal Time(UT, UT0, UT1), and mean solar time.\ \>", "Text", CellChangeTimes->{{3.653752433979516*^9, 3.653752485598516*^9}, { 3.653752543334516*^9, 3.6537525682515163`*^9}, {3.6537529791746626`*^9, 3.653752994957241*^9}, {3.653753061968941*^9, 3.6537531007938232`*^9}}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Wolfram Language Date Framework", "Section", CellChangeTimes->{{3.653735983370244*^9, 3.6537359878812437`*^9}}], Cell[CellGroupData[{ Cell["Overview of the Wolfram Language Date Framework", "Subsection", CellChangeTimes->{{3.6537375679726353`*^9, 3.653737579186756*^9}}], Cell[CellGroupData[{ Cell["Calendar Type: (proleptic) Gregorian", "Item", CellChangeTimes->{{3.6537375876005974`*^9, 3.653737609665804*^9}}], Cell["Calendar Epoch: January 1st, 1 ACE 00:00:00", "Item", CellChangeTimes->{{3.6537375876005974`*^9, 3.6537376481826553`*^9}}], Cell["Time System: 24 hour clock, leap-second free.", "Item", CellChangeTimes->{{3.6537375876005974`*^9, 3.6537376780356402`*^9}, { 3.6537388516852245`*^9, 3.6537388516872244`*^9}}], Cell["Year 0: No", "Item", CellChangeTimes->{{3.6537375876005974`*^9, 3.6537376780356402`*^9}, { 3.6537388516852245`*^9, 3.6537388551892242`*^9}}] }, Open ]], Cell[TextData[{ "The Wolfram Language date framework follows the general conventions of the ", ButtonBox["ISO-8601", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/ISO_8601"], None}, ButtonNote->"https://en.wikipedia.org/wiki/ISO_8601"], " calendar, with the main exception being the lack of year 0(in the Wolfram \ Language {-1, 12, 31, 23, 59, 59} immediately precedes {1, 1, 1, 0, 0, 0}). \ Both are proleptic Gregorian calendars, meaning that they extend backward \ beyond the official adoption of the Gregorian calendar over the Julian in \ 1582(though the date on which different countries adopted the Gregorian \ calendar are often later than this date, the official Gregorian calendar is \ considered only valid from 1582 onward)." }], "Text", CellChangeTimes->{{3.653753516047344*^9, 3.6537535361913586`*^9}, { 3.6537535739381332`*^9, 3.653753633167055*^9}, {3.653754473570321*^9, 3.653754529772321*^9}, 3.6543638588350554`*^9, {3.654377701132594*^9, 3.654377795332982*^9}}], Cell[CellGroupData[{ Cell["Date Representations", "Subsubsection", CellChangeTimes->{{3.653738607927224*^9, 3.6537386154452243`*^9}, { 3.6537386515372243`*^9, 3.6537386550412245`*^9}}], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["DateObject", BaseStyle->"Link", ButtonData->"paclet:ref/DateObject"], " - A container that represents a given date including it\[CloseCurlyQuote]s \ calendar and time zone" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.653738618960224*^9, 3.6537386206812243`*^9}, { 3.653739822004219*^9, 3.6537398423382196`*^9}, {3.6537404913882194`*^9, 3.6537404913892193`*^9}, 3.654183901669533*^9}, FontSize->14], Cell["DateObject[]", "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6541838210455914`*^9, 3.654183822699194*^9}, 3.654183901669533*^9, 3.654377826118743*^9}], Cell["\<\ DateObject[{2015, 10, 18}, TimeObject[{15, 3, 43.0424}, TimeZone -> -4.], \ TimeZone -> -4.]\ \>", "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.6541838230423946`*^9, 3.654183901669533*^9, 3.654377826128743*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["DateList", BaseStyle->"Link", ButtonData->"paclet:ref/DateList"], " - a 6-element list specifying year, month, day, hour, minute, and second" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.653738618960224*^9, 3.6537386242272243`*^9}, { 3.6537398452052193`*^9, 3.6537398615512195`*^9}, {3.6537404971712193`*^9, 3.6537404971732197`*^9}, 3.654183960793637*^9}], Cell[BoxData[ RowBox[{"DateList", "[", "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.654183908424345*^9, 3.654183909656747*^9}, 3.654183960793637*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2015", ",", "10", ",", "18", ",", "15", ",", "5", ",", "9.9063474`8.748488518549106"}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.6541839099219475`*^9, 3.654183960793637*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["AbsoluteTime", BaseStyle->"Link", ButtonData->"paclet:ref/AbsoluteTime"], " - a numeric value giving the number of seconds since midnight, January 1, \ 1900 in your local time zone" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.653738618960224*^9, 3.653738629915224*^9}, { 3.6537398667062197`*^9, 3.6537398875602193`*^9}, 3.653739962325219*^9, 3.6537399926922197`*^9, {3.6537405091842194`*^9, 3.6537405091852193`*^9}, 3.6541839554740276`*^9}], Cell[BoxData[ RowBox[{"AbsoluteTime", "[", "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.65418391129475*^9, 3.654183913041953*^9}, 3.6541839554740276`*^9}], Cell[BoxData["3.6541695132915534`17.31536367913311*^9"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{3.6541839133071537`*^9, 3.6541839554740276`*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["DateString", BaseStyle->"Link", ButtonData->"paclet:ref/DateString"], " - a string containing different date string elements" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.653738618960224*^9, 3.653738632677224*^9}, { 3.6537398896042194`*^9, 3.6537399051722193`*^9}, {3.653740516655219*^9, 3.6537405166562195`*^9}, 3.654183951761221*^9}], Cell[BoxData[ RowBox[{"DateString", "[", "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.654183914133955*^9, 3.6541839154131575`*^9}, 3.654183951761221*^9}], Cell[BoxData["\<\"Sun 18 Oct 2015 15:05:15\"\>"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.654183915740758*^9, 3.654183951761221*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["JulianDate", BaseStyle->"Link", ButtonData->"paclet:ref/JulianDate"], " - a numeric value giving the number of days since noon GMT on November 24, \ 4714 BCE" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.653738618960224*^9, 3.6537386356742244`*^9}, { 3.6537399137022195`*^9, 3.6537399499782195`*^9}, {3.6537405220782194`*^9, 3.6537405220802193`*^9}, 3.654183946270011*^9}], Cell[BoxData[ RowBox[{"JulianDate", "[", "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6541839168639593`*^9, 3.654183946270011*^9}}], Cell[BoxData["2.4573142953600734`*^6"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6541839191415634`*^9, 3.654183946270011*^9}}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["UnixTime", BaseStyle->"Link", ButtonData->"paclet:ref/UnixTime"], " - a numeric value giving the number of seconds since midnight GMT on \ January 1, 1970" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.653738618960224*^9, 3.6537386381812243`*^9}, { 3.6537399544342194`*^9, 3.6537399898642197`*^9}, {3.6537405290192194`*^9, 3.6537405290202193`*^9}, 3.6541839407476015`*^9}], Cell[BoxData[ RowBox[{"UnixTime", "[", "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6541839204519663`*^9, 3.6541839407632017`*^9}}], Cell[BoxData["1445195121"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6541839219339685`*^9, 3.6541839407632017`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["SiderealTime", BaseStyle->"Link", ButtonData->"paclet:ref/SiderealTime"], "* - a mixed-radix quantity giving the right ascension of the local meridian \ for a given date and location" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.653738618960224*^9, 3.653738643085224*^9}, { 3.6537399948782196`*^9, 3.6537400566712193`*^9}, {3.6537405360662193`*^9, 3.6537405360672197`*^9}, 3.6541839351939917`*^9}], Cell[BoxData[ RowBox[{"SiderealTime", "[", "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.654183923790372*^9, 3.6541839351939917`*^9}}], Cell[BoxData[ TemplateBox[{ "11","18","48.126728895585984`",SuperscriptBox["\[Null]", "\"h\""], SuperscriptBox["\[Null]", "\"m\""],SuperscriptBox["\[Null]", "\"s\""], "hours of right ascension,minutes of right ascension,seconds of right \ ascension",RowBox[{"MixedRadix", "[", RowBox[{ "\"HoursOfRightAscension\"", ",", "\"MinutesOfRightAscension\"", ",", "\"SecondsOfRightAscension\""}], "]"}]}, "QuantityMixedRadix3"]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6541839283611803`*^9, 3.6541839351939917`*^9}, 3.65425694050393*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["Now", BaseStyle->"Link", ButtonData->"paclet:ref/Now"], ", ", ButtonBox["Today", BaseStyle->"Link", ButtonData->"paclet:ref/Today"], ", ", ButtonBox["Yesterday", BaseStyle->"Link", ButtonData->"paclet:ref/Yesterday"], ", ", ButtonBox["Tomorrow", BaseStyle->"Link", ButtonData->"paclet:ref/Tomorrow"], " - are all convenience symbols that return a ", ButtonBox["DateObject", BaseStyle->"Link", ButtonData->"paclet:ref/DateObject"], " corresponding to their name." }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.654261919034691*^9, 3.6542620168294697`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"Now", ",", "Today", ",", "Yesterday", ",", "Tomorrow"}], "}"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6542620076685534`*^9, 3.6542620168294697`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{RowBox[{"\"Mon 19 Oct 2015 11:46:53\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "5.`"}]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "19"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "46", ",", "53.3851251`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 19 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "19"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Sun 18 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "18"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Tue 20 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "20"}], "}"}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6542620134121275`*^9, 3.6542620168294697`*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Basic Date Operations", "Subsubsection", CellChangeTimes->{{3.6537386602672243`*^9, 3.6537386657932243`*^9}, { 3.65375370651639*^9, 3.6537537075244904`*^9}}], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["DatePlus", BaseStyle->"Link", ButtonData->"paclet:ref/DatePlus"], " - adds calendar units to a date" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6537386707372246`*^9, 3.6537386814142246`*^9}, { 3.6537402077562194`*^9, 3.6537402330852194`*^9}, {3.6537536528410225`*^9, 3.653753652842023*^9}, 3.654184120959118*^9}], Cell[BoxData[ RowBox[{"DatePlus", "[", RowBox[{"Today", ",", RowBox[{"{", RowBox[{"3", ",", "\"\\""}], "}"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.654183973289259*^9, 3.6541839850360794`*^9}, 3.654184120974718*^9}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Wed 21 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "21"}], "}"}], "]"}]}, "DateObject", Editable->False]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.65418398553528*^9, 3.654184120974718*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["DateDifference", BaseStyle->"Link", ButtonData->"paclet:ref/DateDifference"], " - gives the difference(in calendar units) between two dates" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6537386707372246`*^9, 3.6537386788842244`*^9}, { 3.6537387848202243`*^9, 3.6537387848222246`*^9}, {3.6537402455982194`*^9, 3.6537402672242193`*^9}, {3.6537536621009483`*^9, 3.6537536621019487`*^9}, 3.6541841127847037`*^9}], Cell[BoxData[ RowBox[{"DateDifference", "[", RowBox[{"Yesterday", ",", "Tomorrow"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.654183989388487*^9, 3.6541840059869165`*^9}, 3.6541841127847037`*^9}], Cell[BoxData[ TemplateBox[{"2","\"days\"","days","\"Days\""}, "Quantity"]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.654183997921702*^9, 3.654184006252117*^9}, 3.6541841127847037`*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["DateRange", BaseStyle->"Link", ButtonData->"paclet:ref/DateRange"], " - generates a list of dates given a start and end date" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6537386707372246`*^9, 3.6537386788842244`*^9}, { 3.6537387848202243`*^9, 3.6537387868972244`*^9}, {3.6537399090652194`*^9, 3.6537399090702195`*^9}, {3.6537402693382196`*^9, 3.653740284712219*^9}, { 3.6537536672694654`*^9, 3.6537536672714653`*^9}, 3.6541841093682976`*^9}], Cell[BoxData[ RowBox[{"DateRange", "[", RowBox[{"Yesterday", ",", "Tomorrow"}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.654184008872921*^9, 3.654184015175332*^9}, 3.654184109383898*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{RowBox[{"\"Sat 17 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "17"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Sun 18 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "18"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 19 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "19"}], "}"}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.654184015690133*^9, 3.654184109383898*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["DateValue", BaseStyle->"Link", ButtonData->"paclet:ref/DateValue"], " - extracts various properties from a date expression" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6537386707372246`*^9, 3.6537386788842244`*^9}, { 3.6537387848202243`*^9, 3.6537387868972244`*^9}, {3.6537399090652194`*^9, 3.6537399114852195`*^9}, {3.6537402867722197`*^9, 3.6537402962792196`*^9}, {3.653753676127351*^9, 3.653753676129351*^9}, 3.6541841052186904`*^9}], Cell[BoxData[ RowBox[{"DateValue", "[", RowBox[{"Now", ",", "\"\\""}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6541840176245365`*^9, 3.654184038154173*^9}, 3.6541841052186904`*^9}], Cell[BoxData["15"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6541840301981587`*^9, 3.654184038466173*^9}, 3.6541841052186904`*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["TimeZoneConvert", BaseStyle->"Link", ButtonData->"paclet:ref/TimeZoneConvert"], " - changes a date from one time zone to another" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6537386707372246`*^9, 3.6537386788842244`*^9}, { 3.6537387848202243`*^9, 3.653738795427224*^9}, {3.653740298537219*^9, 3.6537403134402194`*^9}, {3.653753683742112*^9, 3.6537536837431126`*^9}, 3.654184098853879*^9}], Cell[BoxData[ RowBox[{"time", "=", "Now"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6541840602438116`*^9, 3.6541840613826137`*^9}, 3.654184098853879*^9}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Sun 18 Oct 2015 15:07:41\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "4.`"}]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "18"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "7", ",", "41.663414`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "4.`"}]}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "4.`"}]}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{3.654184061694614*^9, 3.654184098853879*^9}], Cell[BoxData[ RowBox[{"TimeZoneConvert", "[", RowBox[{"time", ",", " ", "\"\\""}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.654184041102578*^9, 3.6541840647366195`*^9}, 3.654184098853879*^9}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Sun 18 Oct 2015 13:07:41\"", StyleBox["\"MDT\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "18"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "7", ",", "41.663414`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Denver\""}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Denver\""}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.6541840573734064`*^9, 3.6541840653450203`*^9}, 3.654184098853879*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ ButtonBox["CalendarConvert", BaseStyle->"Link", ButtonData->"paclet:ref/CalendarConvert"], " - changes a date from one calendar to another" }], "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6537386707372246`*^9, 3.6537386788842244`*^9}, { 3.6537387848202243`*^9, 3.653738798545224*^9}, {3.6537403168862195`*^9, 3.6537403296262197`*^9}, {3.653753689988737*^9, 3.653753689990737*^9}, 3.654184087481459*^9}], Cell[BoxData[ RowBox[{"CalendarConvert", "[", RowBox[{"Today", ",", "\"\\""}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.6541840671078234`*^9, 3.654184087481459*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Mon 5 Oct 2015\"", StyleBox[ RowBox[{ "(", "\[InvisibleSpace]", "\"Julian\"", "\"calendar\"", "\[InvisibleSpace]", ")"}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "5"}], "}"}], ",", RowBox[{"CalendarType", "\[Rule]", "\"Julian\""}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.654184072489833*^9, 3.654184087481459*^9}}] }, Closed]] }, Closed]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Date String Elements and Formats", "Section", CellChangeTimes->{{3.6537359984912443`*^9, 3.653736007750244*^9}, { 3.65401035625079*^9, 3.6540103589977903`*^9}, {3.65401040604079*^9, 3.65401040872579*^9}}], Cell[CellGroupData[{ Cell["DateString", "Subsubsection", CellChangeTimes->{{3.65401036416179*^9, 3.65401036808879*^9}}], Cell[TextData[{ ButtonBox["DateString", BaseStyle->"Link", ButtonData->"paclet:ref/DateString"], " is the most frequently used method for formatting dates as strings in \ different formats, and includes a long list of available date string elements:" }], "Text", CellChangeTimes->{{3.6542569660940475`*^9, 3.65425703362255*^9}}], Cell[BoxData[ InterpretationBox[Cell[BoxData[ FormBox[ TagBox[GridBox[{ { StyleBox["\<\"DateString Element\"\>", StripOnInput->False, FontWeight->Bold], StyleBox["\<\"Details\"\>", StripOnInput->False, FontWeight->Bold], StyleBox["\<\"Example\"\>", StripOnInput->False, FontWeight->Bold]}, {"\<\"ADBC\"\>", "\<\"AD or BC\"\>", "\<\"AD\"\>"}, {"\<\"CEBCE\"\>", "\<\"CE or BCE\"\>", "\<\"CE\"\>"}, {"\<\"Year\"\>", "\<\"full year (e.g. 2005)\"\>", "\<\"2015\"\>"}, {"\<\"YearShort\"\>", "\<\"2\[Hyphen]digit year (e.g. 05)\"\>", \ "\<\"15\"\>"}, {"\<\"ISOYear\"\>", "\<\"year conforming to ISO-8601 (e.g. 0199)\"\>", \ "\<\"2015\"\>"}, {"\<\"YearUnsigned\"\>", "\<\"year without a sign\"\>", "\<\"2015\"\>"}, {"\<\"YearRomanNumeral\"\>", "\<\"year using Roman numerals\"\>", \ "\<\"MMXV\"\>"}, {"\<\"Month\"\>", "\<\"2\[Hyphen]digit month number (e.g. 08)\"\>", \ "\<\"10\"\>"}, {"\<\"MonthShort\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit month number \ (e.g. 8)\"\>", "\<\"10\"\>"}, {"\<\"Day\"\>", "\<\"2\[Hyphen]digit day of the month (e.g. 09)\"\>", \ "\<\"19\"\>"}, {"\<\"DayShort\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit day of the \ month (e.g. 9 or 29)\"\>", "\<\"19\"\>"}, {"\<\"Hour\"\>", "\<\"2\[Hyphen]digit hour based on system preferences\ \"\>", "\<\"00\"\>"}, {"\<\"HourShort\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit hour based on \ system preferences\"\>", "\<\"0\"\>"}, {"\<\"Hour12\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit hour on 12\ \[Hyphen]hour clock (e.g. 7)\"\>", "\<\"12\"\>"}, {"\<\"Hour12Short\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit hour on 12\ \[Hyphen]hour clock (e.g. 7, 12)\"\>", "\<\"12\"\>"}, {"\<\"Hour24\"\>", "\<\"2\[Hyphen]digit hour on 24\[Hyphen]hour clock \ (e.g. 19)\"\>", "\<\"00\"\>"}, {"\<\"Hour24Short\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit hour on 24\ \[Hyphen]hour clock (e.g. 7, 19)\"\>", "\<\"0\"\>"}, {"\<\"Minute\"\>", "\<\"2\[Hyphen]digit minute (e.g. 05)\"\>", "\<\"00\ \"\>"}, {"\<\"MinuteShort\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit minute \ (e.g. 5 or 35)\"\>", "\<\"0\"\>"}, {"\<\"Second\"\>", "\<\"2\[Hyphen]digit seconds\"\>", "\<\"00\"\>"}, {"\<\"SecondShort\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit \ seconds\"\>", "\<\"0\"\>"}, {"\<\"SecondExact\"\>", "\<\"seconds including fractions\"\>", \ "\<\"00.000\"\>"}, {"\<\"Millisecond\"\>", "\<\"3\[Hyphen]digit milliseconds\"\>", \ "\<\"000\"\>"}, {"\<\"MillisecondShort\"\>", "\<\"1\[Hyphen], 2\[Hyphen], or \ 3\[Hyphen]digit milliseconds\"\>", "\<\"0\"\>"}, {"\<\"Quarter\"\>", "\<\"quarter number (e.g. 1)\"\>", "\<\"4\"\>"}, {"\<\"QuarterName\"\>", "\<\"quarter of year (e.g. \\\"Quarter \ 1\\\")\"\>", "\<\"Quarter 4\"\>"}, {"\<\"QuarterNameShort\"\>", "\<\"quarter of year in short form (e.g. \ \\\"Q1\\\")\"\>", "\<\"Q4\"\>"}, {"\<\"MonthName\"\>", "\<\"month name (e.g. \\\"August\\\")\"\>", \ "\<\"October\"\>"}, {"\<\"MonthNameShort\"\>", "\<\"month name in short form (e.g. \\\"Aug\ \\\")\"\>", "\<\"Oct\"\>"}, {"\<\"MonthNameInitial\"\>", "\<\"first letter of month name (e.g. \ \\\"A\\\")\"\>", "\<\"O\"\>"}, {"\<\"MonthRomanNumeral\"\>", "\<\"month using Roman numerals\"\>", \ "\<\"X\"\>"}, {"\<\"MonthRomanNumeralLowerCase\"\>", "\<\"month using lowercase \ Roman numerals\"\>", "\<\"x\"\>"}, {"\<\"DayName\"\>", "\<\"day of the week (e.g. \ \\\"Wednesday\\\")\"\>", "\<\"Monday\"\>"}, {"\<\"DayNameShort\"\>", "\<\"day of the week in short form (e.g. \ \\\"Wed\\\")\"\>", "\<\"Mon\"\>"}, {"\<\"DayNameInitial\"\>", "\<\"first letter of day name (e.g. \\\"W\\\ \")\"\>", "\<\"M\"\>"}, {"\<\"TimeZoneGMTRelative\"\>", "\<\"GMT offset (e.g. GMT-04:00)\"\>", \ "\<\"GMT-05:00\"\>"}, {"\<\"AMPM\"\>", "\<\"AM or PM\"\>", "\<\"AM\"\>"}, {"\<\"AMPMLowerCase\"\>", "\<\"am or pm\"\>", "\<\"am\"\>"}, {"\<\"Week\"\>", "\<\"2\[Hyphen]digit week number (e.g. 02)\"\>", \ "\<\"43\"\>"}, {"\<\"WeekShort\"\>", "\<\"1\[Hyphen] or 2\[Hyphen]digit week number \ (e.g. 2)\"\>", "\<\"43\"\>"}, {"\<\"ISOYearDay\"\>", "\<\"3\[Hyphen]digit day of the year conforming \ to ISO-8601 (e.g. 094)\"\>", "\<\"292\"\>"}, {"\<\"ISOYearDayShort\"\>", "\<\"1\[Hyphen], 2\[Hyphen] or \ 3\[Hyphen]digit day of the year (e.g. 94)\"\>", "\<\"292\"\>"}, {"\<\"ISOWeekDay\"\>", "\<\"day number of week conforming to ISO-8601 \ (e.g. 4)\"\>", "\<\"1\"\>"}, {"\<\"ISOTimeZone\"\>", "\<\"GMT offset conforming to ISO-8601 (e.g. \ -04:00)\"\>", "\<\"-05:00\"\>"}, {"\<\"ISODate\"\>", "\<\"full date conforming to ISO-8601\"\>", \ "\<\"2015-10-19\"\>"}, {"\<\"ISODateTime\"\>", "\<\"full date and time conforming to ISO-8601\ \"\>", "\<\"2015-10-19T00:00:00\"\>"}, {"\<\"ISOWeekDate\"\>", "\<\"full week date conforming to \ ISO-8601\"\>", "\<\"2015-W43-1\"\>"}, {"\<\"ISOOrdinalDate\"\>", "\<\"full ordinal date conforming to \ ISO-8601\"\>", "\<\"2015-292\"\>"}, {"\<\"Date\"\>", "\<\"full date\"\>", "\<\"Monday 19 October 2015\"\>"}, {"\<\"DateShort\"\>", "\<\"full date, with short day and month names\"\ \>", "\<\"Mon 19 Oct 2015\"\>"}, {"\<\"Time\"\>", "\<\"full time\"\>", "\<\"00:00:00\"\>"}, {"\<\"DateTime\"\>", "\<\"full date and time\"\>", "\<\"Monday 19 \ October 2015 00:00:00\"\>"}, {"\<\"DateTimeShort\"\>", "\<\"full date and time, with short \ names\"\>", "\<\"Mon 19 Oct 2015\"\>"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {{ GrayLevel[0.75], GrayLevel[0.95]}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], TextForm]], "InlineText"], Text[ Grid[{{ Style["DateString Element", Bold], Style["Details", Bold], Style["Example", Bold]}, {"ADBC", "AD or BC", "AD"}, { "CEBCE", "CE or BCE", "CE"}, {"Year", "full year (e.g. 2005)", "2015"}, { "YearShort", "2\[Hyphen]digit year (e.g. 05)", "15"}, { "ISOYear", "year conforming to ISO-8601 (e.g. 0199)", "2015"}, { "YearUnsigned", "year without a sign", "2015"}, { "YearRomanNumeral", "year using Roman numerals", "MMXV"}, { "Month", "2\[Hyphen]digit month number (e.g. 08)", "10"}, { "MonthShort", "1\[Hyphen] or 2\[Hyphen]digit month number (e.g. 8)", "10"}, {"Day", "2\[Hyphen]digit day of the month (e.g. 09)", "19"}, { "DayShort", "1\[Hyphen] or 2\[Hyphen]digit day of the month (e.g. 9 or 29)", "19"}, {"Hour", "2\[Hyphen]digit hour based on system preferences", "00"}, {"HourShort", "1\[Hyphen] or 2\[Hyphen]digit hour based on system preferences", "0"}, {"Hour12", "1\[Hyphen] or 2\[Hyphen]digit hour on 12\[Hyphen]hour clock (e.g. 7)", "12"}, {"Hour12Short", "1\[Hyphen] or 2\[Hyphen]digit hour on 12\[Hyphen]hour clock (e.g. 7, \ 12)", "12"}, { "Hour24", "2\[Hyphen]digit hour on 24\[Hyphen]hour clock (e.g. 19)", "00"}, {"Hour24Short", "1\[Hyphen] or 2\[Hyphen]digit hour on 24\[Hyphen]hour clock (e.g. 7, \ 19)", "0"}, {"Minute", "2\[Hyphen]digit minute (e.g. 05)", "00"}, { "MinuteShort", "1\[Hyphen] or 2\[Hyphen]digit minute (e.g. 5 or 35)", "0"}, {"Second", "2\[Hyphen]digit seconds", "00"}, { "SecondShort", "1\[Hyphen] or 2\[Hyphen]digit seconds", "0"}, { "SecondExact", "seconds including fractions", "00.000"}, { "Millisecond", "3\[Hyphen]digit milliseconds", "000"}, { "MillisecondShort", "1\[Hyphen], 2\[Hyphen], or 3\[Hyphen]digit milliseconds", "0"}, { "Quarter", "quarter number (e.g. 1)", "4"}, { "QuarterName", "quarter of year (e.g. \"Quarter 1\")", "Quarter 4"}, { "QuarterNameShort", "quarter of year in short form (e.g. \"Q1\")", "Q4"}, {"MonthName", "month name (e.g. \"August\")", "October"}, { "MonthNameShort", "month name in short form (e.g. \"Aug\")", "Oct"}, { "MonthNameInitial", "first letter of month name (e.g. \"A\")", "O"}, { "MonthRomanNumeral", "month using Roman numerals", "X"}, { "MonthRomanNumeralLowerCase", "month using lowercase Roman numerals", "x"}, {"DayName", "day of the week (e.g. \"Wednesday\")", "Monday"}, { "DayNameShort", "day of the week in short form (e.g. \"Wed\")", "Mon"}, { "DayNameInitial", "first letter of day name (e.g. \"W\")", "M"}, { "TimeZoneGMTRelative", "GMT offset (e.g. GMT-04:00)", "GMT-05:00"}, { "AMPM", "AM or PM", "AM"}, {"AMPMLowerCase", "am or pm", "am"}, { "Week", "2\[Hyphen]digit week number (e.g. 02)", "43"}, { "WeekShort", "1\[Hyphen] or 2\[Hyphen]digit week number (e.g. 2)", "43"}, {"ISOYearDay", "3\[Hyphen]digit day of the year conforming to ISO-8601 (e.g. 094)", "292"}, {"ISOYearDayShort", "1\[Hyphen], 2\[Hyphen] or 3\[Hyphen]digit day of the year (e.g. 94)", "292"}, {"ISOWeekDay", "day number of week conforming to ISO-8601 (e.g. 4)", "1"}, { "ISOTimeZone", "GMT offset conforming to ISO-8601 (e.g. -04:00)", "-05:00"}, { "ISODate", "full date conforming to ISO-8601", "2015-10-19"}, { "ISODateTime", "full date and time conforming to ISO-8601", "2015-10-19T00:00:00"}, { "ISOWeekDate", "full week date conforming to ISO-8601", "2015-W43-1"}, { "ISOOrdinalDate", "full ordinal date conforming to ISO-8601", "2015-292"}, {"Date", "full date", "Monday 19 October 2015"}, { "DateShort", "full date, with short day and month names", "Mon 19 Oct 2015"}, {"Time", "full time", "00:00:00"}, { "DateTime", "full date and time", "Monday 19 October 2015 00:00:00"}, { "DateTimeShort", "full date and time, with short names", "Mon 19 Oct 2015"}}, ItemSize -> {Automatic, Automatic}, Alignment -> Left, Background -> {None, {{ GrayLevel[0.75], GrayLevel[0.95]}}}, Frame -> All]]]], "Output", CellChangeTimes->{{3.654259823403308*^9, 3.654259856285596*^9}, { 3.6542598886748347`*^9, 3.6542598929842653`*^9}}], Cell[TextData[{ ButtonBox["DateString", BaseStyle->"Link", ButtonData->"paclet:ref/DateString"], " also included a number of predefined date string formats, such as \ \[OpenCurlyDoubleQuote]Date\[CloseCurlyDoubleQuote], \ \[OpenCurlyDoubleQuote]Time\[CloseCurlyDoubleQuote], and \ \[OpenCurlyDoubleQuote]DateTimeShort\[CloseCurlyDoubleQuote]:" }], "Text", CellChangeTimes->{{3.6542571744687138`*^9, 3.6542571776013403`*^9}, { 3.654259932470214*^9, 3.654259962367203*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6541841844200296`*^9, 3.6541841888816376`*^9}}], Cell[BoxData["\<\"Monday 19 October 2015\"\>"], "Output", CellChangeTimes->{3.6541841891780376`*^9, 3.6542599661815844`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6541841844200296`*^9, 3.6541841921576433`*^9}}], Cell[BoxData["\<\"11:12:46\"\>"], "Output", CellChangeTimes->{3.6541841925476437`*^9, 3.6542599669696636`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.654259967755742*^9, 3.654259971777144*^9}}], Cell[BoxData["\<\"Mon 19 Oct 2015 11:12:52\"\>"], "Output", CellChangeTimes->{3.654259972026169*^9}] }, Open ]], Cell["\<\ ISO-8601 provides guidelines for date formatting to avoid the ambiguity \ introduced by regional differences in date notation, which are also available \ as preset date string formats:\ \>", "Text", CellChangeTimes->{{3.654184205589267*^9, 3.6541842600021625`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.654184262139366*^9, 3.6541842657585726`*^9}}], Cell[BoxData["\<\"2015-10-18\"\>"], "Output", CellChangeTimes->{3.6541842660237727`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.654184262139366*^9, 3.6541842680049763`*^9}}], Cell[BoxData["\<\"2015-10-18T15:11:08\"\>"], "Output", CellChangeTimes->{3.654184268301377*^9}] }, Open ]], Cell["\<\ DateString also provides alternative date notation using week-date and \ ordinal date notation, following ISO-8601 standards:\ \>", "Text", CellChangeTimes->{{3.654184274603788*^9, 3.6541842946186233`*^9}, { 3.6542600498869543`*^9, 3.654260062174183*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6541842959134254`*^9, 3.654184302044236*^9}}], Cell[BoxData["\<\"2015-W43-1\"\>"], "Output", CellChangeTimes->{3.654184302481037*^9, 3.654260036215587*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6541842959134254`*^9, 3.654184307129845*^9}}], Cell[BoxData["\<\"2015-292\"\>"], "Output", CellChangeTimes->{3.6541843074262457`*^9, 3.6542600374857144`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DateValue", "Subsubsection", CellChangeTimes->{{3.65401037166079*^9, 3.65401037266879*^9}}], Cell[TextData[{ ButtonBox["DateValue", BaseStyle->"Link", ButtonData->"paclet:ref/DateValue"], " returns many of the same elements as DateString, but also allows you to \ specify the output type of the elements as well:" }], "Text", CellChangeTimes->{{3.654184331379088*^9, 3.654184370862757*^9}, { 3.654260078459811*^9, 3.654260107860751*^9}, {3.6542602729102545`*^9, 3.6542602729112544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"DateValue", "[", RowBox[{"Now", ",", "\"\\""}], "]"}], "//", "InputForm"}]], "Input", CellChangeTimes->{{3.6542601091208773`*^9, 3.654260121819147*^9}}], Cell["11", "Output", CellChangeTimes->{{3.6542601174517097`*^9, 3.654260122098175*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateValue", "[", RowBox[{"Today", ",", "\"\\"", ",", "Quantity"}], "]"}]], "Input", CellChangeTimes->{{3.654184371767559*^9, 3.654184386743585*^9}}], Cell[BoxData[ TemplateBox[{"2015","\"yr\"","years","\"Years\""}, "Quantity"]], "Output", CellChangeTimes->{{3.6541843826251783`*^9, 3.6541843870867853`*^9}, 3.6542601315261173`*^9}] }, Open ]], Cell[TextData[{ "This can be useful when setting up utility functions to check various \ elements of a date, without having to call ", ButtonBox["ToExpression", BaseStyle->"Link", ButtonData->"paclet:ref/ToExpression"], " or parse date string elements:" }], "Text", CellChangeTimes->{{3.6542601845914235`*^9, 3.654260207440708*^9}, { 3.6542602659425573`*^9, 3.654260265944558*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"businessHoursQ", "[", "date_", "]"}], " ", ":=", " ", RowBox[{"TrueQ", "[", RowBox[{"8", "\[LessEqual]", RowBox[{"DateValue", "[", RowBox[{"date", ",", "\"\\""}], "]"}], "\[LessEqual]", "17"}], "]"}]}]], "Input", CellChangeTimes->{{3.654260208365801*^9, 3.6542602411890826`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"businessHoursQ", "[", "Now", "]"}]], "Input", CellChangeTimes->{{3.654260242593223*^9, 3.6542602455195155`*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.6542602459075546`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"businessHoursQ", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1", ",", "0"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.654260242593223*^9, 3.6542602563726006`*^9}}], Cell[BoxData["False"], "Output", CellChangeTimes->{3.6542602567106347`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["DateFormat", "Subsubsection", CellChangeTimes->{{3.6537387266162243`*^9, 3.6537387294592247`*^9}}], Cell[TextData[{ ButtonBox["DateFormat", BaseStyle->"Link", ButtonData->"paclet:ref/DateFormat"], " is an option for ", ButtonBox["DateObject", BaseStyle->"Link", ButtonData->"paclet:ref/DateObject"], " which dictates the manner in which the expression will typeset, and also \ the default form in which DateString will operate on it:" }], "Text", CellChangeTimes->{{3.654184396290802*^9, 3.654184408973624*^9}, 3.654260501805674*^9, {3.6542605933243666`*^9, 3.654260633470336*^9}, { 3.654377910820587*^9, 3.654377945618578*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", "]"}]], "Input", CellChangeTimes->{{3.6541844142776337`*^9, 3.654184415681636*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Mon 19 Oct 2015 11:24:00\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "5.`"}]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "19"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "24", ",", "0.5519192`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.6541844159780364`*^9, 3.654260640574915*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "8", ",", "1"}], "}"}], ",", RowBox[{"DateFormat", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.654184416789238*^9, 3.654184436850873*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"2015-W31-6\""}],RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "8", ",", "1"}], "}"}], ",", RowBox[{"DateFormat", "\[Rule]", RowBox[{"{", "\"ISOWeekDate\"", "}"}]}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{{3.654184430844863*^9, 3.6541844371628733`*^9}, 3.654260642769476*^9, 3.6542607452649918`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.6542606439002495`*^9, 3.654260645636902*^9}}], Cell[BoxData["\<\"2015-W31-6\"\>"], "Output", CellChangeTimes->{3.6542606459338427`*^9, 3.654260746366992*^9}] }, Open ]], Cell["\<\ The default format can still be overwritten by explicitly specifying a date \ string format:\ \>", "Text", CellChangeTimes->{{3.654260762746992*^9, 3.654260779487992*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateString", "[", RowBox[{"%%", ",", " ", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.654260746654992*^9, 3.654260754145992*^9}}], Cell[BoxData["\<\"Sat 1 Aug 2015\"\>"], "Output", CellChangeTimes->{3.654260754418992*^9}] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Time Zones", "Section", CellChangeTimes->{{3.653736023928244*^9, 3.653736026875244*^9}, { 3.6537361175062437`*^9, 3.653736147504244*^9}}], Cell[CellGroupData[{ Cell["TimeZone Basics", "Subsubsection", CellChangeTimes->{{3.654260988520992*^9, 3.6542609934229918`*^9}}], Cell[TextData[{ "When the Wolfram System is initialized, one of the system variables that is \ set is ", ButtonBox["$TimeZone", BaseStyle->"Link", ButtonData->"paclet:ref/$TimeZone"], ", which gives the current offset, in hours, from GMT for your system:" }], "Text", CellChangeTimes->{{3.6542609957669916`*^9, 3.6542610487649918`*^9}, { 3.6542612474109917`*^9, 3.654261247411992*^9}}], Cell[CellGroupData[{ Cell[BoxData["$TimeZone"], "Input", CellChangeTimes->{{3.654261049463992*^9, 3.654261050525992*^9}}], Cell[BoxData[ RowBox[{"-", "5.`"}]], "Output", CellChangeTimes->{3.654261050798992*^9, 3.6542618458379917`*^9}] }, Open ]], Cell[TextData[{ "The option ", ButtonBox["TimeZone", BaseStyle->"Link", ButtonData->"paclet:ref/TimeZone"], " can be used to specify an output time zone, instead of defaulting to ", ButtonBox["$TimeZone", BaseStyle->"Link", ButtonData->"paclet:ref/$TimeZone"], ":" }], "Text", CellChangeTimes->{{3.6542611569129915`*^9, 3.6542611914269915`*^9}, { 3.6542612365569916`*^9, 3.6542612614179916`*^9}}], Cell[CellGroupData[{ Cell[BoxData["Now"], "Input", CellChangeTimes->{{3.6542612226419916`*^9, 3.654261222899992*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Mon 19 Oct 2015 11:33:43\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "5.`"}]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "19"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "33", ",", "43.1799918`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.6542612231999917`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateList", "[", RowBox[{"%", ",", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.654261198598992*^9, 3.654261225150992*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2015", ",", "10", ",", "19", ",", "16", ",", "33", ",", "43.179991722106934`"}], "}"}]], "Output", CellChangeTimes->{{3.654261213559992*^9, 3.654261226128992*^9}}] }, Open ]], Cell[TextData[{ "The value for ", ButtonBox["$TimeZone", BaseStyle->"Link", ButtonData->"paclet:ref/$TimeZone"], " is used by all date functions in the Wolfram Language as the reference \ point against which time values are measured, and is almost always assumed to \ be the input timezone, which we can see by modifying the value:" }], "Text", CellChangeTimes->{{3.654261061190992*^9, 3.6542611247879915`*^9}, { 3.6542614186299915`*^9, 3.654261430354992*^9}, {3.654261506796992*^9, 3.6542615124429917`*^9}, {3.6542615876399918`*^9, 3.6542615876409917`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"date", "=", RowBox[{"DateList", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.6542611341749916`*^9, 3.6542611353509917`*^9}, { 3.654261434800992*^9, 3.654261447494992*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.6542611356559916`*^9, 3.654261451062992*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateList", "[", RowBox[{"date", ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.654261464347992*^9, 3.6542614707659917`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.654261471121992*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$TimeZone", "=", "0"}], "}"}], ",", RowBox[{"DateList", "[", RowBox[{"date", ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5"}]}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.654261125647992*^9, 3.6542611317849917`*^9}, { 3.6542614556869917`*^9, 3.6542614615049915`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2014", ",", "12", ",", "31", ",", "20", ",", "1", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.654261136369992*^9, 3.654261472805992*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$TimeZone", "=", "8"}], "}"}], ",", RowBox[{"DateList", "[", RowBox[{"date", ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5"}]}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.6542611419599915`*^9, 3.654261150923992*^9}, { 3.654261477786992*^9, 3.654261482340992*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2014", ",", "12", ",", "31", ",", "12", ",", "1", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.654261151322992*^9, 3.6542614828919916`*^9}] }, Open ]], Cell[TextData[{ ButtonBox["DateObject", BaseStyle->"Link", ButtonData->"paclet:ref/DateObject"], " and ", ButtonBox["TimeObject", BaseStyle->"Link", ButtonData->"paclet:ref/TimeObject"], " are exceptions, where the ", ButtonBox["TimeZone", BaseStyle->"Link", ButtonData->"paclet:ref/TimeZone"], " option value is assumed to be both the input, and output time zone:" }], "Text", CellChangeTimes->{{3.6542615262669916`*^9, 3.6542615946039915`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{"date", ",", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.654261556211992*^9, 3.6542615602689915`*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Thu 1 Jan 2015 01:01:01\"", StyleBox["\"GMT\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "0.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.6542615607479916`*^9}] }, Open ]], Cell[TextData[{ "Some functions, like ", ButtonBox["UnixTime", BaseStyle->"Link", ButtonData->"paclet:ref/UnixTime"], " and ", ButtonBox["JulianDate", BaseStyle->"Link", ButtonData->"paclet:ref/JulianDate"], ", do not have a ", ButtonBox["TimeZone", BaseStyle->"Link", ButtonData->"paclet:ref/TimeZone"], " option, because their output values are, by definition, in GMT:" }], "Text", CellChangeTimes->{{3.654377988864051*^9, 3.65437806157121*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Options", "/@", RowBox[{"{", RowBox[{"UnixTime", ",", "JulianDate"}], "}"}]}]], "Input", CellChangeTimes->{{3.6543780176897*^9, 3.654378028019291*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6543780286093245`*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["TimeZone Types", "Subsubsection", CellChangeTimes->{{3.6542609803919916`*^9, 3.654260985362992*^9}}], Cell["\<\ Up through version 10.2, time zones in the Wolfram Language have been \ exclusively numeric offsets from GMT. As of version 10.3 however, time zones \ have been extended to include named time zones, as well as entity expressions.\ \>", "Text", CellChangeTimes->{{3.653824427307441*^9, 3.653824479570667*^9}, { 3.653824522715981*^9, 3.6538245992942824`*^9}, 3.6542618530549917`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{"TimeZone", "\[Rule]", "0"}], "]"}]], "Input", CellChangeTimes->{{3.6538246005972824`*^9, 3.653824607495282*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Wed 14 Oct 2015 15:16:50\"", StyleBox["\"GMT\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "14"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "16", ",", "50.8662823`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "0.`"}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "0.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.6538246108752823`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{"TimeZone", "\[Rule]", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.6538246005972824`*^9, 3.6538246198312826`*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Wed 14 Oct 2015 10:17:00\"", StyleBox["\"CDT\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "14"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "17", ",", "0.1052823`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Chicago\""}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Chicago\""}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.6538246201262827`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{"TimeZone", "\[Rule]", NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "mountain time", Typeset`boxes$$ = TemplateBox[{"\"America/Phoenix\"", RowBox[{"Entity", "[", RowBox[{"\"TimeZone\"", ",", "\"America/Phoenix\""}], "]"}], "\"Entity[\\\"TimeZone\\\", \\\"America/Phoenix\\\"]\"", "\"time zone\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "mountain time", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "2", "Values" -> {{ "name" -> "InternetTimeZone", "desc" -> "a time zone", "input" -> "*C.mountain+time-_*InternetTimeZone-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.mountain+time-_*Word-"}}}, { "type" -> "SubCategory", "word" -> "mountain time", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "13", "Values" -> {{ "name" -> "America/Phoenix", "desc" -> "America/Phoenix", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FPhoenix-"}, { "name" -> "America/Denver", "desc" -> "America/Denver", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FDenver-"}, { "name" -> "America/Boise", "desc" -> "America/Boise", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FBoise-"}, { "name" -> "America/Chihuahua", "desc" -> "America/Chihuahua", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FChihuahua-"}, \ {"name" -> "America/Edmonton", "desc" -> "America/Edmonton", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FEdmonton-"}, { "name" -> "America/Mazatlan", "desc" -> "America/Mazatlan", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FMazatlan-"}, { "name" -> "America/Hermosillo", "desc" -> "America/Hermosillo", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FHermosillo-"},\ {"name" -> "America/Ojinaga", "desc" -> "America/Ojinaga", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FOjinaga-"}, { "name" -> "America/Yellowknife", "desc" -> "America/Yellowknife", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FYellowknife-"}\ , {"name" -> "America/Dawson_Creek", "desc" -> "America/Dawson_Creek", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FDawson%21_\ Creek-"}, { "name" -> "America/Inuvik", "desc" -> "America/Inuvik", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FInuvik-"}, { "name" -> "America/Creston", "desc" -> "America/Creston", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FCreston-"}, { "name" -> "America/Cambridge_Bay", "desc" -> "America/Cambridge_Bay", "input" -> "*DPClash.InternetTimeZoneE.mountain+time-_*America%2FCambridge%21_\ Bay-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 2.401`7.8319371535530005, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{103., {7., 18.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]}], "]"}]], "Input", CellChangeTimes->{{3.6538246005972824`*^9, 3.6538246860642824`*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Wed 14 Oct 2015 08:43:42\"", StyleBox["\"MST\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "14"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "43", ",", "42.8651953`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Phoenix\""}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Phoenix\""}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.6538262228761964`*^9}] }, Open ]], Cell[TextData[{ "Time zone specifications can also be a location ", ButtonBox["Entity", BaseStyle->"Link", ButtonData->"paclet:ref/Entity"], ", in which case the Wolfram System will look up the corresponding time zone \ entity and return the appropriate time:" }], "Text", CellChangeTimes->{{3.65382622661457*^9, 3.6538262598378925`*^9}, { 3.6542616397459917`*^9, 3.654261647727992*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{"TimeZone", "\[Rule]", TemplateBox[{"\"Bangkok\"",RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Bangkok\"", ",", "\"Bangkok\"", ",", "\"Thailand\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Bangkok\\\", \\\"Bangkok\\\", \ \\\"Thailand\\\"}]\"","\"city\""}, "Entity"]}], "]"}]], "Input", CellChangeTimes->{{3.6538262631762257`*^9, 3.653826295062414*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Wed 14 Oct 2015 22:45:05\"", StyleBox["\"ICT\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "14"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "45", ",", "5.6914771`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"Asia/Bangkok\""}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"Asia/Bangkok\""}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.6538263057074785`*^9}] }, Open ]], Cell["\<\ Time zone entities automatically adjust for daylight saving time where \ appropriate:\ \>", "Text", CellChangeTimes->{{3.653826320449953*^9, 3.653826336163277*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", " ", "3", ",", " ", "8", ",", "1"}], "}"}], ",", RowBox[{"TimeZone", "->", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.653826341300277*^9, 3.653826358623277*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Sun 8 Mar 2015 01:00\"", StyleBox["\"CST\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Chicago\""}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Chicago\""}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{{3.653826351914277*^9, 3.6538263602102776`*^9}, 3.653826439053277*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", " ", "3", ",", " ", "8", ",", "3"}], "}"}], ",", RowBox[{"TimeZone", "->", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.653826341300277*^9, 3.6538263641252775`*^9}, { 3.6538264035622773`*^9, 3.653826405725277*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Sun 8 Mar 2015 03:00\"", StyleBox["\"CDT\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", "3", "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Chicago\""}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "\"America/Chicago\""}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.653826408281277*^9, 3.653826439702277*^9}] }, Open ]], Cell[TextData[{ "Time zone entities can be discovered using natural language input, and also \ ", ButtonBox["LocalTimeZone", BaseStyle->"Link", ButtonData->"paclet:ref/LocalTimeZone"], ":" }], "Text", CellChangeTimes->{{3.654261668078992*^9, 3.6542617012919917`*^9}, { 3.6542617657739916`*^9, 3.6542617665359917`*^9}}], Cell[BoxData[ NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "eastern time", Typeset`boxes$$ = TemplateBox[{"\"America/New_York\"", RowBox[{"Entity", "[", RowBox[{"\"TimeZone\"", ",", "\"America/New_York\""}], "]"}], "\"Entity[\\\"TimeZone\\\", \\\"America/New_York\\\"]\"", "\"time zone\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "MultiClash", "word" -> "", "template" -> "Assuming ${word1} is referring to ${desc1}. Use as ${desc2} instead. \ Use \"${word3}\" as ${desc3}.", "count" -> "3", "Values" -> {{ "name" -> "InternetTimeZone", "word" -> "the input", "desc" -> "a time zone", "input" -> "*MC.%7E-_*InternetTimeZone-"}, { "name" -> "Word", "word" -> "the input", "desc" -> "a word", "input" -> "*MC.%7E-_*Word-"}, { "name" -> "AdministrativeDivisionGeoLocation", "word" -> "eastern", "desc" -> "an administrative division", "input" -> "*MC.%7E-_*AdministrativeDivisionGeoLocation-"}}}, { "type" -> "SubCategory", "word" -> "eastern time", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "24", "Values" -> {{ "name" -> "America/New_York", "desc" -> "America/New_York", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FNew%21_York-"}, { "name" -> "America/Indiana/Indianapolis", "desc" -> "America/Indiana/Indianapolis", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FIndiana%\ 2FIndianapolis-"}, { "name" -> "America/Detroit", "desc" -> "America/Detroit", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FDetroit-"}, { "name" -> "America/Kentucky/Louisville", "desc" -> "America/Kentucky/Louisville", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FKentucky%\ 2FLouisville-"}, { "name" -> "America/Indiana/Marengo", "desc" -> "America/Indiana/Marengo", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FIndiana%\ 2FMarengo-"}, { "name" -> "America/Indiana/Vincennes", "desc" -> "America/Indiana/Vincennes", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FIndiana%\ 2FVincennes-"}, { "name" -> "America/Kentucky/Monticello", "desc" -> "America/Kentucky/Monticello", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FKentucky%\ 2FMonticello-"}, { "name" -> "America/Indiana/Vevay", "desc" -> "America/Indiana/Vevay", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FIndiana%2FVevay-\ "}, {"name" -> "America/Indiana/Winamac", "desc" -> "America/Indiana/Winamac", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FIndiana%\ 2FWinamac-"}, { "name" -> "America/Indiana/Petersburg", "desc" -> "America/Indiana/Petersburg", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FIndiana%\ 2FPetersburg-"}, { "name" -> "America/Jamaica", "desc" -> "America/Jamaica", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FJamaica-"}, { "name" -> "America/Cancun", "desc" -> "America/Cancun", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FCancun-"}, { "name" -> "America/Panama", "desc" -> "America/Panama", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FPanama-"}, { "name" -> "America/Cayman", "desc" -> "America/Cayman", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FCayman-"}, { "name" -> "America/Toronto", "desc" -> "America/Toronto", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FToronto-"}, { "name" -> "America/Montreal", "desc" -> "America/Montreal", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FMontreal-"}, { "name" -> "America/Port-au-Prince", "desc" -> "America/Port-au-Prince", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FPort%21-au%21-\ Prince-"}, { "name" -> "America/Atikokan", "desc" -> "America/Atikokan", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FAtikokan-"}, { "name" -> "America/Nassau", "desc" -> "America/Nassau", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FNassau-"}, { "name" -> "America/Thunder_Bay", "desc" -> "America/Thunder_Bay", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FThunder%21_Bay-"}\ , {"name" -> "America/Iqaluit", "desc" -> "America/Iqaluit", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FIqaluit-"}, { "name" -> "America/Nipigon", "desc" -> "America/Nipigon", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FNipigon-"}, { "name" -> "America/Grand_Turk", "desc" -> "America/Grand_Turk", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FGrand%21_Turk-"},\ {"name" -> "America/Pangnirtung", "desc" -> "America/Pangnirtung", "input" -> "*DPClash.InternetTimeZoneE.eastern+time-_*America%2FPangnirtung-"}}}}\ , Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 2.498`7.849137427534089, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{93., {7., 18.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]], "Input", CellChangeTimes->{{3.6542617041039915`*^9, 3.6542617213709917`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocalTimeZone", "[", TemplateBox[{"\"Tokyo\"",RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Tokyo\"", ",", "\"Tokyo\"", ",", "\"Japan\""}], "}"}]}], "]"}],"\"Entity[\\\"City\\\", {\\\"Tokyo\\\", \\\"Tokyo\\\", \ \\\"Japan\\\"}]\"","\"city\""}, "Entity"], "]"}]], "Input", CellChangeTimes->{{3.654261728543992*^9, 3.654261742102992*^9}}], Cell[BoxData[ TemplateBox[{"\"Asia/Tokyo\"",RowBox[{"Entity", "[", RowBox[{"\"TimeZone\"", ",", "\"Asia/Tokyo\""}], "]"}], "\"Entity[\\\"TimeZone\\\", \\\"Asia/Tokyo\\\"]\"","\"time zone\""}, "Entity"]], "Output", CellChangeTimes->{{3.6542617439959917`*^9, 3.654261755906992*^9}}] }, Open ]], Cell[TextData[{ "Your local time zone entity can also be found by evaluating the ", ButtonBox["$TimeZoneEntity", BaseStyle->"Link", ButtonData->"paclet:ref/$TimeZoneEntity"], " variable:" }], "Text", CellChangeTimes->{{3.654261774092992*^9, 3.654261810216992*^9}}], Cell[CellGroupData[{ Cell[BoxData["$TimeZoneEntity"], "Input", CellChangeTimes->{{3.654261815293992*^9, 3.654261817058992*^9}}], Cell[BoxData[ TemplateBox[{"\"America/Chicago\"",RowBox[{"Entity", "[", RowBox[{"\"TimeZone\"", ",", "\"America/Chicago\""}], "]"}], "\"Entity[\\\"TimeZone\\\", \\\"America/Chicago\\\"]\"","\"time zone\""}, "Entity"]], "Output", CellChangeTimes->{3.654261817796992*^9}] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Holiday Calendars", "Section", CellChangeTimes->{{3.653736046670244*^9, 3.653736057851244*^9}, 3.653736098195244*^9, {3.653736149527244*^9, 3.653736152971244*^9}, 3.6537367572152443`*^9}], Cell[CellGroupData[{ Cell["Basic Overview", "Subsubsection", CellChangeTimes->{{3.654420008268506*^9, 3.6544200116518617`*^9}}], Cell[TextData[{ "Holiday calendars in the Wolfram Language are primarily utilized in the \ calendar day framework, which is a subset of the general calendar date \ framework. In the calendar day framework ", ButtonBox["HolidayCalendar", BaseStyle->"Link", ButtonData->"paclet:ref/HolidayCalendar"], " can be used to specify which country and exchange is used in determining \ \[OpenCurlyDoubleQuote]Holiday\[CloseCurlyDoubleQuote] day types:" }], "Text", CellChangeTimes->{{3.653826504798277*^9, 3.6538265773892775`*^9}, { 3.6544197952271147`*^9, 3.6544198030005865`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DayRange", "[", RowBox[{ TemplateBox[{RowBox[{"\"Thu 1 Jan 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 31 Dec 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "12", ",", "31"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", " ", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.653826494650277*^9, 3.653826496822277*^9}, { 3.654262113320118*^9, 3.6542621573435197`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{RowBox[{"\"Thu 1 Jan 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 19 Jan 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "19"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 16 Feb 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "2", ",", "16"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 25 May 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "5", ",", "25"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 3 Jul 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "7", ",", "3"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 7 Sep 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "9", ",", "7"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 12 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "12"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 11 Nov 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "11", ",", "11"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 26 Nov 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "11", ",", "26"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 25 Dec 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "12", ",", "25"}], "}"}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", CellChangeTimes->{{3.654262136557441*^9, 3.6542621634251275`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DayRange", "[", RowBox[{ TemplateBox[{RowBox[{"\"Thu 1 Jan 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 31 Dec 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "12", ",", "31"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", " ", "\"\\"", ",", " ", RowBox[{"HolidayCalendar", "->", TemplateBox[{"\"China\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"China\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"China\\\"]\"","\"country\""}, "Entity"]}]}], "]"}]], "Input", CellChangeTimes->{{3.653826494650277*^9, 3.653826496822277*^9}, { 3.654262113320118*^9, 3.6542621685636415`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{RowBox[{"\"Thu 1 Jan 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 18 Feb 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "2", ",", "18"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 19 Feb 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "2", ",", "19"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 20 Feb 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "2", ",", "20"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 23 Feb 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "2", ",", "23"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Tue 24 Feb 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "2", ",", "24"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 25 Feb 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "2", ",", "25"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 1 May 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "5", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 1 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 2 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "2"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 5 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "5"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Tue 6 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "6"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 7 Oct 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "10", ",", "7"}], "}"}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", CellChangeTimes->{{3.654262150062792*^9, 3.654262169188704*^9}}] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DayRange", "[", RowBox[{ TemplateBox[{RowBox[{"\"Thu 1 Jan 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 31 Dec 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "12", ",", "31"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", " ", "\"\\"", ",", " ", RowBox[{"HolidayCalendar", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.653826494650277*^9, 3.653826496822277*^9}, { 3.654262113320118*^9, 3.654262203193104*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{RowBox[{"\"Thu 1 Jan 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 19 Jan 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "1", ",", "19"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 16 Feb 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "2", ",", "16"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 3 Apr 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "4", ",", "3"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 25 May 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "5", ",", "25"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 3 Jul 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "7", ",", "3"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 7 Sep 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "9", ",", "7"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 26 Nov 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "11", ",", "26"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 25 Dec 2015\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2015", ",", "12", ",", "25"}], "}"}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", CellChangeTimes->{3.6542622037281575`*^9}] }, Closed]], Cell["\<\ One can also specify a custom holiday calendar using pure functions:\ \>", "Text", CellChangeTimes->{{3.654262241794964*^9, 3.654262252588043*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DayRange", "[", RowBox[{ TemplateBox[{RowBox[{"\"Thu 6 Jan 2000\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2000", ",", "1", ",", "6"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 6 Jul 2018\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2018", ",", "7", ",", "6"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", "\"\\"", ",", " ", RowBox[{"HolidayCalendar", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"True", "&"}], ",", RowBox[{ RowBox[{"#", "\[Equal]", "5"}], "&"}], ",", RowBox[{ RowBox[{"#", "\[Equal]", "9"}], "&"}]}], "}"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{3.6542622394657307`*^9, 3.6542622717659607`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{RowBox[{"\"Tue 9 May 2000\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2000", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 9 May 2001\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2001", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 9 May 2002\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2002", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 9 May 2003\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2003", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 9 May 2005\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2005", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Tue 9 May 2006\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2006", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 9 May 2007\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2007", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 9 May 2008\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2008", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 9 May 2011\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2011", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 9 May 2012\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2012", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Thu 9 May 2013\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2013", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Fri 9 May 2014\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2014", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Mon 9 May 2016\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2016", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Tue 9 May 2017\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2017", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 9 May 2018\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2018", ",", "5", ",", "9"}], "}"}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", CellChangeTimes->{{3.654262254279212*^9, 3.654262272880072*^9}, 3.6543782759524717`*^9}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Recent Updates", "Subsubsection", CellChangeTimes->{{3.6544199999738283`*^9, 3.6544200032324514`*^9}}], Cell["\<\ In version 10, we\[CloseCurlyQuote]ve expanded the number of exchange holiday \ calendars available, and extended support for HolidayCalendar to the Date* \ counterparts for the existing Day* functions:\ \>", "Text", CellChangeTimes->{{3.654419702263957*^9, 3.6544197666128197`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CalendarData", "[", "]"}]], "Input", CellChangeTimes->{{3.653826468544277*^9, 3.653826470453277*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"\"Argentina\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Argentina\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Argentina\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Australia\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Brazil\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Brazil\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Brazil\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Canada\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Canada\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Canada\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Chile\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Chile\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Chile\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"China\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"China\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"China\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Czech Republic\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"CzechRepublic\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"CzechRepublic\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Denmark\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Denmark\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Denmark\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Finland\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Finland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Finland\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"France\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"France\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"France\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Germany\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Hong Kong\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"HongKong\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"HongKong\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Hungary\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Hungary\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Hungary\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Iceland\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Iceland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Iceland\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"India\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"India\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"India\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Indonesia\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Indonesia\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Indonesia\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Israel\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Israel\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Israel\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Italy\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Italy\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Italy\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Japan\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Japan\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Japan\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Mexico\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Mexico\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Mexico\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"New Zealand\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"NewZealand\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"NewZealand\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Norway\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Norway\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Norway\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Poland\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Russia\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Russia\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Russia\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Saudi Arabia\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"SaudiArabia\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"SaudiArabia\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Singapore\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Singapore\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Singapore\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Slovakia\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Slovakia\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Slovakia\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"South Africa\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"SouthAfrica\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"SouthAfrica\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"South Korea\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"SouthKorea\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"SouthKorea\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Sweden\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Sweden\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Sweden\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Switzerland\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Switzerland\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Switzerland\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Taiwan\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Taiwan\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Taiwan\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Turkey\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Turkey\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Turkey\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"Ukraine\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"Ukraine\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"Ukraine\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"United Kingdom\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"UnitedKingdom\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"UnitedKingdom\\\"]\"","\"country\""}, "Entity"], ",", TemplateBox[{"\"United States\"",RowBox[{"Entity", "[", RowBox[{"\"Country\"", ",", "\"UnitedStates\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"UnitedStates\\\"]\"","\"country\""}, "Entity"]}], "}"}]], "Output", CellChangeTimes->{3.654262181417927*^9}] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CalendarData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.653826468544277*^9, 3.6538264771092772`*^9}, { 3.6544197808971024`*^9, 3.654419784074627*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Default\"\>", ",", "\<\"TSE\"\>"}], "}"}]], "Output", CellChangeTimes->{3.653826488972277*^9, 3.654419926270808*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"DatePlus", "[", RowBox[{"Now", ",", RowBox[{"{", RowBox[{"250", ",", " ", "\"\\""}], "}"}], ",", RowBox[{"HolidayCalendar", "\[Rule]", "i"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6544198123462467`*^9, 3.6544198244031467`*^9}, { 3.654419855011182*^9, 3.6544198765695024`*^9}, {3.6544199635199013`*^9, 3.6544199703177958`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{RowBox[{"\"Wed 26 Oct 2016 07:39:30\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "5.`"}]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2016", ",", "10", ",", "26"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "39", ",", "30.8167235`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}]}, "DateObject", Editable->False], ",", TemplateBox[{RowBox[{"\"Wed 19 Oct 2016 07:39:30\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "5.`"}]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2016", ",", "10", ",", "19"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "39", ",", "30.863498`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}]}, "DateObject", Editable->False]}], "}"}]], "Output", CellChangeTimes->{ 3.654419830882804*^9, 3.6544198783919063`*^9, {3.6544199644398003`*^9, 3.654419970894681*^9}}] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Calendar Types", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308340990994*^9, 3.514308352103572*^9}, { 3.653736064469244*^9, 3.653736084768244*^9}, {3.653736155593244*^9, 3.653736164938244*^9}, {3.653736751867244*^9, 3.653736755608244*^9}}], Cell[CellGroupData[{ Cell["Calendar Overview", "Subsubsection", CellChangeTimes->{{3.65442007847803*^9, 3.6544200808323464`*^9}}], Cell[TextData[{ "The Wolfram Language date framework uses a proleptic Gregorian calendar for \ it\[CloseCurlyQuote]s standard date notation, but it also includes support \ for additional calendar types within ", ButtonBox["DateObject", BaseStyle->"Link", ButtonData->"paclet:ref/DateObject"], " and other functions. The standard supported calendars are Gregorian, \ Julian, Jewish, and Islamic. Specifying an explicit ", ButtonBox["CalendarType", BaseStyle->"Link", ButtonData->"paclet:ref/CalendarType"], " in ", ButtonBox["DateObject", BaseStyle->"Link", ButtonData->"paclet:ref/DateObject"], " will return a date in the appropriate calendar:" }], "Text", CellChangeTimes->{{3.495209008234375*^9, 3.49520915653125*^9}, 3.495209919765625*^9, 3.4952106014375*^9, {3.4952106824375*^9, 3.495210832234375*^9}, 3.514307848543872*^9, {3.514308058576482*^9, 3.514308065607885*^9}, {3.51430841745117*^9, 3.514308419642997*^9}, { 3.5149152616687326`*^9, 3.514915280523456*^9}, {3.514915328702818*^9, 3.5149153375415287`*^9}, 3.514915444638068*^9, {3.654269197187842*^9, 3.654269257514842*^9}, {3.654269350986842*^9, 3.654269350988842*^9}, { 3.6542693975728416`*^9, 3.654269433231842*^9}, {3.654269476731842*^9, 3.654269481837842*^9}, {3.654378339695118*^9, 3.654378354164945*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Column", "[", RowBox[{ RowBox[{ RowBox[{"DateObject", "[", RowBox[{"CalendarType", "\[Rule]", "#"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.654184455820506*^9, 3.6541844849769573`*^9}, 3.654269276204842*^9, {3.654269465868842*^9, 3.654269466679842*^9}}], Cell[BoxData[ TagBox[GridBox[{ { TemplateBox[{RowBox[{"\"Mon 19 Oct 2015 13:51:07\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "5.`"}]}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "10", ",", "19"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "51", ",", "7.5818419`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}]}, "DateObject", Editable->False]}, { TemplateBox[{RowBox[{"\"Yom Sheni 6 Chesvan 5776 13:51:07\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "5.`"}]}], FontColor -> GrayLevel[0.5]], StyleBox[ RowBox[{"(", "\[InvisibleSpace]", "\"Jewish\"", "\"calendar\"", "\[InvisibleSpace]", ")"}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"5776", ",", "8", ",", "6"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "51", ",", "7.5818419`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}], ",", RowBox[{"CalendarType", "\[Rule]", "\"Jewish\""}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}]}, "DateObject", Editable->False]}, { TemplateBox[{RowBox[{"\"al-Ahad 5 Muharram 1437 13:51:07\"", StyleBox[ RowBox[{"\"GMT\"", "\[InvisibleSpace]", RowBox[{"-", "5.`"}]}], FontColor -> GrayLevel[0.5]], StyleBox[ RowBox[{"(", "\[InvisibleSpace]", "\"Islamic\"", "\"calendar\"", "\[InvisibleSpace]", ")"}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1437", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "51", ",", "7.5838419`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}], ",", RowBox[{"CalendarType", "\[Rule]", "\"Islamic\""}], ",", RowBox[{"TimeZone", "\[Rule]", RowBox[{"-", "5.`"}]}]}], "]"}]}, "DateObject", Editable->False]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{3.6541844853669586`*^9, 3.654269277144842*^9, 3.6542694676108418`*^9}] }, Closed]], Cell["\<\ These calendar dates are also represented using date lists internally within \ DateObject, and format with their appropriate day and month names:\ \>", "Text", CellChangeTimes->{{3.654420272878329*^9, 3.654420322414401*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateObject", "[", RowBox[{"Today", ",", RowBox[{"CalendarType", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.654420324831936*^9, 3.6544203549185486`*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Yom Revi'i 8 Chesvan 5776\"", StyleBox[ RowBox[{ "(", "\[InvisibleSpace]", "\"Jewish\"", "\"calendar\"", "\[InvisibleSpace]", ")"}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"5776", ",", "8", ",", "8"}], "}"}], ",", RowBox[{"CalendarType", "\[Rule]", "\"Jewish\""}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{{3.654420336061776*^9, 3.654420355448847*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.654420359098545*^9, 3.6544203611417522`*^9}}], Cell["DateObject[{5776, 8, 8}, CalendarType -> \"Jewish\"]", "Output", CellChangeTimes->{3.654420361391304*^9}] }, Open ]], Cell[TextData[{ "Note that there are at least 4 different standards for the Islamic \ calendar, the ", StyleBox["Umm al-Qura", FontSlant->"Italic"], ", the lunar ", StyleBox["Hijri", FontSlant->"Italic"], ", this Turkish ", StyleBox["Hijri", FontSlant->"Italic"], ", and the Solar ", StyleBox["Hejri", FontSlant->"Italic"], ", which are all currently in use in different countries, as well as some \ Tabular variants. The Wolfram Language\[CloseCurlyQuote]s Islamic calendar \ is based on the lunar ", StyleBox["Hijri", FontSlant->"Italic"], ", which is the most commonly used variant word-wide." }], "Text", CellChangeTimes->{{3.6544205518526225`*^9, 3.6544205791040754`*^9}, { 3.654420617857775*^9, 3.6544207851806736`*^9}, {3.654420865614789*^9, 3.6544208920101585`*^9}, {3.654420950728935*^9, 3.6544210438795366`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calendar Operations", "Subsubsection", CellChangeTimes->{{3.65442008522915*^9, 3.654420092278901*^9}}], Cell[TextData[{ ButtonBox["CalendarConvert", BaseStyle->"Link", ButtonData->"paclet:ref/CalendarConvert"], " can be used to convert a DateObject expression from one calendar to \ another:" }], "Text", CellChangeTimes->{{3.6542693720248423`*^9, 3.654269392739842*^9}, { 3.6543784266260896`*^9, 3.65437842662809*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Column", "[", RowBox[{ RowBox[{ RowBox[{"CalendarConvert", "[", RowBox[{ TemplateBox[{RowBox[{"\"Sun 4 Aug 1985\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1985", ",", "8", ",", "4"}], "}"}], "]"}]}, "DateObject", Editable->False], ",", "#"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6538269572102776`*^9, 3.6538269905822773`*^9}, { 3.654184498782982*^9, 3.65418450318219*^9}, {3.654269280894842*^9, 3.6542692945908422`*^9}, {3.654269471379842*^9, 3.654269471797842*^9}}], Cell[BoxData[ TagBox[GridBox[{ { TemplateBox[{RowBox[{"\"Yom Rishon 17 Av 5745\"", StyleBox[ RowBox[{"(", "\[InvisibleSpace]", "\"Jewish\"", "\"calendar\"", "\[InvisibleSpace]", ")"}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"5745", ",", "5", ",", "17"}], "}"}], ",", RowBox[{"CalendarType", "\[Rule]", "\"Jewish\""}]}], "]"}]}, "DateObject", Editable->False]}, { TemplateBox[{RowBox[{"\"al-Ahad 17 Dhu al-Qi'dah 1405\"", StyleBox[ RowBox[{"(", "\[InvisibleSpace]", "\"Islamic\"", "\"calendar\"", "\[InvisibleSpace]", ")"}], FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1405", ",", "11", ",", "17"}], "}"}], ",", RowBox[{"CalendarType", "\[Rule]", "\"Islamic\""}]}], "]"}]}, "DateObject", Editable->False]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", CellChangeTimes->{3.6538269912402773`*^9, 3.6541845038061905`*^9, 3.654269295729842*^9, 3.654269472369842*^9}] }, Closed]], Cell[TextData[{ "Other functions, such as ", ButtonBox["DateRange", BaseStyle->"Link", ButtonData->"paclet:ref/DateRange"], ", include support for ", ButtonBox["CalendarType", BaseStyle->"Link", ButtonData->"paclet:ref/CalendarType"], ", which can be used with non-DateObject inputs as well:" }], "Text", CellChangeTimes->{{3.654269302970842*^9, 3.654269366740842*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateRange", "[", RowBox[{ RowBox[{"{", "2011", "}"}], ",", " ", RowBox[{"{", "2012", "}"}], ",", " ", "\"\\"", ",", " ", RowBox[{"CalendarType", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.654184530731838*^9, 3.654184532323041*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2011", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "1", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "1", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "1", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "2", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "2", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "2", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "3", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "3", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "3", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "4", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "4", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "5", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "5", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "5", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "6", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "6", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "6", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "6", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "7", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "7", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "7", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "7", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "8", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "8", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "8", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "9", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "9", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "9", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "9", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "10", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "10", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "10", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "10", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "11", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "11", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "11", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "11", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "12", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "12", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "12", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"2011", ",", "12", ",", "26"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.6541845347722454`*^9}] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Application Example: Mayan Calendars", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.51430857274755*^9, 3.514308578875259*^9}, { 3.6537361237082443`*^9, 3.653736131787244*^9}, {3.6538313737894726`*^9, 3.653831376924473*^9}}], Cell[CellGroupData[{ Cell["History", "Subsubsection", CellChangeTimes->{ 3.3824524252213373`*^9, {3.514308595622859*^9, 3.514308595844242*^9}, 3.514662627149618*^9, 3.514662723834064*^9, {3.653831382082473*^9, 3.653831406661473*^9}}], Cell[TextData[{ "The Mayans used 3 different, but related, calendars to handle dates, which \ are commonly referred to as the ", StyleBox["long count", FontSlant->"Italic"], ", ", StyleBox["haab", FontSlant->"Italic"], ", and ", StyleBox["tzolkin", FontSlant->"Italic"], " calendars. The exact relationship between these calendars and western \ calendar systems is still somewhat disputed, but most scholars use the \ Goodman-Martinez-Thompson correlation. We can use these calendars to \ illustrate the relationship between different calendar cycles and epochs for \ different calendar systems." }], "Text", CellChangeTimes->{{3.514308656577722*^9, 3.5143086569044237`*^9}, { 3.653831416580473*^9, 3.6538315559924726`*^9}, 3.653831611449473*^9, { 3.6538316454124727`*^9, 3.653831670740473*^9}, {3.654184568390304*^9, 3.654184662208869*^9}, {3.654363868975074*^9, 3.654363874918684*^9}, { 3.654421207536991*^9, 3.654421230344337*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Calendar units", "Subsubsection", CellChangeTimes->{{3.6538316821764727`*^9, 3.6538316828664727`*^9}, { 3.654421630669135*^9, 3.654421641822089*^9}}], Cell[TextData[{ "The Mayan \[OpenCurlyDoubleQuote]long count\[CloseCurlyDoubleQuote] \ calendar is composed of 5 different calendar units, the ", StyleBox["kin", FontSlant->"Italic"], ", ", StyleBox["uinal", FontSlant->"Italic"], ", ", StyleBox["tun", FontSlant->"Italic"], ", ", StyleBox["katun", FontSlant->"Italic"], " and ", StyleBox["baktun", FontSlant->"Italic"], " with the ", StyleBox["baktun", FontSlant->"Italic"], " being the highest-ordered unit amounting to 144,000 days. Their \ relationship is as follows:" }], "Text", CellChangeTimes->{{3.6538316849594727`*^9, 3.653831827806473*^9}, { 3.653832365021473*^9, 3.653832382349473*^9}, {3.6538326721564727`*^9, 3.6538326792494726`*^9}, {3.6542574032496634`*^9, 3.654257443861724*^9}}], Cell[BoxData[ RowBox[{"$mayanCalendarUnits", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"20", "\"\\""}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"18", "\"\\""}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"20", "\"\\""}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{"20", "\"\\""}]}]}], "\[IndentingNewLine]", "}"}]}]], "Input"], Cell["\<\ Note: the Mayans also had larger units for longer time periods, but they are \ generally not considered part of the standard calendar system.\ \>", "Text", CellChangeTimes->{{3.6538318917184725`*^9, 3.653831915260473*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Epoch", "Subsubsection", CellChangeTimes->{{3.6538319291924725`*^9, 3.653831929884473*^9}}], Cell[TextData[{ "The epoch date used by the Goodman-Martinez-Thompson correlation is August \ 11th -3114 for the Gregorian calendar(September 6th, 3114 BCE Julian), which \ we can represent as a number using ", ButtonBox["JulianDate", BaseStyle->"Link", ButtonData->"paclet:ref/JulianDate"], ". Here I will use \[OpenCurlyDoubleQuote]Modified\[CloseCurlyDoubleQuote] \ JulianDate to simplify the conversion process by factoring out the offset for \ \[OpenCurlyDoubleQuote]Full\[CloseCurlyDoubleQuote] JulianDate values which \ are based on time relative to noon." }], "Text", CellChangeTimes->{{3.653831947769473*^9, 3.653832035410473*^9}, { 3.653832184686473*^9, 3.653832194259473*^9}, {3.653832251462473*^9, 3.653832292385473*^9}, {3.653832498160473*^9, 3.6538324994124727`*^9}, { 3.6538338345058975`*^9, 3.6538338920348997`*^9}, {3.653833996955662*^9, 3.6538340021497*^9}, {3.654257343421681*^9, 3.654257343422681*^9}, { 3.654257487818119*^9, 3.6542574891112485`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"epoch", "=", RowBox[{"JulianDate", "[", RowBox[{"\"\\"", ",", RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3114"}], ",", "8", ",", "11"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6538322733334727`*^9, 3.653832306665473*^9}, { 3.6538327350604725`*^9, 3.6538327694064727`*^9}, {3.653833602776473*^9, 3.653833604654473*^9}, {3.6538336367508273`*^9, 3.653833637400087*^9}}], Cell[BoxData[ RowBox[{"-", "1.815718`*^6"}]], "Output", CellChangeTimes->{{3.653832753710473*^9, 3.653832771462473*^9}, 3.6538336051554728`*^9, 3.653833637990323*^9, 3.65400939491179*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Conversion from ", StyleBox["long count", FontSlant->"Italic"], " to Julian date" }], "Subsubsection", CellChangeTimes->{{3.653832780522473*^9, 3.653832809967473*^9}, 3.653832854391473*^9, {3.6544212377543845`*^9, 3.6544212586585183`*^9}}], Cell["\<\ Since the calendar units have a fixed relationship with one another, \ converting from a list of long count calendar units to a Julian date is \ simply a mater of arithmetic:\ \>", "Text", CellChangeTimes->{{3.653832814488473*^9, 3.6538328721954727`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"JulianFromMayanLongCount", "[", RowBox[{"{", RowBox[{ "baktun_", ",", "katun_", ",", "tun_", ",", "uinal_", ",", "kin_"}], "}"}], "]"}], " ", ":=", " ", RowBox[{"epoch", "+", RowBox[{"144000", "*", "baktun"}], "+", RowBox[{"7200", "*", "katun"}], "+", RowBox[{"360", "*", "tun"}], "+", RowBox[{"20", "*", "uinal"}], "+", "kin"}]}]], "Input", CellChangeTimes->{{3.653832879472473*^9, 3.6538329763224726`*^9}, 3.6538331679684725`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"example", "=", RowBox[{"JulianFromMayanLongCount", "[", RowBox[{"{", RowBox[{"7", ",", "17", ",", "18", ",", "19", ",", "2"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.6538346474836063`*^9, 3.6538346985507126`*^9}}], Cell[BoxData[ RowBox[{"-", "678456.`"}]], "Output", CellChangeTimes->{{3.653834671391997*^9, 3.6538346989107485`*^9}, 3.65400939779179*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Conversion to Gregorian calendar date", "Subsubsection", CellChangeTimes->{{3.6538333260204725`*^9, 3.6538333343744726`*^9}}], Cell[TextData[{ "Since we already have a conversion to a Julian date, it\[CloseCurlyQuote]s \ trivial to get a Gregorian calendar date using ", ButtonBox["FromJulianDate", BaseStyle->"Link", ButtonData->"paclet:ref/FromJulianDate"], ":" }], "Text", CellChangeTimes->{{3.653833336896473*^9, 3.6538334254454727`*^9}, { 3.6542573299353323`*^9, 3.6542573299363327`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FromJulianDate", "[", RowBox[{"\"\\"", ",", "example", ",", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.653833072989473*^9, 3.6538330840574727`*^9}, { 3.6538336126424727`*^9, 3.6538336138004727`*^9}, {3.6538338296969748`*^9, 3.6538338302461944`*^9}, 3.653834643295188*^9, {3.6538346751863766`*^9, 3.653834676000458*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Mon 30 Apr 1 00:00:00\"", StyleBox["\"GMT\"", FontColor -> GrayLevel[0.5]]}], RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4", ",", "30"}], "}"}], ",", RowBox[{"TimeObject", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0.`"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}], ",", RowBox[{"TimeZone", "\[Rule]", "0.`"}]}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{{3.653833075450473*^9, 3.653833088463473*^9}, 3.6538331734404726`*^9, {3.653833614396473*^9, 3.653833643737621*^9}, 3.6538336783544617`*^9, {3.6538346762954874`*^9, 3.653834700787936*^9}, 3.65400940205779*^9}] }, Open ]], Cell["\<\ Since for these sorts of calendar conversions we typically aren\ \[CloseCurlyQuote]t interested in the handling of units smaller than hours, \ we can extract just the Date part using DateValue:\ \>", "Text", CellChangeTimes->{{3.6538335006434727`*^9, 3.6538335279784727`*^9}, { 3.653834720803938*^9, 3.6538347342392807`*^9}, {3.653834855227379*^9, 3.6538348605469103`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"GregorianFromMayanLongCount", "[", "date_", "]"}], ":=", RowBox[{"DateValue", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"FromJulianDate", "[", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"JulianFromMayanLongCount", "[", "date", "]"}], ",", "\[IndentingNewLine]", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\[IndentingNewLine]", "DateObject"}], "]"}]}]], "Input", CellChangeTimes->{{3.6538347586657233`*^9, 3.653834871182974*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GregorianFromMayanLongCount", "[", RowBox[{"{", RowBox[{"7", ",", "17", ",", "18", ",", "19", ",", "2"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.6538348206839247`*^9, 3.6538348411319695`*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Mon 30 Apr 1\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "30"}], "}"}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{{3.653834826247481*^9, 3.653834841600016*^9}, 3.65400940489079*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Conversion from JulianDate", "Subsubsection", CellChangeTimes->{{3.6538348793007855`*^9, 3.653834886897545*^9}, { 3.65383498715357*^9, 3.653834989899844*^9}}], Cell["\<\ Conversion from Mayan long count date lists can be done using basic \ arithmetic operations as well by first subtracting the epoch date, and then \ taking the quotient and remainder based on the number of days in each \ calendar unit:\ \>", "Text", CellChangeTimes->{{3.653834906728528*^9, 3.6538349099718523`*^9}, { 3.65400987290079*^9, 3.65400993077579*^9}, {3.6540101098207903`*^9, 3.65401012121379*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"JulianToMayanLongCount", "[", "date_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "baktun", ",", "katun", ",", "tun", ",", "uinal", ",", "kin", ",", "longCount", ",", "dayOfBaktun", ",", "dayOfKatun", ",", "dayOfTun"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"longCount", "=", RowBox[{"date", "-", "epoch"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"baktun", ",", "dayOfBaktun"}], "}"}], "=", RowBox[{"QuotientRemainder", "[", RowBox[{"longCount", ",", "144000"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"katun", " ", ",", " ", "dayOfKatun"}], "}"}], "=", RowBox[{"QuotientRemainder", "[", RowBox[{"dayOfBaktun", ",", "7200"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"tun", ",", "dayOfTun"}], "}"}], "=", RowBox[{"QuotientRemainder", "[", RowBox[{"dayOfKatun", ",", "360"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uinal", ",", " ", "kin"}], "}"}], "=", RowBox[{"QuotientRemainder", "[", RowBox[{"dayOfTun", ",", "20"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kin", "=", RowBox[{"Floor", "[", "kin", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"baktun", ",", "katun", ",", "tun", ",", "uinal", ",", "kin"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.644847036718297*^9, 3.644847251720606*^9}, { 3.6538349780296574`*^9, 3.6538350136472187`*^9}, {3.65400973487079*^9, 3.65400974739679*^9}, {3.65401008837779*^9, 3.65401009299679*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"JulianToMayanLongCount", "[", "epoch", "]"}]], "Input", CellChangeTimes->{{3.653835020776932*^9, 3.6538350870425577`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.6538350661354675`*^9, 3.6538350877296267`*^9}, 3.65400947139879*^9, 3.6540097485597897`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"date", "=", RowBox[{"JulianDate", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"DateObject", "[", RowBox[{ RowBox[{"{", RowBox[{"2015", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"TimeZone", "\[Rule]", "0"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.65400963179379*^9, 3.65400963353979*^9}, { 3.6540097143097897`*^9, 3.65400971462379*^9}, {3.65400975890279*^9, 3.65400976061279*^9}}], Cell[BoxData["57113.`"], "Output", CellChangeTimes->{ 3.6540096346187897`*^9, 3.65400971513279*^9, {3.6540097492697897`*^9, 3.6540097609137897`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"JulianToMayanLongCount", "[", "date", "]"}]], "Input", CellChangeTimes->{{3.653835020776932*^9, 3.6538351034702005`*^9}, { 3.6538353441934576`*^9, 3.6538353577264576`*^9}, {3.6540094793797903`*^9, 3.6540094814137897`*^9}, {3.65400963666579*^9, 3.65400963701079*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"13", ",", "0", ",", "2", ",", "5", ",", "11"}], "}"}]], "Output", CellChangeTimes->{{3.653835353227457*^9, 3.6538353579844575`*^9}, { 3.65400947280579*^9, 3.65400948186679*^9}, 3.65400963732979*^9, { 3.65400975638479*^9, 3.65400976397379*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Conversion from any date format", "Subsubsection", CellChangeTimes->{{3.65400959374679*^9, 3.65400960178479*^9}}], Cell["\<\ Having set up our utility function to convert from a Julian date to the Mayan \ long count date, we can add a wrapper function to handle conversion from any \ date format to Mayan long count:\ \>", "Text", CellChangeTimes->{{3.65400960410879*^9, 3.65400961975879*^9}, { 3.65400966931979*^9, 3.6540096952217903`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"DateToMayanLongCount", "[", "date_", "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$TimeZone", " ", "=", " ", "0"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"JulianToMayanLongCount", "[", RowBox[{"JulianDate", "[", RowBox[{"\"\\"", ",", " ", "date"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6540096984197903`*^9, 3.65400971176579*^9}, { 3.6540097701957903`*^9, 3.65400979017679*^9}}], Cell["\<\ This function will now accept any input date and will return the \ corresponding Mayan long count calendar date list:\ \>", "Text", CellChangeTimes->{{3.6540101476707897`*^9, 3.6540101670117903`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateToMayanLongCount", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.65400979205879*^9, 3.65400980008479*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"13", ",", "0", ",", "2", ",", "7", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.6540098005387897`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateToMayanLongCount", "[", RowBox[{"AbsoluteTime", "[", "]"}], "]"}]], "Input", CellChangeTimes->{{3.65400979205879*^9, 3.65400980584379*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"13", ",", "0", ",", "2", ",", "15", ",", "9"}], "}"}]], "Output", CellChangeTimes->{3.65400980628979*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateToMayanLongCount", "[", "Today", "]"}]], "Input", CellChangeTimes->{{3.65400979205879*^9, 3.65400981279379*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"13", ",", "0", ",", "2", ",", "15", ",", "9"}], "}"}]], "Output", CellChangeTimes->{{3.6540098103067904`*^9, 3.65400981317279*^9}}] }, Open ]], Cell["\<\ And we can sanity-check this and the previous function to make sure that \ dates successfully round-trip:\ \>", "Text", CellChangeTimes->{{3.65401017030579*^9, 3.65401017561579*^9}, { 3.65401021548879*^9, 3.6540102289317904`*^9}, 3.6543638819854965`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DateToMayanLongCount", "[", RowBox[{"{", RowBox[{"1900", ",", "1", ",", "1"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.65400983167179*^9, 3.65400984472679*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "14", ",", "5", ",", "6", ",", "18"}], "}"}]], "Output", CellChangeTimes->{3.6540098451777897`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GregorianFromMayanLongCount", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.65400986162579*^9, 3.65400986278579*^9}}], Cell[BoxData[ TemplateBox[{RowBox[{"\"Mon 1 Jan 1900\""}],RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1900", ",", "1", ",", "1"}], "}"}], "]"}]}, "DateObject", Editable->False]], "Output", CellChangeTimes->{3.6540098631307898`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6540098458867903`*^9, 3.65400984820579*^9}}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Future Features", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308863196991*^9, 3.5143088633311243`*^9}, 3.6537361055132437`*^9}], Cell[CellGroupData[{ Cell["Time Systems", "Subsubsection", CellChangeTimes->{{3.6537579639241138`*^9, 3.6537579652551136`*^9}}], Cell["\<\ One of the main components for dates that is currently unavailable in the \ Wolfram Language date framework is time systems, and most notably the lack of \ leap-second handling. We are currently exploring different options for \ accommodating different time systems, and are interested in any feedback we \ can get in terms of what features would be most useful to our customers(if \ there are any specific time systems you are interested in, please let me \ know).\ \>", "Text", CellChangeTimes->{{3.514308661619236*^9, 3.514308664754455*^9}, { 3.6542626900721865`*^9, 3.654262825124691*^9}, {3.6543638839666996`*^9, 3.6543639033575335`*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Generic/Recurring Dates", "Subsubsection", CellChangeTimes->{{3.653757976027114*^9, 3.653757983976114*^9}, { 3.6542655494588933`*^9, 3.6542655508728933`*^9}}], Cell["\<\ Right now there is no native representation for generic, or recurring, dates \ in the Wolfram Language, beyond the HolidayCalendar framework(which uses a \ list of pure functions). We are also exploring different representation \ options for this in the language, with the ability to specify both basic \ forms like \[OpenCurlyDoubleQuote]January 4th\[CloseCurlyDoubleQuote] or any \ year, and also more complex examples like \[OpenCurlyDoubleQuote]the 3rd \ Tuesday in February\[CloseCurlyDoubleQuote] or \[OpenCurlyDoubleQuote]the 3rd \ day of the month that\[CloseCurlyQuote]s also a Wednesday\ \[CloseCurlyDoubleQuote]. Feedback on what sorts of applications you would \ like to use these expressions in will be helpful in determining the best \ representation for these.\ \>", "Text", CellChangeTimes->{ 3.514308670835485*^9, {3.6542655791338935`*^9, 3.654265794709893*^9}, 3.654363909098344*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Time Spans", "Subsubsection", CellChangeTimes->{{3.653757987893114*^9, 3.6537579889701138`*^9}}], Cell["\<\ The Wolfram Language currently uses a few different forms to represent spans \ of time, such as list-notation with {startdate, enddate}, an explicit list of \ dates such as those generated by DateRange, and in some places \ Interval[{startdate, enddate}]. We are working on generalizing all of these \ cases into a single framework that will allow us to appropriately handle all \ the various application areas for these time periods, and also would \ appreciate any customer feedback we can get on application areas of interest.\ \>", "Text", CellChangeTimes->{{3.6538254816230783`*^9, 3.6538254821611323`*^9}, { 3.6542657993128934`*^9, 3.6542659276538935`*^9}}] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Additional Resources", "Section", CellChangeTimes->{ 3.483202458955147*^9, {3.514308863196991*^9, 3.5143088633311243`*^9}, 3.653736090478244*^9}], Cell["\<\ The following are good resources for additional information regarding the \ topics discussed in this presentation.\ \>", "Text", CellChangeTimes->{{3.514308661619236*^9, 3.514308664754455*^9}, { 3.6537377326651025`*^9, 3.6537377663864746`*^9}}], Cell[CellGroupData[{ Cell["Upcoming Conference Talks", "Subsubsection", CellChangeTimes->{{3.6543637960861454`*^9, 3.654363797895748*^9}, { 3.654378602958175*^9, 3.6543786047642784`*^9}}], Cell[CellGroupData[{ Cell["\<\ TimeSeries Processing - Gosia Konwerska, 2:00 PM - 2:30 PM, October 22 2015 \ (immediately following this talk in Spartan/Golden Gopher)\ \>", "Item", CellChangeTimes->{{3.6543638070685644`*^9, 3.654363823339393*^9}, { 3.65436921693808*^9, 3.654369265641365*^9}, 3.654378611046638*^9}], Cell["\<\ Time and Date Visualization - MinHsuan Peng, 4:30 PM - 5:00 PM, October 22 \ 2015 (in Fighting Illini)\ \>", "Item", CellChangeTimes->{{3.6543638070685644`*^9, 3.6543638277386007`*^9}, { 3.654369279338189*^9, 3.6543693255766706`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Dates", "Subsubsection", CellChangeTimes->{{3.6537377135681934`*^9, 3.6537377176616025`*^9}}], Cell[TextData[{ ButtonBox["ISO 8601", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/ISO_8601"], None}, ButtonNote->"https://en.wikipedia.org/wiki/ISO_8601"], " - International Organization of Standards standard regarding the \ representation of calendar dates." }], "Item", CellChangeTimes->{{3.65373892833686*^9, 3.6537389420082273`*^9}, { 3.654421305942422*^9, 3.654421371411537*^9}, {3.654421403762772*^9, 3.654421421609556*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Time Zones", "Subsubsection", CellChangeTimes->{{3.6537377196638026`*^9, 3.6537377230601425`*^9}}], Cell[TextData[{ ButtonBox["Internet Assigned Number Authority Time Zone Database ", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.iana.org/time-zones"], None}, ButtonNote->"https://www.iana.org/time-zones"], "- curated database of time zone information world wide, including regular \ updates regarding changing daylight saving time changes." }], "Item", CellChangeTimes->{{3.653738983482374*^9, 3.653738985829609*^9}, { 3.653739016609687*^9, 3.653739016610687*^9}, {3.654421433713767*^9, 3.654421512901575*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Calendars", "Subsubsection", CellChangeTimes->{{3.6537377101348495`*^9, 3.6537377111079473`*^9}}], Cell[TextData[{ ButtonBox["Dershowitz, Nachum and Reingold, Edward M. Calendrical \ Calculations. 3rd ed. New York. Cambridge, 2008.", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.amazon.com/gp/product/0521702380?keywords=calendrical \ calculations&qid=1444750158"], None}, ButtonNote-> "http://www.amazon.com/gp/product/0521702380?keywords=calendrical \ calculations&qid=1444750158"], " - detailed overview of different calendar systems, including reference \ LISP implementations." }], "Item", CellChangeTimes->{{3.6537362008212442`*^9, 3.653736223093244*^9}, { 3.653736304184244*^9, 3.653736380418244*^9}, {3.653736412917244*^9, 3.653736431449244*^9}, {3.6537389791399403`*^9, 3.65373897914194*^9}, { 3.654421525631257*^9, 3.654421566831121*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Wolfram Language Date Framework", "Subsubsection", CellChangeTimes->{{3.6542628416823463`*^9, 3.6542628486620445`*^9}}], Cell[TextData[{ ButtonBox["nickl@wolfram.com", BaseStyle->"Hyperlink", ButtonData->{ URL["mailto:nickl@wolfram.com"], None}, ButtonNote->"mailto:nickl@wolfram.com"], " - Please feel free to contact me if you have any questions, comments or \ concerns about the date framework as discussed here today, or have any \ suggestions for future features." }], "Item", CellChangeTimes->{{3.6542628530784855`*^9, 3.654262881302308*^9}, { 3.6542629309262695`*^9, 3.6542629309282703`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"SlideShow", WindowSize->{1600, 738}, WindowMargins->{{6, Automatic}, {76, Automatic}}, TaggingRules->{"SlideShow" -> True}, FrontEndVersion->"10.2 for Microsoft Windows (32-bit) (July 29, 2015)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"]], Cell[ StyleData[All, "Presentation"], MenuSortingValue -> None], Cell[ StyleData[All, "Condensed"], MenuSortingValue -> None], Cell[ StyleData[All, "SlideShow"]]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options Settings", "Section"], Cell[ StyleData["Notebook"], CellBracketOptions -> { "Color" -> RGBColor[0.739193, 0.750317, 0.747173]}]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Title and Section Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], ShowCellBracket -> Automatic, ShowGroupOpener -> False, CellMargins -> {{100, 100}, {14, 50}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, CellFrameMargins -> {{20, 20}, {20, 20}}, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextAlignment -> Center, LineSpacing -> {1, 0}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Arial", FontSize -> 45, FontWeight -> "Bold", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Masked" -> False, "Outline" -> False, "Shadow" -> False, "StrikeThrough" -> False, "Underline" -> False}, FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765], Background -> None], Cell[ StyleData["Title", "Presentation", StyleDefinitions -> None], CellMargins -> {{55, 3}, {14, 125}}, LineSpacing -> {1, 5}, FontSize -> 48], Cell[ StyleData[ "Title", "SlideShow", StyleDefinitions -> StyleData["Title", "Presentation"]], CellMargins -> {{100, 100}, {52, 105}}, FontColor -> GrayLevel[1]], Cell[ StyleData["Title", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 20}}, FontSize -> 24]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], ShowCellBracket -> Automatic, CellMargins -> {{0, 0}, {0, 5}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextAlignment -> Center, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Arial", FontSize -> 27, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4], Background -> None], Cell[ StyleData["Subtitle", "Presentation", StyleDefinitions -> None], CellMargins -> {{58, 0}, {0, 5}}, FontSize -> 36], Cell[ StyleData[ "Subtitle", "SlideShow", StyleDefinitions -> StyleData["Subtitle"]], CellMargins -> {{0, 0}, {0, 5}}, FontSize -> 27, FontColor -> RGBColor[ 0.9019607843137255, 0.9019607843137255, 0.9019607843137255]], Cell[ StyleData["Subtitle", "Printout", StyleDefinitions -> None], CellMargins -> {{2, 0}, {0, 5}}, FontSize -> 18, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle", StyleDefinitions -> StyleData["Subtitle"]], CellMargins -> {{0, 0}, {30, 5}}, FontSize -> 24, FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4]], Cell[ StyleData["Subsubtitle", "Presentation"], FontSize -> 24], Cell[ StyleData[ "Subsubtitle", "SlideShow", StyleDefinitions -> StyleData["Subsubtitle"]], CellMargins -> {{0, 0}, {10, 5}}, FontColor -> RGBColor[ 0.9019607843137255, 0.9019607843137255, 0.9019607843137255]], Cell[ StyleData["Subsubtitle", "Printout"], FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0.2, 0}}, ShowGroupOpener -> False, CellMargins -> {{60, 50}, {7, 25}}, FontSize -> 36, FontWeight -> "Plain", FontColor -> RGBColor[ 0.8156862745098039, 0.07058823529411765, 0.07058823529411765]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0.2, 0}}, CellMargins -> {{58, 50}, {7, 35}}], Cell[ StyleData[ "Section", "SlideShow", StyleDefinitions -> StyleData["Section", "Presentation"]], CellMargins -> {{58, 50}, {10, 35}}], Cell[ StyleData["Section", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {4, 22}}, FontSize -> 20]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> None, ShowGroupOpener -> False, CellMargins -> {{60, Inherited}, {0, 15}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4]], Cell[ StyleData["Subsection", "Presentation"], ShowGroupOpener -> True, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {0, 20}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "SlideShow"], ShowGroupOpener -> True, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontFamily -> "Helvetica"], Cell[ StyleData["Subsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {0, 17}}, FontSize -> 16]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> None, ShowGroupOpener -> False, CellMargins -> {{60, Inherited}, {0, 15}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.4, 0.4]], Cell[ StyleData["Subsubsection", "Presentation"], ShowGroupOpener -> True, WholeCellGroupOpener -> True, CellMargins -> {{60, 50}, {0, 20}}, LineSpacing -> {1, 0}], Cell[ StyleData[ "Subsubsection", "SlideShow", StyleDefinitions -> StyleData["Subsubsection", "Presentation"]]], Cell[ StyleData["Subsubsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {0, 22}}, FontSize -> 14]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell["Standard", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{60, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Helvetica", FontSize -> 12], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{60, 50}, {10, 10}}, FontSize -> 17], Cell[ StyleData[ "Text", "SlideShow", StyleDefinitions -> StyleData["Text", "Presentation"]]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["Display", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Item", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], ShowGroupOpener -> False, CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "Item"], Cell[ StyleData["Item", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "Item", "SlideShow", StyleDefinitions -> StyleData["Item", "Presentation"]]], Cell[ StyleData["Item", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subitem", StyleDefinitions -> StyleData["Item"]], CellMargins -> {{108, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "Subitem"], Cell[ StyleData["Subitem", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "Subitem", "SlideShow", StyleDefinitions -> StyleData["Subitem", "Presentation"]]], Cell[ StyleData["Subitem", "Printout"], CellMargins -> {{67, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemNumbered", StyleDefinitions -> StyleData["Text"]], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], "."}]], ShowGroupOpener -> False, CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, CounterIncrements -> "ItemNumbered"], Cell[ StyleData["ItemNumbered", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemNumbered", "SlideShow", StyleDefinitions -> StyleData["ItemNumbered", "Presentation"]]], Cell[ StyleData["ItemNumbered", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemNumbered", StyleDefinitions -> StyleData["ItemNumbered"]], CellDingbat -> Cell[ TextData[{ CounterBox["SubitemNumbered", CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )], "."}]], CellMargins -> {{108, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15150}, CounterIncrements -> "SubitemNumbered"], Cell[ StyleData["SubitemNumbered", "Presentation"], CellMargins -> {{146, 10}, {7, 7}}], Cell[ StyleData[ "SubitemNumbered", "SlideShow", StyleDefinitions -> StyleData["SubitemNumbered", "Presentation"]]], Cell[ StyleData["SubitemNumbered", "Printout"], CellMargins -> {{67, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "ItemParagraph", StyleDefinitions -> StyleData["Item"]], CellDingbat -> None, CellMargins -> {{84, 10}, {7, 7}}, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, CounterIncrements -> "ItemParagraph"], Cell[ StyleData["ItemParagraph", "Presentation"], CellMargins -> {{124, 10}, {7, 7}}], Cell[ StyleData[ "ItemParagraph", "SlideShow", StyleDefinitions -> StyleData["ItemParagraph", "Presentation"]]], Cell[ StyleData["ItemParagraph", "Printout"], CellMargins -> {{39, 2}, {0, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]], CellDingbat -> None, ReturnCreatesNewCell -> True, CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, CounterIncrements -> "SubitemParagraph"], Cell[ StyleData["SubitemParagraph", "Presentation"]], Cell[ StyleData[ "SubitemParagraph", "SlideShow", StyleDefinitions -> StyleData["SubitemParagraph", "Presentation"]]], Cell[ StyleData["SubitemParagraph", "Printout"]]}, Closed]]}, Open]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"]], Cell[ StyleData["DisplayFormula", "Presentation"], CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormula", "SlideShow", StyleDefinitions -> StyleData["DisplayFormula", "Presentation"]]], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "DisplayFormulaNumbered", StyleDefinitions -> StyleData["DisplayFormula"]], CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["DisplayFormulaNumbered"], ")"}]]}, {None, None}}, CounterIncrements -> "DisplayFormulaNumbered"], Cell[ StyleData["DisplayFormulaNumbered", "Presentation"], CellMargins -> {{60, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17], Cell[ StyleData[ "DisplayFormulaNumbered", "SlideShow", StyleDefinitions -> StyleData["DisplayFormulaNumbered", "Presentation"]]], Cell[ StyleData["DisplayFormulaNumbered", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Inline Formatting", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"]], Cell[ StyleData["InlineFormula", "Presentation"], FontSize -> 17], Cell[ StyleData[ "InlineFormula", "SlideShow", StyleDefinitions -> StyleData["InlineFormula", "Presentation"]]], Cell[ StyleData["InlineFormula", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input and Output Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], ShowCellBracket -> True, ShowGroupOpener -> False, CellMargins -> {{103, 10}, {5, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Input", "SlideShow", StyleDefinitions -> StyleData["Input", "Presentation"]]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], ShowCellBracket -> True, ShowGroupOpener -> False, CellMargins -> {{103, 10}, {7, 7}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", MenuSortingValue -> 1550, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{110, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "InputOnly", "SlideShow", StyleDefinitions -> StyleData["InputOnly", "Presentation"]]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], ShowCellBracket -> True, CellMargins -> {{103, 10}, {7, 5}}, CellBracketOptions -> { "Color" -> RGBColor[0.734936, 0.713848, 0.694041]}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{110, 50}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Output", "SlideShow", StyleDefinitions -> StyleData["Output", "Presentation"]]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Code"], CellMargins -> {{103, 10}, {5, 10}}], Cell[ StyleData["Code", "Presentation"], CellMargins -> {{110, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Code", "SlideShow", StyleDefinitions -> StyleData["Code", "Presentation"]]], Cell[ StyleData["Code", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{103, Inherited}, {Inherited, Inherited}}, FontSize -> 14], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{70, Inherited}, {Inherited 1.5, Inherited 1.5}}, FontSize -> 17, Magnification -> Inherited 1.5], Cell[ StyleData[ "Print", "SlideShow", StyleDefinitions -> StyleData["Print", "Presentation"]]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaShortInput", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{98, 10}, {5, 7}}, EvaluationMode -> "WolframAlphaShort", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "Equal"]]], CellBaseline -> Baseline], None}, {None, None}}, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaShortInput", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaShortInput", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaShortInput", "Presentation"]]], Cell[ StyleData["WolframAlphaShortInput", "Printout"], CellFrameLabelMargins -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData[ "WolframAlphaLong", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{100, 10}, {5, 7}}, StyleKeyMapping -> { "=" -> "Input", "Backspace" -> "WolframAlphaShort"}, EvaluationMode -> "WolframAlphaLong", CellEventActions -> {"ReturnKeyDown" :> FrontEndTokenExecute[ EvaluationNotebook[], "HandleShiftReturn"]}, CellFrameLabels -> {{ Cell[ BoxData[ DynamicBox[ FEPrivate`FrontEndResource["WABitmaps", "SpikeyEqual"]]]], None}, {None, None}}, DefaultFormatType -> TextForm, FormatType -> TextForm, FontFamily -> "Helvetica"], Cell[ StyleData["WolframAlphaLong", "Presentation"], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData[ "WolframAlphaLong", "SlideShow", StyleDefinitions -> StyleData["WolframAlphaLong", "Presentation"]], CellMargins -> {{107, 50}, {8, 10}}], Cell[ StyleData["WolframAlphaLong", "Printout"], CellFrameLabelMargins -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{60, 4}, {6, 8}}], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{60, 50}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 17], Cell[ StyleData[ "Program", "SlideShow", StyleDefinitions -> StyleData["Program", "Presentation"]]], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData[ "CellLabel", "SlideShow", StyleDefinitions -> StyleData["CellLabel", "Presentation"]]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> GrayLevel[0.]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ManipulateLabel"]], Cell[ StyleData["ManipulateLabel", "Presentation"], FontSize -> 15], Cell[ StyleData[ "ManipulateLabel", "SlideShow", StyleDefinitions -> StyleData["ManipulateLabel", "Presentation"]]], Cell[ StyleData["ManipulateLabel", "Printout"], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GraphicsLabel"]], Cell[ StyleData["GraphicsLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "GraphicsLabel", "SlideShow", StyleDefinitions -> StyleData["GraphicsLabel", "Presentation"]]], Cell[ StyleData["GraphicsLabel", "Printout"], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics3DLabel"]], Cell[ StyleData["Graphics3DLabel", "Presentation"], FontSize -> 14], Cell[ StyleData[ "Graphics3DLabel", "SlideShow", StyleDefinitions -> StyleData["Graphics3DLabel", "Presentation"]]], Cell[ StyleData["Graphics3DLabel", "Printout"], FontSize -> 8]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Styles for SlideShow", "Section", CellChangeTimes -> {{3.514665148412793*^9, 3.5146651505550737`*^9}}], Cell[ StyleData["slideshowheader"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, -2}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1], CellPadding -> 0, CellFramePadding -> 0], Cell[ CellGroupData[{ Cell[ StyleData["hidefromslideshowgraphic"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, CellFrameMargins -> 0, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> None, CellPadding -> 0], Cell[ StyleData["hidefromslideshowgraphic", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> False], Cell[ StyleData["hidefromslideshowgraphic", "Printout"], Magnification -> 0.6]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["slideshowheader2"], ShowCellBracket -> False, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakBelow -> False, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1]], Cell[ StyleData["ConferenceGraphicCell", "SlideShow"], ShowCellBracket -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellHorizontalScrolling -> True], Cell[ StyleData["slideshowheader", "Printout"], FontSize -> 8, Magnification -> 0.75]}, Closed]], Cell[ StyleData[ "ConferenceGraphicCellSlideShowOnly", StyleDefinitions -> StyleData["ConferenceCellGraphic"]], ShowCellBracket -> False, CellMargins -> 0, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> True, Selectable -> False, CellFrame -> 0, ShowGroupOpener -> False, CellMargins -> {{0, 0}, {3, 3}}, CellOpen -> True, CellFrameMargins -> 0, CellFrameColor -> None, Background -> None], Cell[ StyleData["SlideShowNavigationBar", "Printout"], PageBreakAbove -> Automatic]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Styles for Slide Show Environment Documents", "Section", CellChangeTimes -> {{3.559592561220532*^9, 3.559592575768806*^9}, 3.559652073182283*^9}], Cell[ StyleData["FirstSlide"], PrivateCellOptions -> { "PagewiseNotebookBaseStyle" -> { FrontEnd`BackgroundAppearance -> FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], { FrontEnd`UnknownOptions, presentertemplt`firstslideimage}]}}]}, Closed]]}, Visible -> False, FrontEndVersion -> "10.2 for Microsoft Windows (32-bit) (July 29, 2015)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], presentertemplt`firstslideimage -> Image[CompressedData[" 1:eJzt3UmudOtVreFDUqAbyCXoBTTBFCgbCapIgIToBQ0BTJ7neQ49MueXZVk2 sSJWMpMx5nwLk3svuoUdK/aJeP4x5vftn/yFX/7mL/3oV1999as/8fX/+Oa3 fv1nfuVXvvUbP/fjX/8/fvY3fu0Xf+HHvv6//OaPfPXVz3/9/+fL//I73/nO V1/+D4ZhGIZhGObZfM9Vv/WNn2YC5re/8VOH8zsf5tsf5nffzO+dmN//+uf7 NH/wYf7wxPzRyfnjC/MnF+ZPL86f3Zw/D5q/CJ6/ZFon+v2M+j278zt+9b+l L3Plv9Wz//2f/Uw58/n0ZT59zp35rDzzmXv0ef3ps/7bJ74vjr5nur8Dme8O toodV1d9+qzpctWVz+kqV+EppsNZTsbK8FW0sfAVkznYKm4UXVWVVZ11lWtW peapbjMczV8JTPczqLDWZmPhK3zlMNgqZqa66oytOrOqLabqNoGKmyYZTMVZ SsaKzrAifHXGWE98dcZY+MpvsNXzwVX6ruro/lw91W2e7nF0lkOO1ZVhOfjq aX71bs+3+/tx62CrZ4OrZpmqO6fCUJqzyVkqxqruCNV9dTe7wlc9g63uz1RX qWZVyqZS91S3TaaOsrOqjTUhw4rw1Rlj3e0H8ZXPYKt7g6twlbKpus2xcVSd NcFYm3zF7tWMwVbX5+4dVhtchal6PNXtir8WnO5nMs1ZWcZy7QjxFfNusNW1 cXSV627VFFNNsFS3kyb4a6OxpmdY+Io5Gmx1bTK6wC2u6s6q3E2FoeZ4C2Np +CriDCG+Yl4Ntjo/uErHVcqminQVjtIZB2dVG8shw8JX+KpjsNW5wVW5HaBa VjXNU90umTqq1ppgLHyFr5wHW32e6jOBuApTYSm/mWIsfDXPV9iqfrDV+5nm qjOfH84doJupsNTccXeWm7GqdrAi7mjAV/MHWx0PrspzlUpW1WGqiZ76m69/ P9Wm+5lkWWuasRwzLHzFfBpsdTyVdy3gKv2sSsFU+GmGvbYYSznDmno/A7tX GoOtXg+u6usA1bKqbZ7qNk/3uDlrkrGm+eqTse7aCl/pD7b6/4OrrtnKJaty yakwlN44OGubsSI6wjN3zHT3g/jKc7DVD07lXQu4StNVU03V7ZNJo+wsfKXn K3av9g22+v7gqh5XbTYVlpozGMu3I8RX+Cp6sNX3J7oLvHs3KK567qqq/k8p o+q2BaPprCpjOWRY3ftX+GrPYKvvjsqOVbarzvz7TMlVylmVgqm6DfHD87ci 0/0csp01yVj4irODEwdb6bjqk626XVW9WzXFVFM81e2lKfbqdpair84aC1/V +qr7u9l5ttvKZcdqiqu6O0BXU2Gome5yzLGmZFj4iuwqc7BVzY5V5+66k6sU s6qu7g9HaYyTsxSNha9q72Zg90pjNttqgqsU9qvUXeVkKizlMRhLI8PCV/hK dbbaaoOrKs4DdnSA2VnVJE91G2TLqDpLzVj4SsNX7F7lz0ZbqexYdZ8JnOwq h50qLDVzJhhLKcPCV+xeOQ62wlVXXTWxA3Q2Vbclvjd/JzTdzyLTWlOMha/w 1eTZZiuFLhBX7TPVBE91e2mCvbYYS7kjxFfPfNX9He4y2EprxwpXabpKwVQ4 apa53Iw1KcNS9pX67lX3d7jLbLeVUheIq667StVUUa7CUf3j4KzKfSx8tctX ZFf3ZpOtujOrzrsWul2lkFW5mApHaY+ysZ44S6EnxFf4aspssRWuyjkP6NIB OvR/eMpzFJ3lnGFt8lX17lXkvVfd3+nqs9VWLjtWuApTYSmv2WYsh45wo6/I rrCVkqvu2ApXebuqw1QTPfX3YtP9PCY4a1KG1emrrrOD+ApbKbjKZW99iqk2 ecrNUN0umm6xbmspOWuSsbr2r6L7QXyFra646p2tpuxXdbpqck7VaSocNdtb U43VmWM93cOa5qvI/Io7RXfb6uodoSqZlaurOvMqRVNFuApL6Y2ysfBVXX61 ff8KW2GrLa76ZCtc5ZFV4SmvwVjaHSG+yjk7SHa101aOrsrcsXriqk+2iuwB MdVuS/3DD033z6NgLQdjTfaV6vlBhd0rfLXLVtldYMeZQFyl7SoVU3W74pWP Oqb7GUwwVlaGpegr1/ODdIPas8FW6plV145VhatcOsBKUzl7qttNrvbqNpZr hoWv8JXrTLIVrsJVG0yFo7zN5WYshwxL3VcTdq/oBnfaqrML7Nix6joTiKtm mqrbNYqDsfIzLHzVt3tFdoWt7tpq6o7VJldtNxWW0hpVZ+Erf185d4NkVzNt dSWzcugCFe9aUN1Zz3ZVR/+HpTxGzViqGZbqDha+ohvEVtdtpdwFZu1YdZ8J nJZXVbsKT/nORmN1Zljq+VXWbrtCdnX03Uo3OMtWV1z1zlZXMyu1HStchakU PPWPAtP9DKKtpdwTuvtK9W5RZV9dtdVWXznbKmp/3aELVD4TqNwDKu9VuXqq 205u9sJYfb46Y6wuXznstpNdYavozErJVU8yqyeuOmOrSldldoBupsJRft7q NNZmX2XnVx27V3dt9c5XUd0g2ZW3rboyKydXPdldr3TVlqxK3VTdvlEbdWe5 Gwtf7eoGu82Are7b6mpm5d4F4iqPrErVU912cRtVZ1UYqzPDUvHV5t0rusEd ttrSBWbtWOGqGlcpmqrbJ1MGX+Grqt2rjHsZKs4Nbu8G3WyluL+u1gVuc1V2 B1idVWEpv1Fw1t39v0xjOfpKcbed7MpvJthqW2bVdSbQ3VXKpsJTc8bRWC6+ Omuszvxq8u4V2dVMW2VmVriqxla4KsdV3Z54Nf9UPN2vd5uxunbcHfIrl90r 9tqx1ZGtOvfX2bGa56oqU03IqKrt5GyvLmO5ZlibfTUtu9rqKxdbkVnNdpXC zrqLq3CUr7dcjLXFV9N226N9ha122ip7z2qCq7K7QFVXZXeAk03V7Z3ucXGW mrHwlfbuVVR2dfTdiq/8bBXlqle2is6scFWOq1SyqmpTYan+mWYslQwLX3lk V1G+wlZ6Q2YV3wU6uSorr8p2laqpuq3iPKrGys6wpvvqqa0m+Irsapet1DKr Ca56umNFXpXnKjzlNUrGcu0Ip/jKZfdKLbua6qtJtqIL3OkqJVPdddU0T/1z w+AsvQxL0Vd0g+y1b7dVR2ZFF/jMVZ9s1ZlXKWZV7p7qMJS6u/AVvlL3lVp2 1W0NbEVmhavy86qKrMrNVN02cjWXm7GyOsJpvnLZvSK7wlZPXKW6vz7FVZVd oJurOk2Fo7ysNdVY+KrmXoZJe+3YysNWk/bXP/13l2UrXOXjKjzlba0uY+Er ukGyq922csmsNnSBZ2yl6CpMhaXUndVhLAVfnTUWvurtBiNstfnMoLutrmRW d2xFF4ir7roKT80eJWOpZFgbfZWxe0V25T9qtiKz8rlvYZOr7uy4KLiq2x8b RsVYbr6q7Aef2Kpr90ohuzryVWZ21W0QbBWTWW3eX//0eZJ9JnCqq/DUD86/ JE/364t2lrKxnPOrLd1g1V472ZWPrZQyq+j9dTVXZWZWyq5S3a1yNlW2nVzt 1WksBV9FZ1jq3WCGr5S7QbKrmbbqyqwcukB1V521VaernLIqHKXtrS5jOfkq sh9U3b0iu9rlKxVbkVlpdIG4yiOrwlF+3ppmrKn5ldPuFdmV7jjaakpmpeaq T7aq2l13cdU0U3XbRmmUnVVhLPUd94m7V+p77WRXfrZyz6wq99e7ukBc1esq PDXTWviqrx+kGyS7wlZkVu5doLKrKjpAJVN1O8V93I2Frzx9RXblNd22IrPC VS6ucjZVt0emjoKxHHew6AbJrrCVjq2cMqspXeA7W1XftbDBVZM99a9f/z5E TfdryTSWe0fo5KtPn31q2VX0XjvZ1R5bTc+s6AJx1VRTRdrJ2V9dxsJXc3yl nF1F2GpDdtVpK4e/G+ieWT1xVUVmpeyqu99VHa7abChVczkZC1/1dIOO2dXR dyvZ1SxbXXHVka1cMyv3LnC7q1xM1W0hd2t1GMvJV2d3LSN8tXmvnexqh63I rDy7QFw131Td1ukeZWMpZViKvqIbrLlPNDu7wla9tpqeWam56oytFF2ltFul aqpuz6iOqrPwlZ6vqrvBqjsZyK58bOVw7wKZVU5mtTWvUjRVt1vcBl9p+Mp5 90p5r11t7wpb5doqsw8ks/LtArvzqqqsCk9pjqOx8JV2N6i810525WmryZlV 9f56xrlAXFWfVeEpj1ExVmaGha/6s6uqvXayK19bkVnNy6zUXHXWVqq7VdtM 9W9vpvtn63AWvorz1aRzg5HZldqZwYn3MTjaiszKa39dMa/KNNVdV03x1Dsr ZU/3a+82louvzu5UKmdXT/baN2RX23vBSluRWfXsr29xVVZehan0DOVgLnyl kV198tXW7Ept7wpb+WRWV22lfDZQMbNS6wI3ugpL6Vurw1j4yrsb3JhdTesF q2z16tl09IGRmZWKq8is/FzlYKpu/0yz1qQMa5qv1GzltnfFTruWraZmVuyv 73FVdVaFp/ytNSXDUvPVtG5QNbtS2WnvttNWW0XtsHfvWU3tAnGVjqu6HaM8 qsba6CvXbnBadnXVVluzqwpbqeywH9lqYmaFq7RcpWaqbrM4jrux8NXu7Iqd dmyV5aqrtiKz6ukCcdVOU/37D033z1PpLMUMK9pXm3evtmdXG+9j2GQrxR32 SZlV1Y7V2X8n46p+U/2wl7Jmu7HwVc3uFdnVe1uRXdXZSmWHnczq2f765C5Q yVWOnqryk7K5un11Z/fP2VeO2dUnX6lmV/SC2Kozs6rcs3LsAnHVDFN1W8nB W07Gwlce3aBTdsVOe4+t3p2xnLjDrpRZKe+v4ypdU3VbyNFZ+Oq5ryq6wcnZ VfZ9DPSCfbaa1geyZ9WXWeGqWlN1m2eKtbqM1e0rl90rpzsZKrIr1532bkdN t5VaZnXHVmqu+mQrXDXHVN2uURs1Y+GrnG7wrq/IrsiuVGwVcafVhB12pczq iatUukBchacwVp2vHHevpmdXU+9jwFZemZXqDrvanlV2ZlW9YzXBVZhqhrPw ldbuFdlV3U77lruuNtrK8d6F6jsXpnWB3a5SMFW3SyaNm6+uGqvaV2RXHntX 3MfQa6stO+wKmZXrnpViFzjVVd0O+d78R/B0vx4FY03Kr8iu6rOrrvsYsJWH rdR22CvvXXDMrHDVXFNF+8nFXS4ZVqevKrrBzL12h+yq6y7RiJ32ab0gtuq/ d0Ets3riqghbVXeB01y1zVFK3uoylks/qOCrjm7QMbuiF9SylYqruvpAMitc 9dRWyq7q9pGLs9R9pZxfue5eqWdXUTvt2Gq3rbrOB0bfu6B0B7tTF+joKkVT dRvI3VnVxnLIrip2r5xsdTe76tppv2qral91mwpb7dxhd86sHFxVnVXhKQ9n qfrqirHoBnuyK8WddrKrflspuSrbVir3LjhmVqpdoHJeham8nKXqK9ducIut FHfasVWtrTZkVs477GRWWq5SMFW3XxxGwVj4SstX1WcG1Xba6QWxFZmVf2al 7qqqrApT9Y9bhtXlK5ducGN2xU67v62UXNVlq+mZldP+usqOVaerum0yYfBV ra+6bJXlq6077diKzMp1hz0js8q2Fa6qcVW3R47mP09O98+Z6SxXX03pBsmu 9HpBbIWtKu9dmJZZbesCt5nqrJuixtlY232laqusvauq7Ipe0NtWm10VnVkp ueqdrVxctdFUU+3kYq9qZ2UZy60fnOIrp+wq01fYaretFLrAu7ZS7QJxlaap um3k5KxtvpqeXyl1g+xdeZwXVLXV1HvYK88GTs6sOnrATFcpZ1XdDnJ2VpWv HPpBsquZ2ZWyrTp9lWErMiv9PrArs3LtAq9+d12xlaKpur0zyVn4iuzKbe8K W/Xbij5Q82zg5swKV+GprcZS7wYVzg1WZ1f0gjt7QWylYSulPvBuZjV1fx1X 7R0VXynkVxuyK6X7rugFvbOrblttcVVGH1h9nxWZVb+r8BTGwldkV9hqtq3I rMiscJWfq7qd4jz4SqcbVMyuKnfau3pB7mLAVu62Utphn5JZ4are+a+g6X4d Dr4iu/LfaVfsBatt5bpzpWarjrsXolxVaauMPlD5bKByZpXpKldTRRlK3Vxd viK78suupvSCjrbq8FWFrVQyq2xbqfeBiplVxP46ruo1VZejVKxFfkV2RXZF L5hpK/U+0MlWU/pAlcyqswuc6qpuN6k5a0p+5dYNYqv5tjry1URbKexaubtK 6U6rjh32DV3gNFd1+0jdWfhKL7vivOBcWynvXCnZisxKrw98YqvJmVVWF6ho qm4HOTpri6/IrvqzK2ylmV1l24o+0HuH/Z2tJmVWuGqfqbKNVekrsqsZ2dW7 f29v8hW2YtdKxVZqfSCZla+ruo3TPfjK01d3s6tP/7akF9TOribZil2rHTvs WZnVGVvhKkzVPfgqthucmF3RC/bbSnXnSsVWZFY9tprcB+IqTLXNV2RX8dmV Si/YeV5wiq0qfdVhK/pAdtgVXNV9LrDbVd1u+TL/fWK6f0YFYzn4aqqtyK50 fLXNVht2rVzvXiCz0sysNrnqjJ+ejJux8NUzX9ELYquJtlLetTqy1dbMqsNW 2TvsHZmVUhfoYKpsS3Vba5KvHG3lll259YLKtnLaZ1ewlXpmtdFWZFZ6XaCy q7o91eEsdV+5ZlfTdto3nhdU3rnCVr622toHumRWjl2goqu63aTgrA5fdXaD E7Ir97uuHGx11VcT99mrbaWwa+WWWVXbavoO+yZXbfdUhbEm+IrsClu59IJb bKWyx66SWan0gWp3Wk3NrLK7QBVXdXtourGcukGyq/m9oLKtXHauVG3l2gc6 2EqxDySz0nRVt3/cjFVpq2hfTcuuqu+62npeUMVWR75ysBW7Vjm7VtP7wIod duXMytFV3d5xNtYGX6lkV9W9oMN5QfVecMs+e6WtFHatjmw1KbOadj5QMbPC VXPHzVdkV3N7wYm2uuorbOVxZyh94Lw+kMwqxlXdplEafDXfVtt6QVdbue6z P7EVe+yzbKXYB5JZ4SpnY1X5yjm7cusFt58XVLCVwz67oq1cd63u2OrOrpVS H0hmFWerDld128VhHHx19neS7IpesNJWKjtXyrZij90js5pkK+fM6qqttrrq f05M98/Y5avO7CrSV9077dgq31aOd4hiK/bY6QPv22pyZuXkqjOGujNOxiK7 0suuMmxV5atPZ9Kv+ErFVpP22atspbDHjq20bKXUB7plVuquyrKUgrXwVX12 pWarzdlVh60c99mjbZW1xx7hKmwVayv1zMphh32aq7pMVW0sVVt17bWr77TT C87bZ59qK8c99ghbubpqmq0muOqOrRRN1e2oLmep+srVVk+zq7vnBbFVbi+4 9axgl606+sArtiKzog9Uy6zUXNVtJgVj4au67EqtF4y+5+rTmXFXW209K3jG VlP22F/Zij4wPrNSOB84zVV3bYWp8o1V5auuvSsVW2X1guxcae2zYys/W7Fr RR/oaisFV3WbaJqvNmZX9IK6tjryFWcFdW2lcB+7mq2i7wy966oOW6n0gbhq p6uyjKXmK0Vb0Qv62WryWUFspW2rbZlVpq3oA7Vs1W0ffKWRXanYSq0XrNy5 UrIVZwVrbTX9/gX6wP5dq8o+EFftmom+UsyuOnvBO7ZSz66UbMVZwWe2mn7/ ArtWvn2gcmaFq/Sny1dkV/SCldkVZwVn2oozgrG7VlNsNb0PzLYVrtLx1ebs Clvp20rlrOBmW3FGsHaPXSWzUrTVpj6wI7PqNo3STMqu6AWxldtZwSxbVe6z T7OV0hlB+kBNW5FZ4Sp81dsLbrHVO1852UrlrCC2yj8jqGIrdq3m7Vq5ZVa4 StdX02zl0gvesZVKdoWtsFXFGUGV+xfYY9+za7Ups+q2i8Ns8pVSL8jOVcxZ wep9drd7GLbaijOC2EqxD5yQWXWbxWmUfUUviK02nxVUvePqqq2y7l/AVvfO CG65M5TMii6we7BVbC+IrTR3rtxspXrHlYqtuH9hdmaFrcisJswGX03pBbHV 7rOC2Ir7FzbYSmHXalIfiKv8fOViK6VeMMtWd3z17vP0rq+wVf09DFNtNelu K3atNPpAVVspZlbdLpkwVdmVsq2qesFPZ4unZleKtppyVhBb6dy/wB67tq22 9YFkVv2jll1dyVKVbEUvWHNWEFvVnxV8ZyvVe0O5f6HeVp/ydWx131ZkVp6j lF1F2yqqF8RWGjtXWbbiHoYeW7ndbaV4RvCurVwyqypbKe9a4SrPcc2u2Lna ZyvuuMJW3L+gl1kp94FRtorOrLDVjpmcXWErbBW9z46tZttK8YwgtpplK1y1 Yzbbqmqf/Z2vztz9ctVX7z4f3/nK0VbVd1yp2irDVxG2Ur5/wcVWyrtWyraq 3LUis2KUfeW6c/XEVi7Z1bvPccWzgm73h2IrbIWtsFWlrbrdsWFUbHXFV0q2 ohfUs1X1HVfYys9WHfeGdu+xYyuPPXYyqznjZit2rvRt9c5X2Er/bvYrtlK4 f0HFVspnBCttdWbf4a6rqmw1ddeq2xubRiW7wlbYytFWE//uDbbaZatPe5pK mRW2wlZOo2CrK75y2mfHVjvvD8VW/bbKujfU0VZb+sBKW3XuWtEHesxEW6ns s2MrbOX2d2+wle6d7J/Olmy3lfMeO5nVd+d/T0z3z5hpqyu+wlbx9zBMs1XH 3eyOf/cGW2Er5V0rbEUfmGkqR2cpZFeKO1eq9zAcfea98xW26r+b3dlW/C1B bDXBVtVnBKNtNa0PvGsqF2NhK83sKtJW0+4PxVbYaurfu3E9IzjBVup77FNc FWUqdV9hK2yFrbAVtsJW2KreVtv6wAxXKRtr2s7V5LOC0ba66ytsVWurV77C VtgKW3mfEdxkq2xXKfpqmq1Udq6wFbbKvJsdW3naSuFuK2w131bdruhw1SZb RfeC2ErDVke+crbVka+w1TNbnf17N0e2irg3FFvl2urM2eese0MVzwhG24rM ytNXTrZyOiuIrXJsdeQrbIWtrtgq4t5QbJVvK+5f8LZVtavcfYWtsBW2wlbY ap6t3n3GuPaB2GqXq7AVtsJW2ApbYSts1btrha3m2UrFV9377NgKW2ErbIWt sNUWW00/I9jtKmyFrbAVtsJW82wVdSc7ttI4I+hkq25PYCtsha3q7g/FVtgK W2nY6s4eO7bCVm62UvBVt62u+ErFVp98ha1m2OrIV9gKW2ErbIWtsBW2wlbY ClthK2yFrbAVtsJWrrZ64itsdd1WR77CVtgKW2ErbLXPVdhK01adO1fYClth K2yFrbAVtsJW2ApbYStsha2wFbbCVirT/SywFbbCVtgKW2ErbIWtJvmq+zlg K/atsBW2wlbYClthK2yFrZRtxTlBzgliK2yFrbAVtsJW2ApbYStsha1m2+qd r7AVtppiq+5noGCrs7+z2ApbcS87tnKw1ZGvsJWerc76ysVWCr7qdhW28rVV 1q6Vs63efW9gK2yFrbAVtrruK0dbKfiq+/VjK2yFrbAVtsJWU20V1QtiKx9b db/2u7a6kmdiK2yFrbAVtvKw1TtfYSts5eKr7teNrbAVtsJWG2115CtsFW+r d7769Dn6yVeKtoreuXK2VYevul/vXVdhK2yFrbBVla2OfIWtdGz1JLt6aqvK s4JdtnI9K9hhq+7X6mqrs2dlsdVcW125NxRb9dvqla822+qdrzbaSmWffZqt tvqq+3VW2erM7xe28rPV1fsXsBW2wlbYyt1W0TtXm2xV4avu1zfdVmfO22Ir bPXk3tCrtnrVi2ErbIWtdtvqiq8m2CrLV92vqdpVqrY6u/u4wVZV94Ziq2e2 euUbbJVjqyNfVdjqyFfYijuu7nxXb/BV92tRtpXiHju2wlbY6thXCrY68hW2 wlYKO1fRtpqUXUUYq/tnx1Y9faCSrar22KNtdeWMILbCVltt9c5X2Ip99m5j RDqr+2fMdJX6rpWDrc7cBXPVVgpnBF1sdWWPHVthq0++qrDV3exqi604KzjD V1NGIbOaaquMzGqiraLutlKx1dkzgtgKW3Xvs2Mrv3326dnVlJloq8lnBLHV fFudPSOIra7vs2Or5756Yqt3vjrTA2ArbOUw2X2g864Vtoq3Vfad7Ee2enq3 FbbKsdWRrxxt9c5X02ylnF0pnhWkF9w3Cq7CVtjK1VZP7w11t9WRr5Rt9cpX 2bY68hW2wlZkV/NGJbO6YiulXSts1Xf/whRbPb03FFthK2w156wg2dWMUbFV dGalssc+wVafznyr2Srr791gq1pbHflqk62444p9dmzlNyquyrCVyh571v0L R7Z69/k47d7QaltF3L+wyVZHvlK1leLfvcFWs2yFr3bMZls57Fq9s5VyH+h+ J7ubraJdpW6r6r97o2ird76aYCt2rrCV61S4yn3XqttWCn3gRltl3huKrfLu YciyleLd7CrZ1bvPqO7sqnLnqrsXxFc6MzmzYo99lq0m/b2bCbZ65SsFW236 uzcqtlLuBd1tVZVd4SsvVyn3gdhKz1bT7g3N+ns32Er/jitspWEr1V4wy1Zk V56uysqsrtgqKrOq2mP/tE8w1VaK9y9MsVXFHnuHrbbcH8o9DHG2ct25uvLd SHblM9jKf9dKxVaKZwSn3MmOrXbdcfXOV5NtRS+ok13hK31XddoqKrNStpWC q7DV3L93o2Qr7mHQv4dBuRecYKvK7Apf4Sr1PhBbzbrbKuve0Cm2mnJ/qJOt lHylaivVXpDsasY8dewkW1VlVtjK8/4F7mT3sBX3MGArsiuyK1y1z1ZZd4ZO tNW77yHutqo/Ixhpq+r7Q6vvYeCs4Iw7RKfZCl/NcpV6ZjX57gUVWynuWk05 I4itfGz1zlfYanYviK9mz9NnSmZFH4itsFWWrabfcTX1HgbFXjDKVh3ZVfbe Fb7yd1V3ZoWt+jMrVVu5nRF0sNUrXznayuUehjtnBZ2yK5edq43ZFcbycVVH ZuXSB2Irzgh2323VZSuVO644K6hlK6WdK0dbRfmq2zburlLqAhX7QGzVb6sp ZwSn2Wr6PQycFZy/c+XQC3b6aqOxulw1KbOa2Aeq26pj1+qqrbLOCKrebRVt q+p99mpbcVaQXrA6u8JXPqZSc9XEPnDKrpX7HvuU+xewlbatovfZ7+xc3bXV xF5Q+bygW3Y13VdurnLPrOgD+/tA1zOCTndbVdmqep/dwVbu2dWWXhBfzTRW 9LO58/5My6zU+0Bs5XFGcML9C1NtNfWsoIut6AXndYOTjIWrPHfY1frAabaq 3mOvvn+hsg88a6tXvppiK84Kzty5muiru9/hGb5yNFbGM6hy1YTMalMfGH1n 6B1bqeyxbzwj2Gkr9XsYpp0VpBf0t5WirxyMlfW63V0VmVnRB3pnVpwR1LHV 1nsYnH01yVaRvSC+mmes7Neq6qqpmVVWH4itOCPoYiuVs4JHvsJWHr2gc3a1 2Vfdzqp4bXefvVtm5bTDzq4VZwS32kpl5wpb6dhKKbs68z2TlV1V+6rSWNnO qnwduCovs3KzVfSuVfSdoa577FPOCGIrdq7O+OqurTbvtFdkV06+emqu7p9V 3VXKtnrqKvpAnczK9Yygsq1e+cpxnz3CVsp3iGZkV122qu4FO/eutvrKYZ48 37uuIrPKz6ywFWcEt9kq8352NVvRC87Nrq7aqqMbxFj+roreX5+0w37XVup9 oJqtqnet1M8IPrVV9VnBiPvZsRXZ1URfRRir2zFKE+HVKldF22pLZpVhq0+d gqKtrrhKxVbqe+xZtqo+K8g+e28vSHalYSsyLFzlllnRB3plVh22cty1qrbV pH32I199OrsRtXNFL0h2ha/0TFXtqsmZlWIfiK38dq0cbPXKV+yza2ZX23rB juxquq+2GCvqWW1x1YTMij4wzlYqu1ZKe+zKtmKf3esuBrKrub6abCwFV921 1eQukD6w11YqfaDrHnuErdT32V/5ys1WE3pBsqv72YSKr6YYK/qZPHl/sl21 NbOiD9TsA7fssWfaip0r7exKsRd0za7UfZVhLEdnZTyDDleRWen1gdjKZ48d W/nail4wx1bKvsruBlV9pW6srNe80VVKtsrIrOgD2WOfZiv22X3uYiC7wlfq 1sp+fU/fgwpXKXeBjjvsDn0gu1Y6mdUdW73ylco+u8s9VyrZVUYvuDm7qugG I3xVZawqZ1W9lmmucs2snHbY6QN37lpF2WrSHaLTsquMXrDzrqtIW7l2g26+ inBX988a8bxxVb6r1HbYsRW2qrQVO1extlLLrrJ7wSnZlYKvFIylPrjq3H9L CraiD+ReK2z1zFcbbaWUXU3pBfEVxlI11VVXkVnRB07OrJz22O/a6pWvJu1c KftKxVZbs6vpvsJYsc/yyftKZrUvs8JWM/bYsdUcW6n1girZlUs3+NRXGEvL VLhqfmaFrbjXqsJW7FzF2YrsakY3eNVWir7aYKyMZ1bpKvUuUDmz2tgHXrWV cmaFrdi56u4FO+66mpxdbfPVNGNlPaOn752Tq1wyK/pAr8xqwq7VE1u98hW9 4Mxe8J2tNmdXyr7KNJarszKfR4Sr7vyeqLuKzGre+UAlW6lmVtG2cvy7zaq2 UuoFn9gqIrv65KvI7Epl98rBVw7Oqnj9HVnVFVtd/ffClswKW/nYyq0PrLLV 9p0rlfOC27Mrp3ODkb6qMpaCtSpfJ656Zquz/67KctU7W7HDruMqbOXRC776 XVHNrpTuulLPrhy6wbu+cjVWtrk6X0vU+5HpquldIJkVtlLdtcJW2rZyyq6e 2Eoxu8JXTKap1Fyl2AU+tZVSZuV4PlDFVo6Z1VNbXfHVdlu57LRvyK7wFcbq NNV0V03OrLb3gUe2OvoOPrLV9D6w0lb4SqcXdM6u8FX893y3W5RHxVTbXOW4 Z7WhD7xqK4U+EFvtttWGnfYt3WCFrzCWl6lwFZnVhD7Q0VYdroqw1StfYSv9 7OpuL6hwZhBf5flqu7NcTZXpqkldoMsO+4Q+UMFV02ylfhfD0e9Nd3altNPe tXcVlV0p+OrK9+KT71+MpecpdVe5doFumRV9ILZSs9XU7CqjF1TLrqbuXW31 1VRnZT+vKlfRBXpmVvSBc/tAbPXcVuy046tIXzkYy9VZFc/lqakcXUVmtTez UrKVUmYVZavtvnLeu8JXevtXUcaqcpaKvzpfa7WnXParqvKqLldN27OalFlh K39bqXSD1fddbfeVQ4alYKwoe3X/vBmmwlV0ga6Z1VVXbbgvNMNWr3ylZCu1 7Epp70o5u8JX843lOFHvh6urXHrAzZmVmq02ZVbZtlLzlZKtqs8MPsmu3n02 OWVXKvtX3b7CWJ6m2ugqx8zKdc8KW2GrTluRXcWfG8RXGEt5Ip93VVbV6SqX zMqpD3z3b3SlzApb5djqla+UbDUlu7prK+fsysFXrhkWztI1Fa7K2V93clVk ZkUfOMdWar7asNOumF25doMV+ZVKhoWxckyl7CrV3XUyK/pAbDXXVhOzK2Vb TfFVdUeYZaxNzsp6fk/e06mumtoFbt9hV7FVt6mm2+rIV0f3n2XbiuzKuxvc 7KuJzsp+VtWmynSVWxdIZkVmpTDRtlLyVaatnHfaO/euKrvBbl/d/Y5UN5ar taqeC67a1wVWZ1bcw46tXGzluNM+NbvCV899VWksRWtVv/YuU92x1WZXPbHV XVcpZFbZtsq8LxRb9dmqK7ty3mnf5Ksz3w+qvnI0VqW7ul/X0/fmqatc8iq6 QK/MKspWWzOrLFu5ZleOO+2u2ZXi7tVkX6kYa9J0mgpXxWZWWV1gZWZFH4it um1FdqXhq4jsyslXGMt/Ip6/cgd41lVqXSCZVf4Oe1RmtaEPzLTVK18594IK 2ZXbmUG1bnCKr6KMhbP8TLXRVapd4LbMij5Q11ZK2VXnTjvZVV83iK8wVrWn HDrADFc5dIFkVvSB2Er3rqvNe1eO3aCKrxSNtd1Z0c+yI6va5Coyq7k77I73 hSraiuxKN7t6aqtNvurKsDKMtcVaWc+tw1QurlLYsZqeWbHDPtdWStmV0057 R3aV7auIbhBf9RprirMyn0+Uqba7qqILnHCflVNmha28beW0056RXWV1g58+ o/CVTkdYYSwnb1U9h8j3LttUuKreVa6ZFTvsmrZ65aupvaD7mUGFbjBqt93Z V67G6jZXx2uMfJ/uZlXb8qqILvCurbJcVZVZKd3Djq38sqvsnfat2dXkbnC6 rzqN9dRf3T9jhalwVZyrFDOru67amFlhq1pbuWRXlXtXitkVvor1VYaxVJ3l MEqmcnKVSxdIZsUOu5OtlLKrqJ32ydmVSzfo5itFY+GsHk+pmmq6q8is6jMr bDXLVke+umor5+zqk6+y7hPFV36+wlk1nsJVfjtWZFb0gVNslZldHf2+dN8l Oi27ivLVmc/lbl9Vd4QVxtroLGVP3THVJldN6wKrMqsoW5FZ9dlqW3alcmZQ 3VdR2ZWjr1yMNdVaVc/t6Xuc7aqr/01schWZ1TNbbc2sHG2lll2p7F117LU7 doMTfVVtLFdrdTyjDlORV3l3gW6ZFTvs/baK8lXHTvvkvavu7Gqar7YZS81c 3a8/4n1U6wCjXaWyY9W1v66cWUX1ga++p7GVn602ZFeud15V+yqrH6zIsKKM peKsSIN1/7zKptroqoldoOrZwK7MClvl2GprdqW21/7p80nRV1n51RVf3f2O jPSVg7Hcp9tUuGr+/rrbntX2PrDDVld95ZJd3dlpd+oGI3wVZatoXynuYGUY C2fpeeqpqXBVvauU9tcn7Flhqx5bTciunPbaXbrB6H5Q2VcZxsJZvZ5SN9V0 VzllVndcRWbVPx22uuqrjvsYqvaunLIrV19l5lcYa/5kPHNc1bdjlZVZOeyv k1lhq6r7GFyzK+duEF9pGgtr5Vmqw1ROrjrzeTC1C1S4c4G7QufYKspX07Or rG5wo69UdtxdjLXFWtnPL+J9rsiq3POqaV2g6p0LZFY7bEV2lWcrfOWRYVUZ a4qzqp5VlKuUsqqtrlLqAqv217syK2yV4yu1nXb17Mp99wpfxRqr0lkO5up4 Fh05VUVWhavIrLgr1NdW2dnV0e+LQnaVtdc+oRvs9FVVRzjBWJX26n5NGZ66 Yypcdd9Vbl1gd2bFXaEzbTUlu3LrBp9kV/iq31hqzpo00e/T3d+Xra7q3LFS 2l+vyqyObMWelZ6trvpqc3aFrzx9pWQsnKXnqQmmcnSVW2ZVdecCmdVOW23I rhS7wXefT9t8VZ1hZRkLZ/V6qtpUuMrXVW6Z1eY9KyVbXfWVU3a1Za99gq/U M6xMY+GsOk89MdV0V1XtWH2y1RNXqXSBZFbY6qqttmdXqr4683k3zVcTjbXV WhXPVN1UuKpnx0r5ntCuPSts1eOrKdlVx147vtLxlYOxJlqr8rk9eX+fmEoh q3Jz1ZQuUDGz2tQHOttKMbuasteusnuFr3Sd5eatjmfjYqpJrurcsXLYX3fJ rLotMs1WV33VlV1t6AYn+wpjzbNX9+uM8tRTU+GqOa6q3F9nzwpbVWZXdIP4 6q6vFIyl5qzJM91UGbtVLq7a3AWyZzXbVop/Z3BKdoWvNPOraGPhLE1PTXOV Yl7VuWM1sQsks/K01ZGvtmdX+ErDVxOMhbNmeMq1A5zkKjIrMisnW1311ZXs 6shWlXvt1XdeZd/LMMFX6h1hprOwVo2lnEzVmVXhKjKrCTPBVp3Z1YZu8Iyt Ku9muOKriRlWprFwVt5z7TKViquibfXUVYpdYOVdVnf211/ZiszKy1ZXfZWd XW3vBquyqw2+cjHWBm9lP7fI91nNVM55lZurFLpAMqudtoryVXR2Vd0Ndvtq Sn7laKwqZzl6q/K5RL+nFf0frqILJLPaY6urviK7mrN7tclXGcaqdpaKubpe s4qpKlzV1QFGueqdrTJd5dAFkllhqw177YrdoKqvlDpCNWN1Omv6ZL1fiqbC VT5dIJlV/6jbKtJX2dnVXV+9++8KX2n4qjLDyjQWztK01F1P4Spc5bK/vimz 2marbd0gvur3lbKxcFa/p56a6o6rMk3l6CrVHat3tqrsAjMzq25bbLdVpK86 72RQ6wbxlY+xKpyFtWos1WUqlaxqk6uUMqtOV2Er3Yn6WzhXbIWvPtuq2ldZ O+53fFXdE1Yaa4u3qp9lxPtfYSpcNctV7K9jq6u+uppdvfpdmbDXrr571eWr 7I6wK8PqMNYEb3U9ry5TKXWAaq6adI9VVReIrfbYiuyqZvcqIrs64yvXjrDT WN3OUrJX9+t2NhWu6neV8v76O1vhKm9bHfmqM7vCVzPzq0pfRRpL0VnbJup9 VDZVl6vO2uqpq7Z3gWRW2Coyu3LZa3ffverMrzYZC2f5earaVCpZlVJehatw 1UZbHfkq+8wgvtL21aQMC2fpT/R788RUiv0frqpxVXcXyD2h821FNxjXDeKr 2cbCWTqeemoqXHXeVexYkVlhq3hfuXaD+CrXV1UZlqqx8Fa9pSI8pbpXpeqq p3nVE1e5d4FR++vYymfoBvFVl686jVXhrG3WqnieEe/7FlPhqhxXXb3Lii4Q W1VmV5t8deZzKcpX0WcINxirylnTvFX5zDpNtd1V2T1g1o6VSmZFF7jTVke+ isquMrpBxXtF3XylmGEpGKvaWcru6nwOkZ5SN5Wyq7Lzquk7VmRW2Coiu3Lo BjN99dRW03xVnWFFG6vbWU991v1zdHuq2lTZWZWiq7rOBE51FZnVLFtd9dVV W+GrOb5yyLAyjOXqLIdR8VSlqTKyquoeMNNVavctRHaBZFa7bHXkq4rsit2r 677q3HF3ybAynYW1dCwVYaotWZVDXjVhx+qOrXDVLlupd4NdvlLIrxwzrInG wlr1jorylHJWhav2uIoucLatjnwVZatN3SC+0usJK5211VoVzzXKVHdddef3 3cFV6nctZO1Y0QXqziRb4avZ/WCWr1yNVeWsieaqfm6dnlLLqrblVS47VmRW 2OqqrRS6QfKrWl9VZVgqxupwlrK9up9DpKccTKWcVeEqXIWt8nylnl1N91XH GcLKDEvJWCrOinZY989b7akOU21zVeddC1k7VnSBGrPFVg6++vRvGMXd9mhf qRir2lfbneU6Ge/XNFNNdVXX7jqZlcdMtFWFrzruZcBXPhmWqrOwlqalnnqq 2lQZWZWTq7ryKlzlM1NtdeQrhexKdbcdX2nsulcZC2v1eyrCVBOyqmpXqZ4J zNqxogvEVtm+endfv0o36Oyrzh33yRlWlbO2e6vq+Ub9PiiaKqMDVMmrMnvA aleRWWErFV859YPTjKXmLBVrVXrLzWLdzyTSUE8tpeap6Jxqclal0gPiKmyV 6SulfnCSr7pzrAnGUrJWlMu6fzZ3T2XvU7m4qvOeha79qsge8MhW3d/ryrPV VvjK11cTjZXlLEdruU3W+7bVVJV7VdtcFZlZdX+nq88WW32ZK7Zy2r/K9tWT +6+2+UrZWDhL31OdplJwVWUH2O2q6jus6AKxVea47l6p+yr6HGFWR+hkrGxn Ya1+R0V5yt1UHa7qvGcBV82f7baq7ga3+8oxw+rsCSudhblqn3HU74WqqXCV v6voAu8PtvLavXrqq0+fGZt85ZZhdRhrsrc6nmHk78ETV139t8UkVyn3gOo7 Vtjq/Gyz1Ze5ais3X336b5/8aoaxuq2l7q7uZ6LmKWdT4SoNV2Gr84Ot8nav JvuqY8ddKcPCWUylpyaZSrEDxFW4Kno22urLKHSD6nczVOVXzhnWU19lGQtn +VvqqafumGpiVuXuKoUdK2x1fbba6svgq5r8yjHD6jBWprOwloelppoKV+m4 isyqZjbb6sso7F6p++rTZ5ODryqN5eAsvKVlqQhPVZqqO6vCVbhKfbDV9exq 4t0M+ErTV1XGwlq1jor0lKqp1F31yVbKrmLHSn+22+rLbNhtd/MVxup31nR3 dT3HyN+HO666+7ufmVVFdoDT8yp2rDwGW3138FWtr7IyrC3GUrCWur26n4eS p6pM5Z5V4SpcFTXY6vvj0A1u9JVqhnXXWBucFe2x7p9TwVPTTLXRVR13LdAF 9gy2+v647F4p+MqhI9xqLGdrOU/me6lsKocOEFfhqurBVj84m3x1xlhVvlLJ sJ4aS9VZWMvLUnc9NcVUla468+9Mxx7wbhfY/R08ZbDV/x+V3St81ZdhTTYW 1tK01BNPPTWVo6vOfO445FV371pgx0p7sNXrwVfnbXXWV9EdoYOxnnxXVjoL b9U7KsJTG00V1QE6uIrddd/BVseDr3KMpZBhOeVYXc6abq7O5/n0d2GaqSa6 6tNnNq6aPdjqeDJ2r/BVjq+qMiwFY3U7y8ld3c8m2lMdplJxVVQHODmvYndd Z7DV+8FX/R2hYoalYixFa0X5rPtnmuQpZ1PhKlzlONjq81SeHazwVcQdDcq+ cjNWtLMmWMt1It/DiN+rSlNl7FVFdoCfXHXm352qPeBdV2GrvMFW52aar6ry q+iOsCLD6jRWhrOwloelNpjKNatyzqvIrHoGW52fyt32SfmVa4bVbawsZ2Et HUcpeErNVLgKV00YbHVtpuVXEb7q6gg3GSvTWZir1lGRluoylUNWVeUq1R4Q V/UOtro21bvtW32VlWFNMFaVszZ4q/I5ZvweVHd/LlnVGVep37PAXQveg62u D77S6wgdjJXlrGprOfmr+7koearSVBlZVVQH6OAq8ir/wVb3xtFXETvuZz+3 ujKs7cZSsdbWyXxPOzyVaSrXrApXMWcGW90fR19V5VebMqwnxqpwFtbytNRT U6nmVLjqfg/IXQs+g62ejaOvnDtCdWM5OAtv6Tqq21N3TOWQVVW56tNn85O8 iszKa7DV88FX2hmWo7GqnYW3egyl4iklU+Eq8qoJg61iBl/Ny7C6u8JuZ20w V/dzjfjd6HBVVv9X3QEquIodq5nzxVYMwzAMwzBM3Pwfwvde+g== "], "Byte", ColorSpace -> "RGB", Interleaving -> True] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[580, 22, 78, 1, 5, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[6278, 140, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[7780, 187, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[12561, 305, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32822, 876, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[52847, 1379, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[79435, 2078, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[104838, 2713, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[119502, 3124, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[137409, 3638, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[140453, 3713, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 200026, 4969} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 78, 1, 5, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[661, 25, 287, 4, 213, "Title"], Cell[951, 31, 544, 7, 37, "Subtitle"], Cell[1498, 40, 4743, 95, 394, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6278, 140, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[6367, 145, 144, 2, 70, "Section"], Cell[CellGroupData[{ Cell[6536, 151, 112, 1, 70, "Item"], Cell[6651, 154, 117, 1, 70, "Item"], Cell[6771, 157, 163, 2, 70, "Item"], Cell[6937, 161, 94, 1, 70, "Item"], Cell[7034, 164, 103, 1, 70, "Item"], Cell[7140, 167, 98, 1, 70, "Item"], Cell[7241, 170, 169, 2, 70, "Item"], Cell[7413, 174, 150, 2, 70, "Item"], Cell[7566, 178, 153, 2, 70, "Item"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7780, 187, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[7869, 192, 177, 2, 70, "Section"], Cell[CellGroupData[{ Cell[8071, 198, 181, 2, 70, "Subsubsection"], Cell[8255, 202, 523, 8, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[8815, 215, 105, 1, 70, "Subsubsection"], Cell[8923, 218, 691, 11, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[9651, 234, 107, 1, 70, "Subsubsection"], Cell[9761, 237, 415, 7, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[10213, 249, 172, 2, 70, "Subsubsection"], Cell[10388, 253, 790, 13, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[11215, 271, 103, 1, 70, "Subsubsection"], Cell[11321, 274, 499, 8, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[11857, 287, 107, 1, 70, "Subsubsection"], Cell[11967, 290, 533, 8, 70, "Text"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12561, 305, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[12650, 310, 118, 1, 70, "Section"], Cell[CellGroupData[{ Cell[12793, 315, 137, 1, 70, "Subsection"], Cell[CellGroupData[{ Cell[12955, 320, 120, 1, 70, "Item"], Cell[13078, 323, 129, 1, 70, "Item"], Cell[13210, 326, 184, 2, 70, "Item"], Cell[13397, 330, 149, 2, 70, "Item"] }, Open ]], Cell[13561, 335, 1034, 18, 70, "Text"], Cell[CellGroupData[{ Cell[14620, 357, 166, 2, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[14811, 363, 481, 11, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[15295, 376, 197, 3, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[15495, 381, 260, 6, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[15792, 392, 437, 9, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[16232, 403, 201, 4, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[16436, 409, 271, 6, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[16744, 420, 527, 11, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17274, 433, 206, 4, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17483, 439, 187, 2, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[17707, 446, 417, 9, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[18127, 457, 205, 4, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[18335, 463, 176, 2, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[18548, 470, 454, 10, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[19005, 482, 179, 3, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[19187, 487, 170, 2, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[19394, 494, 453, 10, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[19850, 506, 179, 3, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[20032, 511, 160, 2, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[20229, 518, 479, 10, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[20711, 530, 181, 3, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[20895, 535, 610, 12, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[21542, 552, 652, 23, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[22197, 577, 239, 5, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[22439, 584, 1512, 37, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[24000, 627, 166, 2, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[24191, 633, 396, 9, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[24590, 644, 294, 7, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[24887, 653, 331, 7, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[25255, 665, 494, 10, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[25752, 677, 254, 5, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[26009, 684, 235, 5, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[26281, 694, 527, 10, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[26811, 706, 245, 5, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[27059, 713, 791, 19, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[27887, 737, 527, 11, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[28417, 750, 247, 5, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[28667, 757, 178, 3, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[28882, 765, 475, 10, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[29360, 777, 203, 4, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[29566, 783, 812, 20, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[30381, 805, 267, 5, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[30651, 812, 759, 18, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[31447, 835, 474, 10, 70, "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[31924, 847, 229, 4, 70, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[32156, 853, 581, 14, 70, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]] }, Closed]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32822, 876, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[32911, 881, 216, 3, 70, "Section"], Cell[CellGroupData[{ Cell[33152, 888, 99, 1, 70, "Subsubsection"], Cell[33254, 891, 335, 7, 70, "Text"], Cell[33592, 900, 10359, 191, 70, "Output"], Cell[43954, 1093, 480, 10, 70, "Text"], Cell[CellGroupData[{ Cell[44459, 1107, 144, 2, 70, "Input"], Cell[44606, 1111, 125, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44768, 1117, 144, 2, 70, "Input"], Cell[44915, 1121, 111, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45063, 1127, 149, 2, 70, "Input"], Cell[45215, 1131, 101, 1, 70, "Output"] }, Open ]], Cell[45331, 1135, 276, 5, 70, "Text"], Cell[CellGroupData[{ Cell[45632, 1144, 145, 2, 70, "Input"], Cell[45780, 1148, 89, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45906, 1154, 149, 2, 70, "Input"], Cell[46058, 1158, 96, 1, 70, "Output"] }, Open ]], Cell[46169, 1162, 268, 5, 70, "Text"], Cell[CellGroupData[{ Cell[46462, 1171, 149, 2, 70, "Input"], Cell[46614, 1175, 109, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46760, 1181, 152, 2, 70, "Input"], Cell[46915, 1185, 111, 1, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[47075, 1192, 98, 1, 70, "Subsubsection"], Cell[47176, 1195, 406, 9, 70, "Text"], Cell[CellGroupData[{ Cell[47607, 1208, 199, 4, 70, "Input"], Cell[47809, 1214, 88, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47934, 1220, 183, 3, 70, "Input"], Cell[48120, 1225, 189, 4, 70, "Output"] }, Open ]], Cell[48324, 1232, 391, 9, 70, "Text"], Cell[48718, 1243, 344, 8, 70, "Input"], Cell[CellGroupData[{ Cell[49087, 1255, 137, 2, 70, "Input"], Cell[49227, 1259, 75, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49339, 1265, 205, 4, 70, "Input"], Cell[49547, 1271, 76, 1, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[49672, 1278, 105, 1, 70, "Subsubsection"], Cell[49780, 1281, 548, 13, 70, "Text"], Cell[CellGroupData[{ Cell[50353, 1298, 126, 2, 70, "Input"], Cell[50482, 1302, 762, 19, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51281, 1326, 271, 6, 70, "Input"], Cell[51555, 1334, 443, 10, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52035, 1349, 131, 2, 70, "Input"], Cell[52169, 1353, 111, 1, 70, "Output"] }, Open ]], Cell[52295, 1357, 182, 4, 70, "Text"], Cell[CellGroupData[{ Cell[52502, 1365, 178, 3, 70, "Input"], Cell[52683, 1370, 91, 1, 70, "Output"] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52847, 1379, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[52936, 1384, 146, 2, 70, "Section"], Cell[CellGroupData[{ Cell[53107, 1390, 108, 1, 70, "Subsubsection"], Cell[53218, 1393, 395, 9, 70, "Text"], Cell[CellGroupData[{ Cell[53638, 1406, 101, 1, 70, "Input"], Cell[53742, 1409, 113, 2, 70, "Output"] }, Open ]], Cell[53870, 1414, 412, 12, 70, "Text"], Cell[CellGroupData[{ Cell[54307, 1430, 97, 1, 70, "Input"], Cell[54407, 1433, 741, 19, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55185, 1457, 187, 4, 70, "Input"], Cell[55375, 1463, 211, 5, 70, "Output"] }, Open ]], Cell[55601, 1471, 571, 11, 70, "Text"], Cell[CellGroupData[{ Cell[56197, 1486, 302, 7, 70, "Input"], Cell[56502, 1495, 187, 4, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56726, 1504, 212, 5, 70, "Input"], Cell[56941, 1511, 163, 4, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57141, 1520, 384, 10, 70, "Input"], Cell[57528, 1532, 188, 4, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57753, 1541, 380, 10, 70, "Input"], Cell[58136, 1553, 190, 4, 70, "Output"] }, Open ]], Cell[58341, 1560, 465, 14, 70, "Text"], Cell[CellGroupData[{ Cell[58831, 1578, 194, 4, 70, "Input"], Cell[59028, 1584, 603, 15, 70, "Output"] }, Open ]], Cell[59646, 1602, 467, 15, 70, "Text"], Cell[CellGroupData[{ Cell[60138, 1621, 183, 4, 70, "Input"], Cell[60324, 1627, 155, 5, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[60528, 1638, 107, 1, 70, "Subsubsection"], Cell[60638, 1641, 396, 6, 70, "Text"], Cell[CellGroupData[{ Cell[61059, 1651, 167, 3, 70, "Input"], Cell[61229, 1656, 618, 15, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61884, 1676, 191, 3, 70, "Input"], Cell[62078, 1681, 657, 16, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62772, 1702, 4185, 75, 70, "Input"], Cell[66960, 1779, 657, 16, 70, "Output"] }, Open ]], Cell[67632, 1798, 397, 9, 70, "Text"], Cell[CellGroupData[{ Cell[68054, 1811, 494, 11, 70, "Input"], Cell[68551, 1824, 643, 15, 70, "Output"] }, Open ]], Cell[69209, 1842, 175, 4, 70, "Text"], Cell[CellGroupData[{ Cell[69409, 1850, 288, 6, 70, "Input"], Cell[69700, 1858, 646, 16, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70383, 1879, 341, 7, 70, "Input"], Cell[70727, 1888, 616, 15, 70, "Output"] }, Open ]], Cell[71358, 1906, 328, 9, 70, "Text"], Cell[71689, 1917, 6221, 111, 70, "Input"], Cell[CellGroupData[{ Cell[77935, 2032, 427, 9, 70, "Input"], Cell[78365, 2043, 293, 5, 70, "Output"] }, Open ]], Cell[78673, 2051, 272, 7, 70, "Text"], Cell[CellGroupData[{ Cell[78970, 2062, 107, 1, 70, "Input"], Cell[79080, 2065, 282, 5, 70, "Output"] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79435, 2078, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[79524, 2083, 202, 3, 70, "Section"], Cell[CellGroupData[{ Cell[79751, 2090, 107, 1, 70, "Subsubsection"], Cell[79861, 2093, 582, 11, 70, "Text"], Cell[CellGroupData[{ Cell[80468, 2108, 621, 14, 70, "Input"], Cell[81092, 2124, 2179, 53, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[83308, 2182, 865, 19, 70, "Input"], Cell[84176, 2203, 2788, 68, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[87001, 2276, 762, 18, 70, "Input"], Cell[87766, 2296, 1945, 48, 70, "Output"] }, Closed]], Cell[89726, 2347, 158, 3, 70, "Text"], Cell[CellGroupData[{ Cell[89909, 2354, 947, 25, 70, "Input"], Cell[90859, 2381, 3207, 79, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[94115, 2466, 109, 1, 70, "Subsubsection"], Cell[94227, 2469, 294, 5, 70, "Text"], Cell[CellGroupData[{ Cell[94546, 2478, 126, 2, 70, "Input"], Cell[94675, 2482, 7447, 147, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[102159, 2634, 196, 3, 70, "Input"], Cell[102358, 2639, 161, 3, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102556, 2647, 605, 15, 70, "Input"], Cell[103164, 2664, 1601, 41, 70, "Output"] }, Open ]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[104838, 2713, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[104927, 2718, 270, 4, 70, "Section"], Cell[CellGroupData[{ Cell[105222, 2726, 109, 1, 70, "Subsubsection"], Cell[105334, 2729, 1322, 26, 70, "Text"], Cell[CellGroupData[{ Cell[106681, 2759, 447, 11, 70, "Input"], Cell[107131, 2772, 3062, 75, 70, "Output"] }, Closed]], Cell[110208, 2850, 235, 4, 70, "Text"], Cell[CellGroupData[{ Cell[110468, 2858, 212, 4, 70, "Input"], Cell[110683, 2864, 538, 13, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[111258, 2882, 130, 2, 70, "Input"], Cell[111391, 2886, 112, 1, 70, "Output"] }, Open ]], Cell[111518, 2890, 850, 23, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[112405, 2918, 109, 1, 70, "Subsubsection"], Cell[112517, 2921, 324, 8, 70, "Text"], Cell[CellGroupData[{ Cell[112866, 2933, 675, 16, 70, "Input"], Cell[113544, 2951, 1337, 34, 70, "Output"] }, Closed]], Cell[114896, 2988, 383, 11, 70, "Text"], Cell[CellGroupData[{ Cell[115304, 3003, 306, 6, 70, "Input"], Cell[115613, 3011, 3816, 105, 70, "Output"] }, Closed]] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[119502, 3124, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[119591, 3129, 249, 4, 70, "Section"], Cell[CellGroupData[{ Cell[119865, 3137, 223, 4, 70, "Subsubsection"], Cell[120091, 3143, 962, 21, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[121090, 3169, 158, 2, 70, "Subsubsection"], Cell[121251, 3173, 776, 25, 70, "Text"], Cell[122030, 3200, 645, 14, 70, "Input"], Cell[122678, 3216, 233, 4, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[122948, 3225, 98, 1, 70, "Subsubsection"], Cell[123049, 3228, 992, 17, 70, "Text"], Cell[CellGroupData[{ Cell[124066, 3249, 545, 12, 70, "Input"], Cell[124614, 3263, 193, 3, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[124856, 3272, 266, 7, 70, "Subsubsection"], Cell[125125, 3281, 266, 5, 70, "Text"], Cell[125394, 3288, 509, 13, 70, "Input"], Cell[CellGroupData[{ Cell[125928, 3305, 262, 6, 70, "Input"], Cell[126193, 3313, 145, 3, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[126387, 3322, 132, 1, 70, "Subsubsection"], Cell[126522, 3325, 376, 9, 70, "Text"], Cell[CellGroupData[{ Cell[126923, 3338, 408, 7, 70, "Input"], Cell[127334, 3347, 796, 18, 70, "Output"] }, Open ]], Cell[128145, 3368, 389, 7, 70, "Text"], Cell[128537, 3377, 589, 12, 70, "Input"], Cell[CellGroupData[{ Cell[129151, 3393, 233, 5, 70, "Input"], Cell[129387, 3400, 299, 7, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[129735, 3413, 167, 2, 70, "Subsubsection"], Cell[129905, 3417, 423, 8, 70, "Text"], Cell[130331, 3427, 1810, 43, 70, "Input"], Cell[CellGroupData[{ Cell[132166, 3474, 147, 2, 70, "Input"], Cell[132316, 3478, 222, 4, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132575, 3487, 467, 11, 70, "Input"], Cell[133045, 3500, 156, 3, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[133238, 3508, 296, 4, 70, "Input"], Cell[133537, 3514, 290, 5, 70, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[133876, 3525, 120, 1, 70, "Subsubsection"], Cell[133999, 3528, 329, 6, 70, "Text"], Cell[134331, 3536, 554, 13, 70, "Input"], Cell[134888, 3551, 211, 4, 70, "Text"], Cell[CellGroupData[{ Cell[135124, 3559, 157, 2, 70, "Input"], Cell[135284, 3563, 148, 3, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135469, 3571, 171, 3, 70, "Input"], Cell[135643, 3576, 146, 3, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135826, 3584, 141, 2, 70, "Input"], Cell[135970, 3588, 172, 3, 70, "Output"] }, Open ]], Cell[136157, 3594, 268, 5, 70, "Text"], Cell[CellGroupData[{ Cell[136450, 3603, 197, 4, 70, "Input"], Cell[136650, 3609, 150, 3, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[136837, 3617, 144, 2, 70, "Input"], Cell[136984, 3621, 256, 6, 70, "Output"] }, Open ]], Cell[137255, 3630, 93, 1, 70, "Input"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[137409, 3638, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[137498, 3643, 155, 3, 70, "Section"], Cell[CellGroupData[{ Cell[137678, 3650, 107, 1, 70, "Subsubsection"], Cell[137788, 3653, 660, 11, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[138485, 3669, 167, 2, 70, "Subsubsection"], Cell[138655, 3673, 918, 15, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[139610, 3693, 103, 1, 70, "Subsubsection"], Cell[139716, 3696, 676, 10, 70, "Text"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[140453, 3713, 64, 1, 1, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[140542, 3718, 158, 3, 70, "Section"], Cell[140703, 3723, 257, 5, 70, "Text"], Cell[CellGroupData[{ Cell[140985, 3732, 169, 2, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[141179, 3738, 301, 5, 70, "Item"], Cell[141483, 3745, 248, 5, 70, "Item"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[141780, 3756, 100, 1, 70, "Subsubsection"], Cell[141883, 3759, 477, 11, 70, "Item"] }, Open ]], Cell[CellGroupData[{ Cell[142397, 3775, 105, 1, 70, "Subsubsection"], Cell[142505, 3778, 539, 11, 70, "Item"] }, Open ]], Cell[CellGroupData[{ Cell[143081, 3794, 104, 1, 70, "Subsubsection"], Cell[143188, 3797, 781, 16, 70, "Item"] }, Open ]], Cell[CellGroupData[{ Cell[144006, 3818, 126, 1, 70, "Subsubsection"], Cell[144135, 3821, 493, 11, 70, "Item"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)