(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 1074894, 23753] NotebookOptionsPosition[ 1046896, 22805] NotebookOutlinePosition[ 1047471, 22825] CellTagsIndexPosition[ 1047428, 22822] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["P-Set 2 Solution Set ", "Title"], Cell["Solutions created by Melissa Diskin", "Subtitle"], Cell[CellGroupData[{ Cell["I2-1 (Handworked, 5 points)", "Section", CellChangeTimes->{3.465651069951576*^9}], Cell["\<\ This solves for the intersection of y and z in terms of x and y.\ \>", "Text", CellChangeTimes->{{3.465651511325089*^9, 3.465651545404385*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"planesol", " ", "=", " ", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "==", RowBox[{"1", "+", RowBox[{"2", "x"}], "+", RowBox[{"3", "y"}]}]}], " ", ",", " ", RowBox[{"y", "==", RowBox[{ RowBox[{"3", "\[Minus]", RowBox[{"2", "z"}]}], "\[Minus]", RowBox[{"4", "x"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"planesol", "//", "Simplify"}]}], "Input", CellChangeTimes->{{3.4648092949903326`*^9, 3.464809302020333*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"1", "-", FractionBox[ RowBox[{"7", " ", "z"}], "10"]}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"4", " ", "z"}], "5"]}]}]}], "}"}], "}"}]], "Output"] }, Open ]], Cell["\<\ Here are the coordinates of any point on the line in terms of z.\ \>", "Text", CellChangeTimes->{{3.465651567965421*^9, 3.465651639869131*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"line", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "/.", RowBox[{"planesol", "[", RowBox[{"[", "1", "]"}], "]"}]}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.4648092878303328`*^9, 3.464809288885333*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"1", "-", FractionBox[ RowBox[{"7", " ", "z"}], "10"]}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox[ RowBox[{"4", " ", "z"}], "5"]}], ",", "z"}], "}"}]], "Output"] }, Open ]], Cell["Normalize to get the parallel unit vector.", "Text", CellChangeTimes->{{3.465651648858907*^9, 3.465651658594899*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Normalize", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "7"}], ",", "8", ",", "10"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.464810705576333*^9, 3.464810743064333*^9}, { 3.464810827795333*^9, 3.4648108333633327`*^9}, {3.464811142753333*^9, 3.464811150065333*^9}, {3.465651662555328*^9, 3.46565166317249*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["7", SqrtBox["213"]]}], ",", FractionBox["8", SqrtBox["213"]], ",", FractionBox["10", SqrtBox["213"]]}], "}"}]], "Output"] }, Open ]], Cell["Visual representation of this solution.", "Text", CellChangeTimes->{{3.465651707327657*^9, 3.465651716433168*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{"line", ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ Graphics3DBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData[" 1:eJw11fk/1AkfAHBXlMiw4TXb0koRWQmNTfhIEjmS9NC2uWpLEpKiFCmJliT0 krDsSEQkRyl8XGHGlWbGWbnlmvmOcc7RtvvL88P7b3hr+AS6/CEhJibm+B/J /zjT7u4wMhKC0uTapvZ2EeqDysz37wROGuQRQbuEoEcPodDpIgzka8byBQRG pDWVFe8Ugk3xcH5Lqwhflu3SWlgisPCsuJmunhCuXXmT0NAkQsPtjj6TswRK S4c7aGwTwpi0r9ubahGaKEYPtPcSWG0VcEFBVQjl2i0z1CIRWo7N0x+XEKhb 7VoyKxCA67k7iuHxInS521Fo5EmgZImGUW6DAB7NiXvqOIgwtCv6wtlaDo5z ncMybQVQzTFZKasTIpO5fqbem41BlXXDRT18yCMnB1y3EKJaXeBGk5/mMJJn cnn1DB9sPTZ1fawVYMX5pjUKn2fw3T3rg+3sVUjIGtZzMxagV/wubv+taczN SzKrvL4Kj2TazpHL+Lj6MDwWYQqr1EMCt0usgpU/j7pOm4/UDV/IaSOT6Czv 0dkTtwJPZ2xa7mauYsahXcGMuAlMiYx1fkJegc6kOtp+tVW85e8dpmM3jlJO tqSpv5YhzTiU9svDFQyXfB4azB7FLdm2C4f0l0Fb7Gj+MdIKet/s2tqTP4L1 vs4SM7VLEDhxImh90jKm1kykZfgNY0IC20nRZgncm3N2E9LL+HZou1zRli8o TWmrdWItgswHuQFSzBJqkiytXLMGscjUwn/jiUVwY5WHewkW8ZVurN/oWB8y K94cUBlbAK/FOGmLi4s49L70ZwqlB/PLL1npX1oAfbPooOPzCzihl2qIlQws UGi63snnQWbku96/zyygYkQBRV+8G904rgPRsTzonlVV153goR6F0Hu60I6G OuGXG+V58OxoqfeQOw9vW7M/VIW1YOJAvplF6jzsZoXe39I1j8quxQ+OqzZg moKqdtfWeYiLPJVOdZrHV8vvFVq3vsXO7B8PTz3nQsS2eKpLIxefDk4kTEcX Y2mFR7rqHi78utj/J+zj4skjP5UPnkpB3VuumtLJBByrKngbcpvAKtlwVsPl ZHA6opLAzubAjSiye3MAB3ePiqtHuZcAXfu4uTiyweAJoyzZn42a3Hd804Yq yK5s9t1Gn4OtRTKyNa5zaEft73Byb4Brhvvn6vtnIZ6baihhNYsHHJUklypa oLjCsvIefwZuxASQG/fNYKJn702D1+1gOu8rPCU9Ay9/qBcM7ZjGFic1eWel bvjZWOnuOc1pCOCdTA/bPoVsDeWIj+kMkD1N9/tqPQVZUsfkftH9ipdDdngn qvSAk8ML2uWjX4G0oTnMXGUSez+RXM609sHcXsVAg+BJkDsXRaVtnECvq2Zf ZRwGYXTsr0ThjQlweFfZWvptDBt3mNxrXPMFDJNLlnmPx2GjJ6VImT+KWuuq p3JthyFmZ2eFz9sxOEwh+aTyR1Ct+vyBNbEjYBytyh1tGYV2qdNKF8eHUUwg URA8OgqmwyNBiRMjkG8nJZHUOIQrR2o83m8bh/TFHn8H7jCYhhkzVx5+xkFj z03boifgn9mKKMnvQ/BKnmz/yH8Qg9xIils+TULYN6xsNv8CFjYPLfTO9yM5 ZdxdSm0K8iI3jz7/3ydwvvBd65pFLxafyH62EDYNMaSo9K+JAxBiIh6PFBa6 mUfattbMQFC4mKTyxz6I8H2daraHgaUeF7aYimZBzo3lfYrTA3Kx3ikXSd24 KrtfsuoYG37bV+Qou4MFXqmWm83InejSvZeilsaBuh9q5nU1WWB9xeqRuUwn yu5dX1+dyQGtyY5U+00sMHCzloelDqzPHbD/ncoB7j3ic/x6FoiRbYX7ujvQ IOyq95NiDsQwDQMU5piQnXG492BcB27Y/Dqe/J4D5Wer7m98wYRhqkfiUX47 0vwNx5R5HNhwv7lLfScTTr+6/t2vvw0t1+o82OBAQLBX7yXQZoJDcsQV/5Y2 XL24+mPxEQL6DKdUvTYzwTjkJvtCRRuWDLY8dXQjILd3nVeOAhOkKNGDQUlt qF5y5l28DwGmGo5cTS4Dcqv+fH3Frg1Fx3InZa8ScKacQdIpZcBUXXrgrSo6 vqZuNpfJI6AzZrzcroABH3IyJm8/o2OAPNGSV0iA4fEld78cBry5lXXyTiod tUJrXWxKCfjnm0pOYRID4q3/to+9SMeUQyd971QTkHLwt136wQzQay3Qvq9D x+D59GRJBgEC8nmWkx8DSAWFWYmqdNQ94adO7SPAay78aqAPA0RxL5ST1tBx pGlPgdUXAnSTMutfujCg3b5UMmWEhs5pfbVR0wQ8OFX8R/chBrzUK7uW2kXD tRL5dhoEAcu7cR3PigEZ8hXzj2poiOdDmXWLBPy+9sMLpb0MiOZU+qYV0vAK y8bTS0BA3cDwESMjBvh3vRl6/Jj2/x/hX16442w= "]]}}, Axes->True, PlotRange->{{0.3000000285714286, 1.6999999714285714`}, {-1.7999999673469387`, -0.2000000326530612}, \ {-0.9999999591836735, 0.9999999591836735}}, PlotRangePadding->{ Scaled[0.02], Scaled[0.02], Scaled[0.02]}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["I2-2 (10 points)", "Section"]], "Section", CellChangeTimes->{3.465651112160014*^9}], Cell["\<\ A function that creates a matrix with the given specifications.\ \>", "Text", CellChangeTimes->{{3.465651843311703*^9, 3.465651858576779*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"randElementMat4x4", " ", ":=", " ", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "randElementMat4x4", "]"}]}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.34889653839830803`", RowBox[{"-", "0.6761109444597828`"}], "0.6542811386139076`", RowBox[{"-", "0.5667166113336615`"}]}, {"0.8653871808889848`", "0.726988866662237`", "0.9856096235208418`", RowBox[{"-", "0.6787500183557285`"}]}, { RowBox[{"-", "0.8713501111586845`"}], "0.7156797386246079`", "0.9356210273210741`", RowBox[{"-", "0.046741848155654075`"}]}, { RowBox[{"-", "0.18816725004495138`"}], RowBox[{"-", "0.10399243274951431`"}], "0.8986377888183132`", RowBox[{"-", "0.9662787380805642`"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output"] }, Open ]], Cell["\<\ This one creates a matrix based upon a 4D vector, magnitude 1 (using the Norm \ function).\ \>", "Text", CellChangeTimes->{{3.465651936590273*^9, 3.465651947261005*^9}, { 3.465651993098074*^9, 3.46565201090586*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"randVectorMat4x4", ":=", " ", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "rm", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rm", "=", " ", "randElementMat4x4"}], ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"rm", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"Norm", "[", RowBox[{"rm", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "rm", "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "randVectorMat4x4", "]"}]}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.5578604182444111`", "0.5755553518086388`", "0.5955867528919926`", "0.052954797140363496`"}, { RowBox[{"-", "0.7191566559141044`"}], RowBox[{"-", "0.08257730312880993`"}], RowBox[{"-", "0.6897281643387156`"}], RowBox[{"-", "0.016424146259719528`"}]}, {"0.47350380077232984`", "0.5790935177132731`", RowBox[{"-", "0.47695208513582915`"}], RowBox[{"-", "0.4614775800417715`"}]}, { RowBox[{"-", "0.42767764150099885`"}], "0.05036861243556551`", "0.9021152221673855`", "0.027257361855979163`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output"] }, Open ]], Cell["This verifies that the magitude is 1 for each row.", "Text", CellChangeTimes->{{3.465652028652928*^9, 3.465652047433661*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"test", " ", "=", " ", "randVectorMat4x4"}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"test", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "test", "]"}]}], "}"}]}], "]"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["I2-3 (Handworked, 5 points)", "Section", CellChangeTimes->{3.465651130950898*^9}], Cell["Creates and displays the matricies.", "Text", CellChangeTimes->{{3.465652077669685*^9, 3.465652083639182*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"matrices", " ", "=", " ", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "b"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", " ", RowBox[{"c", " ", "+", " ", RowBox[{"b", " ", RowBox[{"Sqrt", "[", RowBox[{"-", "1"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"c", " ", "-", " ", RowBox[{"b", " ", RowBox[{"Sqrt", "[", RowBox[{"-", "1"}], "]"}]}]}], ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "b"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", " ", RowBox[{"c", " ", "+", " ", RowBox[{"b", " ", RowBox[{"Sqrt", "[", RowBox[{"-", "1"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"c", " ", "+", " ", RowBox[{"b", " ", RowBox[{"Sqrt", "[", RowBox[{"-", "1"}], "]"}]}]}], ",", "1"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"matrices", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{3.4648694327423325`*^9}], Cell[BoxData[ TemplateBox[{TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{"a", "c"}, {"c", "b"}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]],TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{"a", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "b"}], "+", "c"}]}, { RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "b"}], "+", "c"}], "1"}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]],TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{"a", RowBox[{"-", "c"}]}, {"c", "b"}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]],TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{"a", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "b"}], "+", "c"}]}, { RowBox[{ RowBox[{"\[ImaginaryI]", " ", "b"}], "+", "c"}], "1"}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, "Row", DisplayFunction->( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], "]"}]& )]], "Output"] }, Open ]], Cell["\<\ Displays the eigenvalues of each matrix assuming a, b, and c are real. The first two matricies always have real eignevalues.\ \>", "Text", CellChangeTimes->{{3.465652167365609*^9, 3.465652187459545*^9}, { 3.465652283156322*^9, 3.465652290134177*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Eigenvalues", "[", RowBox[{"matrices", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Element]", " ", "Reals"}], ",", RowBox[{"b", " ", "\[Element]", "Reals"}], ",", " ", RowBox[{"c", " ", "\[Element]", " ", "Reals"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "b", "-", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "b", "+", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "a", "-", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "+", RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "a", "+", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "+", RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "b", "-", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "b", "+", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "a", "-", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "-", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}], "2"]}]}]]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "a", "+", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "-", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}], "2"]}]}]]}], ")"}]}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ Displays the eigenvectors of each matrix assuming a, b, and c are real. \ \>", "Text", CellChangeTimes->{{3.46565224494225*^9, 3.465652279922642*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Row", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Eigenvectors", "[", RowBox[{"matrices", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Element]", " ", "Reals"}], ",", RowBox[{"b", " ", "\[Element]", "Reals"}], ",", " ", RowBox[{"c", " ", "\[Element]", " ", "Reals"}]}], "}"}]}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ TemplateBox[{TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], RowBox[{"2", " ", "c"}]]}], "1"}, { FractionBox[ RowBox[{"a", "-", "b", "+", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], RowBox[{"2", " ", "c"}]], "1"}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]],TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "+", RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "+", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}]}]]}], "1"}, { FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "+", RowBox[{"4", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "+", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}]}]], "1"}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]],TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], RowBox[{"2", " ", "c"}]]}], "1"}, { FractionBox[ RowBox[{"a", "-", "b", "+", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], "2"], "-", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]}], RowBox[{"2", " ", "c"}]], "1"}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]],TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "-", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}], "2"]}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "-", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}]}]], "1"}, { RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "-", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}], "2"]}]}]]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "-", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}]}]]}], "1"}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, "Row", DisplayFunction->( RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3, "\[InvisibleSpace]", #4}]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], "]"}]& )]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"2", "a"}], "+", RowBox[{"a", "^", "2"}], "+", RowBox[{"4", RowBox[{"c", "^", "2"}]}], "+", RowBox[{"4", "b", "*", "I", "*", "I"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.4648690470343328`*^9, 3.464869066086333*^9}, { 3.4648691105093327`*^9, 3.464869127704333*^9}, 3.4648693088653326`*^9, 3.464869674849333*^9, {3.464869949157333*^9, 3.4648699772473326`*^9}, { 3.464879788347333*^9, 3.4648798058343325`*^9}}], Cell[BoxData[ SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "-", RowBox[{"4", " ", "b"}], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]], "Output", GeneratedCell->False, CellAutoOverwrite->False], Cell[BoxData[ SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "-", RowBox[{"4", " ", "b"}], "+", RowBox[{"4", " ", SuperscriptBox["c", "2"]}]}]]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.464869067546333*^9, 3.464869130019333*^9, 3.464869309503333*^9, 3.4648696748503327`*^9, 3.464869979190333*^9, 3.4648798066033325`*^9}], Cell[BoxData[ SqrtBox[ RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ")"}], " ", "a"}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"b", "-", RowBox[{"\[ImaginaryI]", " ", "c"}]}], ")"}], "2"]}]}]]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.464869067546333*^9, 3.464869130019333*^9, 3.464869309503333*^9, 3.4648696748503327`*^9, 3.464869979190333*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["I2-4 (10 points)", "Section", CellChangeTimes->{3.46565114898169*^9}], Cell["The given matricies.", "Text", CellChangeTimes->{{3.465652507253982*^9, 3.465652512107108*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"amat", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bmat", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"b", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]}], "Input"], Cell["The necessary condition is AB = BA or AB - BA = 0.", "Text", CellChangeTimes->{{3.465652522607698*^9, 3.465652546007828*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"commute", " ", "=", " ", RowBox[{ RowBox[{"amat", ".", "bmat"}], " ", "-", " ", RowBox[{"bmat", ".", "amat"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}]}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}]}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "2"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "1"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}]}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["Finds the conditions such that AB - BA = 0.", "Text", CellChangeTimes->{{3.465652564421415*^9, 3.465652590455442*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eqs", " ", "=", "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"commute", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"i", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}]}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}]}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "1"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "2"}], "]"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], "-", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}]}], "\[Equal]", "0"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{"eqs", ",", RowBox[{"{", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], ",", RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}], "-", RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}]}], ")"}], " ", RowBox[{"b", "[", RowBox[{"1", ",", "2"}], "]"}]}], RowBox[{ RowBox[{"b", "[", RowBox[{"1", ",", "1"}], "]"}], "-", RowBox[{"b", "[", RowBox[{"2", ",", "2"}], "]"}]}]]}], ",", RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"a", "[", RowBox[{"1", ",", "1"}], "]"}]}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"2", ",", "2"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"2", ",", "1"}], "]"}]}]}], RowBox[{ RowBox[{"b", "[", RowBox[{"1", ",", "1"}], "]"}], "-", RowBox[{"b", "[", RowBox[{"2", ",", "2"}], "]"}]}]]}]}]}], "}"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["I2-5 (10 points)", "Section", CellChangeTimes->{3.465651174379336*^9}], Cell["\<\ Start by constructing a vector that is a linear combination of a set of input \ vectors.\ \>", "Text", CellChangeTimes->{{3.465652680865846*^9, 3.465652704719459*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"createLinearDependent", "[", "listofVecs_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], "]"}], RowBox[{"listofVecs", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "listofVecs", "]"}]}], "}"}]}], "]"}]}]], "Input"], Cell["Test of the function.", "Text", CellChangeTimes->{{3.465652713513285*^9, 3.465652718155496*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"createLinearDependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "36.2938559659449`", ",", "48.877446889604585`", ",", "61.46103781326427`"}], "}"}]], "Output"] }, Open ]], Cell["Determinant = 0.", "Text", CellChangeTimes->{{3.465652913034007*^9, 3.46565292685945*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Det", "@", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"createLinearDependent", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}], "]"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData["0.`"], "Output"] }, Open ]], Cell["Finds the nullity of the created matrix.", "Text", CellChangeTimes->{{3.465653081481487*^9, 3.465653093180586*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"nullity4x4", "[", "nullity_", "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "linindset", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"linindset", " ", "=", " ", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "-", "nullity"}], ",", "4"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Join", "[", RowBox[{"linindset", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"createLinearDependent", "[", "linindset", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nullity"}], "}"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"nullity4x4", "[", "2", "]"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.09174573358769456`", RowBox[{"-", "0.6536632270492206`"}], "0.44584718330622763`", "0.622629541917175`"}, { RowBox[{"-", "0.6987725337717423`"}], RowBox[{"-", "0.4115035589506961`"}], RowBox[{"-", "0.5118628136688037`"}], RowBox[{"-", "0.4803598859605551`"}]}, { RowBox[{"-", "7.025327258505766`"}], RowBox[{"-", "1.1438572920557073`"}], RowBox[{"-", "6.747712507136556`"}], RowBox[{"-", "7.196218653490609`"}]}, { RowBox[{"-", "5.463904710050646`"}], RowBox[{"-", "1.6403414021511744`"}], RowBox[{"-", "4.846331473898635`"}], RowBox[{"-", "5.003237479208273`"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output"] }, Open ]], Cell["As nullity increases, the matrixrank decreases. ", "Text", CellChangeTimes->{{3.465653115993796*^9, 3.46565312211299*^9}, { 3.465653166115969*^9, 3.465653232910353*^9}, {3.465653320555955*^9, 3.465653359418447*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"4", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrixRank", "[", RowBox[{"nullity4x4", "[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"e44", "[", "nul_", "]"}], " ", ":=", " ", RowBox[{"Eigensystem", "[", RowBox[{"nullity4x4", "[", "nul", "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"evals", "=", RowBox[{"Chop", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"e44", "[", "i", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.1474482257801695`", ",", "1.7407615753680479`", ",", RowBox[{"-", "1.3060494194962846`"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.5744516124842294`"}], "+", RowBox[{"1.028692975377578`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.5744516124842294`"}], "-", RowBox[{"1.028692975377578`", " ", "\[ImaginaryI]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7.114802063886999`", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ The number of zeros in the set of eigenvalues increases as nullity increases. \ \ \>", "Text", CellChangeTimes->{{3.465652733855136*^9, 3.465652733883337*^9}, { 3.465653398611038*^9, 3.465653444591389*^9}, {3.46565351833271*^9, 3.465653540561104*^9}, {3.465653915456359*^9, 3.465653917574718*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"countzeroes", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{"evals", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ I2-6 (10 points; 2 points for rotation, 4 for reflection and 4 for inversion)\ \>", "Section", CellChangeTimes->{3.465651208663695*^9}], Cell["Here is the starter code.", "Text", CellChangeTimes->{{3.465653602326074*^9, 3.465653606828572*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolyhedronData", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ Graphics3DBox[ GraphicsComplex3DBox[ NCache[{{Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0]}, { Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0]}, { Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0]}, { Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0]}, { Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0]}, { Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0]}, { Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0]}, { Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0]}, { Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0]}, { Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0]}, { Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0]}, { Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0]}, { Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0]}, { Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0]}, { Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0]}, { Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0]}, { Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0]}, { Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0]}, { Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0]}, { Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 1, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0]}, { Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0]}, { Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0]}, { Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 1, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 1, 0]}, { Root[-1 + 4 #^2 - 16 #^4 + 32 #^6& , 2, 0], Root[-1 + 12 #^2 - 32 #^4 + 32 #^6& , 2, 0], Root[-1 - 12 #^2 - 32 #^4 + 32 #^6& , 2, 0]}}, CompressedData[" 1:eJxTTMoPSmViYGCQAGJmIG564COl6vFpf9zH59cPzb26P1NghqnYw8f7YeKx EHF7qLg9TBymDiaPJm4PM68RIm6PZr49TBzNfLh6GB/dHJh+mD6YPCH70c1D 9ych9+HyNy53ofuHUDjiigdc4YTLf7jiA1d84oofXOGK7m8AYj86Ng== "]], Polygon3DBox[{{3, 1, 17}, {3, 17, 9}, {3, 19, 2}, {3, 9, 19}, {1, 4, 20}, {1, 20, 11}, {1, 11, 17}, {2, 19, 12}, {2, 18, 4}, {2, 12, 18}, {4, 18, 10}, {4, 10, 20}, {17, 11, 13}, {19, 9, 15}, {18, 12, 14}, {20, 10, 16}, {9, 21, 15}, {11, 23, 13}, {12, 24, 14}, {10, 22, 16}, {13, 23, 7}, {13, 7, 21}, {15, 21, 5}, {15, 5, 24}, {16, 22, 6}, {16, 6, 23}, {14, 24, 8}, {14, 8, 22}, {21, 7, 5}, {23, 6, 7}, {24, 5, 8}, {22, 8, 6}, {1, 3, 2, 4}, {21, 9, 17, 13}, {24, 12, 19, 15}, {10, 18, 14, 22}, {11, 20, 16, 23}, {8, 5, 7, 6}}]]]], "Output"] }, Open ]], Cell["\<\ Looking a GraphicsComplex in help browser will show that it takes two \ arguments. The first is a list of 3d points (which can be indexed as \ point[[1]], point[[2]]...) and the second is a list of graphics objects that \ refer to the indexed points.\ \>", "Text", CellChangeTimes->{3.465653626302135*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FullForm", "[", RowBox[{"N", "@", RowBox[{"PolyhedronData", "[", "\"\\"", "]"}]}], "]"}], "//", "Short"}]], "Input"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Graphics3D", "[", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"\\[LeftSkeleton]", "1", "\\[RightSkeleton]"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"List", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"3", ",", "1", ",", "17"}], "]"}], ",", RowBox[{"\\[LeftSkeleton]", "36", "\\[RightSkeleton]"}], ",", RowBox[{"List", "[", RowBox[{"8", ",", "5", ",", "7", ",", "6"}], "]"}]}], "]"}], "]"}]}], "]"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], Short]], "Output"] }, Open ]], Cell["\<\ This uses a conditional pattern, it looks for instances of lists of three \ numbers and returns those cases. We only want the points here.\ \>", "Text", CellChangeTimes->{3.465653641622316*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"snubCubePoints", " ", "=", " ", RowBox[{"Cases", "[", RowBox[{ RowBox[{"N", "@", RowBox[{"PolyhedronData", "[", "\"\\"", "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"a_", "/;", RowBox[{"(", RowBox[{ RowBox[{"NumberQ", "[", "a", "]"}], " ", "&&", " ", RowBox[{"!", RowBox[{"IntegerQ", "[", "a", "]"}]}]}], ")"}]}], ",", RowBox[{"b_", "/;", RowBox[{"(", RowBox[{ RowBox[{"NumberQ", "[", "b", "]"}], " ", "&&", " ", RowBox[{"!", RowBox[{"IntegerQ", "[", "b", "]"}]}]}], ")"}]}], ",", RowBox[{"c_", "/;", RowBox[{"(", RowBox[{ RowBox[{"NumberQ", "[", "c", "]"}], " ", "&&", " ", RowBox[{"!", RowBox[{"IntegerQ", "[", "c", "]"}]}]}], ")"}]}]}], "}"}], ",", "Infinity"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1426135089259621`"}], ",", RowBox[{"-", "0.3377539738137524`"}], ",", RowBox[{"-", "0.6212264105565853`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1426135089259621`"}], ",", "0.33775397381375233`", ",", "0.6212264105565853`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1426135089259621`"}], ",", RowBox[{"-", "0.6212264105565853`"}], ",", "0.33775397381375233`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1426135089259621`"}], ",", "0.6212264105565853`", ",", RowBox[{"-", "0.3377539738137524`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.142613508925962`", ",", RowBox[{"-", "0.3377539738137524`"}], ",", "0.6212264105565853`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.142613508925962`", ",", "0.33775397381375233`", ",", RowBox[{"-", "0.6212264105565853`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.142613508925962`", ",", RowBox[{"-", "0.6212264105565853`"}], ",", RowBox[{"-", "0.3377539738137524`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "1.142613508925962`", ",", "0.6212264105565853`", ",", "0.33775397381375233`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3377539738137524`"}], ",", RowBox[{"-", "1.1426135089259621`"}], ",", "0.6212264105565853`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3377539738137524`"}], ",", "1.142613508925962`", ",", RowBox[{"-", "0.6212264105565853`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3377539738137524`"}], ",", RowBox[{"-", "0.6212264105565853`"}], ",", RowBox[{"-", "1.1426135089259621`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3377539738137524`"}], ",", "0.6212264105565853`", ",", "1.142613508925962`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.33775397381375233`", ",", RowBox[{"-", "1.1426135089259621`"}], ",", RowBox[{"-", "0.6212264105565853`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.33775397381375233`", ",", "1.142613508925962`", ",", "0.6212264105565853`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.33775397381375233`", ",", RowBox[{"-", "0.6212264105565853`"}], ",", "1.142613508925962`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.33775397381375233`", ",", "0.6212264105565853`", ",", RowBox[{"-", "1.1426135089259621`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6212264105565853`"}], ",", RowBox[{"-", "1.1426135089259621`"}], ",", RowBox[{"-", "0.3377539738137524`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6212264105565853`"}], ",", "1.142613508925962`", ",", "0.33775397381375233`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6212264105565853`"}], ",", RowBox[{"-", "0.3377539738137524`"}], ",", "1.142613508925962`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6212264105565853`"}], ",", "0.33775397381375233`", ",", RowBox[{"-", "1.1426135089259621`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6212264105565853`", ",", RowBox[{"-", "1.1426135089259621`"}], ",", "0.33775397381375233`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6212264105565853`", ",", "1.142613508925962`", ",", RowBox[{"-", "0.3377539738137524`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6212264105565853`", ",", RowBox[{"-", "0.3377539738137524`"}], ",", RowBox[{"-", "1.1426135089259621`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6212264105565853`", ",", "0.33775397381375233`", ",", "1.142613508925962`"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ List of polygons. (The use of ___ refers to somthing repeated).\ \>", "Text", CellChangeTimes->{{3.465653676125203*^9, 3.465653727811779*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"snubCubePolygons", " ", "=", " ", RowBox[{"Cases", "[", RowBox[{ RowBox[{"N", "@", RowBox[{"PolyhedronData", "[", "\"\\"", "]"}]}], ",", RowBox[{"List", "[", "a__Integer", "]"}], ",", "Infinity"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "17", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "19", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "20", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "11", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "19", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "18", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "12", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "18", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "11", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "9", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "12", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "21", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "23", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "24", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "22", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "23", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "7", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "21", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "5", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "22", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "24", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "8", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "7", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "8", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "9", ",", "17", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "12", ",", "19", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "18", ",", "14", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "20", ",", "16", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "5", ",", "7", ",", "6"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["\<\ This gives the the logical connection between points without regard to their \ coordinates, only where they are in list.\ \>", "Text", CellChangeTimes->{3.465653741288662*^9}], Cell[BoxData[ RowBox[{ RowBox[{"snubCubeColoredPolygons", " ", "=", " ", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FaceForm", "[", RowBox[{"Hue", "[", RowBox[{"RandomReal", "[", "]"}], "]"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"snubCubePolygons", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "snubCubePolygons", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"snubGraphics", "[", "pts_", "]"}], " ", ":=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"GraphicsComplex", "[", RowBox[{"pts", ",", "snubCubeColoredPolygons"}], "]"}], ",", RowBox[{"Lighting", "\[Rule]", " ", "\"\\""}], ",", RowBox[{"ViewPoint", "\[Rule]", " ", "Front"}]}], "]"}]}]], "Input"], Cell["Visual representation of the polygons.", "Text", CellChangeTimes->{{3.465653756333337*^9, 3.465653769563398*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"snubGraphics", "[", "snubCubePoints", "]"}]], "Input"], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGJmIG564COl6vFpf9zH59cPzb26P1NghqnYw8f7YeKx EHF7qLg9TBymDiaPJm4PM68RIm6PZr49TBzNfLh6GB/dHJh+mD6YPCH70c1D 9ych9+HyNy53ofuHUDjiigdc4YTLf7jiA1d84oofXOGK7m8AYj86Ng== "], { {FaceForm[Hue[0.915728931122852]], Polygon3DBox[{{3, 1, 17}}]}, {FaceForm[Hue[0.13745374294665313`]], Polygon3DBox[{{3, 17, 9}}]}, {FaceForm[Hue[0.3447409424015522]], Polygon3DBox[{{3, 19, 2}}]}, {FaceForm[Hue[0.08424424605444103]], Polygon3DBox[{{3, 9, 19}}]}, {FaceForm[Hue[0.8985074461908304]], Polygon3DBox[{{1, 4, 20}}]}, {FaceForm[Hue[0.8733879953700832]], Polygon3DBox[{{1, 20, 11}}]}, {FaceForm[Hue[0.9177929632429795]], Polygon3DBox[{{1, 11, 17}}]}, {FaceForm[Hue[0.18301154806987285`]], Polygon3DBox[{{2, 19, 12}}]}, {FaceForm[Hue[0.15992572068086885`]], Polygon3DBox[{{2, 18, 4}}]}, {FaceForm[Hue[0.16148710306898773`]], Polygon3DBox[{{2, 12, 18}}]}, {FaceForm[Hue[0.1368808480635746]], Polygon3DBox[{{4, 18, 10}}]}, {FaceForm[Hue[0.9908896810421683]], Polygon3DBox[{{4, 10, 20}}]}, {FaceForm[Hue[0.5875076456545762]], Polygon3DBox[{{17, 11, 13}}]}, {FaceForm[Hue[0.7716842642297583]], Polygon3DBox[{{19, 9, 15}}]}, {FaceForm[Hue[0.7471792725653279]], Polygon3DBox[{{18, 12, 14}}]}, {FaceForm[Hue[0.819470461462249]], Polygon3DBox[{{20, 10, 16}}]}, {FaceForm[Hue[0.7321071737952174]], Polygon3DBox[{{9, 21, 15}}]}, {FaceForm[Hue[0.6217115406790155]], Polygon3DBox[{{11, 23, 13}}]}, {FaceForm[Hue[0.8940208016317732]], Polygon3DBox[{{12, 24, 14}}]}, {FaceForm[Hue[0.45168071301211543`]], Polygon3DBox[{{10, 22, 16}}]}, {FaceForm[Hue[0.7938091647500176]], Polygon3DBox[{{13, 23, 7}}]}, {FaceForm[Hue[0.10722681964143854`]], Polygon3DBox[{{13, 7, 21}}]}, {FaceForm[Hue[0.1123745837991319]], Polygon3DBox[{{15, 21, 5}}]}, {FaceForm[Hue[0.6044966220327055]], Polygon3DBox[{{15, 5, 24}}]}, {FaceForm[Hue[0.6421506326489976]], Polygon3DBox[{{16, 22, 6}}]}, {FaceForm[Hue[0.516895975786829]], Polygon3DBox[{{16, 6, 23}}]}, {FaceForm[Hue[0.7026950220651067]], Polygon3DBox[{{14, 24, 8}}]}, {FaceForm[Hue[0.2674029880455493]], Polygon3DBox[{{14, 8, 22}}]}, {FaceForm[Hue[0.03273566621859203]], Polygon3DBox[{{21, 7, 5}}]}, {FaceForm[Hue[0.726292255928074]], Polygon3DBox[{{23, 6, 7}}]}, {FaceForm[Hue[0.7526736956532423]], Polygon3DBox[{{24, 5, 8}}]}, {FaceForm[Hue[0.8138740989864632]], Polygon3DBox[{{22, 8, 6}}]}, {FaceForm[Hue[0.618498682583688]], Polygon3DBox[{{1, 3, 2, 4}}]}, {FaceForm[Hue[0.10278022112606511`]], Polygon3DBox[{{21, 9, 17, 13}}]}, {FaceForm[Hue[0.641159757325594]], Polygon3DBox[{{24, 12, 19, 15}}]}, {FaceForm[Hue[0.6786575971066313]], Polygon3DBox[{{10, 18, 14, 22}}]}, {FaceForm[Hue[0.1481540797364267]], Polygon3DBox[{{11, 20, 16, 23}}]}, {FaceForm[Hue[0.37557421395541946`]], Polygon3DBox[{{8, 5, 7, 6}}]}}], AutomaticImageSize->True, ImageSize->{362.26898743662645`, 362.1659420634675}, Lighting->"Neutral", ViewPoint->Front, ViewVertical->{-0.003566420394502487, -0.4906319882268251, 0.8713595886740231}]], "Output"] }, Open ]], Cell["A rotational matrix.", "Text", CellChangeTimes->{{3.465653779534344*^9, 3.465653784691744*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rotmat", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"Pi", "/", "3"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", "0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}], ",", "0", ",", FractionBox["1", "2"]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell["Function to transform the coordinates of the points.", "Text", CellChangeTimes->{{3.465653806944206*^9, 3.46565381690599*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"transformPoints", "[", RowBox[{"pts_", ",", " ", "matrix_"}], "]"}], " ", ":=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"matrix", ".", RowBox[{"pts", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "pts", "]"}]}], "}"}]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"snubGraphics", "[", RowBox[{"transformPoints", "[", RowBox[{"snubCubePoints", ",", "rotmat"}], "]"}], "]"}]], "Input"], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGJmIJ62WcNg2/6P++M+Pr9+aO7V/XxHzKZv2fnUvmBu q8td3oX7YyHi9tZZ6WmpZ7/Yn7tyvfnl9Yv7MwVmmIo9fLzfN+Wf8Y2OT/bz rq0tCl3yGiZu/+o8x59zTq/soebbw8zngZi/PwFivj3MfCuI+ftPQ8y3h5nv AzF//xyI+TBx+5cQ8/cvFxFVWDv/un3TAx8pVY9P+wP+6RTv9nlsz9T87/f2 ec/2N0LE7RWck3wjuifB3At3/1mof15A3QszH2bfCoj5+9HM3w813x5mvgHE fHuoe+HuPwP1z2uoe2Hmz4WGF8w8mPkw/0DNg7sfZh80/ODhCQtfaPzA4wsW f7DwgJkP8w80POzRzIfF/3408/dD4wceX7D4AwBUckHb "], { {FaceForm[Hue[0.915728931122852]], Polygon3DBox[{{3, 1, 17}}]}, {FaceForm[Hue[0.13745374294665313`]], Polygon3DBox[{{3, 17, 9}}]}, {FaceForm[Hue[0.3447409424015522]], Polygon3DBox[{{3, 19, 2}}]}, {FaceForm[Hue[0.08424424605444103]], Polygon3DBox[{{3, 9, 19}}]}, {FaceForm[Hue[0.8985074461908304]], Polygon3DBox[{{1, 4, 20}}]}, {FaceForm[Hue[0.8733879953700832]], Polygon3DBox[{{1, 20, 11}}]}, {FaceForm[Hue[0.9177929632429795]], Polygon3DBox[{{1, 11, 17}}]}, {FaceForm[Hue[0.18301154806987285`]], Polygon3DBox[{{2, 19, 12}}]}, {FaceForm[Hue[0.15992572068086885`]], Polygon3DBox[{{2, 18, 4}}]}, {FaceForm[Hue[0.16148710306898773`]], Polygon3DBox[{{2, 12, 18}}]}, {FaceForm[Hue[0.1368808480635746]], Polygon3DBox[{{4, 18, 10}}]}, {FaceForm[Hue[0.9908896810421683]], Polygon3DBox[{{4, 10, 20}}]}, {FaceForm[Hue[0.5875076456545762]], Polygon3DBox[{{17, 11, 13}}]}, {FaceForm[Hue[0.7716842642297583]], Polygon3DBox[{{19, 9, 15}}]}, {FaceForm[Hue[0.7471792725653279]], Polygon3DBox[{{18, 12, 14}}]}, {FaceForm[Hue[0.819470461462249]], Polygon3DBox[{{20, 10, 16}}]}, {FaceForm[Hue[0.7321071737952174]], Polygon3DBox[{{9, 21, 15}}]}, {FaceForm[Hue[0.6217115406790155]], Polygon3DBox[{{11, 23, 13}}]}, {FaceForm[Hue[0.8940208016317732]], Polygon3DBox[{{12, 24, 14}}]}, {FaceForm[Hue[0.45168071301211543`]], Polygon3DBox[{{10, 22, 16}}]}, {FaceForm[Hue[0.7938091647500176]], Polygon3DBox[{{13, 23, 7}}]}, {FaceForm[Hue[0.10722681964143854`]], Polygon3DBox[{{13, 7, 21}}]}, {FaceForm[Hue[0.1123745837991319]], Polygon3DBox[{{15, 21, 5}}]}, {FaceForm[Hue[0.6044966220327055]], Polygon3DBox[{{15, 5, 24}}]}, {FaceForm[Hue[0.6421506326489976]], Polygon3DBox[{{16, 22, 6}}]}, {FaceForm[Hue[0.516895975786829]], Polygon3DBox[{{16, 6, 23}}]}, {FaceForm[Hue[0.7026950220651067]], Polygon3DBox[{{14, 24, 8}}]}, {FaceForm[Hue[0.2674029880455493]], Polygon3DBox[{{14, 8, 22}}]}, {FaceForm[Hue[0.03273566621859203]], Polygon3DBox[{{21, 7, 5}}]}, {FaceForm[Hue[0.726292255928074]], Polygon3DBox[{{23, 6, 7}}]}, {FaceForm[Hue[0.7526736956532423]], Polygon3DBox[{{24, 5, 8}}]}, {FaceForm[Hue[0.8138740989864632]], Polygon3DBox[{{22, 8, 6}}]}, {FaceForm[Hue[0.618498682583688]], Polygon3DBox[{{1, 3, 2, 4}}]}, {FaceForm[Hue[0.10278022112606511`]], Polygon3DBox[{{21, 9, 17, 13}}]}, {FaceForm[Hue[0.641159757325594]], Polygon3DBox[{{24, 12, 19, 15}}]}, {FaceForm[Hue[0.6786575971066313]], Polygon3DBox[{{10, 18, 14, 22}}]}, {FaceForm[Hue[0.1481540797364267]], Polygon3DBox[{{11, 20, 16, 23}}]}, {FaceForm[Hue[0.37557421395541946`]], Polygon3DBox[{{8, 5, 7, 6}}]}}], Lighting->"Neutral", ViewPoint->Front]], "Output"] }, Open ]], Cell["Transforms given polygon.", "Text", CellChangeTimes->{{3.465653847939392*^9, 3.465653862982376*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"snubGraphics", "[", RowBox[{"transformPoints", "[", RowBox[{"snubCubePoints", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGJmIG564COl6vHJPu7j8+uH5l7dnykww1Ts4eP9MPFY iLg9VNweJg5TB5NHE4eb1wgR349mvj1MHM18uHoYH90cmH6YvjhU+/ej2Q+z xx7NPHs0f6KLw/VB7dmPZj7M3fvRzIerR/MPujiGe5vwhxNGPMThtx/dfLj7 cYQ3RvzH4fc33F0AIiE6Ng== "], { {FaceForm[Hue[0.915728931122852]], Polygon3DBox[{{3, 1, 17}}]}, {FaceForm[Hue[0.13745374294665313`]], Polygon3DBox[{{3, 17, 9}}]}, {FaceForm[Hue[0.3447409424015522]], Polygon3DBox[{{3, 19, 2}}]}, {FaceForm[Hue[0.08424424605444103]], Polygon3DBox[{{3, 9, 19}}]}, {FaceForm[Hue[0.8985074461908304]], Polygon3DBox[{{1, 4, 20}}]}, {FaceForm[Hue[0.8733879953700832]], Polygon3DBox[{{1, 20, 11}}]}, {FaceForm[Hue[0.9177929632429795]], Polygon3DBox[{{1, 11, 17}}]}, {FaceForm[Hue[0.18301154806987285`]], Polygon3DBox[{{2, 19, 12}}]}, {FaceForm[Hue[0.15992572068086885`]], Polygon3DBox[{{2, 18, 4}}]}, {FaceForm[Hue[0.16148710306898773`]], Polygon3DBox[{{2, 12, 18}}]}, {FaceForm[Hue[0.1368808480635746]], Polygon3DBox[{{4, 18, 10}}]}, {FaceForm[Hue[0.9908896810421683]], Polygon3DBox[{{4, 10, 20}}]}, {FaceForm[Hue[0.5875076456545762]], Polygon3DBox[{{17, 11, 13}}]}, {FaceForm[Hue[0.7716842642297583]], Polygon3DBox[{{19, 9, 15}}]}, {FaceForm[Hue[0.7471792725653279]], Polygon3DBox[{{18, 12, 14}}]}, {FaceForm[Hue[0.819470461462249]], Polygon3DBox[{{20, 10, 16}}]}, {FaceForm[Hue[0.7321071737952174]], Polygon3DBox[{{9, 21, 15}}]}, {FaceForm[Hue[0.6217115406790155]], Polygon3DBox[{{11, 23, 13}}]}, {FaceForm[Hue[0.8940208016317732]], Polygon3DBox[{{12, 24, 14}}]}, {FaceForm[Hue[0.45168071301211543`]], Polygon3DBox[{{10, 22, 16}}]}, {FaceForm[Hue[0.7938091647500176]], Polygon3DBox[{{13, 23, 7}}]}, {FaceForm[Hue[0.10722681964143854`]], Polygon3DBox[{{13, 7, 21}}]}, {FaceForm[Hue[0.1123745837991319]], Polygon3DBox[{{15, 21, 5}}]}, {FaceForm[Hue[0.6044966220327055]], Polygon3DBox[{{15, 5, 24}}]}, {FaceForm[Hue[0.6421506326489976]], Polygon3DBox[{{16, 22, 6}}]}, {FaceForm[Hue[0.516895975786829]], Polygon3DBox[{{16, 6, 23}}]}, {FaceForm[Hue[0.7026950220651067]], Polygon3DBox[{{14, 24, 8}}]}, {FaceForm[Hue[0.2674029880455493]], Polygon3DBox[{{14, 8, 22}}]}, {FaceForm[Hue[0.03273566621859203]], Polygon3DBox[{{21, 7, 5}}]}, {FaceForm[Hue[0.726292255928074]], Polygon3DBox[{{23, 6, 7}}]}, {FaceForm[Hue[0.7526736956532423]], Polygon3DBox[{{24, 5, 8}}]}, {FaceForm[Hue[0.8138740989864632]], Polygon3DBox[{{22, 8, 6}}]}, {FaceForm[Hue[0.618498682583688]], Polygon3DBox[{{1, 3, 2, 4}}]}, {FaceForm[Hue[0.10278022112606511`]], Polygon3DBox[{{21, 9, 17, 13}}]}, {FaceForm[Hue[0.641159757325594]], Polygon3DBox[{{24, 12, 19, 15}}]}, {FaceForm[Hue[0.6786575971066313]], Polygon3DBox[{{10, 18, 14, 22}}]}, {FaceForm[Hue[0.1481540797364267]], Polygon3DBox[{{11, 20, 16, 23}}]}, {FaceForm[Hue[0.37557421395541946`]], Polygon3DBox[{{8, 5, 7, 6}}]}}], Lighting->"Neutral", ViewPoint->Front]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Group Problem G2-1", "Section"], Cell["Commenting the starter code:", "Subsubtitle"], Cell[CellGroupData[{ Cell["An asymmetric object with six points", "Section"], Cell[CellGroupData[{ Cell["\<\ This defines a set of colored polygons with indexed indices. The indices \ will refer to points that will be transformed as needed.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AssymetricObject", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "6", ",", "2"}], "}"}], "]"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5", ",", "6"}], "}"}], "]"}]}], "}"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{ FractionBox["1", "3"], ",", FractionBox["1", "3"], ",", "1"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "6", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5", ",", "6"}], "}"}], "]"}]}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ A graphical representation, given six points, this function creates an object \ ready for plotting\ \>", "Section"], Cell[CellGroupData[{ Cell["\<\ Looking at the Help Browser for GraphicsComplex shows that this function \ takes points and then creates a graphics object associated with those points \ using the object created above.\ \>", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"GraphicsAssymetricObject", "[", "pts_", "]"}], ":=", RowBox[{"GraphicsComplex", "[", RowBox[{"pts", ",", "AssymetricObject"}], "]"}]}]], "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["A set of \"generator\" points", "Section"], Cell[CellGroupData[{ Cell["\<\ These are the original points---they have the shape of a house, but then a \ pattern-replace method is used to displace and rotate each point.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"genPoints", "=", RowBox[{ RowBox[{"{", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", RowBox[{"-", ".5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", ".5"}]}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", RowBox[{"-", ".5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5", ",", "0.5"}], "}"}]}], "}"}], "}"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], " ", "\[RuleDelayed]", " ", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "0.25"}], "}"}], "+", RowBox[{"0.1", RowBox[{ RowBox[{"RotationMatrix", "[", RowBox[{"Pi", "/", "12"}], "]"}], ".", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}]}]}]}], ")"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1`", ",", "0.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.038762756430420556`", ",", "0.28535533905932736`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.06464466094067263`", ",", "0.18876275643042056`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.11294095225512604`", ",", "0.2017037086855466`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.16123724356957947`", ",", "0.21464466094067264`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1353553390593274`", ",", "0.31123724356957944`"}], "}"}]}], "}"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"genPoints", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1`", ",", "0.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.038762756430420556`", ",", "0.28535533905932736`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.06464466094067263`", ",", "0.18876275643042056`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.11294095225512604`", ",", "0.2017037086855466`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.16123724356957947`", ",", "0.21464466094067264`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1353553390593274`", ",", "0.31123724356957944`"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsAssymetricObject", "[", RowBox[{"genPoints", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1`", ",", "0.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.038762756430420556`", ",", "0.28535533905932736`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.06464466094067263`", ",", "0.18876275643042056`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.11294095225512604`", ",", "0.2017037086855466`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.16123724356957947`", ",", "0.21464466094067264`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1353553390593274`", ",", "0.31123724356957944`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{ FractionBox["1", "3"], ",", FractionBox["1", "3"], ",", "1"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "6", ",", "2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5", ",", "6"}], "}"}], "]"}]}], "}"}]}], "}"}]}], "]"}]], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ An example of an asymmetric object: this is kind of boring...one can do \ better...\ \>", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"GraphicsAssymetricObject", "[", RowBox[{"genPoints", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[{{0.1, 0.25}, {0.038762756430420556`, 0.28535533905932736`}, {0.06464466094067263, 0.18876275643042056`}, { 0.11294095225512604`, 0.2017037086855466}, {0.16123724356957947`, 0.21464466094067264`}, {0.1353553390593274, 0.31123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[" Mapping Points back into unit cell: Modulus Mapping", "Subtitle"], Cell[CellGroupData[{ Cell["Square lattice modulus mapping", "Section"], Cell[CellGroupData[{ Cell[TextData[StyleBox["This takes any point and finds it equivalent point in \ the primary unit square cell", "Subsubsection"]], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"SquareLatticeMod", "[", "pt_", "]"}], ":=", " ", RowBox[{"Mod", "[", RowBox[{"pt", ",", "1"}], "]"}]}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Hexagonal lattice modulus mapping", "Section"], Cell[CellGroupData[{ Cell[TextData[{ "Working from the inside of the function calls out (i.e., the order of \ opertion), the matrix ", Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", RowBox[{"-", FractionBox["1", SqrtBox["3"]]}]}, {"0", FractionBox["2", SqrtBox["3"]]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]]], " takes a vector in the hexagonal system and then maps it to a Cartesian \ frame. The modulus mapping function above can be applied directly in the \ Cartesian coordinate system. Finally the inverse of the first matrix is used \ to map the result back into the hexagonal system. " }], "Subsubsection", CellChangeTimes->{{3.465654210555887*^9, 3.465654211062393*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"cartToHex", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hexToCart", "=", RowBox[{"Inverse", "[", "cartToHex", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", FractionBox["1", SqrtBox["3"]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox["2", SqrtBox["3"]]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"HexLatticeMod", "[", "pt_", "]"}], ":=", " ", RowBox[{"(*", RowBox[{ "take", " ", "a", " ", "pattern", " ", "of", " ", "numbers", " ", "and", " ", "use", " ", "the", " ", "modulus", " ", "function", " ", "to", " ", "map", " ", "back"}], "*)"}], "\[IndentingNewLine]", RowBox[{"pt", "/.", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a_", "/;", RowBox[{"NumberQ", "[", "a", "]"}]}], ",", RowBox[{"b_", "/;", RowBox[{"NumberQ", "[", "b", "]"}]}]}], "}"}], "\[RuleDelayed]", " ", "\[IndentingNewLine]", RowBox[{"cartToHex", ".", RowBox[{"Mod", "[", RowBox[{ RowBox[{"hexToCart", ".", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], ",", "1"}], "]"}]}]}], ")"}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HexLatticeMod", "[", RowBox[{"{", RowBox[{"1.1", ",", "0.99"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.6000000000000001`", ",", "0.12397459621556149`"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.18150169911326`", ",", "0.05011049970436465`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7017292755764082`", ",", "0.45731656235309526`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.43304568061042126`", ",", "1.9302318976133424`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9504235457027095`", ",", "0.703910302618743`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.3529432662723506`", ",", "0.5837857484123581`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.924071023922716`", ",", "0.6317860867679426`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.8553456301324558`", ",", "1.3216086623449663`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.9687873941527805`", ",", "1.521973977939409`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.7395096561397505`", ",", "1.5535182232797715`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.28797931755933615`", ",", "0.09881854332609885`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5625818829417093`", ",", "1.661861264559509`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.33709332036560813`", ",", "1.1710180800422498`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.16801046879321024`", ",", "1.59379356043492`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.005290660414683845`", ",", "1.7249736469372725`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.066612692004599`", ",", "1.9074052803747894`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.552722907176169`", ",", "0.01266381753990009`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.627242887565421`", ",", "1.1543234119160877`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.02124419409588585`", ",", "1.3453851633695089`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.6367357856914233`", ",", "1.9775649557709665`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.950142358735477`", ",", "1.835451131695487`"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ An example of mapping back to the \"fundamental hexagonal cell\"\ \>", "Subsection"], Cell[CellGroupData[{ Cell["\<\ This shows that all points get mapped back---this is a demonstration that \ the function, at least, has proper behavior.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"HexLatticeMod", "/@", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[Large], PointBox[CompressedData[" 1:eJwUmnk41G8bxYeytUpKpTS20CL6qSQ5U5EoopKShIg2obJXU7SRUtZKllKW sqTs22Qn+74bY5gxtjFotbzf96+55nKZeb7PfZ9zPsdF2vr6cVt+EolUJ0Qi /f+1rSaydoMqF1XCmXfCNOigb71ZsP/BGBbO1xSpbx8G9ebSYN7AEFzPlztH vuxAuXB855mfNbBad+OhKDMDljKUsDCFUXz79ES1u7keAcsemoh2cTGnvbH8 20EGjBYGbf3w3yQOpC0V/76eAZKSu4guj43JoUOZ8af6oVXtt2Rnzjh6Dkgp LN6XA7EAQaOxZVw0mybcX7GAiagD1dl6uyZBHtNk/TbsRYx/qfU5m1FESCmk epW3QdS0qnpchYMe9Sd1i67kg/xYa+Iv/wg4m0R+70pIB/luFVuQrw+P9j5p sfk7gCgN9eOqn/tAEel9c0C/GQE9dz0tbbngu19stDe2GjIGL6p6rHnYf4LO 2GPUAGfd/UOk6RG82d7ZvGFVCyjvfIqvxQzAtKOYqRZWCmqxWIW49yhKNmMX 6xsHEpe0ZZKvc0G5Fq//vJ/4HuP7H3RpTfD+7bn7NV8vLD2D9gusGsFTuXAR lZBB0EVH5M5eHseaE0eUycMdoG5Tvaa5pA1W7JNHaDvrQGn8tnn1xlEcSzyU ELBlEJbH/j5/tZyNt0WnGPezU0ENv//U7NsQbpw2yTkb0gwV2dPh7wQncORS 2/mXGvUgOdRuWbuIDYfVsZHrXWlYrZy5XOfNFCjlCzT1Xg6AGrxXXjupE8Ox Gxi1Z1qQwn92VZAkD47RXuonQ/pAZT9Q3iLGhc8ZBcnDiW8RsP1rxQ+NcWT+ 6nzuTGGDpOh7ODW2DFqLep840DJA694bd0agH6TwqJk8i3hQyWfjLQXGkLHh bPqZsmoYNSXZSupOIHFyU+389l5Qy/8J7NdMg6Xm/p8uq/NhaejtcJLJQ1jr BUagXh+EH2xZOnZ3EpsXFQgbrxsEt490a0H8FMJIDN1IMQ7IWV2jbtZ0CAhq 2aQwB5E7V/aph8GE5saRFbej4lG4+9y6pLkBWGrR9RYNtSEgV2JH5EsubNL+ Lru3uRUzlR03R18wsaKp1qA6dwCkTSsY84YDKBJrB4fRCvL9F8keORx4FtGV 3lyoh9E1M6OTngwEun1eu2+yGY7+V0MMBblQObll0kOxHY49GrZvuMNo4J14 UaXVgZRpZ097fjqMO9uL288Rz18lhBntKeza/Gxl1KM+iFreEWCIDUF01+CP Xp92xMnmHZJ8wIWx7KYFkn5fUDwVpi4t0YCOJIP+LEYdwshvQuIypqG2UGEd nTcE2skXCx+HjcLn09ycUCkd5pLuEe/v98Oj9YD6cY1KCEXHm2/72w7p9ytX 773GBHnR0xTvS2xs27/f/+ZcJ6gPLLY8r+xH0c7D5PlXWRB9ST2RVdwHHnuh gkIjA1H7m+L2CQzBublbXU+vCaSFYXv/6PyA4iMXxpB7IfKtxVycxZvBR5KK XGH+gtCf64y8OQceHWJ8C1a0gPpmhL1RvRsJY+QhiDQi4DaHsv4CB/0vQ94m ZDDwcWpY5UzPEHQdn/Sy1rNAPt36PGrLKATK3FPLMumgdTTcWeswgUWHBLTV bOk4+1a/cJDUg+/D//2XasMG/ZGFuYtuHaiXvjX9tSuGzYPvyX+dRlCqW2ft 3syE5U2+vRLsfrALFjslm7OxfnA1rSK6DzlrfDvEm7qI3wsa90kbw/Dccsdf zm9BkRrZl7CWhXC5K2O1eW6gjAh3Jid3Q22lW3GAdQLoAjGLFwn1Yb9Qkn6a bB5oLnrN7mq/sOPsw1C7k0NwrNfd8LNiHNkqFOZAYwcc9WLsvXwmwKWGanjt bEBU/AFrGT8mJt+vlVwx2wSK3IWNg585wLyAMeMEcZ6uxbUGiwdxb/WpoAWa TaDt/3b37DUGmtNWnVBcVIGAqHatOO4ELGT7inh3OxD1+Y3zo7whGOW26f2u aAT1L8lRy4CFw5evjS/yLoX62/Xz+h09GK6S3fWoLR98ZNGv61pZCDXIUxyc HwIpuW9f9jYuGqQ5sxBhgrnlVoad6wC2XA+6FqGaCmuRvLxT2v0oS70TYZL7 AZTXKWdSGnmQeXBI5VnFIGjkd4eaurtwctWD1+SGYlgWmUxJZHGw4GGW4fTj aESxM058xxg6Fxz57X6EibqNt86s953CDdFu1YXSLJDab8ubVPFw+JG5g7Lf MEg/5KVt25rA8nSlahW3o63asaDUfBKUq8tH5Yp7QW+riN7QPIFdkrpy9RHt iOpTNRD+2I/5X3OejWrE/hhlRId8HsT2v996Q9vZsKzxuZwyxsNv71dLHBYy YHHMV4TzfhSPtrI7Ytg9UNF4ovlxZAjZl6RGltxvgkpYmuqPx31gOGvd8X0w CPLSm3vGOgfw6o+ihr5PGywfOt0pr+ZB3uEQsyqQ8LngCOvjw2w8cdB3OFjY D8vTX6+f4Q3j1OzDZ15xhSCr2rk5cYnPK/tlzYpiQGWlsY9o0yT2S4Xx8VEJ /12k3Va5vAUbcrRZSwzKQZP+k+t7eBj5gvOC1XrhIEe8SWLtHMPgqETIVPo3 kI7ZnNKsZsM07BA3Tv8qSNtngr85jcKG/0km3bQO1u/3kG23c8Cn1bn5jWM4 6EImd6bW9MDt6vmdq/u+gV7Y63uzrR1LvVmG95jEvLd3BHZV9KN3l6qBw002 uiKqSLkGffDkb934XLgLmQO6/1QDuIjZOmLXfbwYJNf267PfxqEqcGiGMt+H 82VF/oWmDPD1ZlQr8ZeBtqT/0YUHbXjgx0oX0e8HVXnDWJRcBzr2dov+TgwC XTeskX5tivDFPyd19Yj9++qxRCy6C3y5h6IPHWoD6deOys8f+qGxseuWvgOR X2rPPy7S/wFXAwNXEadWUBxua7TxRnG8QelijlkLSHZ3LPjiepF+1NNMzrUe lntG7WV2MUHTUU5Wk22BY12/UWjZNA5+yY7QS+SAQjnzemCqHbsTTo3/P98p KhnaT/O74bhwVM59pgPcChclh92jeM407P1A8IflDv8KrB2HXdZFzSLZZtSN H7vy8g0POpcDMurTiDzKiNerW89Ed/yVsxuMXsHSuGPkFBigrY2urA7qR2bQ aLnNQy4exSg8LvJgI9/d/+ado1MYGbz/VOo6sT/XRJ48JHzZWLh8QpH5FLRN mulphO53SNOE9gVUgzZe2mU72ooM+es6zesqoO5Rc2DNxj7cuxH9xym8BmTF 2xrrJbiw1iwJ3WkwCC2xheWZbkyEnnIJmXw4iDq+3OWDIuOob+PT5A4WI0BC Pu3Gp2FsEcqhRpfnICq9L/beGSZuW554vMLOGqSMBG2z4la0rhi2livsBvt8 xMcNKTw4vA9/IB5E7D/fr8OLFEcx86kvLE+TjgDF9mWzvUQ+fLJQ3T5WB1JN E/eAYTc8CiJKa9oLsWDtpfd//jKw455h+5WWXNByfSQW69NhreJ1oFCxHo4l vWMBlSzMWksEz4j147j5nAUreBzju4o3PCgeQGx2T+Pt4nFsf/rD5tTOTtC0 9IuXctvRv274anlOCYSnx+mWO3hosL0kkh8yAFHhTZJ7NnNRJHJZvHRPA3iv Y5tn7xPv5zcoft3JwByreuvolTFIm03v64seBjnYMmnLrz40vyyS0l7SAFK+ 7Strl164a5z48mxTHRQzdgwX8E1CZ+WhonNfWNBct+3oxdx2VLvoxhtt6QNp 7kF9yO4SsOWqlh+9QwNJfIGaL5mJM6rxtrSVBN8oFxV8KuQgTnf1XXXJEtDC Vv3mTnIRaTUxM1LBgaX/gVUV+ZNojPvwaprbD7LliuVum3swUlZh3vvrM8hr Tpb1B3WhQPfc6mWD0VjGmryrt53wTcs4U8VVMSD9e3r9uMQkTsZmW+kvbofR oOQmvbpBHEv/cmRDVC246XmLnlkMY2WdYSn3K6FHqwqjE1nd6D+it3YiKRXc h6RNuT5cPPa9kh0f1IcI4/UCV6fGsfa9hde/oHJo+100e94yjl4O2f7NQg5I a0doNqdbMadnJJHvWw+K/OLGtZYMZBtUKrkn0OEYVLs4/TQP9w0Za3S8e6DV nBe8ZNEUfry2zbPw68Lp8TS/sXOE/50I87uQMgCV+oQtszuGsc7l5TTVuRuW R29sqPo4hOubLP2FCupAz07xzjjdjP5YnXth6mkg1yxqPHOjE67Pz43K8VXg vGCHwG4vBlhXZF/9Gu4DeQTWdvOD+Dj3N5d6uwKOJgKdfBaDiLlX+3X9DHHf n3yGagPHERb2yS9pRR+i1qYqL0gZhNdGIS3RL49A6Sy2UBOcxPNntueF1jEh KnpZxJa4D68Dw6Pn2R2gnUmnSgVzEBxy//zQpyyQXl5derY1FZ8yF6x4LvoF VJN3gm4yPWjhFAZ/w3uQoj8u1vThYd+p4aMHjjdAVONzyJnJUYivHLqlZ8GC Y2UL34uMEey6WehyZrAL3Oxcp8nGcYxdZHj9JdNAVZ8+1Pa7iXgNGVeRzEJv ZsLA2pBGkEY9Liye7wTlrc90qfEURmcsV4aO9oBUndm/gOCr7v1uW6MT2Eh5 Btv2GxwsmTh/fuW9JkTVLZOTTh7DM/8Y//DyFhR/y4mpPd+Os/ti3JalEfxx xX5HSBwPE6nC/JOBw6DL9H3pdmTiNN8nlyU7CL8ee6/74UMHzNcr1S662k7w z2SAn1QrEhc2LFj8shpRweUPm4qHsfz5cPXUC6JfLeudMWyZRPiJ2V/versQ VXn5qpNXA2ZG4o4XLW+HpYfpXqPUQdgZKpzZKVoBLveOUPvScZin+Q7lVbER tTPmzDVxFiI+v+1xEU+HzFI/E8odOr6YfNrBaCfmY7zjlvJdDvaWiD1ef5bo V6bv5Q5ZjMLs9AHt4Js/QNqsu6NlaRkcJHW/1G3IAl3dXf9mzRiYa8zunv5V SdxfUNu91cMoZGzfLvOrDY7XPthbdjER3zeW0fqvBYeONaYaqA7A4bK+pM/S Vhh9Kdy17zAbr3xi3nv8qQHl2PP428/bcXHLEr69Cdk4XXp1vOs4F9wjC25e 0+9B3bfzTstU6biqd91YDN0Qlkt7HFXIJXj63gjqumCpfDHDSGYEuheks2Tz k0C1trpWSWfDUaNPqCSCA5m8ucJjZWxs95eql9RgE/vfxZDW70Lkt8QAxosM 1F3TVW+o5MI15LveBmkid360CDbP0vFbVNAmaZq4D1XRFJHtE/AwiFjQozsE 8nFxI8eAnwjtTZzZrEv0J+rXbU3yP5HNf3vogzsLAUFrn7JWTEL0nfzv1T+I PtRGawqSHIO5sWe5B7WPyL/bu7zSJhBW9d1x0WOitzDn6sZIYzj05tSqipsN kHJo3HGaNIThtfaDQ37doNZtdn+0sgbXx+aDB3VqkWIWI5UOove/3JP5hj2E 9akdH78MspBeMVzwtbwR9DyXh47l7dj2cE/trrftoCyFucxoGza3dNf7uTXD 2XBKblXSBJxcmOeeedPBLFq0OlFvGN9DWvHFewjUXyH93QfZyGvtVAyMYSNA tfHypRdcGAjYOfK5dqL4zdOQrv5BfJlYeG7rzXrQm6zCUhfQUbFp++hS12Io D5w/ftOKi1X5LRrHNpSAeuvLnujnhD4rR/nXfiJ4g2oxbfV7BCtbNyfP6hL6 /CM27HeMgfhMa/WFSxMhyifrLnT2F6K+t67OaCL62aTs+1urOBANv6v05yYT BycfqZ9KHEK31plHr2tqYPRMJN3zxjhSv9dE85+ig9qU4Z6s1IZzZ412TPq1 wu12+8D+TTzEb9t/vUG7D3Et4xEe4Vzckj9zofxjF+gjl1Z4BtfjiHXg6sbp JgTI2ho9DBqGoQ7LudOEyCUf9sw5ZYIP6viDTu6PQa6+97WGI8PYydVI+b64 FKQYk1Ldt/3Qb94TZlPdCNpe/UdpqcPQe2t1rcGK4Psdq58qX2iCw84N8lGb iX2Pbl8msX4MXo86YuWsu6GSHfZqSfcw+Ixis4IX5YP8m/JGwqEPDUdPjJi1 tYKurxoZ8IiNIetjsn4bO8FdMiY80sbD4qfmD20eNKEubs7vuP0kln+1CL7B 6QVF4+gvQ+cRfBk76iLkxQa1eEO7639E7retdVfKGUDSyMW5H0T/JvE+dBbn fQL5QeXO7Cc86AUUtu8dagepoWww0K8R6llnBQ+vK4a92bW91Zt+gr4sTXEk hwWup+XkfO0gdkdJ3NvbXQbuv7TdB3VZ2BMqV/wuowyU5rcFt2TrULjFV/G8 YirqMpts2eb9qJu/V6XwOQtGeh0ezx6MwyE2YuhyIZvgEUOvwo3F6HnIENSU pIE+6rXIt24S3ffyNev+cEBVFGl2z67G3h9T+L//Bpzo7vRwm8ZGxs19Fr+I Pt53x33p1QEs7ynxWRKdAMuv6l2UhSxM/cnnKGwfRNTKooeIaYEn75HL4ttt IIekSU0KjULj4rKeF7lE/33sc/sdtQ3U+m/7vcvKCZ5sHTtPH8LPhwf0Uill 0L5a7Wxs2of1c6fzStqJ/i1fbi98gkdwsECjyZ1mULOP2LrKDuCA74b9Z2e7 8c40YcqphAunlC+Sl74OgZI4v3pujOCw9j3Gs5ZE3ptW3hdt6EZR0s0zJ280 EH1ddXtZMw9zwYmmLLk+aE/s2l4b2oHJMkFBnad0KKa/U6xInsQ2HQe+6W6C lx9lT95eNAHPOv+6xqFu0M6aU5WTGBD6Gjv8Y0c/6Guswx1/DOH5PdJLqzCi H+9KLHnzcRQbreuiuLYF4AoYBVV+46Kp+vUpAWfiuVNTFwYGjiJeEwl2Qc2g pC/LtOjphtaiG466Qo6g2e7eLHS+BTVnbvn/vNGKKH5FfZPwKVieFDo2uYoB iktANp/XGFo7e5p2HyLmt0vrfE/VJDIXCvnJsemg2Z0M3CbDAfMHsyjoVRMc n3cuTijiwlyHyV9PYUFxlb/h0tdc9HSXr319tAxkcrvwOd1+/PrBUerIaIaR 2fzY94Eh3DuXykubZoFfTLOdElsPq/BJqf53DWBf2i6a82ESp67eatSzIvzL JsHmv+VMCL578tj0PQt0+xPxiRn92GXvHl7sSdzX6swUT6lubNAwK55/2QIq 7e3294lMpLur/3cyugA9C6lk+rph7HjMKzOdSQSVMif2O30cRyUeJCxV7gR9 /Az1qB4H16svGqWEEPed9y9HZi2xx1+l7Zy8utFWJn036xkXDWt7r0r7leFY xnSTcgnhA1HGh02aiPzeXRywjcrF0hc3PO/fJfjgCEkh7ekoxryiN6/Va8Rb t9/2a6YHQPl8IHKXUTEOH7BuXtfbieUPZBz07jNAZo1tN/nDRdfJV0PJz4ZB eXfnbPLcBI6NtdiuaulB19atpD/mA0h8Iy9EX9wHSvH505n945A6OJDqE0hH VOlkRZArExdW5e6gKHWDO8B+YnSD4Lhsr7/KfxrQt+xYx6ueFvApn3h3MqIA mX/eHH4h8gs/dJRpPk+HEXXZObie6Cdfs/7xVmcQ/d40U+al1yAUFK8H3NjY CuoXPk/5dWz0HrAzuELkPOVKwarYxVz403bdPtbKIe5poOCQEw36NvoPzlhV gTq6PJtO8GrDRQonrKYJ9GNFot3z06h1NB0W1WbB8tyfuTHXCegdPPG53nEA Ufr+C8PWcXEns49v/7kGaP4KtCtUGYLJlWkGnVtLPK/7st8r2LBJP+cX/GQQ lCfnt9QHNqMw9/2OfT8DQRWfbyndUYsI37Wr1y8h+vDU3j+qf0Zwq7OgqjuB 0GtrcMqpS4S/zgjezi0j/JQU1fV11SDEi85Y/xlrBum1+Le26ErIXt1QkORd BRrJSu/N7jZc8L9olPG2E5Z3t3tus6BjjX9Z6H/SBE8/PBxykjyGVbWVMaTi SFh+EHfrkJ3AAdOdwsl1hH42+qz4aNeKCR0Ns+2ppaDWcE1OqkwgZc5Kpsmk DPSqNF3jU0NoXXJ4cqc0E0a9T3j3irmoXmDSvudTIeqWP77+QGsKFkfq/fqN id7+LT70Uywd4Hzt/a9jEPPOb8/tC5gCvcDk4TMRoi9vmfkiRszh1CJ3s1RJ DswVuK+7DrGQ/dNKYtifAVXzg5eWHOXi7THB1S2mdeA2rusTlexHoZ9MrcaH aNDiap0/7SY4R4dqd1oiBzQ556uRGePgo8rcu2L8BOS2NR1hznRY8GzWiNzo gY2RM8XQieDfPP2kl1bEfmhlRl+/Mozk1E/DEn8HsD7gW+WnoxyEp953qe+m g+4geHBWdQgOb9doH39K9Lnr5a+1lrXi5uo5yUS1TlD1HsvScruAlSpXY/vz cTH1L0PWnIHfCYMvl9waRsAfsRjf6XEIvP6lKsCgg7LsbDBf6wDWjHvImhPn vv9o8bl80V5EHRsrNuZvxvF6yfz7VsQ87r3/8LGpDrT69ELO/8+/4o/NTyMm oq4/+sLs7sFOZwl9qeYWGEVuCtq7hdCj92r7z+cIf1F116zsG4XxxbHBHCoN ot+cHsbzcfEk6uCV1QmVIK3LnL3ak40chyojo+liUNtr6tgOjVBSUqVEabUR etyzdmzBCFxOX/st9LMQ5Dup5xY4M6EuxLAOvJMGlcCAILnXP8FZ4/7YupoF Gi3qN9tjDHp5m/M36RD6ur2q83QIG8c3hvKnR1ZiyZ3V64YeNWDlykTDzAJi fxaSq21a2iCUQlvTtZ9BfF9gWf0AExmGI8q3pLqQMnK5ji1Mx66YaiH7x2Ww 0doxtPYNG7UrjumxYwm9l480vfrKRFXFn7pzq1NwP9HSq/MZG3s3fc3qXlAP st+L18v0uyHaZdetXkTopYUyYZUwgWpVQ55nYS8WaplWCPvVYWDARfBDTTO4 9/6b6Do8gdm0oPcftvdB2qtVObdwAktX3dyZvoQJ6s03l565FSP85O2PZ5MK QT++8Ym73wCeWAr8k3sRhczGB2szGyag+EVw+LA2sR9VNRzpP0Te0Q8dXFJI h/0jN+U5DhdGK37O39tE8IMEHO8SfM8aIRXt2loIamyzLfnUGIzjJg1+3qyE aJwpx22aC74m8S09hztAWjO94eCWLoR8idj241Ubvt/apDnCz8DSbDUdbhyR F/XPn+0x7YZ2QpPwukMM8Otlnmla1YHMyVTO+gVEHmgfn+nyHoZILiO+tCIe meN3JvfF1+FXqV2e3rouOC5JDuRWTkPPuMz/Cm8AVEtrP85DGoQXHDHcl/EF JAEvs7OVPbDzzzLx1k+FqKTmeK5VOfhc02JLz3+F5Tv9R+ov+nG5N9e0ZVks 5u6ldwfoDmAu5WUGa9UAUj7a/f1xaBiRVE9HUjHB995Wxs7ufQh/IJpkIT4A enHg8cGbhA8vsRo70FkH8lBG5MMDXQiUYsc9O1dC9JOwgAtOfaDliWc0M3MQ Neq+XezMIAT1b1aJhcWhUNSfm0vkiZVu8apvj1vwHR37/B5Oworcyb02041U 05VyGl083Go9wtMheIhWnb9Sz64bs7Khne+JOd5bUtVncpXwodRX/CrOL0Bb 5b9Y3ncYODOs2rx1GHH9g/wXDnIh0PS76MdgK+H/UQfMHnWBZNRAKjv7DOEB EvwKKmPomDPTW7y5GfZb5zSeZ/LAbPzI97K+FVyDC6Y7z/LQV+Z+hkTqRMDX 2BujciNQGxZMMv8vGJTzlwKWh7bAjvMis+JmHrG/hzyE5Qawf7Tu6waBPqjY Pku494qL5f99uG5GcKHjjd6j5YEjiDHij32l1gHKzqp6ntAUQm5O+5a4Enm8 Tsdu+kwXwVPps5XPCkC/7HrKY8k0Sk7sSLyXxwT/9pO/3Ut7IZHhPs95x4Bo ilJDuu8Qop5lWI6rEp+nWZQud6wZn/O71x5IIeaxaNmsafU49r7/cGO9SS/I znVZTURfusn/gq4Kom+Lf/jmRW/DduPlpNLSYuQ/rX96lzKGLF7ZK9nuavTE 3W2QeD2AgS1fGe/vEnwsL1OkemWA8GF36pkFBKdsmhetteZA112goia7HVHB Ru6pVCJnL4X3zI6zQaI78V2XGED0cRcbn0V0kFPF7tecJvzIqbSAe4vIe0fX 1vBfdDgJNOxT7GmH5e+/VdO29cg7XLVlcLoNXJO1XtqtE5j4V3GruPH/fVvg eR6HhZhjGn33z3LguLTf7TPhl09VtgqTCxho827/ejuD4Hndyj57TaIvC/vf lv40AgUfO7FragWIilytfWUpGwN7Vkz5XST4RZvC8LwwDLE3xzw3BNagONpt WDRpCH0mH5X2stlgHrIazznfhCzffUFnU8pAXfd4x/nrvfCV3+npIjQMUYXK Q+WFk5BsHblxWozISx+nPZSDA6gbPH2Lq8UE/fpVev9nJs7fcvkhlVKN38ur 0vUVeRA8Pn2m+TqRT6uMvtkqsrHqc7tXpFo+Ul6o7XN6zEXFtjIL2sVhUPeF CN027oSmC9NCKLoB9GD9NxqhvSg4euPmC/4IBCy0NgngY2LXv/imtwqtMAqU PqWSPoBr3548jlMtR1ROW201wXW1Ij5HPeqInj+y8q0moXeasp4Hy6QGhie/ vF0xxcPEz6OK7DYOKI4B5fHMAXy4utFWKaAJf58PsGMPMNDr9NP6S98gVG5U 1j3azQO5UOkivzfRd/6LFQqb4UHTSk/m4BdCX7e0Zt40MXDdJmHfkdwGHOhU /LBkXT34yBM9kZFO4G6vTvV8XwHHZ61DzXKleHz+ULym/ARGunKjNfwbQBvh 22NnyoNT1M/F14m9Ez30bUrzAAu/nwrcK3vCArVnY+y3E4XwqlWV/nitFlz3 GOE7SVyE9s4UJKsS923+3rCFNo1Z9xWPfy/g4Ha09NYnWX0YW1CTWMhpQNQd zavnyRzI526cHnLtgvHWsdjnxVOQKEw74kBwu+W61lMJQyzsI3/3zaYwkSLw 4cZm3jB+P96SoZbXjyjRj09WGoxBbpPZo/A3xHk58a8n/w3DfYl/8k+lKqLv 6gRJGXahTqv3SUlUJsjBmeM914ZQ7yGycFKH8Oe1Z5+5/Z7AiepTj7gRDNCV BWd3q7Fws6npm+s2ov//l7/EOK4d9nIjMi1CDQgQHJbLPsYDx2B59dVyQn9U rz/XnDqxeLe0RG9ePaL2Lr04e2UED51bZ6MZ/aAMT7gfcx/BcIOV/1e9KlCs KjvP2XVg5qx8R48N4XtmPRN0vWo4f+412fcqDbTfB45HHq/DNf3nRlWy2eBq 9f1gJk1gplbwS5obA9SW28vjsjqx14Ih93FZD8ixW0QOhjfC2G+brPP5TyA9 5yRLCjfCYEw3MzeoAZYjHy/pFI1DKc2O5NxC8G9DvNUMpwl+y136rdkEH+9L X/x2MQt6RfKn2w41E3n85/U7bj/cS8VetU7XEXk9kBpcOAz1K96G1vz9uHNr hv9YXytcKv1MJs7GgTKmygi5OIKJp9djT3jHQPgXVze+rgWy+i07/znX47GH pu7acBoCRS+e/pKYA4rn8ty1h+no7046X99OvJeU0/rFGUHwDak3tlIvobK0 TYcsw4T7A1uGbzLBg/tDtMhrirDiz5K0odAfEN08GnLbLQvrFc6u7dxcAMrF YLk3xzvx3UGoVOfcJygeOTzRMDqFDMfFD6ZrCf6OW3Q8370b20dVNq8GEwe0 s1z2JHMRHprTkU1rAT2NbP1wSx/+bTATLnnWDmrbeQHL9+Ow74qnPcgh5kO1 398vVg/PkvcfKozb4VVRdvqSyzhsSrbYNboRnHA6caPIHQ6WaonEpe4g9PFy a3nEywkk/PF+/PhBOegWjJcObm1EHzVVv9vaA/reBo+jWu34FfpOZ/HRXsQE LNnzTXcMJ/cYdqUdpMESXR4PRzjIalsQEx46CGquwNGM7HHcSihdokV7gSi+ +RHvNy3QOaK2WbosjtjfTQ6vLblINlzd5eo8AJqXRZqdax8C3I0M/8thoTCQ flz8MAtGGXwdO98MQXSryWVJp35sPZB258nCJqK/lxTt3tmD7Lk7SufqkiH6 H+e8SusQctSCby6M+Q7RF9a/fu+ZRL68eNGeJDqePVC6/ozehaSPtZqvPhP5 H1pzqbe0FeT8hOjCGyWgvLXnzwjsgb3fd4H5GoL3WEdMOv0JftxEJ4TaQ+S9 9NuX1Tx4eIxu3hozCNLCR7LXTmcRc4jvjXD1hKjx/i9Li/qxs2P+kYpiMWIM dLbPHx6B82KzGOPvhZCyqcpu3ZwJUuTjmeqZeFiy4k+7KDWBVbQvc0DkB/E8 4iE3KH24v/NpIqeeA0vj0rLmOSa8BY/oFP0ieqjsFdGwDAZoK1fTl2ZWQH3r gn1PXXk4mqHk9kmpDyQh3c/mrQ2wfWnSZWhWBBKXv/WnQx/Ro2Ir2O0sOIZc fUmrGsCJx91uNdp0aNQ47Si+TOT9Crm3/uEEd8Vkl/iml+Fa5bIgV4MaUFg9 RnMh4xgSju4pWsuAhZuCTKrTBHbd2y4Qqc+A9ppilU/6g3BPWvE8SXUAv8s/ vd11uAfemy5f+3C+DaSnFSUXivKg+OcIdf50FMg0/qX5LRO4H5g9vY7gX4rr mrx5RyKf8x7caojohGjocqnixiFs+OUlq91HB9U99cKEzzDoAwI5zjeIfA0t lTB90oaprU22l3npIGnuUDO704VhyqKREl2iT2msr7i4pguR80pbPyt8BzXo c0RMUz0+vFWWkCK+Z35xieRc2yhO/TOQCCD4PGpJv4K82Di2aohuMNk0iPrR t7sWErxNuxplL7KtEJ71d5dvmWdCQnlTTBfBYeSf33euWTOBTHGbgZJhOsGp h/LFDejY91tom6wNkRdfo3lTolz09Wz9439iAAzHlFVhH+m4rSNt+f45kXc9 +SM7zMfQOfByU2l6FKh31mwbj2jH24zNzyKufYHRNx+XO9RhKDjyi76PJ/zc +v0Kc/IUPGLM+IWHB0GjGux4PT8O3/XdT37fHwTfqA5tFa0JUeE7D5ICm3As 0rVq1cAo6ptsKKfniJy7veBOxXMujAXn14ef6QVtUKa4+f+8nai/dZsk0UcX uq22OtUH9Yb/dg2qt/z/Plcudm1F98aNJK/bBF/tfzZSqsVA7iJzyYvNTFB2 3+r9OD+Ir8KbtG+nM+G1ebOMkQFxz0v3vDMppqFcNm876XsTksZsG/QuNUG0 pf8ti+CTEb1h2/ggFviLdfcab2RiJDZpreHGd6CVbi092j2Cal17mx2m7Vg/ qLVndpaOvCf1x/8RXBplke/y9RYb3x9m6gR6l6IudNiimDaIq56he6Pu1IF/ qCZmJvAnGpYe7f1A9AryYJvxbAcTAn1mf3fVfiP8b/Fe8ZdMiFv0GB2wcwDF eZHk8l8TSBTUGg/zbkGeT7Wm5HUe7pFmtb2NBlHgljw129MHUyXDyZisIRgZ S9oJWE2jdT03MTtkCCqfD/d7sX7Cvt3ph7T4EByvvzpr08yD+6VnqgobuyBa +V6SZ8+BAZs8KHiAyFeJ2Y9TxD3elJ/aEunNRLF/mtLzSA6kLz/h8r/LAXPo x0N+u3E0NM02Ki2tQ5SyAfgUOkF72S17agexT86l8VZ+vdh0TmH15Rriede3 m9l1d2Nk+9/jEg09EN3OnZeq+wmcd1aLkCH0O3Z5RYD8ICoWu+g9rWeCtF92 Bx9fH/zPhAv9DO2E/cf9D1ZrTuACnXyeEV4M2sYORyPBFvwZGG0tuVcNktQp ry6hVvy4Lsq3pq4CMTsaOvwjiXu9PFYZWd4HI0kBWx1TLk6fP3ylVToOZDWB gqAxgkP8H4d/Va2HsPkN9XGCH7snZFT1l3wHRdtpq+R8B6TQvKW86/9//yrv cT3VBhvyyvVcZ0J/5KST7LEhZGY4JEesJfj63fYWyUkWsnL0prXaibkNJsct JvbhunCrsYwEsf9xrLCpvd0Qd7DqtPDpR+4b1Udn2G247OM5m1qcC8sl4iK+ xHxDLJae+7ChH5b+K/oTBPvxPP/yVEQQkceKSbElWV2QdlN2dL1L9AmbjSPW e4m+7aH6VYvgIOpSgzFZFQb2pSw8+ukgsfeUL3c4S+i41G+1yFgmFaSHDy6l yPej6Xb1WyxJQf7rxBDWwkkYdT0MKib2m7rolGmi+gDOfWvgf3eF4JuA+G3u YoPYEfelMyy3CRZCZp2dxN50FL9RP5reCcq1vQ6b5Yaglf3Jo+rIALixcr5p Kjzsnmfbvx0izrM2vnjasgnXNEKqw2rrkelcZXT3QxvGio5s6jAg+vylhdL3 Xo393+fyNcY/ISJo0TWZ/UMoN+uLG9Mj+Cks6ESLbT+iI2rzU2brEHCwqkxh Hw8ity1kXJMHYNm2y9t+Ygg1ru8LF/PTEVCQMe65cQqKZDXl+yYE36vml9r6 3AFf+PSB0SgfkOmCB9Y/H8O3GflJ7ao3+GL1ujpkIRe1q/c+PF/IBuVFPeM0 tQlO238E7LlN+H9QrsSKwFKwjMauyRp+AcXLnfspk4kc260NR358gf8RliVF dQpRqY0DpfIMzCwI/C4T1opns7BXK2+G+qZlkQNvp5HN4vgcez4My4Kisq5u Np4pkCjtJxiI6ksXCMtmwtCt0YEjRUe+w6srp7g8fH+9q7rfewAqh13kxpP6 cXJg7kClchPqaPIZfjI83Fnv2CgeUo/iLzE7VZoasEvAom4umuhjuwL+yOa0 ImThZf6H4sR8hn87uXH6UajTGNnrSPB4uoBByUwTRA78+TjztwRRquHuf8+N oD0zdf95ghO0fpJsPW5OQiKv3u1iMNEv/czd88P7IeY47f/cphWGU8svryd4 6F62gNTNWcJPvO4/2CJMh82Gl3bMyBZwj4deJF9g4ee6slLNv/mwL12+ZEps AtJy2ofPLOoBrf6ks2dtIyS2pVDSM+VBK8zKNnnEhKj554Wd+7oQtXBpBIOY h1n6DaPS5EzQ9RUY3qeGMPtq+697Ia24ql0pKtnbDyvPsTHekjaIPlCcyY8b R/r6f13TqdXos+1t8pjqhMrQuN+643048Gx4W/abSVgWBv03tZPol97M2h/p fRDK7jXzPkvkhYXFMdWiX5CPDJEXZ3IQ5XJh5fp748hVk5q+8Zn4ecmaNdf8 WuDAd+3H1V2tsBHe6/CI2DcHOevEZRIckL+kblIkfG5z5Invx78RfePhRRtJ Yk/dWrcoJlZXgPog0EhIifCVfWtcSNUpsHzTutoog4kTh0d5SUpEnyUX2ZuG VMPXYMnqorQ2WOpw9mrUjGD+0PbFDgmE/3mv5j+Wx8Zhf8rAny31IF8P+rRx xyAi9MYPUeM7cDswrTFVloeUs919HVYspDBC3V3KuZj+r/8662AXqGZHmsPV O+C/Y5C5+RMDJI2mP834AoXrR6y/XEgDd5G8leEYF6utRB+tW1WDd4rKVs/V CA6rClt8g+An+pXKWGfRIfz1fVEnGlUEflm3rwKnRlHy77r+qrohiPlnfA1R mART/vi4mDPBdfYyf2/f6YdCjJ7Hy9h2KG/cEhRe1gdVG50nt8RZoJ30mK41 nYJ286BG2ijhN+p3RQ9RmYh8pvPD364OFIOEag+1UTC6Pz/Ns3gJWljGc9UF Ixgw13TZ8oAN6kEpeee1dMzb8q7aexG8dLXIcVasGhLvjmwLvJEPypbpEsff xP1OB79rGP6BqE0Owf5XRyDgtpgXd7QZZKsUjzgbwg9tdrWNH+8AtTtRVKeV DbeDyubLlHtA4Z38YNfdhu+iG0WEdhL8PBqrZPCYBT6a1SpSThBEbxd8L+X9 BJctfOnK3WE4ft09f/gSD/Uue00vvugDrcSb1/mYg4v1F4wPxHWAtunC9Su2 oxC8dCcgYGQQzHdiib+lRpH1LDjicGwhdG3z1MPzO8FHjZj9U16O/bK6ugeF uQjTNH4Z8YTQc0vzW3tfBtxW3ZR63d6MNaeNta89nYCzW/dpuk8HUthet+0K J5A1GXHNXYMFEn9QEbudgdY392oG47tB+jx+5k40A8abg1WVTw3C8va+uiU2 EyhrO/siNLkRNNmM2J0XWvFJ3n6RGDH3ui0Jhk52POh1J5qdjGgGKXVrotka JjZtv/Pq7AtCP7Sj5k6dneD5pDsn/yP6yy2R6Kt3+3E2J3fZylIij7acU7El 8q3UL0bvtmI3HFOUnRd+6seLfhsNCZ9voGXN+ah95ECEKmAVU9qALq9Ix0zp UUyURwmL+TSj14Y0KqXExcZN9m6SzoQeTXW6g5YyiX5mrr/3NTF/vQolp5sp 4GuPahLNykShKvmzR+o4rtcuiPpj0wvu38divkbDSJSqnXi4KwhcPo99MxpD 8DicJUSaqUfKjQmGhvMEZKYNf+31Z6NA4Y3pU5FhsHZ7e4ddIeanMKjxOmkY dxeq+kq6d4Ie3Lw3ULIFKxJ/D/eFpoBkZ8nNlWWgh3R8pUMZA1yPF+0vxoj7 5DKyjp1lISDi/PfeqXEES029/i+K0MPlpKybyUP4JqGRFrIzAd8/ztjHBfDw OnAsrLW7F+UdHmGnHnGRoeYW++4XE5k3NKTG3k9CeNctL5PsLtwxrTz/meB1 nd59+R55BJ/p/mqaz2KBZ1EyWJ5A7F/UmXYPgmeC9n2M1lJrJ3Sr0DaVmIIu k4SvamuyEXFGUo91hom4k3N8BskdIMXYmoeVVmF5WOfBQuV61DstVDcy/on5 FNeDo7uHQCcFX5qsG8Yh9wE1jh/hZ3Utns1/WyCw2YMzK14J0iWd//S8a/Dq 5UHRxr/lWKZjeX2tABdaj9XDTr3k4Hqjd8VK2xHceyGTtGJHFcGbB2h6f8bg E2v03eQbsZ97ngV8K2dD7P4jydz2fhx2Gs1typnAlbAR+sWNRD+NPei7aWMd svNe9h0O7gD9WoP7aPIE3gsyKkMFKkC6F1A5aDMEN+8dmeI5g6AvfaadPsmG kvLF15ZEnpJ293rxt3Kw+3CZkpg2oY+/R33S28YxcuFf758PBE+N64n992AY vNDTtAJOHaikdmXh0EaMdupsCE4m/OLVpvH5aKK/xtjHHXDKR9RZsVSRjhHc OiCYt66sDLSdR2/p9dJR4C6k57mc6HWXX2uc2cxAi/cjcfOhHpAk7y0s2tSI oTcWsyM/6pEjbmxy+ycdpNI/6QuvtEP08SFVl4dTGC08KLIihQ7Ls2YBarZd CHMNt/X+yQRtv+tsnDUL7uyHjsLSHLhNT07xv+wC3y11o6D8TJTu3Zl8LaYf fXdcpHQKCD646awU5MaFoujyYJ3TdLx7GnhcYDMTc597F4V50GH/zM9CBjzs yx1ZpyXci9RP+3NdCqcgrW5kt0CBmHfMr3cNeeOQ3mjw5IcZA6K0cdccYj9d h6dmwnn9hH+8Gloc3Iarjoo73wfXg5aYG18QxEXe8LHw/5i9SDG83PT5yTDU Bn/+nkkYBIUdMqt/oAkrTp4I/4RmHDY9dm7X32Z0FszKk/YR+/fC+aT7XCPu 7Y8C+1ILKDEe+m92MeDcUHM85wXBfbqejK/vuXCNVTASWU/kY7Apvh5pBd/8 ru4zDj1QtJcSXqrQhntBObKXx0ogp9sXmdg0jHXTmkdXEHoU3ZxjcWolFz8C 9sWLEH2YsV/o5t3hHjzNqUn8LtIFek6J3bsULsY2pDEnB/JAcW8QL7BugMDw KbETiytB3dr7Zp3pAHrF47RpSznwudDs9T57AG6L3sW+Nu5FwC75Y1RiXw/G 3/2kbVaFmay6K1bUNqQI83uOKBBzDj6ypH1FAzKWCSjMdDeh3LGjpCp/EtdK XgVXNQxC6zJXcWckC9OslU9iBVjgBs+ob90whXrOVm0SwXskufwP5hpl4I5e yitLLEVuoNWFoIN9uKJ28Ooa4SEUBM1TcryIfJ45YrPK5BvIKz7lNF7qRcXh N/J2sWUQ1Vbt6nKbgl+75Qr7RiIfyzbruDzogM2k9ZnpVCJP9hje/H5lBBYT 60Jb3zaBKns0tlTzJ1L/1KxcBTbiJmOO/1c0gaZ/qYE/m4n+bdRW3Lu+DV94 qQ+P1/7A3TiXpXpHq4meNtWpFtGGKPOPNw69Y+Cv/GJO77Figi9vyafElsLv wcSlo7fKQD53w+zhyX7Y2fgK+vITelf7UHYyrRdsAfEQMwaRHy/m7PNecaC+ ZuGmrlCCj1UdSYO/+qHG0+vJXkfw7qzGjYP/sSGqd3D0gQmRVwIBd54sLYPJ y4eNu+WLQZUY1M95XYJlik6nZ8zyIcNdltyRNw0r5WOZ/9SYMJrNLzL04KJl W4xluHUtaActHPwSSrFAdlrEM4PQ/2vaNz2TMqgYDXr3P/8GyzmdjNMOHCR9 9Es4W07wQOSOr7xqNkJXDwun6BHf5ydCc7CtRcod87sJPytBXyPptVO6HiTW 53Ndk96gOf0s9PKfBOOFqc2IFuFP4qyfx2UHIVZ4rMDt7Q9w08mqP5snUSsS PMlicZASKn1XIo0L93nRu0u2E32pr8PmaOp3COz74XZbjoaoIrGDv8SYuFcW KvB1fSmoJdfEjrZxwPdB/f0MtQvgBfaeSuaCdixG6bA54c/ObvK2lTxslLb/ /SK5C0YX6Q2srUyMkakmLF4LHi/VVFGIbYWCR2SDiScNols3mlQvLYJbfWip okspop6cF1miR8cA+/3BNN8GkH/fjbVOG8BW25loM8P3IJnmRcxR3sMsSyaB 3hQHlQcmfDuN+2B160ZI0qUBRJyYs93R3IPTmhU64XJ90Lyl9JbhS9znqlWf nMqiITrpvCGFOJ/NpdKrFfcZoP8SNBO4wcU5lt8W2cWNSBn5VqKYMgQn9qVf uyYGEPVR+0KG9CCq97XnK0QRHH1nv2XVaS7uhZnPa+zqIfT6odL30yDkpzuL Dhxswl1mVup+gX7Qxp/t7CG3QUbkPX3vAiYaXzhO/znVB+EnVHkd42bclAmN uXM1ExQVvxs+yyax8Ob+H010FroWciIinjFwEI9zvW4S/twVqTD+uB/8Gw2C 3HOI/hTfLvaYlY2htPvdRT2poG2wkN3YzMaDN5X20p9bwf330nm3+Dek+S/w 1W1/ijbLl24In8LIpNI/pyniXFW/1KlKjcg9lzFhKtKDgEO1gQ/jK2H1Z9e1 yIECpOy8YdR3fRLy0YE+rxb0I4rvzAmdV1wcW02OOPqwF6R/DyIeSw7ig69G 454DnSB58j57JY+A9FFk34KGQuRaBl3cLd8NpTvFWk7tiQg4LMbz9mRgX6PI EF2eBX711MSVVVyEl1YWnBLqAMWcdztMqx+/rzB8hioI3vP9q8B5Ow7S+drV Qrfo2Pj0jfXl+SHw3T8oaDpThJSsys3H7hI9I3/BxwzxPlAjngpe39sEPvvu cxaJ7SCLxO2xJviLe8V677gekfdFNpvNW2pRvbFLrlOa6GU/Ddy2tPahaky0 IbW8FJS79Mo9STzcfKPVNnOZ4Ef7W/EpR1goVD/6L2DLAGjkFppbGgcnYx5W d/alw/IR56m1TCtGWyKvVo/U4E5Myld3VyKHnUxC+abbQEkwUWRk9kA9k/k0 Wq8bdRcK79evmcJET7y63ggTlGhSzyezYQhcWBa4yqME94KNym5rDeF7rGbz Wa1uiK5cHRNh14fw/+rLny8izk8O0l/wZBw/arrf/SksBPmuBMU9Pgfzt/MC LFNKQJod2b3ZehJCibvuNfOIPjpzjn3x6AhOPtUiUyRiQapf0v5FuQXLC9NX CX0h8qGpqv3B01Yorz+06IpFPSgaXv1u9BFovNDpH1T5AUoS3aAikolLzak7 SZ8bEfCV78nc3DT482rknvDY+H5D1DpzCxdL9f80S0s1gZIse6mH1YCzBofT w8SegvxRP3LH4gmsm8j4ZZVP9LfTzzZNr+PguNTp1+JRBF88c1Tuu9QPGTkx l3/XieezU9OMkK6BbkFQ5kbhfBgJyn58crUfBStCPvqackA5OLW4rKUFz8M0 o5cRPS7gUX2lXdcoEvltBYs8CH/Oiq7YJDyOQwtejIW+7ANFu/jKiG8Nzi6y Pe22rAaHlVpUSMVTKPk5QuXtYSMqeiIuwp2Hs4sdVUKIe55Z8bBzIJSNAwkG ssVjmbBkv2tSIDj43NsPWnz///+S9tZnJpfzkV+7lHcp4z7GBT/+1vWYBn1d /dbyvn7c3Jq/TfcqwSenou1XVLZAxa+w6GnMJHTDBVbzFFn4rlff7HWDDhfl fydu6RH7VSal1948gLfhXj+2PqSjUO0ATV2dg1/JHi7Cz4j7WhG1IVNwEIP7 C5TLNLtAXplTL6zCxc3huCCSHnEekd8lX/eMIph04l83qRmU7cLcR54DCLzN tnB0TYVzteJ/TT4TyFXbKaIY3IMe3vu4J0Tv3fZit/fvV61w3HPoqtWtAQhU dY7ErRwGJcrSNTxnCF8Pss46viDy8mXIMtPXw8j/nmVzUakDohpuX+QJPzxM soyoO94P8s7rEWRhNrS/yqckOAyBVvu5P7m7AycXrYqxHUsHZaW9a/E5Osir vc/PVQ9AViPq5a3QAVCE7VS7q4l5PlEyFJHsgsKFns9tGzpg1PzkeoQUHW4L Vi5Y7NAAyi6Do0fyOnHR5ND255m1sNRMii/X5UGm85gWp4fIuTRT60/5jRg2 1ni3T60Sh0PPLn13tQeXY8/Y2vEPEjzx3GqsrgsG2b4j01UMUA6NbddiDuEY LftXhFYDSJ3WibvFy9G//vTlRpk03BE0e3YvZACPrda7+OztwpxrMvl1Jx3i yz17tIUIvXxw/i2wshV6a8g+/U4Evztvt3SLoWPMu0PMULcIVKOkYKdFnSif SAicaMkATVqRtvNJP3Y0+epzfnVD27T8m+qmPvy9fcv8761BaEs0JbZua0Bu 3UCL7JGnoDX8knJbV0ZwW0V7tDrB//Sxgdl5HnRHJDeaZ7NBKyqwLtzQir+l x7JT17QRebXC3nt0DH8mHATXu7aAfkxw2FB0CEpvDtWJUlmYu1TO5tROwtRF guHWTnDadKd39Uwlfj9eLrWiPg80w9JQmVNMxCowzhr9IPhXqT79fdIYpJq/ +65Yx0RA6Rdbz+NMiH08OWZCKkGKf6hTrBkdRwNWv3guSuTR6Qdrc5e0wzn1 9NHHvn1Q1M22MPr8E4H6asqxKSyI2kc27XDkoTy0Otnn/DAY8nkf32QOYS/7 qXJBewZIC8fHPkgX49fWOPqTkiJYrr9LdzzIhua+HYckHNlYc4uVEkH4sZOD v/aV9/0g0LZ8jegY0Zv4ti3mNUJFvXBNcs40Sr+lbXknMQDL/D3/TE/3YZNg +qOOAqKvKzTcF5dqxaYAM0QGvkTUCgOp3A2jEJzhZuj85mCfvekzy5NET4V+ XWMOHYaDqcN2ZB767vlqLmhpB+XSo7jEZA6OzCSsO+BThZ5kx+NioxNQy13L t/JRP+qiWixfvZhEZI3qi1U+hE7C2PtSzMagIePGbedGE7l/xfGjQTssJ/mt 90q1IG5GfpFezAQiXpDU9gsRfaImf+uxsDFkse6PON7KB1UwdCNrehDOH8VM uq+1w3X5SfudR3tg1Vc3U7+KCWqy2vFUy3J0i23y/hpZAJKezpJCwhd0s5L2 HL/uAqrDiott9YW4GzMU4sKfA0bSZ7ENRJ8hLzvyfpcYkY+am2OvyI5AN6DB unphM2gvpX4mzRL+9p/fo/9VdN7xUP9xHD8jNEgbUUZpS6Wi6HWpVEqkrDIj EhVFKqMrKkWRSkLS3jKyxdl773133LTubFL9vr9/3bn7fj+f9/v9ej4fzueU FdthlDodo7eFA4O/n/K+PmuCbWf2979W/fBWc0iZ18lG2t4JteVOAhRpzCr6 G9aLWM8tgocbB3F9lrvMpE0ZpCdjdUUpfDAH5t+3JvxcuUk2sy+Ujgyzyiby UC2uRat+2B9WAIWTZX/mraqBbmP3onfl/VAvPq561yIF1BzveSGuxDwMnGpm a6WAdkMtf39KMw6GXJZbyWKAIqw1a2YPsc72Gqu6JtuQw7i3tE1rGHtHNv6z JviQEuzkH6LNBeX1/nM7NjSDJv/A/eIdLphL2VxBPOGLn7rsFi9iwuhV3p8P rkkwvnfshlr8GNRo54VlVXtRk/d8is0dRT3/nePbc704dPb7A/V3FZi33the zqEZlLacV/STLTh33NTiS1scSKePPG4sEuDej7fpShrEXNsf76IbP4jYdfbD I+GETwxa7GTNFyBdTO7EXw3Cf/Lj0w2bO7EoK73gy/rLxPwJ7eX9ITip5oOQ 47qf0Dzn8LauR4DGP7M0jOKJ+vD/K8/0FqDC4k7g7Gg6qOs5y1679iJkueNu GR6RfxbOZdLFXDza76119Fwm+Nq5+vyLfJynOXrpjcchlpUmb2DLw9s5U1d9 LxH8Jlv/Vep5J9zVJGIlp9kg/2uQsM4ow+2ra8UYJwMRq77N/19hMy4eSW9c zi8m/P+hkUwYwQdH+ktV+USelv3kCRHvl9/r6dP/uQaKl5ilxxzoWPa8dhHO vgR5ckFl8/piXJvrt/C76w2Qkv4Fid7oRtS4VcFz4ybE9AW5mo1wcKuB8850 KB6kJ6Et50jEvsykZlyprwJJbnSBsnUW4j3yR27YFxD7d7XUypkBox+nv459 o8Jtmqm7MGwct6SPWDkH/f//yfdmf/zdAIP+gcWXrAj/Ude/s/UgB2Z/02O7 JbtBWzflceA1wRkVQgVMlzYIIlT36TMn8Doo53ycQx9IMS8WhTYOYXbjOa0Z +0TUOQ+uds0V4OW8wdBeJge0TZ8/l4uzsC7VN2molAHR2Lt55aodMDc5650r TvjCTru1g3YcDDkajh3l/38+yNs913fwUWNulPBFvQkLXi/dk0/mw1qcUu4y QUMoX7VhQobI64U2honataAcrnvlWpEImU2CuG/9WUSeFXSKygjgHk2299Pi wnLUXFpfhIslpOMO1VmViHlxS3sTwf/Ve48JWwjzYLuwIe7V1W6w7bOXhcax QchFq/iFAQQpnF/uHRIPRfwOmXOIh79XFb6cqKsBdUSwJekg4UNh4uuDHjRB sXfiqunFcQwcL2/cZ8fFXRcX/booFizc+PI7TnSDXPBPufJCO7i2iXLHLRtw puj2YcuzI7jl8zN9jQEDsaOV3oc1CK9p9A34Sng9NfSZ9bcUYv6JxoSFD9aB vi27btxGAPsesuxpezYof/tLTFPTMctbs1D2XiYofSeCn6+uR3jDGeMHGokg b/g44e/cBP6dTheToEL06pAnDdsaEE0O+fb2CcGjVep3JkQEcP13p+2bWils e5dV7WnpwC6p7T11giLQti7synPlIXzbTibJpgYz31NUBGlsNB0rvhpa3ou0 TPUfbi9HcMiRtPeFMFH/7kckvQc7YaJ5/fiVQYI/WDyVI+NjCEp1cGpo4OFU /IqFa2bzMGNzLDd0bwt0/Zf/Ps/oBHlnqurEgRZc87zxVauWD/tN29IVI/Oh viSJHrt2CP1nHxRr/iwg+PbD9kPqbfjn5S4p+akVe5RvJX0qqAFNjKZxta8N HQGBz59QeyEyaHc3cx3RX+tVYkJO1eJCS9T4yrtvMfNqXPkx0TeaD/J0Hl3L B39j/vyYQwLke03Ju63jEj6WL/pxYAArshsET1m9oJ2WneNuSXjS2+OVFDrB ZXNaPv9SGoRM997HPHoLah7v+GhO40O006Vg9z7CtwoPBN1Y3If3A+usTHY2 o2va9Kp9DB/GBUGaTuWEf904Xrt/Swd+Z4jlX9fpxBvjpdoH9fqxO9EwOka6 G6FXX33OI+prrr7/+vI3xPz7bjPJnFuL5vE/bn7Ox0Eb97vmMNyHnsy3jz22 10JxmWckby4dXGbW/cvNRH4OnZ595wMPKodGuj/P44JfckNJLpuL6s2LGxN/ NuNWeHVY300mhmKiw0rLiJw+xJZdblGGD6xnezt7ykB12dSTkz6AZX9ni2xf 1g3Fjf+k7kkMIzwn4LbeVhbcbn/Zo6/TD/aEyI3rSmzo/khOU1LIB+l45krR 22Ug//2UzIyjwnN2eu25hhJQNm82i1rAgYIxZXucCVEPxRaMFSV92NTeXe5w hfBb0bPslvFmXA62SZGvzCP2seTs2LJeuFheadZvJR4/d6C80noAtsXuSxIy 6ZA+qrRrVz0La8+p9N4leMPM42NREXkU83LnOuqN8UCKrd03FMnB3NzkA2KK LfDN/LhhSVMHwUFvz67JJXinut6pQLYR4vQ2OR+C7/J6LAU9bQKc/BfN903n 4ky21IzNSgGuH1179qp4CciKe2ZHK3cj7UqmpnF1D4wKvm7InenBnbVXAi21 6kGuN3gke5aPOS5zt4nMJupN85R5RWEHDuTzOYmMeviSHpsbtvUh1zUqjSzC QlehUMUeayK3wubJxu/pxtTh7/7qBJfZsVffkP/BROjss58CdvRicZdxxYob rQh1cFRYHMeB1IWt396b94Haz9pqIFGGimup9kPBDVixZT77mKoAkx3yh3d1 dePT2T2JjzcIINBYTvk6RYelou/NpcdboB5o+K8tmwGSFldmD+Glqxe/72HL laMgq9HdnD8IvzO2RWEFdCh2bO7+mdmKXwt3p8SvrkRs73r74B8dOHshrzzC thekvrnSA7XFGD9SNCtvTjFaKrdEnNUXIErbu+pKdDso1ov9bJd2wZF/zHJv bx2Qqnw/Tp6HNduHXOYHsRCynWkeXTeCOC3/nhUSTFx7V/k57Q/hF4stjW72 PQdJ6DZVh/BIv7cFY2sr2aiJTBvT6xhCVpFP6mUSE9p+M5tnvR7Eo7bqm3QN LhRtOX8LTUfBYnykHZenQ/jjzl9CRzjoNppIs39M5JFbt1SoQjd8z3jJvMjg InRz7JjVaT4WnPrrONeuFTUejwat67n4cHmRaIkEG11fEy6E7eRBPWyr/GuC j6he6noXpxow3VJ2496tRti+utitXkfUf0CNWua2Fng8Ld1muqkDE8NWySam LHxyNwncnjwKW/3pq78uEOs1c6ciLZwNTd9tZw8H0bGKP/CoYnYPinzWs2Uj e0FOTCxe7DiCTT4bEj8s64TtPo2t2dOtuKaw8q1Lex5qxtvehARwQTqqk3zY MwM1jeuM/6wcw/Ihr4vf/3Iw2b/JTGKajzGJ4Fh/Vw7IefyOhTLjRD3e2uhS yULJ1vyQmytaoXn3YtDvyzlEXj0Tzzk1ik1PnWZnmnMh3fA0+8jyUdD05HZe SuESPJJdrSXSjLnPf0qlnO4CWSvrnVHzAI53ZzOi5nNB01kwe3hpK8bT6sJN fjXArWbf81QGG1Vji59ayreDWrZINPdzN+QLVCr1ftbi3QXRvS//MvH3pvLp yyD8eM6kq04yH2ufyJkdJThaVO7SQnVbYl8/nrDYtYjwrbkrqZrj/VDp+rlQ 7mwLbJUVfjvKMvD3h+x6qRcXQa7QnHVeqQgmL0cvLYwhfHbVdJXFDA+hk5rr 4760In5+dcQAaQQBZe7JC2taUXTVeU5wyxAUyoU6RAleJy9XG6UmVGOe9URD lEYpwVNHdbQONmDrTe/PB9RKIH3gTt4/Sz4SUk45OAa/R6yzvW+1xABW7fJP lerjgPQ6YOOGa3TMLp5yVRRmQqTq6wN2WD1IHw5uj20uh+3Nce2EEho69dqq 5VoKwQ/ddzT9EgtKzJzqXx1MuFWu3LDAVIB/rXZVrWcIX7h4pXEigYXgDnmq 3inCF5U7nJ8lDOKrXXWIlR/Bo/+Ovesj/Lb49Aub1QQPKXYs/hTj2oPlRQi0 PRKL+Hrfu2UdHJz0WvCx+CML1Oe7PxncYMFule2PksNdcEt/EdG2Yhj2+qqr j/xuQtLo8J2jSwdA8n68aEFtHSISIquvFgyDnf388PVpwu+DRrLFqrtxV2h5 xcn0HmK/G61G69uhMqvMDCvqIN09soBxn459xVus5aI7Qb26q20gqgAzKs9e rtZOBvnVkWs7rnBx4OTjrnm+XOxdp+Z/9gQbMgw10w1PiH4Slxxc6TGGZa/8 1bcPET67RLIprk6AqyuOD5B92xArkjzvZMcIots3+r24SlzPy/vxPjPN+FUr f+VBLOHHorKbGDf7Ie5BXffDlgHbZXe9yCtoOJJ3I9Q5hQ3S1ndnqixYaH84 55m7XQdWhDhc2nyLC3XV0fkHU3tx74H7seV241Baf2oVdyExH2wGU0p21oMf vrN2xCcRpM7IsoEogj9DaHoxNUSe/Iupom1qhIdhtdS6Y42geMSsGrr8CxVO z3j9e3MQOHprA/9hPbR3Gl98Z94BaoeecHRdLtZ3f1fZF0HUa7ZO3BzFVoz2 bx5oOZyAgLTwoqpH5bC29PmZxymCbb6rQwJRv3+0o/+49RDrfb9zWX4VFzE7 j26blxGEFT2Pmt3nD2PR58R3c54SfHLya8GB38ScNhUuC1WnE+sxrn+Z1oun R+zXPJTmgrp7y4a2OhYk2FadF7V5EI6+YjESPgTx3ZsXZbTVoEKrRvj25lpI bpJ7f3eQuJ+zISf3dw2jT0hk5SObXiimOOxSsRtC/vskybZbRch/OHD9DKcV t86Z0xZZtcPNkS1+MLsfvdsWjpzLzgR5etOcek0erkQEXB4ZoIGSWuQ3a7gV 24IvrNxfR/jVOne5qjV9yNCi57406IWQXsvAvi3jGPK87RxbyoHRHDs+qWwY IkonDfvmET7KmJW77DcP0nIz2onKKSjRr1334tco9oQe2z4ozoVt7qLRE349 KCx9aM08wQC/2+CO3yom5F0C5W0I3o79rE8PFeEjV9XbRI7YL8Ulhzb4ydSh 3ZP9cpMX4TNRqR5ZBFf0bk7yu2xPeHyjy71NRH8OFz0LXUQm5qOxJHmj1QhY WlsmarSJvFQQq6DXtME66X6cQmcbbA86UrhPmMiQYj1qkGiHbaC8/aWMBlTe LDCQ2pQJEm/jH6llLQg0ofU/OkDkYZHBr29hHCRpxDBsp4j7ilxwSepKP8QU P7runMMD7WzovoaZESgvvP/EiMWGrVxG527HMWgp6iynthD5IRPBeLOQh9t+ bZZ9yTQslJVY10zwau4modS1i0vhJjz3vvuhETBrHJWp7oTXRZszDKZGESR+ LPlsNxvXTAsSKt8KkFCw74WzbDO8ms0MY08Qfj+j+MjoO+G5F9ZkJ0kN4l/T +ZTrnRyUbCe1qlcKoD7Xd/5kNxOX/z4SuUz4wa3zi06IqleANPGm4dcaOv5y 8/yi4wqh/Ptg6DLDPggt6go/rPsTQhavI77Pp8FVq8ftXmodsqLJuqvyu9Fh r3/etpC4n/Pjr37W0pHcITnofpfgHcutMkvpdKTl53/LMmdB84tCW8Elok60 LlNT2+Pg9+aW8+m1LPjFFIa4uHSAlLBVZIliN7TcDwbIN4WA2lVusNK9B8eW ji/xmcsD5f2d2as+9OPv9Hjc+Yw8SHPIz9efZuDH6ant/o50zMhWRvk3ZoBk tLVE6lAEkXcRQvMWdSK1qOdg7+4yuDEGk+/EE75x1dBn20sG3NKoQ9NBbLx4 yRxc38ECua2qQzi8C50nko9800tCSeSKKD+1WvjsTeL3KzcQ9UPRMM7uAI6G jVGF6kCZdNyXRebhLJoDXm+PhhvuXkzWH4Gfj0+MpQcbhkrBZSJqE/DJ4qhf WsqDkRtjP+kyDVflNfTey6Tg0IKU3YwYAQbOfvj3tKIVlKc9xqpmufAQ8+p/ bFoOKj+KJUf4/zVOwKvZKQWQuN904ASlEU9ZTQasgC5EG+hJ5r7pRzdkZKV2 1aEgfLfpL9V6dM2pjLdwKoVRvX9JpSIf6xfcSSSHE3wcpLrBc3YTPlulbg8b KYNlhfHDG5oDmPVu1XWLVzyY99o5NHwbxo6KEG25ra2g2go/UbBmofsr/rkm 0kByOL4+eG4n+IErhPxvs6DeOiymn8HGzFDV2q4iDqQHGjkzwSOgpM/aHUPv wacHM6Nft/Kxon/6Wt47DqjjzfTD0sMYni/ufdChCdScXa+CxeqQW7X0Y9nJ NqyihTamS/BAbQ15vcWiG5prbv5SHmmFWsTN9WLXWqBYu//xq6pBFP051R8+ uwFTyY6SKs97IPTFOC228BOKinSK9vPzkPsm/KRmTiGo9F3kJ0Q/XT/y4dk+ Yt1sP8ZoTASw8Ew1e8VJl05IFxc9eGDVA53rwgORz3iYXNjtt9BkFIqr9639 8IsFPY5f6a78ATz3Xv3H7zTha5OhOi6j/SCRV4QbupAR30bTzI0Yg/288Hjj A0yQfEs3T7r0Yfubx//qc1thdO+qa2Z2H2yNjBW+TVPhFjZHKW/9IAY1b24r z2mD5if/NmP/EZz0yzg+5tGFWLa+kC9bgLbRPrsnyU2I3cMPo7cykOm7q8b4 HhtZXp7OZq1ciEq4PPixrxkUS9lg5+pmDL1OPRPfQkPJZfGsjZ7DOLym8Kfn wSaQuk/J6AZ24nju/UbLczmg9Ld7x5U0IN5wf+YSci1sXf7uN4UA7rPe1n7e xIAyeyRbt0WA2ICf7Zoz3aCK9ihHbBrCEmHHZyFFjdBP73g19rEd2vXv/55/ loT473bfFxJ5or1zte2gPQsk4fAHuyba0fPnnmRyZheutbaz1Th80Bnz2KuI /KoZt9x/NEgAnV39HplenRAh36XPk2GhlSoia+BeBpkfEr+T/AUIVVSct/4m MU/Mgg4ZjowjxN8i4jSLmP87az/Qy1sQoGsfOaxH5MO7AJv2FBpY3Piwu9JM cL4tu7vqpgAhXdUCZa1aUDaob3EjeOVkmf6pM2t6QDbdPu3kx8dur6L2hIPd kNiz4fDjKyO45lJpHXKG4AH66OQxnURcEepkNOzNxKdXW0c8s8Zw8373e3Y/ C7YKvcc03vOQtGGx5B7vYsKHSn1WdfLAub1qxHwnwbn9AT/m3xjCj3sX17hz m5F7utygQmUYses+rXoaWQPbs19VEpTrUUHecf1eXhsout3in0ZqYcLcXz3n 6z2Q3V9KDN5rxzFh8r78bXEgley8ELqNheOcdSmds7uQtuWcyJ+vY4h/Lnqk y4gN4Qll0s69AshsVn1vMMUm+AJi85saULWuxSn8O8Hrg01NTgNdaBVarphw rxbSpbw3jks4aJ97eUXXrBpQlLb92GPQjo95P922vehG14uDdxavHMK8fRIb xawq4NazqNxZdRgCJTMpp+pa0F6zWQeGeJj+mRoxtKkJzvceGlDm8/HZTC96 4RCRr2maYsc9BzFbELoy2ZGFmhdPP1QODqHnxwE92aoOUGqGqnw2snHy14OP Cb1VsO28yjx2fhA70wd+m3sTnJ+heyXzEB/ONKM8DwuCh200TwkndGEvNN6b bm/GoL/l1Ylfw/iuF1G49VIXKCFhKy4S3p5xj/dF+wHBF+eoMw57uHiw/yg9 YzwPBdMnaue490GZ/2N39EwZrj+33/l0Pge3XDKyG64WgJrpK8qaS8PAxwb6 vBguKCPdB8O1h/CoeF+yyv9z6HX6mTzaCFZIe0Cjnw5Nz7Uiay+2QXGVEGeK zUDsqe6Jip29iPPiOtquaoHE9Yqo3Y4tOCXcGkM9UIZPlwv//r40Bo3gfq05 q3qJ/eYyNIl5v5M/HXGipg40B+WNOtU0ZB96GOdp2wxhpRVbWjWIHOz8bDx8 pwXSwYvKjA2YiBqbrT/WngbaN9WfIl/a0PZ4xVHpHxWgXTrt4nBPgDxXd8dd VgRfR36TtTcfxXzxl7NMqURehsta+K5sha6FaKrhSxo6sv4yDtpzkBNQtHnT wXiQ5rt/KNHNAYkTM0s2pASkJ8cUgvwa4Mm+H1zZFAbF2z+97z0eROrPl3dW qEaBeq+XslKRidOv9qg4JRO+tG7vSsamfFSGjmRJVR0HCtNT7B8NQjVS4VUQ 6CDN+87jLYhE4qHPPBx9CtLXmX6TjlSc/jq5rjHyKSjsXWFxx8agoCj14XAI FxHTEybjIcO45Hd0xNeZjegvbNafCQYyDKnCpo9bQKYMb+0V7URMxtQ/30M/ QF3LkhKUE32RH+Q9WEfwks/GybfhoygurUq2m9OL/Yb3rrutGMLZrildFzfC 06QWla4XGwGJVa9TZ9cGUlHUUIIJHTonNkVnr2XimpnegMzTEazuPPROw7cb lC/jgbusktD6p9Mjn/0dt8khbs75g3jkkL1jTR0XK5YfnwpqHoS16UnTGUYe NM+bpRVL8PHPhb7ZRZkHcm3S0x7lLmxQu71rmSQVLX9aGDXPR8Fa3/hZo5EB 6SMH2s9YFeOUTyL1mVw54aM7e884DOHp2cEvn74yceh0ZvqHAT6Uzh5+XzTW A9J614nm6S4UJ9ULaV1kgrYsavP/52HZ62bOO+HWBmkb31+iXsT1zfr01OxP GWJX1Ma7v+zHcMWE0wfXDqKfNkzqPWNhzbTdlqyXReDPcd9GujGM8F7PiNAM LgL7g3VDz1PBHOdl5KzOQuBOO9nIlwJobydNb83mgDKVp6Ji3wUd4YzVssuJ eaNShDNOPKz0CurbZ3gblDW50pvWD2MtZ8/Pn3lMxHbouov3M9D6WOjq/tV5 INOd3lTOGcS+t+U1FLmXoB1+vLhsXy+yyCdsdj4l1lvBiPq3PwdBM9Y7w9m/ kKe6WL4nrAcKb+5IlYsS+fowQa1vgIqOgtPr5V4S9X/fKZH7bwBzn7eXjebQ kT274wivtAd73g/dfJbbDYew7sq0/i5syfz0k/c5G+S9Vk0jDo1wig8OWjzR Af7f/KzBKBaM192JrQokeD7samSzbj9eL+so9uByYSTmM/ahhobXV7ZOuv3v AyHjt+ZWstCp4z8v7DkXNPlHU9tjhlC9WfSMWXIjVhicdUoO42GLjU7MAgse joeZHB9dS/DubynN2dQEkBOiw5Su1iBfv//PbVfCr5J2fZE4JcCC+MyIyx/r 8caKUdmeRwN9nZaKB1HvAarri0pm6nBz27Pyg+Y0kFOomdaao5C+b7os/hEN oVs+LRh3YUB0/ozjit0MkCvNJr9J9qC+1ib2nG8jqMOMdykKjTg1F90Tys2I PRZ7uXcDMScOiJ25Zk2DT25YcbkSF/ZWnppOYUzoxMk92DGLBec72qGUDe8Q mr9539DcYaLOL5GX/etEKDcClDg25Gd/f335RA9s5+3mJX3nIH7Pq6bYtFrU aL29axvJQTNFdfrkxlaQ5CS0fDd3wnJcId/iSR3I2g8OiYS24NreL13FYsTj 1/o7Tzblo3XlsxpOZCliOZTZZz4LiFzZ2pLmV4+cpJUzHQwOaikG078fMdBy ZUYo5wQfdYxTwvsMWKD8XuZJ+tUKNwm1G6N6LOK6OpLelA9CUweR0lIc/A2W MHV+3ARKe7Cnq0o2SJdr/t1bUA8mL3m98tbu/88TWHxwHQfabbP+GJ5sRbek 7K5ODx7oguXNKxmNiJ2yMi04Nw67VQ8zHs9io0YysC4zehQPjg3OsznaB+nU 9t8PFDmYVxQ/2X6M4JVnG75/6SzGF6NFvOqeGoRqeTxM9u1BhdVlB8+fRL9I TKt9W9WEFYpXeJpeqaCmJAafMRRg1/W5st3fauFY/z1NZDUNaYPtMoH7aKBR Pi89cIkPobve84MVKhCqmqM6Fc3HUmfG7L5+gpcCho+4eApQfUlr98bZ1bBN HUx8LjwCfTG9VwXmPKyQOZ8zU9+D4/FvUkgkIg8KsylHKSNw6C+Kfh9NQ47p 30+rzxGcwkoanHGoR/cBK5WI1UPYy1dNeJvGgeK+Y+Iv4xpR6atWnJwSh65i 0VzthAHsEaWsPX61CbT1i+LtvVhw2k/f//NnNchvq13VVIZw84X9KTfjPgTK x9cpLeLjmW7jbE5YCvysf0u+XMqFUAdzbrZrH2gLxG90GPZjYfDc35YEt5DM 0smCLaXoE2r+OJWXBlvDwd+qHCZkrtF9vXqI+qrZsrtIdhD31lnt6EpOAq3H kEIbqcPr9UEVU93ZiKjV4N51G8HaWJFJ2XwOYhef0qgj+pC90XKP6xIWfDz1 DNfVteHlFeOvUYsjYOuYdX9TL+GxYyUlWswK+Nzfpij+lImhjs1LN9dV4F07 1emTfx+Gmv60W+wnOF5S+2VizDBEdDfH1NcRvOG69ERFSjNMZNum7Wob8GrB 35aCFTyYmlqp39Zgom40fLemCgOPFPhJCxYS/r/GRCyB0Y/1NOcLicYc0N6l m/VX1IGkE/fGZKoYtlfHNWJ+jMBHt/jkVZd2mLOby1+dJXx9wC3FwLoH6kKf jx1NG4b6IlkZJrULT3PPxJnYDhHXNTf7nngzAqsPZxetEcAgzrbJVISJmsNV 9Y5uAtwMaj0tEcQAVSxX5sq7blRHvwjnGjFQkL1fLFq1B8oS0oqG6gxcO/LB PNmtAkum3vbei6kAdf6jF17e7ZhoOHZ/oKgTpPgDJkO7adCLZZa+OkqH4sdK rY2ru7HztcngaVojyPOXL+k52Ye3m8/ZrDrKQdbHt0d0a5vhnb2lZWKsGbZh 1adXywtwdlSebi5N+IuBdslC1SJ8sNykwI44CP7ZS9KGRN9eaVkqG1HSBer9 kIUivv1YrSvG41Aa4Lcr3HLXC8IXxx183p8lfFkn25A2PAiJQdGF1vpZ4Dc9 DlmUR3iCF48rYchE6Gq7xtylRB12GUe6BRD8vcBXWEtlEIL+nKJH5B7kDD6o Si3ux/dbjM91HwgevzFv2eK4KlyeDuo8JdkKxfO0wMGgHqQNXX9lMUyH5bFy /5JELswHFF8OURkgHZu2r3wwgJgABuPvhixQKvaXSRNzUdHj4mryauL1Q2Rb J3K6oOj+c83OYBpqbOEie5CPI7W0bb0GDaAgpsRWqgVntAMgrJAF9Qj5P1nJ NPzkPTQr62JBWjzuW9O3Qbg6i5m4LagB2UFdxflRG/ZvOfarres9brXU2kY6 EfWT4vX30LVYzLM/fdhlugm3ZCJcLdsLoBkcctqtYQz6egeEx572YubgpVKK Yze+ew8rCOt04so2V8ZzEHPrXm7Z9W3pMLq4o8LHtBcJqtqu35ryYJR764l4 6AgMTxjNZ/nRQGnKSD8YLkB3RbPhkm4OyGbTWyyu1MGrRnBzojUfMZ/qzbIP tYPWNbjpy0cmqJemnVTnjuJFqMjynE1EP9ZeKhvXGset2DVXVc+zoTnlbLNh tBUflGPiik92Q11phcFbAwFGMp+Z6Ib2QtEs8fSZGMILHlOfLTWPh0WufL0e wXc0Fl3SdTsNjpVbtKIvsSB+fM5L2R9sGKl5O+ER4a/G52r9XvQifke2kuW7 PnQ4F/wiZ3SgRmR4xHkHA8m63+c9Wkfw1Eh/rdB64rp2VqkkRTfAwWGx2Jfl PKiQ5PYcl04HLakwL2qChh0a2+8eWsOAbbP+10IWDyYOnk9tlKtAnUwbt9nX ivwJXx3DjYmI7bcOYKkP4EHl2iDjngbQ9Nz3mazmo2Z0tirjcTEmFc4mXtg2 jFdajhf6pnpAfSGqmvWNg7afOgbvC74g9p/7cfHqAfSKy6mt9PwCO0ty+NsL PFRPqkRbZXaDdvlrkIE+FyZGAUv/nmDgWJpDU/JiJgz/0Vp817eCdrTzUGgQ D512ck+3HqDB2tvscMEXDpR+n9T5FtkH8paNFu5za9G74+pQ6LpiuC31SfDY MgiV4oO9nKs0UF1ij3/OKEWB5zDV4fIX2MrTIsJOc6Gkdupc/Sbi/lfMUlG2 aEWVjcYVO5seWD6q2R1EeOjfdaVyu3lMaB5+tGhOeBuG0o6/ua7SCT/uncz3 WY2gSx3mfA7pArnCwoOpN4AWMcOK45ONmJQvKDdML0GbR+e75IEvoImxPbZ2 9kMh7+TtaM3//TE5R+QmCzY35pX5G9bCaKgpxXHjOFoVrZm6zkwif7/9vvWm D5HvGjcneCQhtiHqRX43H1VixQdmLa2BYqbQJY4FCx/ceO3eeh2wPbiYvrhP gFsijoEtl9pAdqJnj9hUwVRxh/qBXTVYR+tYa7pYgEjGheG2Py34+VyoXdGq GSTbwkuBg59BefwjoGj7GIwEs0yf9xB8uPauk+quUfhOqJ91P8dEvN2eIk9D PrZtN2leuokL0iwzcmh/C7w/rvmZfrQd5II3s+SmaEi63fjzQ2EVrJWCyCXB TMycS5BpjSC8ryt1RLR4AH9Etj/TTiX4+ZVQyuaSUUy/wfr/z+ejav+++GtD D5qsmqrn93MQfPivjnhyG2YurPzjbJOL/a+d6/yriOcdns37+pXIJ4mRANM7 vaCrqbRZEa9HlU652eFD+JGGYd7ylwzkKX/SLdvGwveE8zdlp3mgnf8YkWHX B4O1x31vP3gBSl2Hs5EuF7nNT5u8zEshfWHJm18Lh8FpWFP11ItYP9t5R7SD h2E1lnB+6DfhBwHLvcfdayC54eOx0tO5BB8nXt19twHBaYnWv/4RvNUnUFwY 3gkfUoz+MnsWet8JPQkh8kJlj+gOrUX/859oytnLw7jm9sLpdQRx/a2XAx9d 74Mqy1WxO68QFHsJKbEbI+ibqP1n3d6BycYxu4xEPjxafPsbvYpgPt8+VMdr BNcsA38quxF+NL+iy/+JAF/TF5PFibmd/Xbbix0hLOxNnHf8gBwblF3lpd+v Eft/Xmfd6ygqJrfMWBzY0oxCg0cZu583QdRbzonypxVdclpzWscLQUooqJQM YePAxpttfUvzwX/wr11hDRPM2K7F5VN0SBeWf/ljJcAp8RVdegcY4BftKPDY MwTzWWNOMj6vQclOqFuZRbyfcsOb8uI8UAZkX17YIIBUod5Wy0XdIF0RhAn2 cLFXToS68ngubrpZ3XhxaADkXQ5FwVNUkHbLiRvvqcHR+ju7pFzrQc51i/zc M4jzP0QldbVrQRvV/3eQmDd8BQerFSD4/mLBGidaDnK/h2W+5ZcQfS8iOi0x gOIjsXUJPmUILf3XxfbowYYdCXsaNAg+ZD/zlK6h43Vf1QqH9b2wXSqkf/Ei G4+TJX3wsxaKNW9tZLbSYLL4mctfoU+IXTOZUbZvGHOeKhdMOnAR5ye87jrh vwbbfhx6vorgnec2/pM2NKRG7Xv1bisXKumPOiM0uDBbZfv02BsaZsLOfoj6 0wFp2x/JgTkEb+o9mf8gkolhWZWqxymE77zyoHz374Y0xUDvwBMWAjdXWDWv G0aP0U71Xx4MnFt4u+NX/jBmD1eTlg0RnH/69o1tRJ9fKFHSCEwg1jMpufnA 22JkP9w7ul8sEY9fR98UfO5Fcwz9lAyZyD2FdONHJD4uuodFBaVUgmpmH3Lp dQ1+5AtOmH2qh/qVHS++jXMRVjIy6RPEgXlMrqEhBODf/3Rv6SkGhBsTrhzc 145qtZFYIb0WKG6+Hai1kYlHLroHTvi9BaX6XdeZpxywrYUjN0ncg4+baV8R qQ/f577wvxDUTOSnw5ePBl14GeIern6uCr4KbVljpQLQ3IXDTfY3ILYq0nPu YwbaMha15pwkfDf4/Qvb0QY0/bLe22NxG4pLcO103yDMRSNCRodL4dNKMwl5 NATfEY++NR8JHySn7nPJYSH2dcrLD787MOxkfUi7igHFw1eW/skn/Ou+NHf8 VwH23j02cNsjF5T5zx/E/X/u0es/bZG+naBsei9fe7UeQgXZu85srAWFk3Vu 2fJSJPAXrvRrKUNs77kDxZ/7cMg/i7F4VRfUCyajNmwbg3nS2Q/ytSxINK/p mThUgZMHlqowZ1WCXPXNvWYLF9vMrHzHpIn+oFDG6sR7YSlbeClk5f+80C9a tYKGTccU5jm3cRF68tnVKksGplM3avnp1cDJoOJ3spcAMQ/v5t/a2wbbgC9u 4nsZeGpLicibIvgua8Nyz246HEyldIWkikB12v+heaYXdyzmR8sTfaOZ63hp muiP9weCFtkuJ/xON3nMtbsXb4o9HwdOsKBtyTLrs65F37VS3nnlDpBHpeZs 2tYPz8jdUc0VxP1rS8qOdtIwqWigt1mZC9EPzsFyAYPwNX1UoCNSD+mY502+ y5i4n+kcXjxphZpc0kD3IMHhkeLLDZJqQNvvNl0/m4X7wmfkZj9gIfefXlmZ wggC7IupYl0Et7bdkLioy0NDfb5SB4OoT88vKaIL6rC9zeiH//EazPAyXu2e 04+EWR5xTY/KQJYv2/FGugGVQ52qq9V/wM0r/G0R4cdO994dltSvAulDW96D MS7u20X/qT5FBZnm/kvDZgB2zdPtQnY9eEOa0nErZEElCdfKVYh+Nd1uHdHR jLgS6iqjX7UIWWxrI3+KDyt/+yN959tg9LqmrfHvCPBxvFQjshcrvWfMZEcE 2Kwgkf9DsQMUQs/tRLhg9Tq879lI5M6A3r/QzX246BRiz42rA22GO/OlYRir xntbXyzrA0n247LHZ9gwyc+JY2wneNjlVW3Aw1rsvMeW0fFLgHD7I7r/22H0 XV3262l7NxSdfrtejmtBu/6Py2VhpTj6Y9ZqyVWtMAxUPBAlXAOjqEcfa8lE vhdEGrbEEvz3wVO+yZGNgPU9PW9s60Ex0VfIWNyB5UctKoSkGJCuUz0RdVyA bYz4S1wiXykfF1iO3RSgZO0R2p1eov4bzu0dd+hCalLuAo5wG2hRKg7BF/ox ZLV52Y74cpDFjq+qITikXttj0uI3Ub9v48r7q95jez4v/bv5M/is1jm0dnk5 hq6kn3nQW49spU3rbxB+LHC8kJZ/mgPS3N18nhQLtCmZqNiUl/BvaBN1Lv3/ 3MxNQ2c2sNGV9/vVqU8jaLkYOHV/hMj1RZEMcgcNr/W0rnj+oYE0GLNlbdk3 tE0MNORbnQE5MUxh+a8+rNotmU+K5YFkftft2KFBSC7ez7SUbwLp4W+vME4f boy4R07eLEeV0/33b13qcTTzEqVTog7kar/vX3JrEGgV7jwqRsXwLXuZUvth kJ88LdGg1iAr3WwBa3cpgqvLNtv8roV59PuFDpmjMI4MyWzPoiG2R6XIjcvB 67KzLlNpyaBF/7mTrj+Ef5StgeT+OsQGKkR0TvWj4FmBRIBCC0Kv359TNMlA RU7srl/0UpBFk4OWEPtd6Ll5ZdQ1LsifHPoX+nCQP+vyslTnGlDDffeave2E nkGItrNjBWxNPH0GrYl5zjOnP1PvAWV0IO034ZnMb9E7zZqIXKma20eeHkGG pKp/kV43yC5KKWciW/DpPln4rUQeQsv8u3pzKjHxQcskes8nUANf3xAj+Gnt dhalzbsPsS5M0rqDPLh+Oz2vwLsUNW9udtNUepG0/YmvN5FLXTAmPdk7jNys fLPEhW34TF81OmEwho8cx8LWK2z0Tpft/GfCBldv6k1xBgukvljmk1d5WHbU sdUwgArFgjyldQT/LDqckn+ilg3BFemTYvwxdO34/G59BheKq1YK75HsRdCu W++yntGRx9zyMNBagA1Ffd6HzFsQ27HEzehFJ3pLJKSUs4j6fb3r/vkXVHRe lBj/xsyH+3qxgRUETw1utdiguKEeJMVqu/p1/VD0PUjmM4l6Kj+yx+lKN64E P1s1eYUOebXR9/QBGqSuJ+9o2UH49KbkG/biRfgkrBx7Rj4cofp33YaIPNd7 veT5j9I8Yr4o/bw/UIOwsJ/Woi3NCM32EiLrDeFSsNqRyIdvEaE21K8fI8C0 XZTdc2GCly20v2tt/f/vKZadLD1i3oQ9XrI0gYevHoq1p4i+fGfXJdY8iwGh z9Nfk67XoObLxsjGVjZyTG3u01a1wNb6eUDN0X6cPnYvZr7VU1Dm6Sh+X9iD S9OFIlvru1Bj5iX8fP8oFtp8P7hcvxfkw8ZzA3cVoTPkVlj18zjscXu4fqyV qK+Zsuw/RXSQCjcINKYr4JcFkYyTQaCcdTQ8RPhPo0DG7PWqMlwL/e3RebID XsaPrqqps4l51e7D4PNhc2ZDW0tAAfaUsbfnu3JgcKF+XLGdDqr9fO7mkEEk nPqlu+cmwU9D1/LG/floWKxqzZ5F8LHaqTWzFNjwLohNZxq3QvHkabZOyjhm K5mmvr/FBu3YZqFKxXconqXpq6b+DpQ7tqemZ/dA0NjBO0KnQ5AwbDdrehSN nXbp2trE3KiNGZI7yUfJvx0PNGnvYWssvGmWTSNac72mX69xxC9B2q2QfYOI 6xWVPmtcD0Ur6tppFwb2LOnmex5LgkNBpeBTGBd3twYkL9ClQ5FZEP+UxMPI 9lMHF0kSuUVWcpIwHIWDD2WLoh4dsZo2Yo0jw3hOCezzutCK+F+9g44XiXny N1PqjGk9atpbHlXZDGFDpVWjiH8megoSFuy534PWlV9azwTngnzUIWWnaRfi vV9cfN3eDPcFAd+0WpjY+37d1qDmZlAY5/ST9yRAxPUcidEUDsWLdbxMESZS n7y7WZmQAlJrsIh+WA+Y5rUcY8If4600aq0ax9H1ab22Q2IfKDb7Hov396CR ctg7oauH+P3xuv1nGrB6f+ARny3fQBrw32G8jg8fFZPFWe00eAaFKl7WLgYl /om9slYB+MsK33jI92H57U4d9cXE/h0zlXrlxsGVMd6MV00XOPeiLyUKxpD7 7uNfxk4OYrl1AxV9XdBkJyrm2bUj9NIPL52FI/gnPJAj6d4O0p1RNc7iNhwq xB99XhkoOg8UrlXRQbcXdhx4XAnSu2UeC27RUdJiePzGDYJ/G/lTJfYMBKrK aehOEv7CUXV73NSLup3LDsr+Xx9948WCB3Qs3tw1cyqDyJs/0RvJ31gQ3KyS GZufBFuzNXE1t3nwaFwgv/z/zy9vX7Hw8BIaeKS7BXMmkyA1NfM1xGECSgsl 92ku4CH2aPk9zfh2cGPUa+z2E7xorv3Yv5rgURfD5R/oH1BQZv/0y2k25GP2 zbvg24eSu327JVZ2Q1yB+TZVoxBk42ZTE512GIY5VLnIEfkfK0l/092El/zz 4/XrmkA+Lbo1T3kAbodK9okoMCGTQJPpMhmFJ71ZSWEvD5+GbitZGI1gNT9/ tUVPF6iXf5xZZjaMCI7xCXWtBtCW7fCeMR2GkNATf3GPbjw+ETZ6u3sYav4+ P3n9NNh+vywuqTOGTMuB/QUfif76vHydWnQ3mp/sD332/+ddHe7wLjcNYKLs 9LX0/8/rMJxt0j7cC7bPjYpCIq9qjF80DT3oxxuHnbvKg/qI59eqps3vx6Xt BV++JtRC7cj5GcFNGu5fS/U7NJ/gcaXf/tIfO9HASHV9pk/M3xdpjQ9r2Dh8 8/HjlQfyIP0mxH9AMIJDD9RMkh4SebRR39lYiosT73OC7hjVY56Sl1vSWC5I DoGjiZMpmOQouXHY5ZD/fsJZ+2A54echbz0NuzG0XUPs5FQZzlVbPHtQyYee uJOr4HAPqCfDRae+Eb7Plv5wwaYek31pkct/83FnjsjiDU/r4La1oLlUhoPm 5GV7zOk94Kt9TFN6L8CuW3tbD1cSvHJETPg9qR/WV78FzH5eAjJ/F21RUh3o 5B/z5yXXwTam0MeWmO+3PGJEqxyyEHDiTW/hF+J9F6zsGHzXBcWW8+cpVwZR GnnL/YBcL2hHzY+UVBB+QTeb3PGeB9st514s2szCRMqCvdZLU0FOFT+p4D6C 8ABaxc25PMwre7Hz//qZ06PnpMMl8v6mTNBqKh0Ju2W/FY7nQSgxKL1ogolv ffOjyF/bEfvt+J2U4yOwYdxWzv1BB+XAwD3NvH7IZtxduaSlDaR/1ts/2DTD 1NroQuWlZrh1BW/V9urHoOyFGWM5Jt70FGWskxBgqQ//jZ95ByZXxIZN1Vaj NeXcUb0deYgtm3Pnvt0gVl+9ZXXuVRekXetPbT1CR0ekV8HerYXIPv1bTOF3 H8RsdR8e7alF/KZ5nVGTfCT0G24W1S6CEe+DyyipF9Gv6g95RbUizN1s3XvR /7/PQ4Uta5ML6o7LC+amDEI8OmNi4HIOKJfjmBfn9uG9NbmkP4gNab2cHJvx UaRyVv3dtJeDrKtPhTNe0/AkpMBA9WQnYm+J7tSI7sKFrLRl5suIfj5G+3zs HAu7nkm7BilXwLravqSY2QOZzj0rpdcQfH3tjhrzBReW2V1FfSbEvD6rZGL3 gwVh+bvft5II36NfYc5Xq0Xk4raToc+ooOz4lF76vBSzhM4s3epbh/iNmTf0 9Edwn/V8epTwupvz9rEr03shNNvqruRYHEi6Q95TeWNIx6vDYiUcDCuFiL3o GMbkIdrChVuJ/HjSvbKokIepz1F20RF08J22B+qeSUS0mescZlk61Bveq8c4 D6I2w/RJgwfh9xd1ZJKPE/WQmb7o4XQdKH48lmweF1efiNosV2sF9QSvoOCy AEoNpPyeW53gl/YazK7kwvtfb25meQv4TR+3n7Sn46/+7CUtxM8pyx2O7cjv QNvyAcXplUS9WOz+JhRD5NPPqNcnh9hQ5FHdLFV7oPO04Z736R6of3bdUqTx //eamEpFjxWB1nVlWw9PgFSxa39XfW6C4gfJxARXPhyn+ZKvCT90u1b/ft/M IOY/T9vw8xMNMoOfzsvWDCOI2rTFaTsDtpZ8n286PChVlrZNPqfhP6WsYkk= "]]}, AspectRatio->1, Axes->True, BaseStyle->Medium, PlotRange->{{0, 2}, {0, 2}}, PlotRangeClipping->True]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Rectangular lattice modulus mapping (set rectangle coordinates to \ (GoldenMean, 1)\ \>", "Section"], Cell[CellGroupData[{ Cell["\<\ Here is an example just like the hexagonal case above, but the mapping is a \ bit simpler.\ \>", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"rectToCart", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "GoldenRatio"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cartToRect", "=", RowBox[{"Inverse", "[", "rectToCart", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GoldenRatio", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"RectLatticeMod", "[", "pt_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"pt", "/.", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a_", "/;", RowBox[{"NumberQ", "[", "a", "]"}]}], ",", RowBox[{"b_", "/;", RowBox[{"NumberQ", "[", "b", "]"}]}]}], "}"}], "\[RuleDelayed]", " ", "\[IndentingNewLine]", RowBox[{"cartToRect", ".", RowBox[{"Mod", "[", RowBox[{ RowBox[{"rectToCart", ".", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], ",", "1"}], "]"}]}]}], ")"}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RectLatticeMod", "[", RowBox[{"{", RowBox[{"1.1", ",", "0.99"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.1`", ",", "0.99`"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"RectLatticeMod", "/@", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[Large], PointBox[CompressedData[" 1:eJwUm3k4lG8fxac9LahsPxVatSIqbTpDSUUR2UINIqmshUhGlBYhlZRkKtmy lYRsY4usY98Zy9gZ+1LJe79/dblm5nme+77P95zPYdpgYq1pNp9CobCWUCj/ /1ei8olz2oVx0IWZboVNLByutz1keiwf7I2Xg74ubINkH6+Ortc4NOhJm+kr OWCnCf2KvDUKRpvdWMMNDuSUzxa2eIyCxvFecPQ8F8axtKeHBZvBHOjaWmzb D8rcpYfntw9Aw/bnHxkMonGVT2j7rRwwB+XdNvBwISm4YA2XdwK08bH0F879 sNTuGzXw4YBafXqeohwHvap1D5JeD4GpddRg64NmrBbbu0hShgtKbGfr48oS iAkWq5i5zyB+o8eeooV9GPandh4xZIPCEeau5nZg/lu7m6KV8aDcDt0yZDME 2lJ119t89aAJ/oh/pcTGYPJGbpp9Dyh73iVKO/3CGeWfrlW9w2CYVu7EYDnu O8303dxeCrrsaP2CLBZoESM8c7+4kLDYNdyYXI/v2ekCtXKTYD5wZOzkbUBL /DeR0zPkfUfZyvk27bAI1KulYQwSG7NlDgd1ojT3AP/dSbLfiV3Nh47XoeS7 ReDZmAkwd4brPPnaDfXsjb1hKlzwOyhb214ewl7lJutazRxIDK++wGfeBRkd k91bEmcgcaqh4xwvCwN/N47m1Y+BuSl0eK0PG+Zlwssafo6BrWHp5MvoBGz+ 7n62agL08xymNLnfEO+KcieZNtCvSKX+F9WG3W3c4n7bDlBebdBUPhUO27ZR 6XkBQ6B8vFdW3ZGKkBxzq2bfSdhkqax63dmPI2l7jkgdHQb9d/TTu5taYHv1 Rul/PHlgHs/L7/RnQXdecM2uS1Ng7HTcLOPYDo39C+1qs3rB6P4evrF+CIYV DZO/Vg6CUnrmPxuHj2DvXi5QVVMNiUt7rKXOs/EuVvfAK8suUOQC90puLoZ4 W5C5JLMbdFczs0dj2aD+FZjc8SAP9GqzgZufisFti6rbFdIPZrLioXVEP+wP b86ynbpAk1dnfH4/AEON20WmQeTztIkW6b4W3HgpDuul3+Dn/FvE5fgg0pP1 N95UJusN7CmjCcSA8oZl/qfCH9Sc8zG2Z5pw6JG5v7XEEBiXnqZMSFehybr+ 2JWYdtA0++P/XeqE327rncsujoCh3xJ3U3sQQvnZ/CMTHEh8zaymiXRiqD3Y M51vBJSFOSx30y+oUXEwWG1N9jvtQd2ygDb0v/vyVLqITfYzr+HsmXyk2H/V 7A/KByXp8KJCngqENw62LTk7AmpUZmzD6RboHrB6zTw3Csr+hJeaYSmQeHjG Uy+1HeyW/kfxW+tw7MNI9/qzdaDUla5ZNREH3enPh9ZyOKBNqWpr6LTAU9b6 UMW2afAHf1ze5TiAuSab0Ze3+2GT/zdpP7kON/vx2IH8dlAZOCG6iAlr0VTu cq9K0GV0ryq5FGFmh/czwcAKMMPlReYvZyHzltZseEwbqJujP/6JZuOfS7FA 0VAz2Lw7yhwXtEP8R4vv2+QpMN+zz+WGNuPVoV4V2xGin/4XPq/eM/FUeWbn pod9oOQH09KPVcFI7JUva6AClPOUNY7WDCQ9+xL7M3UENErpJnv+LritWExp 6qoFvXOZVt1sF2wkb2hfedcOutTsgU6+MswN8/k0Ucn+nK06LZIYgbIXT4vP eveBtjy0tno1F3zDv6rTqcSX5HLkhsnPO67LPeet/gX29wDeq3Z9cJFJMvFW 7wCj13O5qGgbprq2PlOKmAZV7bnIo3WNWGSkuaJj2zio8lVeouNNsN7/2y/+ xwT4dTckdzR2Y9H6/ULGO8j7l6X9dLCtwAYdF8NgOeKHUxkNFy+XoCimUGvH 5TZQHrYL3NyZC/EdZ9bPEyJ6f7j63lW/CNx+fVxu980G0Ad1dYSqcmBzQNL8 7LUhMieyogE8rdBjftVIoQ+DKb7qoSF5H0N0off9UXI965fjp7IKEDNPJOrM /W7id0MLe2M5qBZmJbUfmyD+Br4HM9WgHnbdd9eHCeopmwG3eXmoMzv8clHy MGih+0uTTtdjvkHxgyOSNeAvyNL+Oc2F+vzYBXkLWyEhMB0zf3M1dJwVLsSE JcLvjEDa5ptk36dYjnF04td75Ld9SWtERPNRmtCtDrAXhhb1PO2D9Ji/61wc G/yBS71WKvUj0r82p4laCLpHuYfvo0qU9afs+Kw3DfbkwouquRzMxaQ9fLUp CvSkpgt2ofFwyo9sE5ibxrDUQUW5e4NwurlJxO3ONBgmrdrlseT8vtzRDg0u B0XpyWbNIAbyXgsztPLJeudXH5Wmp0LjkS4lRrEOMvedVj006kHqImspGXJu Ettu9mm/rkO85EGZJ2R+adsqzZuud6Ol9uW6zIt9xO9vK/MGdyGpY+DE1w9T YD/PNdVe24F/J7gi3f4kX5yP12/3jYTYeOO/QyD7LaPGP2BYDqudPg7mkx1k n+9mZo8OYru5saLhkRhQO7JcOud6sDj/umPiYvJ8fFudbBcyQbfZtPpEexqY yyOogc69GMxSpe9u7APzipXCzw9sGPHsfvGxpw7DtadTdGLZ6D8z4n1TJArM U/o5MQ4ciE+21KjHdIEq2k0dMO5EVkfAxI184q8Rf5efcuxH2LHP1hbbPpH7 REQvyK3CnNfs6COZaUik94loTHHR9NLwl8OvKVDobgdmbn5AxA8Yq2ydAb1b /7r5sxbQVJbHhsVPg7KEf6+IfAnURqcFjQUHwSwMOKM6zIZr6fmnzu19YCzp vrW6ios//3xae1WrQQ/8r3iusgO+/WPGols7IFO0kLVSkgP+P03svCfEb3sX m8sE9MFnICJ0Lono99yF3nWLUuESU7RK+ekIZN4y+pelD0EkVVhJtG4MdOki 3+lpDswr+AZ56dmg/ar43aLXjP33Ll+NYjWCWcKgTfa2YPz222XMXS8gceCZ +uVzraC14+ajEMIt3objDhsbsSw9f2nRvkZQ3s5Kyt7ohLD9/DpW1xToOtEv rtUMYMES/ZvyGeQ84p1mis+WwMvb/lG41gxkqlPp69CJKr3lpmpGZL+OfbNb HduKm/skrRtU4sEfbULb/KMTy832Lv5xvgN0lXoJefViBJp3pFCFib9JV0e2 xw9gRqYmzuR9E+i99ZszP6ZhyaVgtYMBhA9imn7o25J5sjhVUfysE5RvF31E 5ZpA264sG/KwF5QN17ZK7s0FnbrHTrqX8A997AIKktH046fEu6fVoFwwtHlQ mQBqAP8F0Udkvj5FP9PUb8RE7HPK+mVkvpetHdfJbcP+R0Fr8vyKwFZctDvy Mhu3vpqsDng0gmFX1oOiD7347Bp1bFP4BzDz5iVadDXAZ3N/joBnPxiJT4SG ovuwZlbnyJMbk6BkvbCwfVaJ9ljLuf6WZlB+W1rTC8i86Nde8ZD+AnrA+jXM J9kQPDy6mX8T0ZP/88B5LcWYs1U/+2fuBfwU/26YM+iAfCG77HFRCcmzD1O3 5KJx+OxiPlHyPGy/fl7Tjd3IZNQduqVST/bvhVfpm3jM31WfPlNG8pPVZ7iB kYg6qQ1lv4zI9S99jOqYKIDNZ/lW67fET9+kh3hGRUNjWW5Q5yrCR+ry1zN9 BnHJwEzgecn/Xx9y9f9Vhe5NJlYcK7Ie+rtrA7X64LQr8FJriB6o5jUv0tLA 8F/D2hDUA+b+b6wlKgMIPyNqOt8oERSJ7ACKcS/ybQ4dWvpvGvTjyce6/LNw aK228/PsarDPvrm2jnAMPao6tOTLN9Aa+AMUi1oQqv3yhszSL6D0ewx+LfuO t+92KT3TmAG1bYFgTFcT0t9UuYtJE33ubYiLelUMr8MqDb98ZkD5YR7tr96L 4fgjsmUVw8Rvkpd6ff+CzN0GPS+tCG8Jl1YoS/ThktuGN7RvDWA7i7/SkuzE O5FHH0RkhkHVsZWMmO4B4zFzQehdko8nf6V5L2gC9+rZnwdLiF8FDb3cuaQb cy5f9h+T8AT1Xf/4rtJOeNqo5oknks/rajwq1SrC0ViO7NHT46AlpZceMerG 6wvptwqzZsDsvnlKOLIcQ2ZSj5QuEL3V2tw8w+QSXjbefOs5mfeyBwtTWrrx 95xjlIcf0YtY9Oc/qv7YYsJRlh/sAsODJaiq3oZhd3heuUj8tWPn7ov+7WjZ 90zhS+owZObzfQry78dmqTTJCDPiRyy3Y1saekH91rj9z4kJMEp7EqIreqB7 wiXY58gk6Ec2D9k9b8K+MM9+nbXjoBxNUctf3wy7/05vFq0tBIUryrM9vgNr 5PdmWS6sBcuE4f3JoAcrErtz5Jq58HN85+cY3YvaPqt25RXkfheWiJtMfIH4 /T8f1CJ6wK95j+M63g2LMoNxs+tJoFA/9k563IfhyJ/QuOdsMPPtp+PvN0In +4Vj+t1xMGVbCtnEj68z51fWCJH1Z27Oe5jOxZW5Oxvd5pH9q+u/sly4ECts 7v/bXDgA+odsd54L7dj/vSNadwULMt0LHoyEdIFtVDM8y0P6w+fpDatiq1Bz XkdL8T3hhQFhfn3THzCKe2vWcH8Q9G8W/H1vBlCidldgxTDhV4unryP2DSFP +NTxi64c4g/jldQYFuIuup/mk5sG80gy6xRPC1yPNtPNvVPB1j0ldPhEJ1LL RBui35PzeOW7e7ImF6X+C8b3SrLAeP1+IGKuF+gItR627UL8Zv0z2xdz4FKS 8CCX3gn6I413Zv/lIMHz16KE12Q+ozfUfzDJhcLxD7Q6dbL+FTvb14yFYVG8 4naLmglQjb+2r7ZshZvY0bbto02gbjNd/E6sHk6DPa3W85rBSFkc7e7TCdWS eDk9+wHEL8t/GkPtQ0h9zOPAyFpQNh9a50ktgYP/B0tmcjts6iTDRN/2Y72Y vfroEtJ3JK/erHzSBSkZYWXPL79Akf0PWdFfoKyfX12rWAW2lLphqGcXmswE BVenE/+ZdZdcrMdB3BeRvLdWhBe162QY5Uz8nAit1cII6CPs0THkI/VDuvCO yF5IzE12NlEa0Lp9yEknoxu0D0OSmYS/Bn/l+Hh+5oIaGR0vIv4LW/y8XMMO EX+/pzTw4l8iXL0K/fcVkOvl9Ab+GGqEY7rL43+MMVCcZheZZ8dCXniJ9B61 afjNxT5elMbGNsuztksryesiJTc2+MbB51VUILNsEKxJearQpwEMBe28c6K+ GwwXOzWL7RwkLXNVrNlP8uqFW90mxy+kF0aHVRRWgnLi8AUel2rwv/0rfniW 9OKGjgiN9nJ4ya/1DeKMgv5ddd5GjVosn1d+q/YV4YkPIWOJtByEfd0f/aiO zBd3JsN8YQdC8pZVmreNgRHICk216oTTWOWi+izSt5w17USvdIK53WrV6WWN YJRERK4LIlxdv2vPw50DYO7acGCJXS34vmU57Swj/UhU1S/esQaXnHum27YM gbrc8E6F1AAQ+t/R7n8k7xzl1952rgFb1bFKW44NGYVKTqt5L4xEOgVMdch6 4iwjO1RT8SnjkH/QKfI8qNbZEk5y+LDQnYwnRG9qmS8rx1Mh8c9Q8+ob0rce VXlJn0rBN+H5UR0eNaBYVAb8N5YF/fc6t5dvSAZVa/SdNF8f7hbGUQbPccGS dmvaKcqFSE3fu4s/yfpf2BYelB+EaGvsjtb/ONA4OKo5Y0R61Lulz3eoET9f JsF4I14Pm2uvq1N14kF7FhBucKEJg++dTpjWkudadajkjH0O6A8fZS5cMgVa x6IpqTrCSUeNu40WE1648rvZQLUF8Dt2ykGaC+ZZ3im8b4H+0W2V2759hUSr cnctyevd4QEPbAlnUrRX70gUrYKuY657UTXxm75I7dduAxBjW464xc6AkRNa +mjrANICazUwxAFFQ+7Ny4uXgXHB8xRPMh+9ybOJrW1oso//o9YQSvKF6vGc zKmlqpzpx+eEhwsEhTd+KUaqvu09ZXIfhs2eGObSbnBPaQ8sSST5lJfOZ8o7 gAPGqnf5Z8n9y5F3eUklVOaHPki0IXpd+Na03XgAxjan94gvHYcEy/VuQE8X vCJjeDX5yetla8K29ITj59o+HVbST/hpT9ZvD+cg1dfsYed0H+IFjhoH3SS5 H0tTvLy0AnRv62DdxnIsVf2zr/zSGDQ+NaxSKx3A4YtDy3jHyfv+bvgWLhGC S9yCk1v3zUDiQ7PU+yOE+6+UMZ+sI/PMvj57fkkAyn4kzNC2dIH2LpkZPNSO OHakj0oF8U/uL08vq17oRoSovS0lfe/g8On+uSIE0kY+boobBtvVeoiSNwD2 C1teldRGUD3t05/3ZaNNS3yuzD4ETPq8kdSXP/H5uusCrWbCD+vMaKcelOJ9 fN2ldXL1YMqXvb/7PQdrF+fNO69BeOR3vOd2qzIY2edNsAonMFxy9/r6ynZc YVzd42g5Ddq+6CfWd9iI2P545tsFkt8JcosPTyfARqZ/u647yb8Fe0uKX3OQ tiTHiLeD8HTEFrvBGgekmDwtukHmla1x8uUvwudMB5EaZ1fSxwf1LmQvrUWM 9cU9bQrPwIzki4xJake84D0B47QBUD5P60lX5CF/fUHiK3ty/firYf6/huB2 50XPg2LC/52OYnq3ic9kezi5mhL+zL3gFzXhBbrq1LUPiuQ8Dy/T8DnZCHu3 51vVWkpBaZTTTstOhaxXqPlPnnpQvyvcVDHthxx/zeYMF9K/roe9yrhbD+mM Mbv2IHJ9Sevdq5rIvuylKebM9IC1I3zqBt8gVN62WD0k80fbL9inr8nGuMhh 8cc6eaBFsd8U7WjAkf3DD6TMiP88Hs8MNWxD5ju3gzNXWsCOFBn6y2kBtV3C ourPMOipR9YVu3bg4mW7h4wawlNVwmln+Mqg7iESLc9PeJsvtOk0mVuNPV6u jwLaQRV+c6+4ph4rXS2uVMYTfwowWq1O+k1rfXXU6P/5/tyThE99bSjLmHc+ iU3ycv3j5IumFXBf3/1LtoL4V6dcXZtVFZJp9b6+l8i8eASIhlSlIzl1hUtY TxYoBS9urDzqjfFtX/8NrawA5XR74ph6JVhsJ90GFdI/r7hbTvG0IyJG9tJc O5mvs29KVLI78NpP9o77f5Wgjl3TLW6swMWrIsbMAuIP5p53tOZ1QM92I3XH LuJHi/ZyJ+5xYfW555ZY2hQkNtxJCzXshuNkt9QDcZK/osqHPtt3IvZQVNKB JzPQGJ59qvRfHyx8InjYMVPQGDyycEliOxrn5xsbjpL5WnUr8ejrVJSkOUvW 9w6AumAyk3qnBdKtaetiH5Lr3/54l2PPgXXGIE9+P+GnmsLgWAk2Dry+d0Qq bRr891pvbYxpg2uT6ILiPdlgJ+qfDbAgfdbmbOSoYA3ohedkdrK44HoL3v7p UADKHhnXU98yUOT6wSrOpI/w6uscueAemIauDj15c4L4Qfqz+d3xOPplufmv DjJvCXf+jO1tRUbYE/vCVf1gMn+eX8MtR/Da695tpwlnvvxvvJ30/cx1ef2T PuWgxeWvSFnehqtvtGNmOCS3BEL6zxr1EH8oe0U7RfZvfJ74SFsP5A++/qSr xQKlVV8GwmzU/Xkr+Em/GWyXC7/XFXOQHv743MpdZH6eV3Ss2c+GR36YdaQR 6RcXZ85nZ+XBfu6ASMCGDLBlTC2rPNohY6qWUFzRDQndteMltt2w5JWIOxZK ePl0QdNio++grP5k++lwORh/Yh6O6vfh3g6ZA3TdJAwnL1UaudCGFcVaiRMH iP4CM32+IQnhKR+XlNKJv9ZlT9+/2wvpldpKrCzC6+obxmaKWdAIupx/7Gg7 6TvanV7NNTgjQE+1MCd5eTq5eDJ8CHdTgoz7ewkPdsscVT7fi9v2211OZNWB BqnHWw27IJG54o9qKMm/a92xkedrMB56pqcyIxyMLrqbbzYHkkJtX6/5k3na qnjh1cZ+0Ic93rJukfPxeRjfq0R0c2DT8sEEB1AU/n5eq5sJmsiQk71/A2ge drPfWhuxyH9sQElhBuw++dRvKkOY7JxKoRf+IDzybnhGm43siH9Z2g0MULqc lfstGqDvKhCkHFMKtuwetV0DQ9A977G1TY/wy+ShC3tIf33nau/upNsKyo50 nkeMOgTfTFK68noSNhuWpl7Z1QWVX9eOnno0DYa+iZ6oWyvoMUbCBmOkLwie 3XM7txchMdOnV69rAsVz6b1dx8NRHP/Y0SGjFVSeXw7zivORx3MjWGwr2Y9+ EY/jlBykTcb0it5uA9OVY6Ac0oJv337vbPg4AcrIgVt9qwoQfFRS3/IA0Yf8 +uw7vF3QfRRntU2e9KuwdRTr+iqwYs1m7XXTwYj2frRxVRuk7/tbDZQVglol E9B3h/D/GvOiwp4e0K3Ub7ptrwbf0NEL7gmkZ9pWB4odK8FD0z/XvEaTIFHg O2t9cQivcpcp5e8m82e7VzJ+ezHivebFLLxI/CKNGjhSSnR2fsuyyG95YG/t k/Ix78D0SZ0OqaB6SNRuudlu34ZGHgftN4sJr+2NuWc8vxmePNq5l92/Qyav tGvw1QCufP/8cbCA7Pf1/y7bsJgQkl/4ONDjCzQ0EzgDM31glW53O3h9Esxz a+THpLtB+fVi4++DPzEs+oR/ycMODO1TWTaiwwbV45pao34jMvfqOBhvagb1 2GbNXWWEh2etTN7rN4DyVnJxtU0mtHmfbLuZ0wompW1eT1g1nj7hb/3nPQzG vJ7PHva9MLeUiVtfSvxM6+v0+69s8NXd4ml8EEdyxM8zYTAPjFip3Zk2hL9X R/9oiyX8NO9RopEN4fdEnm3nJbpIzs9bGyRJ+FAkkFnBz0Tc0r5LD3b3wabJ ckCzvQvK+5KWUd6ReX6vecEkohT/vJxZz3iIf1/xPCvAaiFzkZ5ZOe8XaCOb +z3+ctF04suA5H+9sPkqVBOxvw2KA5/Klhxlgf7MtuFvfj7EfY7c0jMk16OF J+r1GiNr57rJadJPmOk7tWy/18C9Tvv+Bj2iF5kfNdsFXGBYoDWyKpDc75/n IdsFPyBBCd3a00/4mV3Zu/VEPcKv5DkEOpKcbxn50bCgApmLL08++loO+lu+ ssWEF1IfjWy0u0ry8ui/LUPZAwhv1fdRfU76jvDSxVIWfXjV4SPNobdCQlsz UOpjJ2SzGnmOOXBg47mhuUWZg7VnIvZdqSN+Y7gm9pB6LNT1Vto2XiX9fWW/ 5IMrbLisZ8HsWCFowodf37ndAO6xT36q2YQHvpe+F74XjbrWW+ZRuSSPVXer YekQriyJibHbPAPaA6Wbt0c5MLpQnnZakQ2Jjg/5Qy1DiF+vrjLi1g4JztyK VLEeWIVGy/aeIfm5Y+D9+usfsf/6p6kT5qQP/3w7ZYVcjKyx3717FcnPZ1es Lb1ykZ+Y56U+Nwpm1gmLNwtb0SjhlHUpnpyT+D6RU4Y9SPcob3+kWkbmx+XY gbx4nPyeV/nLcRgSqxxtQ1p68XT3JVMXJuHrAjvFN9nfEC6Uq7uRRfxto6yj TP9HHHFMff7PhvDkGsp7pQ8/0KM+K5vOJXrk9dDYRq+ARnz9Hdl4wlsRv9zE 93ehoMahLZzvHskr30/RVnngMzKIe/6R+MXXrKiWkmIEamb9SL81RXTkSpXN LALNM7x03kQTybODartvdEKkk6JbrTIGqmzN1HzCUXEOAuHlscSvK/STJruZ SH4lPV9g+SRk3vXcjXrRgRER6dMaWm1gu6/9auA6AOc19uvzzMuJ/0TdN5so xjoJcd/th3tBz6eZ+hvloYobdFhjA9FT8lKh2PvBoEfxzsksHYDEt/w9rwkv /B1ZF7xXLgq0xCjX++MDmOx9+ezgDg5o9AK7M22NoAy6hf8zrweFojlfe1YR M/+6j/f2doDmnrIp9H0vVLxDhuNPDYOVf0eaFt2Jgpj6yHtl05A5MtilxjuI /CPbxWXiyyBxoFhjn0EnHp273MJP54Bpxdh1TX4AjpVCyt1ahDfze79onK7G v9nTeSvEiN6fXV8tf4CNAIu8e3qHZ0BfsD6oZLAfFg+KKVnK4/DLPPM7huT9 7b/XPhzdSPLCa73+0dB+tCmrrQz72QRqob2tqv4gmoTSTj7ZRObxv6d8V+/U QcF5pZnEl15Q173hPALpQQcfXdX7+AWMYMlAza3dOMKfqD2iSfob465gkmoV gjXl75yebYXGYR3hjXXtaD3iUHZaphjU3lfWSvdJH/zgEzuxhcyD8QWxrXI/ ETDPec5o3iQYkhGTTRNDYCnfiHKQGyH5sn39E+F2nCmSeNl5rgbUgTRrmaBO 6E4vODlL7ke/fPvtF68BxC/8scF9SQeYl9YP5PxrhkQw/1bzX4R/t+970vg7 F+Kvxz0qFvaB5n273/wY8cMd/+K8HUl/oJbJeo+E4Uim7Rvu6xLQ7ng6F8yR HmPMnTGTHYTENiP9mnWD6NGv48RNkf2wqXW8UvkJJ3eaF3q8LQDtsNKBWNKL nVqc9hWZcUFNTA+Se92Blniu1KRWE2y6BL+GlZO5qXow1q9H8q8qI1LAswMc Wz2vMRrJ1ya5ndFxrbi4slJR5BKZnyuaT4ucwtFRmxKbI0WeT7dx46faXuzz N0v9zKwH/59nBlkX2Zht23Jr4iAH9DuOlstGSA5YXv1q5E38kf7joXrbKcSF psvP+teC4ioZMir5ATvZ7uM0UTJf29r3lHqw8F5lmLNrP+kPnxeIL/o7AAWv ew+CpQhPX2mzLXvRC/tjIv13lUl+BHX1d+Z2oHQNTdN8YATMai3jfS5cWKdM et9/Mg322cmYmv42hJ8S35v0mvDKBYFksZoB/DE4N9XgQHhDoVQ7RzgWVOen M79temCT9CKuua8L9y46dVj8TgTD2TXV8NIQEqc2+M7+Iv4wenrvbd1yfFYb WvZOkPRPcZPxlL1NkLw7htzxfjBuN5uH1ZFcusbfWfQiHRpUn09N2wYQUuLL FGqrBbv42OPfhoSfh1c92nVkGvQPB0/4KrTC2lFuwaQdmW+FR/PrqvNw9MYh G5H7zaBwfA0SDtQh0zjwiwzhHabUIse+Ja0YW6rP0HMLB/1CIq/EXi4qFV7L vbwxCglfucUeHX2IGGy9uNqF6PfF/il3kXdwMPgQEGlE+K0v/dZyci5imZEy q6+T832meEH45CD0zr7U/8XMBsVpvb3ycRaE2jxS696XgSlye/1zwrnlsuZL 64j/07c0//1YPYCeuUtKkSYTYEUGKYcVdkO9KSV70V3CR0ees3t31cDjh8La muheMJZq5rWG9MMAn+WZ1Fdg3dkqNH61HThzQXD1UdIb6dWmhye9IfP5m8lG R8I5MZXcVEYjmHVJlmEPhkBXS3i86UErDjstvurZVQZqoAKf4d86sOwSb7bW ER5f7mF7EXVw1TeROcQzDnbz6Sc3evsg4eyr4N9C8vt4zKJz+RUofvo45tSh MTDNbhSJruhCUV7bn2UDbNBWdCuEEL+7aD7WKShA9Lh9PMlzcwKol+0WL3hF 9FuVsLGbWgKXG6ypjaPloE65j+8RakC8qA7T4lA3+HV2maQu7sA5QY2Py5WG wJ4b4fHPrEXSafEldCbRr7uAXXVYBXwiw+oKbsWAnr3o5C25fPgOHQ9+Kk84 PTJwbprwccHndO8iAaKHhKNURmI3rP/uPTP+gPR2Eb4dNir9ELe3Ky4snwR7 wbH5llFDKGjRmrikQHhtm4ONuUkL1I8HZK/wIvtVefvrpqQKMKQ5fyV4iP96 P970WrARtPgQuRjbCUjsCO/l8rdhOvTPx23Oo+DP3qZUbtgBvp/qwcrbCC8I F1gv7KqHxt7xO8opnWAs0hDgj+zFEo/Pe7x/kvmNnGbtcM8CPfBh5IddHWCs bvDYGkHmz4/x/b078cOlLts2WXVCMIt3n+4m0t/T5IddDlUgZaXeUoPS59BQ pJ24tGkAcd41V/ZFsGETOlA9yWjHzsbDd8yWXwcty5H3ytlGaM2Tan0SQ3hy 5z2tzzdKQZsrVKs6UPH/31d0nvySCPZdetA2KzLvzqqyn551QEy7MWLsLfFT 8+1c2eO1yOy1uX74UxeYx9t2n+JtxUFtLZsCR6KHvZX3hvm7sFpUYp59N/Eb K7u18dmNeO0278pcZjvo8xYlBnMqYHOjULl5O1lP/t1bHYodsHq5ZtHaNA4Y 9PUHza53YpjfRPKCfxLJH/X3nIcfQftO3zncXknON5Npcr0R7pIaCjfYZJ8s yn7OimdhjamTSdMz4q82x9eotDyFisFX+b9VhOdEb2bfkmrGie5p4ZDVhFdo uRlH2UHQfa9+6qDqKIZTtC8Iqvbh5/qWTQOWhCdWTtTuiO/B7q5XaXu/kTwZ LBOTtikH74KnBvO7W8Ccr/ax4zkHbx1U182EcEG/m6ng5pIJ+u3kRUYevaB0 lK8pKEiCMf3Gs0Wkl0sk8+1o3caFm8ODRTVRVaDf70bdwXws3Jm8JYNnCtSC zqcCrEYIx2tn7TcgfiJb/XDU9iN6ksLfJkWPgnY6/PgN/yY8vbbisdaVdlBz S07SxPJxwk30hNgv0mdGsuSvpSbh684zKlZuXzD84ORliyLCR3UvD55fTvbj +fMTK20HMSSxh8Y6QHin0+ji8afPUTZ7PPPM2T6wpwVXek+14Xqoj83TMz9B KeG7vrCT6FLu+Xol1XFQn367Kes4AA+R6S3zUsdAW+6v+Yfdg/+0jn4sbSXr rUh/d26wCckV/75FexP/VDMV/V3Qi/zvSucC/k2Q/rfj2U6RLtSVfZT1eUz2 n38qwPRaEMoys3U4G0egkbymh31zEMabd/HoEF/TKPMP7rZoxyq9UoVaX7J+ 9uRChnILPq2a2NvV6g+KSEBaQmAf5k392p3HSQCdsdnm+kHSjzZ7f7LwIPlj aZYm6N0LWmTQ29OMMdD//Mhr9yyFSnNoy1f3CQwzZiNlxXpRxrMy4mv8JKh7 vxaMC5WiJSXJW/pzCygsvejXqQ+gODE7uOoH8UnHHXT9mGaoC3P4NvQS/9xb Gv7W5jvc2nxPH/cjPUnZhu4Y0gWpMdUvBxdzoPF5ICbcfxBpUoJViyJ7yOdN Bg6c7MCf5OYF0Rkkn36b8P4t7oPa6U8L12QlgVZj2hkY0YYdVooJQg5DYG4u cu8NZKHT9ORtb44naB0LtQ8b9CG8/ilLVLMNjNG0nC43Fr5V0IUPhYSA4at1 dji/FzqHXtd++0X4Kb84IDe1Gz7FCyQdOqeJX2gbaS3LgcT2rTYvNleD/nyv 0FXhNrztmuZdRiV5Y7l8IuZlB1orL1yXOk941+2yv/ntYvhuDd4X50X6SPC4 aswOLulbpzwOnOwB5cTRGef98ch8V3JW6x/Rzx4ba1NjLja02n1a4kf09v52 1JvnWdBhFp2tGf//9zt2Rn++1YlwP8maxk7ip7OzG8Va+0FlCF2T4CH54tx1 o0+mF0YhzWE3lUheycddetn7A2myF8Ttn9aAohZ2f01/JbhJ79JdbpH5Y3lE 8cb04FVwj6zsX3L9YaMy41w3uIhcrM/6UAf+VZSl9973o0z8vguti/iNXsfz uQIW3Jhc7pKjJC/M/HanXiW5pLd2dSDxo/jfbxlm1zoRxBXZ6xpBeFI7/w9d oheDQyofuNbEr68Hngve1AbuDcF/qhzS79irTq4zZ2H9+28n9RnkOuFDUV+a uuBb+ZabPUL4IuhE3jLddhz0DtVeopMN9tXLp5ICuGAdujIhW9UL5phvZ8KT IWgWX324//wE2GNKzGUJbPwzfvlKeWYKEnXLfy993Yfck3h1aDvpZ6Y5C4Pe dOPogsyTYrqEa3fRX2wxaMdwhsIW0zskL6Z6etUJlwc2HCl9rEH4u8o5pvNU DfRHdu1a5FUOdu0+vvnP2yGzhVbnNJ/of2XblROB/XB1+V1ZJTYFtk9h+kPt NmTXrdvhsZgJm1cZVuuudkPHnk+csYTwxq1C88LrLOCfs0TSn/9/v0ZnOLym ES+4t+Lj3o+Cumv3ytXH2oCAdEFDnwbQN+sVBbpxMB30t/varw6wXeOWHb1X jVjfWSHtFXVga+t5D4Z1YsinsnYqm/iHiMXyhar38O6VhNNvpXrQjc6Gpx1o QjpvZqDVQ5IfcyYm3Z6tWDCx0s3SpBjMjvVii4prkex98JquWj4Ye4bvzpNv h9vJWfHudUQPDbF2egZsUHX/faLsGAG9/ZKi2GwTkub2y94j+U8V4z/rNt2K 5bHfpcb6ckEbZh71+N4Nsa1adjHW5Hn0z6Sb7Y1H+FuLi9w2ooeIGxnlk4Wg msxKsz26QTtXnMiKbQPvnrgOFt930u+arAPqq/Aw2Ops29wk6Hxr1k/ylSD2 VVCh/hXCC0due3H7KuFr0SmcFEv85tvvDTw7CHe6G9za+aQYw74DCnlR3Tix O/YCg8wbo+n80pdDA0h7/j5AMXIIjLct/Fb+5DpWhwPXyeSCwqYuDuDXxJBe woRuDvE7pfogBuGXJkn7uznGVZA4uquZsaIdes8Sskz/EL3feSwzYlqNguT8 e33ipP/77XjjrEnyobzA14KX7Jde//T4XT/cap9fmjWSQfg1wmkLdQjBD3Ur 9LjED7uevKZN9WGF1wtVZmEnKEj3qnhQg/gl9JPqn0bA4khv+2E4hNuDOjJi sWWgC51YP8IdQJeo2j8Zd6LPa45vh15/x6t1n38lZhAeVpz/7lFlBuILtVDz Xw+orktOmOzuQGyThUj0SuKX88UpJbaNCC9MvvlYgZyfV5N5L+HUS0b/FPy3 1ZI+cLBtJbMSnil1hzt5ST+KKFJdoFmIs9tPvDls2gbaqmYhBuHfV3E48aH1 /7+fOjUt8b0DklnfshXSiV716n/UW3TC7sz5F+5peaBTjuedSSmBgX6d3W3f HvhtGuKeVhjC4/0dFpXRhNenU5VZcrmouX9xcoIxCpvSs9viDAZh0PbTp4DW Tvhf+sPjokQ4WUovUzFjgR3xb+zOzQooqJfR+IWGwUjyPmZryIW8d4hd6Umy Hre/OdnVHehSFQg5OEB42j0wcjKlD4yGi4XUMbL+yZEfHj6VaIrt6mj36wf9 uvkT2+haBBj3vUAcOf8ra7EjugBvxRbV/CxvgZ9iWcvFiQ4MzUtu0SM9n5kk 5G9XWQOLnSGlSkXj0HhgsS9JuRPree0dBQOJPh9Qks/eLYD076J/gs4k35fW fZevK4f0myA+zR+E9xyX5rNP5qJFbKfBlso20MMLzq1Sa4ahU3XntuvETxMY q0tW52FuwY//wrqriB6evbu/uw4/naK8tF9+B53eF+k0XQ2358rBZsdIPnzf 6F4QxsUzn8tGSZsIL7Iv9G0W4OL0wblr92O/gUFNXd9b24bYs/fvKjkTPmfF s+wt0qCX67v14UOil9cU8Yn0LMTHm2SWOJE8sm/dL7u0AUHCDgHXrTvBvD2X I8/bg5Sm+X7eg2lg6us0bo7sgKNgyYerNmRu6j1Xj24axB9h4XqjrjowY6yC 7H6zELDjfFBJNeEDzZueQrlZmL92yO/gL9J/3r+JqpDIQbN5QOjLxZOQuBX+ LymmCW2+ZZ3coSFIhAY0yj5mIdeCJlJlnQH2wrvHkixJPhx4slqivAsalHB5 lYPtuC17pce6tAEMpeSN5+VawFgm1XRXYQrxVWni+jFduHhmds/4hnHQNC3C mJdrcIkhMdjoTfxv9M2KlYnlYO3HrTsbyby579fWVOxB5rANT8y1Gfi5KS41 c+qFfIFZxuGD5Lw+f70kfKQZUuEmIpsfZoE54rC/OZeDWK+jR5MnxyHR4Pp5 e2ItDH9Nb7h04Aeorx0Ttkj1QX/JvdJHM4TzTvTdypw/iMP56iHqnyrAThK9 bcXLAXVs/03lvyT/fKoLn18Mg23sPu7c5x7QFXue3T3+FfQDnp8sT2SBpqZx I8auH5JXkt8Z/v/7QUcEW8YvP8eVWIeDy+rIfG57qB8jVY23Kdm5tcsbEX/e s/8+ow+KDOelxRLZ5HkUMnKrqjFbsDDtokkHbG6OlLKfk/lanrb48z9yv90K v9XvclCn9ELyqhvRr4J7z7m/GVi3weVCjvoYZJTsZZbv5WB4/fadCrNFiI8o U1Sy7IaCMuPhiNE4/KQidhhr9UF694H+H7mjYKvUvtu7pgeF53VO+BB9MlVC XH44VeBP5PnB43NcMG2WJ4QT3i8VEh0UO9cJ2rsdt9Z7sZGiRM/xOU7OoyGU Ir3QD18SjukqKRP+92vKrXXuQ96Or5u7AocxLLtJtKxmCNxNrctdiV7o8wTW dNRlQyE+69vccdKPpQd1R7/34oq8acjo1RFItK59Ms+hA7T9fHWWH9igMDj3 7OxikH7X6P5gai2YrXfiNji3I6vApXL2CxeUTyt/pKAbcZ1vVO9Uk36hLxyh R3oeYypmn6A02e8VhzyFV6dDPvnWDf8T5OcX0dwQpwEM2bg4Dc/Ek/nSMHFz rsL3PWK00YXkvAznvPMzXuCmaUL9nHIg4nk6LNafHURsZuDHZY2E34NKX645 WwxerVvFL/xJP5k4GF7glIkl83QVKrLI6zUendF3umFjH3YjXJb037yU94YS A3h1MyFI/xjht2Uh2f+UP0N8DfucYW4V2Lst6yqZDVDIyKH7fisBfST0tv6h VjyQFf0cSSf+tfhSo1VtL2aPfB2MOE3yeJscjztPK9Dp6MAVGIVfskKJ/4Ju dO9SS9HXJ/1R/ji7b0UOGCy1GvcmwrM5yWJB+o0w0+Lc7YwfBrPru+lsWx2W zDW/3nme+MnNvc5hQrmYpmcbJc0Sfxz2ob/jZ+NuUuLGsX42NGYEqBkunfBQ C7y/wSwH9J7ImFNqWZh7GSJv1hgH+rpWDeXTHeCpuGw40xlB+qRUQ/X/e/sN n7d5JN8ZKyLUXGSHYM8S8FwXQfJ11SY/nqP9CLxU6k+PIn298s4BNZMGSD9U WHO9kpzPbtm2irx6rLPUkOwV4IA+pnuoWL8KCxd3Or2JqyH98d2+B/wNuJT4 NcX7SBWYsT7TGkn1EHgf3Na6iPBEI3uap7YJBhTjRX4UwovhOqxmnyZk7qer d1d2g93zcUHSnl70N2UlDcyUgBJ+JPB0VCKiY36UmY6zid80x86ltsPwwPaI 6/ltpJ8lcwycnOD1aOMNASGyX/tX0Gr5svBwx8bOZB7y+omNVVcZbyCVajwt eIz09W92HOVBLq6ULxkdtCTP83y38AovkouKdSVJ8WOkjz07spXdgaDripmH X7SAOv5gC629CTK2Ig6OZi2gnZwqzdXtgI7h7g0vpMfB//HEkOH8fsye2B90 wDsftFN5+94kd4PyOOdc49dBMA8bPPhCcol9IOefdkQu6Fla2q9yBjDTOj+q b3Mj6LF9S2/Z1SJjaKvvHrLfzJ9fGXOFFajddtna4dMEyb/1l1p3lWPuFfNA /SXiL1njsi83cSHXafpY/9Ao6OZuDKXRYmz87tC0w7YOEkciKV/ud8LpzqN0 njMpoKbFycS8JXzRek2DV7MHjPJM/9jL/bjLyeDqn2SCOr11/rqHLCQeHVh1 5DM5Xx/3bt0vdeiV01LcEsIAU+P6kExdM2xPWysYd4xBIqHymq0w4Szp6K20 e6mQuRM0/wXhl5PdEzZXPs+Akjv+OM7+GwZW3L/EoJM8TRH4kZA+AIex+cY/ 9N6DUXlitj2jHW9OvfUK+0z8gaKUvv0mHbw+gSGOt8i+BWRSNQUT4MantH9s jvh5jWCtpthbjD0TNLVTiwfjvYrxL98BnFwy/1e/EuFFLne6vLETn0Ttk14Z j4Ohn250TZ6F+keZlzmvSI691yunX+dAOexE73PPYbA9KdGTDA5uh15yfNNQ Drqo/72sVQ3wy5RJ89k1Apq51MwTpUFg0aDmraImMFPCeA7nDSCc/3nUrf/n H//7Wt7bnRDliyt4JPQUzOUp0c/qu1EwzdeRUziCeIdXDpziIfBVnohY294J +qf7ij1bumE0IriS5lYJar2Wsy6NA5NqXyMRwwQwI/7c3fm3AJRSWn3aORao tV8ezt0nz/VwKPA+h/RPummyBm8H3qnWxeXlknxkb49b00P60NW1En+6a8G4 4LQy3ZMD9b9i8ptMO0Dd6u/h4d+IrW0p9+PUCC8tW/bulUsv3rryORRfbic8 71W6O3UAwy85a8VqR8HISJHZReZ/KOyUqem1QUhoWb0Ls+Ugw7aebi/cBBbX XbHiGsmFjoXbD/z+Dg0vsa7lsZ048sytxrme9F9qXWH+HjtkjlPS6leXgWFb Z+C5jYMb797oeuwl/tHi5vehlYVGk3eizsQPNEzWMMWD+iBVOE+5v4H4R9c/ ymsOEye2ey35vL8SdLXu5NDKHOjdWcn4WT4AhrbCmvLhXkyrGl1/sovw51rl kXWy/ei3DXu39Qvp90825HY+LcWgoq30YND//57e1sUv2wBq2dEzF3yJHp55 mPL6lMN58n52OMkfSsA13BGPxtyST+XmsoTvJjfJ9eZ1IZ7V3iBtwoHGhSFZ 43YuGCHLHBYsHoFfe8C3MDeiw4QHlZ87k0j/S926fXcu5P/s0l19uBjUwquN ywQ6scrA0VY8nvCdTLbB4sWtKP2z4k2sVQ2ol4Iarv0YAlOdbaESngNKclDw PRHCZePKqYNLq0Hp25/q5/INYpd3s/veDENG+8q0t/ggXF4UnM69S/queEBQ w50ubOthvYuOH8Xwrb4G19khNP2+faxLlfStlTUJ8W29WCymufT0PuLfs62X AzemgVr8M3glySfaDf/VmbLtsAiSUNZtIHmzZ9Hn19uqIc2rfL3el/jjEr7n /t4VEPfbJPqoqR8SrkVPK+N7UOAlsWZHJOERV38Xl9ZOpBcb/BrlkjzV8ki6 bNCCI03l92Tdu8F859Yl51SAvIknRhpbCN8VaysFb62Azdr2U6Z5pNc2M/wa narhc/2Bc8KFPtCXs82cn3Dw0/dm3vgRwhcG8gejnVjQOyG07GTVBGie/eM/ d3Ihk21/mz36fx5XfKO/gIthOT+pmBfEn4q2N+fLtMN3s9P+B3rEr3tW6UQU t4HVM/NDRY30pZNq8ilFlXC0K7q6Qpuc35iZ85n0bhg+Do7YMY8Bxi/KuRLx SvDHiB3ke1UB6rZxoXH+ZhxYWHHT5f/fzxdf8XmXbBoCDNU1TbMbSF9jP1HZ Uweh4xlRP095g2Ik/F/dzUQ47lm3JUszBcy1e/5b4F6LEJ+xQjrJAfqygzfO OLAgsWb7/vlWpG8IaAmdupINn+TZ18sSyRyN72lWmS6HVMBifj/SByhHN80o XPgE601bnfs/TULD5d4Ty7hu/BvJ8/mzigWK7dEgg9tNuDSg3XydRXxilWsu 90cNDvn8p6gqyIVE8dkEewfCYaz+Vg9xkusm6fMM2z5DYvt8aUVGF1hNg593 zg5gacYuBYf5hEeFxk8OFSajsfCyw84fA6Rf3tj47XcXntaed0hTJ9cJPZ0W HliFZDNK9dWX46Bn7Hh+e6IVKu3V7GB+0k+rghaUUPswxJUrzs4nc3Hz0OTP UhaUeIqnvf6Q81ewNFbgNAPml+JEtYneDbwEzLRID+zR6wsQegD2ziCW5blq SIwttbwxRvTKMRWpSO2DQuaHkF+7qkEtlyjl5LaCMUw9YKBN9Gkg49Kgkwjx Dgr+K2kFde29KPrKfDA2jgjuJTlNCRAoOLWJja5HpR8EC4g+M5cuNyF9L+N6 ibdnWQskghVKjO5zoeDJ42dWWgHK6LlEkSEOlOqeS5T+qwf1cINKskMtPn45 5/Lh/38/35Jg++Ib4QGDrXOKxkxQeEU6Fgp0IfBJX9RxYzLPTX8umoZ2IZM/ MOKK/wyollMNVlkVWOnepdlXS+7/SDUi2HAQcz8NZmLON4Fis2nF+/gK8B+U y5RIJfnI1+n7JCwVR+qsx7+5ED9ibAoeKriHczl/IswIJ1HCXH8vDa5Hy5Il rB7xfgw/1Qp9Y9wHn6E/TTcWkfy3z339R6kfCvwiy727iY9ULB68m0T2L+a6 v3sr8T0+Kbbl6WbwSvLEF4aS9UiPSDnOe4915/WuOuRnkfmzcRiJKcbabwqi S/vLwY4U4G+pJOf58VBGxnPCx+80r/BV9qDszau/v0RJ/9Ap1t9TN4BWv1Pt RXcIf5/tD1qV1AvmIBYMXRoD9VrbvNR40oNCi5JX/yX92+jAy0tpmUiaeqx2 Ub4SEnZadt/7O8CdY9m2LSfrXb0nPKqwCq5d39TXHCI8Eu6nbVHUCG7L9bui tqRvTnXqrjs2BIpptHHc91BQTc8lHaivx38bdZoT/xFeRUCGm1QDHNa+NW93 SyJ6KYo6kM1B9KGItvX7q0Gnaa0tXNiBbZfOXgvLJOv59K/SaQsHmdSWLQoJ RG8FxUZBlZVoMGzsstDsBXWHvq6mCOkbYjrPVW4QP7njnZayhAu2wMov7gtH wO67KrlFkfjs15chBfG1xP8u/9tTnYLhydfpuyxHQB/+EeUo34C7UWcGf72c ht+nup2WUwO4qlG+XxgkX00L590TbIGW4S3H1HdJ0JgoX6k9wMVXP/sTpcmk T1ptiGALNiD+R1NACD/hIae7JvMdB9C16Fi+uzMHEtG3b3z07EKw1Jmns+XE D/ar8Xnwf8VirZaFKYJkXgUf/Fw4SvLG5vNzOR0y/5v6Si3Z2eArbb75spQL 6qZoSWfCg8gD9fHjn6AKmH+Z3N+Fx69W16sqdoP+sfnV/c6fcCpqcOv5nglG 7V2axY1BTDFLdNL+//9VRC8x8qs7UCvtlMJKJ3r+wlbRmq6DzGqdJmv7AUhs Ctz62KId6151Ca0cGYHGQ6HDq1ZyccD6ee1LoV6w/y5oWqfag4yQb7uYe/JA Z7+OXMdJh7ar81yUD+FXfT8e/3klaJnQDsmpIfPxoj/2n3Acgt/aL1CsJn7i cuzcpr4G3Fr+YdftAfL+qxp3tJ/9gN/a3Cirez/ANuH8l/W0Ews8HW16M6JA 0RW8keP2A7t5LzRolU+AaqcxO9++C/w2ajNf08n8hAlNlGu349oUQ9DyZTck NKl73HuHsNnqd7zYwSkwry/8fTyoEUIiV2zigsk8u33ddt82F4YzPt57+Ug/ 4Sxi7vk4AOmwxoWS3wYJ/7Ry5b8EkPWoLT8yTfQjNtgbJdoPZe2EfXelCP8M JKs8Dq/FE+NYymZJ8v7hBdOK6yPA6vL705tIzu/ropBO8Xq0fnCav9G0HkyB wbRHkVy8Hf84rPCnFrT3I3yLn5ajpsHj0cfdX0EJubfchq8Z6y8GePWTc6Aa C1mpXGgEVeeUYrAa4R8vrTc1D+KRnPD3Z4IDh/iRlNXeG6kwcX168tN20k8t ttua7CyE28/F1PbwcbBCbb5M6wxBSv/Q8mZuHpi3h3akeVVCveWG7J6nxN8P F0fF8A/B90KOZnxdKqjaXRV2L1rxqvjxFwuzaUioyhy4GFUHEbaJYvcYyQfB 3S/fnf0CisuaT4skuzGcEeBq7zsIq6Bnt+j/11vNywMZp4ivr+Z1cl2bCEbS 6i8P0odA3TvvzdojvZD4sP4zJaQZ1le030zdIe9TCDGZyqyC2ytt4doNU6CV 5vlU3O2Go9KT0NxVU6A6j7x+0NCKpRXxa+TuEb2fEqaL0rjoduNVdnEk5/c0 L3FoLBFM623PVvI3gm2zzyvoVz3eCz2/Zj6ffD6zx6AzrgcHZOYsF8wn/SaF z/f69kFcjH656fJJ0r+O3S2e78qFrOqa/NdL3SEh+YJ25+Ug1M001pa6d4K2 t/5zXxLhXd76/vPPSD57N70sXtiPtdU3Qw89Juet/vj+WZUMqBfzCGfvJvPp U/Wz52I+KC08IucGST/XLZdXN8hCptfG9UF2pL+eZH83U0/EMtHOIUFF8nme Hve8sz/g9j3teIZWFdiGlqf1CrrReO9rug3JD3rDYq3LYoMwqfgz07MtCRJH J4/2evbBdbeSkYtDIRiDp+/nlXMAuwrW5RGyH3v5RHr1f8EzZMfChOpq0pfO Pq5JaYfZsjczOXWJoDc/Mg3wKcJL1a9v9+4lfPaN1vw6tgQ0B1P4xg6CKrNp SC2iHfKuu4dxm+yPaeeIglwPxvKtCqoPk7l0brmdwGzHNrWKFzf/ToFi/tkw duwTksUuNYt++kk4Zfy4Q9hLZAq8//lodxUYzPahrdZ9sH35UW8j4W9KII39 924pfDxtvQ8t6cH/KjrvQKj/OIyfiqJEUkZmRUSoUFGeEw1R0VKyIqNJQpqu VPSrpImIS8No2BTijGw5e3POnmePBr+PP48bn+/7834/z+u5+973GOGFqw99 ZSM09aRZ5Q3iC3tC1KUP9CJwUnu9XCULDD65rQbLy+FQvJDqyyF6lfZxOmSi CTIhlkpTJcTfHyq9aBkpg0hlYR9lGdEPzVuMxaeyUat3d+nJfMKTQz1jfZ1p +Olz8UziU1Kfv7Gcwts0aP93ySeBkwuaYK1dBcl7rFPCBgvjCT/IdFxL6bPB oGfNPosj5PjiuH6a7S6AZZ+O13Z58nxjel3/yT6FsZy46oRkO6jbL8jHET8t 8ZuUM/xIeFnh6/uO03nwtozeQvGcJOtxXWHr3YgvnI26dsfug8InGZ87/Amq XIxDF5eTfCL5lX+zbBWWcLe9pLSR5zceXbvIIhb0AOXqlGV0UA9+ftqgWY3U +R86D6uMQ7D02erhZwPwLunweg7idyvVN/lU+sPvYTDrat4EqLezg0+SXKz2 fLsAfVM3yQfjvBvUO/B4G5dK3fQU0TfFFjXPbtTu2nxTwJcc3+t7R+Iza+FX Mcy54zAEusmB1YLibbg9Hq5d/YhwgL7PmsCtLdj6dk/vqiVEb61Oly03KId9 itDGDMKz1EwDrwqXATCMHXd/uEf8y/iVdWrNGSj5Gd6nM7wwdGfdj6+XBrD/ aeixp+GknyO2peXr1ZPjbp92f1YGimB9ms+zHLBihBmmV+fOQ5/3TPm0NzI1 LLxc+Svn1tf/yfwZlHxvcWdfI3z7cKOBikcT7oxajwfZsUET+ai7x7sIx/vb m39WEr6ndjWbFNoj9AotovfbFFnXx2UbV7CRx7iX8bdsEH4yJeFrajlYH3X9 ZeDceQXTLrP+EY04KLfjPpfe3Hlx6uZx8kwwblUdUtcm+UC90qJ6fgkEP6yy usJL9C9E8KqzXhaMwzT9hgbJ/hY3WgX/LkPOFx9t6+R3oCDvd9fzIiQvkm6N i4oBXcgmsYnZgZmk+Z6MQSZoSYs/dr6sw02e+e+KlfMxdOKsZWxRG8Z0N3AH /4uEzNHH67zprbAYmL38uHcUzHvh+e5f2jG7eZ1W7ftusKpjfys8KoOgx0ru UPE5vf27JpZaiJjKQM/rXH1gbIfbq9NsNFUalbTsIfOr/XTxvUutWJH8+A2d PQk6X25Y1GQftradcLGLrwLr3e/tm8h83hi54ubr1A9W6KJ2I+4u2EMjmY9O 9nveN64tRG8VXvKc95s/gRgJvpz72u1IdOcJ/dccCWOJtVIs5Tb4W96/mX2P 9FuO2P7prR2w3mlzxM90ALTmHcs/76zCzpfn6/KECoh+bn5WKPcdnyZ9TraC Q/TxZ7zfz3rIvO03lV5DeGubsInfr1ykf+Vi2qblg/638cr21AEUVaz9xj7f DMqC8J6GD/XwX9bw4LcdmeeWqPCDNfWQTlA4rzpJ8uHh+Zpnojrh5DbwkjuF rEeNef25Sh9KNTEgXUrqdabV5cGtHtAlaLkzn8nzTZ2/KTf1FlKPPinR7KrJ XO88tlSGA/MvRxcNNpL+1Bi8L2CSAOq2JMHcyyWkv34xV9r5Qq6oWvOoO9Gr kUnuyvGv8IwLiCtMIxzJ2S722KIPd/66BI4qpEHmUqYgS78HM5l/k9wjCd+u yPC6/q4Dat2qlVs8p0FfyVao3sDGvN0T5/3kCa/KzVtqq9APnJjPP8rdQOZB oTpkNg8tgyWrc9Y1wjqPPyT2IQcNq5OfPup7DYbnz8DMKwOYuGiuyTYrB91P I6t6mvjn5M1QybOEtyhhsbp73gLBGlAh+iDzy3OHx+pW5Bt8WzSycRq08nNv ppK7cF98Z6mEPgPWoX5BDaxWXDn6Nffxprnz11PO/ncvFLHV609LqxJ/bub1 //mJ6Lj2k84X+uOgt28K7LbsAvOC6OjHQjKPrkvKfHLisEuq3WO0nOjZvUer pIk+p4Zytx/bSPbruIKbR1oKrinHhqZkEZ/cWK6irxYPx9XPVF8Ik/llUd7u dWlCXETjOSG5JtA2KJq+lMqGSmnTfo3GXjA0pQpPU2sQoMHLfphI9IbBrk7U f4PB1duWf2Wkg2Fj+lT3DQvpbZkU3W0BYK6u+6+Fw8Kqyef3Ah61gbH17tIa 4UYoZxXWrJYhfhugUl0fRnL614kBqbE+UC54fAt2r0bY11JN36uk/j6XBL4b ZMG9zaSIejobjEvDkpGkz7UurfXo2lYP4+6ky3R2L0LZ5W88UwqgJnFnyxrf DlxSrdpcdJnkqcIuFoUTiaQTdVdN8orAUh/a023aD2n9a+fOtxI9ZH1qXxNV gbWqWumzC4jebf2eraT1FCd/ea7QFx4DK6THpNKqAZf2QYKTVwDqBNdPodkO TIhML7llQeb7lJJl03Y2rvLPK/CVTCX1sApZ9doG72zum570G4faavHpzrNs ZATbxRyQbARL4FK0g1QnRrpL9rRcIDwt1Gn2MvslTOl1axoIj9Ov3w8wiWNj 4nHyu/NPCE/eqLn6Pi8ayg2WfibjXYjx8tpqUdUN59/6wwcfj8DYxMhl630O gk5rLXiRwQK1u5jn/qkuyD8JPFE4Pgbr6nc8ViRXpHEv3fpJlI2hb2mG2W6d qPD/mHLsbASoZku7Y5o5eJRIWdEaSnyk7LJA1JliMLL9gtPFCD/8kz15SLsT reYHNzj1toCSqxFoaB2J2c++e+PuTkCtZrNzcn43/J+HJ1Xum4CzxaMN3T2d EN28c/Bs1R0wGg1bBMq6kKFAXTRC7wBt2OOz8JVadMVMB2WfKgLFPSXKmPYN tnozVSt6SD7vDf3A3R+PBXJdFS2Cb0HdIHdBW6MbQ6Yy5zLP9II2LelMf8gC zX6FVGrYJGTMYjJfu3Hw4qF6OcOD9HfuDfGA5XVQvfC2OYzoH6WmuvGmLwsi 3GmbJqOIfw8d5X3t2IMGEW0tw39NsDYutDGXaYfDwYW7V78choyut3bv10o4 K3LL2TaQenp/ueYUw0Kh2FbnITeip7LmHy57JWI2LixURITwZFJIHxN9cI3Z xD35eJrMd/Mdsf/aIPe7LFdthPDQpuqVZy4UwrnMU3GPIuFt1oIEdck36N/g bzZv2w/Qrp6eN/aoFFss6saSVhJ9+6wY2WyZDiq38EMJd5K3TcXKltxIh6S6 1BdDgoQ0G8PJCO4sHJzPtly0ZAx+uZO3z/hyILM4cXsn8bmhh5dzbu5i4Ub+ p4nnxwjfnLxt+orkb8766zNOFcmguDpO3m0rQrOwrMH4l7nPZwsZCvvYcKd7 2SZUkTy/SmtLYHodHPv8XTTuTMGaUnvgS3Y/jlvPHvl8geiD3saQwwkpUO0K lBMX4YBB/1GS9LcZzirJ6ootLLCerLDN/9kFy/mH7fnTSN6LGbGOXN2H5frO 3x3UwkEbP3gkwLYPDXnz1qftIXmfYnx0/UtR3D7qtOce2X/BxR92CPR34F/W AY3y5DLQK/ZYUhN6cSVzYd6rtxyo1Y+pshQ74R9T6xE9d36agrW32q2PmHzA PnS7ivjv/Zx5h0m+V+lk2orLkPlsPTKus5Tcv+bd80lxoifTYv1cihxEv1sx /P0M4dnj9FfnlqdDrvdFwfLCN2Aa3bl/f1EPdNhRJQbymaCGPR4Qe1CPT1UZ PAdWt5EceOe4oFs//lYlKOuPh4Du62H+S6QHGad4ZlZMkv0RjRsfyfgGprGs m81T4icVXaNSR6oI20ueqHhL+imq/13thVxkB8kmZgoT/b9Sv33p3HkmXaIi aclErxdVvEt4Uw9doZmc63Nz2P29bYVkB7jXz/OskJ4GQ7o0aJlbNQSOUAYs pUm/K+hpXGN2Q2OT6Z4bMoSPKDW3GVqtEPFbM9E3S/rTu4VTvScbM970xxe/ DYLG0F88asrCrPKQ39rDhM/O31vXEVAK/mfnso9HEX9W8HUKftaPRVWyw+ui SH6rMU95M9UD3Z5bxbmEs2jLTeaPB7HRyV4TEKCaBBp7Yk/Tip+Qlu7yyGju AJ1yeWeYZDWGtG4Wc6kVQ+Z2tOpYaC/OZXKZKBCfo+Y12DdLlEK84+z5k9/J PIe9bih5VgOV+R3xgheI3n3T/OFyOhyGRaPuA+dIX2/fN6LV1o916ueFf3tP wziiySlqUQe2GFlYfAom/fj3HLX7TgyuDBzflKFD/LC6jBpY1YlKew23avsR ME6Ed0ydr0HLB7UXlocIL99wj6pfMkjm4eiwXD/pH+8U+2tHG/Bkw5BxmQnh CZk29RVi2Tg9s9HKR3/ODxa0bd7wFd2hT7Uc597vqpdt8i4hvmh/8euBe8Tf FxXJiLDi8Meo86Cf/RjoGze+U5zsxIbaM3v6tIlPT4h2Jk6Rvh5KGec8JbdT HUMtSpIRYbuNO/UC2R/zwDjrzER4Kq60ijYj/sdo8rfc9RJP7tIzGjeMw9pj A81BlQWZFhX57HSinxuX8sZsyYaDjM/VCPdeWC+ZPWHYWQkUGmQ6FBH/n7DM 27qiFNs1trKb3hCeTJhsqkoaxLY1W2325XeC8rzC1W9RDPD5RYTuf3Pv5+6t abiSjegAx8tPUkgeGVW+ZvI7HiyRKf2DGtVkvyS1npzpxo5nD24a00l/Wgs2 nV1Vjq2p6uaBr8j9Q0IuFm6pxjHfEw8uHPlE8vSmtALiP11nmv1ZiSSP/xrp WsTPxssnTnH77r0HQ375972DbThQXRkcYdkH1sLgjFr6IMxbmM4WxuT1MiSu eYy34R0tg/Ng5TBYr+h3grtqQCvVuSv4jByvCP20y552+NtffnhYkcyXi1Fn ZFsr4Xj552w1orf0ju/uxaTPnY7TlIaKQDdIlUu42wZrK/M9Dp5ToKZLfuTS 4oBn8fIba7j7IGPDP9ycWQer3NAF7hJkf5foHBZpbYa1bcPuEg9Szy1b5V7a M2BlYS6XoE/40XFiVy0X4Yb81OP6t3NAK8hw8bpeh5n15pUdvMQfghX3qkSx Cadyr9DONiN8K6utVdgFp9Zf/g9mhxGz6POh2YwBbPG9tzQhjOiTz+h3wSds qK7Pn269RHicFnP/PKnbkMi1Lo5FF5yZdx0bOb0A3VRieecvWE/9PNHpV4PW /kV/bCxrEOM44vjwzwA8x2ocPz0ivPJA5lqMWQ/GBbg6rnwYx9DCxhevjrBh 3N9yI5zkNerJ0b8VOQXI+F2Z/GOa1J+rgyOowUYuc2zgTibp59rsvzdfPAUc bC2WER9Re292IlaBjVqJLAqvBdn/LxckXy/tQXRQS3xNRAEYrxbsfX67Cp5X RvKUi/NhLWy1J6i9F/3anvvvPPsFisgevwzvGlhdFuoNZZD93NUvdbODA+FH Nd1rRInPvZPKDGN1wMHJaDTt8Nz5e19Wy7Y2wiJmmrNRZRhq+1tDb432QS2i 7OFAUw+Yi7e9Fo5qQ3yiX66t6ChkjOX/27qdhYNCbiOa1wdg/eFRzMx9NrY2 pUqdWTUENV73Yd0XbJRu+/33z2fCP5PX/WaFupDoFp7GfbwBzkd8Vhz91Il/ L+PWRN0LBCPg38eaXZ3YEpvUL1RRDkbBvW8HfuSCr2sw9HMZmU8R3s+afM0Q XpRWr1tA9HuNqtbosm/YKsqVSmURvbuuv0XkPQvODhL1t7+SfKt0QNc5qwnu Hg9PaKqRvJG0fVupUxe4Lz6nHQ4h8+MfPJmjVoM7tDSnpu5exBz/7Cdc34k7 niLiHy2IXqU11fnUDMKbv+hwhmIB4QUJG8kv+eDcFf8VF0f0pOiOE9OIRTjG QIDJwwbdKHCpaUUPNI/f3JwYSfr5lTU+5TfhW3l2Ivdz4k8SfAO6lzJhepxX b6c3qd8zReXzu9ho2WCi8Ex3GFTZRcXvjcvxz5s1xK4ht5l3ZZ4FNYI2wCN1 W7aLzH95RBndG7svhm7Kf0r8s2lYU9OjGEXWJc056j3we9K+qW+mF8oP8kR1 uvpAu8nobJr9gbsP9hX2BH0HLcijfN3jTlD3nJoWayZz8lX9bVt5ObjsShZv f0zmNtX3yoh/FX49Ddt8yoXk2GP2L6TLCKcput/5ljgFmfQy05ZF7XjjbnDX aBfxk5BjA69q2XjSwapx7hoHxS+WwTxNw8El5+9HHGkFoyYmyD+8AJ7aO8L7 3KYh6Bhk1zLeh1W7Ar8fXUMefyjkWLJfFRpPmdl+kaoFLYTSo12Zg+Cgxa+n T50FzU18v0BlPlgxLG2fI5NgRSWY9a7txoJ4heJ3PaOgdby5KJzAxHZRnZmS 2lzQp37cvvOmCxG1S42kGWNgpKsWC/gMIvSa7Z1P42wwjEqX8+eR/nrvdHm3 3ASs9SaOtaxhwp8iKbZpiPiR7aoN+ardyPiTGhAnlgXqBYdFucxmlB5N2c2V Owp69rWjU/kkv/JJds/bNw6ZA+bLygoGgGrloS9eJEd5njxlkNGCkz7hM1a+ maBsCAlam5yEUM76wh86hA/ERfcvVkiAw7Y3t67VEv+cyKAsep2Hv0zTxnB5 Uv8VBw7sn+yBheBA6/JtbXCOj6j9ltMFmSrWloFssj5N1wiN4hj4+6z51Lu3 EdSVoo7zrpBcMi0ql8tL/k9T+HZ60hO60sXXMig5UPMfqwu6OIgf95SbnXVJ vSJ+4aIiEzJUitdaoieMGzqNioUd+Cak0L6Xl+QL45F9i4OKoCp5gn43bwT0 45TSQ3/J33/ref/OqoAM68Fd54V9cE7+ObzZlvRP3EuWy+UXcDH3W3FU8yeo ZXrx8Y3dkFCzanR7PccXd0t+r6wCJ+jnJX3mBFhs3woHATInY0W1Vz+SegQ/ PV4nXopXD20EVomUw3qcs3H9f934xsNa25FC+Hdh7KND8d1IEn8ZJbKPrGf5 qU3MZf2gPn8b+bqUA9bxP6f3KHUh5IRGnM1tDqzD5ad4bUg+0fyp88aWzHcl ZY/ck4fo8OF5/VV7DEPUjL7WVwOIqGxdLdZA/Cj5jMqndyVgxm3IWWpG+GFa +3fRBBv7y5ed+ZZM/CB3hZkR0QNK0CrbBHYFKLLpMy07OkEfqHm7+Q7Rc9rL RZeuEX2gndGxc5v7/ui8C/UaBZD2/bjfiDMA+mYrS3P6AOqVumX7vjaDMmm0 8bVeH7YW6kc+Mxgmer3gk51yPwYaGBIhRwk/mTouLbbrxOyLOxfvRxE+DPr6 67c18dv0913gJ35l/MPyxCjh04iM19D/AZaLN+MR1wBEuHpumNZMIsaM9+mG jEGIKuxs7soi/VClavCisRPpTVlGFxcOga6+LHyFaRtM0k8cdvjTBMZSoZM6 zb3YGqakum2inPil6bTox3hwtP2UPdRIP4vemf7sXgzTuF/pV+vJeuSW1i/9 1Y4WfqHlmu2EX3Yev3GlIgKzFV6PC2fnro+1WlxVrh15hwXPjgeNwdnpyPuR vgFwWR+4IG7AhvWEwG/qVQ78/3x7f+9eNmROe4VPkeMNF2oJNynKAiMhXumm VjfWLbxTHnyI8C+r7ora3gaIVI/9MDUm87ek5flrlz5MPFymeIGXvL6aPKc/ mfiVZ9rxv+ZVkNk95MVnXQXL7bTOw3xE7+v1qrQ/ED6Jziy0NyP62VyyjOob CxXzgO3uW9uIXgm5TKUlg1UlcG1lFNHT8bNCHsOZ0OFT32B8oAZ01auZTjK1 iJYXs0lIn9OfNFFn1UpMfjENOOdEeKc0uIAu0IeTpYYLL0RnYMjSx0hJvRer 3/KPV6fnkfUsWpp1uAEhljS9CFdyPNOqYTOjVTjga62cfCAZVCND/u4v1RD8 +ff0tR8jpN9fjT1is8EaOx7mpxcDarnXppvGAxAt+HW+difJe58C+bg/1WJT APvP78/toJ6OqQxaSuZr5wZVoeXEH4M1Qy8o5GImv+rV1z/NkNHyT1nR0Qtb rnN+YjSSV5P2no3/1wfP45lPlWyZoLzZkaLD141OnPXgYY9Drbp4wwI7wiXR ivEpgt1gvNAykbeqxVL+jvV+PiSfBIq8UnXuhsBs72GFW2Qu0pskPyzLwYi8 /pKg8SJYFwUWV9p2wTFWfcz+NKm/q/N83wc1aH7q+3Jtaj8Y8+Y9NMrugUb/ FsaO2yTvu1Xc+36yC+t6hU/KRLEQw5b5KFvZCeP2pd63vAh3i+vTDr5vwDGZ 28GulBYwJLb2OqgzIaJetlkhYgwyXNkbLaXY0DzUtWQ2nPR7hHd+ZWUiWC8l T5UKDIDSfts5VSwM/b3Vm/SSyX6vCv9tqlGPA69/7fVynIZze+x0RvcABPkm zVKCpkEN/O9FS08XRA7Lx1Z+LyB+m1m70fU8mir6/7OrJfXyjlSTGKjBkx3X xsYUSF7x62NTJp5AfErhX9Mu0i+Gt4OuWPXAf/57AVNX4g8PEviCblRgy+z3 VfOu10KG8Snjrmo1PBicHJsk8v+ZW4N63winG6oaCZUyYf1ngbeifAdO9o6x AlitoFY+unYnqhLSu43KXTvbMeRdfb6H2o8Lwn9tRfmIfjdF2l5BBW5tGi3M bCD89nLmk61lFxA6+UXQguS53e3J35O+oP22ltdrHwYYLqblv3p/ouVV0Pjm jZ8wJGYcPbyxHTqzwpbWJkSfKk/d0j3SjN3PJ+wUQwj/HFfO419YjYNO9u8e VfaCEtZ9x9+gGvMCE06rxqaQfDOhMPyiCqFPHpgdvUZ0ea9HkpJ1DQbU243f KyWDVvL9sgXJ52MnbZ2Omo0Q3f6xb/vpAYSkSlF1uYh/LB5s8xvowayLpeEh I6K3GiN+yTMcnDV88mLdXcKdUn9KTOzaAB3TS71ShD9Eboh1J5TB+KHxzUDh UQwJyd9MIXzNaAh98ym4GVRFg+/9sTXgWDDedf1HeHzvxH6D8D50HsxNzd45 CupliAnrNuAnPz38kH08YoLl7vk0t+EgyyVHxZ4FlreZ55kSJlapGJWcvNaD ocEqQbUbPch/JdSpZkL6dbB+/nt2Gxps7FLStxO/cOu2yUmuAl/KGXkVrXhQ 9SSY1lztuPPZz+fw7yjQ+Cu/Jvnk45+W6wkeiS4MLa1cc6JuAFSx/gXWo3Pz UPfQeLAbF7v7JnhXEh7cf13JhOjJ7PCspHRkGih68o/f8Zfjh9RAWhp/L1gy +SZRTeXwnKk6bRBA6uH0Md2K+BmNwXVBvLMJ9DW2CkbeffgSE90mTPKkoNjv Q+EFrVDo/PNGvYfwUEt7uc9gB9YHUSyGN3BA2eazdUiEjQMVP4dUq+Zym0nv gu4SyCjwXN56hswPazr77M5cJLCcJcMGs0HZu+7r9f54JBk9PfldOhtUtsRg W04zZvfeVp1yJ3lwdMyqOork5Atho2l6TNBEb/a+i6lAdOhmadmCHtCWVJWx fRqRUZj2/crc98HXR6g67SzHrIHS8A4twgNPj350elUJxzKzdI8Z0h9nn78V 1WjDRuYy45DNRN8kt38SrmYj/mG0IVMljPDTK4a+XCO2ZcjZf9QYBtP//n63 5h4o6l5MNXH/CYagw4zzz3Ys9ItvlXsyAufPeVbRlt2ooZztrFYgfM60/7Cx qBB/O2fVfcw64dfQ3923nOiO3fybvbK1oCifPPH9RjSsnmn7aS0ir58jcnb5 wu9YaWKbov+WzIsbv+ayWrJPxvVvxjUaECPqsDdEdgDNEb4nx3UJf9y888uz MQPbT++8dPgfqUvB2+t2btngn2X29dSRuZdX2OQeFAaTkMr7BW9aQfMOOyqv lQWLUZ+H9aI9EHywvOO3YxfOJx/NCphHeFFB8piK6R2ovjQ9NCtE/PxrmPvk gz4wakWmHlxggvV821DOhW7I3jrr+u8aE/TrizYH72hF/qiUY+hn0q8uwpZZ eyqhs0n/VwnJZxSXzmdHLidA89zIkur/yHpjrjWej/iBZDkOL0IJL74OWrpi yQCuDX4LK71bABmfs/qz+7rQPy4t1SY7937fsZeS6yph9X2jQ/yfftDe73HU FsyE9amLjIPN3aCsrlg/zzMSblYr+a/fGQYjW8cokuSM3r0a9y7v7gb1V5LF X8982G/kMfdTIfkyecPpy6fbIc8luL7dZxL0Tt9drZVsOHvUq/ZrDYP++L1S 3PpGqNpuUuc6QfpJXnnsgHI+7BLK6n6FEr/R+xloGlUGFWXGB78NhDeHghLK CVfPrrwm7/orHRSrbf/CJzLg1Oyyu8GR8KnQSqOdFWkYlt/tUvuSrJ9fwq8r vhyhLyzSef8Rvwlrvh5WOwBW6TOJ1KOE7xzz7SQu3wfDNMDq60HCA3rR5+cv a8XgzYO6vHmT8NuRK8Hc3AZTXsMvhxa+B2XRZ2MlsSJQFkywE30Iv9H5EvcJ 5cBz3sMfv+TTQP/hwB33rx1/t7sc2WSRB0ob7Xz4ZZL/Lr+yd3hahaGDJyVU yf7X9h1LpmSSxy/ImtnH14T2dvq4RCXh18N0O+WMMmwN+qMXZpcNP9HnV6xL BrD/UVT0kGIf0Tu3cJcrDVi1nap8io/U18DBdUqNg6XhsjW506Qfb5dueXyc idrliVz7vhB94OpUrZDIA6+wKmOP4UeSX29wF1BZiHdK3tdE5ktwSso/QrkT X+332GrWkXok86umLk7BTV+ds5vzSd4s/txykvinlvq2t2/WMiB4d6Atx6kd Ki3pah7evaAGxIg0/61G/4pVs4n5XXDm7TT+2MTGsZz/WmsvEj1j2gmvmmyD O7si1XU8F5QTL98/cmiA7mnlUOYfwqPWZxy2hBWgi2pdeCaH+HkIr22aEQMW z09/q5SOg5+IW6STez9iuKX2z10vl9IieOPN5hgsYa50fXqA8EudjXYFpQJS WlVjDgLE/x/RFI5sa0drvoBcPs8v0M+druKsZ8GKPV4cU0f4cuW3PRMfs9C7 +q5yKZv4s7dNfNQWogMfdh7UiSd8gMGW4B2Z2Dc2o5jXTXL1t+e0SGoNnJxj v5/jEL+MdpntOJaG75bqO1MSGLBm8KW/JH7nKj7yUPzeeaiJS992ezGAc66f KzQKfoHRvVvS3bMNIbZrb+UN9UKGQ98oJEbm6Mi2wJdxU2BRGSvyLVjoFDtm GbCPHB+zh9ZQ9RTpCSZCTyKIXq9gm8o2VkLyQFgzO3QMMflRm+W/sXAxVXqM +W9kzo8yFdWrcHC63Xp74dz1Ny9UavlwcIW/ya7VswX021EVqic7IM39hu5e 34ehKyoHPlR04YDT59hf6wcgExyaJ1nVBuGYpkenblaA3soj8Ifdiy9t9i+N /EtIPvms1+fXhA79VJtEdgHoQ+MxBfmNkHH+0DCtNwRae4dorHsF5l2uaT5j lET4lcvjWQUbKj8Wf1lcQHjKKOxmZEYaBDb+l/XxErmtyK9m610O0wU90Sr6 5HjF/KTafkYh46wH5dnOHli7KKd37u3D3wuG+SLKdaByOcQ3sesQ9f5HSk5p H6wF8tfb6/RAbPjCKnYp6dcTScf5jNrQ4n4pU1KQ6MXe8/K5xR1olRo2qWmP Jn54euGrQ404fr4geV8cub+Xg/nGufO6NmYZ9Ka2gvVW5mfLbg6e+MVfLTky DdqvjCu6H2vR23LyQ89awi9/93NrBuSA9s9388tVzTCmRIb37GgD651AUdLh DtCzxv6wDRvwXanqelzZF1D7WVsPjGUjSzdM3qm/EDTuvNE7Srm4uGpvFY8a ySMMRarQzXYcFNDm5/rXChlz/oOr3FvRalHxeUtnJeE1vhtq64rg4pJ/l0+9 BCz/D0W/rfvBXDj77vHFMVA/qYVv8iS5y19hMGox4de1cVFNio04XMLFKBkk 815lcV+zvBoXvly9PsuVDcb0Sck2VXK801uU6cqNoFp3mYgJ1uNQ3sVQvbnv swjP9z1qU4Nd5YJKIbKkn3znzYwWkT5/JzpQ4cgApcHjb51PKRYeFHlfKDAO ioZz8LhfGfzy43kSvMl+lhffKpyfi3miKq2xjDjQDF7PdmY1wkFpV//mADLf lCfMQZ3DGLQVWu6R30H8aeNgzLoQUPqXlOxdVwzBNefWeaazIHpBfUKei/RD wFaDoAg6JjQDBK/kl0BQUPfM2ou9yLfP0i8OIfqociIj4EgNsuzXJT89VwlW aNrs1tReJA/ULvHaR3jnwYevQfR8HOZ6YBtwtxi04Ks11/8MImhJ1Jsbed2g 6VRzWiVq0T18nvLNPBoMcYagnmMxeGosh3pWj0DmzC2TQDkOrK4kWkVP1oKW Ir9lM2pxXE7Op//8NIY+WEdXhXdDxLf3aP7fUbCG5+eabWrBtgtu6+gKRD/W GMqXSMSiZ+EtTnVSEWi7T/oKbyJ50fd9bMJ7om8/B96vWJyLyzE1q/bntJD6 DCx2unEUMg7pX1etmfPv69m3Mn7BcZFTsE3HBGj9B915vv5AdNK1x66RU2BC vVWW5IBb9w59LDIgnLgh84FjYSlZ95n8HZ4TYEwapfAHZuK8+fsC5hkGjDVt hJSMSK68WD/W/IToHP+gLn1BLwI8BQeS87+AIuf4Rke3AAK3lf4LuDEANWXX 8KsXeqGwRFaw8AzZjws+FwzbWhBw7+b8zoEJWL/4UbZEpB2PEwvW7B0gfOGo Kvq9Lgyf9ITSba9MkXk5msYMrsCXdkE9tscoGEeaFznZNaA2eepn5pIJGCvy NrEutuPmtpPX9YLSwHBfuSZnkHDOSqMXhWBhKPYzl/3CTnQU8DoWFpB+k7Ev aLzDxG0r+U1HlAhnH1v0ap9QO5zPrbipPp/M8whPdN6tL9A89tWhqZzs7wm2 78jZRiQU6HgsmvPzB5UjrwsHEVEv1XdrB1lPvPT848s5aBoRWXFXaY6zz9kJ kHwbl7ap3egM8fWf3zZaTaYAvx4a/BkiectAd3Pdmzxc9RAyjrduIH2rqH/q VQWM5V4Ef6+JA+NnyMpdn/qhoKTa3rSN8I2LwyaXji6oTWd5fa2bO3/AXftQ ZR3WT+m0YJjw76G3PiligZD0fpwdUtsFxuA+x4dqfbCkbnmpuoP039kjTuIr u6G9zbhRgE3m5/VBg49HiqE2ceju1Yt5oG1O9E8QrYeNl8E65vlGsDzYlU2N XTB1tNrVkk78rTl0u31SHjLaqLHM5DEYd622UXFkw9y14uF220rQEmz+2d6t h+PtxSMDNYQ/ktnx2+cRbnBg24gdzwGFT6RriO8H/t1LF4gfyAX1/e/Jh7NM XDimGKn6YgJ001DX9Z7VWGIzGLJ/G8mnW+v2ymflYlb/Qf73e6S/1F+eXHKi E5Qn49/W+EyDosI9ImhQDIW3U+9Chkh9lpbcsFhdB1eB5cKVpH8YRw0/r80q Qrr+StHsxR1g2CzpbX7IgY/kQm2zQLK/CfPF/7WxyP7/9WwJY0DNsK19E7sL LOHZv7ZNpD8p+qmJsUnwdrpgX0VjEX8ZmpT43Y3Qjmt7HzwoA1XLId6ysQMe Uod1L6aR+hxokHjSUwaa7di5s4bk8eZ6CsrLG8DKa5H81tgOVlL8Bn6BetiP zIpZE3+mfJtYK/oxAHShvRkb3MnxJb/z7NNggsF6+N/AvGpY5wruKCR++VLz RlSXZz2M5x0seMhFOLbu7+DrtgHQC0oXq7C6sF30n6psailotfO480MyQLm9 /7RbLakPvas87sxNXD+lvtkkLYXobVeZtmkXKEO+g5/4T4Hq+6d1AW8OZGwW mA9YdCAmQOW2XXYH5NYlctQPTGLo9UhUqFk7MoLiLQOryOslF/H85mEDqrd1 bhwm+Zz57vYrOw5eWdqszLEbhIz64tReuwHMiL/QFj7eDpmY5+9MzFtxQ/ZO xrErhJ/3SJ/5tSETtMNiPU+/kv8LpSQOl3di5npsdG4LqdOxBqvu4F4caCwo azgxAsaUs4dNfg2kX75dyH9iENaqtyNv5pXj4MVr/woekv7gbN5lb/Eddrpb 05bbzP1+ifc0q78KXGb+60/akfxACX/+5V03rr/WvzpvHvG7/XV3Dskwoap7 yaptmnC6QYSeWVIrqpI2nxOJI/3TNm3zs4cDnWepro/uNoExv/7h2GAPHkpZ zdxdQdYvtX/ETboV1U2b1ogVk7zjduOjKl83bqt7Na25SvZ74nXamcP5yOCh y2pakVycdXlzSDYb9I28T8Ok2sk89vw7pVCCvWFn+Q32z10vnEdD9CThYA/J /Uu+E79z4TE2O1UPr/feGw9vygB9vYUlx6UNtLs9wZVBsTDmPeitN8hB5huv 4d9eh0A9WHu6ZXkhZq4mXv3rRvRyeabsnsdlqDEsmtpzk9xey54VWRMOlsyU 1Mqf02AFmyUPR7bDSVybN+XPEJmPPstPl5lw0onzfjmSCroFe17eLBsxko1r Y8dJP8tK8LOet0E21e8t6z7h6xtVt0zHAiE4xO/gOEH0s4iHP6OiEpwtdXIv 3JNAoZpr7N8Zi23yhm/GY7JB+/N704YioiPxCZsV6t+CanTI85duO0q9GwK9 ZIbh7BfgmPaD5HrP9TuXuBP9dRiN0Z9qhuLfS1UFTqTPtWd2HG39hWUiM9lp HKK/XErbd9jmoDikhi3cS+blWVCNYjcd0h/Kgrc4kP34dWHfIj4m0gp3dx0Y 7waDR3+Q2lGDW0/a7ny34MBYst/xxNAABILbYmIFO0E3+5aZK96DmrMBgeFr SL9dbZm/va4Xb+T2zf/xkxy//oj6L91POHB6p2taO9ELz4CSSBcGPH1LDlc6 DYKhZndkg24jMCER4i48BevD97VDEnrR5CVTpiVO+NjgiU5sNgteM6eG343k Quaw50+Rdf1Q45uUDXlI1r9NRNWBOxX/AvbFDHqT/jj7VCQ/sgf/tni6sUMJ LxUYdN5orEBQ/BdkmpC8P3M27pFyO1JpBkUWyaQvtLzn05q6sFI7kDfs6WuS 919vXzL0FeFd1x5dbPwFiqa7+CXGd/goK30u0CX9uWjNQlfZD1jGTtzsZxkC 67VjWsvCOThwsf7B464+yKRczUj/OohXnz6OLkoix+t0WLCUcKCq1IHDx3k6 Qdt3K2Dp9yRUS3lr2m8kflew3sTVsAsxbENO5H0W1LqGN2ib9mM24qP037dz 7z9U+2U+eowtvzWyn84fh8x8vkInhwoM7rOzXfOB5IN1TisddbvhPGxsnyQy AuNRrao/b1qJj0Y0Jb8ifrji3j4PjbfY7CRm8EzbCjKhp0pGJqpBNXPIX8o7 CVrJhu3uNakQmIgsClQgfjNJc/wsmI2MmsTU0NZsUEovM/9S02GYGRNbQPyK uWnDz9sGPchXNlnDe3YCMqcO1bmc6YHtyd5TQnP5Y4PX+4mUZgg2jV3clUV0 cuqT1qUr/yF5hJ1q4D8Gmd3ZSv5xHMT+mbd6dV85KB3zRMuLc7HFZrg/8BLJ W+YJXjsPtMN85RPhqCbCX4wt9DZ7Fxw0SNAIH63GkMvOZrHbg/jFvVi8WmQC Meet+e6eaIXWwTTLicAHoCLlrOrvJui8aDopSCkE5VSH0Z/rWbBg8H6Yd7AZ 1OBZUT7xMvBE68lGezwi+S60jF3IgeWfyIPu3aR/vojLPtdk4rgCZeJ6ENk/ NYb+jvnvUbPzsb+SIfED849eCSdywRLS7emLbAU1Wjo0NLwXW+6en9i6lAGa 7s9IZ9M+MJY9en/4bwaZJ9Mdf8qyoekmsib2SDto5jdmIr80wr3qsKTiK8LL gsaRDy1rcW1b1dlVK5sJb+30FN7PQPTKxvvt+UR/5tk/V7EIx+LSOrXFc78n cNTde31PDS7VrDXw/pgOynY3l7OthNebNY4Ydo3Off7tZ9M7AC1B584jt5pB 3zO6dza7DdE+nntp6wnfHn/TuCCiGXlqKtNaC/MRk1l7fjKuFffDvDz4ysn+ XE4JvuvGQU2EsU/clXEw9i5/vkerFnk765UC75P53iBU02HWD7/rNy+ZryTz J00raj/cipuWdtUl3OT5p1ONd5mXYGH+Ak4xP9FLE/FtWQH18A6Pb9miRvp5 McfI9WEJUhZYH/3p2w61n58S5XU7oKa7r1rChg3GZ0bv3HkomkGcDz15w0T3 MjgxV7tAHbvpSb1QAedUXR2e9EFEV2zL28dP/N/nqV5QcjOsvpztqZv7PE47 /UG/6yBUkyoFpX4Qff3aejf1dTKeRAmKRDVMg2F480+7Vh3OOVyNl3pI8sA1 7sUuuRxkheTbzG4k+jw/p3lhVDl4VlXvVhUZB1XDd/zyZQYYlWf2a60pB8Pl vkxxxiDu3c0V42ES3t7+qu3ivg7oDkuuSxKoBT1l2jXQvAcRw6zDlCFyvMLR w7MS/YRPjors2NMGRlLBGRf3Jvz7r6zz8bM2UAWYX7VsK9BS1cuoiO1DjHH1 eNIhFvatucwrvSMWdPPlCqH8dciYERf6/YvkRNfyydWqvXCzeV7/p78IdI4O 93mbOoTpzHjozX0f/csLh2srM2FZf0/gYw3hPL8/dfPlBzBQ3rvD4CDJdynK zY+46qEmf8CWd3YAjNWu9lZrGTgT8Sc+253k6L06hVmjJfCv+zq7nUqObyBi S84RNp48/rs2ifAJTap7wRJFBg5FV2cwwhuIH//oU+XNx+kv4Ucvb5+GjGWM ATulFTrR4tHHV3dAJooeIDTUD0+x51ZjhuTxUbN3vE5UwdpJ9tWBueuDbIkz yfoQhXnbrHnjN6TC2Uup0bC9B6/S2d+/ZhN/5XNKcj+SC84G3e7TJ4ZA67A9 cj+U+M6qaJXFTTWEFxXWvzMrg2SJzqTRuXqi16+/vCL52VnLodcgicyDbVaN 5+M2/Pm4srjpfCYoyzo/2fPGopXG2eLm9xEU20DNoJVRkDr3/JOjVTPRi9qN M9Nv0XL5mlQuF6mP42Z3D041TpznF2N5p0HtltShyHeEo5Jm3Za6VhN9qjFb 9dgOaoILC1qcR2F9aVUldzjhIgzYtWU0gc4eerRTrgPzdwpdPbGgGcY312yT orDIugKb6+JKQb/6WYsW1wf6qOKg8muSJ2RMfA8ymzC7vvhLYC7hmQTz/zQK m8HqcbCuf0H8SzuG5mpYhz2iUX3eeydAuUo9bbknDyaOaWvKvpB66fFIphpX gfNiH33uOtdqfEo/zPRbcSyqfQ/LgeTVXIkhNYls3P+wb+a0wij8xCcveS3r wquY0PX2ieTxtNwQvc3ViD//+UlyTD1oZ29JVzuVwOoaZcnZFqJfmhOF3mUl aEkbt02SJXq4u8JZbHcW5PZGsv8UTEJt9smq9/+1Iq7pyQXFz2/AMJ/vFry2 Co4rRs9dOU/mKXRgRtRmAIVPFW+sW0ry1m7Cj00ZkHgQdPF+IKlrz1O/FLEq lMT6psfyRYIm7S0tMNkIn3cL4pzXEB7tN33wUo+Dd4ROd4oUg5oo3X/sKhO6 A1+Rx8OEzOmfeo58hIfNbj1ZmdgJ67bR6l2VVfi2v75ORJHwYl7UCV7/XnB3 hkbO5kyDJqS5e9H2b3jpblfQUET6yf6ugA+TiRhLpSPWJK/IfLDRTSU5XuDV lCI7hvCUxN6gxspW0jf2S06akfzF/9iv2KAa0fwhi8OjBkmepbRKruzBwTGh V4prSX2OqUyfuhsLhzfUFO0347Auaz9xdykLH8/IUY+eG8bQrdvW3yPmruvr /9d9D9H/QEcb5g6icycuHstNJH78ptq1W7YfhwyPsk8NkPwRcWbTpsnbaFr1 3Prs83qwSu5dHy/gQHz9soW/P8yd79jiKmQei7qiu3uyJEl+++zv4dPfBJWd F28rFRO/3iWZW7q2D+ub+SP3uc79fvYn5R6ZPEytXZ3PXlIA61gdjaSJTii3 uXGfu0fyAXuKj2dJEbbsCjAxnbuewsWFiRfftuKW4eZs2dwu0L3z8xOr2Kh+ dOCIf+U0qLukl51M7sBk/1LK0+vET19QhiJ9mGC6harVzl2/nSdrwD+GBYsa X7WaiVbIvIzUSqOVYdWQ8+DNMjZoitWayR4k13gXPspXIXWmdQ8eP30Hn1U6 ea8NkP4482GL5sU2PFmStTk9tQ/WX43WHhOuQbXXPV+V9aOg52sfbbjYgD8L FnKPG829P8nb6xbFRG1Mxeey3rnf4z6RSflvEOaKaWYfEwlvepr7mcmV4394 Feqk "]]}, AspectRatio->1, Axes->True, BaseStyle->Medium, PlotRange->{{0, 2}, {0, 2}}, PlotRangeClipping->True]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Prism lattice modulus mapping (set prism coordinates to (Sqrt[2], 1), Angle \ Pi/6)\ \>", "Section", CellChangeTimes->{{3.465654300285635*^9, 3.465654311566417*^9}}], Cell[CellGroupData[{ Cell["This is a demonstration of the same method.", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"toCart", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"Sqrt", "[", "2", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}], "/", RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], "}"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["2"]], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox["1", SqrtBox["2"]]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Inverse", "[", "toCart", "]"}], "//", "Simplify"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["2"], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", SqrtBox["2"]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PrismLatticeMod", "[", "pt_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"pt", "/.", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a_", "/;", RowBox[{"NumberQ", "[", "a", "]"}]}], ",", RowBox[{"b_", "/;", RowBox[{"NumberQ", "[", "b", "]"}]}]}], "}"}], "\[RuleDelayed]", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["2"]], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox["1", SqrtBox["2"]]}], "}"}]}], "}"}], ".", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SqrtBox["2"], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", SqrtBox["2"]}], "}"}]}], "}"}], ".", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], ",", "1"}], "]"}]}]}], ")"}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RectLatticeMod", "[", RowBox[{"{", RowBox[{"1.1", ",", "0.99"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.1`", ",", "0.99`"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"PrismLatticeMod", "/@", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[Large], PointBox[CompressedData[" 1:eJwUl3dczX8fhkMZJaKopJRCQ9Ggya2hYSWFCkVpSFLEr6Eho6GlaEtES7S0 9957n8bZ7V2Ekuc8f50/zut8X9/z+bzf931dQmb3L1msZ2JiatvExPT/Tw6b V2Gt3XQQpbsmlar9sX+Go46lvh/HLSNZ1X6TYaDitxqX3w3lu23XF5cLkXPi GfGfVy/W7H69j4lJxOvGEDaBvQSc83pWdzwkB8p2Aokx6yhQyjcPIH7swLkt PwRsC8lQsm1xr2sox0++c1L8OlMo2/Ar6/wRCtYmeHNna2cg29bL5thPgYDl rLYbcQKHw1JeXPjSDaeJwwLufEQ0lbrW8RhV4uVzycdt1CFkJ1YJHN/TD7fh wr2TT8vhnOsXmfgxHyf1dpS7jQ+hOS64K9JlEPVOTNxhraNofVCVOytdBP+b 5zMUZ4bRHldZoCdNwPKO243SXweAB2sbvu5qxG79GOtvWfMg+OkSCzjo+Hc6 iL1XfBQiEQL7eA80QSFOjvZPmAydONtr0VxDEMwlGFw+M4x3tw/PbGqhQYKn dkXoER37L5duvl7UiAmxA19aOSn4b43sG3WTjmc3hjeoSNNQmS5hmd77FTuu J7dXtIzBuiPU6uJYBzYe5pB7Kz+O5w+dxW/9LMP9wDdxiROVkDnewb72Mwq+ Zrmf3WJGYRRkNvVtqRr5D3cl5F3vRB2BI7qrPgvZW7Sey032IOZz/Z7tHb0I qZQ35T89Bo4YLgsJfhKWRpgntJ7OIenkS8l8QxJkn61TShmaxBvV8opDSRRw TlcWl1gNY5G3iLx/rRM7nVWC+ch0mH3kusEjM4ikV/2Hq5mH8PTV9cQDikVw 8lRr+KHcBibDyR+bt2XB6U1cBH/QFAwvTLLMhFIx9JZP/OPJYThete3IUqDi bUS5r+/KCB7crsmKbaJjjNljz3GxacjIkDf29tOQon3nNdFjCPe91u6echtA QY12eh4tA/sUmvz/PUhF+YJLKY/BKKa8fljI51FxR1bFYJZ9HrqPP573XyBh 9x2T3A1uUxDP5n8rVkTAeDGzmeuJFnyoEuZT4HqLiMAtPD98J7CDdULhxXkK Hh//XLlyYAxxaZ2tXjFkCFgn5HpYz2JdztvON1QKPluWOwTodyHTQHZusaUf a/IU9mpfKkSkLfa8MuiAfIXPvlVrIiK4RNeEj3WD/4q6Gi1/BPZS9m/+c6Xj l2Out27GGP6cvnkvr2gIa693H3tm1QFjh59ms9k1cFax+HYq6ztqU5X9Wk6+ haxml7/ax0mYjD+ifmChYUnmsq8b1xzYr6dMRCqN4PKmQblNfP24c/vsWf/o YVSv7NjzbNMC7AizTFelRtAuuqtRpnAA5dJ+xiIni3B26s7ez8cnsFR2u2LG mIrk54/iD31l3JdDZTi/WyaYvFwGGzEMk840rwMCjLl2vXLE+2ILFLVd/e+k RiDvJBfjvucwmsY54feFiJCHF0aqzvXC42hGtX5CAT45RnuqPG7AifGCvEMn H8FZb0P1RtockqtNZz9dJmPNqdKULZcIrfWSmktnCTApLpXbvIWGq8bnf79d 3wXyvdkDLmyTGFyQmuqwp2KAr0qBZ7EDL4KX5Q40/oeb4hYb1bKoqJa2/CZw Ox10/shX7xxncXZ6l+aZcQq4zpxcZDOnQnSdQrlvUC2eCyuHSEdPotI3bvGJ FBmJ6i8y3YOIUDzfXHDLlQKnD0emcs3HoNDM4zL2mYJ7A848bqaMeY11USjb PYCTKbJyAWeK0VZ0z3vvpnLo/gvZpe0yi2zuk12EYjpuCfDGu3tTwBPF++pp fja+Pdq9X2iNAkvpil9lXG3oU9+hmB9Jg59U1/G8uUbcsBf5k+E5hv/809dL vcpBmNpoI8fpOcDw37AMLwmZ4ivtCRxzMOesC4y+SIOmlZ2n8wkq9m+xGJNN Zcynzbr6/R4jGH0r/u2r5QDa6v9U8fd14fSb7zpDFp/wLfu/y00f2tG4vCL4 NCkHnc2vLmwzacUlrkaWXVeqYCvnYXBcsBPbCu5ME0r7wLwqeD31BBmNzUwj 6yjDqOHpNQzdRkPYG9/6M9+J6OWcOi5rPoqjkX9mFK0+Iif0oqSDcRnyWz5b 7GPKRKTx+Bnj5yTI6GRPawqOoOb0VmdTHRp0222TVYopkKeHiAUy/h9LwT73 tQY6aJyf7m1MoYDv9WjE5X/P0RRkodQ/2wY7nlO5qtFt4LIJeB+eOwi+4zeF RYfJ+Hd9sGNnewNYqdTN8VGxyLQ10BVQ6ADKmpI3+32GbcuATZEgCd6tMEr3 JSOd6JU284KRK/9S+gqGU9Do3R7FLUyF3ceL13uVRyAtuzdj7NUUehV5ul6u 9uO0WuH56LVxDFqmf0VtDQZr9weHnaSgh+cws1s8DRO2S5AzoiOuNCzPJYKC 9cKbNqTkjuJev4rM6t1s3G1PVamdnwKXUXO2ZPggzl/iTD6ixMi3iOX7tCN0 fL0y2/REhYKMk9VGjjqhSFCVcdmm2IbG+EBimbY/bNef/k/EgwL/7i8df7Sy IOOwdOwzFwlCqq7q67Ib8UbqZLUD+xzetZ6pkn/OeN4/0etHdYmo9SY/Tikm Ydv30cVKvW7sC9qYV0cshzFFnGn0aClkx496vlD9hJOPxeLfmE/h3BdT4ot9 I2CP9h9f7z6H3z8lqWFidDT9q5eRPkNC4/QJgbED0WB+MUEj5HVDzc1wZ8au ZrCmD1QPfB2F/XaB29ebmxD82eKV9QQNjViXwdRORWU4804LOSrMTu234psM w1ZV8QO5i8OwpivsDf3zFr8t526ZtFAh22+xL9K7FD8e2b8QjCYhri5IWVut H4tXL2d2DI0iQ4gg8rs4FzMGNQsLXkPIu8URymVNwQO9378WqXMQ5ogzcuCi 4FqVHP+mZ2OgpF87LuHRDofya3U806M4YGN8Kse5E1EmBHOJyDKcinSqjb1T hpbrgceeMXdCLoge7ypVgOPXVKinhAax03Hp/N7CPPwuke7rmuhDlk6N4dDT HrTws3J+YJyL5oHy2k6jYJT12J17ChKi3Fxf8aaXIza69vAByx5M03Waopvb odBw3eTwTTKiYy3rSQ7pkPFpaR/c1YvM459eXfWtR9vKhGEAXxe4ttR3JDX0 4lTZ/pdj5E7wVY4cDW9shokap91enWncDeq2NGengP1IzVRg8xB8X57dac3Y e9kWwSma3zh0gu4Rwj9SoVi9QcTqYA9EFOduyiR7oi5ZsUVbfQpVO/a9yDWl YEn8g2fFyCjY3fksp3/SYHLfik37bwX8SOsFg9WyYBw0fqR2SzWsvFjWhfyo h7zWSznikQWoJyQ9LNpKg7Py/HH9WyMo73CZGIuvwUaD0UMGzn0QPCg04Xiu AWFsf2tSZ4egzapX+8WuA7tHeqHD4I1gO+V5i+stePrvv5tVBT1wucuc8UCl BAtdu7WPRJJhapwtecu6HLYy973XnpBB+fRb4UF9LJwcbnrZSHdA9PPXUXJC N/aOmz5bpo1isG01sY5xL8+q6lTsN1FgLrUcfADVkLo2XrLQM4/N5G3Ov3bR IVfx4OluGRpqelU0WIRrcGOtUmCfLwHHl7c5ZLkOQDlu2vKx9gQkGs9b2cz0 QG14jrVpcRY7XxN1+4MJ8Js5pdfCRsGR/Qoh59RpENje3reUPIN2zlapGZYR OB7f7XXx0Bj2Pl/h1dLoRN9mjmaN+irwP1qOOyJVj1R2YvO198P4ThJ4KvCq F8uaG606TpAgbMpcz6wxiAH5reFfRAsRHqYz4OeZxOivSjeNy0SU2/xm/1ZQ h3PRTtX7GXn76XDNc5n1eWg63SKSfnAAIZSNkbwSRNw0Cwhct5OE2zfZayRi 6egpXGsbbqIggvDmY0PsMC4cFX4WenQcUy+4b5zQ6ILBUZ3cGQodzbaNKnxV JJQVllHCOesgN576Qmi5Au8NWJVmZaewxSM99ZBeB7pcblz4u5eKfz32TzYN NCBR5dmOZa1pFFS4nrIidOGY5mTOR2k6DA0nKgyY0uGdxrSbeZqK2nXk8H82 5bB/dkQ6sI+I5yvXDpaeouDjLslGTh8yZn0yungCuxAge2xHpg4F3EyO4tXO 77CxMrlG9h4BXaQ8j07WNjgtet51JVEgdSS34FbQCL6tsX45xuCPoFAtXt2u Jnw2fPQtqX4UL5UpOkWJ7dhnlafzx5IC1xvno0r+ZEC9UirCdCcdxu0cMXFt Hbg52rrrnkElBDjLE1T96sGic+eQWOcw3h/pfTHPUQjPINOL+5bIsNfnPtE1 lg1Bl8NFl7KHkfDEIGLRvxNniNLXdnHQENiyJKEgM4zglV9DvdZUBh91vauP LEX1928FbjfnseHY+rY/EiPIW9g1drSZBsWAaw+1Ddtw5iLP60yRLogaaz8x Fe3DC65I51NDIxDodXp6c187ltwdN1w9MYrt/De0mt7Voro6sP2WSwGYYqeP nf6cg5SusM7DP/qROC8zVP6QhLvbEyq2/W3Egqr3Qs0jV7x8c3lwxHsCHrVK zOdpdSCIOLfGzFNgw6YzFnKGCJsgiS3jL2fAblY+nriVjgQ2lZLb4qUQvDdr eKWlGmVa3n+qn9DAIVYm7DNDB+v9IhWDE+MomVp15hGnYZz9Vs+vRCIe2FWO ZQRUwE729Sb74UlsHfIzXu8+iMQHdYdaQ2dwfSwj6JPWIAykfjtpTMxiV+Xd cuHTRMReNtfaqDUKBbPuW4sbisAhzKK06jUH+20CJxY46Yi9lGa2j28I7zji jvNEtmH9h5MrTf7j+PxAZ7uRdBfGO9OErG4S8TcmTX+OpQzv4ojvLH1rIfww nL6jshwiqcPx+o8GUGRG7C/obgVpW/L2G48ocO49+s77KRnlGiOzoxYtEPV9 G2DL3w7NtYBlzr00HF+TJIvq90Bmzv2B2JNJhLqmGQnxUfD3yzvZsKFpLHY2 /Pn7jII7G8dvpTC4a/TaUPBQVS/yViV3lP0iINPTIN7YlABXN7EHp9no0Fpq Evm+fwSqX1lyWLZ2IaMpSKhssBW9LVzjocsjYP6+nRR8jgLtlcs2Otu7kGXm yi9QXY/dNv0XnWYoqGF2j3WNo0L+kVzEuicDsORglTvaHIGbtIt80CPjyJFg q+kDH7Bnl1r/44ExrN+96M6WQ0WuTAxPXNQHPElgCbKX+AxrptkjmWUDuLDW KcIpRMZW75HRQ31j8ORwSVopLcTcbcJkeOkIqpY702xLGJ5QeLZSRHoW8Yu+ A/bTZFw8Jy7goU2EZlAyP2/1IJh2l/g0q7WDO2Dak0ewGSxXW5tytRj8qmV3 MIG3HfUGrQ+1qhm8c+Hh40UG5/V+q3Ms204Dc3DIX4UBGhyfDjjU+pAwY7ll 4/mj/WjZ1Ppl+gHD3092Tld5E5HOLixjMEfD+ap+7TMlFditLDc3UDSODxZt 5RKrnXDRZQp3fdeBsjhbMaZzXTjSLBKdcJmOh7piG8p4RhBzO0j0ek414s9Y el1oy8CdNzHuYjN52D8Z8V+ZfDl0DDJM+Urb0RBTGiewvhHm666QzuYx/v/K PPMxhpdZ2v/zPPGzDpx2Jj6e+WXwyaZdWxgbRlHBxTfXGFyTtPQ3cjhjEmSu A2r2qoN4qjkY45YwhlMWsr84PtSjRLxsNPAdDS8+GFt7tHWigD81toizCd2F 4/MXM98ibHTPuj0ho/AKy6GOKjB8TeBXvaUdGQNbfmaGSXWCP8knvWplFrE+ PHFhvkPQi7X4LX+JwfX/0WIOzzZCYe7NS5pHDxzLDrk9+doF2h33vI6dQ6i9 K9G3PaYbmuQ0w/TBWQiqqGtH7RzAOd1UTYkvEyiq+/ibn7FXb3vY95bKTUHk sMiepm0EfNLkMs73ouJMr5D56Ks+6Mhsu3jFdBbM2prhilcoUG++wflx3Qgq sk5uvhBYjwOJp4sHTIeRRfV4aMXwc+2GOhF+WxpORAT+4fSrAfdm/7aYHhI+ vV8tk6z8DqVbrzIIOf249y97+tXeUkToO68yhc7h77kAYj+VhAJa5PazJmSU ZThcuZRIwPdaJ+0n56bxjXdByej9AGQvzWdEeU3AWvjObavBOvw0+33h3utx aHNIR7rUMbjBQDTYp3EM4de3cE0cH8TvMHKcmUorTkyxCxkJfIfWXsHnh0/W QrttiOCh9x20BKYNKWIz2KAkfipItw8kt193P9r3INqchcQRN4wwwsFtXMt0 VD7hqd1k08m4FxmxODC46mvzicAcRt7zKS7ufjoDxxOSnxT20kGX//xcbSMZ p87kW3xiJSP4IvXye0wgkTOaOnGIsT/dk3UXWubAlt6ltbqRBFGdohz1TX1Y XB6rjRmph+P9cv2DRhPYH7crU3asDSVJp8wWP9MR8l/NCcMnJDzliVtf93IC xAu2BWfih/HJw7bY1HcGbmdm2vO20fHW4nSgb+0UdgV0iopykxBdU/oit6QL UYpX2D6u74d87LYTyb7deCJkZPRoSwVsg9qmglcYe5pJ09fmaWDkbWGwRh0R 9rJ8nxUYfSAXpd5af3IMgcYSYSnBnVDxd65qmaQhguuDPq9nN/z5Bn/sv0EA bnwNzZWrhYvIVGpA3gCY5A9wKiMPF35M6kvdoiNA7rzopq54NIdPvhR90o2E gUCzpqEC9OwV6mOvpmFob+ZtKm0Ap7brBk3b0HGOwn/++PN8SHD9fBjZzciH F44l1KAO5NhodL+YpaDsEEWo2rAfN0zfFm5wIoP0VEtK7Gc/zoWzf7BQGQdz rjrlSjgRE3/+MQvwzcLjR8C7uPtDSM8UedSqNATi2QXS/KkWHA4IVFsxIkPB N9Uy8dAQVltEXS4K90H2bXWaUrQB9p8LESoijeNXkIxN0AYqrhElI+7eGMWJ p/HVhLFaDHWNXVvdOYhLTNfaKKpkWLFe7A+PIcPRiJpTSaCDevCPlvr+GTCH Wfx3S5iG9bHXnYM+MnrlznSCvjljnzOZjks5EiFScSVD/MU3GLyItnzFOoYc vUPWG12I+Kn+ffzcTxLs/ja6Cot2IInZstJmfReMN0+wUcwYPrE0e+GD1RwE iaf8VfaRwLVv0jzjTB/E2+2yCyoIeOJkHjzziAhD5a/Tz7oGoDLtVFf4ZgDU xLpQxSoK8qUVqLw1U+ArXVAv+8zwV6+/V8h+RBzd1vJEiacXDcJGSwRDGrY/ HXNgD+8Ez1ET7d/fKOB5fjKncQrQVphzWzUcw0P9sLrb5AHI6RZTngmNYfzj l/MNFmQ0WJofjD7QDLGDMiLdNm24c0Ox96DCND6qe96f/0NCfvDx3tUhEs4/ 0PikwnjuK48f4/sUKBhxptoq8+XixnvT8IuMXhQ5/GDuv/F8UN32PFT814sL Hw5Yl6/2IYXc++JHPRXfn5fYmPtlgz9F8F0mw+/3lKw8Yt9GhpykXzg3exsy 1fQfWu5PwY5Xlm1neCfwUcYiXelyDWxm+hIjQ4ZwaoGsfGN5iJHTglPrbhFx 6q6Xz+uudtS5F5vVso/i0mj3n983auGT/0I3pX4CIXvsDd4ea4I2P0t5QOkU PO2KqP8xd+DwiLP94PgQvrLT+GYMifBL8L52foGGim5udju7Qbx5FvH1SM4k BOfmn7lkdsCwn20r25lOeAu37g5aNwBS73k18xQy4nJyngcxZ8GyZ0heIrAB SrGtX80sGbw4Uam8ZD+Gz+8Vv3O+ISHxRofmAe8uaD5p4iOZpoLvjJqCa0QD +pT3lRo9a8J17jjC6Stl4DbYfT+X6Rku3tcsCntcj9ouUS7WPTWQDIkntsZ1 Q3r51tDSZD5iBE/52G2fw97ZbbueEunImBb1k7aaRnoTq8GkSjdyut6Wx6z2 QPSQc8Q/vR54fvEg2etRYVUlNUCW7MRNj/WFBIYXbn27dOinDwHnC9b4nza0 Q03d6PVJ7m60Lq/Tbu/pQj3/J+Xtyf2wOKBglvq3GzIBqjyZPsOMPV2f3svg zcctGcpcDd8g+iPCwFWvE69/VOZ+lstFw+NIVWvtOcRUOx2iDtJxvVm1P5uR c0y3yx+lZyYjfg/50fuodoTN0yt9BrowahVrHX5sHL+/++ckRZdh9ZT2zHvD LjzszdtuXJyHGNO+LRejaYh3e2Z/zrYZfP8yVzXZuyC8lMv7hOEz2Vnc+QI7 GV7VcGa3m1sp9vD3cPAuTaGi4r+LQR0kBO8gxwQkMDiwc60j2LIPN9u+2cWy MPL+7uffMZ39eCfBe2Y9Wx2uslzT2edegJHJXYOWVydh91mR3+UNg/ukjFXy ask4tEdI5XU5GTabDFUPyUwji/m2iTobDSxDO+OuZIzitGqZAPdSGriM7N0W uYkY6zF8w7JGwcO6DVtljsxhLSr55O23NPTs+GhboDuO0sz2PjPvDlx3C8ni 2kbFo4sWfHqFndD3dDk3MtGBwN3ZCVrRzdDYqMivHE7DWNAOQvqVDqQoirIe FmqD1r0trqpc3TC7Q88JXN8JHTrVh1rRgCm3KZL2l0nsDSBHrK9neKjNdPwK g8ermL0fnzUnQeiBCGXuDMMPixVbZY3awdVxleffEg371D0N63kHQNO6sjRU PIfPaUdPcd2kQKX0dHs6o09ddd9W1khXgC9T0vIrgxc3DAkwse0YxolQt8xe ywnI6+wydEjuhUSsXPFxEh1OT3qK6iJoyH+iHfPddhTCrgv9O6do2BO8THbP G0I3a/aRpPoexOzR46yTS8EHcS3Wx9/TwbzA0pUuSYFqXH2c7e9C7H/secl/ OwmesZ11stRq1PVmf5C7NImO3PufH/+hQ1z3tbVqChVze07rWVvkIyDO/N8x KxqDg645XCruwv4bPtd/iY6jbBf/vFx7Pd4EXQm4zESEeeyGvowMCmzJ1rzN c3RkcU3zKhCaYVLQGBPAQsXNv1dbuBsYcxXBHMzTSoHg0AqrfmQ7aK/5jgsJ jcK0MpE1v3gYr7czI19qEi8vnY78Ij4InuhX3i86GD74w3xrl0cbNmvXfuFi 6cWc7bB0qXc7RJz9jiqKUrAnbc/x155DaMu/vC47goynbN0mQZUD8OfaZbWk 2gnp42YHOz0yIZnyaOy4+gQO6gXGP2ztxKDg9Fmf2BEcWzeuc0WuCVxKthES XuNQ8/lY8cqhA9anPy/kHaKihumDD79RJ74wESn9udPwPy2T7cDWh7up63bW 1/WD3b5Pc2dSJ5a3vDDhNBjGhXDJIf6QelT8ybfyXupHfpF3v3pxA3yzds8y LdFxh37uwyfJNiT5LHwpZJ+Dt83B4d2MOU88f+JmC9M8nPbz+e/5TcXGkb8B bP7NiP92t0z8QzUchSrGDF6MglbOz1+wpQfFJcc+m9ePwcCAt1qxkXH+Smyl vxjve45GnlrcMgKPjEvDFktUCBttCN8+m4uOTY/eXNg8ia8VhfsDL1PBsd5P ynEvGbtGDosLG7Zi1HWPMO/hbOw++fyY6ztviHgl/FEWmkBg3wYHzZpu2J+d 9ndIJ+LdhoaQUzoUjImvdRxIJ2E6asOP273D4HZQM9O6OQWNU6vWJ3sGMfO1 VdnjyRwsbJ8/G8ohIXajMPdRw2mMTdL5dTj78azo7bW9w4y8W+/lsVOwD8Z7 KnllpAh43+UytrVYHl7xI2Ve/B34yUEQ2ninBk3uxPx9/6aQ6ya6JY/hh4v8 5/pFj05Ce2pBLQ+dUO+W2jnORcO7po75Qx4ZEGp3OizwdhrXkvX0FA73YUa+ 1+Uxo39jDFLlL1g2ofBfop1EJAX9mvGalslR0E4WbT6sR0dqRWPv1VIayqbS 81vOUpAm9XBz9NZcXPDKN7xuNYJOo6X+tR2D6E2QFNw62ImrLpbGakpZ0DC0 3rVMGsCk4jezVHo7lD6nCItLjuKyj5hKUxcBgaqD44RLtejvcj7a2liBhNUD kw2fu+Fwk3eh/0sNrpzZ6zg/24n+FMqmU+kDkCrj1vFVGgTpurCE2hMivM2j 2jVCcvBeNIyZ1BSOqSuDmW9+zSEoZULwqDsJx1lPuGgtdiJPffpWeVI+ohT+ 441eGkBwXknmgcwutEj4om99Pv69lfX3r/uGx0fVnRWKR0Cik3u27CZjTuoW peUUo69HCtDtSUGU9vfnHnLjyNr6Rnd8OxkaF1v5p0fGkLLQvXFymYJYXuXJ 9uJe3JKweW+QOgTd+xfnIt+3w/R25GahvS0Im5g1PJ9VgxO2GrbE1VI89luR utg/gncybF9e9lNx4e3BbTmBfaj6dLvLVaINyyW5IfWDNMR51bmdECXhfsW7 hTg1Kspdi9m045Jwe8n/2xPZfuRZWLppaJejZJ2m/a+D4+h5mfC6zmII/se8 2pW+UsE66TPWco8EvVHHgC/ck5CbUclfYOyF7tKV7h1PhpBoza+jwVIG606m Y7lnJhAtRo0e1CNg844bEjUR89j94YLF4fU0PHmXHlPVNY2bA6c4myUGcMb2 1/Yvq3Som/5eXXcpG992ffvAz0/E8POn8uTsLyAWv892HB5CweGCle/JRbAL L5Ef3dAKjYBTWsdeVuPVDbuizY4kNFveMJXKJEHp4975PfxUeF0TsDzsWI+3 xiZK9zw7QGJdmi6dKoF+Y3f76J0WJJv903e/XY5nSyzldEkSCObb1tuk02Gn bqsgykHCV7L5c2f2PhDu7Piw5MvYp4N7U26YNYC1VSu7Y5YOFWsun2d9/Ui2 +GvpMz8Nlxg+pwDBfqzc17lXPNeAomvTbvoj17Dselj3deQg4m1d4zTzGyEm HLZt2390jLx8HMfS3owL7+/mOayMQrZ1MaogkYwN7fe0drh34nr81JMunygY Hvwx6xW7gDcXuSNnqXQEBlX6nvtDQ/HwOSalK8OQ/mLy5l/dDBToR2OlGN5d 5+b0aTZyFn624nlpM0SoML8o1bpBAdXZq+rKl1pYeoY7OCVOQzKDT+PeQRoO 5pI3bDpSBRy+1SS1tRY198I2rDHOLVQtzuZC1H8Q9RQ3802eRof1v4P7G4kY dP1PQdp/Hipj/LeSQ2lg9zA0Hwulwj6m++MB70bsOTZt+OfdHGiFas0zLVSk GG/Vz9lKxcvHQ7IfpVuwQ6SfbPKdiFb5uF1G9H5IPXY6k9g1jwMmX9blBzJ6 laPJ7N4UFRkVXUsdJfW4dM/4v27GvLqbZjYvbqMhJYokvzufDLX7tfsvmrRA oUt79l30MKKzfu7m82X4pkp+eYsYCdfFyO7WM1S8CLz49dBYN95fMb3r49mA I0c9rOc+9OP42q6iIrYP2PruGvdWhte2WxGcc/haMbK9+EKG3wRWF3Fkn+8w itIMrC65UHHIoV/B7HslBNLYvWNnSfjCHTDQ5dOEa+XPNI120GH13kktidyL 1036qo9Xp6EiPSlidXYQN+JCXqkmzaGORFE6b0fF0PexT2P0XsQu0FIkLEmo Icr7LL/sA+dB4epniW3Y9G6rySVWAsgmK/V1AV3wMvPedDFpBJm3ckLIamRs fNAmzjo7h6mo/s37H9NxMG3Tp3qfWegT0rx8XAbRJ3jgzTGWSUipX2Lde4SK DcPb+p3ZhsF3eCo0vakelUKpdobsi2h+ILdb9uIIzs9MHG14TcWIzmaaoHUt DOJbbIMVZ/BOMlpf6BQFE9/VWxdkyRDfdPs6d50vxA6/7WmrJCIy75Hni7Bm tMXRQz1CSPhk1rXnoDUVGpMHlQV2Mry6kudg8tVveL83fVP5/in8LpndTtEj 46U1311tXRKu9jv13xArxoKItHxbOB3cviuNofZDyD/ooDqS3IFmljwrFsVW SDSMWTvMtaP9h1hiW2grXl68Tu3jnYH97ZfD1vcoOHNE1bPDfxpi/21x2MPS DRulzIYkYxLU5JO+PP3bj5dVMTKKSQQU9n7qWN/dh45P6TvNOmYwHT/0n5IQ HaXW/J8jTlLwe65ieYvqfXz/fGVByW0YVRtdYh3NKfB0KD13Rasc5MSDV/cY hOAe4U3XptBZJG4cTLjeSkD8dxMdUEbhnZZ1+CjzAC7ZvSdvzorDgbrcS7qI h5yvmoll8RiC/UIcZflpkLrsRzmy0AW//+jidzp6YRN274+A7xxit9x1SC1g zPHw3htKbtOIWdnSLc/oiwk/3d9vB+ZQROQOeylMQeTvRa4Zrjbce0eT3sbS hXjS9ePewqMI2yon8NEjGy8H1nfezx2Arunwr+3cFbj6Ltl0jtHXC69r+3/q UmBWrPDYMpOKkDqZxKebCchvcHZ3Pt6AlXuSj8X/RCJR+TLdNJLBa6NHPN3H G3C4c+d3To5ZtNhJTXxNIOAHfcolvqgLtze1UQnfy3CuX/Nsd8YIPLerfPCW aYLxjZodqZY0pD3eefHKgh12nu0ZWDvVAuKs2qaQ2kaE98m+8EocYxzZZWmj vkrIl8hWHWkYR9I+IQHNPRX4Uien1MREwH6OHHvtikH8FNKztRwlgkY8fbVI joivuo2v4zmncCym6qJzKCMHOqwT7yfNYvPo7i83xykwrOYsCb48B1OO4CqB rUPY23cpmeRIBjE189mnIjrCZupLsgIY7+u/V8iBtZWRN1E7q74WIpvQEkU/ 8AWqM9ntEG/H1OsYQa1le+z7eF7Qtp0Osvll1e3OZAx45qdNcvRAaqhObLfc N1jeW816EUNFWMzxkY9BvchAbc/6mkF0R8Rt92RJRsZAvbwQI9e947bptM6T wSSladBj1g+mO1tSjtg0QDjjVdiJbWRYOLw4kSOchqjn8qYH5Rk+8f791pyB Icg2KHNpCtLgOehzoenkEGQWS0dL3AbQZJOqqHR+EIdubBo6XT0Ewclf7AM7 adC4M9s2kTOAwC1BnTcU6nHPsFFRKLQezGHq/J4XvkC86YyGo8UoDlVvchTf QMdE4Xax109H0UDYb/a6bRDiuVtTD7HT8XTvnNJqWiVmNlbGJfbXggfihfnb mvHiNkS6vkxAPSTMRUyiFn4HLytk3hlDbuAdzlfDVPRvvTvts6cDr1wupGV4 NIPZ5Vr8LSMqJLPXdpYWNmFBsDyUyZPBK5P7fONii/Haeb0C27Ux6Cg+tLd+ 14GcWfasztIxCHwr5/fjq4SlqOS6dkavFeVaXLl8m4auQd6Dl81nsLLD1mfI tx8p6ea/JlzHEfe5gutoTjdsm1/dfW89gu3nM1bXT/aDqzFfy+ERBccs91Ta Uyn4uHybZ1xgChwTFlpfJQi4SOB4uDOODGGJtyMh83SocUsWq1bOgWmB8NWJ m4aq2ED9PdOdaFOZGSu71oOm5P0ZO/jp8GQK3X+cswqi8bkbJc+QwfVUsrJu CwElLcMO2VOlCFy8yXBxZziyRF+2maUh2iH77oGiIZzS3FLMrzUHAqXzkfUS ETVnf8iO11VC7G2Sjbt2PpjdbbSqvo2j5vjkUW71Eax2FD77erQcTL/G75kF +uDkN6fFCO0OxNw3uXPqej1CQvJf61NJ8PYRjeGTbITjh3LsZuTrfFTIhTfM NIiOmvXLCnRih2B81FmrejyLbzQ6xjcE4oTRPb2UBgQma+p0FjByhpTqp7Ev H0FjC22GGMCGL75vnQ4NwdpsI/Hd5n6INhYmPuMfgA2ff4+Z/xg2iodclCQw uOqCOkcEgYS/d/pMDiV1Yxt9l+27ex2I+1kYWibchcuGBDvZ370wk6du7Exr hvz6ufAvf+ox/J23Zu+jj7B62R5XWNIJ74dpCYJB6XC0vsDMq5ECq9bGUibr L5Big9G3YTKSDD8r1XrRYbH+rqrUPyIKHslv/VlDwOUvdpN8zTQ4Re69NyFF QTKHbrrhh2n83T58uPQkCdnz7V2j9HF8uSu2XUCXhqT38iw+r0iQ9ju7dIfc h0Ce/2xr5kdQG9Ae5cNBxugW+uDdpgrMBxO+/repFt1elQONO0tQ+JB1IGo4 GT6sYjx3w6nwLh5PvTHaibr2isJ9LZ3gDuKLyD7YhuPBl/5akEcRV+tz+uww CXXVG1yVRudxKFbnWRaFhogi14JpBpdk8b0S8Z1g9ICb3A7jUTqShnsJ31Ro sF2+t/45dx/eVXyuynVvwqet938dMpsAy08WiXTtRmRduyHmdGQQv66rj0d3 v0XFrqrqvULjaHfZQB8uIOPP/cgqx8g5aOTKJ9t5kGFa7/BqiTKO/dus2h0/ kbBsWz3zJ3wAT0p5lY94fYQmjzHpyWYSPO56P5HW6IRTUtjTGkavU4ZLOSJf lqFIJ6fohu8gfj948ZdpWwLG2FQLNY0YPudedt5ZchDGvEmznkbv4C8YS0m/ FA2JvRwiglunEL2kd/L+xQ5kXtjNIig/iGjrpJMypSQcje3z7Bztwcqqgk/M wz6Ucwz2GahPMrxENi+KvQcKZddzNx+lo8JKr5tFowPvVLROh4UNwGf0U9/5 r7W4FtBWZ2sxiHshfrpq2Y0I3diodow6gVNqCVFPlZpQKTFZIlkyBk7h++ES De1oHBflCCpoxwHsqL3U0IU1StS+HfeHwBMl875MrRtOV6PWkjxGIJDLG/d+ fxc0T/f8K1OlYuDE2co3RYN45+z1toePjNfK77ysY+i4obLdY7cnGTn8qedH WmgwP5+bU6jQjKwDzhrCQZHguB1LLNToQtme58STlHZwyBay1yfUwVvE84HB j0L8+M/156rUIKqe6/zyLeiGm4do31RfB/YL/JhJ4ekEObgi0HxLLYwDPv05 aZ8Pw+J/BTc1h8E/7OsTxsbgzJ07hboutcHrSY9SpEUTFHVCF0wkp6H6Tan9 dw4VP5e2TZqqjEF0zv/tVmkqzFJLPZ4+bkexS4lirHA7JiLzx55/mAFv6c+/ UVxDWC9BOXv5EB1aLjICRr8JuB5x+nQhI6euP9C313k7DKe47OY9TiPQ1WYk QnA2bEI/v6k4RkFK2DGBC88Y3Hh5p3TLy1kUL7FWpd5i9LUpk6L2AwqCzbhO sOtS0XUmsqeDwXP9nckp9vMNcFCoM6oWHIb3nHHY6BgNHNPF+pviqVDfxulu 0tKME13J0R4vxxFgtzHh6+lOtJtW5OknE9G1jj/rNFcXVPhHmDQWCfh429Jd 16UH5r56x9VH6DDXOXdOuZGKueYAnt8nZsA61ss2/5eKxyb71v3IbcaZ3C5e 5uomnEevWpMLDT84uVxctpfgvfSZRZELM9i3c3wu6C0Jv57sF88eHMTE6/aA 7ZI1GLXL9gsaIaPm0M4Vkwu12OVe6PlDZQjn1dhDvyq2YzfTz7Zb7RR837fd XiwkFnENGoEkGuOeLru08f0bxubbkqEnmCaQOkyQEtcbQZK+/waNdYy8uvNR 06K+Hdq3BDk+bmrBuOD8wAmBOqxcVlLYWdqOf0bDIn5bvUDx/nPsGiOXsord i3PPMXKmz0HsTAQNNddHRoZmqdhFhJKBTDWyPl5+PhdUi0K7xuIf96gIdhEN KHBqQVT4Iauc+HFY69SNaOf2oiBk0bSZsIANhC33FyRGsJH8t/osmYblJ2fb 6vcXwHibnnd8wxR+LfgI0pMY88Q683ILuR+eTyNvEJnqIUChJZ/4OIG6Y7/f b2Vrxfpdkxeqzo3gl1yfa7LJAG482vbg0NFhLO8uuudtPIQtf81ON2ZO4k0m fcyMwT1vRfhrkswJWJlzTdNqIOMm20GHushJBDwrV4t+y+CCnpGIO/ZTIDut xPCcZeTxffcXejfmMcmSazTuM4KGaztIimlkPK1XGokxycdgw7KnxVQ9FCRn Li0YNCBT6G2kcTMd/eGpFllzfVCncGdFvaKDf+jJpy9vytBj9clftXUSr8JS 23xHCdhrZ3XoiuEorm4o1ktg8NDIuovzQ5aTWCAf+JnL8Nr0et1btyM6EXkj 57VbeD3mxPnEtkrTGB5SoFtfUQWR4Ovk92xk3LorKD0iV4Rl9yCHBsNaxDZ6 cdVuyUI2T0B7uxwFL5nctXm+U/DiYEW79hEGR2oFT3fsJuPiumSxaww/J5cY BVm0dmHR7KlEHX8ZmNyygs2jE9B4izlcb2YUnhrcBMHhBgyKDu65/B8RyynT zHIlydhy4dVPt52j2P7CstackWd/7DKLOw5QMLmhIydftRb2/HnH2J5Moa2i /D05vw9CFM5bt63o+Htw7s2Rj3R0vpfjSxosR4xGaOCHFzmoCwiSXf9zFuzs 5rKF1+i4wFKRVuw4DhHPq1XXywbALrmSbi02CoXUDIXXbDQ8Ipbs5QwaQWni B4V8qRxsFpyTDFxtwauPGYU35arx8vnIIn/7OHbcXS0dm+iH8NRmMltPFeRC pQ+XbyuBZ2iq629OKgrSO8gSSTRwh7MosDVQof0u8dGERxXMNsfuFCqhg/nP MCuLCA1qBI33PhdJuFtycjxsuQKrN+u4NerGoDbw+K5BJx0ecv+CU8onIe/0 /nSKEgn/LdUbvJ8rxxuOW+Wdq9WIe+Dp4PuGgtqCyL03znbjvvPzLkXGHDNl rs7akd/h6AzJ8N+7TnhGJS69vJMOOb14dv1DRExkmU+fOdkD3hYtYcHudtj0 hLOe6M0Fq1TDKCWAComXlhNvUqpgH5japvSvDcr0mRzWzExsC3p5/cf4GMQu NnQSGD7n1KWbL8FDRbis/JVtHQOQ0ZN+asNNgJpQnL2ZdBNuPvr77bRiEy71 BumeXtcM2r47tL8O/eD4abns09sB3uA/x4e5RsDkozzkr+kD2wJupmtjRGyM 7V6TVbNDDRO7zTjj+zLnsOhz/xphN3fsdODfWQhv0oqfrqNjropDzIGTAq3d Smq/m7Jgl3U/wsieBhKrBn/XzUE8ahPqD1ntw/Wbgj3Fbe1QU05X/5QyhZxz sxb2HwcRtaKr9ef7DB5dmOe5nNqP60LfarYH1OODXresjHEDvozeyAiYH8BW aYrhm9oWjDQUKeEaEZ46/j6X+4ph8vfiBnDToc2U03B0vI3BsaGbliWnkO7T usOGSIXA79U/eyKaoMyTMKj/vAHcTsrntKKncKt8bGcgw/e8dIJrpN1HMU61 eCBxisFztw9sPMw6ixkR5dLNP6ho+cE+8DJtBpWNH3y5+4moMCwf9JwhwdXp ufDp40MIuL23bWKqDJ49Vr1bM8shaD+zFHVoHKceK/PpyDTjiQdviPIVBt9u r4pea+rGnsuWtzMejmBzIt/caeNBnLLdGlZ2h9G3xR/0SQU0eHTrKbc9msJA aJqU0iESpLjVWYlnemGtTlGIWegDd6OYc6rGJKZO7rA8w96C5H989UKfaQiu Ns4lD1GxPuDf8tQ3AkifT7R0xBIYXJB/SG0/HXzbJYQ2lpPAJpHW0LqF0R/3 eS15TncjUPrZSPxfMp6Mm3r+feiER+O6HncDZ8DVdrrptsQAFkl/HnMsDsOm 2I37lWkfAlQ7DzxncPGVmONFZ6PIiF65elm0hvH7n0I7rg0y+Lh5UKveZgzW 70z+GQm0QUlI9v2DITrK7R5y9V6mwVfjwrBANR0PzqzPzGL0uuP6NhY/IhG4 aB8rLhKDdZmdq9Y3ichk7W7WH+6CI+mfcNkzCiDkt3nf1UHw/OX97n+1D56C dVqDLo3Y4n7nX1U4CQHr+0XjXvTiiGpO66MLfRB8LLp6cqUejqIkQX/fTji7 d1iwr7RBpfzovF3vAPyatt1/VpIEK5b78g39BLj/y/sqbUJB7877thc45yBf fLc25SoZutw7PvUsT4BvdWRLbXUjkh7biUzuI8Mz52NUxe0OVHCM/H1hS4Xy zE1Byw3d4Op9WHG4YRK3WXcvcygP4JLtB/zaOYkSEaJeg1cH1PWs5Q/00qFw 2K767k8yxjwnK9/cI8Ot/f4ZOYbXr6vxeqZXTkPC0562nowqZKbFyfJYzCFl 3+iOfS9IEMCi0mETGnS+/jm1oScPBhrEs0nH2mHpZPlZj5YPXf8P3oXHxlAW lOL3alMnEgeNQ0Y5xvH7rqZj94EeqK7Ohp3l64clUfFuz9c+qITp1P51HgUl f+zl/ftk5Ie79WdP0rAY2P33EhMZ2eJ+3qcLp8Gz6SCz7h0yXtxiu7V1jI5n BibEdi8agio31X4jDKOp1PiEaH8Fenv/XaT+oqG2bGajOisZq+eOPuQpmcer 7nMTb5joyM85k371KuN+ty/LFIy2Q8jrbmDUMh1bmJYi49VJ6Ml3DGI7Xw31 VsUIntP1eJv9TOw4g/s5WshhpKkEnLx8aWh8hYRW39mtJU1NYGbhX3Xa2Qwr nyvzVtIB0PGNsDt2cBxpm46yqP6tAtdAnD6r6jgu7tR13R1PR+/ykSP6fIw8 217Y6XeyGZ1sF7fznyfi+daN6y697waUo1T9vCbBUS+/xWljK+6uiQm6ro6A 6/pttsGnnTB/szJr9rIXnlmGUeb9bUj13sdk08borUih+AFCJZhJmhGnChme bFr8VGWCDv8Vj7UajQEw7Y2X9rHvxXlFob9tQVRcvHueNyjoAxqllitK33di 7D/h7+qUPtw5JOekYD6ErSuBJ/TjC6DDJ+I8tI6OtEUd3+9KNBx8zCUURZuC VgLPt+FgAjReqaf1ro3D4xRbOLNhG74/Pd/6omEM7K78W7wYfpq288N66g8S vJJb9UfEmsGlHGV7wIaO11E82VKRYUgh6r7ZdpCMUuZjJt5z+VC8+nS/u8Io DimflhEI+Qz5hJuX1A7XI4W3a5CHVgBDd0nTBaZJ7NyDTd9823BayjShebwR gjaSg5s1WpEcmVnhfnQEu5j1H1CFCxH8mkNn86F+MD25yvu0pAoxZxHl+YgM 31uO1yrETOG+8aWF2ckhiO++Wl3f3AXaNIvd5s8MHrw35FGjO4hK7xN6JfZE cG9+YOTxlYopmdL9qfNkpPHxPzI9VoyIFbaB17fJ+Jr/bDkhZBhv1IK6EyzH 8LbNUnNtTwM2hQT2PD1Bxo0NVqF3buVCU8S78NkAHaNMRQ1PNXsZXuM4V/Bz gsE35WdCG1oYvjFA6PYag4j3ByEZrxbYHMo+HLBIxehOQTvLKgqj//7M2vgQ cPJXeX/cqx70dZb/DlolovuHrH3ebDqUx09P9jfOYZRfa1WEMedTdzny3xr3 QIeLh0mNsY9VkaXSFa5ExrnUn6iIJsCLs0VgIWgezIMFab4LdGgu2sQ9Y3hM TNoLV5+vaWiZMBDnOTkBtS1Cu77W1OKIwEza6+BBKPE0qSvOJoAzQtq0fW0I Ay+PmBun1SHvVfy6a3dGECyuWU/3L4TAgdFBE7U63C52dlh+WYHcg3xDRLVR HFj3/dI+y3JI/9tz76coBep2ySErH2tB8q4eOvGO4c8xGRUGjHuUi+1KIvgy +C7o+UJmBg2Cm06+VnIdweji34W+A50oVWsz7nckg/eHat5LeOC5587VFccJ 7LLmcN1n1470V79uCP1sxFBgfesH90Z4t7K/rlmchtjZdftSlntwkDXxeqLR OPKGnSajbo7gIfFbgKb8FOL1f1jQZxm5fv5MYZHAKEKqy54lfGiEf7epn/Hh caRbGpzkiiXhe0rUzUDuScQMfH+0aEnF0GUep0rPAWTuXvtdU9mOpZ2zr7ny ptGi9GiPggMdUd+s49E7hMbTqixt94th6OgbVLiuDc79lnvbwjoQ/nmVZd/2 KTxX6/Bbm22HsYn5/IUPPWD7bw9TnnQHku4H0a6k09CQXb5Rv5+ETS7b+6/8 pOEXr9FScQ0FnTk8bQdGpuDZ5MilZE1HRRmVPjZMxn1+SckN8m24Ul64exHd kJ+UTiDM96HMZKF2gDKO2Ucftr7lJYPtavHtqDc0DET54XydF8aYz1Ge7xjF Esu73fKbyagarH7ltI2CgW/CgfvWqPh35v1YAA8Ne08+F4ptbABhoe9vr8YQ ak+Yv958tw3brzsG1tuPYz7wIZG9oxEdD/8rvnWUBoFdmXcfZNTBfm3XFU4G f214ZTDpNk/DyBWb5GgCASKa3+IlRIZwa2tH/83FJtj+Z/Kho6cVbTk7rFId abiXap1Iu/MRhqrjVMHfJAga33ghuY+G2w7n9/XbVCJFVevdr0v1UDMzVr6Q PwdOc8UKPWE6msgPfkVRe9C5zO121qgfXbee7Nt9mI4+g7OdqTd6IOfZNknX 6EKNjVboxtTnEHEWMZNjcHeZL9Ev1ZcAR/Zj5uIMH5VQd36XJtCLe4H+gq1d k9jipu35RLoXER5+m4sl2hDS0Gy2thKC+bjDus0NFJAOyD0Pk+7Dt+qqH+nr arArxlKBZzfDT5Q+9Rfd7UeQfMRLdlkSfpPpJMMdZOTY7teMp5PhxHYh+uBI D0o5t/mH5m2F1a541k0sNUjwaV/NPFSHvVr8fjGWgxBIUT8T8LAHfNmDLOfd aNhylepldaUAGtuOzUpNFCJn40yBU0QePnPPPA4wmYbRYA7XJtEBWBKekiVr O/Ff6GBc1OsasE6vxnPPjcNyxMB34c0Q1kq3Z2/eNInUjZdVp97SEaZo9sf7 LAUPmZR73opX49PgbOhRpQ7Ufi+xk1EuRsr3Ub65GCpcuITLnZJI6HPurJxd IyG4297U9CgBj0JtfqiqzeBX9471QeoUpHS+b76WNIYH6hsUGvTb8CB222HN kyRwrDD4cu8gjkzLXbJLZfitvsmVhLU+DB3hXfc9qQWOJ4Yuv2IrQbeKwGCA 6xg+Va6fvpTWgY+8x7xbuaohdG/zRG1kCPyc5efDXo8htHTtqxiDkwQGxFyW BtvA12qnb6nRjarvKrvGkibAcqBKv7u+C6l6k8+PXJmBPEWkeOjpIMPHkhcT jCZx5xwtb3cEAZupZHWDox340HePK7YpA9OX/E5LPinHVXbWM3oyqbiVuGfw Yh8FOn/ZXzk6MLxx4sGDgGskEH9qJFt63ETe/pkLXx90okTi0cM/ejVo2fpC TLOlEO5jrwIOucdih7mgoKooFac0fxoffzcC+01FGbmM/NMKlvNziOgCSV/2 lrcuBZvSvYrC2wlgj9T+ETdNRyG3WeSbpQyYJb4uFeWrxQNH85/VBQyfH8uI OjE6AZOm2M3cScOolQ5L5SaP4or6UR+jVjLco5NqbmdRYcCzzc365AiEOw6c 8HOlYdY6KHYyuBdxuyb1UztoSE+6z/kooRsBT+I/spqQkEWrLa3XoeDZ34+W IipDUH7pFWouTkaeYHXYPloNyEAad1oxjJ3Hfh/onYBig8Se0nM0fHrUuM/s NmPeiXf5Fo26kSP+WOUGwzd/21yP2iNWC83PG/9XwXkHUv33UVwo7WhQFApF pWRnHSqRSkloSoj6iRCZlZSilN2QHZkZhZC9M691cbncbc8kTc/3+fP+ccfn fc/7nPO643uCe9UYtA8uiIhs6Ybw4EbhfTVMxA+udg8MasfrjOkJlcQuVBke qP7jSAai6Qvf54bxWq/nxrFCGtZfVTN6Qcxjend4xfkHPQjNeVtrHDCDNwzh vXbmHERRp4Z5qzjYudmFx2aQRnBslGdGfh8Ot1GVd26gYvxh3cAhws/qLN/H 7CV6/bNFgbB6gou4uNLY5e+3IvOVVMr49Wkwp4o/Slcw8LrF8aJuNXF/1UOq xlyV6HcwDFdjT0OC1B5o8oaBBg/pWkfVKaTF+Y9ybaXide2pYEGhVnT2rXI0 fpGE99fEtHndOvFt4+2gDaHVMEgfiHG1ZuOgpKT7LZcuHL9orjz5YQSC6Wms dVwUnNYVqhO9R8KlX+K3S7Y0IedRRMAOfRLBW+orn0a2oSt/2PYO1yRede33 8C9iIHN597/dVgyY5W8U+fKGib0ZGzsPlNLx95riYYnaPjS9NOo3LiM4Usx1 0sqrG4rNDaHLiR6yzV/9QdyLepAKH0T/cqiCNKWdrP8qFyc+dXn/ucwBN1lq WemhfkLvvlff/ZzEn08jO3QMWATf6SWRrzGwen3amKIRBw9enExPWxyG18zB bwe29SBw5VOZsMZxSHZ+sCT7MHF8brBKT5qNHBnAkeOBXXpZHkqxHLg1lq87 ntKATLeg5B5lBg68/GFnY92Kw6/WvOH/TseughCPrl09EPTaV6jwcgRO69md Z7wZUHwpEWKgMAT+sQvvvx0dROK/aePECAq8JKeD10i3QbKj9HtD3TCebH+1 LyqNigZjb2FKNh2rz7pei5VphYhx54795BF0PFZ1W+49ALOleS1bAkZgJhr9 dvnXQeT9kt5m2E7stU7Q4X2bglFIuROdaTyM9gc25Zof28DrdOanUm0blJuz m/1YJbh5YOkPN/MR8NspFDpsIPYrofnqZ5FGGN/2sp7Xeo8rF5b6P97Zh+2X KZ2zGwrQ01DZ8K5sGp+m9WZPsZgYIy8oq0S0YsFeg/dyFAmzdl9VVd1KcGin Ry31WRH49k+T1yYPIzPHtIRl1I/dP87w/f/zrddP/FUOXRjEqhTH0utH/v9/ ypJgpm0cSqLH1EY9B2FlZKWuc4CYe0/Glf//nvndi6CQ0kY2Nlz3vvtkGRVR Mtxq7z6XICPoSfDrdyR8U/b2tO2oQPHQ5tbWwQFkGQl1nLz6FVG5ZY7BT8YR 8HyzjpZaBwaMR/f8O/4R/Uc3p32UjIPrWErT5BoGwvZ3Ta7z/YL6VSoJWiUj sLUVzczKZYH7X8f4P4JXc6dlbsoPdCB2jb95/NYpjIXziF551wNhvjWn7o70 g1Luaftygo6nP/t/rlFi4hjriPLp4UHMmr0e/rOfDa3uD0OJt2rxu7X795LL /fiUMHhnQ+FOXCprvzJvz8JktO+hvUT/uFRkUFduysFYwonwmVMDCC6Mm2BE DCHqGL3J/Sbhn1JmudJHJvGOcUz/JR8ZCrzUgyF+bJAUzkvUunbBMU5/27gC Ex6iT5fX761C6Y4nnzsShlGYcTJUULwet3/cnWbVkKDcqxyr6VODfdoHLp5+ OgTfNEbuPcsMbNB8HHf5NaED9ydNbv9YqGc0Tr9pY2DgNJ9g6ssWGM78fiI+ QEKrYPo+8ZI25D+2YU3PdGATn2xonmo7lEeYl5RGOfAW3+4VMjGI/IFTf3bU teFJr91HvX3FcGo+ZX3RdxK6OVHUWaLnk+otVygNdIPXavVzJaN2/DT3Itl0 UHFp7ZPe66oMxATH/ndHaBDR3zW3Ru4ZhF99a1NdPAeb9y4R7TJLQIy5UPlB BTpG1kZnSFhSoHvGbbT5CQNf1OfkxXclY9ouRodpM4plZgva5z0HcJBkv4KL NgCWQkDZ/HNncH0vyV//iMjzI1+01HloGNvtXLtJiInkI1epVbxMXPtzrM5J sgs76WaZw2dT8dtwOG507Sgevb3kRy+kIO7qTle7/XS8Gz76cKFhENKnZHq2 FA/Br0zs5OwTMkp5GRv+My5A/KMzy3jp79AhHZin/X0Amfab348KdcBbebPt roJmTFe95y3Z1oS+sfSERq5mrKeKbWkXysOLVL+qVaeasaR0tu6jRSUemwaG JhRO4mftzxUvltKwJ3SkPfQUHT2qJnrSeWTIZ++uSiB0OvkqQ6w7qxHfh/bs 2jpJQ2Ru2UidZRXI/lEzh68zcOGQZxSpuR03yuJ/2og3IEJJ36/ZrxWGf85V mhI9Wz9GgFcnrwstmT8fNRD7K76oZW+R1IXrd/7cKJ/8hBf5O9bkxGfAud4p Rb61BbvChNu8TrZjmrq21ufGFP7oNtmNbGPjzYD3K9PH/RB08dX6u/wmsuMW vnmIMfHEV2I3NagL53MfhOwmcmrRHE+VJAeh5rM8aLlOGxrS7Dg33/ni46v+ yyu3T+Bm4hPRxf9YEDGYMWsLrwHX7oYlBzPewWmXVc4jqUas9b0SXV9cgqP5 txo41GmUbmlpsJdhILwseiv/txYUnB6TFGnpwJCp/1uBd2TcUquM3LahBOIS 2tuV20jgSo9a8C5rx/kTj9t3ODBhMqoR7vWAhS0vrHkHtrPw2iZ68aK4F2Lq i5+ulOjHigl2vv0tIs9W/JAtsGmAfbOe7ysE4K+JIk2M0EfcZYu40D90bP42 85wy14f4YI78rH4nTNO2hUg3MmA/4bceSST4W++a+TJGQU2JoklAVh6ev/zY GLm7Adbqh2xNAopgkL/BqPNOP3hDDZwe63Xhv07nSTanCwn8rm7GSQ0QeLlh 328RJnhtVLlbQ+thQ9qx88abIbQZ7OMeN88BXUwmgvN6kDgfe3GsugT9f40X nx/pg69OXCDtcSfCTyw59KonGWYTjm2zDm/xkit/+6H1DOTUOKt6aXUgePCp e/O1Otxz2PuHsrQe77gP6/6nwYJH4njQxRVxCL8mestfewh7870NhC614Xui gaK/+CSWRf0odcYA5FvvxDtUD0Lbp3ejO9EfClvLI0erxsA23B1g3kjCU123 hTNrR/DSJzbo8n0GJm0Ou16ZZ0DV9iV3S8QXRMquL93yhg51s9lTL2o6oHzv 8bYDTnSMaSu82evGQZNp6DnNciqEdCwU7hL8VxXhmdi3fQqKzIWtNSkM6Crc KFXhH4dOqM7g9yc00OevFMed6Ma/7+JFoV3PscLQzaJ+9QjojaWyeYe68HJJ iKxyChv7D4wPOd5oR+qZsSyrUDo0lp9ykTnJxHohbbFowj88b1XLUAh/SqVK DI100/FN4HnEfxcHsDGd+1D1Ew6Wvn/5g6FHwxb3wyc+PZ3CuDtXxLKPfZCt Kl+4cqEa6UnKzNSOONwds/os+4kE8ad2IT6W5Xin0T0WuIWGVSMq1iNE/of5 MD3++gzh+rL2+Ef//zx14o9WSO8E/A9oKMw6s/G3gL2xVGUazhIL6xNohK6k mMZWtVMYFcwI4zlOhfhFF99rS0awTEv3oNIREkJaatddYBB9ujcs0rIjDSZP Vh5IKulHmC9/6DrRCrx3WrI/YXMHbq5yVkodrsCBPyuWPQkeRVlm9PIt1d3Y uTNDsmzDEM76KnyXKqHB6VxLbdBEBxbILk55yj249dYlKHaoAxo5Wr2j+WRM Vl7eGVU+iv3h93dmVjSieqma1P5IOgT8Qk85uhH8+OPG1Y31/TA0i5ir06rH 927hzReMusCzWUNoUa4beS7drsdKiPOe3WXfG98Joz3r2+0XB3Hws4Dp/eCP 8JRPHwjYMA73koN7vYm+NSOy9OZ/PbN49qa6/xvRZwIefz5T8I+DcBnZtYVz JNzZOvvb8w4ZvgJd2S/fVyE9/tHR9/doWKFZ0h/Ey8C9Bpv3QSf6cDkyMp2v YhDZvCozDfGtsP2WlsNc/ArHZQZbd+eOQ/tt+qfxJDbaiq3SDzh2Ifmw9ZAX sccWfM3HJFcwkPvDTOYfwe1yCreynC93ou70JvFnYY9Q8nNtlNSKSdD/SMTO F3TjzWMx+xD2FLa1GYeRH9CxnXmS19aW6EcmD9aPCVTieE+U/w1dGg71+NcF Lc+C+ktSavheJnZxfatfqkHG5s0px9b2jmPtpH/0rvZOGMp8DxhoGYNzRVvX MVcONA5aXVvxZQJS0qUNL507id7POB61ZRDVA94pFjI0VE9z5TqdGATls1fZ woY27PPXK1W8VY8LP/urTwy8x1NZqdo8USay3h/pUQhuwIBUB6U4i45DJ3Za GUWRMZ5k+zQynA0TRdf6xIoalLpZGIkbMpD8RHfdp7t96Erhz+gkfN1F3e3A v1oWYtYfP1LKPYu4BuXci3pM3H5xw99riIlHgrof7rm+x/ZJuQbtZU14WOP2 rHFNGwa67xna3puAzvxLvq2KTLxnBoldGGdiA6W2gbmOAhb58ubBMTrIs5KB B+KYCN4cK1E9340WzvO36VVkCKhlS4mhCl7vott9M9IIXpT6qqjKhNj0m7IF 1W741tz/L3hgEOOTqdVtfjXIqBUXSwjpR5ZVocppos87Wlis+VbCRqa81VL/ RRqKzwuKzsVM4iB3Y7/oIypOpPzN6CunQZT33Omqza2I29ay5kz5IIZYXnwO JV3YbDd3YJsmGVLMbRJ/lepxWurzrf0j4/CrGVLIWtcFf/0Ljb93MxG9dYtO slQ7oj5JP9lc0YerrLViG0wK8R+1TbnElIHnpwwqzLh7YC/X+/WkOh2Mxtgm oVY2emypxrH7qMi0/v7MPioXvoe43lyOH8L5me6vlVdoIKdy7+6IZ0FIIGFV F8HtjnVX14QuTCOlBWlXp9hwi3xwf7PEJFr19Rzd5uhoSNLWEWVzYNsa78uq p2BmyYr8gD4aXM5bB+Z9SoFG7HrGN70m8DneT/vN04LP3A/T1cKZkFhM4Vdj FYNSLVXou4OG6VNHm8l3eyDkGi+3jDyE8D0ipdJNbdjuvXijsZcK00MH7Qt+ F0L+1aPSpUeouG7V8HtPaA8+zvo3BewjobyPx4HkWYP3hz8zpvZ0w01cda8W pxF7vxxb51k+gt8PCqJjdLrRLir6gS45AdQ1XK7d1wtvc6fTnLdE/liev/zX ahAmQtxJn3K78d7zvnFDzl0cW/9ZND+zF5vZ3uEB12mYSqEnqDztQtkBvT6N y1T8Lhdoszs3AZe8L4n8mUwo9cXJWZ4fhOSC6xDP0wooOa1uyNkfCZlJ+cce PbGwe1C2zOgYC0f6BJSTlViw2bA440cZxn3lzAQdBQ56bzevqWJ0Qu9isjtV PQeKpfL5HvrDMPvIJZDoR8U7s8MOW12mEcBtG7yG6DcK4XUJERm9WPFW1E3I kwT9Tw9Ml6USexJ4NflBIQnOqWkbf2hx4PtI4t1gFxOsqtJCjSU0/HuaUTra UYbHupT1/Imj8OzsEL4y14u3RjN3LSd7kCW7d9Ykm4QdjInlTw7RsPj3i8ot glt4NtolaqlRsWJ19B2zCCb+0+7f/EWEAfkPRR88T33B96t5D/cd6kbKKZ6k i4t5cLRM9HhFqcbZj+3rD/yrxsH+tuEe1ykUi4a/+iDIgEmBSkzAcgZ2Gvzu aLrbAErcWjr3/CT+ZlnEP3Zkgn+WMkrxGoBWnp34GmYdYnasZZAJvYiZ9mx5 kNeB/LZo6SthdBip/WwUNx6E+lNed8VtFBxvUbgWYkOF3SmXSnErJvaB1v5n Tx1sd2vJvrKZwukoLquz+hTMBWms0Vs3Dm8x1g23LUwoXjRr0HxMxi+rP9TL vB3QtuHRt5aYwITjZWXyXRZIqSvKx50HkP4odWvVOQp+aYd5X46YhZqRysPD JhzwVyVbkLib0WQV7p7nFwY/Ueu+0pA20EKFPEJ0yDibL3JDPqkOlgYpdR+D KnH1rV5crec0aAqv95zkpkP7v2/m9pIM6NxcVHbuZmLtisb73wOIfMmTmfhC ykBFxMJUsAQFLUYmAmrFRXiRnKaoajoMrjOLPe+Wt+DmVitm0bpplFv1kGIi 2bhOm6xxte9GiaRCyk4lMrZJyDgzBivg8UaAOl5TjYWva1IY00y0Xmqjqpyk 4eE5fyPbb0NoJP1+rizHxEmLlW/vzU+BMv5GNtqAjoTqvUpMChvHDuyLUPnS jnGH0z8wWwfWw3/Z1GVx6JGPOVQcQ4HiUcZLhaA88KgpdDuMEHosv3HRgkrG umN/VM4QvStVzvJc4/+v43fyymyXKgvmCTO95SQWpD5aPbkhO4Nfm+YPXyd8 RJu09YDg/g4ERaVopkfW4kfZ/gjrhiG8ffn1pVpgCW7e8AnxCB6CPZleGmZP cDNji3GFyCSSeP9m833uw3vHF3mrSWN44bqYTCf4cbCItZ7fuAiiUwf+NQmW w8Rh6Kvjs0mIn+hJctrJRPgSX2uuUTbWf1t9MWaGCXJB2P7c1hkcP+ogLRnG wYLYZm6DbUPQng60aM+nQW54eKYqmgb/8NpVNxvJ2JB4+OrS7ywcTnomENTU CzsB8ePhWRTc3DumqXfjOYQXLUJWXR6Eyky0vi7Rny58tQ66tnUCxjv+7E1J 6McO/dwXL+uI8w1ttinkdMJDqnTLznMj+Ce8lkdqXxX4c551nyc4PqiDS6WV eD5hIyPDi7+KoNx11sO5qRySpZ2SywLY4IqfLnu/yELBjTt5E1cIHm+tMl0k Xo/LsKG38/cJRFcH8XMEabDs87n/5//fv4ovr43aT0Gqc9kl4SQ6ZmJrTpWS e3Fg08vgRPkBON/5WXBzZxuO2oUaRKjQsOSqs/ykaD1M5Z3v8T4bhsxRjuxp FRYWLI/+XULoODXYc/Eh4ft3lG97+D4luMfkiMmiRB4uqS9u94roxrYdiao7 Xt7FzRPRHmSBAVS83XBVjkLDJTFDj2eBVCSaZ2g5J7chbkVgm8cbGgKs39Ak GjrQMCh3lFbHQM0K6Sijm+/gnN7StdprGDy83XeqVteD3O/hclh5FpYi2Uvb gphYfvBn/8Z4Yr8+zowa7h5Au/q7C4OcdphNGd5RXGxHW22KulQMC28+Vefl 1TJh8yd+4eNNBkLKDlHYjC/w8P17VrqgH5SCkyyX05lYwuQ23WZKQfrpuu0r tRmILj3Bs4rogTxzS1ONCM7LXXh2IbZrGBtCLaR201ng0+P6vE+qBw/kLw/I V1DgQ6VcFPzQA9rirjs21sE4buF66fWZHpSf039u6voV3OP77Rt0u2E4eveR 8zUKIr43aJ43piFNlDslfj8HY8o9gWt2sJAe/VIskritMLXeX3hjI/RkVl1w dSsBrYNp8esMB+VYNnV6HRv/3V2MMIpmQ8zvk6Us4U//vcw648Iagn63Q3Pk AAPcheSGqwQfFXJGM3k93qN9rGKdm/wgfHhmdx3WqsUGHFAQXvIFmcuzb+3l f4uLZZGdua+o4FrIvOzgkwVe+4ZcI8dOVP3T5M3woqDnq1n1sfPjKKOQmBaR A2g4tjxcS52DYPlzhT8TmfhkuX6fcBwbPA36fCJKwQhJ4uJZnzKIAtKJB3ue 9eCrSNueaoUv0P29cHfJ/gwkrF9+dPsDNhYnrRpDzxUhcHWSblrTANS6o9SH +msRvC1HXj9gFNu1hx2XcGi4E+rZTmquwLprp1bG/S3CP5RP7aocQuTZsMwd t2mgsKYL1qwbRkaf1O3qJa1gxS69lLO5DT6xOl1Su0m4QDpfV2vchaLZ8/7K vE3I/ZhVMveOCp4Vbz6QeL6C67S3zSXTKTw1ng8P/EAFOaZCfsfqURhefPT8 K7UG6xYfUaZt2KjM8IraMs5G4ViMv5QEA3/F9ckfSc3Y3DIn9z6KCUFHkeCh C32ITiUvcZDuxQk6aT+L3QVPno3f/syPwv7M8ZHknAYsObxCadGUhs0J1RF/ rtCh1nOW4es/AlLY/rM5roQuzi+qXKnmYMX56wEf5TtR0OLQd2FgCJyKMlXa xwGQc84JZn5uhA+pgPxath0q2nofb9mPQtXlXJD/UAtCX/rPPqKPgKG2afaS OQvlNIcNMh4cLGNkJEfcoCHfeN4pNIWJ7+rXBLa7klBUbWisqTQE8enT6pZP SYiUC2XdI/rSmPCbomc7aejOMe+4c7gb48MVHrrkOiS731m5upEFw6jviDrV jeoCfVGlGQYyxky1ur9T4SOWwmPF2417H90PWxZEIck9XK6ukMiz6aSW3Sua 4dimu0qIn4Z375xfBk6QYN0I3uSoEUSJr7jmRPRsmrCRbFgHA1e6r688m8SC icLPvgJNGv54V+u8vEiDY8WmA8z4Yew8HW45IVoE04TEDY2HhhDba9X1dEkv bOhGP0Q0JnD8k93KT8FUFM/sTGTY1yPrniA5o60B4Ra+P3RG+jAkWpnPUaCj Ry/XMm43G33MJXvN1nXg8MsnlKb7w2Ae9IyuSOhE+t0PBi8bKeASV5Wqe34N 2u7lW/Zo1oLLVcvEo6UIFq7zX4S+EH3q7V/xzPl8PFjZu3n3Q2JP198vC88q wsB/yQH7VxG5bamRqUJwwn6rJKnqN8S5aC0/Ig3T0HP7ss8FxyFQav0HZH90 Q/3b0qGLZsOgqb49MXG9EasKC0LcaFP49l45hq7AgJFeZ+BFENxsVLT4PYGG hsCnH6+8bcFYOLnSQKoGO18nt1h1TIPT/zlqwp6BB3ufTLXSx2DA7f5Z5gcZ V4/d32J4axS3+i2zwjI64KZq5yK/i4ZHrCt65fo0RC4sacs8MkHoRlNRMosK AZmt26gekwh32q262onw05HXUkE7CD17n70RS/B1qVzMgcalw1huajo40U7w Xco/uXlHDnrclx63edsHVZV0g9+dY+ilZTi+6eyGjuySzlzHEXwqGW84IkzB TsnOoEhjBvS//BLnqW/D39Mraprs2FD8rLXdLDsdevmKvDRKO1pCpTcdHCAh QOrWL+5iDow9evZI07vBOiyzV9mdjpFVg1lZTxiwaxTlZj8Yxq8EBp9cbg/M JIa5V28l+GUPzPXYLJwwm7PTsRuFfuB+98MTvXBNE1vmMVuMm7GXOxM7X+OF 0I99I5ljENHz7ZFvosOGmSZxMXAAtldNuu8E92LLF8dEpsUolosKJL69wkJX YqLbV81+BK4duVypVodCjYod5s8D0PiiYZWlsA8S6LEbEtLbwJdreKhoOXEO D0kWcycDUysXmAPH6yB8M/WY2Q0GFp0FYx5bDICT/Jr7mGMbLEYuDc8fboRI PcsGwaOw9vw1YhLbDDWih4zNd+KnYKFbem8d9tTTuwZ0qhDsde5gyK4cTEi/ FVaNpyJA98lYKeKwT7uIq6i+Fz8aj0hOr+iGkG5ivMMlFp7uoeqIXq6EqPsv nofmdNziCrJ0nadATdPxUu0ABc7XHu6yVm+C7mOTQLlLMzgv1nrw5wgd4oXF y6U02vBjTnPbrBQJfsevZS0dZOG+WQVXpUMF7Ax+jcFyBkGkpFLfUQZW7ncz 9l1NR0ymncbnq6Uwv9fidimwCRvnnVx/SlQhr6lHZtfyGfyNF8q7akKDU1K1 9YGnw2Bt+CleMdMF9Ug/qVrLDmQtJlIeWXfhU7fnXjNiHofOO3rIX69D43Lr 2VVORG/n9K1l+tFwc71FjE/d/6//Wyk54cqAgIiG264n4yAdyE21+j2AtCcB lGPXCL7VyPGSON2PzQtyKzsPEL10oTjeiph7iHjAIZWJYVQLdObvWmRAOn7T VtfCMVBaenOOUuio2rdaXlVpHNyyPt+3JLAwIPbIpjO9BS2tUQdKRBvg1l5R eWusDDl18odPFlXjs0fe3iVJkwhsZPjxLqOBJdGwzvHVCHS485MLZauhIWK+ tPjkFFzDDjcHN/Vhb1Tntbj8dqh5hE1MdtfiIttFbkZrFImHlrSUvGKBWixH TZZmIKbT/GOBKxvk+l86jToTkO3qG/bZ2oVjv8VXtGqwcTpyfaR4bB1q2SJR 0m/7cU9BnhR4uh1uLle3GRK5eUmhesu5NWnYIc7nq6dBxVDj/s7FRAbUPvHe 8NzDgNj7tSm3FSjIHHe0N1QYgqPRTYny7i78azDKmhGjI5bdERyzsRwu12RO dcuP4v7hZzK0BRbGXgql7T5NwXBpuvdtai/UzPrZOmc5eJe5KlOnoRJrKnNZ 4vNUaIuJfU6SGQS3UVqDdWovbENKm163UCHnUdL+6tww6nVJ1yuSWRhtd5xS GJvEj+ekKLJAD9azxxT+zrKgcaJ0Z9aFHjgmRLm9uTAMbm3nOM/NRbil7SOq Uk9DqrCssMnyj0j7cWVvrNgQls0ETdC21WBw/NMJjbW9cLz5NNT1YCfC5LyS w5L7UHnt0aPjLnT8+7bfxVeKhaxtT2+8m4mHRsO1+l93ivDmha704fz/8ICt JG86PoPw8y7s6s0cJPBuoING8HwSn5qaEQt/v41fdjlBw4oawTNLHnXhlcNW usOxQSRl9O5SJHiRl72ax1OXjHKOY/XNu2SMtM1fkK3uxXqrolpF1V4U7Vmc TIsbws3zZ4psCX+ZR7ZlaUgu0g8tq5j7mE/kt/wnC99OvN3bm6EvUA5f9vnL xm+JecZZmH/jIfQaJaz7Y5DQ694FJ/5HbRieeS0XPDqETXLBg3uV+vHCv3os u6gXRx74NausqILKCr9NO4i920sfNAi5yEJtTcye79Vj4GOn5mx364T/1Zwt B36NoF3c+rltDwNFi2eCecunkfq39WZUPx2zlh03RjwI7iblnO1+1o7nVnda kr9N4rF5lW9AYzfUfkb8/PakG9qnQ76VbCfB678dMz53R8F/5uwLE1YXVGwi fKYLaPCz8XHc8JUGXp5K/mYOA/krNNW+FbdBdU3ilGIGA6+/jCmFe7eBPMa/ gXftMK7tEl/s/8pAwKbxjR29g5is/u0h8rkQnBZ2b9GKYay9oivwyJOFoQGl EX55oq+Y74ovX8aEZwP5irEIFUJqZXKbDtYhKcbunGbTECz5045LbmtHf9Hv QR/LIWyvWFJxNzIRBhvrKs2JPOYEHP++f6Qb80Zbzp2/N4Fndq11FglEX/yo q1XCM43bRbtzOWpMWJjmCa1ZzoHEi47vBicaIaM4btBkS8X0E9b24lMMjBdc 67tBPM4Lbx7Nwvp6FNoKnj8e2AnGqUn7wPoOGAaJl187SLyfmiUT3nersW5v +HQ9fQiT7VfmxpUpaNYWk5jrG8UpvqfRnzNJ0CF9kaYFEbyi1xFVTu/A6t18 lO7fE+BV2dKpqcDG3YOkD9JP6RAacDG8MkmB8qzagXhrFkrpz2+q/CzE2vGk 4M8/GXhztJn/cSgHx5LpkT3HOrFAPR6drdoGQV6pFWKHhyEWGdl3+c4gbuzg inYemsLJ/Pylbw8OIP/oje2up0bwRt5/XzyhK4pGfIAMqxcPTIYKXuflYVLp Ya/ZxBDqpZS2058OQKCOXKv6H8HdafmfZ1604fG1k5JeBN/MCik8eJVDh3bX g97Ptzh4fpG/NDWgG0HL0xbO/R3GrhZrkxC/TrjkTIi+0+gG9YSHof2fx5ge /r4tzWgIG7t7RqrWMLA15L9e41+DmAqn/OYSZGHva8+8r09YOFplGMHwpYA6 pC+bHDIAB8PhgPTPHTB26eJaokzDtjRfuyP3WfjgJZGfncnGF+qFak+7Urir P/Q78GYKSia/Jiq+sOGo3T0qWDWJxO3Virf3s9GxO2/7BUk2Rk/pF07ejcef 7dzm49U0XKsoCG9TIkPQ7tVf5qdRyGTI3+hKGMBAr1xIBmcQK4qpM2ce9eP8 SXJfMsHBqXrZD2yofXA+4561RoCBjd7xsyvle7BUtrX70hYSpAIyOAPCrTDd npheJ03DEcWJ67rFbHDpagp69tfAxXJsdV5FKWKG6i0OBrEhc1qML5rgZXGN Lx1k7yE4+KXamcT2QnKZPXP+Ew0brU9mTluW4rmH6THXhxx4vw8Ol1QJhoax qNvNfg4MV343amhMRNPqC/tFVzKh0vuRX/k8G69dt64NUJ2BUG6YXsBdNjy5 ht/o9tChlUDefqrLH5LbmacPRdJxf+S4/MM9uXjvWrpEYXYUx69ffbCqnomF 7vO97v4MFKekb/T06oLl45O/Hm4dgVO5nA3dkXi/hFJ4j+8cgMXAt8ArGnSQ V+eJNRFzknf9amwrPYDKIBfxWq4xZKY8UxzSJnqIkKpcu1k/1jRuarh6qxj7 7fdb3NufB+flA4LMU86QsqLf/jA8hdvyPL9ddQdx6dF/I26DbFQduKJEudQB nZSj//0j+Epgd9/xrpSvSO3ivblpmIHdglmKNQeOYceWSB0DdxrCX15soGzo Qkahy2rdJCa80yRleip78VhGdJPL7lnsYS1Vqz7PgbCMfuuTXWNIi3f/j63Z gcDSP7xhZAbixDxC+mM52LXh7+vspimkr7q1cmQnkR/UE8uY58pxNIHZza0f C7Uj40+ly8YR09GzJ+g1FRw7K55vtHHkX/zGK9jORoL9Qa/+HZ+h1RO1WeRD KbhGz13QP0nHaHeURpYmHaJJ5OM6rzkQzwgZ171KxoTkUF7+8ilwazK++3dT oHUn/uglk3Yk5qVdGL1WgwwLn7DS+nGUr3aNKM3ugkDehu+SezhovZLyqOhm G+xP7t7MF0boWWu96art7VDW/VS39ukgytXZHx2P98EhyVhmUL4SoyI4snql H5a8by05r98MUqkjYm1SQflkt7m+YwyrXFZI7FjKQb7m2zTD1cOgOy+5obWS hrKfYdXJPydwpfXp740Eh6xQ8+4SLByA1K9H5z/MdiJvbkasWbQZRd1Oqin7 WnDzns7amPFReOm5R5wTISOuR5Qn2WcI881X/zvO3Y3Kx4Gvt2/pwm12wG9O ZA5q027b3n/DxApTnU3bXzHgs8PZaguxt3JiGqWOTr347eRkoj3fD8ULm6UO X2OhuXrCPc1zCGt+VD2TXdKEo8JmF1gnZ8B31WDk12Y6rruXBw3tbkUrPdPU vv4rlN9r2KxsJYHr17CnqUY6ri2cjVNXY0HLbOSYtB0dZ9dZ5iir1+OxBSnM fn0uSnePVdUYT0M2PXOLveggNBsfl64QHYHN49zi2XESSHxHzCMoQzjhtvbv 0Q8MbPDYOZ8rTYeFYF7ENMFJ5Y55d260TePXoq7RX3cWyrZI8bNvsjG1a0FQ SbkK39b5FZpdYoDiaJwnu6US9rskLolXjSM2+4jIdE4P6I+Wdei8rkPAlw7F X70p8Fe1E9QnzsVsX1p75+8A+pRD9ebmhjDOX1Bz1boGkZFrWxXyesHnNCfV 39UGD5Pp/AJC99Yndx0+J9IAkb9PxUQ/01BDcefMHeMgIElbY1GS4NVK6972 sywsGE3uS309g4+x9bPXAhmYGP0yStrNgl2eSQyH6NthA+Shmy0UrGGuDfZr pSPiR4phVmoj8vYm51Q+J55fiadcfy+xN6TeYxmkfsiY7RtdbkeBEbe0Ub7q IOZ02WXrFIdx5G3RdOA2JlKX1Ut/UmLiNGki7/amDoQfrs19fqYTi6pLDvlR WxCccpU3Jn8Y2TXBTCNivvIlWyeCTwxAX1VvJUOvDW1tVIHLh6bBV9q7P4XY pzdlSyMmSntwn5SfUEtrwYOb2hN35tjYaOQfSw9PATcX1aDyEx373t/zWvo0 DzVU5X6ds2zMHaUur2HQ8OT6u/m3YOG45tdN76Teg5bJuK3PIvarkbNbI7gH DqdjtN/lFICKBLOg/dnwUbsjlbS+F02ymcqPTnbhg5rsOv42gr+H0+d+rKej qK2gfaV6P3I3uIUuYzdCf2mnsZcMHX7KTw/Y5/ehKX6lqRGhn5O2B4UGfOsg OqV8aK3vBLaRfRdfN/bhUIXe/TLLZqhkDJZzln3BpbBe9W3lLOjLtJUdsmJg fZXyiWOis/jrI6eYWkX4dXjxQ6P7I8g52HZA/EwbDC0TmzuudeOczKxCcXk1 zDfLnGE9JnJIqMf9TnI5BGNE+4I2D4OyUtr8vSwLDmU/vn1PHsTtY+eVEm36 4e8sq74rrh8iVyoKJ8+mo+La91XSTzpxSyxQulo5E91zKteOGtAxOOCXxp3c Brl13+KXasxgoyn9rfAzDi6dsXnXSpsEy/xG796ZQfSuqRVwaOOg5vqtU/Jq 6UjxZHQphXTAyyY4ipPwCpKVGr+V/zbBq2JBacvpT9CMvNM/m0rFT9uLFcLc 7VgrZvvLV2IGzXr+6zffYSHqid/xQ11UdN64nsdF6Gh0V7NSq/sY/JfO5PGv oOIe0+XV3rpRUAu8B+eWt2J/xmL3lEILFILXXZ53LMGxIx7n5w0H8f7CfOaJ VRyYOmxacmTTFMRzen/wdTGw79lZY3XCh8T5Vc09HndCdtDsjdOeHlxYP3Pv ye1PSPBP6HtgzMZbDNeztnXiIeWQCef2AD5u4LEePpMI6J5XWa4xhgpakUbt GhJ+7ygy/mlDw3jit4z+I35oePuN76/cBMjSsP3TTwZnjf3tyZPd+MC5ZKJK zscynx8xEtsYaAsS1LE+1AvS8MnkzlyCa3U/zkZrfAT/LkWDTTJkjB7NthQK rsLq1ccY46+awXVq/q6sRRmyBI//zMgfxxa6uoHptn4Ycofs2qdKR9y80fDt G2x8WLhx769PPz48MSrjlUzF25JRC8uj4/jH7uIcPtyJM2era3s2DsHb5HgE bSMZ0YZ7AoRCh3A+zUI3ISwHQd2dxtuWstF94EUw5X0txHP5vl+V78d7Yz72 ycAOlIsncV5KD6H9on1f4cY2rGZuzXrzjIE/zrWOFF8OgmQ/7zxq2oWgirzR zMx+9N+/7uTzYwZSNgZGGnc4EHttM3TxIBtSd51t8rSrwZ6kj5K0OHDawVNQ 35qA8ejOZVX9bAhsleolPWPDRWVMcE9VI17d+C5K4lSD+4zmf6H6vTi1Kzu2 QOsrAj34fEr4/t93fJw9TgyiIsv9kdC7QWhzry+599ABlyZ5rQL/DeAJ2JE/ uNoxcNAkP2LpNB6oSCZRpaj46558pXDvCKaP3NQfi2+BpXmj+9Q9FqydL7UP ZtSibc7KYrcFB02C+ZvUGyqQuW3o2cdADk4qlbiMNZKwUeSzFuPsEORFdicP PmDjGKfmue9Rwge96+cGNDoQtnH/2oz2AfT4ap3sciDuL9HJzjWg4aTgDPc2 jxqwxqsefdjRgYORR7/8scpGacXP3vTeEQR3z+ux1/ZhMXtmyriAhZtaJRF4 y0RPpaG3MbEn+m286zYfKUHulYgJza2Ero8Mz///+i8Pl4ZuPbmGhRNrjE8I GORj1Y3mEzMBDHxdntHnL9yN18Pqzofse5BCaYncot6JnF2v75g7jcAizzyg xasB3lfvPPFSZ8Hkp1mMK18lmr7Sn52bGcNoDidb0IGNBwlKfwS1miDllHqb lZmCtXd//bv6rx1Ta1w2qqS3QflD/QHGwWGcycnp0VxHAS3DumVnDhPnXuR8 VI9n4Ln5687RpyPQ/5q8z1ytF+GVM2cZu2nYer3lhVFTCwpK36q7cbGwwdL3 X4HMF/T9S5w0kBvFdTM+SVOFLkgtC35sTMxbT4v3JvV0Bd5PfHjxV6MXtFfi iWSnZvgpnnrgTvS1lJb+4itig9hunRsa4jqNpZ/NCm7vIHxf7tOu1cR5+UQc 101HtuLIVZ41Eiks7Py6V955TSPSAje3OrLasJ43+CDLLQk77g/Gkv6bhpxb 7rO4jQR/FU5eKib6GpeY9c6VX2h4NfZxuu1HO7gO3ng21pyKlg0110KXj2Bb yO/HesOdsNshnP2mfQw0tWV6IVf68flOE1vfgQmNdxNa7jEMfL5kPVC9hI0a vryxytGvWP3+XW122gCOpHMeOj1lQ02E/4/gwX4sJJ/Oa4odRHHRBwkx7iHk GejwJy7rRH8TJfStbS2em/Qn5JEL0HFCMVPNlok4pxt9O5aV4toDbZu2xmF8 ia8rsy3qAL9i26EzArNYnR/qEm5M5IPDQHyc9SxGLQ4JfyN07iY8EOttREes hY1QqyYTNTdlD0dUMJB+Lo9bUnsAvC++1a13m0CmpEhMUw0dJXsLGXxCk4jX pu9Z8okN+a8/uVQDR6D7L+N5gW8X+CIDpNRPEn5eIa0UGVSAiqcSBi/dhqHR kRH+7FkLOll/TpOJ/KyW4lKTLWYgNlxV4txpGgxuu9fj6gB2lA/SeFJJcHgl +WBMgwTz7W92O72jIUTwTHnpcB8eN7FCI7RbIEXvytiW2oKMV+vLoxToeDBQ mvawpRhSOtEtDfw05NyL7r0VwoS2wNGZAhA65MQ5zdjXw6Mos6ohswV+N3ZF LGiWom2DqatmABNc5/62zpWH4UCA47XnF7vgOyXNtShOhs8agX1HyyiIy2Zv 9F3XCyGJ3u0rhQlfebbL5WJLD0QZMX7qLlP4qN8iYxZLcJ5VmNTDnT1oiix9 HjIyiBfFzX1eDUMY895OyX3FgtXfN9w+7mRweQnMpSEUNY0mpQYv8jGl93XH v5ACpPn8Ov5NqAu0DVumczrq0HL/v4G7WXScWuRblZzFANtdW+eV4SyKhFJL DWLY6D+UW8G1bxQ+cq4WrjtZcNpTWCm+OAUyySx7nz4HwXKG3bF9wyhgJGns G2fjtNvz8vWbhlH8e1X9ueBabEnN5uz5///Tf24Mi15Bx1+vhxsaXwwhwyVd UYqY8zL34a8PvKeQoRpz6AzRF49s+Zlm94yMB6JyIx2WvbhaU5oz+KcNsq6h C6rryDh868rtBnsOzt2bNskuLccZ98zUg3/qUXc50CY94zNk/pq0iYiMouT0 WmaJ/yB6rhyrluPphTk+XqydaIVdV5/NkQ0jMNDf6Tr5gYmtR/tO2PoNoXzr TYoDwRlDihCnbG3BmtpcJT+PNlSSt4teUZjBEkWJ3ndE7yN5xDs55RB+Zly/ qut5O+4s3XuOr7IHcUrmT5VSaTjBt+yp2JsxpF4++eCoUgc+UUXJpXM0TKrc ena88BkMv9Wv/e/XNJyq5C8K3mLgkYiH0P+vt6jdo3bmzpY2kALf1+636gdJ Nccif64XchZv/eZix7BJueorTb8TkVIiHUP6NXDYbbX4U6gYyr3xo55WdBzU OqUrS6LjMMv0RUVOF/w7L3+/OpsD33ktTdHPdDyfW9riPNQD1weW3VKBk0hI vOCpJEJHs7ZMc+VfGlo1L8Q/1GUhbt1cYc4NDvJG77YU6FLw43sCOenzKOK7 gxWjifzIN1q59dJHBk53hoW15jVhZ3fS1hfHWlFBbvz9aTIRN9NGGjt/9WLR w+/thR2vUfaypKyi6yt8mkZY/LH1EH6z0m9MnIr6E8sK3Wua8eF+tqDkjlEI TxoKW72iwt2cw7VRnQzfsPE6k/t9ODh86YeQLMGJ+bbnW4/mw+D093dJnsNY Hyvo+SGjBfG0ftWi+AE075R4mc1pRPOtdnmt5cQ+HZEdf7+QAG6DCI3+6RnI RMw2xX1nghV3rqXEiQqt2tWbvYi8K9p1bk6si45LZvvY7uGEnou1OId/jmJN Om1QULILwoUvbycurYJvcXHMNf8biCm3fXZHmo2ASvrxtkEGop24xB6qdmPc 1uxZQXofdOaW/syaYcPi4GEDnewCHO9qjm56RceQrZDBV8VedO5fQzln0o/z V26Hm7DIMP3wI+TRMRoE2m6nDN+Jwcd4+8+zE6OIipOgrxrpgXf+ve1s6jTR c+0WjoTS8XPBfvaewDAsnvGqBgd9Bv8PkuJUNRvWKnrvei9wMHD7xeaX3NOo VvcR2mJKRxLjjZJ6LsElzX/RWhoPX8aRE3EvaNDNuGMikvIBkrN6E+8M2bi0 87PnDos+mCqvTnNWaMcL2dsDcl2deLHbfW2T8CDKJPgD7jnUYVjLPzz7J5Gb 254/+aHcipiJ98pdnzg4Tf3rceRVPb64dR7TNB9FhLfX0LFZMlTFdnwyYdOx wtG/tAyPwLX23+yf1TNwNA+JzQlmYuSvitxACQfX+PdFBIX3wPYVfW3E3lE4 n1S977umDu22SyuMHQegJRH24nXQIKqfD1597UbFuWefxn1jiF7Uf3+Wh1WL 9Bn5xHAvV5iUbWsJkmPAW+W28Lfkd/C/4OgcRvivwtVd9pP1WZi0mvNyvcmB jsvhpPd3qfjzpG0TjzYD/mmv38/vZ4OX9OGf/JFJmBxzO3EhhoUGV4eUPXxs 3Dnc/WV9ORsS3FO6PDsHIT722TRWuR0Fbn6ntItpELY7suXqaCOkqlnSDf40 PH1I3fOsrx/HRX9rnuEZxFvRAnUbTxrcdE6OxEjSUY5fWtWXunB6Zt79RzcD TU4pRTbnnsDRl3H27qtpVH4YpH59TPTbmo1XQscmwVPzuN9sDRvDvR9lsouG sfEfvZ+zn4O+5X5uitM0ZBuesdQkOMOgbOyVvMY4wfOhWbaHaFBlBJTrzDNB 1ZV64/2ZjJSKhfO+VwaxZpFewrSmYVWf0uLOoWF4KEq9YGS04wAl1eGyAA2s 4IK735c+xoXrlKU+Rzj4zVYsSX3Ngq37inoLsWnE7U1zG5og+sSCaLtuMQV+ CRuteFw6kd1xRdrabgz3vzq/avOgwi9A5+W4PRNavyIt1f4wkJk3YJtP5KUu j+cz8sEOSOcvuOQeJXxg3abaJy1BOHtTx/FPKBs28yeET+TRcSHDYENW2hhm xMtujJ4gId7XYlmySzceeAtEhBb1obd4SUVHNhVGSycoZvU07LkoZm5sGAIP SQ1D/olH2OZMU3WcpaBa1HFEPrISZHGDrjSFUdRbjUv8VOzAyW8Z96T2TSB7 cu7qDZMO1AjXSWYqf4L+1Y2G55cXQrjCs/ve3WE8n7Rc5jE3AF8pH513X4nc npuq2sH/Br2Hj0jd2TCJ0F5VkbBIBuz5z5nqO4yi18Nm94YvFLS4m6jJHqDi 2pD4wfjmPhTt+FI+sYzw6+7dNL3DlVDxvnJkdPU45suNCt/u6cXbrbx3JESI XGpuq7zdR0Z2dHPPkGYvLm++Em685BN83tz7mrlyFq7bHNXcQ5lgrz0od7Ro gNiztdw++dUgGatfrzg+Ah+/rASXb71QXt+aZSk/BuHBZyMCKWyC2+w25vV2 oFp7+Wi7SyUULl80IouOQ3amVamigeBKo/yfb/8xUe7r/VLEj4Qjo9tGm3Jr 8Zn63TvraCMepwo6fksh+oW4KPm+WCGWHa3P1SLyZf4/sUVuCTYMY59eq9av Q8ULOtWgpBnXXl16yCylYftbb+HkpgE46vww0M+tQph5zilduwqIcvj8BR/T YVXodb0rsQpG90Mcnm6tQdX8oNpxhzAMMXKis1JHsD3y8QPrr0TOhnmhJHYC +yWnWiq8evA/fQtH7A== "]]}, AspectRatio->1, Axes->True, BaseStyle->Medium, PlotRange->{{0, 2}, {0, 2}}, PlotRangeClipping->True]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Symmetry operations on a point", "Subtitle"], Cell[CellGroupData[{ Cell[TextData[{ "Define a function that ", StyleBox["translates", FontSlant->"Italic"], " points by a vector" }], "Section"], Cell[CellGroupData[{ Cell["\<\ Using replacement rules again. We use chop to eliminate small numercal \ errors-- and their cumulative effect from many mappings.\ \>", "Subsubsection", CellChangeTimes->{3.465654329713075*^9}], Cell[BoxData[ RowBox[{ RowBox[{"TranslateSet", "[", RowBox[{"pointset_", ",", "transvect_"}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{"pointset", "/.", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a_", "/;", RowBox[{"NumberQ", "[", "a", "]"}]}], ",", RowBox[{"b_", "/;", RowBox[{"NumberQ", "[", "b", "]"}]}]}], "}"}], "\[RuleDelayed]", " ", RowBox[{ RowBox[{"{", RowBox[{"a", ",", " ", "b"}], "}"}], "+", "transvect"}]}], ")"}]}], "]"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["For example:", "Subsubsection", CellChangeTimes->{{3.46565433428419*^9, 3.465654338195194*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TranslateSet", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{"10", ",", "100"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.1`", ",", "100.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.03876275643042`", ",", "100.28535533905932`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.064644660940672`", ",", "100.18876275643042`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.112940952255126`", ",", "100.20170370868554`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.16123724356958`", ",", "100.21464466094068`"}], "}"}], ",", RowBox[{"{", RowBox[{"10.135355339059327`", ",", "100.31123724356958`"}], "}"}]}], "}"}], "}"}]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Define a function that ", StyleBox["rotates", FontSlant->"Italic"], " points around origin by a counterclockwise angle" }], "Section"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["This is a function that takes a set of points (which could be the \ vertices for several different instances of the assymetric object) and \ rotates the counter-clockwise through an angle. The function take an \ argument which is the name of a function that maps all the points back into \ the fundamental domain for the chosen symmetry.\n\nThe function creates the \ 2D rotation matrix from the input angle; uses a rule-replace to rotate each \ point in pointset and returns the results mapped back into the fundamental \ dom", "Subsubsection"], StyleBox["ain.", "Subsubsection"] }], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"RotateSet", "[", RowBox[{"pointset_", ",", "angle_", ",", " ", "LatticeMap_"}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "rotmat", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rotmat", "=", " ", RowBox[{"RotationMatrix", "[", "angle", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"LatticeMap", "[", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{"pointset", "/.", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a_", "/;", RowBox[{"NumberQ", "[", "a", "]"}]}], ",", RowBox[{"b_", "/;", RowBox[{"NumberQ", "[", "b", "]"}]}]}], "}"}], "\[RuleDelayed]", " ", RowBox[{"rotmat", ".", RowBox[{"{", RowBox[{"a", ",", " ", "b"}], "}"}]}]}], ")"}]}], "]"}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[CellGroupData[{ Cell["For example:", "Subsubsection", CellChangeTimes->{{3.465654358903488*^9, 3.465654360416142*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RotateSet", "[", RowBox[{"genPoints", ",", RowBox[{"Pi", "/", "4"}], ",", "SquareLatticeMod"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.8939339828220179`", ",", "0.24748737341529162`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.825632712632796`", ",", "0.2291861032260697`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9122352530112399`", ",", "0.1791861032260697`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9372352530112398`", ",", "0.22248737341529162`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9622352530112398`", ",", "0.26578864360451354`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.875632712632796`", ",", "0.31578864360451353`"}], "}"}]}], "}"}], "}"}]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Define a function that ", StyleBox["mirrors", FontSlant->"Italic"], " points through a plane defined by its direction and perpendicular offset \ from origin" }], "Section"], Cell[CellGroupData[{ Cell[TextData[StyleBox["This symmetry operation works on the same principle. \ It takes the line across which pointset will be reflected and the distance \ (perpendicular bisector) of that line from the origin.", "Subsubsection"]], \ "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"MirrorSet", "[", RowBox[{ "pointset_", ",", "line_", ",", " ", "perpOffset_", ",", "LatticeMap_"}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"refmat", ",", "normalline", ",", "normvector"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"PossibleZeroQ", "[", RowBox[{"line", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", RowBox[{"normalline", "=", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"normalline", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", RowBox[{ RowBox[{"line", "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"line", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"normvector", "=", RowBox[{"Norm", "[", "normalline", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"refmat", "=", " ", RowBox[{"ReflectionMatrix", "[", "normalline", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"LatticeMap", "[", RowBox[{"Chop", "[", RowBox[{"pointset", "/.", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a_", "/;", RowBox[{"NumberQ", "[", "a", "]"}]}], ",", RowBox[{"b_", "/;", RowBox[{"NumberQ", "[", "b", "]"}]}]}], "}"}], "\[RuleDelayed]", " ", RowBox[{ RowBox[{"refmat", ".", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"a", ",", " ", "b"}], "}"}], "-", RowBox[{"perpOffset", " ", "normvector"}]}], ")"}]}], "+", " ", RowBox[{"perpOffset", " ", "normvector"}]}]}], ")"}]}], "]"}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[CellGroupData[{ Cell["For example:", "Subsubsection", CellChangeTimes->{{3.465654389390885*^9, 3.465654391033571*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MirrorSet", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Sqrt", "[", "2", "]"}], ",", " ", "SquareLatticeMod"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.75`", ",", "0.8999999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7146446609406727`", ",", "0.9612372435695793`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8112372435695794`", ",", "0.9353553390593277`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7982962913144531`", ",", "0.8870590477448737`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7853553390593273`", ",", "0.8387627564304205`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6887627564304206`", ",", "0.8646446609406726`"}], "}"}]}], "}"}], "}"}]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Define a function that ", StyleBox["glide", FontSlant->"Italic"], " points along a direction and then mirrors across that line" }], "Section"], Cell[CellGroupData[{ Cell["\<\ This operates with the same basic method. It first mirrors and then \ translates in a direction specfied by vector and a magnitude.\ \>", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"GlideSet", "[", RowBox[{ "pointset_", ",", "vector_", ",", "mag_", ",", " ", "perpOffset_", ",", " ", "LatticeMap_"}], "]"}], " ", ":=", RowBox[{"Mod", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"TranslateSet", "[", RowBox[{ RowBox[{"MirrorSet", "[", RowBox[{ "pointset", ",", "vector", ",", "perpOffset", ",", "LatticeMap"}], "]"}], ",", RowBox[{"mag", " ", RowBox[{"vector", "/", RowBox[{"Norm", "[", "vector", "]"}]}]}]}], "]"}], ",", "\[IndentingNewLine]", "1"}], "\[IndentingNewLine]", "]"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["For example:", "Subsubsection", CellChangeTimes->{{3.465654395541233*^9, 3.465654397221662*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GlideSet", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Sqrt", "[", "2", "]"}], ",", "2"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"GlideSet", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1`", ",", "0.25`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.038762756430420556`", ",", "0.28535533905932736`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.06464466094067263`", ",", "0.18876275643042056`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.11294095225512604`", ",", "0.2017037086855466`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.16123724356957947`", ",", "0.21464466094067264`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1353553390593274`", ",", "0.31123724356957944`"}], "}"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", SqrtBox["2"], ",", "2"}], "]"}]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Now, define a group of function that add symmetry elements to the \ generator---thus building up point group\ \>", "Subtitle"], Cell[CellGroupData[{ Cell[TextData[StyleBox["This is a function that takes all of the input \ points, translates them, and then creates a set of the original points plus \ there translations. Thus, it builds up the image by adding a particular \ operation. The function will report back if it creates any duplicate \ objects--these would be redundant symmetry operations.", "Subsubsection"]], \ "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"setAddTranslation", "[", RowBox[{"pointset_", ",", " ", "transvect_"}], "]"}], " ", ":=", " ", "\[IndentingNewLine]", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "transset", ",", " ", "psetchop", ",", "vecchop", ",", "joinset", ",", "unionset"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"psetchop", "=", RowBox[{"Chop", "[", " ", "pointset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vecchop", "=", RowBox[{"Chop", "[", "transvect", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"transset", "=", " ", RowBox[{"TranslateSet", "[", RowBox[{"psetchop", ",", "transvect"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"joinset", "=", RowBox[{"Join", "[", RowBox[{"psetchop", ",", "transset"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "psetchop", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "transset", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"unionset", "=", RowBox[{"Union", "[", "joinset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], " ", "\[NotEqual]", " ", RowBox[{"Length", "[", "unionset", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], "-", RowBox[{"Length", "[", "unionset", "]"}]}], "]"}], "<>", " ", "\"\< redundant objects\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "unionset"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[CellGroupData[{ Cell["And a similarly for adding rotations incrementally.", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"setAddRotation", "[", RowBox[{"pointset_", ",", "angle_", ",", "LatticeMap_"}], "]"}], " ", ":=", "\[IndentingNewLine]", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "rotset", ",", "rotmat", ",", " ", "psetchop", ",", "joinset", ",", "unionset"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"psetchop", "=", RowBox[{"Chop", "[", " ", "pointset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rotmat", "=", " ", RowBox[{"RotationMatrix", "[", "angle", "]"}]}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"rotset", "=", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", "angle", ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"joinset", "=", RowBox[{"Chop", "[", RowBox[{"Join", "[", RowBox[{"psetchop", ",", "rotset"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unionset", "=", RowBox[{"Union", "[", "joinset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], " ", "\[NotEqual]", " ", RowBox[{"Length", "[", "unionset", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], "-", RowBox[{"Length", "[", "unionset", "]"}]}], "]"}], "<>", " ", "\"\< redundant objects\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "unionset"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["And a similarly for adding mirrors incrementally.", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"setAddMirror", "[", RowBox[{ "pointset_", ",", "line_", ",", " ", "perpOffset_", ",", "LatticeMap_"}], "]"}], " ", ":=", "\[IndentingNewLine]", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "refset", ",", " ", "psetchop", ",", "joinset", ",", "unionset"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"psetchop", "=", RowBox[{"Chop", "[", " ", "pointset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"refset", "=", RowBox[{"MirrorSet", "[", RowBox[{ "psetchop", ",", "line", ",", "perpOffset", ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"joinset", "=", RowBox[{"Chop", "[", RowBox[{"Join", "[", RowBox[{"psetchop", ",", "refset"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unionset", "=", RowBox[{"Union", "[", "joinset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], " ", "\[NotEqual]", " ", RowBox[{"Length", "[", "unionset", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], "-", RowBox[{"Length", "[", "unionset", "]"}]}], "]"}], "<>", " ", "\"\< redundant objects\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "unionset"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["And a similarly for adding glides incrementally.", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"setAddGlide", "[", RowBox[{ "pointset_", ",", "vector_", ",", "mag_", ",", "perpOffset_", ",", "LatticeMap_"}], "]"}], " ", ":=", "\[IndentingNewLine]", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "glideset", ",", " ", "psetchop", ",", "joinset", ",", "unionset"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"psetchop", "=", RowBox[{"Chop", "[", "pointset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"glideset", "=", RowBox[{"GlideSet", "[", RowBox[{ "psetchop", ",", "vector", ",", "mag", ",", "perpOffset", ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"joinset", "=", RowBox[{"Chop", "[", RowBox[{"Join", "[", RowBox[{"psetchop", ",", "glideset"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unionset", "=", RowBox[{"Union", "[", "joinset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], " ", "\[NotEqual]", " ", RowBox[{"Length", "[", "unionset", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], "-", RowBox[{"Length", "[", "unionset", "]"}]}], "]"}], "<>", " ", "\"\< redundant objects\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "unionset"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ The following functions use the previously defined rotations to create the \ 2-, 3-, 4-, and 6-fold rotation symmetries.\ \>", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"AddTwoFold", "[", RowBox[{"pointset_", ",", " ", "LatticeMap_"}], "]"}], " ", ":=", " ", RowBox[{"setAddRotation", "[", RowBox[{"pointset", ",", "Pi", ",", "LatticeMap"}], "]"}]}]], "Input", CellChangeTimes->{{3.465654417035636*^9, 3.465654419024902*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"AddThreeFold", "[", RowBox[{"pointset_", ",", "LatticeMap_"}], "]"}], " ", ":=", "\[IndentingNewLine]", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "psetchop", ",", "p1", ",", "p2", ",", "joinset", ",", "unionset"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"psetchop", "=", RowBox[{"Chop", "[", " ", "pointset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p1", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", RowBox[{"2", RowBox[{"Pi", "/", "3"}]}], ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p2", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", RowBox[{"4", RowBox[{"Pi", "/", "3"}]}], ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"joinset", "=", RowBox[{"Chop", "[", RowBox[{"Join", "[", RowBox[{"psetchop", ",", "p1", ",", "p2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unionset", "=", RowBox[{"Union", "[", "joinset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], " ", "\[NotEqual]", " ", RowBox[{"Length", "[", "unionset", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], "-", RowBox[{"Length", "[", "unionset", "]"}]}], "]"}], "<>", " ", "\"\< redundant object vertices\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "unionset"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"AddFourFold", "[", RowBox[{"pointset_", ",", "LatticeMap_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "psetchop", ",", "p1", ",", "p2", ",", "p3", ",", "joinset", ",", "unionset"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"psetchop", "=", RowBox[{"Chop", "[", " ", "pointset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p1", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", RowBox[{"Pi", "/", "2"}], ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p2", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", "Pi", ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p3", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", RowBox[{"3", RowBox[{"Pi", "/", "2"}]}], ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"joinset", "=", RowBox[{"Chop", "[", RowBox[{"Join", "[", RowBox[{"psetchop", ",", "p1", ",", "p2", ",", "p3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unionset", "=", RowBox[{"Union", "[", "joinset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], " ", "\[NotEqual]", " ", RowBox[{"Length", "[", "unionset", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], "-", RowBox[{"Length", "[", "unionset", "]"}]}], "]"}], "<>", " ", "\"\< redundant object vertices\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "unionset"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"AddSixFold", "[", RowBox[{"pointset_", ",", "LatticeMap_"}], "]"}], " ", ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "psetchop", ",", "p1", ",", "p2", ",", "p3", ",", "p4", ",", "p5", ",", "joinset", ",", "unionset"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"psetchop", "=", RowBox[{"Chop", "[", " ", "pointset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p1", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", RowBox[{"Pi", "/", "3"}], ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p2", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", RowBox[{"2", RowBox[{"Pi", "/", "3"}]}], ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p3", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", "Pi", ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p4", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", RowBox[{"4", " ", RowBox[{"Pi", "/", "3"}]}], ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p5", " ", "=", " ", RowBox[{"RotateSet", "[", RowBox[{"psetchop", ",", RowBox[{"5", " ", RowBox[{"Pi", "/", "3"}]}], ",", "LatticeMap"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"joinset", "=", RowBox[{"Chop", "[", RowBox[{"Join", "[", RowBox[{ "psetchop", ",", "p1", ",", "p2", ",", "p3", ",", "p4", ",", "p5"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"unionset", "=", RowBox[{"Union", "[", "joinset", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], " ", "\[NotEqual]", " ", RowBox[{"Length", "[", "unionset", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Length", "[", "joinset", "]"}], "-", RowBox[{"Length", "[", "unionset", "]"}]}], "]"}], "<>", " ", "\"\< redundant object vertices\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "unionset"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Graphics functions", "Subtitle"], Cell[CellGroupData[{ Cell["\<\ This is a somewhat inelegant. A graphics object representing the \"grid\" on \ which the plane-groups be drawn is defined by hand. It would be more clever \ to write functions for \"mirror\" \"glide\" objects, and \"n-fold\" graphics \ objects. \ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"grid", "[", "12", "]"}], " ", "=", RowBox[{"Graphics", "[", " ", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".5"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "6"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"6", ",", "8"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"8", ",", "2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Thin", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], "]"}]}], "}"}]}], "}"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[{{0, 0}, {0.5, 0}, {1, 0}, {1, 0.5}, {1, 1}, {0.5, 1}, { 0, 1}, {0, 0.5}}, { {Thickness[Large], Dashing[{Small, Small}], LineBox[{1, 5}], LineBox[{3, 7}]}, {Thickness[Large], LineBox[{2, 4}], LineBox[{4, 6}], LineBox[{6, 8}], LineBox[{8, 2}]}, {Thickness[Tiny], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {LineBox[{{1, 3}, {3, 5}, {5, 7}, {7, 1}}], LineBox[{2, 6}], LineBox[{4, 8}]}}]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ The takes the points and draws all the objects using the previously defined \ \"GraphicsAssymetricObject\" in a list created by table. The second argument \ is the \"background grid\" \ \>", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"SetGraphics", "[", RowBox[{"pointset_", ",", " ", "grid_"}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"GraphicsAssymetricObject", "[", RowBox[{"pointset", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "pointset", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Medium"}], ",", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", " ", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "grid"}], "]"}]}]], "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Example of \"building p4 g m\" (#12)", "Title"], Cell[CellGroupData[{ Cell["The asymmetric object:", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetGraphics", "[", RowBox[{"genPoints", ",", RowBox[{"grid", "[", "12", "]"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{ GraphicsComplexBox[{{0.1, 0.25}, {0.038762756430420556`, 0.28535533905932736`}, {0.06464466094067263, 0.18876275643042056`}, { 0.11294095225512604`, 0.2017037086855466}, {0.16123724356957947`, 0.21464466094067264`}, {0.1353553390593274, 0.31123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0, 0}, {0.5, 0}, {1, 0}, {1, 0.5}, {1, 1}, {0.5, 1}, { 0, 1}, {0, 0.5}}, { {Thickness[Large], Dashing[{Small, Small}], LineBox[{1, 5}], LineBox[{3, 7}]}, {Thickness[Large], LineBox[{2, 4}], LineBox[{4, 6}], LineBox[{6, 8}], LineBox[{8, 2}]}, {Thickness[Tiny], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {LineBox[{{1, 3}, {3, 5}, {5, 7}, {7, 1}}], LineBox[{2, 6}], LineBox[{4, 8}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Add a mirror", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetGraphics", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddMirror", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "8"}], ",", "SquareLatticeMod"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"grid", "[", "12", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.1, 0.25}, {0.038762756430420556`, 0.28535533905932736`}, {0.06464466094067263, 0.18876275643042056`}, { 0.11294095225512604`, 0.2017037086855466}, {0.16123724356957947`, 0.21464466094067264`}, {0.1353553390593274, 0.31123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.25, 0.4}, {0.21464466094067264`, 0.46123724356957946`}, {0.31123724356957944`, 0.4353553390593274}, { 0.2982962913144534, 0.387059047744874}, {0.28535533905932736`, 0.33876275643042053`}, {0.18876275643042056`, 0.3646446609406726}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[{{0, 0}, {0.5, 0}, {1, 0}, {1, 0.5}, {1, 1}, {0.5, 1}, { 0, 1}, {0, 0.5}}, { {Thickness[Large], Dashing[{Small, Small}], LineBox[{1, 5}], LineBox[{3, 7}]}, {Thickness[Large], LineBox[{2, 4}], LineBox[{4, 6}], LineBox[{6, 8}], LineBox[{8, 2}]}, {Thickness[Tiny], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {LineBox[{{1, 3}, {3, 5}, {5, 7}, {7, 1}}], LineBox[{2, 6}], LineBox[{4, 8}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Add a glide", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetGraphics", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddGlide", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddMirror", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "8"}], ",", "SquareLatticeMod"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}], ",", "0", ",", "SquareLatticeMod"}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"grid", "[", "12", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.1, 0.25}, {0.038762756430420556`, 0.28535533905932736`}, {0.06464466094067263, 0.18876275643042056`}, { 0.11294095225512604`, 0.2017037086855466}, {0.16123724356957947`, 0.21464466094067264`}, {0.1353553390593274, 0.31123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.25, 0.4}, {0.21464466094067264`, 0.46123724356957946`}, {0.31123724356957944`, 0.4353553390593274}, { 0.2982962913144534, 0.387059047744874}, {0.28535533905932736`, 0.33876275643042053`}, {0.18876275643042056`, 0.3646446609406726}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.75, 0.6}, {0.7853553390593273, 0.5387627564304206}, {0.6887627564304206, 0.5646446609406727}, { 0.7017037086855467, 0.612940952255126}, {0.7146446609406727, 0.6612372435695795}, {0.8112372435695794, 0.6353553390593274}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.75}, {0.9612372435695795, 0.7146446609406727}, {0.9353553390593274, 0.8112372435695794}, { 0.887059047744874, 0.7982962913144533}, {0.8387627564304205, 0.7853553390593273}, {0.8646446609406726, 0.6887627564304206}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[{{0, 0}, {0.5, 0}, {1, 0}, {1, 0.5}, {1, 1}, {0.5, 1}, { 0, 1}, {0, 0.5}}, { {Thickness[Large], Dashing[{Small, Small}], LineBox[{1, 5}], LineBox[{3, 7}]}, {Thickness[Large], LineBox[{2, 4}], LineBox[{4, 6}], LineBox[{6, 8}], LineBox[{8, 2}]}, {Thickness[Tiny], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {LineBox[{{1, 3}, {3, 5}, {5, 7}, {7, 1}}], LineBox[{2, 6}], LineBox[{4, 8}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Add a p4, this reproduces the image in TSOM plane group #12", "Section"], Cell[CellGroupData[{ Cell["\<\ The result is assigned to a symbol because it will be used below.\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pg", "[", "12", "]"}], " ", "=", " ", RowBox[{"SetGraphics", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"AddFourFold", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddGlide", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddMirror", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "8"}], ",", "SquareLatticeMod"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}], ",", "0", ",", "SquareLatticeMod"}], "\[IndentingNewLine]", "]"}], ",", "SquareLatticeMod"}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"grid", "[", "12", "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.09999999999999998, 0.25}, {0.038762756430420486`, 0.2853553390593273}, {0.06464466094067256, 0.18876275643042062`}, { 0.11294095225512601`, 0.20170370868554666`}, {0.16123724356957947`, 0.2146446609406727}, {0.1353553390593274, 0.3112372435695794}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.1, 0.25}, {0.038762756430420556`, 0.28535533905932736`}, {0.06464466094067263, 0.18876275643042056`}, { 0.11294095225512604`, 0.2017037086855466}, {0.16123724356957947`, 0.21464466094067264`}, {0.1353553390593274, 0.31123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.25, 0.4}, {0.21464466094067264`, 0.46123724356957946`}, {0.31123724356957944`, 0.4353553390593274}, { 0.2982962913144534, 0.387059047744874}, {0.28535533905932736`, 0.33876275643042053`}, {0.18876275643042056`, 0.3646446609406726}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.25, 0.4}, {0.2146446609406727, 0.4612372435695794}, {0.3112372435695794, 0.43535533905932733`}, { 0.29829629131445334`, 0.387059047744874}, {0.2853553390593273, 0.33876275643042053`}, {0.18876275643042062`, 0.3646446609406726}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.25, 0.9}, {0.2853553390593273, 0.9612372435695795}, {0.18876275643042062`, 0.9353553390593274}, { 0.20170370868554666`, 0.887059047744874}, {0.2146446609406727, 0.8387627564304205}, {0.3112372435695794, 0.8646446609406726}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.25, 0.9}, {0.28535533905932736`, 0.9612372435695794}, {0.18876275643042056`, 0.9353553390593273}, { 0.2017037086855466, 0.887059047744874}, {0.21464466094067264`, 0.8387627564304205}, {0.31123724356957944`, 0.8646446609406726}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.4, 0.75}, {0.4612372435695794, 0.7853553390593273}, {0.43535533905932733`, 0.6887627564304206}, { 0.387059047744874, 0.7017037086855467}, {0.33876275643042053`, 0.7146446609406727}, {0.3646446609406726, 0.8112372435695794}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.4, 0.75}, {0.46123724356957946`, 0.7853553390593273}, {0.4353553390593274, 0.6887627564304206}, { 0.387059047744874, 0.7017037086855467}, {0.33876275643042053`, 0.7146446609406727}, {0.3646446609406726, 0.8112372435695794}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.6, 0.25}, {0.5387627564304205, 0.21464466094067264`}, {0.5646446609406726, 0.31123724356957944`}, { 0.612940952255126, 0.2982962913144534}, {0.6612372435695795, 0.28535533905932736`}, {0.6353553390593274, 0.18876275643042056`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.6, 0.25}, {0.5387627564304206, 0.2146446609406727}, {0.5646446609406727, 0.3112372435695794}, { 0.612940952255126, 0.29829629131445334`}, {0.6612372435695795, 0.2853553390593273}, {0.6353553390593274, 0.18876275643042062`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.75, 0.09999999999999998}, {0.7146446609406727, 0.038762756430420486`}, {0.8112372435695794, 0.06464466094067256}, { 0.7982962913144533, 0.11294095225512601`}, {0.7853553390593273, 0.16123724356957947`}, {0.6887627564304206, 0.1353553390593274}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.75, 0.1}, {0.7146446609406727, 0.038762756430420556`}, {0.8112372435695794, 0.06464466094067263}, { 0.7982962913144533, 0.11294095225512604`}, {0.7853553390593273, 0.16123724356957947`}, {0.6887627564304206, 0.1353553390593274}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.75, 0.6}, {0.7853553390593273, 0.5387627564304205}, {0.6887627564304206, 0.5646446609406726}, { 0.7017037086855467, 0.612940952255126}, {0.7146446609406727, 0.6612372435695795}, {0.8112372435695794, 0.6353553390593274}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.75, 0.6}, {0.7853553390593273, 0.5387627564304206}, {0.6887627564304206, 0.5646446609406727}, { 0.7017037086855467, 0.612940952255126}, {0.7146446609406727, 0.6612372435695795}, {0.8112372435695794, 0.6353553390593274}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.75}, {0.9612372435695794, 0.7146446609406727}, {0.9353553390593273, 0.8112372435695794}, { 0.887059047744874, 0.7982962913144533}, {0.8387627564304205, 0.7853553390593273}, {0.8646446609406726, 0.6887627564304206}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.75}, {0.9612372435695795, 0.7146446609406727}, {0.9353553390593274, 0.8112372435695794}, { 0.887059047744874, 0.7982962913144533}, {0.8387627564304205, 0.7853553390593273}, {0.8646446609406726, 0.6887627564304206}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[{{0, 0}, {0.5, 0}, {1, 0}, {1, 0.5}, {1, 1}, {0.5, 1}, { 0, 1}, {0, 0.5}}, { {Thickness[Large], Dashing[{Small, Small}], LineBox[{1, 5}], LineBox[{3, 7}]}, {Thickness[Large], LineBox[{2, 4}], LineBox[{4, 6}], LineBox[{6, 8}], LineBox[{8, 2}]}, {Thickness[Tiny], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {LineBox[{{1, 3}, {3, 5}, {5, 7}, {7, 1}}], LineBox[{2, 6}], LineBox[{4, 8}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Example of \"building p3 1 m\" (#15)", "Title"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"grid", "[", "15", "]"}], " ", "=", RowBox[{"Graphics", "[", " ", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", " ", "+", " ", RowBox[{"1", "/", "4"}]}], ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", " ", "+", " ", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "3"}], "]"}], "/", "2"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Thin", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Thick", ",", " ", "Dashed", ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"2", ",", "6", ",", "4", ",", "8", ",", "2"}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[ NCache[{{0, 0}, {Rational[1, 2], 0}, {1, 0}, { Rational[5, 4], Rational[1, 4] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 4], Rational[1, 4] 3^Rational[1, 2]}}, {{0, 0}, {0.5, 0}, {1, 0}, {1.25, 0.4330127018922193}, {1.5, 0.8660254037844386}, { 1, 0.8660254037844386}, {0.5, 0.8660254037844386}, {0.25, 0.4330127018922193}}], { {Thickness[Large], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {Thickness[Tiny], LineBox[{3, 7}]}, {Thickness[Large], Dashing[{Small, Small}], LineBox[{2, 6, 4, 8, 2}]}}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Need to move the asymmetric object into the hexagonal primitive domain\ \>", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hexgenPoints", " ", "=", " ", RowBox[{"TranslateSet", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{"0.1", ",", RowBox[{"-", "0.15"}]}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.2`", ",", "0.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.13876275643042058`", ",", "0.13535533905932737`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.16464466094067265`", ",", "0.03876275643042057`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.21294095225512605`", ",", "0.05170370868554661`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.26123724356957945`", ",", "0.06464466094067264`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2353553390593274`", ",", "0.16123724356957944`"}], "}"}]}], "}"}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["The asymmetric object:", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetGraphics", "[", RowBox[{"hexgenPoints", ",", RowBox[{"grid", "[", "15", "]"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[ NCache[{{0, 0}, {Rational[1, 2], 0}, {1, 0}, { Rational[5, 4], Rational[1, 4] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 4], Rational[1, 4] 3^Rational[1, 2]}}, {{0, 0}, {0.5, 0}, { 1, 0}, {1.25, 0.4330127018922193}, {1.5, 0.8660254037844386}, { 1, 0.8660254037844386}, {0.5, 0.8660254037844386}, {0.25, 0.4330127018922193}}], { {Thickness[Large], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {Thickness[Tiny], LineBox[{3, 7}]}, {Thickness[Large], Dashing[{Small, Small}], LineBox[{2, 6, 4, 8, 2}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Add a mirror", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetGraphics", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddMirror", "[", RowBox[{"hexgenPoints", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", "0", ",", "HexLatticeMod"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"grid", "[", "15", "]"}]}], "\[IndentingNewLine]", "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.7, 0.7660254037844386}, {0.6387627564304206, 0.7306700647251112}, {0.6646446609406726, 0.827262647354018}, { 0.712940952255126, 0.814321695098892}, {0.7612372435695794, 0.8013807428437659}, {0.7353553390593275, 0.7047881602148591}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {Rational[1, 2], 0}, {1, 0}, { Rational[5, 4], Rational[1, 4] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 4], Rational[1, 4] 3^Rational[1, 2]}}, {{0, 0}, {0.5, 0}, { 1, 0}, {1.25, 0.4330127018922193}, {1.5, 0.8660254037844386}, { 1, 0.8660254037844386}, {0.5, 0.8660254037844386}, {0.25, 0.4330127018922193}}], { {Thickness[Large], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {Thickness[Tiny], LineBox[{3, 7}]}, {Thickness[Large], Dashing[{Small, Small}], LineBox[{2, 6, 4, 8, 2}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Add a three fold to generate p3 1 m (#15)", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pg", "[", "15", "]"}], " ", "=", RowBox[{"SetGraphics", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"AddThreeFold", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddMirror", "[", RowBox[{"hexgenPoints", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", "0", ",", "HexLatticeMod"}], "]"}], ",", "\[IndentingNewLine]", "HexLatticeMod"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"grid", "[", "15", "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.48660254037844386`, 0.6428203230275508}, { 0.5478397839480234, 0.6781756620868783}, {0.4512472013191165, 0.7040575665971304}, {0.43830624906399046`, 0.6557612752826769}, { 0.4253652968088645, 0.6074649839682236}, {0.5219578794377713, 0.5815830794579714}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.7, 0.7660254037844386}, {0.6387627564304206, 0.7306700647251112}, {0.6646446609406726, 0.827262647354018}, { 0.712940952255126, 0.814321695098892}, {0.7612372435695794, 0.8013807428437659}, {0.7353553390593275, 0.7047881602148591}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.8133974596215561, 0.12320508075688774`}, { 0.8133974596215562, 0.05249440263823301}, {0.8841081377402109, 0.12320508075688774`}, {0.8487527986808835, 0.1585604198162151}, { 0.8133974596215562, 0.19391575887554247`}, {0.7426867815029015, 0.12320508075688777`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.986602540378444, 0.2232050807568877}, { 1.0478397839480234`, 0.1878497416975604}, {0.9512472013191164, 0.16196783718730828`}, {0.9383062490639907, 0.21026412850176163`}, { 0.9253652968088646, 0.2585604198162151}, {1.0219578794377713`, 0.2844423243264674}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.313397459621556, 0.7428203230275509}, { 1.313397459621556, 0.8135310011462056}, {1.3841081377402107`, 0.7428203230275509}, {1.3487527986808834`, 0.7074649839682235}, { 1.313397459621556, 0.6721096449088961}, {1.2426867815029012`, 0.7428203230275506}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {Rational[1, 2], 0}, {1, 0}, { Rational[5, 4], Rational[1, 4] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 4], Rational[1, 4] 3^Rational[1, 2]}}, {{0, 0}, {0.5, 0}, { 1, 0}, {1.25, 0.4330127018922193}, {1.5, 0.8660254037844386}, { 1, 0.8660254037844386}, {0.5, 0.8660254037844386}, {0.25, 0.4330127018922193}}], { {Thickness[Large], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {Thickness[Tiny], LineBox[{3, 7}]}, {Thickness[Large], Dashing[{Small, Small}], LineBox[{2, 6, 4, 8, 2}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Here, creating a lattice by adding the lattice translation vectors is \ explored just for fun.\ \>", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"pg15", " ", "=", RowBox[{"AddThreeFold", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddMirror", "[", RowBox[{"hexgenPoints", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", "0", ",", "HexLatticeMod"}], "]"}], ",", "\[IndentingNewLine]", "HexLatticeMod"}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input"], Cell[BoxData[""], "Input"], Cell[CellGroupData[{ Cell["The lattice translations.", "Subsubsection"], Cell[BoxData[{ RowBox[{ RowBox[{"hvectx", "=", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hvecty", "=", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{ RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}], "}"}]}], ";"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ A set of indices representing some of the points in the lattice.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"siteindices", " ", "=", RowBox[{"Tuples", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}], ",", "2"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Using table, the lattice translations, and the \ indices to make a list of \"lattice\" points.", "Subsubsection"]], \ "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hcoords", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"siteindices", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], " ", "hvectx"}], "+", RowBox[{ RowBox[{"siteindices", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "hvecty"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"Length", "[", "siteindices", "]"}]}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", SqrtBox["3"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "2"], ",", FractionBox[ RowBox[{"3", " ", SqrtBox["3"]}], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "2"], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", SqrtBox["3"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "2"], ",", FractionBox[ RowBox[{"3", " ", SqrtBox["3"]}], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "2"], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", SqrtBox["3"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["7", "2"], ",", FractionBox[ RowBox[{"3", " ", SqrtBox["3"]}], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["7", "2"], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", SqrtBox["3"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["9", "2"], ",", FractionBox[ RowBox[{"3", " ", SqrtBox["3"]}], "2"]}], "}"}]}], "}"}]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["An example with four unit cells", "Subsubsection"]], \ "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetGraphics", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"pg15", ",", RowBox[{"TranslateSet", "[", RowBox[{"pg15", ",", RowBox[{"{", RowBox[{"1.5", ",", RowBox[{ RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"TranslateSet", "[", RowBox[{"pg15", ",", RowBox[{"{", RowBox[{".5", ",", RowBox[{ RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"TranslateSet", "[", RowBox[{"pg15", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"grid", "[", "15", "]"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.48660254037844386`, 0.6428203230275508}, { 0.5478397839480234, 0.6781756620868783}, {0.4512472013191165, 0.7040575665971304}, {0.43830624906399046`, 0.6557612752826769}, { 0.4253652968088645, 0.6074649839682236}, {0.5219578794377713, 0.5815830794579714}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.7, 0.7660254037844386}, {0.6387627564304206, 0.7306700647251112}, {0.6646446609406726, 0.827262647354018}, { 0.712940952255126, 0.814321695098892}, {0.7612372435695794, 0.8013807428437659}, {0.7353553390593275, 0.7047881602148591}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.8133974596215561, 0.12320508075688774`}, { 0.8133974596215562, 0.05249440263823301}, {0.8841081377402109, 0.12320508075688774`}, {0.8487527986808835, 0.1585604198162151}, { 0.8133974596215562, 0.19391575887554247`}, {0.7426867815029015, 0.12320508075688777`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.986602540378444, 0.2232050807568877}, { 1.0478397839480234`, 0.1878497416975604}, {0.9512472013191164, 0.16196783718730828`}, {0.9383062490639907, 0.21026412850176163`}, { 0.9253652968088646, 0.2585604198162151}, {1.0219578794377713`, 0.2844423243264674}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.313397459621556, 0.7428203230275509}, { 1.313397459621556, 0.8135310011462056}, {1.3841081377402107`, 0.7428203230275509}, {1.3487527986808834`, 0.7074649839682235}, { 1.313397459621556, 0.6721096449088961}, {1.2426867815029012`, 0.7428203230275506}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.7, 0.9660254037844386}, {1.6387627564304206`, 1.001380742843766}, {1.6646446609406726`, 0.9047881602148592}, { 1.712940952255126, 0.9177291124699852}, {1.7612372435695796`, 0.9306700647251113}, {1.7353553390593275`, 1.027262647354018}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.9866025403784437`, 1.5088457268119893`}, { 2.0478397839480236`, 1.544201065871317}, {1.9512472013191164`, 1.570082970381569}, {1.9383062490639904`, 1.5217866790671155`}, { 1.9253652968088644`, 1.4734903877526622`}, {2.021957879437771, 1.4476084832424099`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.2, 1.632050807568877}, {2.1387627564304204`, 1.5966954685095498`}, {2.164644660940673, 1.6932880511384565`}, { 2.212940952255126, 1.6803470988833307`}, {2.2612372435695796`, 1.6674061466282044`}, {2.2353553390593275`, 1.5708135639992977`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.313397459621556, 0.9892304845413263}, { 2.313397459621556, 0.9185198064226716}, {2.3841081377402107`, 0.9892304845413263}, {2.3487527986808834`, 1.0245858236006538`}, { 2.313397459621556, 1.059941162659981}, {2.2426867815029015`, 0.9892304845413263}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.4866025403784437`, 1.0892304845413263`}, { 2.5478397839480236`, 1.053875145481999}, {2.4512472013191164`, 1.027993240971747}, {2.4383062490639906`, 1.0762895322862003`}, { 2.425365296808865, 1.1245858236006536`}, {2.521957879437771, 1.150467728110906}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.813397459621556, 1.6088457268119893`}, { 2.813397459621556, 1.6795564049306442`}, {2.8841081377402107`, 1.6088457268119893`}, {2.8487527986808834`, 1.573490387752662}, { 2.813397459621556, 1.5381350486933347`}, {2.7426867815029015`, 1.6088457268119893`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.7, 0.9660254037844386}, {0.6387627564304206, 1.001380742843766}, {0.6646446609406726, 0.9047881602148592}, { 0.712940952255126, 0.9177291124699852}, {0.7612372435695794, 0.9306700647251113}, {0.7353553390593274, 1.027262647354018}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9866025403784439, 1.5088457268119893`}, { 1.0478397839480234`, 1.544201065871317}, {0.9512472013191164, 1.570082970381569}, {0.9383062490639904, 1.5217866790671155`}, { 0.9253652968088645, 1.4734903877526622`}, {1.0219578794377713`, 1.4476084832424099`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.2, 1.632050807568877}, {1.1387627564304206`, 1.5966954685095498`}, {1.1646446609406726`, 1.6932880511384565`}, { 1.212940952255126, 1.6803470988833307`}, {1.2612372435695796`, 1.6674061466282044`}, {1.2353553390593275`, 1.5708135639992977`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.313397459621556, 0.9892304845413263}, { 1.313397459621556, 0.9185198064226716}, {1.384108137740211, 0.9892304845413263}, {1.3487527986808834`, 1.0245858236006538`}, { 1.313397459621556, 1.059941162659981}, {1.2426867815029015`, 0.9892304845413263}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.486602540378444, 1.0892304845413263`}, { 1.5478397839480234`, 1.053875145481999}, {1.4512472013191164`, 1.027993240971747}, {1.4383062490639906`, 1.0762895322862003`}, { 1.4253652968088646`, 1.1245858236006536`}, {1.5219578794377713`, 1.150467728110906}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.813397459621556, 1.6088457268119893`}, { 1.813397459621556, 1.6795564049306442`}, {1.8841081377402107`, 1.6088457268119893`}, {1.8487527986808834`, 1.573490387752662}, { 1.813397459621556, 1.5381350486933347`}, {1.7426867815029012`, 1.6088457268119893`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.2, 0.1}, {1.1387627564304206`, 0.13535533905932737`}, {1.1646446609406726`, 0.03876275643042057}, { 1.212940952255126, 0.05170370868554661}, {1.2612372435695796`, 0.06464466094067264}, {1.2353553390593275`, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.4866025403784437`, 0.6428203230275508}, { 1.5478397839480234`, 0.6781756620868783}, {1.4512472013191164`, 0.7040575665971304}, {1.4383062490639904`, 0.6557612752826769}, { 1.4253652968088644`, 0.6074649839682236}, {1.5219578794377713`, 0.5815830794579714}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.7, 0.7660254037844386}, {1.6387627564304206`, 0.7306700647251112}, {1.6646446609406726`, 0.827262647354018}, { 1.712940952255126, 0.814321695098892}, {1.7612372435695796`, 0.8013807428437659}, {1.7353553390593275`, 0.7047881602148591}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.813397459621556, 0.12320508075688774`}, { 1.813397459621556, 0.05249440263823301}, {1.884108137740211, 0.12320508075688774`}, {1.8487527986808834`, 0.1585604198162151}, { 1.813397459621556, 0.19391575887554247`}, {1.7426867815029015`, 0.12320508075688777`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.986602540378444, 0.2232050807568877}, { 2.0478397839480236`, 0.1878497416975604}, {1.9512472013191164`, 0.16196783718730828`}, {1.9383062490639906`, 0.21026412850176163`}, { 1.9253652968088646`, 0.2585604198162151}, {2.021957879437771, 0.2844423243264674}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.313397459621556, 0.7428203230275509}, { 2.313397459621556, 0.8135310011462056}, {2.3841081377402107`, 0.7428203230275509}, {2.3487527986808834`, 0.7074649839682235}, { 2.313397459621556, 0.6721096449088961}, {2.2426867815029015`, 0.7428203230275506}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {Rational[1, 2], 0}, {1, 0}, { Rational[5, 4], Rational[1, 4] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 4], Rational[1, 4] 3^Rational[1, 2]}}, {{0, 0}, {0.5, 0}, { 1, 0}, {1.25, 0.4330127018922193}, {1.5, 0.8660254037844386}, { 1, 0.8660254037844386}, {0.5, 0.8660254037844386}, {0.25, 0.4330127018922193}}], { {Thickness[Large], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {Thickness[Tiny], LineBox[{3, 7}]}, {Thickness[Large], Dashing[{Small, Small}], LineBox[{2, 6, 4, 8, 2}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ An example with all the indices defined above. The generated list had to be \ \"Flattened\" into a single list of points, where a point is a list of length \ 2.\ \>", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"all", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"TranslateSet", "[", RowBox[{"pg15", ",", RowBox[{"hcoords", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "hcoords", "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetGraphics", "[", RowBox[{"all", ",", RowBox[{"grid", "[", "15", "]"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.48660254037844386`, 0.6428203230275508}, { 0.5478397839480234, 0.6781756620868783}, {0.4512472013191165, 0.7040575665971304}, {0.43830624906399046`, 0.6557612752826769}, { 0.4253652968088645, 0.6074649839682236}, {0.5219578794377713, 0.5815830794579714}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.7, 0.7660254037844386}, {0.6387627564304206, 0.7306700647251112}, {0.6646446609406726, 0.827262647354018}, { 0.712940952255126, 0.814321695098892}, {0.7612372435695794, 0.8013807428437659}, {0.7353553390593275, 0.7047881602148591}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.8133974596215561, 0.12320508075688774`}, { 0.8133974596215562, 0.05249440263823301}, {0.8841081377402109, 0.12320508075688774`}, {0.8487527986808835, 0.1585604198162151}, { 0.8133974596215562, 0.19391575887554247`}, {0.7426867815029015, 0.12320508075688777`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.986602540378444, 0.2232050807568877}, { 1.0478397839480234`, 0.1878497416975604}, {0.9512472013191164, 0.16196783718730828`}, {0.9383062490639907, 0.21026412850176163`}, { 0.9253652968088646, 0.2585604198162151}, {1.0219578794377713`, 0.2844423243264674}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.313397459621556, 0.7428203230275509}, { 1.313397459621556, 0.8135310011462056}, {1.3841081377402107`, 0.7428203230275509}, {1.3487527986808834`, 0.7074649839682235}, { 1.313397459621556, 0.6721096449088961}, {1.2426867815029012`, 0.7428203230275506}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.7, 0.9660254037844386}, {0.6387627564304206, 1.001380742843766}, {0.6646446609406726, 0.9047881602148592}, { 0.712940952255126, 0.9177291124699852}, {0.7612372435695794, 0.9306700647251113}, {0.7353553390593274, 1.027262647354018}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9866025403784439, 1.5088457268119893`}, { 1.0478397839480234`, 1.544201065871317}, {0.9512472013191164, 1.570082970381569}, {0.9383062490639904, 1.5217866790671155`}, { 0.9253652968088645, 1.4734903877526622`}, {1.0219578794377713`, 1.4476084832424099`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.2, 1.632050807568877}, {1.1387627564304206`, 1.5966954685095498`}, {1.1646446609406726`, 1.6932880511384565`}, { 1.212940952255126, 1.6803470988833307`}, {1.2612372435695796`, 1.6674061466282044`}, {1.2353553390593275`, 1.5708135639992977`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.313397459621556, 0.9892304845413263}, { 1.313397459621556, 0.9185198064226716}, {1.384108137740211, 0.9892304845413263}, {1.3487527986808834`, 1.0245858236006538`}, { 1.313397459621556, 1.059941162659981}, {1.2426867815029015`, 0.9892304845413263}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.486602540378444, 1.0892304845413263`}, { 1.5478397839480234`, 1.053875145481999}, {1.4512472013191164`, 1.027993240971747}, {1.4383062490639906`, 1.0762895322862003`}, { 1.4253652968088646`, 1.1245858236006536`}, {1.5219578794377713`, 1.150467728110906}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.813397459621556, 1.6088457268119893`}, { 1.813397459621556, 1.6795564049306442`}, {1.8841081377402107`, 1.6088457268119893`}, {1.8487527986808834`, 1.573490387752662}, { 1.813397459621556, 1.5381350486933347`}, {1.7426867815029012`, 1.6088457268119893`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.2, 1.8320508075688773`}, {1.1387627564304206`, 1.8674061466282046`}, {1.1646446609406726`, 1.7708135639992977`}, { 1.212940952255126, 1.7837545162544237`}, {1.2612372435695796`, 1.7966954685095498`}, {1.2353553390593275`, 1.8932880511384567`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.4866025403784437`, 2.374871130596428}, { 1.5478397839480234`, 2.4102264696557554`}, {1.4512472013191164`, 2.4361083741660075`}, {1.4383062490639904`, 2.3878120828515543`}, { 1.4253652968088644`, 2.3395157915371008`}, {1.5219578794377713`, 2.3136338870268487`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.7, 2.498076211353316}, {1.6387627564304206`, 2.462720872293988}, {1.6646446609406726`, 2.5593134549228953`}, { 1.712940952255126, 2.546372502667769}, {1.7612372435695796`, 2.5334315504126432`}, {1.7353553390593275`, 2.4368389677837365`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.813397459621556, 1.855255888325765}, { 1.813397459621556, 1.7845452102071102`}, {1.884108137740211, 1.855255888325765}, {1.8487527986808834`, 1.8906112273850924`}, { 1.813397459621556, 1.9259665664444197`}, {1.7426867815029015`, 1.855255888325765}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.986602540378444, 1.955255888325765}, { 2.0478397839480236`, 1.9199005492664376`}, {1.9512472013191164`, 1.8940186447561855`}, {1.9383062490639906`, 1.9423149360706389`}, { 1.9253652968088646`, 1.9906112273850922`}, {2.021957879437771, 2.0164931318953445`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.313397459621556, 2.474871130596428}, { 2.313397459621556, 2.5455818087150828`}, {2.3841081377402107`, 2.474871130596428}, {2.3487527986808834`, 2.439515791537101}, { 2.313397459621556, 2.4041604524777735`}, {2.2426867815029015`, 2.4748711305964277`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.7, 2.698076211353316}, {1.6387627564304206`, 2.7334315504126434`}, {1.6646446609406726`, 2.6368389677837367`}, { 1.712940952255126, 2.6497799200388625`}, {1.7612372435695796`, 2.662720872293989}, {1.7353553390593275`, 2.7593134549228955`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.9866025403784437`, 3.240896534380867}, { 2.0478397839480236`, 3.276251873440194}, {1.9512472013191164`, 3.3021337779504463`}, {1.9383062490639904`, 3.2538374866359927`}, { 1.9253652968088644`, 3.2055411953215396`}, {2.021957879437771, 3.1796592908112875`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.2, 3.3641016151377547`}, {2.1387627564304204`, 3.3287462760784274`}, {2.164644660940673, 3.425338858707334}, { 2.212940952255126, 3.412397906452208}, {2.2612372435695796`, 3.399456954197082}, {2.2353553390593275`, 3.302864371568175}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.313397459621556, 2.721281292110204}, { 2.313397459621556, 2.650570613991549}, {2.3841081377402107`, 2.721281292110204}, {2.3487527986808834`, 2.756636631169531}, { 2.313397459621556, 2.7919919702288585`}, {2.2426867815029015`, 2.721281292110204}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.4866025403784437`, 2.8212812921102035`}, { 2.5478397839480236`, 2.785925953050876}, {2.4512472013191164`, 2.760044048540624}, {2.4383062490639906`, 2.8083403398550777`}, { 2.425365296808865, 2.8566366311695313`}, {2.521957879437771, 2.8825185356797833`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.813397459621556, 3.340896534380867}, { 2.813397459621556, 3.4116072124995216`}, {2.8841081377402107`, 3.340896534380867}, {2.8487527986808834`, 3.3055411953215397`}, { 2.813397459621556, 3.270185856262212}, {2.7426867815029015`, 3.3408965343808665`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.2, 0.1}, {1.1387627564304206`, 0.13535533905932737`}, {1.1646446609406726`, 0.03876275643042057}, { 1.212940952255126, 0.05170370868554661}, {1.2612372435695796`, 0.06464466094067264}, {1.2353553390593275`, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.4866025403784437`, 0.6428203230275508}, { 1.5478397839480234`, 0.6781756620868783}, {1.4512472013191164`, 0.7040575665971304}, {1.4383062490639904`, 0.6557612752826769}, { 1.4253652968088644`, 0.6074649839682236}, {1.5219578794377713`, 0.5815830794579714}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.7, 0.7660254037844386}, {1.6387627564304206`, 0.7306700647251112}, {1.6646446609406726`, 0.827262647354018}, { 1.712940952255126, 0.814321695098892}, {1.7612372435695796`, 0.8013807428437659}, {1.7353553390593275`, 0.7047881602148591}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.813397459621556, 0.12320508075688774`}, { 1.813397459621556, 0.05249440263823301}, {1.884108137740211, 0.12320508075688774`}, {1.8487527986808834`, 0.1585604198162151}, { 1.813397459621556, 0.19391575887554247`}, {1.7426867815029015`, 0.12320508075688777`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.986602540378444, 0.2232050807568877}, { 2.0478397839480236`, 0.1878497416975604}, {1.9512472013191164`, 0.16196783718730828`}, {1.9383062490639906`, 0.21026412850176163`}, { 1.9253652968088646`, 0.2585604198162151}, {2.021957879437771, 0.2844423243264674}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.313397459621556, 0.7428203230275509}, { 2.313397459621556, 0.8135310011462056}, {2.3841081377402107`, 0.7428203230275509}, {2.3487527986808834`, 0.7074649839682235}, { 2.313397459621556, 0.6721096449088961}, {2.2426867815029015`, 0.7428203230275506}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.7, 0.9660254037844386}, {1.6387627564304206`, 1.001380742843766}, {1.6646446609406726`, 0.9047881602148592}, { 1.712940952255126, 0.9177291124699852}, {1.7612372435695796`, 0.9306700647251113}, {1.7353553390593275`, 1.027262647354018}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.9866025403784437`, 1.5088457268119893`}, { 2.0478397839480236`, 1.544201065871317}, {1.9512472013191164`, 1.570082970381569}, {1.9383062490639904`, 1.5217866790671155`}, { 1.9253652968088644`, 1.4734903877526622`}, {2.021957879437771, 1.4476084832424099`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.2, 1.632050807568877}, {2.1387627564304204`, 1.5966954685095498`}, {2.164644660940673, 1.6932880511384565`}, { 2.212940952255126, 1.6803470988833307`}, {2.2612372435695796`, 1.6674061466282044`}, {2.2353553390593275`, 1.5708135639992977`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.313397459621556, 0.9892304845413263}, { 2.313397459621556, 0.9185198064226716}, {2.3841081377402107`, 0.9892304845413263}, {2.3487527986808834`, 1.0245858236006538`}, { 2.313397459621556, 1.059941162659981}, {2.2426867815029015`, 0.9892304845413263}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.4866025403784437`, 1.0892304845413263`}, { 2.5478397839480236`, 1.053875145481999}, {2.4512472013191164`, 1.027993240971747}, {2.4383062490639906`, 1.0762895322862003`}, { 2.425365296808865, 1.1245858236006536`}, {2.521957879437771, 1.150467728110906}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.813397459621556, 1.6088457268119893`}, { 2.813397459621556, 1.6795564049306442`}, {2.8841081377402107`, 1.6088457268119893`}, {2.8487527986808834`, 1.573490387752662}, { 2.813397459621556, 1.5381350486933347`}, {2.7426867815029015`, 1.6088457268119893`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.2, 1.8320508075688773`}, {2.1387627564304204`, 1.8674061466282046`}, {2.164644660940673, 1.7708135639992977`}, { 2.212940952255126, 1.7837545162544237`}, {2.2612372435695796`, 1.7966954685095498`}, {2.2353553390593275`, 1.8932880511384567`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.4866025403784437`, 2.374871130596428}, { 2.5478397839480236`, 2.4102264696557554`}, {2.4512472013191164`, 2.4361083741660075`}, {2.4383062490639906`, 2.3878120828515543`}, { 2.4253652968088644`, 2.3395157915371008`}, {2.521957879437771, 2.3136338870268487`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.7, 2.498076211353316}, {2.6387627564304204`, 2.462720872293988}, {2.664644660940673, 2.5593134549228953`}, { 2.712940952255126, 2.546372502667769}, {2.7612372435695796`, 2.5334315504126432`}, {2.7353553390593275`, 2.4368389677837365`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.813397459621556, 1.855255888325765}, { 2.813397459621556, 1.7845452102071102`}, {2.8841081377402107`, 1.855255888325765}, {2.8487527986808834`, 1.8906112273850924`}, { 2.813397459621556, 1.9259665664444197`}, {2.7426867815029015`, 1.855255888325765}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.9866025403784437`, 1.955255888325765}, { 3.0478397839480236`, 1.9199005492664376`}, {2.9512472013191164`, 1.8940186447561855`}, {2.9383062490639906`, 1.9423149360706389`}, { 2.925365296808865, 1.9906112273850922`}, {3.021957879437771, 2.0164931318953445`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.313397459621556, 2.474871130596428}, { 3.313397459621556, 2.5455818087150828`}, {3.3841081377402107`, 2.474871130596428}, {3.3487527986808834`, 2.439515791537101}, { 3.313397459621556, 2.4041604524777735`}, {3.2426867815029015`, 2.4748711305964277`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.7, 2.698076211353316}, {2.6387627564304204`, 2.7334315504126434`}, {2.664644660940673, 2.6368389677837367`}, { 2.712940952255126, 2.6497799200388625`}, {2.7612372435695796`, 2.662720872293989}, {2.7353553390593275`, 2.7593134549228955`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.9866025403784437`, 3.240896534380867}, { 3.0478397839480236`, 3.276251873440194}, {2.9512472013191164`, 3.3021337779504463`}, {2.9383062490639906`, 3.2538374866359927`}, { 2.9253652968088644`, 3.2055411953215396`}, {3.021957879437771, 3.1796592908112875`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.2, 3.3641016151377547`}, {3.1387627564304204`, 3.3287462760784274`}, {3.164644660940673, 3.425338858707334}, { 3.212940952255126, 3.412397906452208}, {3.2612372435695796`, 3.399456954197082}, {3.2353553390593275`, 3.302864371568175}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.313397459621556, 2.721281292110204}, { 3.313397459621556, 2.650570613991549}, {3.3841081377402107`, 2.721281292110204}, {3.3487527986808834`, 2.756636631169531}, { 3.313397459621556, 2.7919919702288585`}, {3.2426867815029015`, 2.721281292110204}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.4866025403784437`, 2.8212812921102035`}, { 3.5478397839480236`, 2.785925953050876}, {3.4512472013191164`, 2.760044048540624}, {3.4383062490639906`, 2.8083403398550777`}, { 3.425365296808865, 2.8566366311695313`}, {3.521957879437771, 2.8825185356797833`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.813397459621556, 3.340896534380867}, { 3.813397459621556, 3.4116072124995216`}, {3.8841081377402107`, 3.340896534380867}, {3.8487527986808834`, 3.3055411953215397`}, { 3.813397459621556, 3.270185856262212}, {3.7426867815029015`, 3.3408965343808665`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.2, 0.1}, {2.1387627564304204`, 0.13535533905932737`}, {2.164644660940673, 0.03876275643042057}, { 2.212940952255126, 0.05170370868554661}, {2.2612372435695796`, 0.06464466094067264}, {2.2353553390593275`, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.4866025403784437`, 0.6428203230275508}, { 2.5478397839480236`, 0.6781756620868783}, {2.4512472013191164`, 0.7040575665971304}, {2.4383062490639906`, 0.6557612752826769}, { 2.4253652968088644`, 0.6074649839682236}, {2.521957879437771, 0.5815830794579714}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.7, 0.7660254037844386}, {2.6387627564304204`, 0.7306700647251112}, {2.664644660940673, 0.827262647354018}, { 2.712940952255126, 0.814321695098892}, {2.7612372435695796`, 0.8013807428437659}, {2.7353553390593275`, 0.7047881602148591}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.813397459621556, 0.12320508075688774`}, { 2.813397459621556, 0.05249440263823301}, {2.8841081377402107`, 0.12320508075688774`}, {2.8487527986808834`, 0.1585604198162151}, { 2.813397459621556, 0.19391575887554247`}, {2.7426867815029015`, 0.12320508075688777`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.9866025403784437`, 0.2232050807568877}, { 3.0478397839480236`, 0.1878497416975604}, {2.9512472013191164`, 0.16196783718730828`}, {2.9383062490639906`, 0.21026412850176163`}, { 2.925365296808865, 0.2585604198162151}, {3.021957879437771, 0.2844423243264674}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.313397459621556, 0.7428203230275509}, { 3.313397459621556, 0.8135310011462056}, {3.3841081377402107`, 0.7428203230275509}, {3.3487527986808834`, 0.7074649839682235}, { 3.313397459621556, 0.6721096449088961}, {3.2426867815029015`, 0.7428203230275506}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.7, 0.9660254037844386}, {2.6387627564304204`, 1.001380742843766}, {2.664644660940673, 0.9047881602148592}, { 2.712940952255126, 0.9177291124699852}, {2.7612372435695796`, 0.9306700647251113}, {2.7353553390593275`, 1.027262647354018}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{2.9866025403784437`, 1.5088457268119893`}, { 3.0478397839480236`, 1.544201065871317}, {2.9512472013191164`, 1.570082970381569}, {2.9383062490639906`, 1.5217866790671155`}, { 2.9253652968088644`, 1.4734903877526622`}, {3.021957879437771, 1.4476084832424099`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.2, 1.632050807568877}, {3.1387627564304204`, 1.5966954685095498`}, {3.164644660940673, 1.6932880511384565`}, { 3.212940952255126, 1.6803470988833307`}, {3.2612372435695796`, 1.6674061466282044`}, {3.2353553390593275`, 1.5708135639992977`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.313397459621556, 0.9892304845413263}, { 3.313397459621556, 0.9185198064226716}, {3.3841081377402107`, 0.9892304845413263}, {3.3487527986808834`, 1.0245858236006538`}, { 3.313397459621556, 1.059941162659981}, {3.2426867815029015`, 0.9892304845413263}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.4866025403784437`, 1.0892304845413263`}, { 3.5478397839480236`, 1.053875145481999}, {3.4512472013191164`, 1.027993240971747}, {3.4383062490639906`, 1.0762895322862003`}, { 3.425365296808865, 1.1245858236006536`}, {3.521957879437771, 1.150467728110906}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.813397459621556, 1.6088457268119893`}, { 3.813397459621556, 1.6795564049306442`}, {3.8841081377402107`, 1.6088457268119893`}, {3.8487527986808834`, 1.573490387752662}, { 3.813397459621556, 1.5381350486933347`}, {3.7426867815029015`, 1.6088457268119893`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.2, 1.8320508075688773`}, {3.1387627564304204`, 1.8674061466282046`}, {3.164644660940673, 1.7708135639992977`}, { 3.212940952255126, 1.7837545162544237`}, {3.2612372435695796`, 1.7966954685095498`}, {3.2353553390593275`, 1.8932880511384567`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.4866025403784437`, 2.374871130596428}, { 3.5478397839480236`, 2.4102264696557554`}, {3.4512472013191164`, 2.4361083741660075`}, {3.4383062490639906`, 2.3878120828515543`}, { 3.4253652968088644`, 2.3395157915371008`}, {3.521957879437771, 2.3136338870268487`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.7, 2.498076211353316}, {3.6387627564304204`, 2.462720872293988}, {3.664644660940673, 2.5593134549228953`}, { 3.712940952255126, 2.546372502667769}, {3.7612372435695796`, 2.5334315504126432`}, {3.7353553390593275`, 2.4368389677837365`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.813397459621556, 1.855255888325765}, { 3.813397459621556, 1.7845452102071102`}, {3.8841081377402107`, 1.855255888325765}, {3.8487527986808834`, 1.8906112273850924`}, { 3.813397459621556, 1.9259665664444197`}, {3.7426867815029015`, 1.855255888325765}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.9866025403784437`, 1.955255888325765}, { 4.047839783948024, 1.9199005492664376`}, {3.9512472013191164`, 1.8940186447561855`}, {3.9383062490639906`, 1.9423149360706389`}, { 3.925365296808865, 1.9906112273850922`}, {4.021957879437771, 2.0164931318953445`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.313397459621556, 2.474871130596428}, { 4.313397459621556, 2.5455818087150828`}, {4.384108137740211, 2.474871130596428}, {4.348752798680883, 2.439515791537101}, { 4.313397459621556, 2.4041604524777735`}, {4.2426867815029015`, 2.4748711305964277`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.7, 2.698076211353316}, {3.6387627564304204`, 2.7334315504126434`}, {3.664644660940673, 2.6368389677837367`}, { 3.712940952255126, 2.6497799200388625`}, {3.7612372435695796`, 2.662720872293989}, {3.7353553390593275`, 2.7593134549228955`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.9866025403784437`, 3.240896534380867}, { 4.047839783948024, 3.276251873440194}, {3.9512472013191164`, 3.3021337779504463`}, {3.9383062490639906`, 3.2538374866359927`}, { 3.9253652968088644`, 3.2055411953215396`}, {4.021957879437771, 3.1796592908112875`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.2, 3.3641016151377547`}, {4.13876275643042, 3.3287462760784274`}, {4.164644660940673, 3.425338858707334}, { 4.212940952255126, 3.412397906452208}, {4.261237243569579, 3.399456954197082}, {4.2353553390593275`, 3.302864371568175}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.313397459621556, 2.721281292110204}, { 4.313397459621556, 2.650570613991549}, {4.384108137740211, 2.721281292110204}, {4.348752798680883, 2.756636631169531}, { 4.313397459621556, 2.7919919702288585`}, {4.2426867815029015`, 2.721281292110204}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.486602540378444, 2.8212812921102035`}, { 4.547839783948024, 2.785925953050876}, {4.451247201319116, 2.760044048540624}, {4.438306249063991, 2.8083403398550777`}, { 4.425365296808865, 2.8566366311695313`}, {4.521957879437771, 2.8825185356797833`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.813397459621556, 3.340896534380867}, { 4.813397459621556, 3.4116072124995216`}, {4.884108137740211, 3.340896534380867}, {4.848752798680883, 3.3055411953215397`}, { 4.813397459621556, 3.270185856262212}, {4.7426867815029015`, 3.3408965343808665`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.2, 0.1}, {3.1387627564304204`, 0.13535533905932737`}, {3.164644660940673, 0.03876275643042057}, { 3.212940952255126, 0.05170370868554661}, {3.2612372435695796`, 0.06464466094067264}, {3.2353553390593275`, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.4866025403784437`, 0.6428203230275508}, { 3.5478397839480236`, 0.6781756620868783}, {3.4512472013191164`, 0.7040575665971304}, {3.4383062490639906`, 0.6557612752826769}, { 3.4253652968088644`, 0.6074649839682236}, {3.521957879437771, 0.5815830794579714}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.7, 0.7660254037844386}, {3.6387627564304204`, 0.7306700647251112}, {3.664644660940673, 0.827262647354018}, { 3.712940952255126, 0.814321695098892}, {3.7612372435695796`, 0.8013807428437659}, {3.7353553390593275`, 0.7047881602148591}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.813397459621556, 0.12320508075688774`}, { 3.813397459621556, 0.05249440263823301}, {3.8841081377402107`, 0.12320508075688774`}, {3.8487527986808834`, 0.1585604198162151}, { 3.813397459621556, 0.19391575887554247`}, {3.7426867815029015`, 0.12320508075688777`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.9866025403784437`, 0.2232050807568877}, { 4.047839783948024, 0.1878497416975604}, {3.9512472013191164`, 0.16196783718730828`}, {3.9383062490639906`, 0.21026412850176163`}, { 3.925365296808865, 0.2585604198162151}, {4.021957879437771, 0.2844423243264674}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.313397459621556, 0.7428203230275509}, { 4.313397459621556, 0.8135310011462056}, {4.384108137740211, 0.7428203230275509}, {4.348752798680883, 0.7074649839682235}, { 4.313397459621556, 0.6721096449088961}, {4.2426867815029015`, 0.7428203230275506}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.7, 0.9660254037844386}, {3.6387627564304204`, 1.001380742843766}, {3.664644660940673, 0.9047881602148592}, { 3.712940952255126, 0.9177291124699852}, {3.7612372435695796`, 0.9306700647251113}, {3.7353553390593275`, 1.027262647354018}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{3.9866025403784437`, 1.5088457268119893`}, { 4.047839783948024, 1.544201065871317}, {3.9512472013191164`, 1.570082970381569}, {3.9383062490639906`, 1.5217866790671155`}, { 3.9253652968088644`, 1.4734903877526622`}, {4.021957879437771, 1.4476084832424099`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.2, 1.632050807568877}, {4.13876275643042, 1.5966954685095498`}, {4.164644660940673, 1.6932880511384565`}, { 4.212940952255126, 1.6803470988833307`}, {4.261237243569579, 1.6674061466282044`}, {4.2353553390593275`, 1.5708135639992977`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.313397459621556, 0.9892304845413263}, { 4.313397459621556, 0.9185198064226716}, {4.384108137740211, 0.9892304845413263}, {4.348752798680883, 1.0245858236006538`}, { 4.313397459621556, 1.059941162659981}, {4.2426867815029015`, 0.9892304845413263}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.486602540378444, 1.0892304845413263`}, { 4.547839783948024, 1.053875145481999}, {4.451247201319116, 1.027993240971747}, {4.438306249063991, 1.0762895322862003`}, { 4.425365296808865, 1.1245858236006536`}, {4.521957879437771, 1.150467728110906}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.813397459621556, 1.6088457268119893`}, { 4.813397459621556, 1.6795564049306442`}, {4.884108137740211, 1.6088457268119893`}, {4.848752798680883, 1.573490387752662}, { 4.813397459621556, 1.5381350486933347`}, {4.7426867815029015`, 1.6088457268119893`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.2, 1.8320508075688773`}, {4.13876275643042, 1.8674061466282046`}, {4.164644660940673, 1.7708135639992977`}, { 4.212940952255126, 1.7837545162544237`}, {4.261237243569579, 1.7966954685095498`}, {4.2353553390593275`, 1.8932880511384567`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.486602540378444, 2.374871130596428}, { 4.547839783948024, 2.4102264696557554`}, {4.451247201319116, 2.4361083741660075`}, {4.438306249063991, 2.3878120828515543`}, { 4.425365296808865, 2.3395157915371008`}, {4.521957879437771, 2.3136338870268487`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.7, 2.498076211353316}, {4.63876275643042, 2.462720872293988}, {4.664644660940673, 2.5593134549228953`}, { 4.712940952255126, 2.546372502667769}, {4.761237243569579, 2.5334315504126432`}, {4.7353553390593275`, 2.4368389677837365`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.813397459621556, 1.855255888325765}, { 4.813397459621556, 1.7845452102071102`}, {4.884108137740211, 1.855255888325765}, {4.848752798680883, 1.8906112273850924`}, { 4.813397459621556, 1.9259665664444197`}, {4.7426867815029015`, 1.855255888325765}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.986602540378444, 1.955255888325765}, { 5.047839783948024, 1.9199005492664376`}, {4.951247201319116, 1.8940186447561855`}, {4.938306249063991, 1.9423149360706389`}, { 4.925365296808865, 1.9906112273850922`}, {5.021957879437771, 2.0164931318953445`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{5.313397459621556, 2.474871130596428}, { 5.313397459621556, 2.5455818087150828`}, {5.384108137740211, 2.474871130596428}, {5.348752798680883, 2.439515791537101}, { 5.313397459621556, 2.4041604524777735`}, {5.2426867815029015`, 2.4748711305964277`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.7, 2.698076211353316}, {4.63876275643042, 2.7334315504126434`}, {4.664644660940673, 2.6368389677837367`}, { 4.712940952255126, 2.6497799200388625`}, {4.761237243569579, 2.662720872293989}, {4.7353553390593275`, 2.7593134549228955`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{4.986602540378444, 3.240896534380867}, { 5.047839783948024, 3.276251873440194}, {4.951247201319116, 3.3021337779504463`}, {4.938306249063991, 3.2538374866359927`}, { 4.925365296808865, 3.2055411953215396`}, {5.021957879437771, 3.1796592908112875`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{5.2, 3.3641016151377547`}, {5.13876275643042, 3.3287462760784274`}, {5.164644660940673, 3.425338858707334}, { 5.212940952255126, 3.412397906452208}, {5.261237243569579, 3.399456954197082}, {5.2353553390593275`, 3.302864371568175}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{5.313397459621556, 2.721281292110204}, { 5.313397459621556, 2.650570613991549}, {5.384108137740211, 2.721281292110204}, {5.348752798680883, 2.756636631169531}, { 5.313397459621556, 2.7919919702288585`}, {5.2426867815029015`, 2.721281292110204}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{5.486602540378444, 2.8212812921102035`}, { 5.547839783948024, 2.785925953050876}, {5.451247201319116, 2.760044048540624}, {5.438306249063991, 2.8083403398550777`}, { 5.425365296808865, 2.8566366311695313`}, {5.521957879437771, 2.8825185356797833`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{5.813397459621556, 3.340896534380867}, { 5.813397459621556, 3.4116072124995216`}, {5.884108137740211, 3.340896534380867}, {5.848752798680883, 3.3055411953215397`}, { 5.813397459621556, 3.270185856262212}, {5.7426867815029015`, 3.3408965343808665`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {Rational[1, 2], 0}, {1, 0}, { Rational[5, 4], Rational[1, 4] 3^Rational[1, 2]}, { Rational[3, 2], Rational[1, 2] 3^Rational[1, 2]}, { 1, Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[1, 4], Rational[1, 4] 3^Rational[1, 2]}}, {{0, 0}, {0.5, 0}, { 1, 0}, {1.25, 0.4330127018922193}, {1.5, 0.8660254037844386}, { 1, 0.8660254037844386}, {0.5, 0.8660254037844386}, {0.25, 0.4330127018922193}}], { {Thickness[Large], LineBox[{1, 3}], LineBox[{3, 5}], LineBox[{5, 7}], LineBox[{7, 1}]}, {Thickness[Tiny], LineBox[{3, 7}]}, {Thickness[Large], Dashing[{Small, Small}], LineBox[{2, 6, 4, 8, 2}]}}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Building the remaining point groups:", "Title"], Cell[CellGroupData[{ Cell["Defining a map from cartesian to oblique and back...", "Section"], Cell[BoxData[{ RowBox[{ RowBox[{"fromCartToOblique", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "3"}], "]"}], ",", FractionBox["2", RowBox[{" ", RowBox[{"3", " ", "GoldenRatio"}]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Sqrt", "[", RowBox[{"3", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fromObliqueToCart", "=", " ", RowBox[{"Inverse", "[", "fromCartToOblique", "]"}]}], ";"}]}], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"ObliqueLatticeMod", "[", "pt_", "]"}], ":=", " ", RowBox[{"(*", RowBox[{ "take", " ", "a", " ", "pattern", " ", "of", " ", "numbers", " ", "and", " ", "use", " ", "the", " ", "modulus", " ", "function", " ", "to", " ", "map", " ", "back"}], "*)"}], "\[IndentingNewLine]", RowBox[{"pt", "/.", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a_", "/;", RowBox[{"NumberQ", "[", "a", "]"}]}], ",", RowBox[{"b_", "/;", RowBox[{"NumberQ", "[", "b", "]"}]}]}], "}"}], "\[RuleDelayed]", " ", "\[IndentingNewLine]", RowBox[{"fromCartToOblique", ".", RowBox[{"Mod", "[", RowBox[{ RowBox[{"fromObliqueToCart", ".", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], ",", "1"}], "]"}]}]}], ")"}]}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ObliqueLatticeMod", "[", RowBox[{"{", RowBox[{"1.1", ",", "0.99"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.1`", ",", "0.9899999999999999`"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ An example of mapping back to the \"fundamental hexagonal cell\"\ \>", "Subsection"], Cell[CellGroupData[{ Cell["\<\ This shows that all points get mapped back---this is a demonstration that \ the function, at least, has proper behavior.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"ObliqueLatticeMod", "/@", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5000", ",", "2"}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[Large], PointBox[CompressedData[" 1:eJwUmnc01f8fxyUrSkUpKbQpMyOSniqVJFJCi4z4JooKDSUqlYYVSYqSEQ2U kb333pu73OFe7r2kaPh9fn/dc+6959x73+/X6/l8PM65ax0vHT0nKCAg8FBa QOD/j0fXlITKt0zAe9TG9WUNAzNno0aSOHTIXzAQOR6ZhRtbBNaXDnXAYKdK x8acZth/5wvY9hRgo1B0POVqGySdyaLsQhoqGPxzo5fIaKEtXes0zIJMfeLt qLQBKDoJHvw6wMR7+7tORbPd0PhqcendowmE3ThUUT7IhtGfM+dDHtYh/tyv wAVvOqFS4DCns3IUc7ILvetFufj324T2ND8XGWLf91cuTEeo5E2vNYe70a3T svQfyDhQ/2Aow6MYI8uX69JMu9Eh8pnzVZULAefWk0F+fBy9ZrXAdV8TFoud to56N4z+4uSJitNUqMZtpyzn8aGjm965XXUUgxoMT8aeUrwxuVdv3JSJwsZa 2UrfGkyrS8ubMzrhIBxWyGMMYN+F1bcTFpNQ/HDpzxH/CfQ/N4h4pTCKMt4e 0bmvVZB//7o33X0MRvVnJBqlSiDy035fpdE4XIvWrZop56CqqGfmoTIDH56u 2GVylQNn6wx3XX0GZLCyqluFi8gdLpKbKI0YzFj0o9mmF8e6uywP3uyGzP08 gYV32rC/aq+fjdYgdI5NtNhZMvHW6ez6s+FU8JyU58R8qZDcZGhb6UpF78NG UkL1axSpfTmUs46FcfkdlnELWLjKvdhYcIiPjCbZgPhkPiS8KthvsrhICJkd MljDgJD1+ek5vSGc/DdlOX2gCn4U6+sOR8YhG9Y00ryWj5GoGKfW9VxA7aJv ih0TjR92maWNj8LMSVbzLrcF1dv9zw4m8fE9953GNTIX04s6Lb/mj2N3dV9N 2zYefjtoL7qtwsSe5GM5LIuvWG8l12Qu3QpXdzNlHTIZSouF9DdN1kFA5VaZ /UYK/L5P2e3tYOBJrbW6RjoHs3bKgtHvabBpW7z8bVcf0iw26O4tGkbKjOZ6 gSNMOKfck289TIZjSrdpqXEv+HN7t1HKWMh9E1YePlmGGFndTh9qP4qHP5s3 FrajxJB/pHyIhPNKxfO3dA/h+KMWhZCfPdAsu5VAS+vAh6B5yq99x7Dk8MIJ Va82eMqdPpMbTULY85U3ViT34iEtxMi3dhTWpQe/B6bHQ/Kn0ZxMcS1UxESk B5OH8O5uQfXpBRw4+ukr3Vk1ifrRUM34jz1Is+2elR+sRFff1o5d87igae5N NnHjInPj75cyIhx0c9V0z7TSMdOjk7X6PhNCv1reRTdzcG9m78jqbOL7kivK kzfx8dztcZ/RJwY6ZW6XP1YuxVZOuFN3LA2X82OcjnkO4PPbJ5WeYn04se6H TrV4LliyrNLg+X34fmH6YEA2H19Ubxnv6GRA9GCil4oeCdmTUnUvu0ewsKR5 pz43HxXBgg5jIVQEnhcv1Glm4OXLfHKu8gjWvbONEWzKQV/BvUmy2SAqAtfa 1l2rxVhiY3MYuw3fPtw7/6O1Gh2LtYRaH5Ag4mn5qc+nFSfaK317k/shmUqh XA3l4Itj3ERILBeTs1VmJbY0jOlY3D6pRMU1Uxay74+ATdX2nPxBgqcL2faP KBlBUqkxxn792D7+Idt6CRvhi7YMdjdyYPLs0NcUJS7O+Auxo9VH0THGEdGa 3wX2i+VPmOV0ZJft/9Ely8FXqyBDYZ1xjJ53MRu8y4O3b0fp0BYWfnw5nL6y oRR7pQQlM+oZCI3N/RNP5J5dq6ryvuEB1Hw5sN+0lIKqI3J1g6ps1J01CClo 54LK911WF9oOBc7nZeL/2tEkcOeSQkk97pybf+XuiVrk87sWqU7z8WJIVvvY bx6sQvfL7rbgIjl38UBIIRPajz3Or75Agujm4P7kFXVYeTXq4OOafqgeFzge mk/DvN+hdzvJbXBVC7rjkDqKTdmlhc/MSZhNvq1zTnEUrM6Jod/zORiGjvdQ Iw2sLYf7+AZ9uKLBLTcn9sa+U4q1ToqFR4bbGFVP+dj+6uHkZiYPO/UCf5i3 cHG71cfVN74bW9dqDv2814bstK7sjKpuXDf8z1c8gYaa5Bsu538MYVvCn5Sp YxMYrbZO2W43hlebvH0XVTUgyYDT7kHpxkZXfb9WKw7+6JbM5htQ8fS5uplG AR/Wx56rnGtlwWNvnmfgah5m7qzKktlNgvLI/YlNR0mQigzQFEkhITfgQ+Dc Iy5aDC5KKH3uRHg41/VSLgVG6sryTsI0rOW6fxZf0o/VFTX7Nh1qhoXhDFu0 vw/eRvYBjy+2w1lq3wsl5VEY5nx70m7MwV2LfxefCPcg01xoPHdvDzyW6I3U NY6josruaO5eHpZYOhk0Z3LAjFJck/2ZhvSX/pLZzplYEX7u06vQLpzZPiE8 j9kI6clJ59+6w/BXjSxe7pMHwZzL++54UXH+uofC5xo+amPC59R9KfCecTxh qjCAbBdpt8qsRnz0b5GtkOjE3ZX/nUo5044PWlJTK3a2w9Om+P6aHwx4rrD+ TZUjQ8Gv1u75uQacCItQV25Nx20p+qbxbVRMqd/86fpxFMI55012mjPx+PDB Q2n6H2Cc77dQMocJwUPlZQvCm9Dhx06uLemGlNSiiJUV/59LQfERy1Esuu/w j7lmAjtl1VruEfegv10sfMqJh7tW937e51HAs6zZk+hPxgaf0+1G0W2gHDxa 5+nYC/c+/WeeH2m4csBwJjyJjKL/rOSvqFCx10Mh5v0/Hm6mxJj/4pGIPrGj xS4eRHaI/Fb2DSpEdSPjGw1q4bh7sHWFJgX2JJMMzQe18JFQSn6iQQWzWubP tkcZGN05P7Zw0QBsSjN6vW8MIDr2yqJ+dh9se9vEYoLIcNjyfJVJChUnOZus b+Teh85xrsz81h6QWrxDmn24+HUxOp5EJ16Xv++wI/YNorJdpuKaWFhn8P5o /ywPAZWXkj9mM9GhJBgg8bIIG21mNXezRlA4bLmz6mUG5PtsbixMZWHHwaTZ cD8SCtpirtjQSUg0tP8wf6Iee55cCds1PQJh1ozctwWjuOVmcfTecBdy/rzB fj06zlQXsizcezG9xLvqP+Y4CoPPvFCfrkajJYebx6zE6ganctspHl5b/P73 1mUSG4spy9Q+d+E0yTzVbqoR2epvPI7WcWGXcqNxKZFxSR2Lf9PfMlF/a/dz +cZmbLtwVCkggY+0edVX/hPloXQpp/KLdRvor8IWftKjYTJxeLAlsQ3RMquc Vy8rQZlFz3/sO814vi7P5A3xfEnt/DXcHVykPFn/W1N0Ej7SnLiflxj4aevW l+BGB/fv8fADQ3049eSbgvRjErpsH0n9PkvG+qfXnq26MoY37XmfXQ9TcFTf 0mHPZz6eLopW0z5Ag+uKsami68Tnda1+/lSXhSjatqt5XWxkNr/UKwgaQMER 6Zm7RznEnLqvbKnuwuH1mjKXZMqxf0YOnQtpkLU/vvsJwUUbx5p3HU6n4lLL v/l+kyPYoei0dKaJCVfKO8stHzrQkl8qWPeEhq59zi1tKym42Ko36uTQBd1s 1JlO0zH+J2JD3Bk6HhnVOI8aD8G+PF9mixcZV16YSudfpUL9Y4GXMqUMd3ZE vZ6c9xrqvl5Lr1CJ8w3bqfSXWoUjXyRtzsWO4giluHJZ3SiWirhvNXcdxtmE FAPptWSQt++SNXpOR+jRmBXShmM4dfpPTsGzUSwQ1/a3t+Lj49Dj4HjBcaj3 9gke3jyO2dCsfepvaejbKbyVEsGCNl3+qKR4OwolK+sVSijYNM5wSTHoQqz7 orIl6waxkaF//OkZCtpLA5RTjnFwaKgien4ukYOkoykJc2QIif2sO8Il8tFL 4Y69OA1L/njF4gALRrTle279YGFfnfBrKWU2BB98endGi+A8WtRZGSJH+FJu y09OjkJm99C419JapNwoTrOZbgFzrbC7VH8jBEqCpHmqCbhqqmoT6twCPeQt JMIEMVtJLlcGaShvD1Y7Mq8H56wq6bKlNIQdP3U+XLMfSSd1r5PnU/Di5mEx fwuiNxYeC9tCYuHnkqgFNf7j0BOxep21noQX251ajE264XVfYGvpMQrcpMv8 VXL4EG60OqF2Zwi3Pu5feGMTA9HeRnJOJRxskJkoHFGZRJrvtW3bvnbDM9/5 z8MFbOgy9A5SlbuxoNBc5U1yPT6pzVKfHmrBwaHdZxfUNEJRfP/ze/5MFAwo +5sTvMwte5kf+4WE96x3IdSVAzBKDJbe7EzwONl1XWZwCyw7vGj6paNokZdi uFeNQrD2XuDbL/3YVDVgPUH0gvmjma0/brZhUqmnsLSZCVPd9lchSWOgn4lb tuBBGfKSyQZrj7Dh6vfUr3FbOxqMDi2Y9iSD553/33pVb1ybydgQReLjUKxe lvgvPnyDr7pR1o5gcsT9p+AwFaY3xlyF6oegydRpKMxnYSo57cyj51TIymX3 OgjnImVpWvhrIi953K0vthgMQ0qo60YOrx/Shaaq1zM40GqSlpt/txQakxFD Qhm3ofMq90xtCRka9cL7fseykPnpct7htWxM5J1UHyXmKuJGhHKNCg1ztUrq 7hEVCK3eu6Q1ZxTj1hvDk+8S3qO+5G9fay9q3x6a/HW3GlzeoZjyI5/x/aBv zqhrLmJyXXtfK/XD6N/azpsptThf6LvhtRwVtLnnM8tCOjCycJcz/0wb0dvm 1p9TyhDU3jg4GUr0zpGtL/NOT0IhPKimr5aLrct+FsVJ8qBEtsv0ud6FFp8R LxcBOhpfmrubrujBKO+hoVjKCGytZq888+NAbErW56/xBFZUhMdt2dyG7SeT FnmCCZO/u6ePu3KRtDCmzewRFeFB/R+biD0TYt4LPhHDQIHq9GHL6DGcH9is 0u00CaGZ4/LGEZUoML0nLc8vxMuwK1fXi7ciMjR2SuhpNS7cuhYh3sFFl9GC 44L7+egIlD70bBcDYS/VM98Jd+HHfoH5lPkjUI9N+XH2CxmWdm4KU48ocCyL L9+g/hWlsypOnPc86HfGe2kbTeCfyNlM9oNufOoW3OoY2IbdL9U/9S/vxOSw dMq3UwPo+lF1aJ/cCL4svW0TYEDk/a3pJwyLeuxQYxuKTL+G8sZ5ndPP6Cih /+LKsoneWvg8bF8pkT/2jx9w69JBF+pNCN1VB6eGN6qTfwaxSralOFWLjoTs m5ymfYNgmBgxFp3lYN2gZN/i31yEyb3bM5hExeSn2z56+STcmFqFn91U6PX1 STnuo6MhadGtC6lMPNAqCRZQJeOaPGV7E8GleStEzm88zMHGJUHbpBf2w5cW 3OXsScfnwC7KImE+2owLhJJ4PCxY8OLg62w67Jcb6vanDcGJ5Shy068QzqsP 3F/Cb0FgmXP1ekUOIg61L+5wZWJ35bMs05c8MCpupG4w58PdIVGrs/EDZrdU ljptica3VVnagt0sLMzq1ZyxHsFnwdsXO8x5oC0oCDxPI3xT/KXvCeL8O1RO 3232oUMt485hiTni+6+Lbbr1pBMaP/PdvO4O4cvuB/NO7qdD/mdM9YUnE/iW cpGecJOCJvnKGcn4cYSclzOwOzEC+aWpD6q1OpCX8mNhXCkHIo6NjVfi6Gj7 senenWNMzPpYum92ZmNg5aT4Gb828Cr8LMtju1FjkWNtUDyBl96/FtUsGsTR rTUrztb5w0Wjt9X7JxVnSMHSSTvKsOt4n6tk+Tii8rIdJfNHUW03/7Jd7jCO pD9NLt1EQ1axi8Dak1wc32PNv03w9avwlZz/DKkItd6+rvVjIxoe6qoukO9H zElJujSZjcXbZ/Q+Efmc7BDw6ZI4H8OPL4ck65BhtmM0YXh+LeZF8YSeN5EQ K0H+tYnwzsCMJ3/T1jGh5Shy+r01G6NCuefsiJ7t73+ufMe2BfvzzIWKXPsw dsLgevW+YTgV6Jxe++Qr0r+f4X0YbMDOzyj9qT8EryTHA7n/557jd6w393ZD rsybZKSUCZcLAdfH2idwtbL84/6VfKxWumwTu20cNTHC4T5kEoLUtmxYnziE TcG/o0upPIj2WRd2fCbjwdSj6pkjZLATj255wxlF0/P3rV9aRiBptkxs/gcm 1hVf8BTkVCCQda8071s/llw8/bnqcBdu31teLaRPh3pBn0d8EgNLGL113c1U ZPKDr+EHFYsWOxcnlIxjpZxgqFIuGzE7AucN9TEhuz9rY2hrH/7rTro5XcxE O+mr4CYhNhwckpLIWd2oXlaU+6R2GN8WRlSs3jkBhUXTi9+uoML1TPmrstYx KOYMy3WntOLm0+d9KeIs4l73ufsTuXBCvoh6eozwVYW+p1xiH4ZO4/ZPPzpa RbvkXt+egHxz4HZ1WTbmngnNyao14FoivTo9nIKK4SMKEmGTOGqpFTxZRcK0 dLn6219jkE/x7ExMIHqJbxRnPkpFVJwwqn9OoND/U2zEJgp2PRW7U11Nhce+ kCuSaRT8Y7el/FBigOQ1YOz0iwT6rXW6qd9pMMmm7vjBKUegv6xDWOYIVu76 mBXsPwYziQ2NL6MG4JZjTad+68WVh9rx/q9r0PjMVuFw1zCu2ztP9iXRsbFU s8vlVw1c3gaWtst2YUN04V+VvSREfRKqPf29AhMa/1ra21rhMfdByN+Bj57+ c9/YuXwY2KrHvrJhQecAUyQnlQ92mbeacc5XnIm8KvBLrQRO9ReU750dRuZj bs/vMRYCX9jnSm+h4XD3TUO2bB9SUrOVbPrrsOyUXG7gTBrm5KNod77SkToT KXo9k4u/p+cXnzw7ArlzTdMv17Qg8ptN4kfTAVgcTEhfNlYFLb3YZyZiIxhY IH0hTb4TrF2OliOLR1BwOGrvegUe9IKj5/qWtaDiQqltkfMxrNd5K2JFcPXb zK2OWV08aL9601qo2IYMk76xivc96GG2FouO0HEld028kMA4nrrsp+2aT0VS rntWY2UvsqKWPV2rPYzAiPjsZVE8KHaesHdfyUWnMMsoUIyHpY5GAmuIvv+h fa5HlcjzINIV/6TOGuz4kb/WfSwRH37K/WWyxpBx46zEUkUmIgfNp6kfxzH5 +WTZPhESQn937+yhDOJSz2DFsz9kvPr05nrz6m4oBnYtPk8iY9XyCbOFG+h4 2MVZ5GPGx4DYsNFdYq8mfFfMLRroRXSUd0EIhwUWf8Vj/fUTcOn6EN8j0w6B bq24qwSf6StUnCjtGcf8NVMz1n00CP0L82izYuC7eb/Vz6NcmMXLZH8k+E/0 zUeLXQ/4WP/GQTuf6GlGX4fH2j3EuSpEa8/WUGCan1sbxGlEpttObQe1UazQ UbnXHVWGaqez/WKEv7MaG6SsTg1h/9n3J7NtJxD5qfsXn/A3cdEvS7d94UBd +npurDwHVQ7OaszeXhh5ng7fF1AMKaVnO16akyEnPHJPa0c/9hSHxWTLDKO2 93x/4BOCM3K8M000e5G+2vz24ZkRuLfdj11u1opmv8opdn8V9kW8bDCuHsaB y/vTpR5M4m7jSLe4HwNcr+xrDkNUVFZ9UPX4xkPsQ8NumVoeNO51vqOMsJF0 ISXBVnQIRQU65v8ejiPSf+WqiXQ6eAmjvnnKDLQ1RT+N/TmCkmbBrNhD/WDN PTKJSqWh6s+dRntRLlam7Wp74sYHZebJgOv2CTj1zgZ/USA8fbY0QZNUif4/ O3JdzUrgeUXMcdUhBtaO1I1+W9mJ2bezwf43R5GykjNlXdENrsGe/bqpE6ju qfhWGMXCyqehg86THMwJmFadv0TG1HzH68VD3fA+8ud3iFcv9qZcyJ2XQQHX h356izQV74+9J+98x4WMqlz7PHMmTis8Wn9FmYqquK2ZfIURLEi1l/9K+L9/ e+E6y2M9uN/S4S/FG4HW8v1V3w9R8XDevIOnLHqQ/ibZfq3pZ+heG3+UHdSF W1ZiH3zkhlB2msOYSxuDwq84u/0KFCSI5L0aT6Vj8apvzPDSbgwJ86I0U9mY Fsn70uHOg+kR2fpNWQWw71xRVd5ViU2D0ngZyIDpajLjxt0xTPlvW/GxmI7v Ap5rjUFB+anqbwt0SHir8iY4/tww9qccYtxoGoANu+NSwnweRlsjSe8MJuCh fcxakMhdG7mFarviBiGxwf1U/MlxuL1fN0klfGnJ39zVZ+Y4uOMzav3Gbgzt MpSAnCEaqBo/Guxb2GCIsIW11fjwE5fcY2ZbiWcJF/zVtEoQ92TVwZ3PGOBX GWx4+qwPHvdkNnfZkeE43GlTO0fsZ+fv1suWTDQ4VTrKc3k4zXbzu3+LDqro 3szRG30oXC998MjF7+i8u/nuZ4kwTJssKgvPpmDxvpLdq6rouNrgv/L7GiYS 1XNu2S8ehZRE27zoVyTYRz08Uyf7BJIvJt8YVpIRdkx7tHKKSXiSjccyKjGP caKe9IRBxN0prJo9yILwnenahs2daMkJ4X1K7YecwYTpnY88dGCvX8qbUXCn t7UGEXkyXRopJZA0gred70wiNwyD3TkRHKHYjVht8qOvDC4u+FE6Bg1ZKPml v3rNWBfyhMaCHAmfalO3qthDHwZj1Q2vVMNh6C+2Ch52ZMLsP+sT5emdsF2o V+nt14Ob0z7alV40VCyKyPd/OoTo516fXZa2Im3DK9cNaQN4njm37nhNG+Yi drIsD4bBfITjzfvCgEt4B82TyHW71jshNC0mhijr0vyau1GnQvEMIDy0U0/v 8uVZJpY6bd3fZkfCuIb03pbCYSRmKvMeNYyA+3Ju9JRPD/SP7OmplWMR+fYn 8aLfW7SYGwgHnafiN23w2+sKLty6PrS3xVMh3esi4rKMge2/7Corr4xi4RHL B8tCeXjHu7QmgshRueCGpbayPLjNivv8kSH2Uf3umVrnbIRdEv6k/50JCafJ Gydt+DA9uEtMguDTmjW9lya+EnnZll4psrkbFh5XewaeF2P2Srh2fgQHGfZK 24tuc/GZebvIeHgE8xQyL3UVfUGgd+7dPQ8Z+BqnIGysM0L83pg61UVjKGfd 3yQtzcN0fcjw4qdjYD28WMS4zUKQ5qtnnirdaK9a+WEibwRJbbq7FkSzgeHI 89cOcGCsXDRssqoRsVLyeyM1enDE62qSvlIvvitbfec786Ene6L5Wt0I8s/U 7HyEJtDf7DP7fJACr1PlWZeKWuGsHCsi6kPG4s96754+ncBfMwuxs2dJML4X etHvHw8/JfUkLlb0494WQU9ppY84u+Pe4j3JlSj5GZTiENOBhcwSMxsNGoxa z1/SIeZPYuGQpsgagn92tNc9jKoBu/fvO2HXdmSt2TPWrjcKjempga/TxL4/ qRmasCvDP1OVyX1JFJwb9rlf9OEk3q+eGTd7M4ES/NlkGsWHgK1P/4huJ2SC uB1e2V0Ynjrkln+4B1PVukohRF8JruvZ5bKOBfGG8o17fhB8eceWfDKvA2IZ HvpX/rTAQc769XUjHkw8yLN/7vKxMcLydkBjE5L+7tHl3CRhz/O4N+s8hjB/ 6zH5KhUyNoUudOq+M4yy54Wbt16moaT8AsPSpwQovnyUndUJ74ydJ2WI/n08 an/94n0qRO9Uywds5sKzuf/Gze7/+0bHO8E8MlpZGXt1gployTrlbvCqESPe JUs1S3rxsURtfEMIGc/7UyyirzxE/KLRc9sHB5D33fpN9kANPqtbRIUqsfBp 76WwtRpD0Go0u6hgzECAZYxSrEMB7vz4+EqjqxftsvY5Wic40L3xgmn8kYUM +vy5hhXpULx4+6nWjhFsV6r87+QEkQeFbFaQF+HXWmUua1WZUBO8yvfUoyA1 QiRjmNgvsbpBWwmTeoSe7+u7e7gbOQqX/pv52o2EyKbHVwbzUNik0x+2MgFB MdUPg09nw4RZLGqlQsPECbdVxSPtOOIwR/10loK4y822j1d04E+Z3T7unkZ8 LhS+9KGCChPt1292SozD/EGSx39BHKRzizdSrvZD1+nNnx/GhHdaOBnExrSi 7dhsXmE3A1G3I62CS4fgL+fJK/QcwJ5nOk4vbQdQsvFm7SmC4z89P7XvnFMP OJFbzqXf7kPPuj1r9p+vxO3wxUX9gUW4fNxAJHZ8EFI/lH23P5qEmdsDb+s2 PmZkOxu3HeDj4zudsh1FY1B9ZJzJWteNLRt36BrtpmN+YNCCLqKXg4+LUxR+ pSOcIpBicbAUYeHgjD5lEnwrt75iAw/hF2UUf6jSoVxmaSRWSYFnS6i6BXEf N2vcUhvcubBZurrbYdUErphvb6ga4eG8+AMz3ud+HA2xscpty8K30sJT69So CIn6leIRMYwb6+dS2xJHQRF3W/GhcRi/dtReoswnYdlzr6u6p1jQ3zMe7uA4 hBt2TW/SxaMxtOfSZGDRIIoEO0Wn5NNRdOxj1I/rLUgQTmX8sqtCn/XWA5sE ePhwN2R+kdAYJD+6b/yzqhc28fyAs+kcHB0XrQiMYaDre+K+Z7K9uBRjvPnt pi7QcnplJEjdMPv33edVZw9sWyNO8m5ycUPsYd4WrQG8mCrZuJnwkAPPbJas EyW84/PAhooEJqgbTKk7r48idgNzRjKrEZrkJoOW1yOYNiRLv3jMQoxvtuea BC6+STc96n/JxY7Xg1u0N7VDsTbt+9dxoh8YpZduJtOQueQtZ+6aB7xXLp0s jGTDtp9mb3dvElX661IutvJRO8RYbXKSB8knDd7XVdiIqz7fZHOXiktW9w+m f6Ui/ch4uqdBI9hRd07qxrYjd6flGg2C16pmlj8SbGpF+74Hjf9k6VjysHD/ ZfV+XA1n7k79Pgbtmwcj9U8z8e2P2joe0RsexosPG74ZgfTHS9FxlzkY5oTG CfMGcapOQ3F2bwuef9B9Vp1LwYcfjZfObh1EfXVuyMrYVuj6eX23yyZhNZkl +Ue7CY4WXDd+WQOOt9JNhAnfbhj4NRf6hAFW5Lagie8kOEYbbdH5RcUyRkLD Br963Dmy+F+7exvO60/67yD2/euqsl8CJ0bwvsWiNnuoHXc2jA06v+uD1etP O3xv9GOzXlMA5Vk/djj/0nxv2ouBq7OMLzYDqDhXorC/kvCjJSnh23+yQP68 ZV/oRRp2hviw7QLeIslNro2e2ImHPZ6DotfbsVMkLty5nQXFiZvXrUP6sFP9 0Z9joYPY/+TtkqXkClh3ub8u3sfC3B7h2VKCa9M1CtlaZoNIGV6acv9dDbZ/ 81WyUqFg3skw/gvHSezMGrxsEtuIbW9Z4s/UW1Cu0VvRdZ2K4bjxHbuOtGO+ 8Vv981QOGtVPLjAUmIT/QGuk5gMyUiN9jW3XEX1qW/ZCYhkHq8RWHFxO5eHX vUWhHn1f8cEh8drQ2yJkvpS1jHnYi0lh85jUc2w4jWoNrO9n4erpnVpZy9px +86d6GyrMcy5yYtMna5DsCtTrESQyNstouJhVDrEXbtOFL2nQ2l+hMawLw9a X1beLCfOs8Tq2GN2Sim07niphFgzYWARaa/Bjsd18xIRzehqiLVufsEuJfp3 pXaw2eMR6Py7df3iGxq6xu/InrhAhue1VfLvV41hZ4lKcdItGr4sZGttm8eB NOvuXvuqPgRQrqx4bMvF1X2/o7sKJpDTk1pzQJiEJo+9L7OJPTHINQy9S+dh 287vvxY8IWMuL5AWW14Ifn1o8OU5FtyyMvd13aqC1AmXqdU+9Tjl/K6lw6YF P3UT4sqfTcA39yvLyZPg6og9maQPDGhsDxbWlSS8+blByq6+ZjwytF7038ls Yu7Uwlaxh3GYPlvXQ/i0l94jKYm/3ciY9ye9rHwcOru5tnPMNrTl31xtKMEk 5uW7iMhXEtjBxtmHv5TBtnzzivT7BFfkvNgdqsTHyXP3nmnPdoKXab4/zZkB /dM3k5tayWhneO421ByFoLX3s2/9vbhKpx2fKBzBvbipxGVKZLw55JayK7oQ 7b4i3nGMNpQvqBhzLHgOIeWfNewNNPjP3lUe/s2G6VT/gtBBGnpFol5V1/Eg VLtrRVIRHXeCHq0uGm3CruteV5fp9ODlN+HddeY0hH2Y29DXTsbdnR/2vnrw EaOcKi8Xf4Lv5a9MPqhOhcOU8vlNx0kQ6W7IWxHZjWNfP5wOvs7FXPLp3g+O XIxk3paX1R1Fo0hkXqJkF446hlnZ6VFxSIX2r3otF9taPFYnVnJwL0kkxm8f H7qLP6mGbGBAeb3BuqwFk2jIv7Xo4Dsiz6d3dBcSfKCTK9F+ZJYOz70qSz5E lxK+oBNjfqwfkZTNRWLynVj+2qCzYWIM29TLsk7EUiHuHF78cbgCcwr5uw+q fcFJ5llf5Qs06P79YlFQPgLZ6MmPybVsZFhP8S/r0xBBDb/Zm8jA3E62g8bp JCy+kk/haJKxYAtlp/t1BixLteQ8Lg5D8bW2gY4BH4+ybkRVxnMxnD2tfFuT Czn9BxxJXRJMzvJK9L8MQjz7C+294wDK1RTj6LKj2K/J33lMbwAKbimHzmMU VVENC3kyfIhFLFgVYc/HLyQy1N/XYWxilxIjvRu15PoefTM2ZFYlSFncJ6G2 qkKNc20Cnqoy3eXH2ChMshLY8Z6NRh4poSm8D1fX5pmQXNoQ076Ed1a2Fh0R HpPhinVQqLKMp2t0oH91wHMfYl8VNZcM9yQPIPb0P53RR4Nw/y/Q1X3PJHKf lsY3qXGgVXz8066fJNRY9js/GeBD8IxL6gaC7zOyldui9am4vkMoNeXaJNJD ClVfEM/nLncqTTDkwsmXwWIMsFFCqx+MNqdjrKIu2ZfwEQFrK1GX1Gb8fTQe YbSsFRcFjqtSrFrwV2l8wRdjLgq4i05Prp/EX50dl4dP9qH21qfYeUeaEOSr ts0zZRTed+kFXNk+aPVurvMObQWrsDSkeicJ3pvqFc3TaDBdEdxcQXBF+9ro aGZVOhROV6h8JWXj+rv4Fz/esGHhL/Jb1IyL4FC+Kfs4F+kzEuVTf8cRqPHD aXo9G19GGkwiu0bQI6Nt7DzUAyv3Vsc/Lym4zby39PXgKDK7js9EDvXi9HLe 435ZBt67RRQZ1YxhaU1/rlg7BX5Rcd8lUilwK/vrcKBlAMvCZK7VGH/Gg2MV CX+JvQtZlCx/hkLweuNrPf06Nl7JdXqsGSP2w/W46zH+KA6VWvivn26Dm5tC l3wOHbHD8SseJX1DVCqqd6j24PJD2eBndC48qjLCDwtTsEK0VCOiiYFD+RHL 52VxcJ33k9atw8WXHFbiRjsK2OEvvuTebsLVL10pCVrjoHS33tZzZeGfrco7 Q6LfJx02HlHyIPi94MNHAVcyriTfehLtO4p3h7iznWZMKKmSpLWSx2Bn6j6P r8DCDO/x5OjRSXj1364wC2fixe2/h16/p2C8qvax5UMySuJTosOIHNTe4nAy QpLw9xYFddr4MDqMjMNURVngWTNam5oG4JToJBbMYeHzFzmjuYhxOG6N7xqp Y8H23PLeh0lcxO8V+9H6kIuA/SayKzdwIXD19jeqOAnJw+rh9bYMeNhvf/X+ +QBeBf41i0kohozbodhbn1rwNNvjdbN3Lm4r5khlWA2hda34d+YvPpYsdTZi Lm7FXH6U449PDILHO9WCs8ehWxyZn9nHxpFqh3drqf0wWbHhqdktHviVP2w4 QSMI99/52FiIguCnB37+udkP+yeH8+31WJh9YSYm70eHj9jGl81L2Tgmc7Xg YDMdjfcldP6qD8P0QLNWiSIFLMZMr5EWGf2OLQvHk4ZxqK0uI/TYOAZcXy0L FaFDouR6ohOXiyVydo2+fC7uc299i1jIxYBff70ck44uu8cB/TPjUKyvu28z xsCN7WfT2AOZiPbhjn0fISM01mVhr0EvymxaeiPs8uCbRlsxtzkfe2vOlQsw 6OA6fnlsNcJHyGu9FrcjNVAUuCHHUSVyMtJf5qQXGUvLYvqWXSD8mKs0v53g yYx578i2tUx0X7cw6ollIWUxu9k+bBKtAp1+vtt48OjXzh+v4SNQon/A1Kgf J6YHPvSPc+A+tGoD88YIjjH8JW8TXPB6wyvTg8cp6Dk/+3JXWx0kS44/UTw5 hEeSF+2MuDQY77+RaTbRjVCq1+9C5zos+moxdOInDZQT5bcLLYbw5ODhzo08 wiO/ddU6ehbAK7v25FdyDgTytn6WO1SBqd57nts9mvAtdcJs8zTBDcLCz5hV HLRpUVQrV1Pw0zi7dkMOCTNrkkY3O03C8kfrGOdTNzQdRHQsRRlYcY9jfW4b CR7bFM+a7CY4rlPBUPTdGPhxT7QO/BmEvucyk3AhMkKOFf2ttXqHbxkR/u7M WDgm1lm79nxBdn+VcnIGG59vBxe89ZpATUzjnwCCO6423x18sICDf/YD45uV +7GqXVEoOozw2I1znOvnWVB4rZYQfXkYGxdYvNg62ocobzkH4d80iB3gck1q R0EOKIvuvkBFgN/pA4ZEHtwYqDnjNfUdwuEB+ZWWORha0nD1yto6ZP4NOSsr UAOSV5OHW0ELrh0tuLpjcgznBtUUIpfTcEQ98ksrbQyX2D/4mX+ZaC5Xfk8z IaO5L7F1n1EvdKUeLeJeK8Ym121vxZQqoSe6fqCDTIa87sv34+rd6HqfoKNc SIHyufK0vM8MJF9aWCB0mg6tiIXSTzeW48ElkZsMgid/bY7RiNvNx1LveY6u ETzo21Uamv/kwd10/sG7rkR/1vdeefSUyB2B5CWV+2moOR7wefZsK65fvum9 TpGEwJdJjL+fCiCveOb7zwIyLDYVWkSadSFKSUMm6tIQyjJsKzoLCb+0ql2m 0Ufs7SbFYFf9MdAscq4Ft7KQ9PrAJfMtNZi6dnBh998WDFbuPGD3uwVrPMKD Yl8S+fb6Ypy0FgkTJgedsnYNQ0i/jfafSyeqLEwq//xkg5V251BnHAeCU4OZ mnI0XDR0Ca1Xi4XLX+N2C+Mi7Ko9FecpUQCNH3viN7uRkcDMsDl+no2pk/+O 3Gtl4uuC7ibRORKk2OkpaZqdyFZ7rn/XrwyTNbfjWEPD6OtJvDlDLcGFgR2a 10TqIaqufzw6moxMdvqL6uoh8NdHLVRRH8OK0y+MWY0T0NCwpm1aTkfpGTHa 6u4x/Nj4ZRNvPg9Wd7f8iLRoh8oS0a0RZztgNJu5Z/E5KlQkTptIzRD3Elh5 6lMYHYEtDqQBr49Q31FTtF2wF1e2dn0wmuXBOMueYunej7f/KA8Dslrx0i85 7GIVGdEvFF7qqvJxYeu6Ic2jEzDtdQqvNOWC7f9wf4pnC3irBb7UZzfCTFhY s05mAh3k7VPlRG5tCbgmeSSSCjLZ2uP8WC3ajkie9OV34PuaoSiuHBk5t0UO LIsYQpSppOPV1ZPY4/jVvi6nHz5CHQbniJ7dUbjAtNm+DR2f2RGs7hq8CV/s 08RmImJHefVxwqvWtFaUBr5iIqTDIy6jqx4BhelhVn3V0JtUck4bHYGQwBk5 rfODOL6gV43+bwwuDkabI4x5uJYkKF1mw0VSxtGetFcDaHbnvS8lzvnOUNPX YKkhaP4suR/0kQv62oyLW8zLILH5yOl/ESVYVf/rsyK5F6bsRLPtP5lwP3Hg oO1mJqJXaRSdesVF6MecCROivxmbizY472iF3callRfGBmCU0fhLq6sSx/zm LRQnfOXy987FR5zGsFbR8f4XXw4qVHUygtz4kLih+Ulw6Tgs8is5fMKDonfq JnnerIBjpFrD45IaiDx8PFZ8kQ01EVozfpBg23Rmg38OGx6U7WdK+ugw9toW mP2aDRstjfWai9nw3fDx9zqFYcxfktfaFcWH+y6f3St+UZB93r926XLinhxq 0safT+BqicapDwf4cKk6ff/WfyQsFT3mkaVNh/aw2PUE82EkJhda2v/hoq5t zZYjr9txxPBC0393G/H70fLFmzupBD8PueXvKMLo7TvLuyaHcWEpFu926IDb JUU3OpOKxnid3W6uTIQLJdJPyRPcPz04Wqdeigq53RsvtbOhnenb9LuDA7mu pBWviL6kZa6+4OVLxdc/4ZkeT0lIDepT9ncfxht1XQfLfa1oqz58UKqEBtuv cX369F481fibdf7CBOzNVi7f/J0J8YZXx0JLeTCxK9TUJnIgSVB+d+PFNgSG HaPFNbRBbHWHJZ+4v60WL8mFZ+mQMQ7OmV7bBkvxZzqXbEcgSi4iM+ZNEvxF fvFVrAFLE0brFkwOofointyy7kDSqmaf5coDaBBPSXRPo0DF4b+KWIJr+pir BYrn92Jono2OaHAbvpX0qUUWkrDv/B07P4JbXly6f3/1rl50cUzi/njQICKu JOW7twznfysmj3h2QeY0/W3ZIAtXEopV44gcTqRk0STT6aBAXW8h0YMfBzYJ nkklIV/Ra3BUfxJHDVxOUA5S4bbo14/A7xRUiXO8Vu9gQGZ1+rJzcXxcW1ju oUX4sMSGVNKuQ0xIlH5tu3WJuN+1TW9au5vwz8XN0+YXA96z5Pl7B8ZxTWlk rE54FPONT9sXvSRD9cGJufVVFLhMvdFla/bin0VcoCprCGckhUvF5hpRIEJ1 EJgdw0PNnuud0pOoE5Uukt9Owu5Vv7ZQfxOcopB1zIng3NGoK3qqSpNQHJCh Kt/pgOr9d/nn9g7hHKWLbqg4hlPDMm0fX3aBe3CrR+qSEei9a04rza7Bfan5 TYMf2jBB1UlwXzaK/sId1fIyIwhWD1XpTulBz29ukLpbB9qNlVfdFOnF7SuL vOMSGKhp+l3UsYcPNxHT4rgH1chJ/Xb2oEkZkuQf6BpcY0FTkuXnl9UPK+dv xaoCDMTvtlA5FTeGOnn3Q7NeFDyq5RQE87j4WM+r89dmwf5Bs9Qp3XHEnxxZ vWf1EES1pNy1nPphfM43NDh1DNt/SWyXP0qGsdCm7fsPdkIjUeNpEbEXOslH vTsdGaiL9Jd0yiP4OsWwPWqGgs77488rqRO4mHmmPJfwntrEkkmnBSRo1Ot/ nDzZi35NVnDQwQZkRFhXNMZ34ffXaJPs3s9Y95gWOMWtQ7Jud8ht12YclzSM mMimo+W72+Zl/B7EvY5//4rHxt4de+UUW4gc8XZ2X6s+BNas0JR3CBMjiy6v 9Mpqh6Ic6b9eZQZs581qx8wRnt8S2CRp2w7d6DwIarNx6KZBbG7OEJLzfQRP TY8jK+dR5eELo7BTOLHosDgVnI4VOmlrRrGx2+n1Fw0SVrb3Hfn5phKrUl1M 3ldzsNbvlPZc7yAurgk8qVdPh79ao8pTDnG/a6fT9oYQ85J/+dnWNj4qcoS+ aMn0YLO0Hl82hovMs/nezYNjWNBqWrhuionUfze0Lnkz8axb8ZZV8zcsjPvg 05/NwObbzd8kwik4+WyV+qk8Jg5Q9d++Oj6A977KKv//f87jkMKQL8T8OTe7 GicdbcNKBV3+V5Ux7KQsfmh5nwWzDZFeBQvTMRNY3/3v2QhW1ivJ5xlxseXP FsPDRmNIUUpLvCjFI7zhiOtF9zZIDZSlVfLJuHq3+ud3dTJMDhvMdJyqgnFH usYqpxbM6d+q3i9YjY+yl5zf7hlH5q5jxX1DXEzLnnpm5MPAuV/SjbwXw6hh PLE8cpEKrdd/Jg90Ep9bqaZCru/HgHK8RjvRN/vTW06e9WDiqNjOjzVne7Bu RtXbV6kRF65WPM0I6cLEd8kC70MsdE7l+Dk9K8V1WdcV4gHDcPzySVHyKgls wSshJWEcxIRY13Vu6cfRuVV1fo1kZHyq3hD2ioTVX04IjWRR0a2zVC34Hx3h 5+/7xrtQMVus29A/PIqEVZelC7RocF+2+LFmVyu2RO26ceEaF3NWWqKkrRMI vSQvml00CKfau1Kn1TlYV+vX8j5iDErPpdbT6XyMHj6TSk8dhcIvU+upGD5s b5ZVv2/vBPuoN0kpgAR/2XEd52Quket/NGcYbMxTGalYmU3ClCJb/cxJNooP 5ZrKxHTAi3VsoOzSKMxZxiOGW8phoOX7zSipAQHfpt4V6VUi1fp0RPXOMuj1 /7vjvYuL8t5Dn66l8SETdPGiRQ0N8+Pq7m753Q5pe2mZAII/lMak3Q2oxN5H SJ2+bzYBz2Wjtv2ENznvuxAyPMLD1+vkYzcu8nCmyfDpC8YI7s535pBIfPjn T+6eDuGh6IbhyeJwHmpaFd+vPkZHq1YOedc1Epz+u6aUUjmOiZI6aRsvOvrW 3bkzMUzHuWrj4GfjEzisVbOM8W8A6WZrT5EedkA+9GzQLSkalnQ0GfbK94Nr c2xemUgXkj1OisXeGoFymbWXx7VxMLZ0j4R5EdzmbGy5xosNHyUHqhnhZ5Ym lf4FrgTnKS2vNLg1Ceflv5dm2nNw76X2ajuC21Sqlj8f/NWKgEiXtYqPcvBg ywK7Qh8mKnpvLfZ5WIiaDavsKzs52Ejbp3b95TBmN71b89m6Fe+8yZ7xkWRo h2h+WfaBjA2Hdr9T2MiDi83TPe2EZx8w28TdSvhrWdjh1mpvEt6bqs2+aK5C wiG1oPAbYzh7JffhnRfdkDQM2PltKxnf4+yCN7VP4P0ytzOip8aRorvFdV4T CavOzc/Zzqcia3/Q2CndGkjbrXPa5kBCTo3P0QDCHzR3GlLUxmg4cOFCrmTN B2xf+rfrpn4Pgu8FfmVml2Dl1unnFFcOAr6rL1ax5ULExbLrZ9cE1m38MK66 kIx6ClPw5uVR6B2LtROMeQej0bV+Ph59uBNUK2xgkov0T3dMu1a0gXJyecQL yQpw+/wztj+moUE7MWqzcg1uJSRJbMvmADpHpfMI3nnGKhnRqO3Ct0HlXf0E T98fdVNMz+8H03Xyr9MvHpgpRUcj3Cg4//1rc60nCQefiW9m7KOgWmax78KC foRahQernGiAiXbj2ag2KmTiH2X9vt0Ex3dL9sqJjiJ387uzJHuCj2pq7OZe 07CX+f7SctkRLH2rv6PgXhdiKMd76yK68PG9BG4S5yOy6URo3b5aqF33f7E6 LR4CMwV5GWaDYIjffJJF9JXZlchDbu1dmBsOJv2peIA76BBbq9cJhsEer82q 49h69tKWv7E02Jc9X3n2fg9WdgZ0G9aUI+Oyr+imG3mo+8e+JelOQgYpYM2L wloErf0RtWJwBF82UWLaRinYmOjnqalCxvTv9Yd7JyYg4Pc+QRwNmLsV8z1V pQ7aQtUuyzvJkHa39VlDGcHlbAuPZeIt0PrtvPVgdCOuDZZ7ndpCeASraWt9 4QRc7F81HT1FxfaEJbsTaeNwbm8aZ2EYUptZ/ZQLNehSc2y1DGTC95th1vOr LCQWnPDN9B5BY7Pg4871lbjqIRR0XI6JYMM0n97oJjiMe79r5VFgZXbDnOfY gIHitFUnBcnoVZ77kb+hH/HywR6/OTwcjz55Ud6Di6vPgh2snlOhuZ6q9/09 A45HeG4jEh0oOlgRH3O7EilSdg/GyulI3dNmO9+K8CYFAaZTLBXjxQ/GpHK5 sL+69eTWEjL+kxxyCDk9CTEBW9lt+R3Q1uo37RelQbL0R6RAxQi0Go0Otu7m wN6prnzy1TBs3cnU2G0cLP+7XvTNcSYOsTfZRJpWYjXfcvrvqyHUx+4Zk5Iq h66Vn/ggZRiHfvusmL01jqrQFPazoHrcUxM2N3xCAlNr5a60E8T93KDwC/cy YWxa6rEuowMZOleVh1/T8W8mUNoni4tSOz05yiYWOvYGigsUUPB05HGT9Qou /pNKcHLmdmAwLd577FcFJAvJHes/jSHA6eUf07U8vM/UtczYxkD0DZ/tzIss LP5cMyFB7PmHp+s6hdwaUCHCnTFaR0be4JF/W9Qy4bZCe/dXQx62H6u7f1KY D17o4N4rTnQcX2XVXXSvAhVPMg4mLqJDSKsbV9rikP7j44xySw+sZHRfClzs xn+/VzvzfPpwLPvGtZhMNtztPcNFHbhgmLz4LBFDR6Ji1tUUSicigmXqJRJp 0CtZMHae2DfWyqSQK6vaIeMS/SLoOQdXunxu7m0awd/Bp/3jRB+cyx8KHf3N RPzxrt8185kwMH+84sjXbMy2/nH1aWBD6vfT86xILvqfvOkVzqnEnLZCAFX+ AyKc2MHlHRTcH+MlvrWZRGCdNMXnUx/eanmzGlg1uDl67unbESKfymYZ9WVD OLFu/NaSmk5E2xvEdQh34t8+55fqhMfb/mp/IbONj28MCVnyPTK6m+yOS6zP xj+dN/9MiHlR2LdL9pJNCXrmfn7n3hiGt6aY0bYcPmq9XxqLlVDx85JEIo9P 9NGCTxlVYoRnzjC3nZUn47NWr+d8x1ycjt17KnJ9JNEHcwsufs5Bka/7/ojB HNRVPD5EchhFGD/NbO32IXxt+O62LmEQTTKRaS8Ifm6sSj3bLkfB25Z/HjZf emCrrimQqdEC/8QKH9VVFKyMezPv+qImSPc5Li7RpeGjyvrO7gAmqPRbbd7S LegQ1X1CXTYEWXMlnmUyH73xTVV1qnzsC3OLO3iVh+zXUnc9HAluPOK3i3qD hUjtE7e0lOqw7GLrw5rn+XgeJN6u1sJG2Kv9ydqNdFjUGw4uF+qFeVbf04c1 PeC7H7Dy6GoD3ucNWLh2Yldyi2997ig6V68I0D/WCTFOWODZn0S/yp5rY53r xuMhoZTB8XaEd2sGFRQxsUfy7bc5/XFk1FGCKUReNaxt31u+hgTOkUXBOo+K oKZn6sc+QIV4weYqz1A+vl4dU+ALduL9hifLDvnUoRQJP4740BC0xdjmOsE1 E3fHNK8RfFAnfeGXPpFUce5+pM5aLp5fn52/5R0TZV81/m4b70d78S1VwR+B 6Hb64v9jHQ3zgvf4S1QEIuC3e8X+cibmDmR9vXy4Cot97i3fc47gooC6Rat/ 06EWn0xZsLYaSYErXdJmOhD4TfWDl24f1OedczdiTyD34d2a7PfdiHrksu2Q RB/WBcm8aif6L2bV6M68B+OQ27n9+fotZDgcK1UvaO7D0b2NDxw/USD3UphT 6MbHNvrdvYrpLNy72uOZkMeH4Ik5lYWhfRjxeyMx+nEUC9vMVmzcTYavRNDw 8mQGzON69N9ajMOgXEYhw5OLg0+9rk/vHUGxvAT7dSQLwVNFj5XTyeCfD2Pl E+8zK9l3ZsKQBQNK32EuawwCQnGeLn59aL9813Pf9CA+5ou8f208gq3te/vm 7ZmEuWvtwOLYQZwoSi0eYjegPOc6ScOPCr01Nm3f0pvgfD3s/KX9BA/E7jc6 kVeOvOVrmtLOs0HhNvSKGbBxMdFm3fvkXizanSpalDiCY41Z8wMrSzF3LEPr cEwSxpbo1O4pasds2FWbTjIDgmOrc70EBmC6fOhZTHcDtO9+utB9eQgLXhRs cCH2P7Zeu05EuwrV9OV+Y0t60L62u2P4fxyddzyV///GfUgpM0moUMmKBtpx qYRo0DQikWQrRaWiJRlFpaFCSaIIlRHZe+89jnOc6XCGkaL87u/vr/ufc+77 fr/er9d1Xc/H4z73uT2Mbya30ttf8LDssNGCxT8acURzsbdjHRUPOHGXz59h QODTX7vioyNo3/bu81NZCvYdOVJ1tr4aMlGcF22XyYiqTqjdncrFxX1hlDfE XCglsxanvGJB2eSfNWtZMWjPX/nZydbiwWvhY31GLBSqLF8V+6MNH1defrfw ZSOUVRy625UGsZGzW366g4v4kNrc5VoEz3nS3mf8TMXpqm/ZdW4lCL2SvPe2 NRc23Eevfn0n5u+demjSxwysjFrxzT06Gbd6FYdb/LnIOPyz9y7Bc8pCtcMm 3yiofzYn9fBoPciRK/Of80YxdyC75NQwCWb2V3eUHmbDmPbL5Zw8DbEv1nAj SYOwfrO2OdeMizdKO8S2n2FjSfgSK7cEMmbKZEirVRg4HpxxjLY3HUeNfeoe C42g91uM5ACDjxf8q70D3n0oMP3x3O9qNczStUvLXChI/Z4g5buY8HGLirLo FxToCsfWFa0mgbJt15eCil6Ipiz8MMvjY2PRvqhAvWxsvOds6anVjOGJUfP1 A8M4QZGySosbxaUpiVus3n4Mfo5WFZYi+LX4gfovFSIvbJ3u6SXqzpRuDJKx ZUHjVixb7gQdchkX6uXkClDnmxArdDUbWkc4dTVcBhi69Pnr68YwTpMpEnZq Qfg1k8Lg29W4dI8+Za7DQp54VtWyJTyomH7bfvocCxZZvdyrG7jw+Jl+50ET DWO/+yP//vcGspH9fd+MCH3I2EgNdGJgaIBcLnudizWflx3f7TWK+3NFlzxa qiCpEHx6R34z7jzZy5vYT/hv68Ovrlvp2Dbdq5xNcCd7Yp5hqS8Hwmvy8rPG m9GW1bVnbqwf2ezp64jugPrfK3eLnnGxU+f+9f/0eBhXiblb4zsKi1NWv+8r s1D7Z4H1l8ZquKgIdHuqdEL49NzBN40UUHPMKFmDVFQ2f2FuEepBo9/ZRGYs HSuaJWou6nRCKs5g2QkjGuppQs/Tfmbh5pfZz0mV3Si/Lx/w0ImPDoG1wScJ n8qxn7gfZc+HaVPGhntbCqHSvvrH39kWLC3S5RsR/Z8eesW93J7QD+66ueVv h3FM4JxGlSeRj0PWjW+RZSFJw5U0VcyHw/V59SbqXEyMTsapTDLgkPJj9vok E2/1hEwe+VUgnNs2jzXSApNEcuHLQ/WI2dI8uZjo87tLwxjK9/i47vDfvq3x g9gkKBSw4iEXb43sQpg1FchS2bbo9u0jcLY7G7huw3Nc+Rq1a0PPB6zfbmt+ SWIYkcIlewVjC2C5aK7Wx5qNkbtWd8y8hjCj/Sb5rmsxUn0j7S/X1ePCwv33 h06zoCDwIKP9v3E8o0wfWyYyjE/b8twXKybiFH841kl7GENnZ9bY9zbh2MI+ m4pnNDSlsoQiX3Yhlr5xKpo0hMrRvTp2xny8ybwsZLeAAeEf2tkHJOm4spdp +YfXhTe72Q42bi1o+PX+ktpYFVrmTsZvYrRjLx42/PnFgE7Vs80f1Ecwvpnj di2lF5TN5fKh022QiRHUKbJg44zpr90eBLeePX0lyN25AltWeIs+NibBek7I r4GYr4upqZf2LSTjz68dHldKe5Eb1LplsfI4lqu1zg9exkFDLSeuMYIGmaRx BZIiDbkKXI9fdqMwvJ+Q2yWRDzXXtHWT4kQfni/UqSP6frZxfhdXhgsXapPd w3YSBL52Z20yrgXfStPuw9sR7NvjdyOZ0M/f7/xD2x6xUdxyeShvLw/X5DWY R3/W4mb7uZspjR/wqeD2HuXoMaRemi10fd8P3TUr4/3FidyE5yv1jDkooE72 HrBngzfY4jmq3ouVW07fsxdsBJ47XozXrkdh3E8nBatmCAi6BAgHxGGdk1mz ViAFc/u7hfUO1qL+3qy2qQEDzfkPi4drqfDyyUbWLAWjlStvVSd3gqF2qdFd Zxgz6getjH+zwMq+Ua49xcQHzaJM9aT3ePTS57uxE5FXTyyVkl5agSszoZ4L 4nuw7Zl0ppP2M1zU8siSNunCxWV/3iyez8bdJzdzxihM5L1QYlTZ8dBRepkS bz0COeNlpdzAYSR6npGTju1D4av1yQtC6rHnVvk9q3wG/AqF2wR5A/gp5zRv poqNBY60sM33mrHrEbOX20XDdOa14S2nGfj08laeoH87mm4Fp94sG4ZMwVvH iYBesFd4XVt5/zVaop7Tej5woBRV9cSP4BvTewLpjttJeGa0+AjPgIZf35cv K+KRoaFKixk6wcMaU9+rRsubMP5O7IjH32Hok/5GHp6qxFxx2o0S43fYP69s Ki5/DC7dvv3TWwehUeJb5ehNw3Mh0u/Nuu0QD3t4ruTPMK5fDtpmK/EOpu8c txZLNuPU74MJm6PbUbYsa+s8NhulX8M+9GUMIzPxuvSupQP4IHSxNFY+A7wF LqqOPB7OaxduvbCei4Lx9tHDRH7d8t7wsqv/GFT8H1+YH12CeK+lqeuedOGI 9KNH9/a2Y7Hu+wd6fDbsa8pYKecaoZvkzv7mUovMKPcs06U83DKzdPGxHYfT NYaje3gG1tPERbaxKuF/6om2zoFsWFVz9PobKuHwfYvCCWEKmJuuUAvBB+uw Z6BEDRNk15WOD2VbsbVaV9denw67vf3mB19RUfEwK6dPpQUOLt9BUm2Gpe9q qhOf4GDhR9LrtcmIvLLgRlzEAO4s7BjQJPLIN7OG7faru+F4r2mnSCkV1HdS S0OP9WL1+dP9enOt4Je+W9a/cQgWUvy9Abuqobfv0aU0RxLBec9MbUxGIGr2 ou7iFQ6y883f1bRz8dl7VcAXAy5WKx82+3iIie32D8d+Xx5DhExtgahXP6rs 7pDK9EfwzXdepNY9BlT/3i1UOM2ELU9sNVVsHFL5ltm6X0gojdiSGLuxHtyv sVuaRFtwr/9VcvuyJqhrv5xvY9iHT+7r5VyfcJEY2btutcMQ7l84GvPyHg8C a00z/c/TkaGp+e6oChleu3vLug2H8P19/KOrQaWQGZ9VI58Zgtez7/a2Vdnw 2P6f1y25ISivLP4qmzcM9yUB7RaCbVC7ZyzC9RgB02EpxVKTuJ/9/Vk+QVyQ 439+Oyo/hE0hQjSNfwxkK0b4v5jXCvZG90X7CiNx9p/VvXO0LnCPtYwvP0rk N/N/x188JuHrW++0hL9jkNFseejrzIJb5cvjbQM0PAx8urfAsRs8pQifQ+xB eJmMkHTXdeP+jMtKo/RB+H+4c2XVs36QZC2pPxtLsP2FnyIu90DSUKqhy4Lg uQshES0JPKQYvVIVtWIjqeO8FUWDONoedDh6lYu7Vf5rzv8Yw9FTaXMBqxjI OqAju+4wE9KUY1QxNgv1n8+Zvifql8V8lv49PQ9ydtNXKXkj8E7y0mFYUJFG v24UqEf4o7TEiccadLT7icKASobtI9U71+W4uJmdd6w2ncjHtG8eAQkk3B27 oPy8hIJHylY65xY24aHwZ8XMZ10YMz7fMEsjwX8hN6ZRYgBxlppDSlNl0G/e J3LPg4GjCpktm5fTkDVRdLFufTmS3pSn8wlfb7MveGHIaIKUpE1G8KcWCIve Oh02j4rC0zsZIfN68CB8ZJVl/RgKrj2oihRhQ25/zSflBQTPLAzT5a5Oxqro 8CGby8OIFf09l72QBfNKPanQD0ysrn9R9sNnGHVoib1aPoytpNJDBYr1mG7+ r1n3MQPrhVR+1cTnYHMiJ3L3cxYC5mlbxsj8AGtKZvOWLjZCX/+Lkuzk4WPv +YNq2aPYI1pyOJfg/B36U7z71aOQCt1FzmqmQ5nu2eI4yMZnzVxuI9HHC+Le 763yHYHl54qR6Eo2tjd/y2v8OgKl1+7bHD40Q+aUY0orj4IuP8t/wTI83Nwz e8mibQgnXEa5SRqjmDy/Jf3ddjYeG842RvS3QfOH36CScgl6/92W/1HejDHN vdndq8ag6RSy8u1qCoS0+ptLMocR1+/ueTqLBNcyy4Bk+T6in6fF99Wz8HRL fesDnR7Q9afuya0ldJyrIXxzywCMbltX5e9ug14y+U3eVjLUXa3Nt19nQsf5 S42DIAmSF4+HSfzi4CPl/aemtFFony7dXbC2G7T/TttObRpEfr1VgWJdNlTv GM0vGaJCKv2qG/dAFgR4oUputiWgl23YJkVw5aoXkhsXZ3XjRF+qheDdcqT5 joecHR/Ed1F+WkRBBYz6RAKKOki4NbL7lxqfi7JizrYpWya2klsnd+qNAZXv zCRSWDh3fJ7Uw7YOuG3RmXRRHoWXE6+RV9kDg5nQgJzkEezeVTZy5A0Xm2KE P86L7Uek48SnXvlO+BrU+lvWDeHIGkev33tH8Ufl+QbRFVxIBcrc/sYh4+4W ho/0ykKoLRq4dWKqBSnn1nnJ5HCwPfbsGwE+H/ZLfr8+aNgJvnXDyu7mDsLf BK4eOkGBZ895OQWVbiR8kgpg3+WAI7JdfK37CA6LXHnUONaFostL1ZKmi7C8 ZvhIalgTao0PdoiMReGs6vJLyheaYLjjEKvieQm23fW45Gc3BEcHWvbdqUHM 5ySbnF9GA5Otp6o7wcYR68KnwfdZ8J2nZOeSwsAEc3aUdJyEtZ+uJO9Z2QSt mSX8m+10fP1D1tk5QcfaatcMHyLX6S/umzdqnYIj7bbfSsfpONN3scYtrRv0 G+eFXMl5yDttlHJskQ0S5kupiphycHf+8iXrzvCxFTY5exubsXx+gHxwwEeM tVTk2Zd3YPfOyr5PDxuRE63oMfqFAsUdLTcFP1NR+7nK2/90H8T0jP8UlFfh YyQpX2g+BYWfZGoyD7SgSV1DYHN7HzZ83b7zSgANiUu2G2MVFd/rjxx1jR+B o02iQ+4mMmD+XljahAPZGwoHjpyqgoUKOfPd2QgY/Gc3eW6cgVV7zIUX53OR ovO9/ItuDwaK09XWfGkB/7yW/t3qETxYO1jZJsJDdksBWZvg3i0VYomGpWPI c2yYYE32IeEFd58f0aevj7kuHkjl4L/LR7mbySzopCY0h4ZT8WVtoMvPYWK+ TfdWpqjwcGVFz4+CUh42iW2InfDrxPrzfZp/TnYh4Eq1yavMQXSLikf3Pc3D vLFoTev2DhQpa5r69rCRo6d+lH9wGI/nH7RiPBvG/KsiP74K1wI2a5IOV9Th UqJL6pJzFHh/tRZzjKwn1l0tT/vbi72s5hWDGTxkrjN5QvlMQ8WPzi2CehSI fBxtL7MjY+IVeQU1rxeaPyOoS943oydg50rtJjqUrKbaVMdHEPxo15RgYgeG 8145z4kMQPyVWJmtAHG/9s+et1b0wCZgtfLrnj4gONk6RfslAlIm/P8Of8K3 r1HOJwy5sP0kO7FFkws9p4p6qxgOjkTr+uib8HAuoaU0+WkN2p9FPXjyLxK/ YmyNzhTSsce0ifNRgoWO7OVHXO3YqPC38hjW7scmQ6eYr4uGcHGNskXntXFw 5f4scm3sxH2ZTfVWu0awZZ+L7Jovw3A0Wx5YuqUDvhqnmnP0u7Dkwlx1oD4V DJsfz4Xl6CDtWWO6ZIiBnsW8nNljnQQf/dnTnUeB6f3cmaaHI+i6WWst/IaH fd8lXfwc6vGiQiy0TzMXixTKYhtzSWCYSrZOK7SgwF0n/X0nDQr1G0TMcgfA Wi8wf+ZvKUzClqed7GtF5snS8KHOTuh2UMcn5UchpCf07uW3McQNqqsmrqTh 0Oqo/csIvipctciqJoOOHVcMD64uKsOE9nIp6poWGG39vdRdaQR+34qc8+4w YWD7UW2a3oxLx2YL4t8S/l/+Z0W/MRnh3r3udfd7YaTQ+Dj11jAszvjYFkxS sUo8smsTn4a9Ts45iyuKsdfgROahFUQOY++WYLqQ0RfoLMuL7UXcpKLKqy4W 9F9vyNe3asLbvLWq46t+QKd6jWTXuwG4VzCjOcEcXLNu/HWH4P4+iSN0sbPl kLr09+7iVGK+fJBfHtCPl/s/9AsuZ0IvgZt2b6YGa5ZcLsgYJEN8Yky/nNCX rvnHdMVe9UNuXozpjd1cZG7O8eM2jGHhyDd8YPHhm9k3sc2Xh2862wZGd/NA Vt1LW57choAPq+J3/85GRGtonWFvM5Se2Z9Kud6D23PWA0GRPPBzlc/8XDeC tP9sc0ZvMHBDQ7lrbdtDfEtNSSmJZuLwqverFksRfrVb1lJYYhT+//g0lxgm YpUX7B2foWKNzfnK1w0c1Cm+d1rrx8NIqdBI8wwPQs9vGFaWM2G/cCDTY7YG lxc5Fg3G1cM+x8P1GMrx6Uq+ckVJD85/ClE0OcDDW0qCwPgxKvS0k9L+y2ei 66Bxjn9CFSIZSrqhQy/wVuplUdlsD3xvuAmOhYyiTCJO6NDpGjT98XlwZ4qE LZqfv+nKDiP4ntq8l2bN2OexX8N7wwiOX4619OsaRRB9pjqHwsKcwi+l9UY5 4FpRuzy8+9C5c0uPvzIfdaJvb04P9WDDIiujzX0Ef++MOaElz8a4LiF4fBa+ P42x4BB5lH/zwI+AFDb2WJhYPtnMxOwLjaL8w1ykbaXpy01SoBa++KKk8AiU PajHn2+nIuyJYuGkxDhC8punSclkCLfc0vR0HEfDIrPfDcqEfo6M5VImO/Af lXV4LIiPylm3Ta+meHAIF7hzbicDGbWWG8OobNCdV5zMTutA+bf0w4ylbFw+ UimWcucH7nw+MXvvy0twA4Truy/2Y6+6/6x9PQcCyooPXzqwse2UntWl4GF8 vae05PvGAXxKzJyvx+XjZ8tPutPbTgwylqfQPStAP/yIsotOAklqlYY1l4Q9 V6nOk9/ZCDJOP2WbxYbZClKD+1k+0u5QgqmTHMhVBQh/GGrE67MTCnGbGnAo 2zSOpkVG0ntX9Ywl/VDRGTn38HANVA2zB3hnejE4ruxv/JGMZpvj0eLddDx8 HSxOXsGA/MFk+08SfZjI94jS5A3j2aT5lp0CfBwT3K8gQvhn7Qm3p5ukGzFO frBvfU8zCKxxLlVrQ5Zn4uZ9K8cg/evGG8FpMlQrNk38F0nkb4UbiZtpXDxp zc1YElqKVSeu1omU10DQ8MyxFBkqXI29OhStqLC4fDlrZgEDeXmrDocT83JF cdXMfvV+XGiZL3NkhIuOcj1lD2MuMrI8FGYER/E9iDR1l85BaXjJ55OCLLR8 iCg0L+kGqfjkuY0r+kCP4/9xOzkMgSXWW7KO5uKI26E0ax4XsyIBoqvLuHhH /2pZfyEPkitEzckEv6dN/Un8pcNDz+o948H/8bHf+FCGgWEjKnv+e3vrGglL qnUDBUSGMZmqtiryHAcNVm1Nh0PGcPnkmj0VYhTscqo9FJ1EhturJ0EeL7pR t2rXrwmiTq62yWED/p0QXB4kUDk0glEh0S7nAAqiVpUtbVIYQvW0YZnnQxLS aM+Ephr5+Pzv1Vo333EIDtkIMR17QSaLDT05RsYu8gbfmRNjGHQ9fvttIQs7 htazrPVZ4Cm/uf33GhNb/L97xth04mKE9J286yxIkf1c9XNIOF+pp3b8byeC /+U/qxLpRcp70btG6cWwl/5ZNCbZA3WmibfbSS56vmW7P19YgwStP0bLvIfQ oq2qMP2Rh/HLFqYL2ojcFvLKaQPh/3H6IktXX2nFsJXk1XchQxhzNk5c6UWG 2b/fs81H2vFnTWSV6006FidVSxSiC9lThZfsJ3iQUx202L++Co1DmwpTWspg Nb/ogzaLg8H26htNvWPwk6X//++O5+3eeU6a0Kkv5xgzJ+S+4K1qQ6791h8Y rR9O0Sf09cWu5GXRh+jg71/soGLHwo9ffu31l3loufXonL90Ga4p65986pCE 4pcf0tRW9mBQRIC/6iaRVxisri9Ebn+/MuLhFv10GF1aqu4hTgL10Zii7VAV bg2uqTNW5MLCkfVPrJ2D+sy7IQMUHkQf01wZF8dw+MXTTS8eD0FgMPH700Qy DtFbPFM/cvDBtGfbtOE4dHzui8Ts50IuIHXb8zg6Dox6pVVdrwPqmJ+CL7Ri Md2StesnkSvim+/EX6uA2+aGhX+mx8A6Q9Zs7iPmK+oWrv8jgbZhQ9XE5hZ4 epi/V6lloqI//ebZnTyi33+pLKNR8PvbGYsuDTK2RvjKXSTy8LzXZ3jfbrPR pH03NCSWhJLwmiWO2VwUi9lfvkaiIFk3PuRKcgWWNXjLXyL2qzb/kfM2Hx6O b/gzFUjkB4dkVyd2bhr2vN9hPDrQjjjVRkenCRLkJ33CgonPhd1uW340l4Nk BeoWO0KHmzJ7aY761Vh9w8Xdf5qEXte2RWfiKTBrTl8qRxvE0pJ2USHtcXS0 z/d0udkBLTe2mVLeEEIPKr+86s1GnSYRKO9SEOGa7bR8lomwur2/NlW1o0He VSNMfgzpnKyRtb4cSAhUvH4e24JJcsuZS6Ft+PLyRcO3SgYeHavQCnNiQvtz V8mtUjIymYnd26Oa4bE6+dW2CDZ0mQdsticS87uZTA+1o0MtyLB08ngnZt2u hiyzoUBipDj30/padDSs328jR0KuzPlRUe9xtJxf4anSSULjkUbp913NyPtd 89mIxoLwfdnNs9LN6HVXUJh+TUb6W9s4xvsMXHLZHUO7TsFCv/1MxaV8hBZ7 jlNS2bjf+/CJeAcPjubrl4wPDSIoY/CtbQoNzYatkptMqXD4/cCrvmEYubm+ jL6oVqx+2u4QVpgCim5e5LLvRB97Jz1L/t/zbZbW+3f97kNIR8xvqu44mpqD vwZG9mH1vAXRpY+bcSaX8cFYhwId6S511a4h3OVp+BhTadier3X1wjs+vBz3 /MyXGobDU85UD60dc1sOnVxkwMVaAZWlYwZ8+OSe0D7MJmFwdzAz9xYHBo7W l+yb++FcaBhrwxvA3DW1SyLGDBw7IVXHcefhOsX9jLTkGBZ9MW1/eIgHSvPt pEPbWMj5lWTrYdaAdp5CqOBcLX41tVm+cL+MW/JPyL5pNJxNv1hCu9mAqcQn l2XFhrCCoROX9YIEY5rbdWuPYZw4UP5vuWkXDoiu+vuhjoqxMKOdHrZtkHxG 09ugWoWH1tnx6d7Efc1sizlezoXwbM7CfeF8PGAJM58rjsKIGXwrOouDibqQ fLLCKN5F5ys9KO/GxzXqvB+ibCj1MPgCERTUvDkfkMHhIvfD3szAulEMph1o cLZi4oLTzrQ/1QNg3Fz/hmdOR5/pmZSDJzrRd3Jlh8NjBrQX7vbo2EjDq7nW uaLqHogbfun9M8LB46NUS+kzDCjaOQSVOjTDoeSWjsBADzJU57f81aDgcVjC EroUE2jP97zzZwCSNj8+Fac3QOLLgaerqt+j/Kq64jsxMjIMw8NcjpGQ4q82 IvaTDK/A/pKUAQ42VvunSJiQcPXkK3vN3XwMrB8wXatOxrRRYo/AVw4WkdMZ i+2oULfzfSnrRoeVUkjovUkmDlFmTr9cMoSso9JclSkaGpLF3PpnilGzXYws 7MqBr4geZ+IoFysC/4yfM+YRfrKxT9eAhVa37+uX+jKx3ipH9fhkF0p2b6ut ZhPXW/HpR30IA2d39P3h6bIgdFGs1uwxB2s8g8djCrlYN3TmB4nIl/Sa3vfV sy3Qv/olSGFtKryCmPK6tznw6X9tsWk3B1osiTXd6l1YIWz/KiJsAPF8U9O0 3XTElfcvV3cbQvMO3a69pxgw3Wr7bum2UrRNHXVRCu3Ev9HwJ6fkX0Ij9XHl jUwSHlxdqHohmYcUxUVW/2YYWE4xzdwXM4rgkWC+Z3kLEhQ+Zb4QIEOyulJ+ cQgTPgbLtpn7DeG4xvCT9+YkhFyJkzDcyEP0ydcijiIseKgZTKyL4MNFJLva bLQawd0c1t/7Lbg4uTl34PAwolPmIibuZCFol239qofDEJrb5f29hIvkjcmF Jo/Z4NjVPNVM64G04Xlt+yEWesbF3JyiKmGdQOn6dbwb1svZUX6rfqJt5lfz vug2CLgZiQ6IxOONIfluZAwDdI+bn18Q+axnrcnlA+Y8JAZKrfW05+P2gVjn AX8WXN8eeZTqTOx/zIdch30dqH3WUvjatw6JfOOd6juocNoS+2t6/xha5fNP XDjLRFP/opDF0q3Y1Rav8TGsEAIX9f+93JyK8Lf8qMCDPeg2+NX3s5UBC/la YZdbY+gsNXCbT/BK0OqKffKCXBwJosTqFzAxdulepZzcCJp/a9gHvBmDhmEY qatyAFYC10x2zbTAY/Zoy48RGi6Xtie7vx+B7LK1+nfm6Cj2qam+Kk3Mxfim v55mYzDX+fs5t44LJWnJjoUVFGw4E9E7XcBCFtlz9mtmAYJ0Z1Sn1+ZijvX2 5HHLHsQcnxwzHWjGEXL5aOA0Dc8P3lRpuk2CrXLgx6UeLJD8hPamfClHlmXR Efd7JJyTNee1aY2DuYqmXkvsOyO9UDj85jCMC+ojHNvJ8N37+ryqIQlB1o6V zxLaIeJxrOZw9yPU7M9v+/KMhXtvaJ2+PwjdfPdo8ydlFujn37J02kuwTTLg YgKPjkUTGZ/U6dVQaTRau+goG2FCdwNbW1i4nNlS+mWqDfdPXudclq5HeYtw Q9g1Os7NOaWedyKumy4R5y08hHif/dsF9hM+E5NYrl/AgbW88kG/DRRcuhh6 2+c+H7pd95SCGVxMaC47tC+lDTUp2f6bv1eA50Q5GKJMxSPuv4truzuR6ZB2 LMmVitWLrzozSDw0xCfdcUxrxq7F/yxyV76HaTK9016zD5T5Cb9u93PxzEJm zZBJOyzf3PFYvY2JIy/3HooUGYTB9NolX2TrkQ+FiiklBh6fmDyu9iQN1Tvu piQrjyOe7OEYv48PmfjPRxUfFSNcbmiF+IJ6xLjMc/Na1Au19tdb+9uGkBLu drW9cBTju+R36xtysV+j4aZpH6FLhkZabQp0vLguebziYh8+fXtlvFmADlOD tZ4xhA6oB6kpyu0ex+hNM8XuuCF8EyxLaoyiQdhp3fvv/iWwky4YKjDthZmb 3thcRh+66LsNn7iOY76138EBZjsEFlilR0ukIdC/ODqE8KFfzLsvH37gI9bb 7I1AGg8bKYXh5QocDHNskuK6Kdh64lBGNcF5n9VYNxdONqGv5NULVZtuCGdH vVQwakfzzr6VJsLvcFRWvbn6STls9oTS60Jf4fb7Z/Y6fnwwKjKWjkuPo+7g jmIHoxoo/hA8sXmkD7KXr/88m83AyaZbpzcf4+PreMDZ+MomvKxI3qcZVwCb a1V7V1/JhIfK4icnTNMxz+2WjFXkGPrKw7tNBvuQo/FTc3l1LVSf82XLVzTh tebdlkR5LnR6UkO5NDKGix7V/yD4e1+3jI5XPQ0JOz/aHq4hIdAg8YKtVDEx X6QQ438NsLrgqnu5OQeHk/zvproRef32IpHMHTxwczH235M2pNYH7VIhcvWr k4t4YsGjULUNXhLY3AOeeUnJtY4BjH8d/rDXcxgh0o4fIpL6cfuuAK1l1yiu 2cSq8v9yIb3DITPLYgwuOyh5gitIOO12+V/AnyGcZVrrKJ+mIGv43OSKuz1Y u5D5QSueB+WNH0fUN3CxaqLBPGIjA0yP3zm22UkYk8iRGjKhQ1XV5ux3rTvE fPve3KPUjaaoPQ2vHzFRllW2pqNjCDSXEZbVB2LePPPMJR5QkJ6c9CuJ3oQq BxO/Z1bteEY9KR3XMoBuH4NV7jdoqJUu/pGAYjSXyWRWV0bj/Yxk/vP6RESd PNwRdpEDpnxWyoGLo7A3vHS83oqDlvdPaT/NaFDf3jAgpNYLywVDkVLvh3Bb ZvXMQ2oz9pFMR30TKFA1p3JdjzdBYHXo+Wi3NrxaMPj53s5cCDwV27bevgwG m6LG08NZmFpTMfLyvxEY/lEM/uDdhJV/FMlRY1Xw0Dp5c+cZFgy/HI8SHx7A ak2XxvMWPPipBBrSzfnQXN5SkmY3CM1Xc+2MhVyc1vb0EortR9yAOcb2/kCX iumRotZhHBdNPKyYxYKD+GuDk0fH0B67bY1uHQ+7dvle+flvGM8bPvrwo3kQ Cqs579jNxIZmIauURW1IWvbEWXeSjTnfW1bdDjSkFAiJKqTW4+PJ2e66xa34 PF8py1irFmnrP3Z+u5yL9AU3BrSW0dEx16vr/qgHybEStUGn2kD9ZFa5bvk9 qNCo9a+0aKhz3uufcH4ccReezQ0/pePjZo3P5cS6m/ZyishE3T5OSfne4vER fyww+87RHgjX+eW+aiHDsfPdX/GrRfjo8lM4ZOFXlEfSSgZ39EJZyqTKtCoP 6Ybn7Qw/0zD59FDXyhw6FE/9HDWxKUG47Net0x2N0KndMMRsIXRF1N4973M/ vk0elQw/RcxvrKsU60oVZk9klF8d7YHa0B8mz4eEsR5bPreK4BE/pcJ+1WLM v7BhJjSdibfFyoX3mqvBDniSvn3XAIapydMv71Vi0021A6LurzHyTd6CPpyI R0ueBKwjeOojTUl03Tw+lJ3EDSMnOvFZq6jHjvAxzdbHL9cIDqMJCk91ZMZB 83cea6QOYave43k1UnQYUhdEB938AQEL7uYNnJs4pbzQTOUsF6ZVQpJjtXwc 7L4y75BSGy7sXrb1YRsDF1Wfs+OKuqEj13gt/wcTV7ekRS88MA7vnldfDhB8 aZSUYKa6fwDRPu5cwZYqfJgu8l2ZMIL4ceqP5/FUeFjEHD66tBONTtKPR3Wr IHx4x6h2YieUJz7+mZnfh5rjolstp4exYqImroLfCq0eH6XvxJF2/UZPxsVe 6JcmP9upQILfeEBk+hQfN6XFWIV5DPg5JtSxDTiIX/Rx2nljI9TvPRDe8KcP WaJW3EJZFvCCO/bHohfPjh77UBraB9eKB5d3MB9CUMx3Y5FjKTwM4i8lm8Qh VLrh6cr1IzDNeLS49QAT5x5kbErq6oGLfm2b4KlxzFtXf+P1jRHYvjf7MBU1 iH8iLSWFeg14/1GU4kroqv1zD4XDTmzcS2CcaSttxjaWRLhC4hjBwWV7BpYP QeuXQ8LrBDJ2lI+Z3g8fgVwG60H7bCvyzmRUXXVl4uTUM0X7/kGMtsx6XHvI RnfD299sgm+dXzz+u2w9F00lR/+am7PRayVH5pzn4mXd0oR+Vg3eGv6pvDBa hJtaH8O3SjGw3WjsRJ8QHy++nu+a95YG+aJdymZtP7CrO4J5s5qH0my5K8cT uAgt/dcfwShFq3q+08ynHqjKCUXZRLSAvVtEtkmZgnP2RUY0gl8GlQ0eP5uk wCPk2PM4jWYsETDJ1+2kwC9sbes6w36Q1xxVmzZmIvNdx7ajYoRObvkj2qpT idiKyLPBEgw0HpcMfveBAXf30zqlEU0QyXkaJRpHQYL7VQ13nTKU71p/4E1q P+rUvJr+9x6CutNr+p568CClG+6a9YYM7keH0WUfyVA/qOgqq9EHapNy0FPb QfgUDwfFZoyhaMH5SXYBDZ3fFlqNxjTj+1I7kkvmAA6d+Ccys7YPRQfnYgYH OuBr+V/dki4Gkpzes/NziPw6M29kynwIAmb6UmeySHA5deZcxH80dESFi5Zp ciCWqXE18h0Xe7JtTJrXjeLg4wHRqvImpNDOHQ98O4RPDzdY5welY/n1Y0pN VoVQkyelKc+Q0LqQ4eF+h4JwioCD9+wwsj8xrh8W5iJN+NDtjSMUBFrk/ud+ lQmHulBJrh0LK6MlLBp9PuDkqPmyP16duHbrT9PGsjaErThS99qEAvMl+0mL diaCtFaK+8OUjMHtvCsj5wfBWnxTJet3D6L360V12/AAa07aryqCn0kxO5/U sNFz7ePFTN0eHOf0C5HjvuIib79lhjQLQTKHjsgsqsG0aXHYg1Ya6L5T35Zd L4Ht2j3tr1Sb8QjW/xb/l4aJ+HmvfwUNYZn4HsYVJgdP+acXv+AzUBfkmB3x v/dtH+hPSZ8Yguqave6pm/tw2s9+XJTwrbHWbcteZxP+u6Httd1GKiITPToN I/mI4R4V+byfgeZVUmkJAWRU6p5/MHCTja1Hyi6E1A7j/IrhR+t/c/BLTeqV kQzh91IFv8z8KMg41HuW48fC+J0HERnkLsxdWjKcvTUTZxkfs3L/jsG5zcXt R8AA/CPvnSgzHsbT8F1+1dF8fOlPMyhe0o6rP6L+G1xHhY91f5IuwaPpV29v aJDuwk4FadapL9Uod7Y79MP4J0rVvKRTiT7+rJXzfSzZB40iI67nKnuBz3NP OOF1ODJzUmFCmQSLP3Qf34VsbF6zIi7TkAHRE24fvIszoH5MStw2agxL7Kc6 LATHoVx1cOzsfjo+Z9W/L/zeACOx030r1vYDeR9kUuf6cOio9dyp3g5cS2Sv fdmWAM0tXZci6Z2Q8b7OXFBHhtjHAG0bxjAGFxnG7FFnYGfrPdF/JjRsmP9k Ou5OG4wfGxpsvc1C6X9cmacyHEicVp14c76H2CeDc28EKeDfO6Id/nYMjwOT eou/k+AVuWHHRiUSVngPet7qq8f+N6Rzq8tbgSt6X480j+Di/UTLaW8aBMQP s+UCOLCXbNF+dbofeU0bS93XV4BLCu9J8+rC+HXzzUNOXXj9O9jHoJuG1n6N fdx5HMwXXpza95IOTbsh5wq1Jqy9F3dQ6c4I3glpiCwQ6oGEqrylxDcezBYx PsQ84eO6YeKFNc8IP+mnGKZyOCApRn92je5ATWiMC7WmD7e2rrl0lDMMn5oz wyJn+WDxqReYMTSsPZST9cC9AwItTuF1OWScpxmcFmrnoGZi+ZNdgkzEXPx4 jEzwwUDdj6PfMol1OX4483z+GOyKp7J/0nIxaSktFCj2FOTYoMJerza87I3S +F5bgrF99jO6tDegxIn9u8j6hOlDH0aXvByE785H92WfUhD5MFgve3U3dFmT 3/P1IzG27Xb1Xu8hWAhf9C9cRgGH3+pipdqJQ6+aLBeca4M1m/bIrY2Gu87j olr2/XC8NfLSebAcPsoqxrKzndDJfxbuYMJHTZthd4ILHzufe5t9Tu3BM4WO MwtKKGDfL3orNjmGF8uVKeZ9RP5a7Gvz7xYLgV9nV7JFStHrFXXy+CIS6nYe SVHUr0RI4ltmmNsIPintCvTyHodZmfS4ShEXB0/P565eSfiCxNyXdf91Q/no kfdyRJ6sOvMmyn8NGXL/Kse206h4d//tx7p1nZDQNDHaS3Di1YJJsctpbdjy ru73yGw1jm50dDj8nYXvsgfpx5VHQTd47bYvhYxL2PvD6i4Pt1MvHfolRkeZ 9raMu5GdoAiF+4/HtWGMFfbg8u0m3F2dt0CcMoKNvYnCnjb9eJVbOihO6OKy f2dzmNVsuGxu3LGM0Qw6NzM561Un/ulvN9ZaSYV5yetHMV48bHkYJPvYrBRB Ljl5ltu+41aEWlftpn5c+8qindjJwb6VznerGrsgZXnysUFSEd4FJd3FkREU NyrSI5aMg77jF8WAWJ/lcO4N9cBqWO2TOfHZlQeOgGFcejDBBT6PXt0Z6MeI NON15CU+MrrE/8QTuVZF0HazSSYJa3NGipc7laAtIk7zZXYFDtp42u17wILA e3GH5SpZ0Ku3GaoN5GDNTds4y3QG9gaNZAmkcHH1lCgv5BoPVXaJzVpZ/Vj9 MCK6v3gIpzQUP5X/HMGCq+cvrds8hn9XU+KKyhkolNjLalhA6PS87tXDlQyI dOX+DJAYwl23iuX3p0ag9EXHpIbKQ83+sPc6VY0oStoaKfCrDfNWHKrWt2Tg MEdRzW94FKvcr7sJRVBx5soqm+0bm7Dpnp66yFgPer9oZqgJDEM5WsWb/I/Q oWmxeWG5oyDvMv8sGlmHOZb+MF+pGnU1r26cWkrw7O83/zXUF0L9d7Pc30oS PiQohI1uo6Ih5mxkq/kwWk/LPPrgNwJ1ncIDY00spKk/NbJtaIK6vcqdPVc5 CE/yOWotOwSlGgFlpVYSDkROyJ6tJ+qtUJdRcYcNC7OjCVJTNNj8lFp+jtDT Xu3Bxz2Fnfh7S/qC/doemE8o6PlrVeH09ZjtDUcbQRVlCmRmlUFvvdb197ld CLHf7F3nyINljY5tfzMZh9f82bB0awpxP3vo92eoUG3x3hz0tQi9d1aVHJLv wQXd3wiI4sJ495I7vW/J8BbpGL5iwMPpmYNBtI5hPFp30zV8VQcSw9WuPLiU g5qz6ySkn7wDVVZpudkmCgbq/05SZPsh1T/C/WdL5O/JJ1VV98mQEsl8EHyI jRcDY2WPT9fhsFfiQoNDTPDYZYH7l7DRX5V6Yr4mH9LS5dYrV4wjXX/70H/F PCg5H95WuGYc649q6MgeGMPGkPIio1A2znx3K/9D1FFfNyRjKvQTTr1cuI3p WACBOPU3Ma2fYOaqseTvJAetNKkvNZLjKKrvfqlTQcOd3ku8uQYWbvt8kazY yEHGrrQ3uudZkA195tJ0qBUuLYFtsd6JeJ1WqxXfQMM5K5udj9V7YXEu6Mf1 J3TMHXI/JTs0iI7WAs+y7x24efrzjIRnFib6gk/xC5lwoZ8xXBI0jqipoLxT 3SSoOug/sCgYwbaA/wZOMFrxeGahwe8/xag3GJzgnx7G1KI7kUqP27Bk267A 5UPDUDOq1dUV70WBf4D8PZshPDV77z1K6GCwf6eap9kInrumKjyQH4fI1JFi d2Jd4YvGzz9q4+PZsWMXWXJcuDgPtdut5kB7y9s7Fy8MQEBOqaLGlocvVnUZ oQT3fNw4//TSPQNooqZ39xH76E5iqrECGmGu3N8gUsCCMU3JayqHyEdLPY7f SB7Fdg2PymihcVwol1TXDWHAw2OLpKdQPEhZr9U1lUfQcNruuEF4KzzTPM6t v8NAWNSO1e/+5aBHbZ61RzENEZI/nqyjjiLtwuDTAAEyTC78nrKPpmJArPyi 8w4qTFRlTtrNH8XGi5UDA9dJmEvKVOrP6cUewxkX35AR1MaJCp4i9u1pL+u1 j+4IXIyqxa3aW/BaXuixwb9RtH/O7r+QMQTr5YrVG517EbJiQO9i4gi0zSa0 RCYYeGB02cOmj48U1y/R5AWtiCP/vTQ/jgmdG3eDprU60F5MrSw6ngHZBuVq PR4HvilFsjcMmJjNeFIVUMJG19rA67ZmY5ASjLfYE06DNdX/W/m9/z03v9fx yJtRSNeF9QgYjEI7O9jbjeA/F4Pqy2YvW1Gw48t0RlEvLv0OG3Us46EneIGg SCgLGwa6Ft2p5oClMWvgdIiKosrfS8362DigOPSxpGkQPStbXq5TpsLPY2ru r1A3Uuwc2RENvSi8F7Z33HQES3u52a1xlegULmy6IsFB3bmBzpzD49B75z4n 96wBCc2SZ5yOJ6A5/7vDc5sB8J1ioy6It0LdS+L7sr/PIUd5m2Z1PhUH7K1u Bzh8hVTGQ/3M/VX4mkaeY0dUInEl+0evBgmaMum7ojz6YKEx31hTlIp4TbLc NI0L3ePyzFtfx3DKpzrfpJcJleMfE6OP92L7k5lq229DEC26o5A4n4/izNTB Ml8qXKyybwdKlWOz96oXX28RnGFeaa9AnE+w/ZXtBaM+SB0O/ZwfxcZIy6U9 NuxOnLbJ36V7aQzkI9H8GedunC4rOe1V34yfj3SnH18YAX3L0o/iXgP4GP0v kmrGxkqL8Kx3enXgrtX/WXydi5VNspzvDnyMXhm49UWNigfvIyNiD4zAh61k MOROggilbsG941z4HVyyZDSHhKe3HJTPRI6BIRHR+lODioJ/WStHrjMxcy9n 3zl3LuHnDR2Gi4n89tpoYW4mE2ucr4jT24g5zz5zSMaQ4HbbyvC/fsT5Zshm mg2dMNZZM+QZV4JxwWaPpFd0fAsd5H8Tvo8q36EIRi0N8Ooka0TV4/2cY5eH KRUb3mmZX2jjghagdW42oRP3NlTmfj9C5I53homP94xA/HtO83m3QZzd3iZy KoIH43i5C81BI5AVNgjal0+DyXjUicXa4wSVaEu6S7BAfUJp62O1wmugpPMb GGBNbndUu8XBNUl/Gff4fHid3WPnZJ0FxcFNve9W9CPOzCRk9EYHKs5wl2nm 8SB+N/yC51ciT0yGiSRL18JiPJviq1ECGb3FJl/WM0G1nl9tsbgfvprN8ttS +EhVfCtiLUR8b4I5JLiMjAPflS1PEDlGkGv5VrKSWK/qoPze+T3YkSLi3bZw GJqOgzVbV/GxP7+W6fVrEG2zkpw//R1Q8XunqfiaDfKjgka9FBbKgr9Xv5ko BddNLUKW9InwRff8rewuWPm1XryaT8HuJTeMQnwYyFsdtjHBsxqbJEu+qXjS kH0sSNtRjA+pjeEG25RGIDJNX7Tl6jhmSdtsBZxI4FAfF6aTOAiums24Ai5c B1sWf2ZzIcbkVDkTHDW36Mluu82Z8PAaO4N9LNCdhPbk/eUg5zevQ5vQleQh I21uEJEbtRWOq6wk+jD99zQvKwG6pKdy2751IMnQy8utoAfddWavnMQJP59I UlftG4XOmnvc+6FEfvQXvnnXkImXexbLZ64iI39AR7ygi49NpxcebHs5jI0l e6JlaS2wWbyhs2lvPzxqazJ6o+hImy2LElQsgkdFcbn5cCt4nDczqeUcBFR5 Bw8nceFj3FYYQ3Bl4IHA/oq3JVDTfPH+Xf4gnA8UjWvm9kJlj7XV2agizDXS BfVkvoHpb6z1+hnBa3KmlhoCdHhZV0ml0YfwQvGFezub0MvgV9clNlBwWvJa GnXVAMRSl5hdHBvG15zQXW/juBDZ5SSrZs0GfaGluHbsEFY4/Fv924QFIU7N zQWZNEgmcSxeEbmZYsixe7KoAwVaa8oadzUjvWbZWKgvHYt/z3ftOEDH4FPx 9LcWg+jjaiosHCXqUvi2TX6IjzZ/n1ir2hEM8a7Xqql34ab/r9w7HhyYX49/ EbuTAYn0q5EdJcR1CicmiztGoRLBNWr52YS+zs5gn6FuTL+45VeWRYfl4tcD p+qIflrdqcZpaMfxgXvSe1SHcf3YOlgQ3G6t56XiRnA0g/bn8s6bo9BzvhnW h3EwU6kfFxXyEbh+eKixno/0PV8os4QPSSfEutoQvJhIDd0Yp89A0JJYDJA6 EDc3WG39HxuutuVNK9vYWLSeOalrPIj7Nd20w/5jUCq/r/IuoRuNzaOJ7SFd MJFfU1ghyEagqiqpqLoXB0sNkk3Guchsnl0wbwETuYEe6lLibPh8dG9MODSK E/FzyzJrKdD8smp/pHInBE0dZkcJfbOS+G+1tTYHJvNtAtaGD+Hk/k1Dm/aP 4nW+VEPdLga6Vidv0tbio6ApPflLIRV2fk/5//sfshMRl0LtFRn4ccf72J6D XGQxFq3pjKAh78/ZqQrZUWwI9TsX9JYKJe+B+rLwflxyE44VI/SzxSnl+V+R TsyTNmtQiaLgrDEvV7WzEaYFtVVazSxIDRRbCZ0bx2sFAa0DP0kwzfRrMRuv h+ly09p1T3ohraTZ1d7QhyZ/9bXiE/2gX14R2CzIxYYTMQxxog/X3fCXPGFT AznPMssv37phaEyV2exRjjet2uVbL9Ggp9/UfG83FyyTgbx8v//ppprL7mAq uM4BGfqXerDK8PUDiwgOvtUoPnmQxcH90ift+4icv6l0Ni81vhNnQn/fp8rn I/biMrOFQnT45bT1SzhT4PHm40p5/2GMVsfH7tQh+sBLYZ5OPRPK+Z/v7CNy hcTk4013C+iQl5iNeBRARowz7Qp/dTYayc/7xMKy8PD2CbOvQgycCPEUrKIT Od3wqfCflh4UCjfXac0Q9Y5cczQ4jw7fTwco+hvHsD5ru8hTvz5c+CApMBxK hp2AMrOSVox9KTPFYrfaMRQVsSKb4I6Q3AVFZdOjWD55Y6bh6SAmXbxklRKY qDv6R/xxdBuuS7sdggMbd+pOkI1GqDhqvvrcuoQucINMH/1bxkDjmwu69vNr cIXBExb0rED3oJeebm8+Rp7KRT/3yESM+REn2v5cbK+dXFf0rANZ5WEJKz+N wvmSwUtSNQulFvNVt54g/Jix9qDSCzbcFvUvqkxmIzjyuv4uzgAuVau/uO+Z iuO2B/pWKzegPv+bQIr+EAI+Hj1b18jEQwnegPhoHrS8D3aMO/FQLv79mKPN GHStw0dki9j4Yv/G0c+RjPS0NucHbwcQlaQW5PnmK5bt6WDyTfswd+ar1XGf x3hDyRHKfEqCSkBmnMPzTlwTOt98fQcdd4rULoRcH4OE5DNq0/QwvB7e7Sol ziN4VPm8qE0v5O/HPe/M5cPNgsW6ymDhwWyA3/Iv2WAKzXXeaKfh0GadmJeu JcR+7r9r+5aNl8H/Lp71JiNzUbVsN4mC97eXypB3v8OE21n2toZRuP8W7uSF cRGeE7x7i1gLBE5aHNJfmgmbOYsrzfZUrNK6bt5J6H+vul7gLiUWtBIO/OG7 0uDAKNPWlabhd3Dw+HIFCvTvXw/QkWqB6bOGS477Kgl/kLcVTiP8K/OxNJfQ l1K72QLZ3AGQXb2frHjRAu+tCxwO7e7D4GuBqtH6foibm3rfuczERs6m6lUL hxBdfHLitwoT1s9I7k6E/10P3nA3/1k7Nh4ulhSyIDi6O/ehb20joQtThU8S m/BPeN2VVxFjGLzrc3jhTRLh14u2/3RkIvqJ+UMFfQ6WMH1th1U6oFitl690 rgNsS48pE6LvPuoqiR4t4uOVupPs5AsmZFZ6f5n/tBbIiNBInCTBZY/59/FO OsQENgn2zBbje57LcItQO0KHs2XqDnVDJl7ol+TbVmiK63HvS3TAtbZORbR6 DLzWL232D7lIyJ3Z5abCx+6QHzndS2jQ6lykUPxoAFk2lqfFVChQzlpWui2P hauGGx0kLpVg6YKRWwE6P2E/MnzxlWUn3i8r+Pd6QRcG3xV71IrRUUIKP/Xj ZQnaFyZH9i/tQnD3tePpTqPYY+G77OS7dqS+Miv7QCnDSLyeW+6aeuhKcK9Z jA+hT86KtlW5D+kqbkvW6tMQJ+439YuY061lRwrXlhG6dipRYyqpH/Mf5h1c EdKDgchfRx7kcyHo7HdlrpEG91PiH7xUyXCZ2eFt4sqHw9NmQemUPAQV7RL6 EV2PLQd3fg30pSDm1HPnh9W5cB65n67XXoRAq5kL7a4taH/YF4v6Lpx/0nxj XwkLDQu1rVbMFIL3V0rowfwK7ApRiqaeJmEkKSnMWZuP1Vaz+qPdTCRaGAVb UTgIOtnwUIDVhV4zU7mbxj3IQ8gGgSYG+KFpxQorqWCdH7PzGutBxDXLmIct 2dBPt1BNjR7A/tuuL1yfDCBzVtTopnM1ocu/xdppQ7A3/NAYzxzGzrjdlf9H 0Zm4Q/W/YViWiqJ9F4okEhFZqkeljRJRtEklS30ViihFCBXKWklCKGTPkoRk 37JvY5kxm9nMoqQov/n9AcY55/O+z3Pf1zXXnECbXNzYGGvFixPmjaDIf/Wh d8hbieejTCZk/ZpbirdVIcGyQTxwGwcTOp5PpIS8zLRaQbVvE+7j9xccYxUy 5FxOde5xZSPT9/bhgGI2vlhqlYyajsHos3PVv5pB/DCN+PZ0iIVzDtSHlwaa QD68/q/VKir81P58fKJUAnqtyTq7TDooejPVMwcGsC0t44NzXg/acDxo8kM7 hF02HLmeAPqxeaXpHb0wC7SdtuD34V1utL6mJg+2VGtGp0gzSjhFKxmXmlCW b2qxLY2ODm3d5c4eJFzdU0fwHBzB39woP0HBKHikLBL52BieNv/955xCQFri GfkxEhdLuTpaezePoqt6a+f9ahpi9T0TT08R4XbO6IbX9BDqj1fukiLzwL+t FLyDR8YJqZTXH8QbQRSxqRA9NIzuOHX3wNA+KN+JibIoYuDX8NYnf6TyYZ9n taGFw0IBsYXTakXHC0UDfd8ODoKKmQVr2ULvabpmKvpDyJlrgx69OjuOV2p2 4p8lezBSTIq0T+6Cv+rmFba/RjH/W7pq5msu9p4d9d7dMQjtvh3+lYJmhDxc 5med14mdF3xmV1wrhVJpvlnjNBdif3opmTVj2LVCYkZ6dAgzH/5xt2SloFZ9 Z8OfPCJCmEO9eTv4INxRjxveQ8EltfPFx4c6oVCieW/52jQQb93rce9OhM7f HpVBxQHcuxW6zCCsFC/cPgfeduuF8am9kYmZYwil3104WlAOU8XGZ5+zezDW urLpxnUiVHZk/zhxYAxL3KZUuXJkNB6S5Z+oIeN1VVV55zAdEU5OweG/elBS a9ReO03CJrvERYapnZj6oJ+Td5GNP5XsdQd/DkKn0f7S2xN00B6pPBbPIsJ/ 3WuJH4vJKC7NWmZ6JRVibWbT/bxuqIveqVCbpiA94cyV9759iAv2oPcrtiF0 RM79nvsQ3Nh/vSLfdMNPiR2Ttb4UVYELCXO+1eOFa9r+2jldWGHW9icrjQSD D79bAnwZiCwKsg2bHEcJeWOEUx0H29UWB0g+IcJmTsXNv2hGYXmQw5ueLvRr 3kj2ye+HTsWc3ljVSqhb1CVeGuajmLTtXxSdB3P7lu5zZp8RqxcYsWZNGxz2 214508bG8neOzKHWLhSePB5pmd2FQx+TkzZ+YUErWYdbLU3DnSSzsF/8Lwj8 eI969EYz5DaIvcsPqYK4ptmpqnNjiP7dbt3R8Bm1jgN5P/Op2Lnxq0jBbQaI D5bNmd49DoZ8ouqtYDrmOE3fGBf2m/nBs4XczA74fn3wwD+GApkekWvu98Zh Eary+HYnCSvqV87G7ZuAg338XxcNBrQSOG6iwvPL0SprkN/CRdjXBSQ5VeGe 1kksLfnNwwvtvq5k4fzIct1qBlaOwKbrUDfhXQk0Vy/ZVvmHhrDC6TeiiT1o 3lGZNJrGgaZlj8SZyW60iDTrr+Qzcco/dN83hWGcEZn98aGpG5Gi7f7NTAac b4U3pia1obxlrrxugRfYK5rON1e2obnm2oArpwYPNsjrt/iWYufzkeUX7tXA MzRcnx45jmfOdKWcuxNoWe9I1lk+DJpqTXnoWweo2alptujXwe/624Jvl75h fqxUbfC/ARAjhsZej3Hw33oueWUYE+H7nsirhTKRsvxWhowqGbOJJS5f32Vi ms4dz9YiIv/BIdGVnUxQFFvCk3mdePPm+rUDrhW43cSb2fx3EIeiS/dxeseR pvVdo+Z+JxwF72JP72Xi4PPDHG4ME/pLH9dNgw2bo54X7pmykbexpC2tgIty sq+ole0QItgu8zPSv2P5uknHBYEkvGmJFbVcNIbdY2Ezb1IGUBKqNZ/cycWm s0dXEP72ISdj++yPZXQoSzy4G80chV8wQefFNgGifG7dGh8X9vrBW2VLIICD uLW92OUSdA3GnPcoaUa4dNftptdCDhk0vDGg2IXj28wd7U3G8YnqSCPJ8JGR /lHz9egojCwSNzAI3ZgiGy6LfEpEGEmUdkHAxMiBShsxod+X2Um1LDjAg8cZ 0rMyBSI8gs49VZwzCvv3NwI+GFDxfpX07K0zE4iOIxSctK/D+22lYllXalEy 4Y1HuXQcsRITLDnGh8zlnpeV7sN4Zz3SdcOBD0kJ+0nDLAEWHQtKW7BgAnO0 1z/O+0ZH3eL6m/yqYTT0px0uu0iGtbtlZJ4WH87lBpkl35l43vyqcl4/D0d1 Dr9L76BBQYHj+lbIIb9nZk6z97PQ+E9jITWBh6QjO7PmZFGxZ5NSGtGIAnLf iocFlkQ0tpo7e6aNwHa5qO/O1Sz4p3mbxH8W7mlC5PhfKyKak7PWygjnXddk ZM4DrWGsNk+xuyT0Fc/2V/Mv/xnBWE2Uns7pNqiMVyTLO5JhFWxs2HuuDDP2 B2W23h9DRsLBI2yFaLRe01lx96+Q5w8sOSP5tw1Lr6Z76GmR4f7XQfVnHwO2 CW/2s2qEvnLKxjDxJwPK555mx2jQkWd6YjaknwNaSM+vuUk8RMZY1avdpMGb u7h/e7UwP5dce2Z9Kh7Si/JexH/vg5fx8NfElf9/n2l1QIwxDUr6ySotqUT0 NdvuNbrEAmHLOzWbAgrWkrQfBMmT4JJyvWC+OwM+c/LyjjoS0KVF/hMr1gUV 7/HUx6942OSsb8nn88F69UX7QjoVQXPOi0zeZEM+I9tobx0Re/5QbwzVVqLy 56M7xqo08L/3LwoSo8BDGfUaL4dwMf9sgMLObwijO9qohNNQcuDAiG5mEz4d +xiuvZOJRq5gPtuZCJnSqeVF4aNQNahJvCXahOtuX+tS6phIffI5f/FdBqIG DBaenUdF50AB59M6IlbHPzMrliDi2oizg4mYAEq/3Oh1SqNov1Tw/fdtMmj0 sVNiAaN4d8JT/Xm5AFKyZaPZMmQMf/W1Fr3QjarQ4fNrWfXYuIcXvFu8Ferc sYPJ+8ko1HhaG0Rl4IeAkLRzfjOGlS+TfW16YZQS7bFvDxP1EmscptLLoBWS v9S4goLSNR/usjVGMSTulPN8wSCUNFg3H5kyUOZD3f09rAJJ98wfnpv3Hbs9 fukS5TvRtethRrfw8xlrHakz6mxklPO1UkIGEWK93D/hOB8V1WY/LsWw4PLY YCNTno8/7iL3J4z5mLzh/mBBLwO6fnfNe6iN+Md7sUt7YBS+g5I/FdWbcPR6 1r3F3B48untXF3tKcO2K2YMyCQqUX+ceVnYRzu8F+5UxP9nYTTOvtjwzhhGb +BZt1Q5cnRwgHOaQUJC8weJeLg3zg7cfuGrNRm5Wa4Po6lEodJFTH7xtQOJl w5839MaxWKbTL9mPi61BT/ZbHiHjR9+w4hxhT7O6nrQ84nDx9O/9YGdzCuIH vvyq7WPBzUbR6tmhUVifjNmkNDGAv1eTf76MmMARv+9Oui8HIB2cOKcwiYOc 5AMXLJUo0J9d0PJRUArvPXXHa6PIWPY021HqaAKeuqyIFaV1wU/U4e0FnSpI dIZ9kPEeh9016zeBVKF3PNowdoLHhl4UTWz3Aj4GO+uPcQxpSH7sK+4HFoKn C7pGhD64yVn+zsHBVMj5rzu+U64X6i7iIzIpRLCP5l+S6+mFX0lp0J2WLjjR C8MdbVrRpLDj6L6wXHR9dEqZv52JGPXa2w4aPNw2W3df7vAYtMyeXvmkwIbR zaW9O5YIfd8ctSG6g7C1NqB9HqQhRanqs+ziflyP8NxjqT+MnOH8pqAbI2jz eBdhrjaCuakyk3qH6YhZJcP4rkDBd2v6ScsxFlR7S8rm/xiG2dx9sfF7vuHM Wd2/xzZRcWKFc6ZeOAmWMRtuvAwfwniJfOXOylH4+xlpXhHyY0CbXeaCY+OI DXUqsIwT8lL5LX3udyo0w3KfHLQj4fb3wWsLFk1AqZqjuSOfCMlou/s39zHQ c0feZ3xkFFIV3c4//ceg0hz48rVwvzo/TRSJn+xAmUijxR47FkTaF/gMcodw mNaV3238//dQSf3XP8IC67DB1q4ZEo7X1oZcWNKNhKi+QeSQYayT9nhTKA2a Nnci3msRsP9j4ajh1U+QzjsiHa5AxVqj6w9tvxBx0+fen5O7WXh5qf6T2Xs+ Kgf79nRymDhyh8532sdH49Bv9zMv2WB88xUrce4Gixc1YX2XB9MwKy+9cywc XqwWoqjFRezt5dmbXvOx8mpMnFlwF8JXXHrW6zWO/Xokv8yjDCTpSRx/GVSA EtEcr9KbPHT8Cd7SLEPHrqsV9kt3j6H4tXbSlg087Nw8qflVmokVUroDWpwS nAu2NSBeoCHnnu2HRSIs2Hx6YLDEaBBSib/0jrQMI3iehrGEBxE5kTe73OyE /Z7FeG9pQ8VC9HKyZqgw2lT746E9FW9fTVlpZHHwOFtfv0TYn/Ja6RvE6vtx pt1F/y+hBLpFWrpdypVY3Pxlm8PmFmwkajxrJJAh/n3Hgg0KNKhc9r+yS8hR 2RY/NqqME9Cuu+3t994qPJMq9vlNKEKd4/mL2jZN0D3wL67rFxGZ6sayi+7x UMRyuR70pga01DBu0ctGZH7Q2JwvzNPNLOfmxY/zwXkYs6nesh2JvdwbNTap 4FVOOb78//udnoxNxuwRYKaq18dkmorim8E193gczHTYeyW/GcOvQ3Ybt4+M ITHw/IUcCQZUlNmT/4Tzd0d/IHl7IQXXM80EZbwxFOTc2sGt5GNe0KNdMuZ8 PPM1k52+TAdPQS0x24YBE8FYfI0lBUHNP17PVaTDZ4v8zCkeEf3/ZH09hHO/ 8ODRzoup49D83la28uoQdE3vbfbf2Y9nPz5G/BXlILbns/FxMRJ+bPm36NAK JqSXEm4fPMxG4mmlqGSKcE8Dd9udE/qMvEZHq+F+Cka3H1K0NB1B+Bet4KsP iHj/JnmL5LcB3Hke1/roFhfzzmnma1GHUCB5wVwhWOhzhy/OYWpWodg9J/28 iBMit7sryZSMYnNXe3KTkJtP8/LV4lYQ0CGqnmGhQcb31T7pCluF3tHncEpV sg09G1261pRx0eofsuP6YwoeOhrt818v5IHv7dr7YmmYne92/qHOGERutHlN eaSgZOYCzYXGRU2k8cf+OSzse9/GU1Lvhnf4aG9CZTKwzdUt32sYeXWJtybv jiP0Rcvy7McMXJk0CFt6mYGs/RedfpuP4aIeY264RxfytTsnC304WCZbML5d h4kglUW6rfEdaDxlyHawGcOA6tf4wO1j8DuTqn6e3Q6XJ1+/rf/DwrwFxI0P 2Vz4iC/b8y6Ih7zyg4VrVQUofdlg5TA9DreMk/bf7vBhRzr/2bCDgtUPfnpu iuoCzajsjM+ifjQG7UzqtfmGOslDd1deaUdnxGSP5NFOeG9p8Fzsw0Ks5bLk 68181BtkRZtx6DhlSug5+qUTVkG/LmZZjYKjNRNrsZgPo+3+TidEBqCAxoMb hPnQ1r/LZIPw+cymmuUPaAv7pdvVQXb1OFrFE6q8bw8gTvfzmgdn2tBpYHrM 41IjWoui3GPqmQhp8c/8T5KPF3dnxAxrRtFy8Ox4sxgTPTZRiemG47AUoS6r 6BiDsdWZSbWtFDh+0fF5eLUb4nGGDteEHBXSpvz6mkcreET3FCmzPmTZhxpZ GA/Adu/h2r3ZbBzqXmPBfjqBM2k+H85vIaBisnSCHdIB3H/WUXOHi8U1isse /yFB1sD5zMk6Ah6rP80yaODj493Dq04Kc2LJH9LNXSENSNFftaTOhY3B19YH 90YKEKTeuVZ/AQdux73+9WoJIBDN5McK72PN7iTnFdU87JeSuPx0/jBeKszj EdbQEGHclf6lj4gKK8PCnLs9uDP+fENb+iguap+IIbl14ISUa6mYPw8Jisob E9MY8Fos9XHZIQaCCzRlVr0WYPnGtLVvjcaRaPmL20IWQE3+r43oOy48bZlb 3y4i4de0+E9LjtArA/gCj+gxBLy3YVxdQ4b5CjHps6Bg/o1xrjFrAL+zog31 NfnwL8t3vCL0F41Dci6XN3biwJGLzSUrxuHfcXb+lh802OZbb5dbxkcnbc7N vcJzbWMs3bVTgocnErH9fpMsiCo1XNgwRAG15tFpxr0exOcRlsZGUiDR8FpP /yENfkvvLDm+rh+ioQ46D63JqKv25TZMtYPyYcuXVHoXGt9RPNXX8nHC9yW9 vIqH1d0jnCN7GRAcN3tIW8JE4lE/iTgzNswlHH3lXEhQP1/NOFg2hMjLMi7z hP41TaO3nBCMIrfSvbvq41mcaax34H0XoHH8c73ccQFaKMwdL1f1YPPc9wrK UjSsWn807O1NKrRSVkZbx3FQ7RQiU+HYju6r+3VSOY+gFLyugNRGR3JHNc/2 aQ989kRrnFUbRtzPPS2vVUlInuFodz1i4Y8Vz+KJFg+DawbHCo1iUZw9tamg 7T2C5LaE73tLgn70w56fpzn4Uey39q4UFyHcjEzJcj74nn5m0scbobBwGatJ KhfxrdtNnwj5MaV0gJCVXoIFxkZTnx8OQrYhbUS68BPKZb89KT40gJB9exma 53iY+jodpCtZAr3+oeubxIW8JfFvJPO3AP6Sn7XtoiZwIUZcjhpPh4TfPxuC Lh890Uol8jMcbBHjPt6ziwJe7lDOoWkieOVr0nXteqF5EYvvUYW+CqZ91zoO nr18UPbaioNb00diE3bwMBAgrREqLfQz12tXW899QhzxjJP7eTa8nbtGg+j9 KDm92KMggYq9yir2/kks8PLDQvNOjUKj4FTYNCkVY+v4GsrWozjC9biZVctB 09WSQ5GRPBRezgzQUKbi1bp5ArPNPVi9j7KjRYSHqE0cKdqJr4h3I27W1OqC 1E5+t/R8AlwMtm2fkqRDa2OXvKnQT4ntP7JPyFchb7z3RqUuF4eXSK7MDidC 9mMtc+YbE1d7lpo76vBgRslimo11oSEvL4rxfhSr/+u4VXmjE+Y87ouk1WNC ftxCclsoPJdbE6lh//h44zDZWNrBRsHrrQW3xoVexfiSVnCXizuc8S8zt8fA upu++KYOC3Jhiq/tolqxNCSqdcd7IT/EHtvEF/p6ie3Zk3ovv0Nm7yxfcnMb RBaNxrOJNPzQjHq8XaEPH7/JbVTd9f/vNcc9KH5Kgjt7Z7vXGjr8Tsabqv8k QvXI+6Q/Mn0Q1zB9VJL8GDsbt5XfFObg0+f7xxNC6bB+K3HNxI0A30iDh+sy 2tHsYbZQ9TkbFh8Prtsmy0AsfbbidHAzQqTXbD7yogaEL2KXH1/mwePsqUXh 4RREHo8tFO9kYuSl0XTGyCDm5EgNWSrz8emneV+2Ng/rNt1f5SLZB4JD1d+y eTy4ZistXPe5E3Jx9kkpm3oRV5sTl58/Ah022fbcXyqcfWZDZq7zcO3mQlLj rTGcUpvRVupmwei4e9X5//8OwmvV+7cvUJFfoRv8xYuOznWJrnM6OtDjIPJ1 xK8L8zYZb9CaboF5+3/+8a8+4fbwSaHf9cNX5Oc8j/WF6Ndv2/PQoR+pv5++ Hbo6gLoE5z7z+Sw4bjIrX1gtAC1sPMxnh7BvbXhRjD1tWMValH7nhrAnNFIE LefIKL0X1NJDosBhZ/POs4pUTHcG2Rmf4UKhdM96i9MUeB6ut3DfW4WR3f75 gTGtyOheaam4j4VSxuFVG1aToPd2e/DlXArcUp+1az4S9vOivK957+jwcIix 6BjnQzY6yET+NxXGjiGaCil8eKq29mQakaFP6O0Nu8BGkZUNNXUpDVM7Fw1k XCZigvFMa907EkZa9fcRlKuxT/qj/Vqh34koVLQGL3iOHZsOTC+9MwhjSepf w5pxXLWZs//uYhqMb83//PETDbrvV6con+3EfcNnWd4tQ7j1sC3+6wAVSlp6 AVdD+Qi5H+R9N6IL16lshZI/XUg8ac28PjkEKveCN3fLMLYc42wKziFB7NLp m+UO48jev8EylMXAijhWUkYCBatWr+eXqbfDoENBv6J+FEa5ORmve8noZhMu tNXxccBVumwqngQT1SqRq8EMkGeJEw95wvlV8y5fUs5Cl9275JPT3XhaLpf6 ePIbPrhHEJNF+XAr9zG99piFI46L76bb0fEs+C9vdrEP/K0UxrO0q+G3Y/br ImUf2OvEVMz7OYwq1/K7G/7/HnBpRkcekwPajQi3vdVknJA7Stv6owBb3u0w TkhIg2hZYczqoF68kam17RXOK9nipevFFwOQ8DwuVnaViPvclVfV3Psgs1Nn lXWJkCecnsrF9zZh9ZGAA/cSyhAjVvBl69JeVGmXek2hDPRTI7vi2j6CcLJy 3gOHaoScjwt88aIb+qpPPDtdiUir+lQjKT8Kvvh/K1J3EbA1enDJgttcPOnf rtb0nYt74uwggbDnlhVFJVB1Wbi2oCfUVISAgGNnN94RCKBUt0dULokA5WSb FRGEYQSmxctOz2uA1o+YOfHtRPy74aY6c5yIka/7l4+d58N7gJv9SX0UC2Jd iy1iSKAl6Lw8GTAA0lTF6oQLI9i/9tZX+S8UjL3hhHguGEHzDZ+3iUYTSAnK vMT+KEDVxh3K8x4J8Mj75LBeiwCisYnaFcK9+mLomnbq2TfEPhrzjzfvwLrh f4e5i2rx4JyNdVd/P35GfbwXKvRX+3uL81SFvl4R39Hb9IeNcPJqeUuhh/o9 19uqk1aENXt154sP87Eo3uZUpzMX0uTMgiV8ATLalc/e1BfA9IqKZq16L0r/ ZNsc5VJwqdh022kqHcTfTclGbB40N54tnP7GhtZT9jV1Zza+yTq4PHrGRRBv Nv/7fg7CH52xrFxGhR8p6+2XMqGf7fGLOnmHDoXBQ/mL5drR2nvV5Y8BEXbS f612f+7BQ5Wjs9lefej8p+R1yZSHnh7DmdXXWcj9eH6q1ZaLExZXfgV0fMKC jdG24+mNmGusLZ2wkYIjSesrdewncNg05/34UR4KDsZuyRH63c7k87bOx6gI yEx14GWR8HOJ1MMB4bnE7P+pTNgggKLkwbyS5RQwS7jE1HQyLj35+OviGZbQ B/DL7h4L9Rr0d9eGRkANPOZg9LQD4eJ/t1hWsrCt5v2mg30UmMr9ClgPPuiv ZRsyWHzEBbAz2zeQsK81/nXkf0S4lJTWT/sMwjxGbXqybRSeDhqJ0u18HKd8 9FuxdRxJuwiZJjIcfH/hv+nLBQZGKw1SHCdGgdF97rQN5Qjt0FV/00fFqfH2 Z/y1DDy+0+h7e6AbOK59MvRHJ6TD+zPHib2wut3qXlhHxNOinqkp9iCmtHTr ijeMwX6ZytIm4z5syTrU2UogoU1y1mZp1wji9wce3hPDB2+4cMnHZAaMDpz7 t2CSCpXI+CVzhby+Ojtm9JkpG9k/om+LneoGfcG3baF/SciTP5DYKcVB1M7I 3pSfZMSWTCz63soEgThPbe5MA0rbrpUn9g/j1GSgRYrMKFpNt73Qi6cgN+de 66A9HW71C42/L+Xg0qFNcxwvdiCI/FODIs9C9Jc5j5n/RiBalK+S6T+ORsrB G6NCPt3a+u7+4dc8Ia/VfSlTmkCtgU0xPYYIP6X6rgKPQXy7uf9OwyUeckKv Hap7TAf3RcE4icxE7/6hzdKlHBidkD1/XoSOB6XhzwY4fNSN2i6fcCBAcP/m dF8gCQr+uzcvrh+HzJeiJYV94/j0S8zl1JtRFHZfdZxNJeGqz1n59qMvIFJ/ e2KjfTCol4q+zxC6oFU4kNKYO4LArzpreCF8kPdmXAw+xMbxu099kvPJkDQ1 /O9qnADRtif7LOeOYXpo/eU/SXxo1Voea4+kYWTflt3SgRzMS3/sPLOZgrYH cTIvtBn4oaZ0TFvIpYr2BzI6hDwVvfbVrE2DkO/UlJylq1lQHaZEmTs3INhA MyVU6Dsinq53jwp58+Qpm6babKH/ht8I7Hw/jrq+K9qhtCHsH892uri+C++b 1g1V7utEVfNmb0UDOqK7fhlaCHlJuZ3jwrsgAGOTzH/XCDzcEaTcE5h+gZ2D g2fI/HZ4S+WHphMG8StKrKQ2Ixnn3G5G7t5Gg4qkRYZI4AR0VYcKyJNjeFqZ 3TwW1gPKLOWtB4eM6eqtB8TmCmBSphoc7j6OZ4H/jJ9KCvO7YLVBunBON0gv PFm5mY/RNdoa84U5v2Hd3h2ZrTwc1t0YvHWj8Bw9Ry0KnHjQWOzacjs2HbPY HfBV2xKP7Y1nTNKZkB96cfnAiVFsUvpBuxxAwwWrE4+/vB7AvZ7rXoqZREgp 2G3UWN2LgPT9snuVKGj/M+C59BUDjS0/WRs/MzF6J5s1uVToEZlZCWk0Oq4d dK1SKmHjtVLs/KZCIW/hs2GoNQMiehebnvfScJz6NyCzmw67DXPzz14fxU+7 xoUHwx9A/9nzg/ykEeyhdDiitxr+nIhGD8URbB6i281zeQfdc+mVHX5jmPtU ufhgqAAqjZ7sryMtyFFMdVC/ScG9lYMMKQoD/onVb29GTqDj68CVNPNhPG+U /DjRyoelGHGpyiM2GIkLffzn0rCl6MGq/Q+GYUGvYoxNkEEfLN7kv4iCM5kN yb7Kb3HMLcLtkgcJL1+oOtr+S0PMZQV5WhMRUb02abH/vmFA+dMZ0zsMhOrW W17yYmC53JAMx2UYkstCqmbn8DBD2ZK19KnQV6VKb9CfsyA1NdGdlMrA8+WO j//eZ2H+D61DiS+p8Piw8G0LcRxyR5Up/m8HUdA9M6t1cxRKU0+2VBwkQE50 gUOpXzV0d3xzMc6iYaxKPcDmIg/KEdvepG4n4GzID/MPA/W4z3ys+WuKDN25 HUs8vvBRaCjDMzVmY+XVPSKPCAJUsB4a8BoZ6Ai/+FvOshrtJgTerbY2nNkc n7LhBA1dl19QfyV9R+iaR+FWX5tgayt9VnwLC3zfXS6B1wVCn2n8Gn+0Ghdj yw9uvzaIY2/eFsWn9UKtUMJestITeWuPnJiW42P+A01Kvw8HuUdqat6HCPPU jBmR7c2He8wbPeeoQXw9tGil4OQEoh1iT/6z5oHqGbdSDgwkpulGX53PRqHB T/erBl1QrJrr4q/aAovLZd7uFBLsXSLeaBsMQNNaN5xTTcWSu1u9rvsNw5fQ 4OGm3gPz54t5qr39kI0LLHvcwYdendpVz209cCuwfDSsWQptudKlcRpc4XNN 562WISKkt0s2dSMHvPh9ab84A/AykHEUdxiDl7PBhZYCDixzpzNuplFQ0KCf tupcHorF3BxDWBQQYzVWn2yuxbapuwLVOWQs/NDpwWmowrFbP7ZnvazCkUXa J4xWDICvEdBxmj4CI63OqUzbSuyYJ5rqv5SL7SqjTmYlLPhtp//YdaoLr0s/ 0+wmmmBmrbowQoMBN+rIafkqEpS3xf/gPhDu8SKrCwnnGCjtWWJYlVcNnXdh bxiSdfg3yjWNEfoe81qzkqg4BSrzUnWeC2iwqGubTXQfhZRu5ohBMAkVJzOs UpJ7cEqsct7K8zQMeL/vny1KRtD215lOPnQ0RoaL9tQKUOvkr6k/RYHvo23v ReQmQGn/E7vDg4Lf5M/sV6t5WCDS8/bHGA9VIfdKNbvHcfCTScACfgOst0r3 /H7YiqCUXStXK/QjMZz4LfQiA8m2DqPkhR8Ru0nay4tWheFum5rNQm+VGCA9 a3owgeru68W1O0m47B2RvEynHRtHnm7Ky+tD5BaTu9tDRuF7xCdI7hsFNhFJ 7F2LmiDDfuvMnU1F72nTgnd9TzClWPzG6eM3UPf1/fYu6EWazyGhDbbD/fCa ZwpWdESmbrB7BwrqArqCFMfo+FiuFv5++xe8h7ZRU3o7pMN03q7fzYfzYnP7 viYBjLtXHyb3svGxXTZmYS0Je+ZniGRNClDcJL/1WAIfv/eRX51WpGCBxwHR wy3deLj/1UHl/eNwu1If7bCPh9ZT5Gm/gX5wc57OSx0hovRBjoXrLio0xU4v XX14FBMOFetN2Bx4fz/S9FN6FO3LN235FTSMJU2zBwPciOj/82zlzI5GPJwI CnRJGYbnwpQrlHdkDK74VMGfHMdh4xciPDcqVK1jmL5nxrFx1q/khNCzfJ4d U63bxscfvZtXbqiREB6+2fssfwQv+ghqepsLYC2w3fGcGw7l5XF9ux1YOFz6 RsRVqh0DY6tYT48OodZxw3rOCBkmkfsWNif2Y2Pfvj0UjUoUKy3d+U22Epzr G8gKSzOQdEXMbtOKMazs9pVMN2Og8tJMm4zwvKsWmKS/SeTAZ19pyNFjbDyS +vdbTacJ2laVdl8beLC8lnvPWZhDeySnzNae4uDzvCOpLcL+jj+7YHSJWhuU i90Pt3i3o/H37xP5h5hQpyelr3bio57imDywdxSL1M+KnGRw4CJ5zJ57iwRT 8zmcLsMqJNrrXPnvEwOLPR9JcjsLoU4SzNEN/oaD7CJB6LIGHO97XXiKRIYl NWCljxwdWo7Xm5tLeFgZlrqndYSBbTlmqVqywzD6Ll774noNVJgtJmfPjeLd x1/qc29XQHxttcFqOTLq9mxQ2vhxDI1Nu2/9OcHCs+YPK6t/t0E3W6U0orEH 0e//jFhrj2FKqq6rSIOCmwvldQMUiTjz4K8DU4WCktVXX1M/jKLPPWxO2xs2 dPu1DQzb2Jj55hT2Sfj3yl7ZL8sJhfBvXtXQ/YqNSPHi1Tv0mZg3GDSUn9gB 3xs3g741tIO4ki1Wnp0OEQ1pyrY7uSjdkpsSO03G9caWQDmhj0Svu3kpIWMQ +05p5bZmcpCc8VhRx46IZPmDFp8jhmEvvb6iRJSERQt1Tm6f24DkVl+Vl88H kb3Sep2+SyfkHvy65fWPicTn8wXKR+vwIC7V0tuVCgULzY3J7gT8+K57d33y OAwLW2SZQu84FGvzTIQizMn1Bda24hxMHBdr+KvXhBUNJ5YpMytxXvwG6ZI4 G5ouH8ufBIzAVixw4Z+/43i1Z3na6nzhvuxhnUx4w0Xa2ovrI07ycbrq8/ug NXS8/++DwQ4uAWFeIdeGp4S5vvpXvewkF48JQScJXkxE0KLzcgVk+MkaOtie o+JTwulFHcsFMHOlk/aMjULns6rLWJCQv0xsVaekORgRN/nz14GIYvQd+E0v QPyTYaaFazLq4/ZvN21hI9+kymxbFhsn/ujYdm5kYNYsbsKl6SPCzlDO6HRy cEr2l1igNxMq9IxD9aYkMMvMlll6jSPwqZZ90c5xUOeQ5Tj9POw6yHJ2uEPC 26sWHcrCc3Qd8U4j9lLgcmb/8bQPXOhJ+7ZTl/HQOdW6eLSYAjUnndL3azrg KlJDqftKReCjnVM+L3pRH7nmbZSQs+INe0zz///+6xcBfiTVCexZajr5XLj3 vqdf3YrXZ6BPKWCnStAodPeet4l1m8BnzfT2zg0UrJk4nvE+qBTiv+PnEa0G 8TK8nHpyORN/D94i+lcNoebTrmX/istwiMDYLe4h5LJNNMKCJ9+FeXr68BLq MDpmzj+YM5+AkzIPvm2bZuFK0GG1umIa5qrTu39VEWD0CqnFxgNQ0tore12K hHbxrlvOGkUIfC8zVtzXBr9Zkzmc69WIP3dv4Y1WKq65MaWl2pOwenWYYtAs B5yIyfcN2kycOZhj/HVxFz6EXGGo0Ubwvi5W8j2jD5TbbRFd1WRhD9tt8vQZ RrT2Mp5NER1p8qdji4Q9dNzK2vRsEw9BCg9Nyr734dfP+Q1T3hTwPM0nYlz6 4G36MkpiRS/+s1JW0BfypgKXeluLQYbq3IKynEEu/mw9/P6hHx3mxhV2n/ax YN0YM3FoCx+6d1a7Pn7cCUdFyR1ziQTUnYr0s7shnMNym/UX3bvxIiy/cGgv DQtvyud+mGRibZWaVNencQQQtTRywINkqNo3GDLgeeOkz3zdNuH9tkzLjgr3 43Rl/ZfacbSxc3K6ycPQfF63YRd9HEZu12ad64Ve6W8a7mU1jLLuAhuSEV3o LVGP40u7YCmRtiLxThvkm+ulfp8dxETl+8+qIiQsLBEPvP98Asp8Avli6jfQ /8konZ8ZxHeXedE14kS0ar/6TeihIX7Fdj/V3WPoUDEZj/ImY2vQtRq5FjIW Lyjmk8VHEBtmvWvxUTLanhD8a8s48F+/o1xkigRjY89O21Q+Xixa7J3n1oNb 1nmGEgeJSDIqXPz1CxU3rF8yw9Pb4HRBPDKmgw0Zfdueru5+kEclXono1iJ4 1X+33y6pEM5XxtWTupUgtj6brTesh2uMAVNMuOdVIVYbumz5EIz31ZgIqvFS r5v1W3IA81/Ze/u974JqwSufF08roWqhb9InRkXnYKAs7wgHSysXPy6+2YZo YgprbWIe/hzCOjfrVlD5+f2rnvUjQb3sttr+DvDbb3E32jKxzMn3e2RyO2Z/ 6542+ZaFyhXcyro3ZHyPVn/24TsF5wojz9Vac7Cs14WGDiLETLUtfknQ4Ptl 2HhJxUd8UxyRTqlhYRHdKUjLshekQ29KE2TJqJ9z0+t3Hxk+rTsORfwUINYo b9NTmQlMT7zYmWTUhEeL4vbxIskovhvueS+ciBgLe/Nbe79hnZUR91PoKE5t eG3WbUpHpXLu0iRlKp5ffymf9paOJce5C8V+EdAf3D24O16AhdnleYctRlFh 9aUvR52PDlPHU3N/MoBL1yq8s4cRsqjBq/ttL0bjvofriA0icN35U5uXEeFd uNBs8hwPjXePfdqcNoa9Impuj3r58Dc/Ymi6moyXW//OLTnLw70Y5sJ/T0mQ tXj2L9+Xj5Sr6890zhmDecLc/WsKhb15Km9jQDwNxEQp86IPldh677/5e915 oNQ4KBetm8DXxqErJrJj2DJ/xamvCjzsz+JSTQYoUNjsbXfmNw/Wr6+/lQkS IFim0WTVGj4IuteP258ogpFuhMPj+CzkOxzCPzEGfm56cve63gQO3g6aZMQL ucW1WPNKIAPM5P92Uj+QYGPGd/0q9P/Cgokn+zPI+DNj7PmfQi8cxC6/vmow Ck2VdSfL07l4EWnMja+mQSJ4W0+M7QQizlKH1u6gobb2E/lxQi32bBbl+gWN 4dfylE+tuXx8afcMMRkmgOLY8FCn8zOW/h7/KTJOxtPbUwL7+0y43P1hLurf D9sfyntWXmrDrp2b3r2TpMLxyCajSq+PsCk6PnDkwv9/ry495nsED65Xr7v7 BBOhnHZlG0PxI5Z7XdGlhQyidyzT/IrWGFQ/edUddRvE7FmJ3VadpTDaFOFs 7iKc2yUm5+xv92C81Ddt841umIi1/nSdNwaPBw0Bgw3jqNR3X2ufycWwFaH9 k+hXnJozljWd0oPavSb2Z4R5mGb+LEM/QjgXjZfXK3M78bVfOWSRWB2MgvMM rkXToaJDup/q1AuP4H26uSNM/Jfsn/PgPzK0Lx9fvl20Ex7rjmc/4bKQ01W5 om4zEXHu588rd37En9StKaaaqbhVrx5z4HA2Hme/qKM+FF7/YsXqEc8eBM1f Pe/sNjrmSahFbXF9APeQcxZ/j/KgdTXjUoDw8+SJ8eGfWETY5c7XGUtvxan5 1Wx2CBE+a5pMg7WF1+1VrUUv7ADxto5q8sk+6B05cJl8SoDGB2aEc1cFOL9o uFXiyAAWXO1csEGJANNl6RMLhD7em5j45dNSFsQpJQOSxgy81TzGzM6l4T/3 oM0vTjHg/X6D7IsUCn56micbXRnDrFKR69WttRD3Wig1UtcP/qOvuXODaSC0 /nd0vcwYkh4vXifZlYeuY/f2MvvG0Rynd5d7QJgPv62KF4kKPeavqsv5dBI+ ZGRPOimx8K27M+9MAh2BjPVnf9D7ceRiVKS6cL+MLh24um13O34nTGrZ51Og VFA6V3Q3BT8+rHxI5TOwz5z5O4wunFtH8/fvAkfBGpUSubp7GF5xvhxZNRZo Ree9L27txIquDa4eAd0wf/b5dcvRDlzpbZ9/obUSie82LJ7jSoFfeM3VTtsx 8LRRWH+Ji12rXnfofBF6dKvGP88DRExwG3j6f0godzJ8HX6Yj5p3Ert275xA 6tbRYyE7RsEZTneU39SIiKboIxkWNLSNbJfXvE+D/rRSeGMZEdW8UfsPvl/x 5477DetXwl49Nngbzpfh8uhR8pRBH/q/bL14vWkcXVtiXOc1jqF3+uwqh4gJ JCe2ZXNHufi2ghFxZVgALX/byXN6bHzY35gl4kjEnj41kc6RfAyUuO8p21KA UYcfJQapLFz3tuxu+U3BztCn3Q9fUfFm0ZOollouVki0tJ7dQ4PZyLO5g/3D +KgnX6EVw8D0mtur3nnw8Ph01h39ql5M1j0u3WXTB/1WqUcFS/tw9nDIQtVE njC3dJqi9gh74F8v68QrAULqNngPF1Bh8tIqYeofBQ2FpKknQs545yExh7+8 DfPCqj4HCr1sOIwY5PW5Gp2pJ15cJ7Tg27nHMQGygbC7OZcv9ZyPHpK745qn XJy9RM1ecp6BiP3fyabFLFAbufzqBxzwBW+GLRXJiAnJn9AYrsescXnaM+ci MEQ3m7jPG0KvEWdjdVgb1CL8ooLqqJAtUXrzcO0IQmopTQ2Rw7Ay357qy2Jh 17mkx/vXsjGV6nNrJJ+M30k1X8zNRnDm9rWYm44COL46237sEBGav74c4Vj2 Y8lThxnnaCoyr8vOc81hwG3ri+aFBUP4vb7eUyDksDUzMclSEv2oLok1DnT9 hKAceQGBNYqltw3XGW/txXrK3bd54h1Qj5z6TX/HRLXN/MU/h9sRK9dZeMWc gqPWSsXurb0IXEp65ulLxKENtseZGzvgL5LV1b57FFYehrGsp0KOWNqiXJo1 jqpAP7EI71Yo0a//rF9PQBTr4BySeCPMPJzc/u1MR9WDG9YHlDl4qu7qF/dk FJ7xv27GtJMwp7/sbFU9Dy7pb6ri+vuxxensFzEPKsYc10XslB/CqrAFqhu8 OyG4Mx27pJCAYy+UOOXpQzjqFfDp0mYaIhd0LN6t0AzCUbskhQnhfem1JWvv /IK9QwUzey4QYJDVvKx0QyGml0V2FP/HwiUxK1FLhW4MR+v1zntBA//Kn/zo 3E+4tafxyOSJArz8xOmumfMUHy8f+e9D0TvoEF77v+EWgGUSOf6fkGMzPy/S zWB8hyBOxFOhoQd9R6PIOm2ZWLzwzKOuUjbuto/vDS3mQfTpvAtmmsMQmU9e fPkkHXckxLcd1miFvNiqTOZMNaY77rWUunJQ71zkVK4owL+IOyvSpgfQfmJB W6cLB6pBxUf+e8RFyZlZrms1CWvMUmjur/uBB9QTCxYSIPNVY44dqw8qJhqz H5LHEP/z70nCSDHiBphFUZGeqCwzumhuR4OLhtH46vf9uHWCWu5OoUKlc0NB kyUVRVxxjXeP+tGenB5RsH8cvQ6OX+ufMLCTPa1CPZ6MOJWc3C9hbNzY3pis yWKgIrjH+JrmALYJqvw/nx6BlNG/e0RyEZ69dZMb2V6AmTknkl/a90DFx+r5 lrPtCDrwPbPzPw4CvnUt313FwI9rL8uv/yzF08jdW3X5X6F5i8I8f2YEMtna DVvmslD755r388Q+eL1SqErPTYHyimmzveEETE1YLcvxKQVxT+76TRkNkIi4 Grd2XiemN299INvZDxEVP4ejqbX4pc8kLDhMgaSeV/NZTz5iC1X0b+xnI3xH T/XfcS58PXV+7D7dCkOXnpU3lrfi2zAn8I8jC8ETJtsvhLMR5lL2KXMJFT43 zx25uyIJM/VeB253U2B67NzhjnoBDspfKF9twILUo42cICodNlOPPVZXC/Nw XYSeniEPKWq3Lq15TcWtTfw1h4X8JnZgWu6uwzBG3o3Hrn88gJqQpP9ypbno KN+mePovEbZfOQWRAa2oebnk+NUi4d5tuOO42YIIww8ZJQkcPkTvpHvse0TD Z1956qqaMWw36NzDyepHwfn/fh2I5SLZwK+1dh4BIicW2OqXE1BRIfXL524X zl9+6CX1nYD85F6Naw4EfMwtbB6QF3JVF/uigRUTrtyLN/rOj4NplH7753k6 0nn6RilzBNg//snDWYuCzfMsssbWUhCy65vb8sZ2iGhdf0VO7kPxxi9ZA9ID GCW1z+baCP9/8I7XRTYN4KDovO/QEOysd+xOpwifZ0cpqeaC8HnYRm9hSvFg ERFpbPpvDL6EzQni5WPYjOfeuws/YXLtb+9r/r3Qe+J37eD7d5B+2TD16CBT yAdp5+Nv16Lu/tv69WuHcNV6r9epzQXoWPuwMncrFXlRnRkbLvWjolrsmNYO NvYvyi7+4dqB+rT2v+41Qp9Y0yLu6NGGO3Wx73dFDyPdIJ6ZdOkDHBJdjIaI dKjbTh73VxJg2HfqWqWccL53y+2y3EnEaDfdYpUYGbH/9aeISrbhqOLe3/lk FtoXDET7WgpQme9630aJDl/+v52upkXICJjbs1eGhw/0CyMm5Sw8VK5uVSaS URR00VlXOR8KViti7bTGcbeqYUGOqwBn9+lw2YbCnPW/cVRkIweNazteJo/y cEXRPSS4hoaXbfuzXUlCzzWft2S+MD+KlgsWzLtTjc83OG+PDNQjdOfWKxmD dDACnXOSKjogE2e+ceZwFz42Eg75fOHA2v488/SHcVjPfFF1+cnHjud/tj4U Y8Ij++6+qnoO/snZ1i+8QsOi86ac6DQWJKLCBnO+kiDJUZ71KeJjvfdAY+vC MZhdHqrMGWbgAjt2sEWkH6Yf6Fue/2BgS8q7LLV6FnTVCCVvmEw8tgutmWlp R7iz67ZVY0Q4H1bUSJEZgr2L16O7fCpsfMQTSadYyG9oUk0/SMPMkN4Dp+hW ZM0kfKhNEnpo8kF9z1IiVjX8V655joTWDwHdYYuFPRMjGxPaU4PoEYn0wbox bLsp2DacmoGivowPzDIK0p9VNon8EUCBVE16+o2Fav3M6QWGHMz5qbNjjx0Z DkNP2ykTJDwz9olZn8uGtvjm3OKPXBhJaFDJ6iSkq9rKmd0SIO2ms0pXuPA6 mKuelrbzIafedy71azWMkvzWNQhzRe+K+2enz4PoWCzr3nmAhDKr3yuCXbjw jFnZsLOMC50/m4c8VBk48SHhVmHbOIzvTx7avWsUrnWf1xxiC2BSOLPwtCxN yKd1xMjtAiS1fo31neVhtqtSVu8sE/4Evx2hr5lQvDEv+d5RDgbCqiK8Cusg 4p5zx2xXB5Tanq/cxWbAaKxafOAHBaMadsV97mOQ0v5CnaqswgN64XCaTCfS xNZb6G8oxaCitBPSGzAbWhJ302kUj61kt9XIkJHpWaR9yTMOn0Ql9t7fz0X3 ojm7Q6Y4SHrhYrFTdQirnxzS7uAS8Lxuu0t+xggO1qT6lS6cAOXT/b0TP8ex 3M71atR5GgLrLsfdcRzCMjsX321v2Fj/4uf1NWqt+LxOVkN3ex7YC357XY6g Q4T4zepHBkHIaYcmd88X5lxjfHhMDgv6eq9kjbXHseZCyk9pw0H4fX6w7Nda oY/2qSTp/RqC/5J66j6tLtjpnb/zWqEPS1X75MUNOAhd11ln0sSD6qX+hkqq kIMiG3OaTgqge8dzZTWXgi7usZQnO8dQ2LfaR9SMgU4nrZ7XXuP4HetMrjjw DaaK/CzK70r8shx8uYhCQ3JoSs3R60xERTu/T04g40f5H8NT20eRty7LnDHI gNOnqXv31/Nw/2M3jW9GRcf1tst29mNQHDTNfppARUVp+oVjCvXQctKJcLnW ixq+7upL7HZUPDRZl7CnCGbqUiuTpBtRUr8iOsWqC4te7f25/uJX5FjcXOja RMR3Ra2h1+0cPH914mPuRDParmRUFEgMocb9vqGL0zDmXPFfR+3hYeX1LYoD 5nwgYO9S2wMCHNbKcfwR04gQx9i7RtM30Wc3MhtewEVvgtOhd5kCLFyZLiYR 1g+/+oAtum39kFGa2yz9sBOnBp9s11xJRsW/oosXXwh9bl2z+TvLUDjKzf9V uHsEL1d7HvdNHcMStppBmTkVIgqja358DcDic9bSvzPo6DDhtPhtHceDx58n W4gc7MsijHedFSDXc/BbVsAg7JeF72e2dUGKRhF5k8KH+TXVyE2HOOj7ouL4 wSUR+jV2Yu2OiTgdvF2LdpiOoplLm4vMWeiT2nG/a0C4R/el7rpd4gl7ana8 gcPBvE5JxsP7HKisMqMmSPfhiaOh792zZbh2qmmsM4eMEzN+EmFH6WBvtNTb LU7B1ifhtweoZJg+WxOwVbsYDvmlmWafs7G4KGS5vV0LXtnMiQ1aNIIukyxn 9ZtVMMq7YrHEqRmXpc7lP6klw/NN9o2pESIeaqW3X74rPJ/hMNMzX9/iAyUm fIjDwCOn/PxbxvWg2YWYPpEcgMpIe0OYcO/CL2nc2HyECV9ztYDB8ELIJxg9 arPpQEdu1o9L/xHx4nCj/ItbTBQkNpVfWMNBf9K7B95SBLzUU0wIXShAffW/ M7WfOJic+qsf/pEO0YHqMHtKPdTTyK3af/tgsOatco3GKL4fbc8ca+DBKTsl QePoIH63H1V6dWcCjkqKq+rLGXAsilXYFclA5pmhZblUDrglBP293VQIDM6d x4IWSG610Ne3aIb8Tm1fzU4WKvOWhavP7UDf2jvpm2dpOLHdGUdFObjsv6JB 5S4Zom/ma/C/jiHR+Mp9uUnhPKwffOPr1oaGS+xIv/Mk3K5lDLxkc+E0/Oiu SCMJb7psu+8/7IPDja0bLnsTQXso8jE8joctm0bFUzGMltIK7xEmD9fmKwiG jGmQPDuvqJ/SjOpFWv8Wy3NwQGGp/DyP/79HPovUSmdBuWovV9lwBDYrC/vf C7mBtVe387rQu8qupScOhfIQ3Hvaxi2Jj8HfTit+2rJBcbWYan00AdeD4yHO S5ohFbFrVaVZBzZFG7h+9x9F6u6fF8UjeqB1Q3DfyIsH30mJg68SxqGyfvHo 0Q8kcEWIti77GrDklGTm6Z15gK7IedmUWgSskCH+FzqOF24tercs+Cjy6IhW F/bTioefVBQP8vD+5rHemTtM3LqZf3T+8gmoDa9L1ggZAt9m0ivWugeTuabE B38Z6ArRzFv6gwgr521hdP4wouy6b9m5MmHQt9flXgsBnSd6Wyb8OXAVL8iv GKZiB2uDVdlSPqpzv0eNC/3ERHp93JxJJoxL/u4ykCfiQ4EsIbqGhz83ts4f 3kdAZFSE/sKpHNjvuNObm98P4zfScpWreOAtk9jmFDAG4nD1K4VXbHTkVdie yx6GOlm6y+o6EUPhKQFsFS70Xs6sKXMn465hW0zuAyr+R9GZR0P5sGFYEiJK RVFJKVkqydbqJiUiikilSJKfiqJFIipFqCRbWbNlF6Io2Zfs+27MmMWMMcwM bQrffH/NOXPOnHmX57nv6zpnzrwf9td+0/zwAVaXEq7LsQgoT5/+sTjxNc55 liZPqI9CtG/M4UzudwSYzh5+IzmKP77DDfmpHNibHeIvzKIi8m7+MCOJCpFv XVsm4rvhJBk5v8WrE9+PN4XdQDPMW+JvRPF6/IJ+gJxodh2unlM5cVC7AqWZ Cm0BPI5Of7GhgZ/MxovAj8leSsNQvtNK3fm2B9p6csHJWqPY+jE43i92BKce Od0V7BnEmFiir+V3JmQCklLCwmnwkhV6dLhiCJ+Pxs+8EJyE/+aeW5Ev+yD6 lrxYhtALvoT4/PeL85F1vV7T70Q/zs0FlD5O5vHq0W6DM+/ZqN664mXcHgbu P64wuMEhgsz2ab+7nQgrq8x0ZnsbbGZX7mCTGmBstSp6WnYMCpmtNS8le7Ce u7cveZoMwU/O/OoZXfDXMfBU53FQc02894IhESYBRuWRagRc6X44kxE3iKJ8 hzapKjb6z2drfTZjY+iTw9qo4imQC7Qe+ptO4YX4rRWzvPd9g8zyZ2fJqKV4 qXM7KMg7ePYaI5+L9w00mU8/yCi49cHNe7gKgesJJ7e7TWBn876li75Q0BT0 UM7iGAUjFEXVq1WTMEVO1OOxPkz9tmKo7prAsby/R+cGKChziXv1KWsQhfIf Sw0WT0Hk64NQacEpaP1aRlkmTIaetZdUo8o4ygf2PjoX1Qyft0r8S9o7QQg4 v6s7fwJywnu6bgsS8Y0wLWad0A9H2zXmB6hTkA/YVtkiTwTnzKWb+U+nEU16 cU7eoAb+YTtpjTV92F2rXXT3Oxk1Rp8sq/S/4+7Z++Kp5+ko/54i7Crxlccd PgUVqWRY3BHf50mbwHQEUXrXf4NIq+8oz0thI+5E4MJBkXGwuzW839wZx3yq xyLDlma8PVL1/NInKpzZKgeZ2VQ4bfo3TFcn47noTa1SLQqyzEwepPNybsUD dZHwuiFY2X4YkGmlI3LR2qE4xU48jV+dZVfO4wCicISjCQFj/cPUBBueR44s nfvJ4/gumaEtXxO4GHi5SXsPr68WPBZl6atPYSXT85jDWhJmD+Qrr7BLBWXV 7+3VRUyEuzj9vXSQiR2XrhZHrh+BT+OKHZ7oQ0GNcq9aajsOhgZ4qPRlQqjS /t503Tde/k0P7Jn4AivCm9RRBTocVO48qV/fgaFrT4rmNQnYzfk0dGEN7/tf LXOW5flqo0bYnjxdKhpOnbH5ZzeKdUdkz4p+4uDjgeumwaKjWCPHviVxmMet xyeMGPxTCOce/pThMQW7W81M1W9USD33eLkzjg7FhxIzxeFsrDJT8vgtQUN+ xzl6L487DzBSWI8mPyBscfaj+QAughf3FEsEcRC3wz1Qh9SEIyMkkWB2LU4s DQpsPUdCpATtnpVdGTyuvh7yW8JAutF/sauDm6A1373t6OkGjGxfHPD57xAm a5avTBJnIkflfP3741Ss7g2in2cV4oVRSGD4KhMIXfD4W2FIg76/g+1GYxp2 /mncvH1wFH1mN8o8BXj8pnRu+HFRL6RL3vk7ebFBenpaVrluFAXX9j453dgC 04UXBzZqMzH9c8+ZugEODqm2Siho94At4rMqyISKwKHmfUM8nwl/7CasbzOM dMGfuWXGbOyWidupXDCGs8Knu4np41BKULATGp2A3+n0kMP/qEg79/KF9H4u vq4mjJWW9EFC+oBbc9EUnD+LXmS9/Ibmoc3hISkVMIxLMvwWPQy6hO2KuXMM /GdwwvP9QjsSe5cJMq52gaY9n2hazQZd+nf+S/lxOGvty3+9iAaHfAvljPxR UPuNX5ZcY8AxzyRG93Y7xgf/Nk0L8nzqwvOZGrdB2Lkpf1a+zPM41ZEVl4ls eM5XqF7fwoFI1Ogq3SA6zBXbyP4NI7iQ3aKj49gPG2Mhy4FvY7g4XCJaeZiL 759NhcVKeXMTYDSVuvkLbtKJh+NUSRBhdMfEL+dCpOwzR/vfODTX0IxW7WZj Twjf7o/3WDhJG+kgF/H2r7LBL/DhBOwu770gKd+FXR+yTh3N7IHq54iRL9GT EG28bvzYkIEwTZfL7x2n4ad4klCUPoEdUaXjUeu5ELuYs8swmQlrISUv1kM2 LkR77Yk0JaNjFTe9R4SEQc+1y5v8eFy0/qbA5Y+j6E9k5MhdGsQepSsHhUoZ eNW4fx9poAcLTceOaVvUokV8o8i2IN7x7AsasEjvQZb1oYalNlwo6u3ctixq Gh+zS000LMho3ve7oTdhAhbOB3UlH4zDzuWuhPwiLgaj9xx7lEtEj+StsqNX qQhRn1TYHcHBa/9nRxz0JyAr09t3dREDH1/oxi9Sj4ailNh3dUIdNtT+dyTv UguiR5dXLfFrh8fnGyn08BzIfFv0p+QoHdeFXsi6dU7Ap7s7PEB1DIGejRoF mIaTaeT1ges9kJs7KhQ8342EjjWr/27vh+7NyOAZ+XpMPCjLFTAeQK93nPrs LhJ2qZRc2R3IRGcGaf+6p2w0z1y3SvtNAh/lbqp6Uic26og6RZ8nIKj4ch6h ZhKln/cUafrQkVwrIpX9kwMX0r/GfC6Ps+uLjIQLGBgaFY+EejcMGyI65S3z MD71/EerWydktTYbNu3rxV+79hYdHu+lxyYM7X5Nwk7CXMkJFzZiN6pwtp+e gqkd81G5/RAyVt+/pddHR9ufXQPO/iQEKCVcu7pmGrQ9f3reWdLwLrfXru5q MYJsFxa/km9DWcR+m4S1Q5C8nn6CbUbG8vfbDw5YjsHcuIWzyoGCdtuavEc7 SchP01gb5tCIzovso5rlJPxMqApJLB7G3Y9h5Y0jLKiQ6WWXHozhPyONn/YM NsRkPKdstpIg9ucfV3sTCQJlxbdT/DqwIFkzlEAtxltNZ8ewsRrYxl5XM/+d gV1WyscZJq0g7ldjFlzpxkE65zQfjwOmNW5lcFl0dFQnn6zyYGFF3LnTBKcx PNaglcXZMJF2PCviXzoXbg1KZmVPxyC9K/O5iHEn4mI+nL2Q3gd+ieArD3n7 wgp3SZwKH0az81Ib4b9NcHdfqaDvNobkTv03XtoE6Pj2Cwm3E2GbkrX7QnkH DB7qDga96Ma/R9FeFxy6cOFSIDs2mIXjZvSjc9mTiCYvPRq1Kg98N7XML2TV oaJ5iTDzMQM+ByyNlFuo2LqfXB1xhYCHSsbdR7VqcL1mhffXrAm0+Ys/uFMz gF2/ZPpnz1GwSbpwKzaNINU9vVtkaS0sO66vepReA/VKJRW99b24GhX/5XQ0 Cfxese1f1hEgPfJzo0UWB4TipIFQ3yH8fqJEuBFOxTF+/HLn5fLR6w3/PVQt BmWn2WFx/X7cfZi1wb2Vg9I8k41XTjNR+OtLwaweC3GRuVbPpkgoiLq2qi50 EsOr6sx3q7RjaFDh86HGTpj3DkXNZhBRnpzt5tFLhuzKiZmpg2TEmkWUfHzD xhFBC8Z78hDKGQ3vnnC70Vbmuze3Yhzf4zzfdz2hge+6fbR+0zAWP5i+4R8w gWc9tLU1rTT0mWZ+y4wfw85u7W7OWxpql6c2+YgR8cxmS//6bV2w4jdYyhwf Q9/LTRe7M6mod9ucEu1bg+r/HIQseqbAJ2gsZsLjhbmoKMry3+N4by0becCk Ek7rH+9K6+bxdFmMXHgZB1bJSXfMXBk4RLvRdUKfhY/8pyLXCA7j+FzxQYJl OQKGpTY8+NqPq2V+Na4548g4bxqgwjvPBVfD2OCiSFR7rHxgssDjiSIVmc/T Y+g8srn4b3AJDvI77jy3phXx9Jux25WJcHTSjLWIb0Nwq8l57w3tkOdrtBq/ SsTjXS/9Pk8SYW37dDr5LBtZt202nTtMhnAGcUtXAgfe0SncdAWel0ZsGU7r msTeK/7OasxJSPm/YHx6QcJKu7X8p3n5/7xnu37qRTL2v99rebCag+WyqymC 4VxsyX9OI3xmoH1T7LPHRwrB2TqjN+bch3tJE4VXa5lYqucxKbOpHVt+Lr70 VngEs7sW/F4LDCDuyJ5QmuhH0H4ef1GznYwtpFxRzfVsOP+J4JtSoeDIO9eW 1rBO1AUmOV4ZKscgJ9pfVbQPPnNWowIgYuNTp+4DzsMwsm2iGm4jQc2+R6FQ gIoo9wpZ1ywm/tK/qQu3T2LJVHnfG97xDwufk521YeNTr9j2V/tY6Az9ZKkm QUHu+aAoe+vv6JQMzLiYGASR5lX+doco2PjmRoPFLBcXB/z29Z7pxgadWWVy UBc+baRaSvmScGXuefhgYAOmMzQyi4QHEFrWbJ8w8gGVMbfpp759xxWJ9K1X lvUjTdtJ02ZgAvJ6a7O/tDBhyDr3ZEVPI1ak9I546JCgq7Q4X7R4ElcOqi40 kTj4c6PEICOPARdFuY3m13nnH/3WjrCkC8q/MoMfTtAQa0gctT81BpUwIWJj UQ+EbXL9l6fRcUZwSksyqhLylvtO3dwzDoppt8eWDeUYcBpnCF/j8drxWyle QmyYr2pKc79LQ5rSjtUyz9lQlv+00SKWDm6QuMo1dQ6W3G3eYHm2HR9c6dmR rsM4+2qlw8n1g7jmF7hxzKEQOr9cBv4cH0V72mx7Im//Q2j1Rr/vEpH46fzd 6rUFaD9KGPrZQwR26hLjB7lg/Ox3MeL5Y0HstnelnCpcy7H2i/5EgWpUjSaj bwB6zIT1JV85uPU1v9nThw0Nv+dLZ5/SgRLdlmc8jmS1zagq7hiDW9ni/0Tf 9cAuc7cWSYyCV0PHWrraprCw87Te9vxedASsW+QYyEI6gwzPUjLebNOfauR5 y+yhbwlelmw8KhnOjQtlQiH3cnbjngF4zYiyZQ5ycHv9RdUk3h6H1104/XCc ioyw1cRjPL9JHkveNfA7D7c8uVlZ6W0YPd5Q6H63B29bji5lM3l5cPTlteyD BUjUoiRruRLh65NWP3GAimtSMmukD9KwZFuAPvUsA8mjCYWrHo3BSrY6wvbW FCJGl9pfVOdx9I1CDXujEWg5/r1htWECEnr/rQo7ScHPUnKd8GIGGi0+p3mf +wbNy6JiRRIVePMi+Zhp+xekPebesK4YQ/b354LXqsn4SlsjtnZ6FKOvVxnZ ZNMR9Ggwdby6Ed3Jmz7VkLvhk7pXIVcqC82Gz12eGpSDv91D9/3qKZQvupm3 49w05h2GT3i30PD0gP5B9vUpXPhUL8u3kY7RvWf5at5O4HfVg4hYXxoCk+mC M5JP0bRF1/LB8Xb4LyYqUT/WwIlqK3TuVBxm+aaXXFsVi5wOx1PvwMHeh7dz wvdz4EWSFVMwJuHYNc1j5ilViGCpLVv4NYFNE18TVmsQkH3sa+SAKgXVH0bm ia0f0dPfV7Dfugvu67UcZjbQQEsw1O76TUCZ4d1mfV6PfsvwnBFeGoctZitL 3hjlQn27wJboMAJ8R7w32vwew/ac+L0GiXQ4ZtnLd4xyIHWan6EtOg75G497 lmyl4nLzXLUkXxcUV5Vu8FJj4fDJjlLf8QG8nLq/Y+HrFJYJdkWt7utDSzbB YsGJijAVQj85/jPSl7wKfZPSjk2csJuPz9Nwe9c6u+XLODiRIiHikULEkr1P 9i20JGGFz8bqvVfoeHWm/+WvWzyffizZSYlnwP7QsfCcnSwIM3bkBW7jwL+r c+JkNhfjs+Khb1u64Lp+Wm3jtk64yZ1aosPjfJrhW+ee2kFQfShHnP+jYzu/ 6/RLqW64FcQSCFQq5NIJ00GxJDiUKo385N3/8WvKzk+MR1B95Dm/6/AYjiqd eie3mIIN/sRpYg4JN/IfCIjM9uOKNzmbME+GEzf+67l8NsLDlecbV3ZCcGfh D4tVvBxe2lLwfG8/+GT/GjwdeAVF1aaaQ8wu9I8XNF3e2YP5YLHfJRW9EH3T 33GsvAJD9SHt9kdbMBwmxiea0ocb9w5GG0wPwE9L7FzU2SF0mM7l7Kd/RHxF kcvN7mKYv/3sMa1MRtHeupB+pXyYyzSp/iwnwkbfMv/0/i44CJ1ixtT0Y+em gpen6ng+/odVplxGhX/N72u5+e1wzbggKxbMhYnYjk6HJjb2/vUQrTgzjjvv ZBM9zyeCy1jh5O45iJPmBqtM3dkQD1XZMny6E1zr+Pk+HucLzUxuiB2kYDDo 1W+FdVPoWn3pQYR3P0ZeWW+P9pxA5er3iUfO8fwm+uv2ljcMHPVsq1a3p0BX /qSBfnEHLhu1FINIxik9+0+vd1MQ9J152lGFiBLR+MHpRbUQjthcEiBQCL7D 7uUnS8qwxeJwiatmBkwkQsLsQ2MQ3ZvW+4NDh0zNfgu3STLcZB8XV5oPI1Xu XZJYLQfxie3BHiKpWB0uuA1NxRC5tZP8ktdbJw4UZiaH0tC8Ilo3fXsVDMJj xVreFGD3igcLO+8OwaymeH0udxTV5vMN67MG0GHzyGyENxfU4UCXLeEMXCLq i8Q7TkF83dZ10YfGIWCobx98iY1raTMbbXtIuGcUHB99aRqLJTcV0Q9OwrPW RdykdgKGUrElaw4Q0XvcafiFcBw2yHAnbWepOPstzrAqph733fKOcphNOCPX t4pcXI0rZt8fVz1qRuD7gogVno1IvE7zrP2Rgp2frzhN9aWiR6NLtMiZBgWC y3M2zzeDfYz8tdaMwjC/xDFTnIUdlQ4qF+UZkLnK+OJGGYHYZR2Tx5612Llw IyV1cQVsLH8FvjswAqRWzOzb2QT210+/ti9hYmHDTp3CvQT8DWOFLj3G44Bc 0dTo9VSI1l3c2SDfiT3sqK3MLzSYfuEIw46I6AQ+/VUVbLRYH4813kNEw1ml lfU1LISpdy0j1FAQF2jW1V71DWtHKYcUVXoRdPvy+7xcOpTVCUeEiZPQ/TF+ lFnHRqLmP8YpCSJ0aW0O+13ZGG7tC1NoGMYR3/9kqv9xsMb20zGJXhKq351c pk/qhkbwjVeT1V1w6hkQ0n/RhsdZW+6XNJLRtOTuZ1l9LkIadcZaT7CRMT5v SUviItfU+FY1b27ztV9cD+f1w04/wcpngSRg/+zMTAAHdqsVyzRNB+D2rW1N 9PJSfDM+NGRyko16zvl4ay0awo5ujjwhNICuRvvO1hOTCNwWYMU25nHUv4sN rJ4GCMdVr/gayEBE19bLemlDqA/qCinlEuG+SVlSgjMOE0XPj9qynfjZKnyO cWwCJ/fHmZWoU1HuplrAoDWhkulgcPf4EAxcrt0RSx/HUzW7XR953icQd0u0 QrwfP9ffaEoNpqH9z824yK8NKJtzNzqybAKOTYWsdOsx3Ik5fI8oM46Tex5m 2zdPYmJ3Sbrb0mHc001WWnGXjiVe80dzg3nX1X1SK9RtEgEfXxYvSFKQfiGQ dYbH17v7fnrvnelC6N0Lp0fSxvDKJbMp6GgFrhdlm8zJZuOKXVlmiwZvLz7n hqneoOFLp5JYMo9fP820nWCIc5Dl1P7uEpGNzdeozxJlphGneyroaA4vN9/K iFW3cdCVcWXJjBsTOOx55F/nEGhtj8aMGDTkXFGo8S2rwq9EphkpmAz1AH+b wJoRdI/M1+j8asevHxcCYwfJcD4R4Xpu9zT+e7zIIpiX9y8q/KeODPbhcsFd gi+nD4mN4fIKl5qRX7n8+mf5Uexevvnpn2csKOmcWHh/koVCg8bw8LJR+BVL 2fitzsQD0+eW176OwDbeM97qwxhCrmevWcfHgq12u+nyFUx4e/01mj/AhvTn fNun3TzusRtcrTExARcpVWcBvR4E/ffojOR6nifZf8g2TGBhSHVh+8fHJDR/ HnB8MsOCkcaKAZHFk7DlZl+K4N0PV+6509I6VLxObK0bDxjFuUKB+d1NdDyq fLDuZy0XMxfJderyLPDvP6Ec5zAJGyPzR7VDUxASDPBX6GOCqXlabb/AOFiV xX5xsyOwWW7v+U92Cg6+G/31lXn9kyF3wuhcD6YifVs3tTFhTXlrsY3X285H r65VfM2F/Z2W7Xve0OA9c56ursCB5+SHUP0HfZgUi/q9MnwURP9UqtRlCiib sg6rzw8jpvVU9znjbuxcWsd9zhnD3IDhO67hGMwa1wYUKJViVTBDPCuJiK8P JvsCBdk46879b2yYhGtFT6rCLEno2hN/Vi92EpaP2S/z3BkYbDg9LXSDjVCV /lzlvUwcKITCqBwJysa5ZpkOU2g78jlSMbsTTgX/XI/s4PHM337Dm5pkjKc+ fUMMpUMj65de3AIVtOwHptfiudgkpv30Rdsgum/aNFHZwxh1uRQQnTiKpMzO kkeWvOvnT+zSCmoF32ai7z7TdkhppmgP8Pz3848rSoe6eK8NM38fm9CwzbBu aHMqjzvNM31dlzAwonw1ROg1DUOfLIeLCyrw7mmBfdBgJ3LPllzZubwDXcPL 3+xtb4fGH9LxkRU9UOWES266PwzirgO5ah69ONSptv/M2glIRfzx/b2bgfKi pzFZZzhYSimWLLrdjZl7Cov6909h7YUwr5jSEQTQJqfr/NgwGeSWOTlNgHmQ 4vilcQIXFqq1T0+OI+2P76oXKzm437Dp+Xt+KlqSh1KziEysWGW6X+0dC38o r674rePxp04qSXV2Ck5aHlqnG9lwGNqWE1NGA6NL+ff4Eg4OODJavwV9wvbx eI2DgZXgLn7qMXDmOwzKdxz/dqcNKeEjBRv1eLmyrGHPrS4C4jy69h/fMQ7T XR8vJBIZsHm4oVaWMoS9brkSDWZsFP64HCb0uxUfBM4cVvLtQ5NLnX1aBhm5 22+z52brMLp91fzcaSrS7ne/X5RIAzFvhWbRw07oSrnoSkYPI9o/4itm2+G8 7e51r8YObF52YukJUza28J3hElXYCI5vv77uFQmUwOmnh/cRoHfPr3BergTz Lp/NqqqvY0DHZNW9JAZ6h3c7vy5sR7T3OpqxYw3yLhg4HF07BLrqLB95Nwky vwqRQ5/EWsorjY9Oo6CI1FkKrBvFmuvPtU1vjGKL8QH3yRwOHoYKa9C/t2Kf w7b8Vp0QkKSSmsg3iUg77B2vbj2KH6MbdA5kDYO/wrhnG20KrXYaJ/PcRnD8 yqHdKwiFMCpz+RkW1gMfp4rFWuqD2H1jh9E3Bgn5hv6CkXcHgIQGloFSH/ik 7kgYWfRiRUSBvE3GCMIbTkvOLf2K3ODY5T8OEUFdOzhQdW4YCrUPHq9fRMdt R7tyi0ESDnVwnR3kWPBo/FEs0sLF96Btxk3JQ+BwOSfro7gILRYx6a+ogcZN R9Faw24ck5oM7rw0AYs/LHezFUSc/Je3OZ82hJiC/NmYoGnIkZaQi1TGITR2 6Pf9I1Oopg1SJBoJvHkptpC+QoE5nEx+OjDwcmLr/rNGLFiI+xqWD0xhFXdx yPmldPgc2DFFnOyEo7HN/I3uQfzwjCm1JQyi4hZFhSRZBZ1dWw8kUNrQdGdl 15GAdpQ0hhy7Uc3Au4vfI2E9iQqXCYnVhlT4huykPiP0gi27ImqJSS+iBmUt Pv8IQLjB29qXPUw0qpaO9tzux8YLL8U3ydOwe46j5WpLRF/9llS/fDJvf0B2 iTTHcF/p3J79DFwln8j+71YKLlAMqKlPJyEq0l3yOIqFv2qTHC/dVpjMBHFv GfXDqU/y4U8GHSqP84fWqXKRVBK6ozhgHGZ/Rxp8pGnwzeUj2vqz0C4WefyT BBuZm8OcVvNTcGVSebLLrB/Znf2b8vIY+NskYWifGoyG02LKQ4JM/CiYOKZT RIaO/se5y479OIUHC0J6XLS9bjdK+sqAxc+Qo/n72CirebtxTdUklj/4cuu5 2SSyt6SmEoO60HHvsa6kaR0M+lPMg5kU+Dg/kj6RSEXtq11huu+n8LQuqP6P ABvPz4afznw1AFdla/2fLmxI6d59GSPIAL/7ieXD0lwolpqLnOqpxKd695B4 xUIUWlm020qx4LDfqvCrHR3Dn7hzCRZsJMdqjqVtGoPjMZkGrxoO/ou7Yb36 FQfsk82KcfNMuAmXJ2l/mEAOa4Z1PITnkbszZvdc4cJp6ono+5JxNF5p8TU4 ykL+97na47pkvM90VZS91oMWuWzOIGUQhSF+gfeuMRHlGfWjSmcUrRePrdDP YICpe9Wr5VM30itUs157TYHx8xlx60Af/hubP7vk8DhqPxCc/94hos53nw7V rQo7+enJeS+ZGJnt/bekhACXUlXR1GNkfDMXk+o+04KDF2fqkhSoYHWW8vfx 1ePxo9CrO2PbICx27ZbaxjHckp/6ve0TBTlWWZZeQkyEdKydXneMiTZBvot7 Ojvwet26q6XLWNBV+XUwnsfpZ9arP3USIUI1JjYwjjaO4mvzu7IoPG9QDpdd XFiNP3HLVlW6puGgdP7XW7OfMSVbYPtMlgl2X27i8w1UjIWSd/Yr58PK5vTN 1UtiIOhgnEhd0QWSV7nXuNUQPuxwLWz4v4+R1DmnKtKgbin5/dgFMspUBv67 zyTD9M2mt67tvB494N/8g0GF4O01FrbyHdjY3Sn5x/87nvHZq1f2E3E1dV9N zIdyHPKsubNKYhRbyy44NgVUYvNgb+Vt/27EzKrdar+fhoJem8ws3r5UBy1n a7vXwbuMj7gzbgjScRsWUmtZOCkuk6v3oxGRfwe33dhIgkjCBslFZQz89svu efBnDHSJdU1xESTc1PRZufXrexg+LrF27CGjY3XcobhjFNibXZEviiBD0T/3 e0NdOw4ohrjGLSXAQcH8WYk0GwvUe49f+ZKhvSxT5c/DBkS8vlAl4MiAeljc qwrzbiQ7mL4VPULCst0BIfblTagXtgtPfsFAXWHim+arRMRwj6mfeDkG9S7m q680MjaJKyNy0wR25V7uqdvP8+6VRL3XXsMoSzNozmlsQ7l2T/5nmWG89HMz PcqmYs5q7qG2GBuSJq6HGrlkzNHjlm7OJKKH+EvxUkIXQvSC+0tFePejJ0Rk yS4abG6NRVzlccpWZlPH4Ko6iJv7FezPYiJTjXGvIqUd+VW9i05W8PijL31m 8OQ4trxcelFPqhN6kibvrx+swpOYYUKsySTOeHo8OOg8hph3uaaEfcM4oFZz bSq5GupSi23ztXh9v1qDvCOEAaulDwPTPCi4RNEtI5UNQ08pvo88zpuHK0+K CgdaoPV6HevaBxoWlSwTuOfZCcMdi5qTDXjcqj6y7/grJnTLnpmvvMVCGn8h 5XweBVm7PT8O25AhokdVby1lo/yd9oBUBRHXQ2JyjmWNoaDHZMdf3v3qTPjQ c7OMjTCd9EvnvHmeZXTTJNp6HHeszj/P/dKMCisNvmGnEpxUOLJZPpUCg+Nf uEXBXfhivujYcVk6/qTpD8Y+oMFPfKXUNh8yXh/bOXhTYALsG+sfnNpLxmbv oXQ3JwKmckXEFlgEbCvrO+UhzMvbIfO/mhfJWHl138BOlzbse9bwKvJ7P14+ Cpq+nTGISX/fHTe+srFph84Rlh0HrGMy3ZEnp7BHnvH8+Y5pHGcV2t06zYHh eu2G8p+86//hX5TRRzo++Tj/UpOcwo9qjwQ9mVFME2w6BRcP4m3ETW/R5Twu J1dsMlQjIEo7aaVe5hCQ/YHfjTc3c3/SrajLGaCcMd2WWNSB4nVjLPXIUVy9 fHn8K4uBfee5yWo15Sj6/PRgmV0tzkZwhcMPtOFdw5sBuaFWyKRs2eP7Ywr+ bey4l4cn0HwvUe9JyCg+RljRDh6bxqnxxlxKEwHm+/ZOcCNJ8KEPW7Ybk2Do ND1dwfPSqTfBslvv1vE8QeGZ4kg7yIUXP5/K6MOCYu/h1c5MOM6uXS69dAzQ kohViOb55L6Y60d4XBda6XPbfJQFoakdzuFfa0Hq82dFZPWh6CO75BRv3mKl Q/u48lX4fP3OuuKgKUTIbeIoG0wj8OysdN+ZLjS9Fl1pYNYCH0JC2HBbE9QY RVQ5724c8Og4J36BBruPSdRm0++8vdi6l/VoBL+F+5JWpnOhLHZ8xf9/p3D4 /qxz8T4u+LIe3/+Q2Ys299yL5Huj8Mgm/L3xmwZLweht+U+pOPqvuaN50QRU tI5nvIsbQGNU330vXv/7bBN9J55HwuGTXhlphTR0aJy++ZDn/5KBgTsqo5uw 4J6U75yajvOvk9U31lNQb+/WNfmSCOHKBLPQGjqszf67lbmIgdZbfcEX88dR lnFSdY7AxIWoiWM24V3ops/0nnemYsvbPPf8BBJi68g3mvs6sKVmeu3es3S0 1ictKmYx8d+ivC1JERMQHDXfPWVGxxrz95F3Nbvg39KwZt2jSLwOryYv8Prz 9ShTqdyagokOku17xx4Exj08mqpCQZP1hfwdQzyf9PDVXlPPwcw2lZPJvD2+ eVcyR1ecBW0Zy00OBzjoPvbWkt+OjZfM3+88PXh9s/naYk7ENPwSVR6vILTi cKXNIdn7jdjpvbi6coLH+5LiF6pek0Cr9FrCV02Ek8ea0RmM4Nc/Y+vbW9h4 8tvndvb3KQifT7R69oyL9qRhHwqFgxMOB5O+fpxE9V3dvE1NDOxqpFGW2JCw QPKdDJpJhjCMEPFmGPZ9iNda1IHA9z4jbXd5PHb6GOuPYx0m3rh48y2egPQv mpRgIxcji28MKP9m4cPg14ZN7xjIF6jO3+7OhP+sfl5Ofw/mJ2N2eW8fhPqX 6Nu7TnLhFvtuWdHwAJa/OrZSda4FH3tW/LX+wIRHksgD5fAqbP19xltahozR ps57h/40wlHAV1TlKocHc1tEl9hwUf1m5b/nCz0QyY8QsU1sQKhqZzfIVNzZ 7HfheugonuaSmxtkOyHXz6iwW0lGOzGRVizUA8ndS/WPtA/Dzpr43ly1FQtP DGbv/izF4Qr54ticcfAfDpCVbmVD4uBqAcJYD3JIJ0+LrSvEaqvbMfYmTJhr P0m9s4MBH5lZX/49bYgppgZ2tQxh0+WXurXJVGjn5bk1B9OwUvWbdXIQG+41 MwH//99OlR4fvp8V7UgRUxBkPCHhzfn+0c3GVIyPF23ZkT8E1Wvq++/4ExH6 VPrMSd7nxOuvFcs1dKPQZnLzXTIRveOnfv6jjGDXjj7/gex+KFH6D6QsawPF PiN1/apurHJ/Q4woY8G1u/+Hq8X/e6/03drMcuiQL1ik7f2A5mRNd++Zapgn km2PGwxi7EZMJydoHJINP7oWjo6Atsvu67QSBWg/QPwhWQfHfTt6CD8ZEP4v 9JV80yRc6My5odwpLNlw55KZ4Sjmd+sFvW9m4KxxhpDCzml0PNIRnRzvxsmv R9kBmf0YSJqJznKjwuGymbKXEBeCPTonrjWNQfJL6/p/7oMYcno/ZvNqAkLf zCxMFDvx+nzX3HQqGRJPJfz8rKZQ/lOfkWM/ikGNsH1xqfVYJH2Kf/ghbz4f tQdW+n0B5ZfD/MJiIh712NUa8bhyX8wpF9HRTgiNqh75GNOEZ1SbDY4fulHD 7OhszSDgY6+TyPJnYxgVGXlztmwKXkczxL+50WAfZDMgw5tfix1J2zcaM3A3 Yt+Tf1dZCPEsFT1SOwzbzCWHUx8Q0CF/tjnyIxt8ZQ2/kEDDN3+5Pu99kzi3 4snXpffIWNw5bKfwjAF6jpPay54JaFy0JOmUcnHiTJTJMS0OBHS/B8zzfN/3 rKc9gceP9m67CKnvhqFyx8/SssQcCp7bJG8m0pH2QY6Q3F+BGTVLfgvfdoj9 vHp31XwzrAzdawzfVcCXY8zoXdWJ2CtnUjV7m+Hy8KLjFLMNVuNbCk8b0FEy UZ4uNErDYymVhxK3unGigPNQkOeprPyZb6riZIgmJs6wCWys+NKxxy1pBJ/X SggHzUzinua6Ysr5DkjqNf/5tJSM8TmZSssONtTentjmuoeFUVXb3KpfLJCV jhS/4vmuY2vSB1POAHq/Z473nODifHtg6jsvMh6nITg7hwuZ2G+dQjfoeLx5 UeyBtHLsctBS6n3WA9erVXafG4eg4fJAJ0qUDDuLW+3T/41iu89tiRwdGppQ fWn2AQudkWbv5D0YyFhmm3muk4yZtbI/NrLYUN0utljjIR2xbe6HnyRPoPTc 41ahvxNw/Ptft9j+KVisXeYVns+GyNr1P7dKTqJz5opET2UfonTiL/2m/v/3 2/X0+y9oWDgq/vDJFyJGrY7ctwj9iD1aLhpzb9i8HP2iO/+ajuzc9EfP6SPI +fBH8d8PJmZijLj5PI/q/b13pLJsEo93y/A3neIgvvRS3QyPq2JjBJf/ek1F dcrjl+buDGy14UuevTqKHKHbT35nTEIn4ZuE9nEiXr7bdPPPtlE0tNW1OMeN IazNMS+GNAXlzZe7DJe1QOhFs1H7yh6s27ivzeo4z+OeMKjqxkzwFaSLGhxi wtdzg+3T6yzkLA7d816Kju4z8sXPzrMxWOBs+XjZONKMfvBguR2R5/XXmkdQ cF3uDVXgHA3i768IWumPIaHP7oFI6ggkBHVD4weHIDSSeWSmg4xfrrcqCCwi jDyVcy+lV6LV/G5I9g8yMq2MdXPEWxB8fJ3P3SQixI1vnAsKr0YyUybSZ5iI EIlzMX66Ndi0aPW3B+psXE3/4RyXwNuzF7qvo9ZP4ujnoI1ZBRzYmXD0FoXz eD304oCqRCM+PHtamb+MitwUrcbNTyfg5OVTIyk3gbBYrPLZycadiZ+Bso1k 6Ke/QvpsDxQqz90SLqAjlX8DJdq5Hm3ds7q1/CMoy6lxLVEtR8787cBZKhET L2zn1bJZKGnu/vZ8HQvLhN6Ee/N6yHd2h4jl8BiU+GZshs92Qeueyqa0y5M4 fVxob+5aDr7MXQgZc6eC/3N4/ca1DjhwP2mNJa0Kw486F2I7KxCfqnZ7hTOv v48LaNs/7YPBKwZ9+WIqTlYdYhmf/AQjy77fvRdHEZE2ObsjpBfmK8y/uP7q w4dXRp8W/SXC+rJ1FfEAC20Pe6+9GmOhViZETTKbBl1Wf4BcXjlUGYaGhinD oN6KeTX8ahxKE2r7BAPH8ZzkrfLUhwTrA5+3ylAoGE051P5CmgLXFZrdqx5R cMLycLfhRiZ2X//pXmdPwfasbNIR9yEI/Jm0kDlJxJ1bXUvviUxgSe/3STW+ Djwv6WkNMx8EYVZe4DChC3z/llBq3vD2ITTxqqJOK0IIJ+2vL84ASVFuuZcF Ab4CAZGOafk47ss8aMs/gc1TA4/KeP499d/I18Dz49j1dp/a83U8rzvhsfj1 2Dispc+a/Wutx8niIlsBjKHrw8HQbadG4VWQaPNTjgKXZcQ7Dw5OghYnt1wo gIl9GWbqxFAyvrBOkVaPkLHz3f1iGj5jr8LaVQ6p4/jxp8V9jk3E3NGIlJGv vPP9O+rzLm8MuZqTR57yPN0o5VVn1P5a5IiXZPPbk7CpVy815W0f3mxaCHD/ xID1RtuPmuvJeHFAh75s4ziaM3fUPC3vxo+kAO6/qi40OCrNhGwhwans/uPz Bymo6fSpCTr6FadlHx1MWkXEtNLOl5ICZNQEhvZ6/aBD7srusGJQMZTio62n WgaWaOyb3X7ZKN0GhQrPMVhV9U/2upXhg5HctpgzVPQotuxofdKMB5tPiUP0 I1rtLpmQnpTghocmaVUXj0fPp1VaneoHn+2RE8srpjAo9vZ1QAcXWxYfNfG7 QITCZoucX5ENOP7WNLPwQD1IF6Qvnyr6jG3+XpHeTfXgE+gY+MUJA9VOy0RH l4ZNjvbj7cmJiDCKExW634eh959ksiYqUbJmPUvrfBfc/xFi3pGZMEl9InF0 sA7qJkkfVpc0wCP1KjF6ORUBLOMfPdwxOGyYeRBbzcLImVi/3rPTaHV9e3+Z VSeKnmdrjP6hY1Y2cuywCR11u+4U6fdUYnu5fM6yQwys+GGf15ZWipo/FkLu PI8WH9pTefcWDVsZ0oVhem0Yq/OoXHaxHKmRF+7HB/XDecchQWYdF3n9Fe9D E4jYmF4Ud953EtseSLvE/9cHD4OKEal5GhSbY7uDF6pwauk2Nx9e3yXqDWve 30DB6hW51+Z4eXrv6ba3bJVR9A129J5yn0Jv1vyi64wx9P59Zv3YsR1aqz0V N4+REbhl+ejJRhqesucbbcMmoZ8s/NboDRejb28HlCqw4Slitdp/4zR8Dyez 2H8HwV7ql9MqwsI458aK8OMEtL5zC+DvqkJgZQ81YwkR3VSyfM4LOvLVc8ci QgbwS+P8m9PZkxDyZkms+ENBWbF2iMW1eux8PEEMbJ+AxUSfK7WBBOOKU7b/ VnyHT1im87H/emGxK+/Q6aR2jFm16SlGD2HWQGK8m3c/nffe9ZbXZiOToHTi LIeN/BZXPTUWHde57ka5T1LBF/LIa6VXOX421rn9u8yAyfTofPqrMbD/5oH5 vRYmE00516zaMCBvSd90kY2ML1Im2X844F9q9vF83RSsvzBOHFvFhekaNx9f eSoUBVb3WHZy8f3GA9PDrePYr5/vcvpgF5z8i/P4ZCeQp76XICr8HaIpa85q Wo5CmCAv3DvLxoJfaiv5XTtcQsV+DvN8h8O1d1y/tRuh5zCVbU7HWtXoZ3K8 96/6Xp1alEZHns91PpYHF7EWD2iSKRwE2qwp1vRoR8Y66vvhzjEcDjXVpN1h YscfmbglpqMoV6yaJ14ZgnPndMYtqUHIeZTp/dfWhuWezMrvu0hYMTg2t/vW JKJONDnynWTDW/YRfU/LIGb1pKLNjTl4Oi90RkxnFG6Oj6yDt9Pwi0sIFwmh QimzozDsAxfFBt5qzi4tKBX825LkW4EbDYnp/jUjoF5QJNSgFxEGsjt8zdsh l8ZJJa8vgPTrN0tUMIAHE7ddvmUT8DVov5WhRjeC7Oxp6g/64Rnzat1jnV5o GzhLnWvuBXtnX5CtQD2qNlUL9LJb8Ja82tZukIqU07J6v9dQ8chGsFhFlg05 8dt5XQ85sLjpIrTBrQ/6k0qp2q94ff9B2qE8nwOh7k9GKXVsXLFdfHXmHQX8 c2nKqcVEDP3knrc36UUW3eTKwRAyUjR31aSYfuR5+127AG4dWJSAw9LJZGyw W68S61mH7bPBowq9bEjJeluIbWQh78rF7W8CCBiQedLWMjgJRWxUKQisQq2Z YNfsy3pUZr+47nS7F6+i+KbfDzIRdt/96XHrEVQmM1r2CwYjfGs+e2IRExsv 3o1Z8oMCegXJZ28SGeV+9X6+ZWP4ptiTYTlIgviaZ0kdF/tBbPFQdLhEweXF PuPJs1GgDI9TC3nzOVL9a+kKHp+u3x+6zqtnFNftEwcPDYXishVxmfZpAkg6 /SrfomrBuVRG5EQM43P0z58Pb0zjhWW/BqOrDq06jV8/bX+GfKnbO2pn6BiS On49QmwaUvOk5jvBE9hqpn0gSX0Qv32J22X6KIg2sRXpT6tEzGH2w7mHFJzN urrq83ALJsQOHY/k5Y6uV425xc1+3GlKCY4jkqG1vadaMoyDuM+1UctpI9DL tV6cuJGNZ0qaYnwaRJSr8JFqCtqhcuK06mrxCZisNOWuOtWGC7f91B7SW8Fs 6dcVWvkJDwpKLt0yKYfpWUGzW9e/4xVHWujROQZOp2onLJcm4W31hJ7hBSre 5ePLviNXwdA6otrxhA0BfZ1lbTVcWIf2nh5qqIJ9aZBh80IZProQpsbj2/Dy Wc8RzeYWKAZlV+lokvBF5+STzI9jIE435S5aNoZiX5nNAxwmiNvPftI8Po5t LvlXnXf24Lf6Kv8bikQE2qU8OaBJQG51ecqp3xN4YbacFWndjks/ZBZl7BqF fbXnJ8n0Imz3V9KtKGLjtIL8kelmKrT2SdiV6Y3jMRKrH1W0QM2ro4Wyiwz1 aoVL5ry9KWe/ihL42AdlcSTeN6vG5R3VR4o0CDyv9R030qqATtYlddPfQ/i8 RP2ictoowgIPKDjm8Hjt3B0fb5FebDsltv+POx0aIcf0K/w4WFh3K8ownQEY qkV7U+mQCm/ony3sRDnKToRs74BVfWT6//8fyMdLLmibYB5Gn9q/0ctk4dHf /P5jyqMwdPJmeJ8YhWpCstIzwhTEPw1d0PhOgJPrD0EHuzZEW9xK3cAahumQ hnqzJRk/JZ/PvQMXgd+n1MjkSZx63pe63HYE5e7bc96/HoOwz3rHUrMhbN2c E1DQ1IeBkN6B/Q+ImHn3weBbMQeHfA0KrXncYn7XT8iysRVXEsoV3DI4WLme k5R3bwoeNIu2zU6DkJA+d1vkxTQUlQsObrgwDvVvu1jKe0ZgkxJ39KJYJ8Lt 1b74GJNhlrvmX/mRWoyc/RWe7jcIr2tpuRakSfixdai7uFMIqcn2NKsfxM02 wRB5Eh2u9Ezn5WQ6Oh9Z2BrXESG4KZdvdoKGQ89u3tQsq4CVgOiQQmcV5Mvp 4uZSHfDmbogR2srFmffdta4dHETcg4TtOiqkrVeU9O6ewm0aFo8k9KLgVZTI eP0YmuZbo5JMpsBX/uXZV15/KPmMiaO4G6bvZyuWG/Tgs4phzNS5dljLfnmT sjEXhoeJKUspVERFPtHa18ZGaNDikI+7BiCXuHAmoKQLK53v5z+9SwYUhi5m 5zJhrqDadqtvApKOf1/7SbPgee9aT+wnEuwTDSXuLerFdrfV+0ot2Xiy/m5i QNgErpjUmWRw3vF6mHyp4WcWbKbtFATl63FBXzrhhvt3+J35a+S7i4BAz6iw Xo1JNBD0E/Zep+HGnr0y787SsLK19/i8C4/Lvt6dHYhowcLXg+k3lMdw5YxJ Y1TCILKsa1a7urVgpaiiXCpvjlameTr9PsVCeH2mSlHkNIK49Sv/0EkIUYqg vTKegtdMGH3s2wjO7apTGjH+CkqdYmju2jY0n2hr5MyVQ8pV0/TLxjH4lF76 oiZVCCd2UqL/AgvK/TVr5mZH0dTpb1qt2YLDkWJ6TrbfUK6+0k1SpRVuLXty VsiPYUtmk88xVyrSHCihE7zvP1CpeY0/lA5Oi/fqL/o9MObPTN+rVoQAK3tX m5QKODkGCmrw+N+eerlGRvMtRueKzW/OMPAnyXfDb5tW7FszvNcphowCgVvz VXMkxDu8WCf8bhLGMcOJEda8Pu3X/7N7hADhs9KunWZtKMt38/5R1QFF9zXe pvNZKCxzbHxSO4rdL8btCSwqVkYvezbB4+yLY7HsP11dyD5V9N3nfSvYLJnX XL4aEF286DKhgzjsU/rCuYHHc9IOna5DXTixd0CggDqOrITQ773WNFwu2B2g WReHREHGa7H5MQx0rn+yoDAN97Fjv2YaiBjrOyhhozONNrrs6aLeYWiaBbK+ CXDxZjXfxrciuYgxPzKgLpaPa42yfvlCHLz2tYpuqKNDYI/eefda3l6s8CYd 5u2JIPdw2/2JcfR57ysXm6vCt5CLzfmYwPLf4kYtwVxECnuWyLV3oXTkhP3t Z9UQ7/jd/eY5A+HB3Ubce+V4eqDc6gB7BEuH3rQN6U6DUKOh7VI1gT355dvi RsaxuOD7bpF3bRB4er6ndKEL919IPLe7wcsBtfD1H17SkSy0jEz91g82xbrx SDcZjz6fdywL5+XOauOKrTs4qD6lkqonNolJ5/rxjfcIkKMpXQiSn4TGQ7s/ An1MOFz7vO6tER3x5AeXf/FPwkDprUKcIAkuEQ+L/K27EH22sFPy/8+JM9+W HNMxBO7fNgf7XgLuZDIP8+2dwkxMp4sBsxMWVc6PtHMnYDlzhfFhWS/oxPbA vRZMJEST1hL2MZH+dibCZc8o2v4+lCv7xoKacc3j0FASQjccPjKoSIV7fUD+ rTQmFJr3nH34nok/qXG/an7x+v2OmoN2fTfUmYcvvtg7CYGwDM6sJxP77d6o jIjXwTqYWCgv1Y4L/wKVLSxqMfNyC/8BDh1V1FLhwnOTeLKUn3BuLc9vjWpL NZrGsJu+sbXa4//PYZTpSnHmQCtM+Zrez2HctO3Xsr45CUqj2Jnto0x81rv2 /Aebd/1e821r8iHC59qFEsLhcqSN/FikUE7EB7LYP1ZRPo5KhTU8mZ6CkdjQ oHAzr3dFJ1qm1vRgZT6zM+QxGWu/5dDFVNrgrK0T/+02BedvU71kWZNIaElx 4dtCx9Kt5tUBvNzNpTy/En2eDrXKztZf9mzcVLi6y4LnGY9k70usrB9Fu+jK DHd3ng9Yq5hei2FCaiHk/Lg6EYe/S0Q1OnVC6a6KUPE0Eezw97SyHYNQtz/E WcagQiBTISS9lgLltI2ffirVYpH3k+cVOSTsV+m459Eygf7dunaLlvVjadVf oyNlHCzfEnpoWW0riP55Oa06nYgVEYvPHJrAh+VbDulWDWHyWWtHzPAU+kJu lF2uoMBqd7rJ5g90ZEkHTGo/HYPRw786Bx4xYNtepfQ+lwaxK4G+738NgvUp 8uDvNWzM/AwpGdjRAx3CGcsP7HHsMsvWLTs8BnWHB3b1jkzYHyrcVn92HDMp Ym6WYWQomy6Jqx1vghVRrXZgbSlWrtG49nc1GZu8PwoyLjUi3DT70CUFGozv OT65vImX693yxM2UDrhfr5iUCafBaaDry9/7NKg29voF7WBi/d7Nu53M2tHi 3KN1zKMCYev1fe+/78LmlxZpwZnDaJtqbXHILUZG6eoOG40GuE38Gs14RODl /Ekz4c5xyKsaylbvnIKe0XOXeF6ffRxdUr/pBc9XRaOMZiKH4Nedt2jjtwEY LT8lmvVuDMZHN/M/7GLCv8D+ST2Lx8PMEfcoBd78ZdfLSvfUoXZ6e12xAxfP JPv3lY6z0Th2b7+hNANRRy/L0DmdcJhZ0/Y3ZhwfQxQVP90cRdRgzebF5YUY sF35OygqGdM7DNbKd9bD7Mny9y/5R3Cn6EOR5uJJ/IjzUo9zmcajP2ZO9t0d cNV10T5LIUAtMoL7K6sNa6QM+vpPD6PkQKHs8gd0vFn5l8FPoUNJpL7Y7w0H mssPruHnHY8a1VkroZGBOCOhtqC6FgS8+HnE5dE42n7JihyPYyJC8fnxtR5k SGesdPW0msY/X9VqF0cq1vIJKecuHUPRuIXgouuTEMz3XX/q5ggM+nJen64e xmrj2iWreHMk7tAjprVQjwrhnb+PHavk9dgW6sdqIpQD1RR1l9AR5iApXVQ0 hqNXDyknJk9iSxD/Fd+MCTxVPCPEyh5EvVG2YgboKG8yEOfo0KFVfO9SSxAD 9F7u25P/f35HZ8xfY15enN22uO9dbg00drkNpMSSQI/RihxntkJSzvCWbU8/ VDtnlzN7xmAgMHfE6WsXnnGyHmtHkaAYHGBiotULswQ5CavjRBy0LpnVPzPG yxnLtWmh00h5+b+Ozjwayv9945SKqKRCUpQllT5EqFSXFhVSWduEbAmhTUqW krTIVlIkypIlaUH2fSf7vs6MmTEzBjMjtOH3fH9/OTg85zzv+76u1+sM83S8 O+1HeMF0gYJURgOCV5XUaBVSoTt3/OWIRDWexrwWDR/sxQrD9B+nbrLxYvUR w7qKEWxKX+XnkUZHHC0w+6TQMEy31FwautWOsBo/bWGjJqjtfkRSskiE9EzW hqW8XvB+JT7xr6Xh5N0tQvOO7dhy1LPl/M4eKC4v3fdlgIW6reF7zcXZsNr/ cuEeFTL6uY2JR+klKHu+6yf/fg5+b9xMb3IfRsvsdTcNkUZYvuL9k19bDJvk k98Fy5lIcPiuctWei8kRvjctJV3g3yXj46XwFes/1sp+aWIjY9+wZ9AlOh7q pC0tiWYTpvtdx9+3FftaR1VCWG2I7I77//eT4rd1ndH/PITTmt0mQzQextsC pPYdoWObZey32JN01Mw97f79mPDGbulbTx9R0O5jMxF1k4GD60uj+33oWPVW 8xLPgo5sZ/Wzi1fQ0L/UkXz8Yxc2aB0opO2uQqJMctPdoo7/Pb9eNdiUjX9F /2hfSmiY+HiCkhQyjr747UInb2Xjxzn+zbHRZdiVW1uu87ydyGv7ZbnpJFD3 xpmqa5Pxd4PI12kBCg5ucj6w7xsZnxcxDd4Seds2eWxQqrAP7d5V7cVrJlGs Mv17NmYYq29YVn9JHUbrd8H7W/5rhU6LdnXd8wpMfqF6a4lPQvfGNvcZFR6i XOSLJZyo+O3h+NVFqASZ4zGGqwmOkbvDZ2Kxvgd1ZuN7ZSaZSF1mKMix4eKB 9zvH09G9WKmjsKuFyLs7X+t3r2UMw0sjITxOiYNfQkL+6S864a9pYe+0ahQd Pxjvr4j0ItJkZ8smpwH0eiaS9gz0Qktk7wHHszS82Uk6YLWsEC73JNfMv28F lKwVpRhlOOHyPmeZehlW3wvt8sys/d/rK4+SHLqQUip506e7GVF/zRROlGXi g8LC1K0mLMx/CvLUDJzAkyKFjGATNugx9aNVp7gwV5AhecV3gqEfIWgV0Y/y +aGNBw/14hVPfEG2XiWEtT4rHj7dhk79Jf022hRs3tFuNun/A7bFkvG5/s2w aXgRr3J9CIkF0lmajyfx/PpM/5Yf1aBzvS+o/mqF77vqG8NTFCTKPl/TLd+F Tdmjj5cbTyDyYr6CuCQVtKTTyledmWi+Wjv4NtgJcQ9E+d68rkHxt+tPLOP7 cf9axnQq4Tuzf7vfPXAjuHOIEUSOIHLbaJOkwRgPjkW/D9+UJPKrMejNoHkl 3pt8Ned94sLgu6GGcQoX/Yetxsc/sbHk5wOFtb29sDG88u1wfTdkbMzWuKsO 4TVEjU0rS8E43ds79LUH4+d/PkneT8Wppmz97eqf4Hiv+W3H7gEYNzo4P2XR Mfw1Ttp1KQvXZ1cknCXONV01dU+aBAWUIDOmUh0brM/lPx4R8z3JuqXSuJGG lNqJBQGCEzDOO8HaqDWCvsCIexlMBiLk9o4sSMgG1c3jnHw6F3uuax12GOdg m3ZZfOx+HvZtEZ48HcBF3ddVFS2r2ZiSc/uxRnYS8rpvKiJVOmEamD6V6sgA o+9ST2NmPiTXUXYd8G9D6CpzqkAWCfPrVyVKMsLQVP326VaCPzuLX+z0SOeh h5HQnvG3Da1eN2/X5pNhbRafGcYkgY8tmPd05Bk+hx8MmuRMoMJmQWDWKBcX LWW+aIQxYZlNtrZKbMLXXWSIBQ+jXuxYT8WXcSjbVD54yBiA0e+6/ceCG7Fl 2axOF8GTh4RiBew4XwGJ9bMX+Yfx27ZhUlSpBIfG3IPYJoR/HbTZO8vsRVps 2ra/dmzU2y+KiTBuw9Lo2zqttp1ISKvTvqPRgw31G51X3ObAnhXxYoc2Fxu9 xrKeHgoDd++Pf+LdwRAQatu93qsNsU1VL3z+EL34a+m7wu1tSDBes/llFB2z UqT1Wc+7cdxm4xifaxMqLpTfbyX8UvfGoQMKbWysXFE7k3piFO1th8Z+PR7C B5GqHTcVR1Bla3BRGVycS6k/Z36uDiFNJoc68/qxw7zA6fUaFhTJWc/f/shC IslA62QXEyfs3vun1fQi6eJUvH71IHTenkkRJvbjz8wSqtZ9DlZLzWUfWs7D z/LX/M2uw5D1uMLs763BQpf0HD9zMtovFqmF763F+bDt71wOjsLS/efPtn09 cCoS8nwxNYaEri/LVLUJn5QR3pi2mAO9CHV7+HHwYKyvO+kWEz+KXyRbfmRh T8nUal+rbqim/fmTQ5yj7ETYgJoCBROHFg7OJQ4jwvmlMGcjFRp+9OW+hx+j XFrx8Y3McWzhOT2W4vDQvXWnkb55NvRezm7oTm1ElbRa5RNFBp7lWby7Pz2K 5/eWcvlXsmC9INhW3mcYxwOj7XfcpaK/rqhGR74OOTni4cOsUXwI2/Pkn9Uw 1FfYKelK9yDx5+Zqi51c2E29LVm2ngHXBv6rJxxacGLhzHUfNzZE1pzeh5Pj ePlmubkTsUctQtorjocN4X7exYVKtllwPnHP7apzKWy9mo3tU8moTi/mO6tM x2B7jfLi51QMPF8x6rOvEn+/bCHjIA0fGB7vH2/oxbOH19/+jCF8+/2CzC1b Sdi5lHelg+BN0SdtV6/zWKgx3Ru5epyNmsUJSR21HKIPRZ5uCRnBv9KfTpmd AyC5Xd24X6QZd4PFcg4IuCHx9uyhEg4FEZIsevnrFqg+ev6ReXwMk/AN913M BWl8uH/qGLGHN0mGgYrd+BxiSArYQ4Zzo0RkwVUyVqjzFckrDMB7cJ1Xx9PP sGebh+43IHzzvtWWUn0aDK8/xDupbvg0hf1peEdBQVukSWIaE0XpN8IfJUXC bygi68rtMXRvSnWMOPW/52V+3pp2fJLITZrY5MJJVK4ctF26uRowfqjQ/iIG fBl1xxKvsCFY7ODRWE3Cx4TriRGn+jBqdVD70fFRDPqXlrRwu6FRILJIbH4I a5eHCno9YaNjS52O5SgPR146n31cRMfoXd7izGkeHvQvFbbbOYnNmt/FR/x5 SOVF9H1xHYfEbR7fRg8ydl54eXl36wSqPFZ5R/VSQJVqP1ASxoXOgiQhtWVs kI2si1fVUtBjnXM2YAkJl04fk1c71Y9l9OyX1BY/RDZebx9vJTh5s1XKlPQP ON+cO0khOFB76sts6oZ4xG0qeXhoLxnXUrqrbWpbIZqdLFNytRdM6vFoFouK J973joZf7Ufg3MN3AqvGcPddhPGZTho0NsvpJZ2uQcb+PXG3PhK/7+DNgAIN Hoq6baQ+HOFAaMwwfWEBDznyS829ldvgZ7H7Dx/RvwUupYNcZhuGi6vEz1/p gL3fu6SM5TSUKfq13yZ4Qz4+cXLRSDfcl8wn7wig4ceu8uIb4sT17oQ+GNtO 9L5iU8Jdfg4MwyzV0xOYGIyf+LangAae+/sTGeLEHlhfj6k6SoNf+s5/q37k ITa50YW0g44uFZYTiTlGeK/V8Y93h7FHQ8XxYEM+ikJcW6y1xvHEoz/AIXQU pDVHt8cVjmHBCly5SPD7DfWepavriLze71i51IaBu05NtZ3dvTh3/aVyzmai v/Ob2kye0hD17yh7aSMZUddjTut+poC5f/36+PccqItd+FnW2IODEx2fKQpc 7No1X3tgog3fxhYUvhIsBstNh2dYMgG3J0OSNz5RkeppIOkR24/DAb3+x4pK 8Wpd/OVxYTLiWrQYTicG8fycgqv2iXZIn7kzG8ZuwfeKPZ5+U1TISd3/Tont wlhDtb+J6RDk2j9/8sjrwpnV5Vm3HZmY3235UmaSmNuzgXUD+8ehcO6U9KqG HlB9XXzUSV2Is2Kwn74Zhl2qeEXgWDEsVDJrNmm248SlBOfBs1zslYhLk3Hi 4E/cleD/lLpxqtdSmaHVB3b/zqMHCD5cupZdLqZFQdJGr7vbGSP4sDyuQ/n6 AGKMpQ23viM8fcexBqoSG82Myfn+uyMoCVEiyxRyYCOjm/f3Awvup7dcW5zJ Rq+pgK6y/BBq3jX65C8aQRz5Vbs3wc1L19310fcMR9m5xTqJg21Y9Uw4/BXx /Q+pAg+6P5NQbjD7bHc4Hed212eITRNfb+p78XZhF5Y9ovcJzVXD7O+LjrCu KrQ7aSqHDYzj7CN3aVeih8MaDBYUSpGgonHFYmw+BWKnvj2wF2omeMWxufgH DbvS68q291IRtlf5sOrdSbzu4Y/9eobwjPVUjRbC/69u0zfgV2IiVjswSSKu Aq8eC/qMKVNRtv6gpfgWJvRPM3OnPgyBs+CB8qJ2CvjtXFasHqAgzkTrVmNM FH7mVE+J13MwmmT2qfHtCJKiAo6aHuiAd8vEtfO8Jty9JvogTb8HFZZav/53 3/aeEnygmMICz7H+54+KcRweiE37R+SvhOSyowV+3VjVecf2fggVaXzbRlyu pEHZfrPwHm0OWj6fU9YWo6NAK7iS/08VdF5UVOt3NqB9ruGq3H0q2u+7Tyb/ ZaLjq27LKYLLFFPf3WjxaMHpau8XOw6wkLz5P5EXSvX4w+cZ7/SWhm8Kzgn7 HvSi6UMVn09SHfYe75IsFa2H6hld5107suC69Ua7keVzqD5Lmk1XroQrqt6O 8uWA32q8ZXBHPx4NFn9f/IsLgZbk8i+99XjRwHBzPRmPvdsOpuXaU/Hqisxy 64ZRrEp/3hzrS0Wr4Zf22HsDiJ3bsmTKeggDB1lvHN90Iaju/bHxCjo+F0q6 Dy8ZQJrsr/7GZRx4fqWsPFbGQkd3kYJCJMF1JlY5G9b+gH63arfBKAcmVx0e /ZVjwcprzfrQoVEsCBRufuhRD53U/t8iDS2Q/NhSZr+oF5wDuwZs5Idx4dSU h1hYFUpZS30OX6XgpE6Hg2IpByc0Q+bfjo0gJ1Kn34fg/yUvVOxbN47hv0fs yHfkLnzxcbB8ZlOLij//VlFJ5TD5nv/pwIt+/LF6k/eNy4Bs52RHm3cfZn3M 1W8vTsXRjLjyPs9B2LTfPBJh0IVerqumoswYdixdNuR8nIuE7/rnfCbH8euj cb5B5wQ2WS8SqtzFgVjzm8G+PDZUItf8t0SPjtMCmXx3ymrR//j23cFtvQj5 6HQtwb0bPczUqOsprdjduwMWM1QYNektkDhJ9GJ1rXy/VgVYB7Qk+WuZEL2U rLpt2Sjezlo5XXVngO4w5RX1kIPmQs0NTlfp+KgQb1PT54LAa32lZV4cLJJP GTMWmYTHE+WsmY0T8FOJCtiTQccL7cWGpgNkrI99mxTnMQB95txg3Ysh6HnX vP3owsXbucS774neixQaPHVkjgP6ZtkYbcMJWPJNOlREkJDjp7/mtfMoqvUS ziab8WD8vu3nXwqR74v1ni6+zMNZ2RBlcYdWaK2RO2xkPQLlerEA8RQ2vrz4 ZxanxsSGwmG9N0pk/M49+/6wBdFLe8foS+J5KDk9VfGB4HEFX/FwtYcUBL/r 0kyd7YXPW+lt3oSfVXzn3rWQa4KJgnmCahkVtnI3tb/cnsTL7y5bHL4R/rKn YhMjrwPdYiFpbgkjuFMWcGnfRi5Wu1jZX/BqwYVnF+JlrKqw81BXv2IrBbGi qYZiMiQ8/kLK5xcaRshKL/mDXQzY5C+7lzrVDlbwufnts93Y9PZimWUHHczJ vpS6DyPo3PLcO2A1Hb7yTZN0zWyoS0mvl91IgWDGvMmOC53wEH29aupsPzQ/ im95XxoGR8ZTOcsfLETfsLqYrtSK982jh3YQuZ6xSVZ7feM4Vt276ayRSUNO zQV+yZphLL/loChFHkRb399rQYQ39Hv/HtC/NoLHDyuLOqoJX7+/p9GXRIW8 WWj/bPk4LKZTk20JnuY1fD3Dd4cKSrv8nbElIwgKT5oQ+tIHQT3D4PWUDjxw Fw5ZFt2HBcEhDA1+Nk5FrtB70tqEWr15v5saZMx/k2jsH0pA8z5Wjhm9Al// +rbYK77CL35Vn5jsHpiIfKVssxxD32Kh7nAPFk7QVUh99C68siAdGgvowWKb l5/lbo2BD94RjYxBpJ2kR/yQ4eKhndndcEsepkUSBNh6PAwuqu4JNRrBmXva 3xRpPZiOi9I7eqgNosp7XLw3tqNu05Ju2xAGor8fN7wRQXiCwSO+Cb06LGDw tU0/LIHV2l+Dbg+ZiPrIHBYUpWBb56hD/A1i/6ZP30gn5vX+mb95vWEcnPnk l9v0lrie31bZRXQevtlHPj9pzYWIiqOyVF8XuJUe5gtrxzEZ/7Ds5BsaSFar yj9McFDxNm252hkO1ARKZPavJDjn9bpvsQaj+LL5ZJ2R9wS8f8wkfjPLx5UG lwOHVHLxJuZiZnl0F5I+HTC0k6YDD71qb4GEwxrjnVd1eZB9MpNmZsxA04XN X6Scm7H4rolpytAwzD9khX9PYaJy9qPChuUcrNDQzfz2YRSG8o97nElcnDH9 mPX3KRc5f0yqjaJGYHo0n/ZnjAS5RTbbV30fwCHzKx7m67xx6ygrasNyKsTm VGdcZodhu/Cq/PKzw9BuVkSTSyk2PI1fEkjk7O32De/ynpdjZ7qFqStlBPXr 6aZb+SbQ6LGPvu5gH6x0Wn9VXWlGvMNz8qwbFd1/3h1b7MDAOs9hUtpPIp/H 24Qdi8bxPHX6Tp3mIFT8ynLsnEeg4sHKN1lH8G83tXRuCwP8kXdG3r3twvDz sdVvHBrAGytaJn+T4GHj0HjO5zb8dRl+/pPwyQjr5omV+nS0vaU8zbneBbPU /UmCou1oNqnNS9hPh2HMDbXvpAowSxhb74v0o7VTZvXoBhK2NrarbVOewEyP euZGZw40vhZpSzkOQ9JRW+e/3FY4mMxOW8xmwkTY2jdmdyX2xO7wf+dAg9Iy r8FDBEdbfw+bjg0choBLXfaihf97jkZj0MatFPznEDcfJzcBl5xYowMgY20r 32DMeh5aKlY23JhowOF5bggpsRG0AG7JsSWDGFMMSKZWUUEVn6x3PtuHeR/R 8/uPULFhjW3Q6VImXHXpK82ZJLTXKXan5bXC9Lf6e3tKD1DplmApzcQk5dPG koU8UMsCNH911EJnbKQseEcvehv71qddHMREoXJGKeFVT8791fgzN4qe0qqv JQI8WGWoK2Rb0fGt8hutXr0VtByZg3rE9eLkiwS8S4bQveVj2mmdfjSkkxnx vYE4o7BjgZgZGQkLN9ztFOnBibCPJ1ec6YH0hk8D00SOh/77jz9djIepD+7S Wa7/+/uoEYfCgxzsKtxFC2liYdeCLe5rvRiQnFrjFkH0acKHj39euozAk3k7 RzSDhDMH5M7aSZBQL/ZfI3XZJP7pRm2J8RmDp3w/bVsXB1nlSd87P/fiSrql gUpIK45fFDO9aDMEt9/C46USvZitUbXRVSeDv6ZYVt/bE97dzaH606Wwfrat cFwgDU0eeueOD3QjlH7SvvT+CCpPD0/WZlIRfXtRvMVcHkaOPjygubob5Uvu bLpgzMGGmjNH7FgE147w+IzOT+D6hbTSCvU2dNonKOUuY0F0dX7n+Y0tMPtE WW3NT4foLq8sRjgFK96PvsvII+FQg7ikcE4ngmy/PXE1ZyKmLIK782EfFD19 3aOTOxGQNC1AVulE1O4FRY99m1GVOqG4ZVkndh+1lehuGYdNzjltSaKf+dZ5 6O0+NILF9neHva3rML/q9qLxnQXQdX/SR7nahaHHeaF6s1RspkekKwqzMPf4 UvucXRgGDJOv2Kzrh16Un0m8LpEDxcJF+undiNPsERbIInhWquDXzpujmDm/ KeWLSzOcfQ4dHcrpxdWViQNqIVz8/HcghlHNxK/WRHurM+MQOZbTyxdRg8dp vqOrPctBF2UdDCinwbfH9uNDaQZM/6WHfBKmg5KzZpFQRS8Wlkys+lxC3K/Z Qp743mH4GORvEfrJglQTL9LmIQ/uFvxyNzOqsGKXdOrD5m44rY0y3n2GCrpb oNymljIkFAUZr24go9ypXTCh6h3iuFsPmkUPITDjElPTmI6LCmJHSAMcuBi6 dzyS4cDSO/iRV2kJLCJH7SRSKxHZIKIzVFiFmpKiJb5SnbDzJwWkxZCRwfdn vTCRp1W9iUvUX3EQWCZzVMxzHHl7FBpnlIZxaGXBXWs3Jg61sidfLKFB9Bl3 uP4EBXpCz/w7Lw+je2pd988PTJTTacKlH/vxoPldx4atHGjNcY0smTRs3sWW 2OXHQ6PFHZPfT5m4tIo1qHGBiVO++tfe+dBhYF064j6TiDpXx8jtUmS0dWSV TMUyIZ69ZqKD8M8Uzbi4s5uJntuvvVv6OwNyQV+rFFYSXOOseKZZsAVWr+QP /FHoReClgcA9eqPYdpH1Vya/CqY96hYcOQbU+U55P5Fnwjhz2NyJyYDSnJmz TBQZC49QtWRCu/A89pkx/49mCJ78WrHxYSsaEihiq/ZV46RkV13piWHE++3e JHSOC3Gziz6cpD7I3+KJXh/pQkVnXaThNBsyt8Z33J5hgX3/9Y67a8ig/pFU SrInwXyHzVbNA71Ax/CygPBc9F7dbFkd1IcPjad2TxL8dHGzoVLd/lFAty97 aOkkfj1MYxonkPDA2Jr19k83+rLZ21NkW1D69kl21DsGmp/+DuWGTeCIpr3Y 5PERLOoyce+IpeF9kKeQ/PsWqDB5GjZBFDAUgpsSXXjQaPt0gnyfAlNbp0v7 7lege7x+6ZJILhzvSDWvBw8uk6bkrM2NqM5OfVLZ1o+mxV76PlI9SAtvVrZU +47lr6dO7Z5iw1RLqH3ck4HI866dCdYduHmT7PswbQzHNKNXDKoVgHxDVL/o cCV6eE01SvNcPAh93/JqOQ8WzaEWlll9eKmSuL/I8gts3Cf8xqtaUbpthfGD s7WQ/a6RL3h4DCWktlr37Tws32wa/CmTjImsqWlq0ASK3zr7MOPHsFZnKrpr moeDkUr/CeycgFjsGvfSGTp2xd2O+GxAB2964b8J00nc5twzjtT+AWbHvf0i zVQc0lPpOiBEwc1rGodG66go8QzurOsvwV8O12qYkQzdS7zK5hUliLXNCvi3 OxepuhXKps8bsGFaLWNrygf8MmjeFfGBjN0lrpb9e0Ywa33uw0WLUTiKvN4r S8yfX8aRbq2BXty4vt/d1IMM80dXuZvrmfD9cZ3fTGAY+2YNvHZKDKG8kuOS klSEny1uR5Tme8C6NehSo81Fp0ztj7/UETQnrVwTefYi/mQstz0V2I5gJVZF 3lNizupKg2veUtGzebeSyyYapgJp4t3xowTHua2wy2jEg3MadeQ9NPQaeN/V e0FHoysjeDqkA7XPKzd90KZi34evP/+NsbCuIHT6rsQAav7lyXwXpMJpfrnK 309pYDMkUgJ4ZCzhe2q9to+KVPX+gQL/DqgZff6R2xKP4IH+Ke6fMXymT6vp +rIwtnLpK4ONQzgqLm4z5dWOnmOLDJP5+rCCfPb3ZVkKal7LyDSsH8T2m6rN z4VYWKhp/azuFgsyDl5rDhKeGXUysmUrtxNDX5pzBXPaEM01PyJiR/xcoO7F qehBGByZmngMCq7pe5RI/CYjLG1TdekjYl/zC6vkKppR/3H1DjOBVvAlN4jW X+pE9I52g1z6CKoNNRp3WRE8Mea33cifA1nt7qTcGyNIikw/eYTFwuerBvWZ VwrgRHN0GfzXisQ5MebnRQPQvX+NpXqYhRZSfUBGVwtyBNQlpKO5gK+LX/QD HqSCNxQ6mPTALEo4PN23Ewb+TnsDfLmYzHtV0WPAhmSGxYWnGsOIKJEbv/SQ jDV3+RYt3kNHZ23Udr+JMnjY/fX5/KEd2WFG96Mqy3H8U6/cEoJ/JPvVWos7 eTiyNMep8CSVOL/h0ZI7XJgr2fkf1RgEZ5HSytKOUfzquCw/GULHjqBFm8xs G6HM1izwP0kG7ZLtSo/9PMRObnW+YDyOesYmDcuNI2irCHtVqkjFnYv1ta8W E352Kbh55/Y+KKyhkYxrqVh4IWlB9XMyco0ERIvnh5E5YT/4YeUomk9dm9uy qxFRlbctSh9x8NkiIXfznUkEs9elzG+n49mF+ilO7DiGE0W3SRH7Gvr21JnI +h7cpBQY3b/chcTxZNfn64bAV235qbVzAI++bE9OJnp7E7Pg1b77JMQ5n3ok lziALNdeKfY8Ca/THDdVFo/jpeaKJ267qTDRyCu8PktBHI+/Q6+fiZDK0zpz u8awy9zxRZIdC9w7cWzHxZPYv6xXZcsIFadUHV6mKpLgdZkx/3sjFRVO9yTq bvcT/ZEfGzvTjynN99d5BTw8WmxIWqbbi0ctt3fV7mCh5/zmCgvDUXj9yRJm XCV6JvZu4ckLY5hoTDGL+cHE64qBAF+7AZwXD906zuJBu/LoyZpAGo7asrSK Ujm48MBSR0yMindFh0zWnyb6wu9TOzl2EIsGFWuVfVoweWLtePGpCfCpfXtN 02PjQ3DkvZ73LBg+FD+qk9uEnX/l6fQjnXgY9vju2fA2sNPPp66yyEdSd4Dc nc5m2JodMid9zQLfwju6f0+l4uIr8YV4NoT+rl+UysuTCF+z8M24CQf5Exdt A69TIUvuUTOf4WLew0mYOjOBvO9BfboKg8j7coH98Hwu2MJdAWxTCmY6WSOj c+moNeFfFhNKhvM5eTfXVf2wUAxxPO7JJvyOKWXZR8ZJPEszo3WDffL9mb/P xiAyce9GYQwDsnW2J0XYHMxscRnJlirBY3L5jYzsr5j28tXK0ydD+OCMa/Ly DmQvn15GFh8DM4V3P3IfFY+CDi35tpCJZkk3oSQ1Gs7Ybmq6dmMYDG9V4Tj5 STgvWmdbfSsTfJTTnf0S5WAN5J1dQuRMhOyYj4pqG57YFxckOTciLtNLzfpq NVz7WlO27x2BGnvAdDyFhFuCG7P9+IfxoTlaZOPGHoikKPbFfGJAKzZz/6+X BC98Fhbb29SGm9Ex/r9ZhC/88jd0eEzB4Rfy4tF+dci2vuejYkSBX4zOyY4D ExgU2r1S9CUdz+04ay9foiJTY0qnLasbrJycoMxCElysHfOCYgZBDfs54/KI gu6b+QPfHxJ8a+Uc2ZE1AundnelbI5k4aHzrbN1vBlQ8lyUKyY1gfvMIb6mX NxLG34zu1CHy4MjinyGXuqD20s3+71wH/Cxm542XZsM0ZN/F1ck0dH5ih1d/ JcNGi7Rm+wIaVn+quvVkvA79Z7JcghdR8Ev6tha3govopgueaot7cGVHTmnY QwZa9YLS4ogc12HfvZVyoQtOymovs1n9CDt9jz9mwRi2ekV0nrhMQ9z9SR1/ vVbUr7B1vpzKgnn4OYMCvT7ifh6yFnlHeMflT0rb+H/AUaJK5i7B8eoUjbFN BP8lCfndiz3cg8YtBuu7NZiwkn9j17S+DbVi//22axqGSNbI3XL/RsgX5L6e oLYhOPTZ96yBWoiHnNi2boaEryWP/3D3UJE3NZe/xy0TmsVeKtvdx1Dc+l5a kTMO37QPx5ktHRg3lBu2jmMhynDZioiWfpwu/BicuZCDnGPu/RZtDVBO8I88 JTIMlc8n5CJ/t8P2Vz5tryETq7umsoZP52L+ukufkUQgmI+OffULKELDP7m6 v5lNsK2WcV1b0wYhA4VLF4lc2qAr4NlTTuzz1EGDm/PNSCbFnq9tIqF4i6Zq YfQoPAcFr81VD8KT3ryvYEkfQqMP2dsP9MFtWm5ppR4JG1l0Pf+EEtwYVJxT F+hEYUS027jcGNInpp4azY7h/r77LacWtUKXxzv0iq8bbsahz2gfaJgPzLuv va4EQfdGFs6Gk6EqGHRtDYcHdUvneI+ZEfzY47pM+hIFpT6vHvgJkxFvX1Zi 8YnwOYnDVpKL6Thn+yz8MLsGlUaao5u20XD4rM8Pc6EUvK8RSkgmfEV7zDJM 0fQTJHUvtp2MLUNxY1FF0JVOLPC136bBT8znl9q+jAdk+C3yPRK8nNifjiVt 2mH9UJy3sfD+MQGt9fY+l+sY2BOkId3wioYttarO1k4k6Nj8l/DHsRfzqodq l7c1Q/7NQsmYVjoY5QsvrZanImj5XclKIiccPbQq8is5UL6+m2/RmhHIRQ9M nzMqRKH8l4jF0Wy8Kvc9T1pO5O8i3TrTOwzoiOw6x3eQhFeVAp5d99movnXk xak/7Tgi59P3d0s1cv0v5eoczUTnnWv25gRXnM+3KyTfLCU4M6nQ9RnBv6vp rYH6gSgcIc/FTvbCJLDQ03ZtO+RCH/3duZuJTjNp2++jJPxYkBFaScz7wT33 N1K8a9Al0shIm6zCpfX27qPVrQiUOZ8uQevA/Osj3dzSGgxqqdsyifv14eQC +RhNIifPJa2I0m9HgriRnrUSA5/N91fcekSFETP4oSl5EGbBpeobegj+ls2T Ee8bw3RQuLjhUhbSI7+aNbml4LGheONgWj9C1dTWvV8dh5AMQYtrg+M4lFmX TWkfxx5Di/D3LwfRZXY1eyCMjmbvvUdEUrnE3P9UI3/kIshxeXIAcxjydLVf aT9HseDj05WyMu0oaRpNuv2ShQ9pKyKuORG+Yb2jQ7H9K4QHV9rmz5IQHjTL MLrOhaD0peeBnyjo75SnWbswoRURHfWKV4GHoetvNiV/whLb7bE+lyfwoNS5 Z+GzSZzQXLP6z2cqutPp6hsGCO65HjdQTfhJ2zNDv8MmbNTx/zE8uYEN3YYD vWrPJ1Bg1Re56no1LlJVUgI9yiAuuuES+xYH4QYnZC/UjqBmbigyackkvksd T159fBL1KQveSv0ZQPKHxT0qkw3QtL0k5BI2Ak0/1RyloQksEcrKKxCg4/eY gBCfJxe/3t627CzsxpbfCZxZd8Iznoqr9dkkQWH/jhOfgmMglWV04qpsL1xv +K9VrK5AxvoQsYgJFm5821ssdK0HmVfIcktq+7FO4UrPnpUtGDEVTDg6wMNa 75XN4/lcKHmdmnPRzUfDlZlzpuHJmBhZNL10KcE1dtf4FP91guXZELBwnoH5 +NvkbfZehM8WT9YlU5HBpB3deKGH4KLFK++1jCJr3z5KCKcKkbln2a/vt6Ck cHHAAr5SFFwuLQtJpuDOj9s/Kms5GJWwsWPXkKHZLFZlLvgVIc6NQStKqGgU pZ1yHGSC/SQlz4fo170Zr4fWlXMhP7BtsVMJCbvK3SKUD09i5+I/5p8zmUh4 5nHeZOskll+0WvVLn4olTMnsP6oUtJZ+ufU8m4n8B7bTilQO7KafPa0pbMdZ 0RTvM+KlMDztvLWlcQhbmlau40/kQOC80lexoyy8137xevOePhyJPkzyJ/o6 d+1T2e9BRH/LpVm+E2cg/oTWs+kRFq7K1r6vHSJ4RGp2cOQSF2PLHNXdf5KQ ptaQviwiF5z/+k1nz43jdWHVvtc8DuF5v+pyJ+n4b0PN3N/wMezekCT0WZqB o8vjhjR0BhEuYJMuokeGTG2U0rE7fWjMZOUanRlETSazttKRjZEa7W1l7Als 1F2p9u8GB5IfF0QNvBxBTp9siyq5Bs9mdsakTncjI+jIybsq47A5P3Ln4Y5h 6J1wc25+0Ayjukfbi+ZoeOYyZfqQuJ55esnrsxk05EpXuGgVcHEzgWbHtONg /vHDPae8ebiv7P39o8MkXn9aDWfCL5+Iza1z9JoEv/KnOU3iY8VKO+ewlVzk bV9d9FuShUVsp8HdA0xcPvtCR8uhB+IFTc7SpR1o1rRtF0EqBI5EVNUTe7rC c9UVlavjoD/w27RHkgmL+6et615wIWvxLKg0noTxtf7VE64diFMN+uPNT4Fe K0XBOXgMbtd+XTMTIuO1R6IRPZSDmozMBL7sSFDvJv2NOJ+Kxo+1S6uOj2L5 lW2bdA3akDslsylAkIkdj71GnC4SfDMez+tdQ/DCGmH1l200GM/v7f23uB8P IrU9mtQmUTX9smL43QhKZD1TVFaOo7nJboXTLBWU6a7iYSYHJ93k1f3Rianf ZgOqaybQcjnidf4CLk5cdXy1aNUoJk+vPxT2cgjblx2bDFJmoKSiRKBjpA1b p/9JZRH8V9t1R6RmhAnPhNbfz4JTEGwovmSDVz+O/Sox9pfm4d6ivX9vCXVA ZUHt07JXJEzb9wQ699CwY03nVE1RJzKbj2d0GjHgxHW7tIbZD/1zTjulj1Hw J0di6OsBHkJNamwddw1BNTBzjk9yHGJLHfdluQ+Dz+aB/uq+D5A9kfPFynAI g9eij56Ir4WrzbWAqOQh9JS/OX/z4yCO+4hVOrA7IeqemrqtnYnwyuwZ398j OLXkW2DmCg6uGLFeFB2ugrkrifv1UDt2fQ/4oqbJwIpP3Voexwk+cI1SySS4 Wvi16513QcNwu1BrvvLAGH6ESLqGRw3ialnfY5ofCaHPA/uYNbX4Z7jczfZU FzYN7N32y5qB7/sZZc8NeyF09cuSr8e4EL4t9WHZ2QGo2fV5PNlARXyMVFdV MAVTxY7hfz0oOPjbRmbtIyaoX57YTNu0wtybJ7CJ8MV3q6U5xqx23B3gdRRz qdhpHFVsdWgIc8f4auy2N+N8RdwwubIHly/kTz7dw4Lz+5pjkjcmYfhqU6TR Yx4ueTvd+KE7CdZ0UHUJ4V8zA8mK1xtYMBDxz5TQ5+Gc+NvqemMudu6OE+1u 6IP+6kg3nyAWVGjvKxZvHcWK07eOLIjmoaj1P6uDGYPIyWEn9M3QkDc6eqD0 Fw2jiVnb6V08SJeNCSy9SoJHescL3kUmftbkHtl/nYbxs7G6dMEWTOV+XGe3 kIeswXfF5O08iCy6J+kw2gfRTlsDS+lRGGns+rbjZT+W0QZKstVZONIgOzY1 24MdKzXVzxI84bp/Epr6FCRtrT2v7E+HfYjZyF5BKh47fnrMWF9CcMUimSWh zQjLcM0+aJSPoG9Dbw5c5aAh8Oz04oOT2Lz2vWe/exdC131mWseVoUyAuSp2 cxIKU7N9Xx/JQ/+MekFsQh/4mTGa13YNQ/DCmxe7pUaQFpDz4hoxJ3eMNDge 9sNw6jP410Tkuee+vKDISzTcCmRYSjxgoEo1/75cMBe+0QLdImfZ+PryyZH9 jzpwZuIM+YIQG0pXWc4hK4eg+HatQ7BwB0pTBPIO1NEwWbBcwjiUBPfL+z0N H7OR8fFY3oPfLTiRd1FJdZ44z+cO9ygrv0NoOOzmTqk2CDYN6vsRPfW0bZuj zp1qKGT/Kvgh3wLViv98Yh16oeR08XlIMBv6N3/KPa3moG6hgWzidg5W5vlk aZ3sgdoKxfbpP0w8Kz0h+IA4R/EkBc98IkdOu9vF1naPIk4/JmjjhQ5k+umJ LRUaRrf2Zrt7/3FhuSaXHs7fC911b5Su/1eJP+c/f3JUIuN7UoeFJjFPwYaG zf/esiGq9XPLJotx0BLdF4USPFssVyIiyzcES0E7j5A+Djadea9zq3QCxWl+ QlNcEo7sF/0Ss/YN1lCEb75aMYGzl3pDHfbScFXw1+VLbR2gdumutTHLxK7M /PnTtVRsePsmVdu+D57V7Ox7Nm1I2Bps/2szkRM7Kqd5RK+l9D92mGJ3oOPH uWG+TMI70qT4NN/no9F2l5uB3jCOUnJa07SYqD8wOCpNpoLPU9axivUdybLh D444MCGRFc3aQ1xHXVd0Jv3DGGqirWeUTbmo/89f+ztnBGZZoesSCI/593xG 9Y0/B84zeHxeYgIcre7dcs7Z8L/pVdjuWICks4O99WqD2Hu5+rXymWQIfGKp l5DpmEh+sfejBBVtrlr7ZLdVYp1tqfnRT/97X4On68L/9/9HdJLUfaJH0nP7 YrTzaLgif6U9ZXknzkBIfL6ejrzPTmK+O7nwdPX8nAsuWIL93TkiXHzhFAtU lQ8hd2/ja/UUDoLFb3pLhFFw7Xjxja2pTHjM+uYeM+6HSmbWEd+AUSxt3jP0 zo44L1bhrr6EUYxHDBeILuhE4ExHzoRqA2JbHk4VCdXA1CBW9aJJCzinH3uG NQ5Aou7j+aCAHphG2eQuWDCIm3q7p30jmHiTyyfvUjWCppT2LgfXVigqh5Tu 82ehrOFNC0mY8NKYczdWVffDuMa86t/xb0jY/UehVaMQHquFH19OTUZo2pst emNMVEZc33WilIzlJ+YO3p5rQuIBjmVgRzsM1l2qTCQ+V38Wd/6y0gi677pf dWviQPsvRXvYgYcn8gdFx41p4N1OPlZI7Nclv9zOhnUchCI6sPEkFy9758fv TI/ixkCi3A0HOqJWqE4Eu45iq4eQ4eVNLEi40vsotoNgLRIy1Usn+Nx7hUKR XxtEBdbuo4GN/wOTwoXV "]]}, AspectRatio->1, Axes->True, BaseStyle->Medium, PlotRange->{{-2, 2}, {-2, 2}}, PlotRangeClipping->True]], "Output", ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXPtzlWV+j+ScE4jKumu7O9Of/AfKL2231ooQ7vdwDyhCQkjAOkLIhYDW nRVvXBQIrBjkJrcIhIsJBFhR0KirnVnaqevWrqu7uDPsTHXqODjbTDedefr9 PO/z+b7f95yTc9huu4sVhjcned73PM/3+vlenuecqTXNy+oeqml+oLbmjvGN NQ3LHqhtumPcikYZKr2ppOSmoXLddkdJSn53JSWJH/j3DfwY+Pfv+5eM/PjU tVfK+4ZVugWVFW7Ygnb3uXProqce8S83u/6+q+7qVXv1uX4/3RW3d227u4xf P7/iPu1zJYm3lrtLnXtdW3u7aw9XW1unuxy917n+j9z6hja8vRR/pkD+Wktg Gg+5vvD8571rXWXbeyX+YflJXvHX41lv6/tAlnrN37vcVe+Gre0t9LbH/EvK fdS5xg3zYhzmDn1wtcA71oZbrq+P9BVaYN3X9Ja/cx3S9ZW+dUOoN4T61bj1 dRAqY0cUqSQUyCX/ryHauL4rrnNtpSuRoHu5r9A7omg6pEAglsnea3MV6y95 SopMUygoX7203lWsfbfQNIx94dHwl0sG8Md0uN9dfm1tsTn18b7L7tCaConz BR+/TnR/Pd36OvjaDaH+f7h1Q6h/PKFOCLf6+6LI0d/XXzI8z+N3+585UW10 NEvGv6TdpXaJXlIrLVhQ6YYNq3fvfu50tiuXOt00mXHLa58UXiEZBYcXmPqm aHWEif4+BsGSQf5nJgTCftfbvt6djUpSd/nTvu+GtXEr+ZZ0xJn/1+eeHznN vdPn8tLKsRBjzVg635JKaLn79FKXhFcbatvdu1f6dNWutWvc2Sv9f+3fUO76 P73k2tva9HH83vnulfD4526LENn7pStEo43K9yjvupLw7mlL+5dMpGDSc/U1 V1HRLg/rCs59yUULSsauenfhqW/KJkBoWx+aCJc75c56tCA4cX/fJ+6xPx+Y gLuNeplnDC88dSAgEwyw76NOVznM905cQ+cHlNknvXvdyBKxiWILm4zlnvxT BpGXGW1cjZoGJd/LM/P38jwXpvh9sON2f+v1ix+7c2d/5tq3v+M+++xLt3XL m66luce1tpxxv/71F+75595xr57/ub/3yJpzrrv7p+4H2952Z3o+kNcfuR+e +xnmEIJ++9v/EiW+2ftL95vf/Kc7/8rP3XNyX17DvT9zPac/cEsWH3PNTaf9 +7E2nr144WO/Bl65zqmwTo88B5qe3fiGW1p3wv3qV/8uf7/lVgmNWzb1+vWx Fp57ZM0P3Rdf/Md0Y1De7coCSMRmlhRL+Vdw7Gb/M+3H6mqPuRHDd/hr7uyD 8qT8Jj8hs3vndfi/BoUxPI/nZs3Yp2Pjx+72YzMq94exlOip04/dO++lSHp8 dCeXkofwMy1LHvJjnHp0xQthmoyrGLFDScPVsLwbJsBV+JaHV5+DJQz5Iwkz AUHXh37/t2zDCr9m0ZGgmDI3dfKLbs6s/XpPlEYlqrJH3hPdEyWqsutqj6uy Nz/b66rmHAr3St38qg41jkHh+VEjX/DPjq6I50qHe7QxXlibNvlC+z8oP2W/ hyz+j8zinjxjIwYQe+PKU8JCxNakCXtURJkwJiLMERugzc4Bnyo1cyxaeNj/ NSQ8P2nC7sTzUyfv0ecnT9zjoRzUDb5GXv5HrEdjG9a/buAh48aMiiBj4viI xOnT9rkN6y6WhtvTpuxVqqvmHPRgfvLke7SpeXNjmyoN81ZOfdHPEmYrDzI4 cODHHq4425RJuxXOaN5L644jGP2OYrCx9IIEqVhTZcqWcTL/Wr/kmBpzY8Mp al7HWprP+OC1pvWsjuGZFgmO9rmpIh84qsgpiLTMta46q+utlt9nzzoQrGSH at0gr1ofgixZm5zLmgjGLa0/EQwz7dVhWUN8IA7AqOy9eVUdMbsrT2cZecbr DGMrG7qF5Ch2b9ncOzhM98yG10XVkR9MGLcrwckPtr6dn+qU6gpZg1BAm5Ig qISNGhmAZ+SOdLi9YnmXLjZ54l734Yf/BuwiLE2bujdhsBLzgp9l3ETxs4YV 3QnIlLSEAkZGBCkOIGD86+39pQLm4uqjKqh0GBs3ZldWhC31xr78oe6EXcDO aFNUGH0JSZZXytxDeo9gzmvhgsMqYSoHydqU/BIGV5KPkSJY4KqWngTllcEl K6e9WDJYuYnzBa523/xsvCuj1SvuVQX1APeIk9OEyqo5BxJzIW2lbUyylKet H/ssU7KkRKSCU1qBGiDSJWtrjqqQSwOzMM8kNO9UEayRPKa58ZRRXso9+Hcn 9dkVy7vpQILQamUnT7znU+SEyZQlODj/yodBuPtcTfVLSo1NsOqXHHdNK0+b YLM7S9ARxMyeuT8xRheRVxVsUK5RcErNVaDNPbPxjXyC49st0kzMb1H4t/25 d9JZjIwdHXmVhJFAYLn4c5yo4Joz66CbOT0aYyAQG46MbnAOJM+eeUB5HDfm BcLAffNfSjxWJ+ITaFBdtp5TX7YslIYcCTbVtvlNSFklSVSx0qUzjh29U+1v 7uwDJL6EoOVtpzmSOkRaLQ4uNnpL8JBZMw8kqCX1kyftUW+zUp8wsDcQhuh8 wPmaRQpFvrbCa031UVWoUO+agmVTQqG2cMvqj5dQqFMnx+Ec7xnhA/Fe3obp 8HbTylOuu+uniNlcBVp64vHzkJmujAo0L1OZHKagLjEpulhLU4+vHbngmFEv aAhdYmqmKYFmgIvUppo0kD/Py5idZBvlaba9swQT9Jb0OwYZ4JkYShKbkjnG oDAmlavHG2s7qKABDhaTUDlPr9xnnsuoE1jDmFG5j9MQ++PKrNQXzME0day2 plOiWxIWJ47fRZxSJTNe4NrW9rZ79JFXQP7EYkyWuXZJ660Vs2SAI3BFUVOW E6W8Gp/Z6BNLt+j+IxwGIoFo7wgT91Abjz56zgPd8oe6dNZtkkUkAa1UoPo0 Eh4j3jKKNsgrNmLkaUUZTHlUWFx9JBjDDipt0oRdAbkOKAgEZQdWYnjOHpOV 3blz/2rkUeaXMGDjWypJOYpwRDC1ocSScZICzCLV4wdmqDT4GJowVmMIm5KU F0I8k2poQUMx8tJYMwgKpOLWrD4rifHphGvRHOQxFUmTyTAZ7VA4XDNfEXzX 1x1PLEVrlGxE86bsDoY8E+dN09QPlLS62s4c0gAkm555Q7KmMxq4K+O4FcDn UKJeAH05kJdkJRV+IvvVaeYe5CwGawMlKRFmIp1PlpRHjDDKNW7VLIoYolVT k4gakgtxNcASm02UxbLItxLGAThnWC2gpoi3tE/+STD6DY88fE5rEGtTSCCR 7rJGhF0SFUVlTMYscsnvJJQgF4ND2sKQv+KCLoXsx20SaiRCYiXyhuYnGRhX jLeMhSTPG3hdveoMiUL4qot0qFYT8l9/3Tu/w23c+EaoTcoT4QqXV+r9RxJW JpURJYTbcG50WudVHSImohUHQhC1itpe5EbwWqtiAFvAhZwsKIbatB0Txjpg USp9Esxyevy4XYHRUpZCZv5UAgxbW3q47ANLT/rAWkQj7HOgE44ZGpZ3q5Nb hMsumKyxI52hAwwNY9OmvJhFaantemmCu2ypOoq/gNEo7Lk27ovTWA48A+kQ VgnSBCRm/gAyZu/wEAKcmA4tClmvXRoZDElFfAxvUUHj72cFy6Jnd0bAMlhk fta3M44f+2fvd088/qo8GlFfU32E1mU9ZExxfQDTk7K/2a+yNAJuzfSrQpeo Ukp3pmKSD6jb3Dc/xzWEoa1b3oqeYMRSxlHHB/BSi7RoA7qkAFF7yAd0gF+U p3CkoqY32GOiBYRGMSekcr/4xWcAhdh6jnrUsSuxwzZ+7G7l2PRiIwuqPxGC QMYjl2k6unVPX4jBMMMCVisxGPtTT7xK3ABfJ477nBS6KMBaJvw8fz6qXSOL juiS4MPWEFvDuFDVYYtHktdUsCwYaEuzVqM+7rDKqJy6j5YlsZW2rHHXNqQp GFQcNBHch3rGFuOhlG0/JP+adUvd43la99QFTdzEIgkIG9Zf9FtSHR0/1ozT ltXM5bJxe1oAFxSMpUEItulAQySQiH7onKgbiU0yrXbQxJzJ0OhivKa8Ke4I ibrwxeqSYIbijKbHHlhEZSRhxhxe6J/lC7QMA9mpoZSLijYM4Q9LiBGyCkBG tElQ7gMS6hHO1tQYpYrcuNgi0Noa+5MYmnvqyQtGIYO94aNHOMJnnUfJtH+V vJUlpOltacor1Th+1zTEdi6EF3qgjXxUoxTvRdnLoG4P7HT6WbAfK7BBdmBv 2foACG3b+pYuKOFa03Lre0+LGKxubS3CsXz9vDkxj2GsLBGOp4egBNCGtxWw QO70wAL/PlKikkrXoVPH2d7NYjJKqr+YtGOnGHCCbQEk4Js39yorDz34ssxx MMHeNBPXWS+ZbpLSYpL8yAWl7OLzdueqYmBWuQUBew3ljKIE20Mjhscbb9lN LYkNedtOrNGl9o3Jm8q0YI/t+dhH6IStLWdUsWhRhuo6USKh3gDxowbmbkgw V9t+ofKaGk8R+gkHL3VcUnMzpWo+CxxrLJDqQNJhXUrSAPVARJSjR/7JN0cX 3X+Y2RBzk8hK3ixgkxErt0hS/CMLUQlbJAzi1ATyk3lVHRS0bc3gogfZtiEh AGNEW1u98Tkuh/SFO3+IZ2SG8ayoYtLaveSGmSTKminiHEbjyijHlsATDQ/R YwK8JoYkMzgRWmqa0GKf33KOTJJRF/kFmqs9p/+Fvc+a6sNcTR/RsJb2tSXy Ic4mNWSCR89ieTA5tpiW1Z90J0/8xPvqrJn7KUPUN9ulBo1d/NZEVRj04F/H j43IQRcPHRb2nFdIeRDrJLc8WI1cJOJW00emrLxWNffo84hJrIlHDqw77lFD d6EJqbsMmB7nazC1ZAHM5Yy3KCfy1nh3NRs40jakK9DEwBSpevbM/Qlms1EC PkCqRxRjaIjn3e54MzmFBWHnWqBfGa01hwYkxaeJAOmRla+KukeueuERRWT2 erExxQAFqlHtMdnFhtPLJ3/i2zsqnZz0sVQbKGgHFkD38uBmDNe82ra8mePN 1sOBeMmNqTiVt71Sm4wj88V43ZJOcsftMwgSumD2KtmOCRrx8hQuUgVIBX1n MXjdDJL0m/2oourMJNQJcDgm8CyEarMp3jpWscKwRGWSSxwIBA5JbDFXLzzs +Uezouvl9/3YhnUX9dnRFTtprP4VOyE4XlYfqlts0jFZ0KIxbG8DBgF5LFO2 tkW5khQdia4V2bxnYAncHMYuXvgoR7X0NQEbZdvmFvQxQGe2eBggJowjGxnf qG4OyS0LR+1FpcMxi9fR2vG3pBzQioMWg0IQr2hnQWKCQ4n9gWvmOO11bitz gUU1Uvjaw1GPyKbetk2c3YG1gkMfLCmkjC+7gJq0DxjzjOn7WPihm4Y8DCjA ai2Avl6gSqguYM+3GLz1HtF4StMxnGHALAzTYmghdGcSuQU0B/GKYWeCOFrj GhClu7p+MHfktXabPTLfeOMGFcnTT72WEJFtqwwvzpDZhdEpABUB3hUOmBwg i6uKTQs9OXs2BBRT8uiCtTSdMTt40TkvnN0MJ4NgtVrgWTgXYVC83K5FZIZZ YXe8qKYyXlPAMBZ9SApFG5zVKga7KqiEqBWTa8J32H3AcHfX+3qLyIqIV193 jB5l9gS9bXI7VRJcUytH9+02O8IWcAr8FfCyW40lYsMNvWgSDuvC8RkwJ1Wr ni2piduMMdzsQg6M9kkYu9VTuzgUuQsXHCb//pUIDFkxk5c0ONEfRD6FoxXM W8ENyb67OEfWFEmmaXIrKkIPPFmmqFib3VNOJexS6pdUwPyqoHm4KwTIDiZq U4R9cocWNM3WnkzDJTHiWnUEG0SSSKrmhIIOhV1jQ3e+appji82uIKE+ew8K ziRASx+ypitEs01usVQBpeWsZpoWKDwr0ZcBpBLnicWDWBbYfF4CV7LbHzWJ uTQeRTZqA8qRw//IeKcazD3dFxd9yFW0bSYJCAIU3KQAvg31P8ujBMREhyWL j/uEBJG+KdQRsgyba9XRYUq9pkxignDArXioi/YwJZzYQbsI3SSc66RcV7fq iTzN20zcovLVtuzZE1BUNfegzmVPcfxtMWZTmmIiVkiQt0eXSBHB2R7Mo7iN VvXIJsInx9kYEM8hjNqzEyjN5pvUAqJuWN7lMZ8kAByhuQJwEDETpRHbt8eB OjaC+PgRjEiAjgygZmTKrJurWQWdaFKD2vR40zYOv0N8j4B5ET0fsAp8g+1s 2/a2ymd+6NjCxtj6F3QowN83An88xsULFb8tSVbEW1t6sGHh/YfjJpg4wgNm swjlCuWzOlAftMa3xIc/IkVKUNcsxrSj6RTGNyPI3GpKFkAlWbqrGLfJNJh2 SfEDaZma2Q7w4upOckZxM7qhg3furD8IIQ50mP3N2ppj/ogXZ5CAqMXs4mrd ivSoKTm+MgMfvGZm0jwB6acCJfV1x3WqObPiiGX3Vw2KluYROZJlmwyhWoGt 9fi9dN1Wzncy0cQ5PWML3MZmJ7oe6GvjVagugCG3Bd5YHzKblapNzTK7HxB2 n5AJKWRxDEUGEwGIHUklDg6VBwrhl8FX1dlkTVvpsvrCJWltIQS8LYzZbjEP 6mIVu+sHQxBvp3EDthCkVzac0iAzOacujfNQWmZ8CjvD0yM+P+V2iSlzkWag bERDLjDxO3w3wDeDZqBPHkjGMXC4TUTA0MTnNyLYetFnGARKphfIx8MePfoj cc19ABto/i+eWaMn4pzSoHAH8I0m+tL6CNpJCl7pEJAlIP6uLEaLf6XBN8OY 6ZTkQFDrqh49wWJPQDQ39QxRZmJ/oELhSmHnUAGUsjHHRnU5QD2C75rWc+rZ Np29M2KO33dgP/05MGdRO8T2wZH0CBlc4aRg6pbNvYbKskT8YhNylPghUoh4 QyB5Dhkb9/Q9JDqrms+YOUttllNitxUBQr7JFvxxbhCwSOKuJMM5X/CQxfC3 smAfaMDNMuQCNoHEB1hQPsChqC8aHz68wpQF3ZBNz76R4MSeJeGYieoaVoJx +8LrySd9xYy6naD1/Pb4JNKdRTj1x5ZpqhZv4hO9sf3dGu4sWcJt5kPAo7jH t9tt3mQVnpbbpxMfhxL70KlNdMw5jMB2C5Dyb6zvFf+mjdvDGBAGBV7cIkvh lLSxv1CVD/FmuSlUTrg2SkGGRghKUFQWoih1plpTfw42nHOM6dj4sfFScp9M o3pAVwOgks1Yke8EIWMWUQbeWcu4psY4IqN97FPaKu122O15fxahKW7cQxjZ h2jNVr22J3mUIiCOHtdEfERYaVhxSpMAtDgRO6AT0c2dA8e/2w3A2O4W/Ers jS5km/x6yjX++JQiKoJ/vDccfZghW362Z0dVcTMsBpaUxsYg0wJM/EkIdGAC DXw2Cm0qanae4nNI9nD26J35cIDVtz10LtrhrDatit5+iz/0B3nwDAN3Ivip HPodMpXurvfjVfdpg/y7xXgttQqLz0qGrH7UyLjVB9OoXmSPZab9B5Y6Dl3S XhbSKyaA9uwyqV14/xEaQmvOZzoQFY5yPHH6iST/VTFuUok9jgnj9UAoMrCO jkv+E58cs/1uMpR9zlKyNH1+VYuWNLq1iKY1fZJmzH17xs0li4+yd4IOm50e 7rq45ihlgsB8zbyWapsbZ1Q4hXFutdj6+FRdCdETAgHxqPf5OWruzwFzpK4r 4V6rlDcJqpG2IIUD0kaM7tXYQZtkol5XG5/hsBtxBdj70zDGbhyMsJyQKZUG SF/ZcLrE2jvZI7jbFgjFwJQ63nwotdCjJ9Kyj0BBROJPBVyJFMPreFKPKyDu YwYUgvlqqLgTsE970nKfjEhN4NOV+ET24JzP10I/3GrUXcj4Q5c4AsTp7NbR Xw7M0LeDN/EIaqLBnNJNdgDPMxtfj89TxQ6V0UfjLrfYBjvZ4JZBmSbDBr+Y K6053+F9hDQKsC3aqy5kTd8OkG7K/8ASP0+U0txsRJQQl4dhe4pDCGZ2P6Ny vwc9QffgItEJFnvKEdUecmkBTQ0SeB/vX7zw8TXQDAdHDTAjQCnCEDWJ1XBq KLbwMl9fsKRH26w17Att3BDbHj4Dn/SW8pxDb+y5MpgiOZWqPP4EaARs4s8J yXsmvhP4YRUvdV9Ye6jMt8uNMWtxXaqTXQqMs4shGU78gYwoB5CqvISICptb uCASPHcMHnzgZT2NatJVQh+OYdNtyJ3/8HMI9jhLG0ef+OO+fzGwwsi07TGx E2a9VSyKjSJrLdgdPP/Kh9pPIQKhOxYx+i3NG2Dy3GGFNyNj5hFDvrIBQE6Z AIktFbC674SfsDpsQaPx44/GyCtCAjZnEKFw4uo5kQsiM35vD/KL9urf9r/D avFKCjFf/M0sQ31yFZ0r7/GHhpBj4qA/aj9wwW97wRx4L5BVMnC+PSTjnm68 8ote7CuWhWDxGp4vwPx1+K1Zf8hb/s51SNdX+tYNod4Q6h/w1vf9y4Dfmz5o 4HdGzQx8+CP3O9MLvE2/Zzz+rvSSuEF1DV+Wvj7rkTxfjL7eUpjzJejrswgx X3gebvk/whfLl9z032Zzjzs=\ \>"]] }, Open ]] }, Open ]], Cell["Open cells below to see generating code", "Subsubsection"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "#1 p1", Cell[BoxData[ GraphicsBox[{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[ NCache[{{0, 0}, {0.408248290463863, 0.}, { Rational[2, 3]^Rational[1, 2], 0}, {1.0225079105110244`, 0.6123724356957945}, { Rational[2, 3]^Rational[1, 2] + Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, {0.8202709496304595, 1.224744871391589}, { Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, { 0.20601132958329826`, 0.6123724356957945}}, {{0, 0}, { 0.408248290463863, 0.}, {0.816496580927726, 0}, {1.0225079105110244`, 0.6123724356957945}, {1.2285192400943226`, 1.224744871391589}, { 0.8202709496304595, 1.224744871391589}, {0.4120226591665965, 1.224744871391589}, {0.20601132958329826`, 0.6123724356957945}}], LineBox[{{1, 3, 5, 7, 1}, {2, 6}, {4, 8}}]]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{110., Automatic}]]] }], "Subtitle"], Cell[CellGroupData[{ Cell["\<\ The background grid. (I am going to use Map and a transform here. The \ methods defined above should work as well.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"grid", "[", "1", "]"}], " ", "=", RowBox[{"Graphics", "[", " ", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fromCartToOblique", ".", "#"}], " ", "&"}], ")"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".5"}], "}"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}]}], "}"}], "]"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[ NCache[{{0, 0}, {0.408248290463863, 0.}, { Rational[2, 3]^Rational[1, 2], 0}, {1.0225079105110244`, 0.6123724356957945}, { Rational[2, 3]^Rational[1, 2] + Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, {0.8202709496304595, 1.224744871391589}, { Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, { 0.20601132958329826`, 0.6123724356957945}}, {{0, 0}, {0.408248290463863, 0.}, {0.816496580927726, 0}, {1.0225079105110244`, 0.6123724356957945}, { 1.2285192400943226`, 1.224744871391589}, {0.8202709496304595, 1.224744871391589}, {0.4120226591665965, 1.224744871391589}, { 0.20601132958329826`, 0.6123724356957945}}], LineBox[{{1, 3, 5, 7, 1}, {2, 6}, {4, 8}}]]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ As for hexgenPoints, need to move the asymmetric object into the oblique \ primitive domain\ \>", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"obliqueGenPoints", " ", "=", " ", RowBox[{"TranslateSet", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{"0.1", ",", RowBox[{"-", "0.15"}]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pg", "[", "1", "]"}], " ", "=", " ", RowBox[{"SetGraphics", "[", RowBox[{"obliqueGenPoints", ",", RowBox[{"grid", "[", "1", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[ NCache[{{0, 0}, {0.408248290463863, 0.}, { Rational[2, 3]^Rational[1, 2], 0}, {1.0225079105110244`, 0.6123724356957945}, { Rational[2, 3]^Rational[1, 2] + Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, {0.8202709496304595, 1.224744871391589}, { Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, { 0.20601132958329826`, 0.6123724356957945}}, {{0, 0}, {0.408248290463863, 0.}, {0.816496580927726, 0}, {1.0225079105110244`, 0.6123724356957945}, {1.2285192400943226`, 1.224744871391589}, { 0.8202709496304595, 1.224744871391589}, {0.4120226591665965, 1.224744871391589}, {0.20601132958329826`, 0.6123724356957945}}], LineBox[{{1, 3, 5, 7, 1}, {2, 6}, {4, 8}}]]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "#2 p2", Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.0285192400943224`, 1.124744871391589}, { 1.089756483663902, 1.0893895323322615`}, {1.06387457915365, 1.1859821149611682`}, {1.0155782878391966`, 1.1730411627060424`}, { 0.9672819965247431, 1.1601002104509164`}, {0.9931639010349951, 1.0635076278220095`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.408248290463863, 0.}, { Rational[2, 3]^Rational[1, 2], 0}, {1.0225079105110244`, 0.6123724356957945}, { Rational[2, 3]^Rational[1, 2] + Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, {0.8202709496304595, 1.224744871391589}, { Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, { 0.20601132958329826`, 0.6123724356957945}}, {{0, 0}, { 0.408248290463863, 0.}, {0.816496580927726, 0}, {1.0225079105110244`, 0.6123724356957945}, {1.2285192400943226`, 1.224744871391589}, { 0.8202709496304595, 1.224744871391589}, {0.4120226591665965, 1.224744871391589}, {0.20601132958329826`, 0.6123724356957945}}], { {Thickness[Large], LineBox[{1, 3, 5, 7, 1}]}, LineBox[{{2, 6}, {4, 8}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{112., Automatic}]]] }], "Subtitle"], Cell[CellGroupData[{ Cell["\<\ The background grid. (I am going to use Map and a transform here. The \ methods defined above should work as well.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"grid", "[", "2", "]"}], " ", "=", RowBox[{"Graphics", "[", " ", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"fromCartToOblique", ".", "#"}], " ", "&"}], ")"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".5"}], "}"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "7", ",", "1"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[ NCache[{{0, 0}, {0.408248290463863, 0.}, { Rational[2, 3]^Rational[1, 2], 0}, {1.0225079105110244`, 0.6123724356957945}, { Rational[2, 3]^Rational[1, 2] + Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, {0.8202709496304595, 1.224744871391589}, { Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, { 0.20601132958329826`, 0.6123724356957945}}, {{0, 0}, {0.408248290463863, 0.}, {0.816496580927726, 0}, {1.0225079105110244`, 0.6123724356957945}, { 1.2285192400943226`, 1.224744871391589}, {0.8202709496304595, 1.224744871391589}, {0.4120226591665965, 1.224744871391589}, { 0.20601132958329826`, 0.6123724356957945}}], { {Thickness[Large], LineBox[{1, 3, 5, 7, 1}]}, LineBox[{{2, 6}, {4, 8}}]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pg", "[", "2", "]"}], " ", "=", " ", RowBox[{"SetGraphics", "[", RowBox[{ RowBox[{"AddTwoFold", "[", RowBox[{"obliqueGenPoints", ",", "ObliqueLatticeMod"}], "]"}], ",", RowBox[{"grid", "[", "2", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.2, 0.1}, {0.13876275643042058`, 0.13535533905932737`}, {0.16464466094067265`, 0.03876275643042057}, { 0.21294095225512605`, 0.05170370868554661}, {0.26123724356957945`, 0.06464466094067264}, {0.2353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.0285192400943224`, 1.124744871391589}, { 1.089756483663902, 1.0893895323322615`}, {1.06387457915365, 1.1859821149611682`}, {1.0155782878391966`, 1.1730411627060424`}, { 0.9672819965247431, 1.1601002104509164`}, {0.9931639010349951, 1.0635076278220095`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.408248290463863, 0.}, { Rational[2, 3]^Rational[1, 2], 0}, {1.0225079105110244`, 0.6123724356957945}, { Rational[2, 3]^Rational[1, 2] + Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, {0.8202709496304595, 1.224744871391589}, { Rational[2, 3]/GoldenRatio, Rational[3, 2]^Rational[1, 2]}, { 0.20601132958329826`, 0.6123724356957945}}, {{0, 0}, {0.408248290463863, 0.}, {0.816496580927726, 0}, {1.0225079105110244`, 0.6123724356957945}, {1.2285192400943226`, 1.224744871391589}, { 0.8202709496304595, 1.224744871391589}, {0.4120226591665965, 1.224744871391589}, {0.20601132958329826`, 0.6123724356957945}}], { {Thickness[Large], LineBox[{1, 3, 5, 7, 1}]}, LineBox[{{2, 6}, {4, 8}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "#3 pm", Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.30000000000000004`, 0.1}, {0.23876275643042055`, 0.13535533905932737`}, {0.2646446609406726, 0.03876275643042057}, { 0.3129409522551261, 0.05170370868554661}, {0.3612372435695795, 0.06464466094067264}, {0.3353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.30000000000000004`, 0.9}, {0.23876275643042053`, 0.8646446609406726}, {0.2646446609406726, 0.9612372435695794}, { 0.3129409522551261, 0.9482962913144534}, {0.3612372435695794, 0.9353553390593273}, {0.3353553390593274, 0.8387627564304205}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, { 0, 1}, {0., 0.5}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}], { {Thickness[Large], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{110., Automatic}]]] }], "Subtitle"], Cell[CellGroupData[{ Cell["\<\ The background grid. (I am going to use Map and a transform here. The \ methods defined above should work as well.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"grid", "[", "3", "]"}], " ", "=", RowBox[{"Graphics", "[", " ", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"cartToRect", ".", "#"}], " ", "&"}], ")"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".5"}], "}"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}], { {Thickness[Large], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Need to move the asymmetric object a little ways away from a glide axis\ \>", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"rectGenPoints", " ", "=", " ", RowBox[{"TranslateSet", "[", RowBox[{"genPoints", ",", RowBox[{"{", RowBox[{"0.2", ",", RowBox[{"-", "0.15"}]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pg", "[", "3", "]"}], " ", "=", " ", RowBox[{"SetGraphics", "[", RowBox[{ RowBox[{"setAddMirror", "[", RowBox[{"rectGenPoints", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", "0", ",", "RectLatticeMod"}], "]"}], ",", RowBox[{"grid", "[", "3", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.30000000000000004`, 0.1}, {0.23876275643042055`, 0.13535533905932737`}, {0.2646446609406726, 0.03876275643042057}, { 0.3129409522551261, 0.05170370868554661}, {0.3612372435695795, 0.06464466094067264}, {0.3353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.30000000000000004`, 0.9}, {0.23876275643042053`, 0.8646446609406726}, {0.2646446609406726, 0.9612372435695794}, { 0.3129409522551261, 0.9482962913144534}, {0.3612372435695794, 0.9353553390593273}, {0.3353553390593274, 0.8387627564304205}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}], { {Thickness[Large], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "#4 pm", Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.30000000000000004`, 0.1}, {0.23876275643042055`, 0.13535533905932737`}, {0.2646446609406726, 0.03876275643042057}, { 0.3129409522551261, 0.05170370868554661}, {0.3612372435695795, 0.06464466094067264}, {0.3353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.9}, {0.8387627564304205, 0.8646446609406726}, {0.8646446609406726, 0.9612372435695794}, { 0.9129409522551261, 0.9482962913144534}, {0.9612372435695794, 0.9353553390593273}, {0.9353553390593274, 0.8387627564304205}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, { 0, 1}, {0., 0.5}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}], { {Thickness[Large], Dashing[{Small, Small}], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{114., Automatic}]]] }], "Subtitle"], Cell[CellGroupData[{ Cell["\<\ The background grid. (I am going to use Map and a transform here. The \ methods defined above should work as well.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"grid", "[", "4", "]"}], " ", "=", RowBox[{"Graphics", "[", " ", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"cartToRect", ".", "#"}], " ", "&"}], ")"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".5"}], "}"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}], { {Thickness[Large], Dashing[{Small, Small}], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pg", "[", "4", "]"}], " ", "=", " ", RowBox[{"SetGraphics", "[", RowBox[{ RowBox[{"setAddGlide", "[", RowBox[{"rectGenPoints", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", "0.6", ",", "0", ",", "RectLatticeMod"}], "]"}], ",", RowBox[{"grid", "[", "4", "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.30000000000000004`, 0.1}, {0.23876275643042055`, 0.13535533905932737`}, {0.2646446609406726, 0.03876275643042057}, { 0.3129409522551261, 0.05170370868554661}, {0.3612372435695795, 0.06464466094067264}, {0.3353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.9}, {0.8387627564304205, 0.8646446609406726}, {0.8646446609406726, 0.9612372435695794}, { 0.9129409522551261, 0.9482962913144534}, {0.9612372435695794, 0.9353553390593273}, {0.9353553390593274, 0.8387627564304205}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}], { {Thickness[Large], Dashing[{Small, Small}], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "#5 cm", Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.30000000000000004`, 0.1}, {0.23876275643042055`, 0.13535533905932737`}, {0.2646446609406726, 0.03876275643042057}, { 0.3129409522551261, 0.05170370868554661}, {0.3612372435695795, 0.06464466094067264}, {0.3353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.30000000000000004`, 0.9}, {0.23876275643042053`, 0.8646446609406726}, {0.2646446609406726, 0.9612372435695794}, { 0.3129409522551261, 0.9482962913144534}, {0.3612372435695794, 0.9353553390593273}, {0.3353553390593274, 0.8387627564304205}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.4}, {0.8387627564304205, 0.3646446609406726}, {0.8646446609406726, 0.4612372435695794}, { 0.9129409522551261, 0.44829629131445337`}, {0.9612372435695794, 0.43535533905932733`}, {0.9353553390593274, 0.33876275643042053`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.6}, {0.8387627564304204, 0.6353553390593274}, {0.8646446609406726, 0.5387627564304206}, { 0.912940952255126, 0.5517037086855466}, {0.9612372435695793, 0.5646446609406727}, {0.9353553390593273, 0.6612372435695795}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, { 0, 1}, {0., 0.5}, {1.618033988749895, 0.25}, {1.618033988749895, 0.75}, {0., 0.75}, {0., 0.25}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}, { 1.618033988749895, 0.25}, {1.618033988749895, 0.75}, {0., 0.75}, {0., 0.25}}], { {Thickness[Large], Dashing[{Small, Small}], LineBox[{{12, 9}, {10, 11}}]}, {Thickness[Large], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{114., Automatic}]]] }], "Subtitle"], Cell[CellGroupData[{ Cell["\<\ The background grid. (I am going to use Map and a transform here. The \ methods defined above should work as well.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"grid", "[", "5", "]"}], " ", "=", RowBox[{"Graphics", "[", " ", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"cartToRect", ".", "#"}], " ", "&"}], ")"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", ".5"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"1", ",", ".25"}], "}"}], ",", RowBox[{"(*", "9", "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"1", ",", ".75"}], "}"}], ",", RowBox[{"(*", "10", "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", ".75"}], "}"}], ",", RowBox[{"(*", "11", "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", ".25"}], "}"}]}], " ", RowBox[{"(*", "12", "*)"}], "\[IndentingNewLine]", "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "11"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input"], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}, {1.618033988749895, 0.25}, {1.618033988749895, 0.75}, {0., 0.75}, {0., 0.25}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}, { 1.618033988749895, 0.25}, {1.618033988749895, 0.75}, {0., 0.75}, {0., 0.25}}], { {Thickness[Large], Dashing[{Small, Small}], LineBox[{{12, 9}, {10, 11}}]}, {Thickness[Large], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"pg", "[", "5", "]"}], " ", "=", " ", RowBox[{"SetGraphics", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddMirror", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"setAddGlide", "[", "\[IndentingNewLine]", RowBox[{"rectGenPoints", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", ".6", ",", ".25", ",", "RectLatticeMod"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", "0", ",", "RectLatticeMod"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"grid", "[", "5", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.30000000000000004`, 0.1}, {0.23876275643042055`, 0.13535533905932737`}, {0.2646446609406726, 0.03876275643042057}, { 0.3129409522551261, 0.05170370868554661}, {0.3612372435695795, 0.06464466094067264}, {0.3353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.30000000000000004`, 0.9}, {0.23876275643042053`, 0.8646446609406726}, {0.2646446609406726, 0.9612372435695794}, { 0.3129409522551261, 0.9482962913144534}, {0.3612372435695794, 0.9353553390593273}, {0.3353553390593274, 0.8387627564304205}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.4}, {0.8387627564304205, 0.3646446609406726}, {0.8646446609406726, 0.4612372435695794}, { 0.9129409522551261, 0.44829629131445337`}, {0.9612372435695794, 0.43535533905932733`}, {0.9353553390593274, 0.33876275643042053`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.9, 0.6}, {0.8387627564304204, 0.6353553390593274}, {0.8646446609406726, 0.5387627564304206}, { 0.912940952255126, 0.5517037086855466}, {0.9612372435695793, 0.5646446609406727}, {0.9353553390593273, 0.6612372435695795}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}, {1.618033988749895, 0.25}, {1.618033988749895, 0.75}, { 0., 0.75}, {0., 0.25}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}, { 1.618033988749895, 0.25}, {1.618033988749895, 0.75}, {0., 0.75}, {0., 0.25}}], { {Thickness[Large], Dashing[{Small, Small}], LineBox[{{12, 9}, {10, 11}}]}, {Thickness[Large], LineBox[{{1, 3}, {4, 8}, {5, 7}}]}, LineBox[{{2, 6}, {7, 1}, {3, 5}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->Medium]], "Output"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "#6 p2mm", Cell[BoxData[ GraphicsBox[{{ GraphicsComplexBox[{{0.30000000000000004`, 0.1}, {0.23876275643042055`, 0.13535533905932737`}, {0.2646446609406726, 0.03876275643042057}, { 0.3129409522551261, 0.05170370868554661}, {0.3612372435695795, 0.06464466094067264}, {0.3353553390593274, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{0.30000000000000004`, 0.9}, {0.23876275643042053`, 0.8646446609406726}, {0.2646446609406726, 0.9612372435695794}, { 0.3129409522551261, 0.9482962913144534}, {0.3612372435695794, 0.9353553390593273}, {0.3353553390593274, 0.8387627564304205}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.3180339887498949`, 0.1}, {1.3792712323194745`, 0.13535533905932737`}, {1.3533893278092224`, 0.03876275643042057}, { 1.3050930364947688`, 0.05170370868554661}, {1.2567967451803155`, 0.06464466094067264}, {1.2826786496905676`, 0.16123724356957944`}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}], GraphicsComplexBox[{{1.3180339887498949`, 0.9}, {1.3792712323194745`, 0.8646446609406726}, {1.3533893278092224`, 0.9612372435695794}, { 1.3050930364947688`, 0.9482962913144534}, {1.2567967451803155`, 0.9353553390593273}, {1.2826786496905676`, 0.8387627564304205}}, { {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PolygonBox[{1, 6, 2}]}, {RGBColor[0, 1, 0], PolygonBox[{1, 2, 3, 4}]}, {RGBColor[1, 0, 0], PolygonBox[{1, 4, 5, 6}]}}]}, GraphicsComplexBox[ NCache[{{0, 0}, {0.8090169943749475, 0.}, {GoldenRatio, 0}, { 1.618033988749895, 0.5}, {GoldenRatio, 1}, {0.8090169943749475, 1.}, { 0, 1}, {0., 0.5}}, {{0, 0}, {0.8090169943749475, 0.}, { 1.618033988749895, 0}, {1.618033988749895, 0.5}, { 1.618033988749895, 1}, {0.8090169943749475, 1.}, {0, 1}, {0., 0.5}}], {Thickness[Large], LineBox[{{1, 3, 5, 7, 1}, {2, 6}, {4, 8}}]}]}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{118., Automatic}]]] }], "Subtitle"], Cell[CellGroupData[{ Cell["\<\ The background grid. (I am going to use Map and a transform here. The \ methods defined above should work as well.\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"grid", "[", "6", "]"}], " ", "=", RowBox[{"Graphics", "[", " ", RowBox[{"GraphicsComplex", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"cartToRect", ".", "#"}], " ", "&"}], ")"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", ".5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",",