(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 46783, 992] NotebookOptionsPosition[ 42586, 884] NotebookOutlinePosition[ 44558, 942] CellTagsIndexPosition[ 44481, 937] WindowTitle->Sample Data: Osteocyte Lacunae 10 | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellTags->"DefaultContent", CellID->619504543], Cell["Retrieve the data:", "Text", TaggingRules->{}, CellID->687106258], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", RowBox[{ TagBox["\"\\"", #& , BoxID -> "ResourceTag-Sample Data: Osteocyte Lacunae 10-Input", AutoDelete->True], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.838764073483006*^9, 3.8387640739133377`*^9}}, CellLabel->"In[1]:=", CellID->257298660], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SpatialPointData", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], Graphics3DBox[{{{{ Directive[ PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], RGBColor[0.3315753, 0.4561011, 0.6388182], AbsolutePointSize[2]], Point3DBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWJmII4tuegqHuvgACJLAoMdGKBgUbferheLfDDExcEa PCDiF73g4hC+qwNE3hYmfgAizuoAkXaEi8P0AS0B2hQIFVc7AOGbOUDcZQAV 14GqN3EAC5d4wsXB5h4NhrrHHypucSAGrNDLQQ9soDtU3O4AzD6Ye8HCDc4H /oOBhwNEnxVUvRvEfFdrVHMaXKH+EnUAG/dCD64e4j4/qDqovxo8oOrtHSDh qg4Xh5iv7QCx3xcuDjHHEjX8G3wOQML3rT3YGO4wNHFeqDuVoO7xPgAAuZiW Sw== "]]}}, {}, {}}, {}}, { DisplayFunction -> Identity, Ticks -> {{}, {}, {}}, FaceGrids -> None, Ticks -> {None, None, None}, AxesLabel -> {None, None, None}, Axes -> None, PlotRange -> {{0., 79.09090909090908}, {9.09090909090909, 88.18181818181817}, Automatic}, PlotRangePadding -> {{ Scaled[0.15], Scaled[0.15]}, { Scaled[0.1], Scaled[0.15]}, { Scaled[0.1], Scaled[0.15]}}, Lighting -> {{"Ambient", GrayLevel[0.5]}, {"Directional", GrayLevel[0.5], ImageScaled[{0, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 0, 2}]}}, AspectRatio -> 1, ImageSize -> {Automatic, 35}, BoxStyle -> Directive[ Opacity[0.5], Thickness[Tiny]], FaceGridsStyle -> Automatic, BoxRatios -> {1, 1, 0.4}}], GridBox[{{ RowBox[{ TagBox["\"Data Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Cartesian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Number of Points: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["20", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimension: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], Graphics3DBox[{{{{ Directive[ PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], RGBColor[0.3315753, 0.4561011, 0.6388182], AbsolutePointSize[2]], Point3DBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWJmII4tuegqHuvgACJLAoMdGKBgUbferheLfDDExcEa PCDiF73g4hC+qwNE3hYmfgAizuoAkXaEi8P0AS0B2hQIFVc7AOGbOUDcZQAV 14GqN3EAC5d4wsXB5h4NhrrHHypucSAGrNDLQQ9soDtU3O4AzD6Ye8HCDc4H /oOBhwNEnxVUvRvEfFdrVHMaXKH+EnUAG/dCD64e4j4/qDqovxo8oOrtHSDh qg4Xh5iv7QCx3xcuDjHHEjX8G3wOQML3rT3YGO4wNHFeqDuVoO7xPgAAuZiW Sw== "]]}}, {}, {}}, {}}, { DisplayFunction -> Identity, Ticks -> {{}, {}, {}}, FaceGrids -> None, Ticks -> {None, None, None}, AxesLabel -> {None, None, None}, Axes -> None, PlotRange -> {{0., 79.09090909090908}, {9.09090909090909, 88.18181818181817}, Automatic}, PlotRangePadding -> {{ Scaled[0.15], Scaled[0.15]}, { Scaled[0.1], Scaled[0.15]}, { Scaled[0.1], Scaled[0.15]}}, Lighting -> {{"Ambient", GrayLevel[0.5]}, {"Directional", GrayLevel[0.5], ImageScaled[{0, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 0, 2}]}}, AspectRatio -> 1, ImageSize -> {Automatic, 35}, BoxStyle -> Directive[ Opacity[0.5], Thickness[Tiny]], FaceGridsStyle -> Automatic, BoxRatios -> {1, 1, 0.4}}], GridBox[{{ RowBox[{ TagBox["\"Data Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Cartesian\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Number of Points: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["20", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimension: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"RegionBounds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "81.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "100.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "60.`"}], ",", "0.`"}], "}"}]}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"ObservationRegion: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"-", "60.`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"81.`", ",", "100.`", ",", "0.`"}], "}"}]}], "]"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], SpatialPointData[CompressedData[" 1:eJxTTMoPSmVmYGBgBGIRIAaxY0suuorHOjiAyJLAYAcGKFjUrbfrxSIfDHFx sAYPiPhFL7g4hO/qAJG3hYkfgIizOkCkHeHiMH1AS4A2BULF1Q5A+GYOEHcZ QMV1oOpNHMDCJZ5wcbC5R4Oh7vGHilsciAEr9HLQAxvoDhW3OwCzD+ZesHCD 84H/YODhANFnBVXvBjHf1RrVnAZXqL9EHcDGvdCDq4e4zw+qDuqvBg+oensH SLiqw8Uh5ms7QOz3hYtDzLFEDf8GnwOQ8H1rDzaGOwxNnBfqTiWoe7wPAADE JJZN "], Association[ "AllowDuplicates" -> False, MetaInformation -> Association[], "ConfigurationCount" -> 1, "PointCountList" -> {20}, "ObservationRegion" -> Cuboid[{0., 0., -60.}, {81., 100., 0.}], "GeoQ" -> False, "Dimension" -> 3, "RegionMeasure" -> 486000., "AnnotationsList" -> {}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.8387641354716043`*^9}, CellLabel->"Out[1]=", CellID->463146539] }, Open ]], Cell["Summary of the spatial point data:", "Text", TaggingRules->{}, CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.733663894285653*^9, 3.7336639095892*^9}}, CellID->285894589], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ TagBox["\"\\"", #& , BoxID -> "ResourceTag-Sample Data: Osteocyte Lacunae 10-Input", AutoDelete->True], ",", "\"\\""}], "]"}], "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.733573982367066*^9, 3.7335739887407103`*^9}, 3.838764111349018*^9}, CellLabel->"In[2]:=", CellID->1109438984], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnQl4DVf/x689alc7pdS+1U7V2lIEpWi11F7U0iBKqXoJaim1FK9utlZR e+z7a8lCGju1CxJLEAlt9W0t7//73t/feeadubmZe3NvMpLv53na5+bMmTNn Zs75zO+cWRTvOahdn7Q2m22oD/7Xrscnjf39e4xsnxN/vO03tF9fv94ftPD7 uHff3v51eqZDYp00Ntsl/Pff3/8hhBBCCCGEEEIIIYQQQhLBvwghhBBCCCEm uE9IKkZ6QXKPXwn5LzQzIQLNTKwDzUyIQDMT60AzEyLQzMQ60MyECDQzsQ40 MyECzUysA81MiEAzE+tAMxMi0MzEOtDMhAg0M7EONDMhAs1MrAPNTIhAMxPr QDMTItDMxDrQzIQINDOxDjQzIQLNTKwDzUyIQDMT60AzEyLQzMQ60MyECDQz sQ40MyECzUysA81MiOC2mR89euTpfpk8XLx4sX///n5+fpGRkcldl9SOq2ae OHGir4YOHTqMGDFiwYIFwcHBcXFx3u47rrJ+/Xpfc+zatSu5K0uSGZfM/ODB g9mzZ3fp0qVcuXJp06YtWbJkt27dFi1a9PjxY2/2V+/Stm1bm50+ffokd11S O66a+Z133rHFQ40aNQ4ePJiYrhEREdHAzvHjxxNTjuKf//xnfLXVMWfOHI9s kTy7mDfzqVOnKlas6LAhvfbaazdv3vR4P502bRpKHjt2rMdL1tKzZ0/ZiwED Bnh1QyRB3DbzIDvt27evUKFCxowZJTFDhgwBAQFud40DBw5IOfjhdiFaduzY 0fN/yZkzJ8pPkyaNLn379u0e2SJ5djFpZgzEMmfOLA21ePHi3bt3nzFjxkcf fYTgWRLbtGnj8X6KjoaS8X+Pl6zl1q1bU6dOnT59+t27d726IZIgbpv53r17 KjEqKur9999XYYPbltu8ebNnzWykTJkyKL9UqVJeKp88u5gx8++//16oUCFp pb179/7rr7/UokePHo0cObJAgQJXrlzxeD9t1KhREpiZWAePmFmYPXu2LKpS pUp8c87Hjx+Hfs+dO+dw6ZIlS8yY+caNG7t27QoKCrp9+7aZOmvxkpnv3LmD KoWHhxsPiw7Ueffu3SEhIQhLPFsHkkjMmPmzzz6TJjp48GCHGf797387TIfS 0aqPHDkSXwYd6EH79u1Da5E/K1WqZMbMkZGRe/fuRejrJA/29NChQ6Ghob/9 9puZmmhxdS+wLexFRETEkydPXN1WKseDZgbVqlWTpYsWLVKJyLl48eL69evn yJFDxdUILdauXavyfPXVVyVKlMiWLZssxY+cdqpXr67ynDlzpk+fPpBqmjRp JFu6dOlQH4jafO9zYmYUhS3myZMHMY9x6SuvvIKlNWvWlD8rV66MP3ExQkN9 /fXXfXx8VM179eoFURtLOHbsGCKfDBkySM6MGTO2atUKjdZ85YlXSdDMuJjK PAbOckxMjJn+heHkwIED0erSpk0r5z19+vSdO3eG4nQ5q1atmitXLnSca9eu vfXWW5kyZULmfPnyoaUVLlxYVkfjyfWUNWvWqHXhvenTp6tgHrzwwgvLly/X beL8+fNvvvmmyoN+VKFChZUrV6oMWEUK379/vxt7IauXLl0av9G70WWQTfIX KVIkODjYzBEjgmfNvHr1ajULLSk4p/HdK0HDWL9+vWQbNWqUwzxKobNmzVKz 2Trq1q1rvvc5MfOcOXOkwJkzZ+oWIdSXRR9//LGkvPjii/izZMmSyrRa0CZ1 8TwarbruoLnimiK/0Zt+/fVX8/Un3iNBMyMclbM2bNgwM53rm2++EcEaadCg gS4zIhOkjx49Gld/la1ly5ZKhjqUeB88eNCiRQuVrubAwZgxY1T5uJRA12rR c889p36jnpLnhx9+kBQM69zYC7X6iBEjVPikrZgaApAE8ayZEW3KUkSDKrFh w4Y2+0Ds559/xlX73LlzQ4cOlWyvvvqq5IH6AgMDu3TpIumTJ08OtKOmNbZu 3Wqze2zKlCkYHyFO3r59e/HixSX/pk2bTPY+J2a+efNm9uzZsbRWrVq6RRMm TJANqYdPxMxCjx49UJmzZ89iaJA7d25JxChArY7AGLEEEp9//nm0XkTUaKK4 EEikjb02WXniVRI087fffisnFxGImc6Fhmqzh4uIKw4dOoQIMygo6KWXXpJC dNsSMwtVqlSBD3/55ZcjR47s3Llzx44dEny+/PLLO57yxx9/yIqQuazVsWNH eQ750qVLjRs3ttljbPyWbBMnTpRsgwcPRryEMBudrk2bNtjWn3/+KXkcmtn8 XqjVARo8ejHqHxYWVrt2bUlEPzJz3Mh/PG1mIHIrV66cSsHZQbChyyZ3NMDV q1dVIi7xkuhwnnnZsmXR0dHaFPhQ8vfr189M5e8nNM/8wQcfSIGoszZdmlb5 8uVVipgZO4vLjTZnaGiolICmqw6R3B5F8LNnzx5t5nHjxtnsczK4YJmsP/Ee CZrZ399fTu7hw4dN9i9EF4hptSnQmhSCcaU2XZkZgahxFlcGjMZ5ZsQ5EtDq HgiBP/PkyWPTPP/WoUMHm30OTVefv//+W/12aGbze6FWR+M/c+aMSkfzlhD6 rbfecnCMiCM8bubSpUuLspyXo6LQ4OBglejczA7JkiWLzT7oM5nfuZlDQkKk AsOHD1eJCIYlEdVTiWJmhxMpr732muS/cOHCffs0u4wcO3furMuJq5LkVLM6 JBlJ0MzqRQznt9gSJGvWrCgEpWkTxcy4fJ8+fdq4SnxmxhBSqnT58mXdIjgT 6fXq1dP+CbQTyzriM7PJvVCrI6TXZS5atCjSa9asmWCxRPC4mWU471B9Bw8e xIAIgsIASk4rWLNmjcpgxsy3b99evnz5qFGj0CTkKiBn3Ezl75t4NqNGjRrI gIakdnDatGmylRMnTqhsTsys5szlvcJjx47Jn35+fjsNyCIcFpP1J94jQTP3 7t1bztepU6dc6mWIgXHxxRDp7bffVo8916lTR5tHzIwW5bCE+MwsE4A5c+YM NdCjRw8sKliwoORE1KHux7Vo0WLDhg3Gl8qdmznBvXCyukyey81BYgbPmvn6 9euytHnz5tr0+fPnw8Y2R6xatUplc25mjI/69esnE7Y6tI9wOCdBM8+dO1fK 3LJli6TUr1/fZph8dmJmaFZKQEO9b5+EcbjjWkaPHm2y/sR7JGjmqVOnyvna uHGjyf4VFRWFYFXdfdCCFqXNKWY23hkU4jMzWr7zpgUbq8xoivKmlVC4cOHJ kydrZ07iU6vJvXBiZvQUG83sCp41M0YxsnTAgAEqUd16QOvq0KHDggULwsPD 582bJ4kmzXzx4kV10wFeRc5NmzZduXJFbgJ60MzqPqDcmIuIiJCb41988YU2 mxMzjx8/Xuq5evXq+5qHtLHRuvGgfciQJBcJmjkwMFBOJRqDmc4VHR2Nky6r lC1bFh0B5d+9e1daskfM/MorryDdx8enQTwgPNZVCX2nSJEiSq0VKlRQb/w5 VKv5vaCZPYhnzezr6ytL1WcoVq5cqa6tly5dUjnVbW6TZpZJhnTp0kHp2nSP mxnIoDVHjhx37tz55ptvbPbZP5k0Vjgxs7qNKLMfuAzJn2jSJitJkoUEzazu OKDVPXz4MMHOJTeOEbXiyqtN96CZO3bsaLPPZrj0KsejR4/Wrl1bvnx52Z1u 3bpJukO1mt8LmtmDeNDMKmAuWrTorVu3JFFNzSHo1WZ2aOaxY8dKou4ZBgSu ko7SdBv1hpnVfUCM/tq1a4cfjRo10uWJz8wxMTEYJGJRpkyZ5EVIRBfyzLOx EGIpEjQzaNKkibQNWMhhBvXyxe3btyWn8etAbphZHsBo2bKlLl0e7wFBQUHO a24EuyzBMFqspBjV6tJe0MwexFNmhmnVTT3t2LxVq1Y2+0sl2gfDEIu+9957 RjOrGdrp06drC1eq7NWrl64ryUY9a2YgNyzatGkjMxvGL9GJmRF1qGuQoO6V I7xRiehQxiNDrIYZMx87dkxmt9DwjLPNGOsVKlRI3u9Qd3779eunzRMWFibv HLlk5oIFC2Jp/vz5demHDh2S+rz88sva59+MnDlzxnjjUh5eRSOXP41qdWkv aGYP4raZt23btn379u+//97f3x/NyfaU1q1ba/MPGTJE0nv27InQFyElVqxa tarKrzXzunXrJBGmRQwA+YeHhyM9OjpanodEY8BJRzrGlWj/6l6zx82s7gPa 7I/rax+6FtSbJuhQS5cuvXbt2rlz59RTGRh7ah/kQI+QB+dQ4dGjR0tpuDwF BgY2bNhwwYIFJitPvIoZM4M+ffrIWYYS/fz8cBIxHty0adPHH38skS3S0Rge PHggzoT3Dh48+OTJEzSSiRMnqpdGXTKzmM1mf4znjz/+uG1HFn300UeyqFq1 ahCmfCAa20IHQWnyAMZ9e3iMZvmPf/xD3kZBIWi3suJrr70mRRnV6tJe0Mwe xG0zG0EUMXv2bF3+0NBQ9VZ1Gjvyu2zZskYzx8bGynOPQubMmbGuBKVvv/22 SlevNvv4+BQrVswbZlb3AYGvr68xg/YdQB1oydOmTdPl/+6779S3NWz2lwHV W7clS5Y0WXniVUyaGa7D5TW+l6Zz5cq1efNmydmpUyeVrqIItGqZgnPJzPPn z1dFwf/YunrzGoFKvXr1tL1G+wAG9Psfe4ibL18+lYjf6iVuOBbKlaIcqtX8 XtDMHiSRZkYjqVSpUseOHQMCAk6ePOlwlSVLlmhbRZEiRSZPnoyIUdq21sz3 7V+mEtkqy+3fv/++/aUM9Zy/zR6UvvHGG0eOHBkxYoTNFTNXrlwZ+StWrJhg TvUV8YULFxqXipnRjyZMmKAcbrPPsWOQ67BADDzr16+v7dHoFO3bt0evMVl5 4lVMmlmAfF599VXt1yfy5MnTpk2bCxcuqDyINLQRBToLrvLnz5+XO906M0us 0rRpU4ebe/jwoXoDUdC+T4c4GcEALvfaDFD9vHnz1HdK4+LiMIDNmzevNk+V KlX27Nmjylm+fLmka78+ZH4vHK4uyNviNLN5XDWze0RHR6MlQ1kY1yeY+e7d u4i0V6xYgdhDN40A+W/dunX79u1ufP/TVTp37myzf/gF8bNxqZgZscp9e6gf FBSEZnn69OkEi5VDsWHDhl9++YUfArUULplZQPx84sSJLVu2wFTx5bl8+TLi DbQQk1/OdAKa/Y4dO9AF0BEcPoyB/oIMkK2TbwdFRUXJW06RkZHmn+jw4F4Q MySNmZ85jh49KjNp8X1uyMlTc+QZxQ0zE+IlaGYj9+7dk0dKQEhIiMM8NHPK g2Ym1oFm1hIQEDB+/Hj1qEnXrl3jy0kzpzxoZmIdaGbF1atXtZ/7rlOnjpN/ LYVmTnnQzMQ60MyKo0ePvvLKKxUrVvT19Z06dWpsbKyTzF26dEFoPXjw4CSr HvE2NDOxDjQzIQLNTKwDzUyIQDMT60AzEyLQzMQ60MyECDQzsQ40MyECzUys A81MiEAzE+tAMxMi0MzEOtDMhAg0M7EONDMhAs1MrAPNTIhAMxPr8C9CCCGE EEKIaZJ7NElIciK9ILlHsYT8F5qZEIFmJtaBZiZEoJmJdaCZCRFoZmIdaGZC BJqZWAeamRCBZibWgWYmRKCZiXWgmQkRaGZiHWhmQgSamVgHmpkQgWYm1oFm JkSgmYl1oJkJEWhmYh1oZkIEmplYB5qZEIFmJtaBZiZEoJmJdXjWzXz48OEv vviib9++Q4YM+eGHH2JjY5O7RuRZhWYm1sEjZk4uHy5evNjHx8f2lEyZMt26 devYsWMffPDBhx9+ePr06WSplceZM2dOu3bt5s+fn9wV0ZPCroM0M7EObps5 Ojp66tSp7777bunSpdOkSVOiRIlOnTrNmzcvLi7OSx1Hx40bN55//nlxMrZe q1atN998E+ktW7aUxO7duydNTbxKcHCw7E7atGmtcK1J9vPuPVw18/Xr148c OYL/e613ktSLe2YOCwsrV66czRENGjS4cOGC97qPYsWKFbLFzp07a7XQpUsX Se/du3cSVMNTTJgwAYdu5MiRuvQTJ07Aydid9OnTnz17NlnqprDCeXeV+A6s EZNm/u2337Zs2fL+++/jjGDHGzVq5P1uSlIdbph5+fLlag6hWLFiEOOkSZP6 9u2LIEoSfX19E9eZTDFt2jTZ3I8//qhNv3Tp0vjx4ydOnHjlypUkqIanQMCP fZGwX8fatWv9/f03b96c9LXSYpHz7ipODqwOM2ZGhCxCVtSvXz9JeipJXbhq 5hs3bhQoUEDaZLdu3e7cuaMWxcbGQiD58uU7deqU+x3JNGPGjJFqhIeHJ8Hm vE29evVMCiRZsM55dxXzB9aMma9du5bzKTKWoZmJN3DVzMOGDZPu2b9/f4cZ bt++7TD97t27wcHBu3fvjo6ONrMhAcNnrAItGBcpMx8+fNh8gXFxcci/ceNG lHzv3j3zK5okKCjowIED2FldOnZh165dWBrf8SlfvrzbZsYwAeNrl8To5MA6 JInPu0s43xfzB9bVeeaXXnqJZiZewiUzX7lyRcazWbNmvXz5ssmOc+LEiSZN mmTKlEndyapWrRq6kjFn5cqVEYrMnTs3MjKya9euCMNklTRp0vTo0UPFaRs2 bECneO6552RptmzZJIYROSxcuFD+3LZtm7bwW7dujRo1KkuWLGocmjlz5pwa 9u7di2xjx46VPyMiIrSrx8TESPqAAQNUomwLw3n8njVrVokSJaTk6dOnS4Yz Z8706dOnVKlS2AVZlC5dunfeeUerkQoVKhQsWFAyYKSs6vPTTz9pD0uzZs2M R2zatGmFCxdWe5Q7d+5BgwZpA1qXDmx8ePW837x5E9E4qvfRRx/pFn322Wdy KLQz2Ob3JcEDq4NmJtbBJTMjMJNegO5vsnsuW7YM5rQZgKA+//xzXeYXX3xR whtp8zr8/Pwk25IlS4xLgZj5m2++kT8RGKuSER6//vrrkp4jRw70WWUMBWJa 5OzXr5/8efHiRW3dYGZJ1z7yIdvKkCHD4sWLtUXt2bPnvt3VGTNmdFjVunXr qkKUtHVA+9rDol3lvv0ZCXjP4YrYO91THCYPbHx49bxfvXpVFvXq1UtXyNCh Q2XRuXPn3NiXBA+sDpqZWAeXzPzVV19J24YbzXRPyA0hiqwyfPjwo0ePoovN nDlTAjB0HDGYrtMJzZs3x1aOHDkyefJkdGekZM+eHfGVFBsYGKiewUCAij93 7NghhTg0MyQpiYhXpRC4q0qVKjZ7nBkSEhIeHo6g+r5bZrbZQzKovmfPnlu3 bl21apXMZuA3FhUqVGjKlCn79u1DnLx9+/bixYvLKps2bZJC1q9fj/rLPlas WDHwKVLP+/GYWVkLETtKQACJcLRRo0aS2KJFCzcObHx49by7Z2Yz+5LggdVB MxPr4JKZBw4cKD1i//79Znroe++9J/m/+OILbTqkJOlwo3ayV3U6dGdteseO HSUdClWJ8c0zOzRzq1atRMLaXqkeFUaApxLdMzNss2LFCuMRQMm6+VXIWVbB hrTpCLxt8UyHGs2M64jkh+dhNm0llZy1O+XSgTXi1fPutplN7ouTA6uDZibW wSUzq5c4Ll26lGDmuLi4zJkzI3PRokWNd8SaNm0qRSHgUYnS6WrXrq3LPHfu XMm8cuVKleiSmaVkdCJdyTKn8emnn6oU98z89ttvJ3hAFDLXjYOpTXTJzAEB AbLdOXPm6DIjcpZFGB3oSjB5YI149by7Z2bz+0Izk2cRl8zcrVs3afxhYWEJ Zj527Jhk1t4yM/YjY2inG7YD9DXJrH1D2SUzy6NTFSpU0Oa8fv265NSGdu6Z ed26dU4Oxe3bt5cvXz5q1Ki2bduqp39r1qypzeOSmd99910pJCoqypi/SJEi WFSpUiUnJQgOD6wRr55398xsfl9oZvIs4pKZx48fL43f4chdB7qe0XsKNbAd PXq0Soyv08F7iTTzyJEjJXHLli0qUUWe27dvV4numVm7LS1nzpxBgbly5bIZ qF69ujanS2Z++eWXkYJiHW5ULkMZM2ZU37Vw6cAa8ep595SZ49sXmpk8i7hk ZtXpxo0bl2Bm9QSFeoRMy7Zt22Sp9rVZ75n57Nmz+fPnt9nvEE2aNAmG8fPz kzcFGjdurJ2u9KCZUYJ6fqBUqVKoMLx05coVuQmYGDPXqlULKXny5DFmBg0b NrTZb0qqyYREmtmr551mJsSIS2Y+dOiQNP5ixYoZpxB1hIeHS2aHj1opp/3w ww8q0Xtm1ubXgm2dP39em02ZWfeRCjfMXKNGDZv9ObF58+Zp0xNv5vbt28t2 Hb5eIfnLli3rpATBpJm9et6Vmbt166bLTDOTVItLZgbq1j+6mMMMyhUYSsvT vGXKlDG+bde2bVspR/tutffMHBYWhh4KSY4dO7ZHjx7Yur+//88//2ys//Dh w2X14OBgbXpkZKRLZo6IiJBFxg8rOTSzHCuHr5MYD8vo0aOlcOOjuQcPHpRF 7dq1c1KCYNLM97153nHJkwePdbdEQf/+/RNvZicHVgfNTKyDq2YOCQmRfpQl SxbjrOOuXbsKFCgwYsQI+VOeVTN2571790ohGONrv/Hr7XnmatWqJbiDM2fO lNWnTZumEq9du1anTh2XzIwDJYt0g3Qc56xZsxrNLJMtefPmNVbJeFiCgoLk AJYrV077VB5MqJ6j+O6775yUIJg3s1fPu7zHhyOgDcgXL14sjyIn0sxODqwO mplYB1fNDKAm6QLoZR9++OGyZcuOHTu2cuVKPz8/iU+QLrY8deqUvEONLjZp 0iSEkYisFi1alD17dilBvW3hRqdzycwYWUs1UE9o9p4dh3sHycjq0AVKQJ2X LFkCpdueYtLMEKZYKFu2bLt378bmzp49izqrL5XpzFy7dm1JnzJlys2bNyPs ODksffv2lfyo2759+yA6HAf5rhqoV6+e2wc2Prx33tXLjLiKnT9/PjQ0FJKX uwCJN7OTA6vDjJkPHDgQ/BR5Lx5+Vik4y0nSa0nKxw0zQwIY8sf36mvOnDlX rVqlMn/99dfxvaE8dOhQXcneM/OOHTu0PV0BgVSuXHn06NHaLzPAmcaciAPl iQjz88xvv/22Wl2Ffz4+PsWKFbMZzDxnzhyVGUcMh1eFoA4PS1RUlMxjG0H5 umPiETN777xjRWM2jCwGDx4svxNjZicHVocZM8t4Jz4wzkqSXktSPm6YWYCL EI3IOwVC7ty5fX19jx49qsuJMEPnkBIlSjh8ABiDXJv9YQlduvpug0Mz676x tnDhQknXPgt3584deRc7PsqUKXP9+nXJfPLkyapVq6pFGAhDEXFxca1bt7b9 r5kdbktx9epVNa0qWnjjjTeOHDkCM9gMZsZAXr1qJ+Ba4PywYJVPP/1U6wps omvXrhgUJObAOscb5x2o16tt9m8f1apVa//+/QieJUVrZlf3xcmB1ZF4M0+d OjVJei1J+bhtZgFxFDrg6tWrta/yOQQxHvS1efNm3dNoSQPUgY6DoDc8PBx7 usMORuIBAQHyXgbQhnwYlkI1a9euDQkJSeTHQuH5rVu3Yt/j+06mFgy0AwMD 16xZc/DgQZPbRbZDhw7hFGA0HRMTk5iqmscb5x0XFOSUb4B4rqb/j5kD6+o8 MyHeI5FmfiZQD32hVxqXYtwtS2fMmJH0dSPWgWYm1iE1mFm512HYNmHCBFlq 8nM9JKVCMxPrkBrMrB7xbdSoUWhoqPrnXKOjoydNmiTTm1WrVvXGP3FCniFo ZmIdUoOZ72temrPZb/rXq1evVq1a6iGu0qVLm/mKGknZ0MzEOqQSM8fGxk6Y MEH9a1BCmjRpypUrN2fOnAT/uSWSGqCZiXVIJWYW7t27d+HChX379m3cuPHw 4cMUMtFCMxPrkKrMTIgTaGZiHWhmQgSamVgHmpkQgWYm1oFmJkSgmYl1oJkJ EWhmYh1oZkIEmplYB5qZEIFmJtaBZiZEoJmJdaCZCRFoZmId/kUIIYQQQggx TXKPJglJTqQXJPcolpD/QjMTItDMxDrQzIQINDOxDjQzIQLNTKwDzUyIQDMT 60AzEyLQzMQ60MyECDQzsQ40MyECzUysA81MiEAzE+tAMxMi0MzEOtDMhAg0 M7EONDMhAs1MrAPNTIhAMxPrQDMTItDMxDrQzIQINDOxDjQzIQLNTKyDpcw8 Z86cdu3azZ8/PxnrEBsbm4xb9yy3bt3avn17aGiomcy3b99G5uDgYG/XyrLQ zMQ6uGrmiRMn+v4v77777qBBg6ZOnXrmzJnE9As4wWYnbdq0p0+fTkxRrhId HY36Y0dKly6dJk2aEiVKdOrUad68eXFxcUlZDY8zYMAAHE/si5nMUVFRuXPn xu7Dz96umDUxb+YbN24sX758zJgxCxcu/OWXX5zkRNNatWrV2LFj165dGxMT 45lOS1IBrpr5nXfescVDunTp2rZte/XqVff6xYkTJ+BklJM+ffqzZ8+6V0hE REQDO8ePHze5SlhYWLly5RzuEcq5cOGCezXxKhMmTEDdRo4c6SQPBAvN+vj4 mL/MTZkyBXuNC9PNmzc9Uc1nDDNmPnjwYPny5XXtpHnz5pcvXzZmHjp0qDYb TgcCG690Y5LicNvMw4YNGz58+JAhQ7p06VK3bl20Oklv3Ljx3bt33esaiCv8 /f03b97s3urgwIEDUg38MJMfkQ/cJasUK1asc+fOkyZN6tu3L4JnScSgwO3K eI8333wTdcP/48uAU1CqVCnkgRzMF4ugrnjx4lhr4MCBnqjmM0aCZv7pp59U a8mfP/8rr7ySPXt2+RMX97/++kub+aOPPpJFWbJkqVOnTubMmeXPcePGebdL kxSB22a+d++eNv3UqVMVKlSQRd9++613uk7CwOrmzYwxaYECBSR/t27d7ty5 oxbFxsbiGpEvXz7slzfr6yb16tVzbuavv/4aGTJlyoRYzqWSp06dKitac7Dg VZybGZct8XDJkiX379//+PFjJKKdtG7dWprQ5MmTVeZjx45JYvXq1X/77TdZ XS73GFpGRkZ6v2eTZxtPmRn88ssvsujDDz80rogoLjg4ePfu3dHR0YnpPteu Xdu6deuJEyeMFQBLliwxb2aE/ZK5f//+DjPcvn3bYbqn9sUJYWFhKB/XDodL ZUAdn5nj4uIkYH7vvfeMS3EA9+3bt3PnzuvXrxuXXr16VcLCwYMHJ6b+zyIJ xswhISEtW7a8deuWNhEXdDF28+bNVSIGHUYJK10zbCYJ4kEzg2zZsmFR3bp1 tYmwaJMmTRCGyYpp06atVq0atGNcvXLlyjlz5mzWrJlKWbhwIVIQpeD30qVL a9WqhdYu5RQqVEh7r+qrr74qUaKEVADgR047CFoc7siVK1dEQVmzZjUfWJrc l5s3byIax9YxpNUt+uyzz6Ri2qBUdnzu3LnoyF27dkWsrmYme/TooQ3mMTAp WLCgzB2lT58+51Mw0FZ5li1bJqtDv9pNHzlyxNfX16ahbNmyP/zwg66GnTp1 kgOY2mab3X42o1GjRjIbJn/+/fffuXLlQgrSdTllXPniiy8mrteSlI8HzYyR nSgL7lKJsISypRYI9vPPP9eVgBarE/s333wj+YcMGWIsBGqNiIiQnKNGjTJm AIgeHe7Ili1bJMOgQYPM7LhL+4LIUxb16tVLV4i6K3Tu3DndjiMGfumll4zl +/n5qZxqPl8HLmEqT+fOnZGSJ08e7XZx9SlcuLDKr6Y9waxZs7Q5IXlJX7Fi hckjkzJw28xVq1bF4YJ15U+0STmAX375pS7nJ598Iov++OOPRPZckrLxoJnV HK+663Tx4kWEc5I4fPjwo0ePQkczZ86UYBWS2bNnj7YEJ2YGKCogICAoKAhV rVGjhiSOHj1ach4/fjwwMLBLly6SPnny5EA78U1rIMaWnEuWLDGz4y7ti3tm FjAoRpUQ32IXZICAwbIKX9evX4+dkvSKFSsGPkVlwHmBk22GuY4xY8ZI+f37 9z9z5gyyhYaGIoSuVKkShufanEosH3zwgZkjk2Jwz8wISOSZIpxrScGBlQO4 evVqXeZ58+bJIoyYEt95SQrGU2bev3//Cy+8IIvWrVsnie+9956kfPHFF9rM mzZtkvQqVapoy3Fi5uLFi4eHh6t0iEvSW7VqpS1Z+SfBeWaZCQSouZkdd2lf 3DYznK89IB07dpT0kJAQbSEZMmQwulfYu3evrDJlyhRteps2bZCIFXVz4zEx McZCypYtK8fcyQFJebhnZrlnChYvXiwpa9askRRcrHWZMQyRRQgwEt95SQom kU/N+fv7d+rUqVatWirk69Onj+SMi4uTIXPRokWNz9E1bdpU8sOxKtGJmREW 6kooUqQI0qtVq6ZNNG/mli1bSs5Lly4luNeu7ot7Zq5du7Yu89y5cyXzypUr telOzLxw4UJZBQGbNr1fv36SbpxYNtK+fXubfSCQkt6ITBA3zIzG89xzz9ns T809fPhQElVgjHGcLv+uXbvU2fFI/yUpFbfNbCRr1qxDhgxRMZi6Ez1gwABj Oco5y5YtU4lOzLxx40ZdCXCyzf4IkzbRvJm7desmOcPCwhLca1f3xT0z6+6c AghZMuveWHdi5okTJ8oquhO6Y8cOdfMUl5Kff/7ZiXU//PBDyen2Kz/PIq6a +fHjx02aNJEDtWXLFpWOkyWJhw8f1q2ydetWWbRhwwaP9F+SUnHbzK8/5a23 3ho8ePCsWbN0TzioJwR0w39BTQKoieL7LpoZEWZizDx+/HjJaeY+l6v74ikz r1u3zlUzDxo0SFYxvgW5YMGCHDly2J5SsGDBgIAAh08GYkckz969ex0ekBSJ q2b28/OTo/T+++9r01V72Llzp24VdXfV+TvdhHj2qTkt6tHi6dOnG5du27ZN lmpfMU5KMyvZjhs3znlON/YlGc2sZi1OnjxpXHrx4sURI0YUKlRI+bls2bJX rlzRZcMxoZmdg5Ygh6h69eoPHjzQLkKorC76urXUfWe+bEKc4z0zh4eHS06H j6Up5WqnPZPSzIcOHZKcxYoVS/B1clf3RZm5W7duuszeNjPCYFlF99yLltjY 2KVLl5YpU0ZyGj95hEGQE72nVMybeeXKlfI8Rv78+Y2OvX79uhw9DD10iz74 4AObfQL/77//9kj/JSkV75kZ3T9jxozICQMYM7dt21bK0T5xkXgzjx07NkEv KeQFAYCtOMygXsFzdV9iYmLkweOWLVvqMvfv3z/xZpbKaF/JUch72TbDTUMj 165dk8enCxYsqFukHj6M7y3IFIlJMwcGBsqVMVu2bPFNSsg7mJUqVdImPnny RL4GgBPtkc5LUjDeMzNo1aqVQ/VhjCziQgPW3odKvJlnzZol+R1OO+gICQmR amTJksU427xr1y70I4z93dsXeY8PMZU2IF+8eLG6DZcYM6NYJObNm9e4U2qS U/fUHK4axnud8v0NGEaXLtcs7IKx/BSMGTOjHcpl0cfHx0nmSZMmyVnYv3+/ Sly7dq06mx7qviTF4lUznzp1Sp4pgo7QViMiIhCFLlq0SH2hCxrR5k+8mZXK qlevHhQUhEpqY3Ij3bt3l/yw64cffrhs2bJjx44h2vTz85MOiPTDhw+7sS/q rn2vXr3Onz8fGhoKycsQOPFmln0X/d68eTPCjiy6deuWPOCnneuQ8BiR3ief fCIfBcVa6hGCBg0aaAvHpQSXKqTjXDs5dCmPBM28ZcsW9WI+zib+xAlaq2H3 7t2S8/r16+nTp5er28GDBxEtQ9Fy+zVr1qzyjSNCnOBVM9+3D65FcUaMH6hM vJkRtRYtWlRtAo7C1nXvuOnyDx8+PL5XnnPmzLlq1Sr39gUrGrOhV6op3MSY ec6cOapMVAn1V7E9aNasme1/387GyZUXAwX8Vl+zhEB03/3Anw43muJxbuZ/ //vf6qDFR+XKlVX+JUuWqPGRamAQO67gSdGxyTOOt8183/7NZPUytVCiRAn1 nqAWmZ1r3LixSlHvTRj/oY369evbDGYG+/btK1asmNoWwtQE3/KD9uF57ack cufO7evre/ToUbf3BajXq6UatWrVQk3Uq7taMxt3XFAf99BJEmGteodR0L4L OWPGDEnEoVCJkZGRAwYMeP7557VrVapUyfg17M8++0yMbXxmI2WToJnV2YyP mjVraldZunSpejFWmgq1TEziqpndJioqCnaFBy5evOjVDd23iwsCXLFiBTZn /t9YQfwM8a5evVr7WqJDzO/LtWvXkHP9+vUQo8lqmCciIiIwMHDNmjUYL2sv lBhKy7fOjM/sgTNnzqy3c/r0aePlNS4uTmTSpUsXj1fY4rj6PLNJ0EgwDMFl zuMlkxRMkpmZJCUjRoywufUlT/mwg5pdT1V4ycyEuAHNnCK5fPmyfLD0yy+/ dGnFBg0aYK0OHTp4qWJWhmYm1oFmTqnMnj3bZn+yzuG/XeIQ+UxHzpw5tXPg qQeamVgHmjkFI0/uDR8+3Ezm2NhYeSswvvduUjw0M7EONHMK5uzZs+PGjfvu u+/MZL5y5Qoyz5w509u1siw0M7EONDMhAs1MrAPNTIhAMxPrQDMTItDMxDrQ zIQINDOxDjQzIQLNTKwDzUyIQDMT60AzEyLQzMQ60MyECDQzsQ40MyECzUys A81MiEAzE+vwL0IIIYQQQohpkns0SUhyIr0guUexhPwXmpkQgWYm1oFmJkSg mYl1oJkJEWhmYh1oZkIEmplYB5qZEIFmJtaBZiZEoJmJdaCZCRFoZmIdaGZC BJqZWAeamRCBZibWgWYmRKCZiXWgmQkRaGZiHWhmQgSamVgHmpkQgWYm1oFm JkSgmYl1oJkJEWhmYh2SwMxz5sxp167d/PnzvVR+spAidyqVQzMT6+CqmSdO nOiroUOHDiNGjFiwYEFwcHBcXJwxP9JtdtKmTXv69GlPd6bkIUXuFDFv5sjI yBUrVowZM2bevHm7du16+PChl7spSXW4auZ33nnHFg81atQ4ePCgLv+JEyeg LyxNnz792bNnvdCfkoEUuVPEjJkPHTpUsWJFXcsvWbLkhg0bkqS/ktSC22Ye ZKd9+/YVKlTImDGjJGbIkCEgIEC3ytq1a/39/Tdv3uyFzpRspMidSuUkaObZ s2ejhUtTz5kzZ9WqVeUCDdAFDhw4kFS9lqR83DbzvXv3VGJUVNT777+vQojt 27d7rfcQ4i0SNPOiRYvQvIsUKbJjx47Hjx8j5caNG8OGDZNm/8YbbyRRpyWp AI+YWUBEIYuqVKnicM7ZCTExMWjt58+fNy4KDQ3dv3//7du3nZdw+vTpLVu2 XLp0yeQWw8LCdu/ejZ4VXwbswsmTJxEVHzt2zLizCYKaoD6nTp0yv0qCVSJe xcxsxk8//XTnzh1typMnT8qWLYtmnzt3bi92VJLK8KCZQbVq1WQpoguVWLly ZQz9mjVrps0piXPnzr1w4UK7du2yZs0qK1asWBGNHxnu3r378ccfv/DCC5Ke Ll26UaNGGTeKlIkTJxYoUEBF7IULF164cKEum9pcZGRk165d8+XLJ5nTpEnT o0cP9DVdmV9++WWePHlUmdmyZevSpQuq6nynhGnTpqEOal102EGDBuk24WqV SBLg9rMZTZs2lSb66NEjT3dQkkrxrJlXr16tZqFV4osvvoiUunXranNKYqtW rZR7FdmzZ//ll18wNrQZgDC1hURHR0unEHx8fNTvESNGGDf35ptvvvTSS8Zi /fz8tJnHjRvnsMyCBQuqvXa4U6hPkyZNjOWDChUq6J7icKlKJAlwz8xoEnnz 5sUpK126tBc6KEmleNbMV65ckaVQrkp0Ymahbdu269evP3jwIDSltROiygUL Fhw6dGjkyJGSgrW0hQwfPlzSEXWL944fP16/fn2b/akJ/Ha4uebNmy9ZsuTI kSOTJ09GnGOzXwtu3rwpORGrZ86cWTy8YcMG/BkVFfXVV18h9EVlnO/U0KFD ZRPopNgjBMO7d+9u1KiRJLZo0SK+I+C8SiRpcMPMly9fxrhJTuKcOXO800dJ asSzZgZQCpaWK1dOpTg386hRo1QiXJQjRw5JR4PXzriKb0FERISkHD58WJ4J 8fX11ZaMtWBRpPfu3du4OchcW/OOHTtKekhIiKTgAiEpw4YN0xYbExNjrL92 p8LDw+XGffHixa9evapdUcl52bJlblSJJA3mzbxo0aKePXu+9tprchl97rnn cO1+8uSJlzsrSUV43MwIFyXkUylOzFy7dm3d6mo2QDfROnr0aEkPDg6WFDXn cPLkSV0h/fr1Q3qdOnUS3NzcuXOlkJUrV0oKoiBJqVWr1rVr1+I7DsadCggI ULGTLjMiZ1mEo+dGlUjSYN7MCAZsGsaOHfvnn396uaeS1IXHzSzxaqlSpVSK EzPrEkGnTp2k/NjYWG06YhJJV48Qv/vuu/gTMfZOA/IIX/78+RPcHOwnxWrf s1ZT3Hny5Pn0009//fVX424aC5T6gKioKGP+IkWKYFGlSpXcqxJJAsybedq0 aS1atKhatap6kr9s2bJoJ17urCQV4VkzX79+XZY2b95cJbpk5q5duzo087x5 83RmrlKlis0pGGkmuLl169YZNRgZGfn666+rctKkSdOsWbP9+/c7r//LL7+M lFy5cjk8bvXq1bPZ30dQ++VSlUgS4MY8882bN//xj3+gheB8lShR4sGDB97p piTV4Vkz79ixQ5YOGDBAJXrJzLVq1cKfmTJlqhsPTZs2TXBzTjSI2BXXF/WS F3rfjBkznBQo9UGY7fC4NWzY0Ga/L3n37l23q0S8ittPzY0ZM0ZO2Xfffefp DkpSKZ41s5p/0861esnM7dq1s9lnM8y8BuK2Bk+fPt2vXz/xM/5/5MiR+Aps 3769FOXwVRHJjzFv4qtEvITbZr548aKcsoEDB3q6g5JUigfNrALmokWL3rp1 S6V7ycyjRo2SFDMvgydSgzNnzpRss2fPjq9AdY/S+J6Let4DVxNPVYl4nATN HN/TF5cuXZJThou4V3opSX14yszffvuteo9P+wLgfa+Zed++fTK/V7FiRd0j bUZc0uDy5cvVnIOAjUq2iRMnxldgUFCQ1KdcuXLR0dEqHQeqZcuWsjpGu+5V iSQBCZoZjV+urbp0NZuBi7L3uipJVbht5m3btiFY/f777/39/Rs0aGB7SuvW rXWreMnMoG/fvpL48ssvo/7ysY6zZ8+OGDECJWtLMK9BCY8rV668ceNG+VhH eHi4eiB569atTgpU9alWrRouHKjA4cOH1esz9erVM3MEaObkwrmZ1futZcuW /frrr0+dOoUQGi3ks88+k6eac+TIERUVlYR9l6Rk3DazEcTMarCvxXtmRkeo U6eOqoCPj496UUVnNvMa7Ny5syohffr0+fPnV39qX2lxWCDqU6NGDYcHp1ix YrC0mSNAMycXzs38119/qZeABPXInM1+gzgwMDAJOy5J4STSzJkyZapUqRJa bEBAgPGND6FUqVLI2bhx4wQT7z81M5So+1odNGU08337F+EmTJggD1ErIL0Z M2Zo31WJb3NbtmwxahBdrHr16hIIqT44aNCg69evJ1jg3bt3P/30UzWxI+ti p4wvrbhUJZIEmLkDuGrVKm0wIDRs2PDgwYNJ0l9JasFVM1uWX3/9FUaFt9Xr 24kEA9U9e/agJwYFBbn6CYt79+4dOnQI49/g4OAE58CJRTD/bAau0WgVGzdu DAkJwfn1ch8lqZEUY2ZCEonbT80R4nFoZkIEmplYB5qZEIFmJtaBZiZEoJmJ daCZCRFoZmIdaGZCBJqZWAeamRCBZibWgWYmRKCZiXWgmQkRaGZiHWhmQgSa mVgHmpkQgWYm1oFmJkSgmYl1oJkJEWhmYh1oZkIEmplYB5qZEIFmJtbhX4QQ QgghhBDTJPdokpDkRHpBco9iCfkvNDMhAs1MrAPNTIhAMxPrQDMTItDMxDrQ zIQINDOxDjQzIQLNTKwDzUyIQDMT60AzEyLQzMQ60MyECDQzsQ40MyECzUys A81MiEAzE+tAMxMi0MzEOtDMhAg0M7EONDMhAs1MrAPNTIhAMxPrQDMTItDM xDrQzJ5izpw57dq1mz9/fnJXhLgJzUysg9tmjo2Nbdu2ra+dw4cPe6mzPCsE Bwfb7KRNm/b06dPJXR3iDmbMPGDAgDfffBOX4N9++824tHv37lj6/fffe6Wv ktSE22YODAy0PWXkyJFe6iyeIiIiooGd48ePJ6acCRMmoBDj/p44cQJOxqFI nz792bNnE7MJklyYMXO5cuWkzX/++efGpYUKFcKi999/3yt9laQm3DZzt27d lJlLly7tpc7iKQ4cOCBVxY/ElIOICIXg/8ZFa9eu9ff337x5c2LKJ8mIS2bO lStXXFycbinNTDyFe2a+e/du7ty50QjbtGnjEeN5GwjTI/WsV69efGYmzzou mRmMHj1at5RmJp7CPTOvXr1aGuehQ4eee+45/Bg2bJiZFcPCwnbv3n3jxg0z ma9du7Z169YTJ07cu3fPSTZcJoKDg1FsdHR0fHmWLFlixsyo2K5du4KCgm7f vu0wQ/ny5d0zs5lKGknwcOEQ7du3b+fOndevX3e1SkSHeTNLWJItW7Y7d+5o lyZo5t9++w0t8OjRo3/99ZdL/TQmJmbv3r2XL19+8uRJgpmxlZCQkGPHjrm6 FWId3DMz2h5aYKlSpfDb19cXv0uWLGnMVrly5Zw5c86dOzcyMrJr16758uUT PaZJk6ZHjx5o1drMCxcuRGYpZ+nSpbVq1UqXLp3kR4Pfvn27sXxIu0mTJpky ZVJ336pVqwaVafN89dVXJUqUQCeSPPiR00716tVVnjNnzvTp0we7g4pJNmz6 nXfe0SqxQoUKBQsWlAzp06fP+ZSffvpJu7PNmjVzo5JuHK4jR47IkVeULVv2 hx9+cHC2iDnMm3ngwIHPP/88fgwfPly71ImZ0U7KlCkjNyNAhgwZateujYu1 Mefvv/+eN2/eXLlyIex59OjRpEmTatSooVZE+o8//hhf9RYsWICtqGaMrdSs WROWNuUCYiXcMDMUkSNHDpz3QYMG3bc/LSbNAKGmLueLL74oEeZLL71kM+Dn 56fN/M0330j6kCFDjJl9fHwiIiK0+ZctW6Z8qwVS/fzzz1W2UaNGGfPYnl5W wKxZszJmzOgwT926dVU5qrXrwAVFu7PaVcxX0tXDhdipcOHCalHmzJnVb+yO yfNIdJg3c//+/XH68AMDxps3b6qlDs384MGD1q1bO2w88O3HH3+s2wRGiLIU 8UmLFi0crogxoG4tjPJef/11lQH9BfGD2srkyZPddwRJDtww84oVK+SMSxx7 8eJFsRaMqsspqhGaN2+O5oRID41EguHs2bOjVavMyswAoWNAQABUj1ohYJDE 0aNHq8zYKPJIOuIWDA/PnTs3c+ZMNEibPcjcs2eP5Dx+/HhgYGCXLl0kM7Ye aEdNa2zdutVmD8unTJmyb98+xMnYr+LFi0v+TZs2Sbb169djLal5xYoVA5+i dsFoZvOVdPVwjRkzRrJBEQj40ZdDQ0MRQleqVOnWrVsmzyPRYd7MGNEgv8xp 4Iqpljo089ChQ+VkFStWbO3atThBuLCitWfNmlUZWJtfmVnOe5UqVdasWYNh FELo9957TxYhMNZNa7Rt21YWoRkcO3bs8ePHf//9NxoYxnpSFBITKwuShLhh 5nfffRfnGgOuuLg4ScG4DCkQiy6nUg28pJ0r7tixo6RjnKUSlZlhxfDwcJUO O0l6q1atVKJqol988YV2ixCppKM9a7eoVOZwnhmRrW76F3KW/P369dOmY3ho i2ee2WhmVytp/nDJjVdURlftmJgYY8WIScybuX379viNiyZ+Z8qUCdqUpUYz h4WFiWBLliypm5Q+efKkDHby5MmjXaTMDHr16qWbK65WrZosunbtmkpctGiR JBonUlCyTLw0a9bMvBZIsuOqmTFokuG5hA3CuHHjpGE4DALhbV0hc+fOlfwr V65UicrMCER1+YsUKYJ0tEn5E1cEadJFixa9e/euLnPTpk2lHChdJTo3s0Oy ZMmC/C1bttQmmjezG5U0f7hwvZAUTix7EPNmbt269X/sE8JyL6Bv376y1Ghm f39/OVM///yzsTRcgmWpNmxWZkYzM64ilwOAUZJKlEeGcuXK9ccffxhXwWDT Zh+HOt81YilcNTPCS2kYK1asUImHDx+WRN3UscOpVwDDSH7tu8zKzBs3btTl lzhB3WTEuExyDhgwwFhD5TFUVSWaMTMuOsuXLx81ahQGhqVLl5b8NWvW1OYx b2Y3Kmn+cO3YsUPdHoXk0etjY2Pj2y9iElfNDGbMmGGzD14uXbqEP1944QWd mZs0aWKz3whw+EzFiRMn5CSOGDFCJSozDxo0yLjKTz/9JEvXr18vKY8fP5aJ kTp16oQ64pNPPpFVrl+/7podSPLhqpk7dOggZ7lMmTIva5BEtExt5vhUs27d OpfMLLMlyszq6qCbJRDUXIF2Xtq5mc+cOYMoFCGHzYD2EY77rpjZjUq6dLgW LFgg92GFggULBgQExPewHzGDG2b+888/5VZs9+7d8WfZsmV1Zi5QoABSypcv 77A0rC73aHx9fVWiczOvXbtWlmJoKSnnzp0ztluHIIJyQQ0kWXHJzNHR0TLG d8LOnTtVfi+ZWT2cPH36dGMlt23bJku171A7MfPFixfVsxClSpVCTmjzypUr chPQbTO7UUmXDpfUHLGWjKAFmAE1N26OmMENM4N//vOfNvsttvPnz6O12P7X zPnz57fFb+a///5bHofDwEclumrms2fPSgq21cApaBumxUCSGZfM/OOPP0ob 6NOnz6z/RT2c1r9/f5XfS2YODw9XTddYSVWOdg7WiZnl2Q/0rHnz5mnTE2lm NyrpqpmF2NjYpUuXYggjeTp16mTMQ8zgnplhVzlxPXr0aNSokc7MDRs2RErW rFkdlobBmpw1f39/leiqmR8+fChP+7Ro0cJ0vydWxyUzy5M56dOnv3r1qm4R mpMM3DCsVs8VeMnMcJE8gQwdGV8PVI8PaR/wGDt2rCTq7lFGRERIeu/evXXl ODSzbNf4OolxZ92opHtmFq5duyaRP45/fHmIc9wz83/s73dIv5BpPa2Z/fz8 5Nxt3rzZWNr48eNl6eLFi1Wiq2YGEl1kz54do1pz/Z5YHfNmvnHjhjxs0Lhx Y4cZevbsKW0GQ3VJ8ZKZQatWrSQz1tLm3Lt3r0zclSpVSntTDFG95NfNLYSE hEh6r169dJ1U7qrozCyD07x58xp337izrlbS/OGCz8PCwnTZ5AZ9tmzZjHUj ZnDbzI8ePcKptD1Fa2YUKImVK1f+/ffftWtdvnwZLpVTpn0Ezg0zf/nll5LY vHlzVMa4lm7TxPqYN/PChQsdyk2hPqbRt29fSfGemU+dOiXf60iXLt2kSZMQ +uLCsWjRImnqNs0bIrotwrRBQUFo/BKsIsYQSaJ37N69G+lnz54dM2aMen9K Z2apCZgyZcrNmzcj7MS3s65W0uThkvA4Q4YMn3zyiXwLGjXBIsnToEEDh2eH JIjbZv6P5pEJm+Gh4g8++EDSy5cvjyHbn3/+GRcXt2LFijx58kj6119/rc3v hpkfP34sEylyCUBo9ODBA6T/9ddfhw4d6t69u4+Pz6+//uqKGEgyY97MKgKM 7/vDd+7ckTgzX7588hKK98wM0J7je6t66NChuhIQmhYtWlRlQPCPdeV1ubff flulq0fR0JKLFStmNLN6FR2gBFh9xIgRssjhzrpUSZOHC2dKdWqb/T0FmWa0 2QfUDr/IQcyQGDPDjfK2ndHM6Auvvvqqto1p3/SHNnUP1LlhZhAZGVmzZk1V bNq0aTG+U+0ZfPrpp+a1QJIdk2aG2WQqo0aNGk6yvfXWW9IMZDpXhnjG2Y8t W7ZoVSOomNz48aL69evbHH006cCBA+rdbaFEiRLwmMO67du3T2Srmu7+/fuR fvXqVTXrK7594403jhw5AuUazXz37t2BAwdqt6jeTIxvZ81X0vzhQjccMGCA vNulqFSpEr8OnRjMmLlixYoOzQxWrVrl0Mz/sXt79uzZ6hNVQunSpRGEGMu5 //QjLbrPJQnKzFu3bjVuBZGANgKx2Z+1rlevnsMNESvj6vPMFiQqKgoyh5Qu XrzoPCe8GhoaioEkMutuYp48eRJNHeWYeSQ4IiICEcuaNWsOHjzo/AulblTS Jc6cObPezunTp03WhMSHGTMnEjQDXGcxromJifHeVhBHIepAE0WrePjwofc2 RLxHCjAzIR4hCcxMiEloZkIEmplYB5qZEIFmJtaBZiZEoJmJdaCZCRFoZmId aGZCBJqZWAeamRCBZibWgWYmRKCZiXWgmQkRaGZiHWhmQgSamVgHmpkQgWYm 1oFmJkSgmYl1oJkJEWhmYh1oZkIEmplYB5qZEIFmJtbhX4QQQgghhBATJHfk TgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIcnJ/wEHG24k "], {{0, 156.}, {239., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{239., 156.}, PlotRange->{{0, 239.}, {0, 156.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8387641376784363`*^9}, CellLabel->"Out[2]=", CellID->1623144245] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Visualizations", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->50804313], Cell["Plot the spatial point data:", "Text", TaggingRules->{}, CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.733663887989629*^9, 3.7336639169648657`*^9}}, CellID->1887980834], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPointPlot3D", "[", RowBox[{"ResourceData", "[", RowBox[{ TagBox["\"\\"", #& , BoxID -> "ResourceTag-Sample Data: Osteocyte Lacunae 10-Input", AutoDelete->True], ",", "\"\\""}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7335739606385117`*^9, 3.733573969460602*^9}, {3.765014626541195*^9, 3.765014631620124*^9}, 3.838764109723751*^9}, CellLabel->"In[1]:=", CellID->75508966], Cell[BoxData[ Graphics3DBox[{{ {RGBColor[0.3315753, 0.4561011, 0.6388182], PointSize[ NCache[ Rational[7, 360], 0.019444444444444445`]], Point3DBox[{32.72727272727273, 77.27272727272727, 0.}], Point3DBox[{57.272727272727266`, 77.27272727272727, 0.}], Point3DBox[{48.18181818181818, 53.63636363636363, 0.}], Point3DBox[{43.63636363636363, 29.09090909090909, -2.}], Point3DBox[{2.727272727272727, 34.54545454545454, -2.}], Point3DBox[{0., 70.9090909090909, -11.}], Point3DBox[{22.727272727272727`, 16.363636363636363`, -14.}], Point3DBox[{20., 50.90909090909091, -14.}], Point3DBox[{79.09090909090908, 63.63636363636363, -24.}], Point3DBox[{52.72727272727272, 46.36363636363636, -30.}], Point3DBox[{70.9090909090909, 43.63636363636363, -39.}], Point3DBox[{49.99999999999999, 26.36363636363636, -44.}], Point3DBox[{27.27272727272727, 46.36363636363636, -43.}], Point3DBox[{5.454545454545454, 15.454545454545453`, -44.}], Point3DBox[{60.90909090909091, 70., -49.}], Point3DBox[{31.818181818181817`, 11.818181818181817`, -49.}], Point3DBox[{13.636363636363635`, 59.99999999999999, -49.}], Point3DBox[{25.454545454545453`, 77.27272727272727, -57.}], Point3DBox[{0.9090909090909091, 88.18181818181817, -57.}], Point3DBox[{3.6363636363636362`, 9.09090909090909, -54.}]}, {}, {}}, {}}, Axes->True, AxesLabel->{None, None, None}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGrids->None, FaceGridsStyle->Automatic, Lighting->{{"Ambient", GrayLevel[0.5]}, {"Directional", GrayLevel[0.5], ImageScaled[{0, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 2, 2}]}, {"Directional", GrayLevel[0.5], ImageScaled[{2, 0, 2}]}}, PlotRange->{{0., 79.09090909090908}, {9.09090909090909, 88.18181818181817}, Automatic}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.838764141388605*^9}, CellLabel->"Out[1]=", CellID->700557874] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Analysis", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->866856397], Cell["Test for complete spatial randomness:", "Text", TaggingRules->{}, CellChangeTimes->{{3.838758051415957*^9, 3.838758058489974*^9}, { 3.838758669073699*^9, 3.838758669440703*^9}}, CellID->133138361], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SpatialRandomnessTest", "[", RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ TagBox["\"\\"", #& , BoxID -> "ResourceTag-Sample Data: Osteocyte Lacunae 10-Input", AutoDelete->True], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}], "//", "Column"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8387580028115*^9, 3.838758008455523*^9}, { 3.8387580607009783`*^9, 3.838758073435103*^9}}, CellLabel->"In[1]:=", CellID->1436923693], Cell[BoxData[ TagBox[GridBox[{ {"0.8449398057963288`"}, { TemplateBox[{"\"The null hypothesis that \"", TemplateBox[{"\"the data exhibits complete spatial randomness \""}, "RowDefault"], "\"is not rejected at the \"", TemplateBox[{"5", "\" percent level \""}, "RowDefault"], TemplateBox[{ "\"based on the \"", "\"ModifiedChiSquare\"", "\" test.\""}, "RowDefault"]}, "RowDefault"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellChangeTimes->{3.8387580178452253`*^9, 3.838758082688575*^9, 3.838764151206202*^9}, CellLabel->"Out[1]=", CellID->1770835464] }, Open ]], Cell["Fit a Poisson point process to data:", "Text", TaggingRules->{}, CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.763836476083777*^9, 3.763836493187152*^9}}, CellID->338741174], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "\[Mu]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"EstimatedPointProcess", "[", RowBox[{ RowBox[{"ResourceData", "[", RowBox[{ TagBox["\"\\"", #& , BoxID -> "ResourceTag-Sample Data: Osteocyte Lacunae 10-Input", AutoDelete->True], ",", "\"\\""}], "]"}], ",", RowBox[{"PoissonPointProcess", "[", RowBox[{"\[Mu]", ",", "3"}], "]"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.763836495440322*^9, 3.7638365155797663`*^9}, {3.76451360160106*^9, 3.764513601744133*^9}, 3.838757930867642*^9, {3.838762240213704*^9, 3.838762240926715*^9}}, CellLabel->"In[2]:=", CellID->243763221], Cell[BoxData[ RowBox[{"PoissonPointProcess", "[", RowBox[{"0.0000411522633744856`", ",", "3"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.838764154233189*^9}, CellLabel->"Out[3]=", CellID->455779675] }, Open ]] }, Closed]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Sample Data: Osteocyte Lacunae 10 | Example Notebook", FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "12.3 for Linux x86 (64-bit) (May 11, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DefaultContent"->{ Cell[646, 23, 197, 8, 70, "Subsection",ExpressionUUID->"1e3b233b-9eb9-49c8-b12a-44aef2bc28c1", CellTags->"DefaultContent", CellID->619504543]} } *) (*CellTagsIndex CellTagsIndex->{ {"DefaultContent", 44306, 930} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[646, 23, 197, 8, 70, "Subsection",ExpressionUUID->"1e3b233b-9eb9-49c8-b12a-44aef2bc28c1", CellTags->"DefaultContent", CellID->619504543], Cell[846, 33, 73, 2, 70, "Text",ExpressionUUID->"0093d5f4-6694-4a0e-992d-63e7568af786", CellID->687106258], Cell[CellGroupData[{ Cell[944, 39, 380, 10, 70, "Input",ExpressionUUID->"4ea509f6-21b0-440e-b215-c4c22966b3f1", CellID->257298660], Cell[1327, 51, 9570, 205, 70, "Output",ExpressionUUID->"1db929c1-d225-496d-846e-6c069ee07217", CellID->463146539] }, Open ]], Cell[10912, 259, 400, 7, 70, "Text",ExpressionUUID->"ea9ee102-fb9b-4a0b-81f3-74ba042f02d7", CellID->285894589], Cell[CellGroupData[{ Cell[11337, 270, 700, 16, 70, "Input",ExpressionUUID->"aab98c10-fc4d-472c-a086-4c061c9295b5", CellID->1109438984], Cell[12040, 288, 23411, 391, 70, "Output",ExpressionUUID->"7097a60b-b645-4527-bf42-a9cbe3ffe00d", CellID->1623144245] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35500, 685, 167, 7, 70, "Subsection",ExpressionUUID->"3b534760-90ed-47ee-9685-2f2ef726033a", CellID->50804313], Cell[35670, 694, 399, 7, 70, "Text",ExpressionUUID->"b8a95a28-3588-447b-bb36-699d80e235d0", CellID->1887980834], Cell[CellGroupData[{ Cell[36094, 705, 745, 16, 70, "Input",ExpressionUUID->"81fdc7d1-46a4-40dd-bb4a-a618df6cf4a1", CellID->75508966], Cell[36842, 723, 2192, 51, 70, "Output",ExpressionUUID->"25eec2e0-8237-495f-b240-8165a66f50fc", CellID->700557874] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[39083, 780, 162, 7, 70, "Subsection",ExpressionUUID->"71d928fd-b610-4286-8e31-d86247e9a899", CellID->866856397], Cell[39248, 789, 207, 4, 70, "Text",ExpressionUUID->"f1f0e7d6-e5f7-441c-b110-91dc9ada266c", CellID->133138361], Cell[CellGroupData[{ Cell[39480, 797, 635, 17, 70, "Input",ExpressionUUID->"e6bc169f-c079-48cb-b4df-9ccdaba3e7d5", CellID->1436923693], Cell[40118, 816, 787, 21, 70, "Output",ExpressionUUID->"0d369344-f055-4c3a-b098-95ab80fa1518", CellID->1770835464] }, Open ]], Cell[40920, 840, 404, 7, 70, "Text",ExpressionUUID->"ad8c3340-a385-45aa-98d1-3aa0d4ef7688", CellID->338741174], Cell[CellGroupData[{ Cell[41349, 851, 985, 21, 70, "Input",ExpressionUUID->"5b24554d-f481-49d7-929c-7d432a3c4d8c", CellID->243763221], Cell[42337, 874, 221, 6, 70, "Output",ExpressionUUID->"4fd8f2a0-afd8-4196-9681-b6c54f4feb16", CellID->455779675] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)