(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 12.1' *) (*************************************************************************) (* *) (* *) (* This file was created under the Wolfram Enterprise licensing terms. *) (* *) (* For additional information concerning CDF licensing see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (* *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 49930, 978] NotebookOptionsPosition[ 49455, 958] NotebookOutlinePosition[ 49801, 975] CellTagsIndexPosition[ 49758, 972] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellChangeTimes->{{3.790589543726616*^9, 3.790589545592725*^9}}], Cell["Retrieve the data:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}, {3.790589556957539*^9, 3.790589558464069*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.696186325360051*^9, 3.696186327021051*^9}, { 3.696186470495051*^9, 3.6961864722920513`*^9}, {3.696187844212501*^9, 3.6961878557606554`*^9}, 3.790589541052807*^9}, CellLabel->"In[59]:="], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{59., {2., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{51., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 59, 20538358342986773414, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{56., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{56., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 59, 20538358342986773414, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{42., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 59, 20538358342986773414, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{77., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{77., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[20538358342986773414 === $SessionID, Out[59], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.69965373001964*^9, 3.700314408460842*^9, 3.790589560044332*^9}, CellLabel->"Out[59]="] }, Open ]], Cell["Show in the colors used on the book:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.699653784064355*^9, 3.699653791584588*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{"ColorRules", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[0.9803921568627451, 0.88, 0.44313725490196076`], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, Frame->True, FrameStyle->RGBColor[ 0.6535947712418301, 0.5866666666666667, 0.2954248366013072], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], "RGBColor[0.9803921568627451, 0.88, 0.44313725490196076]"], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.9803921568627451, 0.88, 0.44313725490196076`]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[0.9803921568627451, 0.88, 0.44313725490196076`], Editable->False, Selectable->False]}], ",", RowBox[{"0", "\[Rule]", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[ 0.9607843137254902, 0.5686274509803921, 0.16862745098039217`], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, Frame->True, FrameStyle->RGBColor[ 0.6405228758169935, 0.3790849673202614, 0.11241830065359479`], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], "RGBColor[{0.9607843137254902, 0.5686274509803921, \ 0.16862745098039217}]"], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[ 0.9607843137254902, 0.5686274509803921, 0.16862745098039217`]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[{0.9607843137254902, 0.5686274509803921, 0.16862745098039217`}], Editable->False, Selectable->False]}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.699653794033347*^9, 3.6996538174675283`*^9}, {3.699653859082184*^9, 3.699653872137904*^9}, { 3.700314339242525*^9, 3.700314340287307*^9}, {3.700314386754901*^9, 3.700314443606864*^9}, 3.700315224208069*^9, {3.700315262593556*^9, 3.700315275281302*^9}, 3.790589564791254*^9}, CellLabel->"In[60]:="], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt2jGubcuyFdqLKAkeuFTg1gEbCQkJm6IgDCgOSEgY1AEL++t/6/vwXgGO NDeZI3qPbNu5V0NLc7XsETFmZq7zz/7tv/9X/+6f/u1vf/uP/+Rvf/sf/+d/ /+H//5t//Pf//f1f/Ov/8N/+/3/+//z9X//jv//591+f/9f/8g///t+//8t/ /Pe//v6f/9M//PvvPz8/9fmn/KfykefuPG97bv9edTQXyXMxNV/qbo4S8pzq /6nPv133FmdaXdL6nJ+fn5+fP/l7eSpP+3B5Ns7L1vNRWh3NxTf9mfb9qO7m KDnPqfxb1jXlnPr8lrrf7gd+fn5+fn77RvtweX6TZ8vfzdXRXCTMxe181N0c bcrzVD5p8zV1b9Py+VN1b+kHfn5+fv7d/lPrfW3feLt/5Plmnmlzqo7mIuH+ diqfresyR+YoIbepumz9nr2dT8t7g5+fn5//Tf+vn3PquTzl+XKeaU51NBc3 PFvz2bouc5Q5R7c/v2WfnFavqblIy2drP/Dz8/Pzd/nTPqclz5a6yLMrz6m6 qKO5+PJ8PfW9nDZ3W+suz8y+nconLYe0dbX0bVpu/Pz8/Pz89o3ylGfm/jCt Luq4ey625jPVPy11N0c78my/p03LYco/VZe0/Pn5+fn5+e0b5SnP2TxbPO7n zUXC92CaR93N0aY82/OZ8qT5T9W9/f6Tn5+fn5/fvlGe8pzN83b+afvqrXU0 F7Ofn/a9/FrdzdGOPKfumVucU/6pum/tc35+fn5+fvtGecrzmzxb9qvqaC6S Pz+tvq/VXZ478pzKocWZ9r2clnNLn/Pz8/Pz89s3ylOeXfvkln311jrKs6vf 1N0cyTMnhxZn2vdy2rkjbb38/Pz8/Pz2jfKU52yeW/fVr9VRnmdzvu1Xd3Mk z5wcWpxp38tpc9fS5/z8/Pz8/Jv2IfKUZ3KeaftqdZRnQs5pHnWX5wt5cmZ+ L0/l397n/Pz8/Pxv+u0b5SnPnDzVcUcd5Tmbg7qbI3l+v940Z9r9VXv+7X3O z8/Pz/+m375RnvL8Pk913FFHeWbmoO7m6OU8p+5bpuqedk+1NX9+fn5+fv5G /+31tu8b5SnP5PfDqbq8Vkdz8U2eaU5zZI6S85zypM3R1HrTnqfNHT8/Pz8/ f6P/18859Vye8mzMs/33qqO5SO6f286WHFryNEeZ/TnlbHk/tDxPu7fk5+fn 5+dP8Ns3ylOe359zb+esjubiyzynvmdbcttad3M0m2e783YdW/JsmTt+fn5+ fv5Gv32jPOWZcx/lfj6zjlvznPK0OLfW3RztyLPlPm2qji15tswdPz8/Pz9/ o//2etP2IfKUZ8I5N+3e4LU6ynPW0+L0dy5zlJxny31a+/ds2u/l5+fn5+fn z9lvyFOem/Kcqos6mosbeW51Tnla8jRHO/JsuU+7XZepPFv6hJ+fn5+ff5Pf vlGe8szxqKO5SM6z5TzbkltL3c3Rjjxv59z+/rmdZ0uf8PPz8/Pzb/LbN8rz hTxbPN4z5iI5z5bzbNr7JM1vjt7M8/a91lTd03Ju7xN+fn5+fv5N/tvr3bpv lGdXnrfz954xFy/k2XKfdju31+pujnbkmZbb7fzT+pafn5+fn5/fvlGe8ky4 L5o6p6ujuUjOc2q+0nJr95ujN/O8nVvafd3W+3Z+fn5+fv6X/faN8pTn9/da 6mguXsgzbY5a3idpfnP0Zp7tdUzLmZ+fn5+fnz9nn2PfKM+X80w7p6ujuWjM c2tu7X5zJM/k37s1Z35+fn5+fv59+w37Rnk25pl236WO8mzM83Zu7p8z6y7P szlMzV3ae6C9b/n5+fn5+fntG+Upz4Q81XFHHeU5m2daHdXdHCXnmTZ3LZ6p vuXn5+fn5+e3b5SnPJPzVMcddZRnZp5pdVR3c5Sc51Q+U3VPc/Lz8/Pz8yf4 p+67WvK3b5TnC3ne9tz+vepoLpLnYmq+1N0cJeT5Wj5T62rvW35+fn5+/i/3 b/aN39RLnvJMyLP996qjufiyP6fuAW571N0cbZqj9nl8rW/5+fn5+fkT9tWv 5S9Peb6Q59R7TB3NRXKeU/mouznalGfa/rbl+6i9b/n5+fn5+b/0n/r59vzb 943ylGfCfdTW92R7Hbfm+Vo+W9dljt7Mc+r90P591N63/Pz8/Pz8X/rtG3fs G+Upzy/9LeeXrXWU55v5bF2XOXozz/bvu6m6t/ctPz8/Pz9/wt+z7BvlKc99 eU7VRR3NRcL35pQnbV3tdZfnjjyn6jKVg77l5+fn5+f/fn+e5rdvlKc8czzq aC6S74WmPC1zZ47kmZznVF3S6p6WDz8/Pz8/f7L/1M+35//avlGeXXm2eLxn zMWXnrR+a5k7cyTPxjxvr6ul7u19y8/Pz8/Pn7w/v73eqfxf2zfKsyvP2/l7 z5iLhO+d9n5Td3Mkz/zvl/a68/Pz8/Pz8+/b59g3yvPlPG/v571nzEVCP6Tl o+7mSJ45c5f2PdiyXn5+fn5+/k3+28+35i9PeSbnmbbPV0dz8cL3mrqbo5fz 3Pr9klZ3fn5+fn5+/nv7ljT/1n2jPOWZfK+ljubiyzynvr/U3Ry9kGfaXKfd 16XVnZ+fn5+fP8Hfsu9K229M1cU+XJ6b8kw7j6ijPBNyTvOouzwT8rydf/t9 XVrd+fn5+fn5v/S377va/af6R57y3JSnOu6oozxnc1B3c/RCnmn3Wu3vDX5+ fn5+/kb/r84p/+3nW/tHnvJszFMdd9RRnpk5qLs5eiHPludb687Pz8/Pz/+l /9TP88/2j324PJPzvO25/XvV0Vwk/72pZX7V3Rwl9GfL861zxM/Pz8/P/6W/ fd/V7r+9XvtweSbk2f571dFcJPfPbWdLDi15mqNv+nMqB3PEz8/Pz8+f42/f d7X7T/WPPOWZnOfUe0AdzUXCObfdqe7mKDnPqftkc8TPz8/Pz5+zHz71nD+z f+Qpz+Q8W+4N1PHNuZjytDi31t0cZfZnmj8tN35+fn5+/k3+1/Zd7X77cHm+ kGeaUx3NRaOnxen72hx96Un7XjBH/Pz8/Pz8OX+fat93tftvr/e1fpBnZp5T dVFHc/Hl90670/e1OUroh9t5bs2Nn5+fn5+/0T+VT8u+q91/qr7ylOeXebb8 fVwdzcWX3zu3c5uqi7rvnqO0fKbutVr6kJ+fn5+fv9F/6udvP0/bd6X50/pH nvJs9HhPmovkPFvu09LeJ2l+c/TN98XUelv6kJ+fn5+f/wV/2r7rVD6v7Rvt w+WZnOft/F97T5qLN/NsuU+7ndtrdd86Ry2fv7UP+fn5+fn5X/C3nB/tG7/p H3nK84V5V0dz0Zjn1Hyl5dbuT5ujtHzS3gNb+5Cfn5+fn7/Rf/v5Vr/zlzzl mXNflHa+U0d5JuSZNkct75M0f9octX++PuTn5+fn5+/1T+270vaBLfvGtP6R pzwT8kw7p6ujuWjMc2tu7f72OWpZrz7k5+fn5+fv9U+tt91z6vPb+0ee8kzO M+09qY7ybMzzdm5p+5bX6p6WT9p6p3JLWxc/Pz8/P3+jf2q9aftY56+z/SBP eSbkqY476ijP2TzT6qjuZ/Nv+fwpT9pc8PPz8/Pz8+evt/3vd/bh8pRnTp7q uKOO8szMM62O6p7pSXtvt+fGz8/Pz8//sv9X59Tn336elmdL/7Sfv+S5I8/b ntu/Vx3NRfJcTM2Xume+D9PuS1s8+pCfn5+fnz//PJV2HknbB95eb3v/y1Oe CefxtN+rjuYi4Xs/bb7S1tVe9xZP+99/b+fGz8/Pz8/Pn38eue1JW699uDzl +f374XbO6mgukvPcem/wWt1f80z1Sfv88vPz8/Pzb/Knnb/SPKfqleZv7395 yjPhPsp7JrOOW/N8LZ+t60rbH7Z7WvaNad9r/Pz8/Pz8m/xp57v28+Cpn5/y t/e/POX5pT/t/fZaHeX5Zj5b18WT2Q9TTn5+fn5+fv7e9W49D7b70/pfnvJM OJelvd/UUZ7J+5C0uWupe5pnar2nPO1Ofn5+fn5+/u/3RWnP2/NJ86f1vzzl meBRR3ORcD8wlc9U/7xW9zTP1Hrbnfz8/Pz8/Py9+6K05+35OM/K8+U8Wzxp 57K03NLyn8pz6vPN3Y66p3mm1uvvlfz8/Pz8/Py313XKf/v3nnq+1d/e//Lc neft/NPuAbbW0VzMfv7WfUja/kQfnv38tPc5Pz8/Pz8/f77/1Lpafi9/V//L U55fnq9bzmXtdZRnV79trXuaJ61P0j7/dh1P/Tw/Pz8/Pz9/jt95kD+5/+Up zy/vtdTRXHyZZ0s+W+ue5nmtD9P27e3vQ35+fn5+/pf9zoNv+tv7X57yTHiu juYi4ft06j65pe5pHn34zbqmcuPn5+fn5+fft/9p2cem+Vvqnja/8pRnwnN1 NBfJOad50u5D9GFmH6b1FT8/Pz8/P/+9fdSUM61eaf7X9r3ylGdynuq4o47y nM0hre5pnrT9z+3PScthar38/Pz8/Pz89/ZRU86peqU9d/6Spzxz8lTHHXWU Z2YOt+ue5pnKP62v0v7umbZefn5+fn5+/u/327edW/M/1W+380nbJ8tTnsnn r9u/Vx3NxZd5pjnTPO19mLY/nLrvalkvPz8/Pz//C/7bnrT91VT+U+s61Q+3 n2+dX3nuzrP996qjuUjun9vONE/afuO2P60u7XXk5+fn5+d/2T/lSXOm7dOc vzLrK095fvn53jPmIjnPtO/Hltym+jCtz2/PRVpuU33Oz8/Pz8//sr9ln5B2 vmu/59x6/pKnPBPybLk3UMc352LK0+Lc2odpfX67vq/VkZ+fn5+fn793n7B1 nzbVb7fr0tJX8pTnl/60e4PX6ijPzO/NNGfa+6S9z9vft2k58/Pz8/Pzv+w/ 9Twt5637tLT1vtZX8pTnDc/tey11NBfJfT7lbOnDlj6/7WmvY9q+nZ+fn5+f v9Fvn9C1T5vqt/bzlzzlmXCPnVYXdTQXX37v3M5tqi4t/rQ+n/q9LXW87eHn 5+fn53/Zn7ZPSPvvGW470/qt/fwlT3kmnIvT3p9b65iW/2t5tu9D0t4nU5+f 5tlax7TvqZa+5efn5+d/0387h7S6pN13TdW3xe88K8/kPG/nn/b+3FpHczGb Z8t92u3c2j+/5d5Szrvfh/z8/Pz8/I37hLR7rZbzS7vf/MozOc/294w6mouE PKfmKy23lj5pv7d8LeeWOeXn5+fn53/hfiPt/qr9/NLu3zq/8tyRZ9p7Rh3N RWOe7XPUsi9q73M5n+1Dfn5+fn7+ZH/a93Jabu312upvOX/JU54J91rqaC5e yDMtt6nP996Qc8I9Hj8/Pz8/f4L/dg7tuW2952z3t5y/5CnP5OfqaC425ZmW W9r+M+3vaO11fO39zM/Pz8/Pn+z/9ffe/vytuW3dv6X5X+tDee7OUx131FGe s3ne/r0tnz9Vl9fqOJXzVJ78/Pz8/Pxf+l/bJ0zls/X80u7f2ofy3J2nOu6o ozy/mYu078epz2/p89fqOJUzPz8/Pz//Jr99wp/tl1r6jT+zD+Upz+T39qm6 vFZHc9E1F1N1b9/vpe0bt9ax/X3Cz8/Pz89vn5CTc9rfDU/lcNvT4m/f58tz d57tv1cdzUVyf6bVveV7Nm1fl7autH37qc/n5+fn5+dP9v/qnFpXWs5b+22q 7mn+lvmV55t5Tr0P1dFcJOfZ4pzqh5b1TvnT9oFp/cPPz8/Pz5/sP/Xzt3Nr ybml35xnz86LfpBnQp63nepoLhrzdJ82m1v739Gmnruf5Ofn5+fnt09Iyzkt N+fZzPOXPOWZfJ5VR3OxKU/3aZl1afGnzWP7+4Sfn5+fn98+IT/n9n677Wnx 6wd5Juc5VRd1NBeb8nSfllmXFn/aPPLz8/Pz87/sv/18yjmVQ1q90u6dnL92 vH/k+U2eLe95dTQXm/K8nXPa/qSlLi3+ln7g5+fn5+dv9Lecy6buA2/nllbH 27lN9cNr5y95duXZ4tn6njQX8kz4/mrZn7TU5ba/ZR75+fn5+flf8Lefy9Lu A9POj2n79rR5ee38Jc+uPG/nn/ae31pHc/Fmni25pdWlpW/b55Gfn5+fn3+T v+Xz05wt+7qWffvWe+aW85c8u/K8fa/V8p5sr6M838zzdm6v7QemPn/rPPLz 8/Pz8zf6T/38bc/tdbXv61rOs7fzafHfXm/aXMgz8/to6/m3vY7yfDPPtDpu 3ad5v/Hz8/Pz87/j37qvaNnXTa2r/fzS7r/9npHnm3mmvR/U0Vy8kGfaHKXN e1puU/2QNo/8/Pz8/Pwv+NPOZadySNtHpfXPVM5b/WnnL3m+mWfa+Vcd5Zmc Z9qctrwf2nOb6oe0eeTn5+fn52/0336eto+aWm9L/6TlvNXvPCvPhDzVcUcd 5flNnlvnyD7tm35un0d+fn5+fv4E/9b9Z/t60/aN7eeXdn9a/8hzd57quKOO 8pzNs8WZ9jztfdVyX8fPz8/Pz/+y/7X9Z/t6p/p2a/+0+9vfP/L8Js/bntu/ Vx3NxaY80+ao5XPScr6dAz8/Pz8/P3/Oelv2n+3rTTsXp+XZ7neelWfCOTft 96qjudiUZ9p9Wvu93O3f6/3Gz8/Pz8+f77f/3LHetH11Wp7t/pbzizy78kw7 X6ujuXg5z7R7nrS5nuqHtBxa5pGfn5+fn//L73f7z29yvt0PU/vq9v5p90/1 mzx353nbqY7mQp6999Jpc532nkzrH35+fn5+/k3+qfVu3X+29ENaDi390+7X D/JMfh+qo7mQZ869dFod0/ohLQd+fn5+fn7+nPVO7Tda9lFT++e0fkvrnzR/ y/lLnl15TtVFHc2FPHPupW/XayrP9n7m5+fn5+d/2d+y3tuetP1kmrN9Xqb6 J83fcv6S52yeLe9DdTQX8sz5nkp7b7hX5+fn5+fnf8ffvt5fPyetH9Kcafls 7Z80v37YnWeLJ+2cnpZbWv7y3J1nS72m8kzLh5+fn5+fn3/fetPynNqHt/Tb 1vNLu18/7M7zdv5p929b62gu5PnlXLfUayrPtHz4+fn5+flf9m9db/v+/PZ5 sz2f27lt9esHeW56z6ijuXghz7S5vl2v9jzT+pmfn5+fn3+T/7X1pu1/ptbV nk/L+aXd7zwrz03vGXWU5wt5ps11Wv+kvSfT+pmfn5+fn7/RP7Xe2/7bz9Pq m/Y8bX/LnzkvW9+fr+XZcl5WR3m+nOfW+U1zptWLn5+fn5+ff9+9R5onbZ88 tf9My5N/dn7luSPPtHOoOspTnjlzmlbf2/2Ztl5+fn5+fv5N/pb9Z9q90+3P n9oHTu3P2+flNX/7+0Ses3mq4446ynN3nmnPb9e3ZX/Fz8/Pz8/Pn3OP0ZJn yz3GVJ/fzjNtXqbq0uJvf5/I85s81XFHHeX5Zp5pz6fy0c/8/Pz8/Pz5/vb1 tuwnpz5nyjm1v20/v7T7p/pHnt/kmdbPp+ryWh3Nxe480+6j0u670t6T/Pz8 /Pz8/Pf2Y+3rncqhfZ+c1g8t89Ky3047f+mHHXm2/151NBfJeU552p+n9UN7 P/Pz8/Pz8zf6t+4/p3K47Zn6e6552bHfdp6V55fn69s5q6O5eCHP2/lvfZ7W D/z8/Pz8/Pw5+5+W9ablcKqvptb72rxM1aXd/9r7RJ5nPz/tvaSO8kzOM+0e qeV5Wj/w8/Pz8/Pz23+253Dq82/XZeu8bD2/pPn1w+4805zqaC4S8mzP57Xn af3Az8/Pz8/Pb/85dU+Y1ldT91r655t5bPfrh915TtVFHc1Fcp4t+aTVZcqf 1g/8/Pz8/Pwv+O0/z9arxXlqXWnnyq3985pfP+zOs6XP1dFcJOeZ9j3SUhf9 wM/Pz8/P/47/tidtnzN1/9PeV2nPW/pnah7b/fohM88Wj7kwFwl92J7P1rps nS9+fn5+fn7+/P1V2v6zxTlVx639034ebPfrh8w8b+dvLsxFY55pc5e23pb3 Q9p88fPz8/Pz89t/pnlOOVvqmLY/P+VvPw+2+/VDZp63z63mwlw05pk2d2mf P9WfU/Xi5+fn5+fn//4+xP6zy9lSx639k1bHdr9+2JFny32XOr45F7fzaZm7 qTqm9Wf7fPHz8/Pz82/yn/r823m27w/VcTb/lv5Jq2O7Xz/syLPlvksd38yz pV4t+bT3Jz8/Pz8/P3+O/9Tn//o5p56n1WtrHdPOlVv7J20e2/36YUeeafdd 6ijPTd+nafVK609+fn5+fn7+HL/952y9Wu7TpnLQP13z2O7XDzvyVMcddWz5 vktbb1o+t/s/rT/5+fn5+fn5c/ynPt9+/ps6pt0Xpe3PX+uftPNOml8/7M5T HXfUcSrPls9vz+eUp6U/+fn5+fn5+XP8pz7/dp5b9/Np90Utz/XPN3m2+/VD Zp63PebCXGz6/Kn9RpqnpT/5+fn5+fn5c/ynPv/Xzzn1vL1eabndrntabu39 037PoB/ezLP996rjjrlI+/y0/UaaZ6o/+fn5+fn5+fP3h2n7LvXKzE3/dPWP e3790Jhn2j2DOr45Fy33SFP7jdv91tKf/Pz8/Pz8/L3P0/aft+ubludUn7f0 z+0c2vvnNb/3yY48t95jvFbH9jxf+76YWld7f/Lz8/Pz8/PnfP6pfG6vt30/ P3X+atnfpvVzWv+k5dni3/o+ac8zzamO5sL3Rc662vuTn5+fn5+fP+fzT+Xz 6+ecep52Lks7f9323+6f1+Y9bR7b/fohM8+puqhj5lzczietD7fOl/7k5+fn 5+fnb8nHfn7Wc9uZNl9pnjS/e7+u+X0tz5Y5VcfMuZiq1+26T72fW+rLz8/P z8/Pv8/fko/9/NnPT8ttKp+Wc0Ranu394H2SmWeLJ+17PC23tPzTPv92XdLe z2nzsrU/+fn5+fn5+Xvzub3elv18Wh+29E/aOaI9z9ueFr9+mO2HtPO+Ombm n/b5U99Hae/htH1Uy3ubn5+fn5+fP+fzT+Xz6+ecep6WZ1oftpwv9E/mPLb7 9cNsP7S/P7fW8bYnrb5TuU3NXdq8pOXDz8/Pz8/Pn//cfj4zz7R1nco/rR/S ct46j+1+/TDbD+3vz611bMnntvN2bi1/X2vPmZ+fn5+fn/+d/ecpj/38bB9O rTdtv/1a/6Tln+bXD7N5ttx3qeM3eU6ta6ouaf3QMi/8/Pz8/Pz8+f6W/eep fOR59nNa1pu2327PM20e2/36YTbPtPsudfzm/Zy2rpbczAs/Pz8/Pz9/+35V Pmeft+fZvt7281Ranmnz2O7XD7N5quOOOk7dh6fVseV7LS1nfn5+fn5+/nz/ a/nYz3+TZ/t6p+Z0a55p89ju39oPt/OZqstrdWyfi9f2k2n1asmZn5+fn5+f P9/fsv885bGf/ybP2+tKu9fSP7Pz2O7XD2c9afdvr9WxfS5835kXfn5+fn5+ /h3+lv3nqXzk+U2eLfcYaTnon7OeFr9+OFvfrfckLXVMyzPNfzuHtPuurfPC z8/Pz8/Pn79P25pPWs5p+/n2Obq93tf6p30e2/1p/ZCWT9r5PW1d5uLPPFP+ tPsr88LPz8/Pz89/2//a/tN+/myeU/lM9UnL723POa3ftvrT+qHl86ecaesy F2fzaal7Wr+15MbPz8/Pz8+fsy+9/Tlp+Zxa72t5TuWT5kzLp6V/0vJs97f3 Q8vnp71X0/xpc9GST1rdW/otLTd+fn5+fn7+ff7XzmVpeb6Wz+2c2/Mxj2c9 Lf72fkj7/DRniz9tLtI+P+37qL3f+Pn5+fn5+ff5T/387edb65uW52v53L7X as/HPH6TT5q/vR/a3yfqmDkXaeudWldLv/Hz8/Pz8/O/4z+13tue9vq255nW /2n3ye35mMdv5rHd394PW+ei3d/ynkxb79T7qr3f+Pn5+fn5+d/xO5d9U9+t +/mp/k9bV0u9zOPsPKb5X+uHrTm0+9M8Leudcrb3Gz8/Pz8/P/8+/+3nzmXf 5Dn1+Wn9P1X3tL+nm8fMeWzxt9zDm4vd/rS+almveeHn5+fn5+ff6m/fj71W 39v5TOXf3v+3c0hbl3nM7JMpf5rHXLzpT+urlvXqN35+fn5+fv52v3NlZn3T 7oXS8kmre0u/mccd89jin5q7lrkw1119lbbetO/TU/72/Pn5+fn5+fl7/c5l 39R3Ks+WfNLqnnbvYR4z5/E1f8v3Ubvztbm23m/6Ycrfnj8/Pz8/Pz9/zn7v lOd2/q/tb6fynOqr9rqn9YN5zJzHrf60z3/N+as/7d7PejP7IS1/fn5+fn5+ /nf8LZ7bz1+rb0vOaZ7bdU+b95Y+eW0et/rTPr+9r1rmOi3PtPd2y9+PWvqN n5+fn5+f/x2/c2VXfVvynMqhve5p824eM+dxqz/t86fqkpZDmn/q7w5p+8w0 z6n+4efn5+fn5+dv8bSfy+TZlcPturecm9r7p70PX/O35JM272l1NKff1Le9 /6fqldaf/Pz8/Pz8/Pf8aZ8zlb9zemaeac4pT9q60upiHr+Zr7R+SMvBXJvT hHlp6f+p+eLn5+fn5+ff50/7nF8//9fPOfW8pb5b80xz3u6TtHNxS13M4w5/ ew7m+ps5vb3elpzb+/92Dvz8/Pz8/Pz8U572/bw8z3pa6p52zt3aP+bxTX97 DmlzvXVOp94DaetK65/bOfDz8/Pz8/Pzt3heO5e15DnlaTlftD83j115tvtf y6Hlvqt9Ttv//pJ279pSX35+fn5+fv53/Gme28/bz2UteU55XpuLrffq5nG2 z9P8t/thypn2fKouaXOXdi+U5m95D/Pz8/Pz8/Pv86d5XjtXyvPs57eca6bq uLV/Xqujfpjthyln2vO0e560z0/b16U9b7kP5Ofn5+fn58/3p3mcK+WZcJ+z tY6v9c/WOuqHs/2QNndT653qk6m+Sntv3M6/pa9u58PPz8/Pz8+/z5/2Obfz 3Houey3Plvu0qRz0j3l8uR+mPGl9m/Z7W/qqZT/WPke38+Hn5+fn5+d/x5/2 OVN53s5fnt/k+dq5IO0+sL1/zOOfedr9ac60+/yWe56WOqb1T3tf8fPz8/Pz 8/P/+ntfy/NUPvKczfN2zmlzrX8y+2Rrnlv9tz8n7f3T0g9b63g759f6ip+f n5+fn5+/xeNcKU/nAv1jHjPz3OpPq3vavKQ52+s49V6a6hN+fn5+fn5+/ts/ 71z5ZznIsyvPtNxu1z0tt/b+eS3Pdn/LPUzL/cmU87U63n4vpfXJ7fXy8/Pz 8/Pz9/pPrde58mz/yDMzz7Tc9E9X/7yWZ7s/7b4oLZ8WZ9q8t/Rby30gPz8/ Pz8/P/+vn3PquTzluSnP2783bb1pObT3z2vz2O5v7/O0+d1ax7TnU+tqrws/ Pz8/Pz9/r9+58s/Wu3U//1qeLeeI9v6Z6s80v3ns+r5r7/O0+rbXMe3+qn3f OzVf/Pz8/Pz8/Pv8pz6/5bxwe70t546teU55pnJO65+0c3SL3zye9U/VN63u afOy9T6t/XlaP/Pz8/Pz8/PzT32Oc+U3/SPPLs9tZ9q9RJonzW8e/yyflvre rntLfdPmKO192/I87T3Gz8/Pz8/Pz+9cOdsP8szMc8rZPo+3+62lf8zjN/OY 9n091Vft9U2bo5b1pj1vz5mfn5+fn5+f/9Q5a2uer507tuaZdn5v6Z/b582W /jGP38xjWv63+2RrfadyuJ1bWj63f+/UvPDz8/Pz8/Pzp51z0/y317v13LE1 z5Zz2e38p/qhvX/a80/LsyX/lnu5tPpO5TBV37T3fNoc8fPz8/Pz8/OneVr2 gWn7bXlm5pm2rlP5p/VDWs7mMTPPlvzNyzf1apmLtPvbljni5+fn5+fnf8c/ 5bn9fGs/yHNHnredaffwaZ60PNPyfy3PlvzNS+Z6b+cwdX+bVhd+fn5+fn5+ /nZPi9+5Up5fnl/S1jv1ntQ/5vHl7xf1PetJe5+n9WH7HPHz8/Pz8/Pv86d9 zq+f3+K/vd72c4c8d693698FWvrntTxve27nn5bPa/VNy7nlPZA2R/z8/Pz8 /Pzv+NM+59Tnt/hP9YM838yzfb1T58qteZrHP/Ok3W+Yly7PbWf7e4Cfn5+f n5+ff8rf7knzO3fIM/kee6q+U+d3/SPPxnsk83K2vrc/J23/Y5/Gz8/Pz8/P z9/lafE7d8gz+VwzVd+0HPTPbJ6380m7R0p7vnVeWu5LT/X5VJ/w8/Pz8/Pz 80/5289l7f7b632tH9LynMqn5Zy19f1sHmf7/3a9ts5X+7y09OHt3NLWy8/P z8/Pz89/+/O3nsva/af6QZ6ZeU7lM9UnLb+3Pee0fkv7vmt5rr6z/dByP9ne J/z8/Pz8/Pz8v37+r59z6vntPNv9+kGeCfmkOdPyaemftDzT8pmq41TdX5uX tH1FmmeqT/j5+fn5+fn5085TLXm2+7eeO9rzfC2f2zm352Mez3rS7kVb5i6t vi05t+Tf4uTn5+fn5+fnv+13Ltvh1w+Zeb6Wz+17rfZ8zGNmPredaf3Tsq52 T9q+sb1P+Pn5+fn5+flvP996Lmv364fMPNPO6Wlz1J6Pecx8P6fVMS2ftPq2 eKbmVJ/w8/Pz8/Pz8/+Z/9fPOfU87Zyb5tcPs/3Qks9U/6Q9T7u3TPPfXm+a P62Oafmk1bfF074ufn5+fn5+fv52v3PZn+WT5tcP3/RDe79NvQ+ncki7rzCP O/rkdh3VN9PTvm98rS78/Pz8/Pz8/M5lO/z64Zt+aO+3tPv/9vsE87hjXtLq qL5/tt60OrbkzM/Pz8/Pz8+/1X97vS379na/fvimH9LySat7S7+Zxx3zuLWO aflM5dbSb6/NET8/Pz8/Pz9/i//Xzzn1PG3fnubXD7N5tuSTVve096153D2P 7f2cVt+0/m95P29dFz8/Pz8/Pz9/mt+57M/ySfPrh9k8p/qqve5p/WAed89j Wj+313fr/iot59sefn5+fn5+fv6tfvv2HX79MJvnVA7tdZ/qh7T+SavLVP4t 913q+03+7ifP9ic/Pz8/Pz8//2v+2+tt2U+2+/XDbJ4t5760uns/Z9YlzdN+ 35KW55R/ak7TcrbP4efn5+fn5+f/xv/r55x63r5v1w/yTMjhdt3T7h+29k9L H055zF3mfN3O2f0kPz8/Pz8/Pz9/8r59Ks92v37oyjPNOeVJW1daXdrnMe3+ J62+LXM31Z9TuaXNUcu88PPz8/Pz8/On+Vv2vWnniDS/fujKM815u0/S7rta 6tI+j+3v7am5S3vu7wKz79uWeeHn5+fn5+fnT/PfXm/7uazFrx++yXPr/Uza /dXW/nltHtvf27edU++rlv5Mc7bkkPYe4Ofn5+fn5+dP2yfffj51bmrx64fZ fpi6n2mv49b+MY+Z/X97XVP9NrWuU/2Zdi+altvWeeHn5+fn5+fndy77Js92 v374ph9anC11NI9ddbx9r5XWn1P9sPX+JC2fltym5pqfn5+fn5+fv92/9Vx2 O580v374ph9anC113No/aXWc8rSsqyWftP6c8pxyptUrba75+fn5+fn5+dv9 t9ebdr7e6tcP3/TD7dy21vG1/kmr45Rnal0t90hTOaT1W9o+bet7iZ+fn5+f n5//Nf+vn3Pq+dT5usWvH2bzbLlPm8pB/3TNY1q/tdR9aw5pnz+V2+3n3qv8 /Pz8/Pz8/Gf9afv8qTzb/fphNs+W+7SpHPRP1zym9VtaP7+Ww9Tnp+V26udv P+fn5+fn5+fnv/17W/JvP5dN5ZPm1w+zed7OOe38q38y+2Tq89vX1Z5DS3+2 9O3W9xI/Pz8/Pz//O37nsm/q1ZJnu18/zObZcu5Oe65/MvN8bV1p9zNb+7M9 t/b3Ej8/Pz8/P/8+/6/ONP/Wfa/zl37YlGdabrfrnpZbe/+k3ats7ZO0ftva ny25tfQJPz8/Pz8/P/+pn2/Pv2Xfqx/0w6Y803LTP5n9M+VpWdftz0nrt7T+ bNkHvtYn/Pz8/Pz8/PzOZV37Xv2gHzblefv3pq03LYeW/rmdf9p9V1r/uGeb nfe03NLWy8/Pz8/Pz8/vXH/2+dY82/364Zs80859aefBtH5O65+p+Uq772qZ o7T63u7PtPvPtNzav9f4+fn5+fn5e/23n2/Nf2ue7X79MNsPLee+lv557fsl bb6mnrffp73Wn3LL7H9+fn5+fn5+/lM/355/2jlXP+iHhDynPLedae/zNM/t uqTN19a5vt1v+lNuyf3Pz8/Pz8/Pz5927pjK3z3JDr9++KYfbn/Oa+fBqXNx 2vskzdM+R2nP2/c/Lfddabnx8/Pz8/Pz80/5neu/qVdLnu1+/fBNP7TkNtU/ Lefi9vlq6auWeW+Zl5Z5fO17gZ+fn5+fn58/7VyT5k/b57fn2e7XD7N5pr33 XrvnSfO335OkvVfTnC3vgbS5e61P+Pn5+fn5+fmn/Kd+vj1/9yT6QT/03gNM 9f9UP6TdU93ut7R+TqtXWv9vXW/L723PjZ+fn5+fn5//tse5/uy5piXPdr9+ mM3ztjOt/9M87Z/f0s9peab1/9b1tvxefn5+fn5+fn7+v/585/o382z364fZ PNvXm3aun8qzZb7SPkf/f9M/Lf2vT/j5+fn5+fn5z/pvP9+a/9Y82/36oSvP 9vWax7M53/a39PlU/6c9n7oHa8+Zn5+fn5+fn5//rz0t/pbzTkue7X790JVn +3qnvhfS8pyao619vvUe8nYdW/q/ZV38/Pz8/Pz8/Ld/b9rfN9P8t9f72j1J u18/dOV5e11p91pb+6flHiatz1/zt3y+71l+fn5+fn5+/r/+/JZzTbv/VP/I c4dfP3Tl2X5voH+6+iGtz29/zu2+Sqtj2ly0zzU/Pz8/Pz//O/5fnVP+28+3 9s/WPNv9+mG2H157b6d9X7yW82t9nlb3lvu09n7j5+fn5+fn55/yn/p5/tn+ cU+iH/RDTj5TfdLye+X8Zp+n5Xkqt7T71bR+4+fn5+fn5+ef8refa9r9t9eb dj7SD/ohuR+m3s9Tf095rX/Scn6tz6fm6JRzql5pOfDz8/Pz8/Pzt/jbzzXt /lP9I88d/q398Fo+t3Nuzyft+zTN2VLHtM8/lbPvKX5+fn5+fn7+TP/t5/yZ /bM1z3a/fngzn9v3Le35tHi29nnLezvtXjSt3/j5+fn5+fn5X/Of+nn+2f5J Ox/pB/2QnM/UeqfutdLySfOkOdPqOPW+SuuH9rng5+fn5+fn53/N/9q5OM1/ e73uSbr8af2wNZ+p/kl7vnUe9Xlmf7b0w9a54Ofn5+fn5+d/zd9+T9LuP9U/ 8tzhT+uHqc9Pe99O1T3tHqBlHttza5+7tHv4tPq2f0/x8/Pz8/Pz80/5bz/n z+yfrXm2+9v7Ie3eaaq+LTmkraulXmm5tfTbVD9M9VVaDvz8/Pz8/Pz8r/lP /Tz/bP+035Pohx394LyZOUdp93jt9UrLrWXuWnK43T8tc8HPz8/Pz8/P3+5v P9e0+2+vt+WeRD/s6IeWfNLqnnZf8dr7pD23lrlLu+9Nm/e0ueDn5+fn5+fn b/e3n2va/af6R547/O39MHWubK97Wj+8No/tubXMnXunrrng5+fn5+fn50/z 337On9k/W/Ns97/WD1M5tNd9qh/S+qfl/iQtt5a5m3L6nuLn5+fn5+fn3+E/ 9fP8s/2Tdi7WD/ohOYf2ut9eV0v/tKx3ao6m5q7dOVVffn5+fn5+fv4Wf8u5 IG1/+5r/9nq33pNs9b/WD1vrfvteq/2+sb0uaf051YdbnWnr5efn5+fn5+dP 26+2nAv4d/S/PHf4X+uHNOeUJ21d6vLNeyNtLl5ztqyXn5+fn5+fnz/tXDbl v/2cP7P/t+bZ7tcPXXW/3Sct9w8tdUlzpr1P0vqtvV78/Pz8/Pz8/O3+Uz/P /6bfPYl+eKEftt7PpN0nbO2fqc9Pe2+09+HUeyatLvz8/Pz8/Pz8Lf60/R5/ l//2ep1zu/xp/TDlabkPaX++9X3S0j9T98Yt911pfcXPz8/Pz8/P/5p/67mA v6v/5bnDn9YPU55TzpY6pv0d55R/ah633qe1P2/vK35+fn5+fn7+dv/t5/y7 /S3n65Y82/3t/dDubKnj1v6ZquPW+7T25+19xc/Pz8/Pz8/f7j/18/xv+lvO 1y15tvvb+6HlPq2ljq/1z1Qdb+fcst6051vf8/z8/Pz8/Pz8Lf72cwH/rP/2 el8757b72/uh5T5tKgf9kzmPt+s7tW9p+b3t7wd+fn5+fn5+/q3+9nMB/47+ l+cOf3s/tNynTeWgfzLnsSW3tN/rPc/Pz8/Pz8/P3+W//Zx/t985Vz+83A+3 c077HtE/mX1ye71TuaX9Xu95fn5+fn5+fv4u/6mf53/T75yrH17uh7T7opbn +mc2z9u/d8rfUhd+fn5+fn5+fv5v/O3nAv5Z/+31vnbObfe/1g9pud2ue1pu 7f1z25N2HzVV97Q+5+fn5+fn5+fn/8bffi7g39H/8tzhf60f0nLTP5n9M+VJ u49Kq4v3PD8/Pz8/Pz9/l//2c/7dfudc/aAfcu430tablkNL/0x5bju9J/n5 +fn5+fn5+RP2q/z87kn0g374Zr23c2jpn6n+bPGn9Xlan7T3OT8/Pz8/Pz9/ i799X83P755EP7T3w5Qn7Xtn6/3J1vdJS5+f6pO03Pj5+fn5+fn5+b/ZH/Lz J/tPza88d/jT+mHKc9uZdv+W5tnqb88trS78/Pz8/Pz8/Px/5pzy337Ov9vv nkQ/bOqHKWd7/9zut5b+Seu3qf2M9yQ/Pz8/Pz8//w7/qZ/n52/0uyfRD5v6 YevfL1rW1d4/af3W4rmdMz8/Pz8/Pz8//1nP1nMKP3/CuXhrnu3+9n6Yuk9L u3+b6oe0/knzpN2PTTnb35P8/Pz8/Pz8/C3+9nM6P3/C/Mpzh7+9H9LWdSr/ tH5Iy7nFk5az9yQ/Pz8/Pz8/f5f/9nN+/mR/2rm4Pc92/2v9cNuZdv+Q5rmd Z5qnPWfvSX5+fn5+fn7+Lv+pn+fnb/S7J9EPL/dD+3qnvpfT9gMtnvZ13c6B n5+fn5+fn59/dp98e738/I3z235voB/e7If29boPmc3htZyn5uj2evn5+fn5 +fn5t/pbzmX8/MnzK88d/tf6oX29afc87flM1b0l55a55ufn5+fn5+ff6r/9 nJ8/2d9+zk3Ls92vH87mNlXfqXuelv1A+31pS84tc83Pz8/Pz8/Pv9V/6uf5 +Rv97efctDzb/frhbG5T9U3LYWs+7p3Ozik/Pz8/Pz8/P/9Zf/u5jJ8/YX7d k+zwp/XDVD4t//1P2vdpi//2e0nOZ+fr9nr5+fn5+fn5+bf628/p/PwJ8yvP Hf60fpjKZ6rPW35vu//U75Xzm+9Jfn5+fn5+fv4p/+3n/PzJ/vbzV1qe7f72 fpjKJ82Zlk+L//bvlfOO9yQ/Pz8/Pz8/f4v/1M/z8zf6289faXm2+6fe5+35 3M65PR+5ZeY85T/18/z8/Pz8/Pz8U/6Wc277OZ2fP+H9495sh/+2Z2s+t+9n 2vNpye21nKf87X3Oz8/Pz8/P/46//ZzLz/+y/9T7R547/C31nVrv1P1MWj5p 75PbdTSn3pP8/Pz8/Pz8u/2/Oqf8t5/z8yf7289faXm+5m/JZ6r/056nfV9P 1Xcq5/b3dsu88PPz8/Pz8/Of8p/6eX5+/t73T9o5Vz/M5pmWz9T371QOr92H tPz9rj3nlv7n5+fn5+fn57/taTnn8vO/7L+93tfuzbb62/NJuzeYmpeW98nU 702752y5p23Pn5+fn5+fn59/6zmXn/9l/6n3jzx3+9PySevblnlpeZ9s7cPb dWx/z/Dz8/Pz8/Pzp+3f+Pn5c/zt59y0PNv9W/NJ69u07/f298nWPkzzt+fP z8/Pz8/Pz/+r/9TP8/Pz975/3Ju92Q9TObT3bVo/TPXP1Offnus0T1qf8PPz 8/Pz8/O3+NP2e/z8/O+cc9PybPe35NDet+5DzuaWNtdpntt9xc/Pz8/Pz8+/ 1d9+zuXnf9l/6v0jzx3+lhza+3brfmCqLqecafXd+p7h5+fn5+fn55/y337O z8+/7/2zNc92/9Ycbvft7XuPrfuBlvdMS33T1svPz8/Pz8/P3+4/9fP8/Py9 75+0+wf9kNkPac4pT9q6pvq/5T6tPWd+fn5+fn5+fv6znpZzLj//y/7b6007 F+uH2X5Ic97u87T7rrT+n7oXneqflrnj5+fn5+fn5+f/689vOefy87/sP/X+ kecO/9R6p/o27f6qvX/S1pXWP94z/Pz8/Pz8/Pyz/tvP+fn5971/tub5mn/q HqO9D/VP5rrsu/j5+fn5+fn5+f9vztH8/Pw5fvdm+iHBczvntD58rX/S7pHs u/j5+fn5+fn5Z/1p+/NfP5+fnz/ff3u9W+8rXvO3OFv68LX+SXuP3c6tPWd+ fn5+fn5+/tufn7Y/5+fn3+c/9f6U527/7bpv7UP9c9af1m9bc+bn5+fn5+fn //Xzf3VO+W8/5+fn3/f+3Jpnu7/lPud2H57K4bX+SfOn9dvWnPn5+fn5+fn5 0+7B+Pn5+dvPj2l5tvvT+qTl70H6P7P/0/pta878/Pz8/Pz8/L9+fss+mZ+f v9d/e72v3Zu1+9P65HZuafdd7f1zO4e0fm7PmZ+fn5+fn58/bb/Nz8/Pn/b+ lOcO/1QOt9eb9jwth6mcW/o8zd/+nuHn5+fn5+fv9d9+zs/Pz3/q80/5t+bZ 7m/J4XYfvtb/aZ/f3ufeM/z8/Pz8/Pz8f7Yf4+fn5z/lbz8/puXZ7r/dD2l1 39r/afc5W/t8yj81L/z8/Pz8/Pz8pzyvnRf4+fl7359b7w30w+x603JIuz9J m8eW+700f9rc8fPz8/Pz8/Pf/vyWcyI/P3+v/9T7U547/FPrvZ1DS/+nebbe 77XPKT8/Pz8/Pz//lP/2c35+fv5Tn3/KvzXP1/wt9x4t/Z/mSevzNOftueDn 5+fn5+fnb/ef+nl+fn7+Xz3uzfRDgue2M23/YB7POtPWNdX//Pz8/Pz8/Pxp /pZ9KT8//z7/7fVuPae/5r/9OVv/bjXlaZnH2+udWpf3DD8/Pz8/Pz//X39+ y/6Nn5+/13/q/SnP3f6Wuk/1f9rf0dLq0nI/1j6n/Pz8/Pz8/PxT++1Tz/n5 +flPff4p/9Y82/1p90tp9Uq730vzT623fV38/Pz8/Pz8/Fv9p36en5+f/1eP ezP9kHy/lFavtPu9NH9a37as63bf8vPz8/Pz8+/zt+x/2vdv/Pz8vf7b633t nN7uv51D2nrb7/fS/C33gbfXlda37XPHz8/Pz8//sr/9nMXPz8/f/v6X5w7/ 7Rxu98/teqXl35Jny7rS+n/re4afn5+fn58/Z3/Ssn/j5+fnd07XD8n3Ei3f 7y35t+R529++752aO35+fn5+fv6cfS8/Pz8//197nNP1Q/K9REueafm35zn1 XmrJob2O/Pz8/Pz8/N/vi/j5+flf899e72v3Zu3+lvWm/XdBafmn1SutD9tz 4Ofn5+fn53/H337O4ufn529//8tzh39qvVN91ZJ/Wn9Orff2vVZLn/Dz8/Pz 8/P3+m8/5+fn59/qbz+np+X5mj/t3kD+mf15Ks+pdbX3CT8/Pz8/P3+v/9TP 8/Pz87/md2+mHxI8t/sqbb2vzdfU/lOf8PPz8/Pz87f70/ZL/Pz8/C3+2+t1 rt/hT3O+ln/7fKX9vfW1PuHn5+fn5+fv9b+2D+Tn5+c/5f/1c04935rnVv/t uqflb77O9udUvdJy4Ofn5+fn5+e//Zyfn59/q9+9mX5IyKc9f/N1tn/MKT8/ Pz8/Pz//X3v4+fn5+f/a495MP3x5z5B2n5aWp/kyp/z8/Pz8/Pz8m/aB/Pz8 /FP+2+t97Vzf7k/rk6l6tec2lU9Ln7fPKT8/Pz8/P/87/vZzFj8/P3/7+1+e Z/1T9U3rk1NO8/VNv7XUhZ+fn5+fn59/yn/7OT8/P/9Wv3P9jn6Yqu/tuqfd w6TllubZWhd+fn5+fn5+/in/qZ/n5+fnf83v3mxHP0x9v7fcC6X1Q1rOt98D LXXh5+fn5+fnf8ffck5pP2fx8/PzT/lvr/e1e7O0e4mpumy9h0lbb9r+0Jzy 8/Pz8/Pzp/nbzyn8/Pz8/LPfX/I862+vS/s9TMt6f/Wn9Xn7nPLz8/Pz8/Pn +H91TvlvP+fn5+ff6ndvtqMfbud/+14rbd8ylUNaHdP6nJ+fn5+fn5//V/+p n+fn5+fn7/K7N9vRDy37kKl1teSQVsf2nPn5+fn5+fn5288p/Pz8/Px/5r+9 3tfuzab8afdCafczaetqqWN7zvz8/Pz8/Pz87ecUfn5+fv7Z7y95nvWn5X/7 96blr447cubn5+fn5+ff57/9nJ+fn58/0+/ebDbPtPzTnPrnmzxfy5mfn5+f n5//Hf+pn+fn5+fn7/K7N5vNc2r/MOVMu09r6Z80Z3vO/Pz8/Pz8/O/42/eZ /Pz8/Px/5r+9Xvdm3+Tf4my590vLP83ZPqf8/Pz8/Pz87/jbzyn8/Pz8/LPf X/L8M8/tPNv7JC3Plrp77/Hz8/Pz8/Nv9d9+zs/Pz8+f6U+752nP87Yn7fNv 173FmVaXtD7n5+fn5+fn55/yn/p5fn5+fv4uv3uz2X5I2z+k1X2qH9w7ne0H fn5+fn5+fv4pf/s5hZ+fn5//z/y315t2f5LWD7dzS1tXy3xN3Wdu7XN+fn5+ fn5+/rR9Xcs5hZ+fn59/9vsrLc/2fNL6JK3/p+p1O5+W9wY/Pz8/Pz8//5T/ 9nN+fn5+/ky/e7OznlP5p/VJWr2m5iItn639wM/Pz8/Pz89/yn/q5/n5+fn5 u/zuzWY/v6VP0vJsqcvW9wY/Pz8/Pz8/f8u+MW2/x8/Pz8//jf/2elvuzaY+ f2o/M3X/lnaPlJZDy3uDn5+fn5+f/x3/1n0+Pz8/P/9u/6+fc+p5Wp7t+Ux5 0vyn6u69wc/Pz8/Pz/+a/1fnlP/2c35+fn7+TL97sz/Lc2qf0OJMm8fbdd/a 5/z8/Pz8/Pz8p36en5+fn5+/8fv3tXuzqRxanFvvkW73bdp6+fn5+fn5+fnb 9/n8/Pz8/G/6b693673ZVA4tzrT7LvtGfn5+fn5+fv6zn9+yz+fn5+fnf9P/ 6+ecet6e51QOLc60+660uWvpc35+fn5+fv59/tvP+fn5+fn5N33/vpYn5+zz tPzb+5yfn5+fn5//Hf+pn+fn5+fn52/8/nVv1rVvuV3ftOdp+bf3OT8/Pz8/ P/87/vZ9Pj8/Pz//m/7b622/N5u6b5mqe9o91db8+fn5+fn5+flb/O37fH5+ fn7+N/2/fs6p51P3GLc9U8609aY9T5s7fn5+fn5+fv4p/+3n/Pz8/Pz8m75/ 0/Kc8pxytvRzy3PvDX5+fn5+fn7+P9t/8vPz8/PzJ/jdm539/Cnn7Tq25Nky d/z8/Pz8/Pz8Lf6t+3x+fn5+/t3+2+ttuTdruU9L69u0PFvmjp+fn5+fn5+/ xd+yb+Tn5+fn52+8b7mdZ8t92lQdW/JsmTt+fn5+fn5+/in/7ef8/Pz8/Pyb vn/b82y5T7tdl6k8W/qEn5+fn5+fn7/df+rn+fn5+fn5G79/X7s3u53z1H1U S54tfcLPz8/Pz8/Pf/v3Tv2dlJ+fn5+fP9l/e71b781u32vZd+2eO35+fn5+ fv53/O37ZH5+fn5+/kb/r59z6nl7nmm53c4/rW/5+fn5+fn5+dP8vzqn/Lef 8/Pz8/Pzb9o/vJbn7dzS+tnc8fPz8/Pz8/N/s2/k5+fn5+fnd282lWd7HdNy 5ufn5+fn5+dv8bfvk/n5+fn5+Rv9t9fr3mxHHdPWy8/Pz8/Pz8/f4m/fJ/Pz 8/Pz8zf6f/2cU89v5zmVz+1+SMvZ3PHz8/Pz8/O/5r/9nJ+fn5+fnz9n/5CW 51Q+t/shLWd+fn5+fn5+/tf8p36en5+fn5+f//v9Q/u92VQ++pafn5+fn5+f f7f/tX0yPz8/Pz9/gv/2eqfyb8lH3/Lz8/Pz8/Pz7/a3/32Zn5+fn5+/0f/r 55x6Lh99y8/Pz8/Pz8/f6L/9nJ+fn5+fnz9n/9CSz9R609bFz8/Pz8/Pz8// Z/5TP8/Pz8/Pz8+fv39oyedUnu3r4ufn5+fn5+fnP+vZ+vdlfn5+fn7+BH+a p31/0lJ3fn5+fn5+fn7+b/ynfi8/Pz8/Pz9/zv7h9uen1bel7vz8/Pz8/Pz8 /Gd/76nn/Pz8/Pz8/Pn7h7R8ttadn5+fn5+fn5//G/+pn+fn5+fn5+f/fv/w 2v6kve78/Pz8/Pz8/O3+lv3b1N9/+fn5+fn5X/bfXu/t+7SperXXnZ+fn5+f n5+/xd++f+Pn5+fn5+fv3f+cen47B3Xn5+fn5+fn58/0/+qc8t9+zs/Pz8/P z5+z/2nJYWvd+fn5+fn5+flb/Kd+np+fn5+fn/8df8u92VQOt/tE3/Lz8/Pz 8/Pz/5mnZf/Gz8/Pz8/P37v/SfvvrNL+vmnfyM/Pz8/Pz89/9vPT/j7Lz8/P z8/Pn+P/9XNOPZ+6d0rLTd/y8/Pz8/Pzv+a//Zyfn5+fn59/nz/t3myqXi25 6Vt+fn5+fn7+1/ynfp6fn5+fn5//Hf/U/ueUp8WZVvf2vuXn5+fn5+d/x5/2 d09+fn5+fn7+fH+755Qz7f5N3/Lz8/Pz8/Pzn9138fPz8/Pz87/j//Vzbn9+ 2j5ta935+fn5+fn5+af8t5/z8/Pz8/Pz7/On7X9u5zZVx7S68/Pz8/Pz8/O3 +E/9PD8/Pz8/P/87/ql7s5b7tK115+fn5+fn5+dv8aft9/j5+fn5+fnz/bfX 236ftrXu/Pz8/Pz8/Pwt/qn9JD8/Pz8/P3+v/9fPuf186j7ttbrz8/Pz8/Pz 80/5bz/n5+fn5+fn3+dvuTe7fa/1Wt35+fn5+fn5+Vv8p36en5+fn5+f/x1/ y71ZWm7tdefn5+fn5+fnT/v75q+fz8/Pz8/Pz88/td6pHNSdn5+fn5+fn//s Po2fn5+fn5+fv8V/e732jZl15+fn5+fn59/n/9U55b/9nJ+fn5+fn5//9r1W y77xtbrz8/Pz8/Pz9/pP/Tw/Pz8/Pz8//1Z/y31XWm78/Pz8/Pz8/FP+qb8z 8vPz8/Pz8/O3+Fvuu9Jy4+fn5+fn5+ef8p/6vfz8/Pz8/Pz8W/1p910tufHz 8/Pz8/Pz3/69p57z8/Pz8/Pz87/mlxs/Pz8/Pz8//1nn/wbdqGvQ "], {{0, 0}, {201, 401}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.699653818425666*^9, { 3.699653864863899*^9, 3.699653872636339*^9}, 3.700314345468001*^9, 3.7003143897359962`*^9, {3.7003144201514*^9, 3.700314443909142*^9}, 3.700315224638912*^9, {3.7003152631563272`*^9, 3.700315276671673*^9}, 3.790589565665846*^9}, CellLabel->"Out[60]="] }, Open ]], Cell["Find the initial condition for the cellular automaton:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.6996537640862923`*^9, 3.6996537712141848`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{"\"\\"", ",", "All"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.699653711432837*^9, 3.69965372888794*^9}, {3.699653929196651*^9, 3.6996539559030333`*^9}, 3.7905895691968727`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.699653935272913*^9, 3.699653956697111*^9}}] }, Open ]], Cell["", "Input", Editable->False, Selectable->False, Deletable->False, ShowCellBracket->False, CellBracketOptions->{"OverlapContent"->True}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 30}}, CellSize->{Automatic, 1}] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, DockedCells->{}, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (February 3, 2020)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1486, 35, 102, 1, 70, "Subsection",ExpressionUUID->"ad20f4a1-d78d-4ddc-b2fb-98bf009039db"], Cell[1591, 38, 200, 3, 70, "Text",ExpressionUUID->"b417935c-9f81-41b4-87c6-9b073993530c"], Cell[CellGroupData[{ Cell[1816, 45, 329, 6, 70, "Input",ExpressionUUID->"5386e5e0-d0c1-4f4c-9d5b-68c61255b491"], Cell[2148, 53, 9048, 233, 70, "Output",ExpressionUUID->"8acc47b1-322b-4d40-8c8f-46e6b8fdfa65"] }, Open ]], Cell[11211, 289, 365, 5, 70, "Text",ExpressionUUID->"58833283-bc7e-49a1-9299-a817133ec5d9"], Cell[CellGroupData[{ Cell[11601, 298, 4768, 116, 70, "Input",ExpressionUUID->"fab545ab-3255-4cf5-b81e-27c1f756c3e9"], Cell[16372, 416, 24699, 412, 70, "Output",ExpressionUUID->"6d459433-fec2-40f0-bfcd-d949b07279dd"] }, Open ]], Cell[41086, 831, 387, 5, 70, "Text",ExpressionUUID->"31460422-394a-4a57-a4fe-ee9c26cf13db"], Cell[CellGroupData[{ Cell[41498, 840, 579, 10, 70, "Input",ExpressionUUID->"b0e4a814-c39d-4a7b-bf96-2a90740ed77d"], Cell[42080, 852, 7109, 93, 70, "Output",ExpressionUUID->"10675b4a-34b3-4273-bdd5-36bc255401a8"] }, Open ]], Cell[49204, 948, 235, 7, 70, "Input",ExpressionUUID->"72063c43-f906-4511-a943-c06dbc4a7d47"] }, Open ]] } ] *) (* End of internal cache information *)