(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 393371, 8216] NotebookOptionsPosition[ 237249, 5254] NotebookOutlinePosition[ 379489, 7924] CellTagsIndexPosition[ 377680, 7874] WindowTitle->ChristoffelSymbol | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["ChristoffelSymbol", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->963216952], Cell["Return the Christoffel symbol for a given metric", "Text", CellTags->{"Description", "TemplateCell"}, CellID->908712507], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "ChristoffelSymbol", "]"}], "=", RowBox[{"{", RowBox[{"\"\\"", "->", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChristoffelSymbol", "[", RowBox[{"metric_", ",", "coords_List", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"contraMetric", "=", RowBox[{"Inverse", "[", "metric", "]"}]}], ",", RowBox[{"n", "=", RowBox[{"Length", "[", "coords", "]"}]}], ",", "christoffelSecond"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "intrinsic", " ", "definition", " ", "of", " ", "Christoffel", " ", "symbol", " ", "second", " ", "kind"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"christoffelSecond", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "1"}], "n"], RowBox[{"(", RowBox[{ RowBox[{"contraMetric", "\[LeftDoubleBracket]", RowBox[{"m", ",", "k"}], "\[RightDoubleBracket]"}], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{ "coords", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]], RowBox[{"metric", "\[LeftDoubleBracket]", RowBox[{"m", ",", "i"}], "\[RightDoubleBracket]"}]}], "+", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{ "coords", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]], RowBox[{"metric", "\[LeftDoubleBracket]", RowBox[{"m", ",", "j"}], "\[RightDoubleBracket]"}]}], "-", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{ "coords", "\[LeftDoubleBracket]", "m", "\[RightDoubleBracket]"}]], RowBox[{"metric", "\[LeftDoubleBracket]", RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}]}]}], ")"}]}], ")"}]}]}], ")"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Christoffel", " ", "symbol", " ", "first", " ", "kind", " ", "by", " ", "lowering", " ", "first", " ", "index"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"OptionValue", "[", "\"\\"", "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"TensorContract", "[", RowBox[{ RowBox[{"metric", "\[TensorProduct]", "christoffelSecond"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "christoffelSecond"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{ 3.7778780365005426`*^9, {3.7778944862276*^9, 3.7778944868516016`*^9}}, CellTags->"TabNext", CellLabel->"In[1]:=", CellID->672776919] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChristoffelSymbol", "[", RowBox[{ StyleBox["metric", "TI"], ",", StyleBox["coords", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->502828689], Cell[TextData[{ "creates the Christoffel symbol of the second kind for ", Cell[BoxData[ StyleBox["metric", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " specified in coordinate variables ", Cell[BoxData[ StyleBox["coords", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->45684135] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChristoffelSymbol", "[", RowBox[{ StyleBox["metric", "TI"], ",", StyleBox["coords", "TI"], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->62051989], Cell["creates the Christoffel symbol of the first kind.", "UsageDescription", CellID->348585359] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "Christoffel Symbols are rank-3 objects defined by the relation ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ StyleBox["\[CapitalGamma]", "TR"], StyleBox["ij", "TI"], StyleBox["k", "TI"]], "=", RowBox[{ FractionBox[ RowBox[{"\[PartialD]", SubscriptBox[ StyleBox["e", "TI"], StyleBox["i", "TI"]]}], RowBox[{"\[PartialD]", SuperscriptBox[ StyleBox["z", "TI"], StyleBox["j", "TI"]]}]], SuperscriptBox[ StyleBox["e", "TI"], StyleBox["k", "TI"]]}]}], TraditionalForm]]], " (with base vectors ", Cell[BoxData[ FormBox[ SuperscriptBox[ StyleBox["e", "TI"], StyleBox["k", "TI"]], TraditionalForm]]], " and coordinate variables ", Cell[BoxData[ FormBox[ SuperscriptBox[ StyleBox["z", "TI"], StyleBox["j", "TI"]], TraditionalForm]]], ")." }], "Notes", CellTags->"TabNext", CellID->865363792], Cell[TextData[{ "Christoffel symbols of the first kind are usually written as ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox["\[CapitalGamma]", "TR"], StyleBox["kij", "TI"]], "=", RowBox[{ SubscriptBox[ StyleBox["g", "TI"], StyleBox["kl", "TI"]], SubsuperscriptBox[ StyleBox["\[CapitalGamma]", "TR"], StyleBox["ij", "TI"], StyleBox["l", "TI"]]}]}], TraditionalForm]]], ", though some text books use the ordering ", Cell[BoxData[ FormBox[ StyleBox[ TagBox[ SubscriptBox[ StyleBox["\[CapitalGamma]", "TR"], StyleBox["ijk", "TI"]], "ForceRasterization"], "MarkedForRasterization"], TraditionalForm]]], "." }], "Notes", CellID->764126060], Cell[TextData[{ "Input ", Cell[BoxData[ StyleBox["metric", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " should be a matrix or ", Cell[BoxData[ TagBox[ ButtonBox["StructuredArray", BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/StructuredArray", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " expression." }], "Notes", CellID->512342002], Cell[TextData[{ Cell[BoxData["ChristoffelSymbol"], "InlineFormula", FontFamily->"Source Sans Pro"], " outputs a triple nested ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["List", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/List", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->27128602] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["\<\ Christoffel symbol of the second kind for Euclidean cylindrical coordinates:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7778815063738375`*^9, 3.777881534001486*^9}, { 3.777882101672883*^9, 3.777882103654086*^9}, {3.7778862756614017`*^9, 3.7778862784382067`*^9}, {3.77789385406569*^9, 3.777893854580491*^9}, { 3.7795563264764977`*^9, 3.7795563495151873`*^9}}, CellID->542508696], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChristoffelSymbol", "[", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", SuperscriptBox["r", "2"], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", RowBox[{"{", RowBox[{"r", ",", "\[Phi]", ",", "z"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777881171577649*^9, 3.777881187879678*^9}, 3.777882047790388*^9}, CellLabel->"In[1]:=", CellID->540914495], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { RowBox[{"-", "r"}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { FractionBox["1", "r"]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox["1", "r"]}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.7778811907656827`*^9, 3.7778820486795897`*^9, 3.777893357280817*^9, 3.777893392427679*^9, 3.777895314827056*^9}, CellLabel->"Out[1]//MatrixForm=", CellID->837033312] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "TensorRank"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777893361165224*^9, 3.7778933898848743`*^9}}, CellLabel->"In[2]:=", CellID->884935010], Cell[BoxData["3"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7778933673584347`*^9, 3.777893395344884*^9}, 3.7778953148582563`*^9}, CellLabel->"Out[2]=", CellID->179434224] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["\<\ Christoffel symbol of the first kind for cylindrical coordinates:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7778815063738375`*^9, 3.777881534001486*^9}, { 3.777882019757139*^9, 3.777882020989541*^9}, {3.7778821088956957`*^9, 3.7778821112513*^9}, {3.777886287642223*^9, 3.7778862906686287`*^9}, { 3.7778938344876556`*^9, 3.777893835454857*^9}, {3.7778951371709433`*^9, 3.7778951373269444`*^9}, {3.7795563635886526`*^9, 3.7795563887729483`*^9}}, CellID->803741206], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChristoffelSymbol", "[", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", SuperscriptBox["r", "2"], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", RowBox[{"{", RowBox[{"r", ",", "\[Phi]", ",", "z"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7778812414189715`*^9, 3.777881269546821*^9}, { 3.7778813136958985`*^9, 3.7778813141638994`*^9}, {3.7778813534135685`*^9, 3.777881434534711*^9}, {3.777882035107566*^9, 3.7778820638896165`*^9}}, CellLabel->"In[1]:=", CellID->778518150], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { RowBox[{"-", "r"}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"r"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"r"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777881250778988*^9, 3.777881270248822*^9}, 3.7778813158019023`*^9, {3.7778813556131725`*^9, 3.7778814357359133`*^9}, { 3.7778820418311777`*^9, 3.777882064622818*^9}, 3.777895314889456*^9}, CellLabel->"Out[3]//MatrixForm=", CellID->53188207] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Christoffel symbols of a sphere:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7778821498145676`*^9, 3.7778821712490053`*^9}, { 3.777882301649634*^9, 3.7778823104480495`*^9}, {3.777893839807265*^9, 3.7778938405404663`*^9}, {3.777895141616952*^9, 3.777895141897752*^9}, 3.859052438662608*^9}, CellID->288625698], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChristoffelSymbol", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CoordinateChartData", "[", RowBox[{"\"\\"", ",", " ", "\"\\"", ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "\[CurlyPhi]"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "\[CurlyPhi]"}], "}"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777882203431862*^9, 3.7778822228226957`*^9}, { 3.777882362411741*^9, 3.777882392660194*^9}}, CellLabel->"In[1]:=", CellID->34113512], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { RowBox[{"-", "r"}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { RowBox[{ RowBox[{"-", "r"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { FractionBox["1", "r"]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox["1", "r"]}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { FractionBox["1", "r"]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { RowBox[{"Cot", "[", "\[Theta]", "]"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox["1", "r"]}, { RowBox[{"Cot", "[", "\[Theta]", "]"}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.77788219107664*^9, 3.777882204773464*^9}, { 3.777882376748166*^9, 3.777882393330995*^9}, 3.777895314920656*^9}, CellLabel->"Out[4]//MatrixForm=", CellID->641996719] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChristoffelSymbol", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CoordinateChartData", "[", RowBox[{"\"\\"", ",", " ", "\"\\"", ",", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "\[CurlyPhi]"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"r", ",", "\[Theta]", ",", "\[CurlyPhi]"}], "}"}], ",", RowBox[{"Kind", "\[Rule]", "\"\\""}]}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7778822627899656`*^9, 3.777882273678785*^9}}, CellLabel->"In[2]:=", CellID->606142887], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { RowBox[{"-", "r"}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { RowBox[{ RowBox[{"-", "r"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"r"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"r"}, {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { RowBox[{"r", " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"r", " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}, { RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{3.7778822744431863`*^9, 3.7778953149518557`*^9}, CellLabel->"Out[5]//MatrixForm=", CellID->548664897] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.7795565401626863`*^9, 3.7795565420351133`*^9}}, CellID->605265931], Cell[CellGroupData[{ Cell["\<\ The Christoffel symbol on a torus described with surface coordinates \ \>", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.777893649908131*^9, 3.7778937167230487`*^9}, 3.7778937759563527`*^9, {3.777895150836568*^9, 3.777895150992568*^9}}, CellID->916229833], Cell["\<\ Describe a toroidal surface in ambient Cartesian space with surface \ coordinates:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.777892244763863*^9, 3.7778922520646763`*^9}, { 3.7778923014709625`*^9, 3.777892317616991*^9}, 3.7778923931991243`*^9, { 3.777892424024778*^9, 3.777892434741997*^9}, {3.779556443377165*^9, 3.7795564440724263`*^9}}, CellID->288789151], Cell[BoxData[{ RowBox[{ RowBox[{"x", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}], RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}], RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "[", RowBox[{"\[Alpha]_", ",", "\[Beta]_"}], "]"}], ":=", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.774082938861548*^9, 3.774082968486315*^9}, { 3.774083020792061*^9, 3.774083095398158*^9}, {3.774083132466716*^9, 3.774083156080117*^9}, {3.777891517178585*^9, 3.777891526928602*^9}}, CellLabel->"In[1]:=", CellID->688861955], Cell["Plot the surface:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7740847780568037`*^9, 3.774084877481337*^9}, { 3.774336687115843*^9, 3.7743367632907763`*^9}, {3.774337546100151*^9, 3.7743375470829535`*^9}, {3.777892452416828*^9, 3.7778924532436295`*^9}, { 3.7795564802697525`*^9, 3.77955648697567*^9}, 3.859052453869372*^9}, CellID->930247852], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", "1"}], ",", RowBox[{"R", "\[Rule]", "3"}]}], "}"}]}], ")"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.774084161987805*^9, 3.774084196766006*^9}, { 3.774084354716222*^9, 3.774084466676653*^9}, {3.7778894435587225`*^9, 3.777889450755134*^9}}, CellLabel->"In[2]:=", CellID->488782259], Cell[BoxData[ Graphics3DBox[{GraphicsComplex3DBox[CompressedData[" 1:eJyFnXVcV8vz/wEJsbAxsbu7kHMAu7sVO7G7u7uwRa/dCqJeg3PEVkxssQsQ FQUFROV3Dvua8f3e7/X3uf+8Hz7vMDs7Z8/uzOzu+12g59BWfexsbGySUtvY pDI+VyQlG/+5qK1DV+xu5hbsUeK6+bnZw8m/XIvTd9OpndqsOXv2fJJC/G7D X523xKZSWxds8+KcvbNKPOPerFeXTIxWKuf/WWhjRRfmXcYeHb1iYrTWenK3 TxsseP9V3XJsjU2ltz6bs5GlnoY7Tp4w2tV39xrkolu0mzc5xU59QeeslYru POtOvBHktwt5jfgA6G8p9OvER8GeVsIe5hF7hP1Vhf3Mr6C/XUR/mSdvFv6Z KPzD7ZI/d/rV22P4M5j4tDdps5ar4qL2cI0/OtDnjEe+tubfPVEaV3Mtb+uW Th2T796QkKxJCvF6samrlB6dSi2VesCoin1Tq8RPeq16nvrSB2X9oA5JL3wz MN91ImZkuksftEfrMlyy5Dca6tGGHn1K6LuXFSz0DNqR1s9oVw/53v+SbtHu t/cpduq3798v1qjqWXfivpAPFvIa8ZvQP0no14kHw56Hwh7mK2H/RmE/81ro b2XRX+Z14B8/4R9ul/xZYcjOIMOfwcR7Nk/OHvEznerSq3nM4ganPOwLmc8t UukcWLa0rVsaddGMvX22FEtUiN9qG7vySWY79Wbl9j7v9jiqxP3fLppf/Xqk MuPk0BGPvNIx3/jqZHit65HamfTPPC35nMbrPMIz2+lb7qgP3lroebn61QKj Xf3r7i7hmy3aXdsqxU49Oe+yoFOJmjvxV5D/JOQ1Wb+/0K8TD4A9p4U9zCfC /lnCfuYX0d+Hor/M28A/e4V/uF3yp7PnV9OfwcTD6m+NPnHJWe2x6X7iLu8T HpkKmO/NZ2V2ROGDhWs6qcPqPPF18vmuEC/RcvLWJ5ltVN/m52s/L2avMj8Q PafJ13fKTpfbNp4FnZk3cYia2PzrO827nv891YJnzeRZIzyzjT4i65nzzyz0 5LHrZlekppOet2AWF0eLdg82SrFTz++4q2jU0NPuxPNCPpeQ14hng/5hQr9O 3Af2eAl7mDvD/t3Cfub50d+Ror/Mp8A/C4V/uF3y58rR/X4Y/gwmnvrY9of1 qjuqm9dr165HHvUoP8Wctz4rtbvXWP3N3l4teXy5Xe4GsQrxNqVC5pYISlLC H97sXc/HViX+7W70SOdLr5VnWSKSdu9xYO5U0scm3aXXWusBB+5b8lnzui0u GZSkDZw59WddCz0Nb956arSrL411vZfTot0pJ1Ls1KdtuFFh3owT7sQbQX6R kNeIz4H+/kK/TjwH7Gkl7GH+CPY/F/Yzr4P+vhL9ZV4N/vEU/uF2yZ/vh7uH Gv4MJr6rQ8S/rqlSqf/0r/Hi/ZsjHvYh5roRqVzpurdAzgK2at0+j7PMmBqj EE+o1v5IiaB4ZXf8nrVTTv5ifvTHzol5o18oNQdtWZ1xvp1K3Gt/xJ580S+0 n9sujLbkbiXLLS8ZFK+dXV/s3WQLPensL/kY7eqtO7zLNN2i3ZBOKXbqkzKd PHQs4ag78fSQbyHkNeL5oD9Y6GfewtoenfhG2F9L2M/8A/obKPrLes7DPx2E f5iTPwvV3G76M5j45ja3b9+6aqMWXLSmW/aNhzwG9zbX7SdKarcGPSp6/VYW BGo19MIfFeIxp5vNnxcTp2zybLL0necP5p/Clgxb/+apsvN80QLOPjYq8cSG QY02v3mqeRa0d7Dk/T+laj4/Jk6L9tv65a2FntetbW4a7WpbqmQdEWzR7oR2 KXbq1zKdKv1sdoA78TeQ3yjkNeIDoT9S6GeeuZGwRxX26MTPw/5dwn7mb9Df XaK/rCc5r/DPAeEf5uTP8bXb+Bj+DCY++mdKwIT46aCHUxczbtrqfjclrvuJ 9f6DQrxnIzPOicX6lMj8cUpcF475NJl50XFmHBWO9+oP/54Sd8ViHPzRk32n Gaf9hN1/2rUR/+ni30fcibtCfoCQ14jHQ7+d0M/cA/aUE/YwD4D9WYT9zNuj v+lFf5mHwj+q8A9z8uekNWZcdzCYuDyehb1PNHk8E5fHM3F5PBOXxzNxeTwT l8czcXk8E5fHM3F5PBOXxzNxeTyzfmk8E5fHM3F5PBOX52fx/CM1eX4mLs/P xOX5mbg8PxOX52fi8vxMXJ6ficvzM3F5fiYuz8/E5fmZuDw/E5fnZ+Ly/Ezc EevjRsQb4n36rNXCeloc8Qbxllh/nyDeIB6L9Toc8QZxB6zvLRFvEJ9hHQ8w r4/4YTHiDeKTEG9MRrxBvAHkFyDeID4T+vsh3iCeHfa0QLxB/AHsf4p4g7gX +vsS8QbxKvCPgniDOPnzLeIN4rcQ73VD/CzmJ8MPiA+HIH4mXgzx5ADEz8SL Iv7chviZeEPEqyriZ+JZrONb5jkRD+dG/Ex8H+LnvIifieeCvCviZ1n/EMTP xLvCHgXxM3FH2L8D8TNxN/R3OOJn4pPgn3mIn4mTP5chfibeHflLeuSDYr6P 1Doi31mAfJD4TeRHN5APEt+EfGoa8kHi65F/nUI+SHyWdb7G/AXyuxjkg8T9 kA/+Qj4oy39EPkh8NvRvQj5I/DDsOYl8kPh463yW+QX09z7yQeKt4J/dyAeJ kz+dkA8Sn4J83Af1DbF+PtEaIX8fhfoG8brI90ugvkH8BOoDa1HfIL4D9YQH qG8Qv476w2TUN4gPQL1CR32DeCzqG7dQ3yA+EPJnUN8gTvWTiahvED8De+6j vkF8uXV9hnlN9Lci6hvEveCfVahvECd/lkN9g7hcrxPxyOZguV5HXK7XEZfr dcTleh1xuV5HXK7XEZfrdcTleh1xuV5HXK7XEZfrdcTleh1xuV5HXK7XEbdv taXzIhsX1TvbqmwvmkYro7rMarxqYqgSojS4uik8tTovJnD3prBUKvHrK48N sJmaXp2wz2XYy49RytrqS8dsjX2tOLx/Hbcz1EVdO2vMoh8fz3iQfPCSn79D DD+mSZFLxfVPezute/m1SUryoqo7x+9Mx/qbZq6wdsguJzXLP27b0z21U0l/ cv+2VTXD7w5FbT6a/SM9+86qRnsHgndHivZJz7tRjyo7GPHil483SpTxSst6 /AK6mHlCcM3fwh+kZ0v9ihkrrk3SejZq7WFpT7kDC8tdGL8/2KGQppX3zMB6 LneZHmE+17iCo2dZ2jN81XKfzeGp9X6fp33caOG3osXb33Q04sJhW+Mvlraw Z8bXqqvN53fwc5mTWyz8E/H5/TLjueidUj8cGm7xXBo/qVF06C4nfdeeVF/T Wvhna/MyzinjY/kb/2XGeJH1tBR6NNKzc12/jcZz1D/tORT/1OI5kp6RQg/X e0eiX31Ev3RZzzuhRyM9s9Cv/aJfXE/eDj/3EH5mPU3Rrx2iXzrpCYWfY4Wf WU+B3Y2WWDx31lMCfh4q/Mx6Lr8esNfiubOez7ZiHDosThmHrKdmjUkVLJ47 64nEOEwrxiHrOYH3ZbV4X1jPHYzDeDEOWc9RvBeu4r1gPbZ4H4eL95GfVx28 F/nFe8F6GuxZGmbOX486m3J/nhe9j75lSyw23sdg0nMV7+9O8f7y84pOWLja HJcrk1dvdDLsJf69+r5OdS+nUR979dI3jIxQ7qT0O1qZkV+8D3PDgo3347QH yT8t9X2tOS7v1/YYbDxPHp9d3BoVaTrBQT1xI91SPb+tSnridk6tFW6MP7dc epBpF8kvzLEsduf9eGVRavfURfXULD9i3/PA54bdC1xdZlrKl2nr+Svzkz3B o/dffbdmXFqW71k0U2PTX2PGVnk+xMIe5+4N++++H6/1Pz/pYBFL/Q16JZjj Rm2ew87Rwg/+czx3GvbrW2+0+ahZ2B+O8XHae3T5E4d0d5K3bRwwz/CbftJX W7fWwm8jod9d6Ndk+QAhr5F8L9g/StjPz30r7PEX9ugkPx/+mS/8w/Lp0d9+ or8sfwP+zy/8z/JvKtgnW/iT5e/g+T4Xz5flx+F5LRfPi+XfYlwFiHHF/W2D 8XBOjAddHlcTbvYvb4yrYJKPwzi0804Zh+yfvmebnY3r46SOGHY376EubxWx Hn9WyuwV4+DCxaHGuPjXg/vrdaTYinN2qletBulGfPzF8p2bb2q2NCxOOdx1 k99ifweVeA+/6Jcn/XYGHzz88mVyshPz9XU8Vi0Li9Mu5q7SwFI+a/quaw39 eq4Wx74Ms9Af92tWpGGnXmdjnq77Lewk7iG4Rjw79LgKPcw3od0Lol2deN2J Y15b2Mm8MfoVJPrF/BL80Fb4QZP9ljpfmt+G34LJb73hZz/hZ5Z/7XauzPZU 9uqCV6umhdR9pZwtZM7T0crhg8Jfh0pke3XS75gHya/uFFL2QTob1bnQe9te 6xJZfmTQg4Njb31RKvt1K/ltip1K/H7JKqE9W20LPh32+VW/ufbMz3bofmHc rS/asHZN38dZyP+YU3CpoV//p0mljD0t9P+eXbyFYae+2eVKEd3CTuJrBdeI J0GPv9DD/DzaHSra1Ym/dZ1z3cJO5r3Rr+qiX8yXwg+5hB802W+DbTeafgsm v72En3cLP7P8yh6pykU2sVVHuK3QEv2eK+4x5nr7Wkl9R/jr4fP2hv8CPUi+ y+JHywdpSUrzchuir+b/zvJnn7olVAz9pKQ7HFQuPDGZ+TK3nXsOB24JDvIK yHUz2FYlvq3ZrkeVQz9pt9Rzp55YyDcuMra6r5akXW9wILel/l93g5sYduqb r4048M3CTuKrBNeIN4Wea0IP811o96Zol3mzLlf2WtipE9+DfmUW/WL5lvBD N+EHTfZbpmrXTL8Fk99WwM87hZ9ZfqHj1elm/6fNGnS1itEO8RJrG+856Zes PBo4z//n/XCl3gozngpV3D2FH++6nTf8etiD5ANaVw28Yvgr4dOFhUa/Wc/a jUNbp2+bqEx5ucR2T6U41rMpX6/tsYYfvRZv7GzaRfI533hcDc8brVQp4dvT u8Ivln8/esaxeMPuc7lf1raUL9m046XvUzYHD9539FeHSjYqye91LzzL9Euu TsXfDrKw53bF8OnP8kZrq3YsT/Cy0N9y/Olv5vNI5/o6opKFH5zdFn0w7Nca pb3ttdvC/kre4jnZOL/NYLcy0J3kqzZf/dzwm1a5RIGIBAu/tYJ+J6Ffk+VL CXmN5PfB/hzCfpZPC3saCHtY3naM8E+I8A+Pn3vo70rRX5YfDv97C/+z/J0s g69Y+FMn+R14vnafU54v22OH51VLPC/WPwPjaocYVyy/BONhkRgPmjyuut4p ZrwHh4NJvgjGYepBKeOQ5dv32H7OfH5hD/Z2fW60T1wet7UF17LtFeNjTtZl xng56EHyU9xGvN5lPNe9XdZXy2DYRVwet6THYc7gdPGG3jzFT/4w2yF5edyS /J2rd8/9MOxeOmrYeUt5edyS/Nfv5f4xn6vjs8n+6S3skcctyVeKmFLG9Lv7 ovQ7n1r4QR63JP8Cz3VP6MzvV54dcSd5edySfGXory70a7I8jVuSj4X99sJ+ lpfHLclHwT9LhH9YXh63JP90tvC/m/A/y8vjluRH4vkGiufL8vK4JfnmGFff xLhieXncyuPqfr56l41xFUzy8rgleXncEpfXwZpi/P+fcUvy8rglLq+PpEce tyQvr5skL49bkpfXU5KXxy3Jy+ssycvjluTl9Zfk5XFL8vK6TPLyuJXlab0m eXnckry8jpO8PG5JXl7fSV4etyQvr/skL49bkpfjAZKXxy3Jy3GCPK5o3JK8 HCeQvBwnEJfjZ13EG5ocJ5C8HCcQl+Nq0iPHCewfKd4meTlOIHk5Did5OU4g eTk+J3k5TiB5OW4neTlOIHk5nid5OU6Q5SnOJ3k5TiB5Of4neTlOIHk5LyB5 OU4geTlfIHk5TiB5OY8geTlOIHk5v5DHFcUJJC/nFyRPed9w6/xak/MLkr+O vFKxzq+1TshDD1rn11p35Nf7rfNrbS3y3PPW+bWWGXlxDuv8WotFHu1tnV8z d7fOrzXK07NZ59faBrR7zjq/1ryRX++3zq+1huhXoHV+rV2AH1pb59eanF+Q 33rCz6us82uN6h4PUX97KPJx7SDyxAPW+bXWGXWVY6izkfx81GcWoJ5GvBTq ZiNRNyOeGvWivqiPEd+EutMW1MGIJzcS9asTqHfJ/AjqWsSpnrYZ9Sviaa3b Zf4K9SjYyXwM+rUUdSfireCHENSXZL8Nss6vta/wsy3qSyRP9dKx2O/YIepR WinUSc6hvkTyjVGnzYT9C5J/gzrwJ+xHEC+D/QU77C8QL4Q69mDsFxBvaF0n Z74NdfgPqOfL/DXq88RpH2E76u3Ei6FdX9TPiVdDPRx2Mr+JfsWhvk3cE35w Q71a9psj6kvkt8vw83bUpUk+CvXDZahLE0+FOrkX9q22ifq2NhX1w1moS5P8 E9Qt76IuTZz2ueZin4v0fEFdNDfq0iRP+1a/sW9F8kNRd52LujTJ78X+1C7s T5F8d9R1R6IuTfL+1vsjf/SjblwbdWmSHybtN5H8Izynk6hLk/x77Ad1xL4S yQ+D/hqoS8vyLbB/RPI9YP9w1KVJfoS0T0Tyc6z9w/Lb0N/u2A8i+Wvwf17U pUk+P/Z94E+Wv4Xn+xR1aZL/hP0de+zvkPwrjKvDqEuTPO3jrMI+jjyuxqIu TfI2GIfDsF9D8gE7e6Qxn59bxIf3Rv/Yz42xX7NX7NfwPrI99mvWYP+U5MsM fr/UfK4n3avuNfzKz1feVyU9K5MTNz42nmvd0wv3mXaRvLx/SvKrXY55PTPs vlWgzhhLeXmflORnDMvV2PTLtajorJb2yPuhJD8xus4I0++rd4yrXsHCD/K+ J8nPjxLPtWTuhIZ35591J3l5f5PkJ0H/cqFfk+VpH5PkZ8L+K8J+fr7yfiXJ H4B/bgr/sLy8L0nyg+D/+sL/LC/vP5J8QTzfEPF8WV7eZyT5vRhXihhX3F95 P1EeV4OwD0jy8r4hycvjk/YTA9FuPoxn2k8ccTByv3lOpc0XN48Mlz7w/Zqy 0rgl+S37d6w1z6+Mit3QoMzoVHxPZxX8Vg/jluSLvQiI1bImKUUeO1wxz4+Q vB+ey22MW5Kf1ybk6ECfA8E5xPkXlp8pjVuSf5Y234azWZO0gkMz9bLUP0ka tySfHFWslHmuxdX/zbLSFvYvwLgthXFL8itmVnppno8ZPiVkTxoL/0yWxq0s P0DI8z2gWdK4JXnbD8KebMIevk900Pq9ZvlX6G8B0V+W94X/G2DcknyG2SHH LPzJ8oXwfM9h3JJ8ZjyvUuJ5sfw+jB8V45bk12A8TBfjgeWHYlzNEOOK/WBX ZXUJ8/xZ0rOWc2pfj+R7Rjv9q6w0z5+9qBO9MjyzHd9LSn8yyNU8f5Y4y/2k ec6LeHx3t5jFDfYFX20pznkRH+mXaqt/sUSt/Y55nS3l29k3yW2eGyvTsl7k Ewv9EW+KdjLPmd1+U6hSTQt7iF8WnO8ZdYCeUkIP30sai3bbiXaZXyr444uF ncwT/xX9Shb9Yr4JfogWfmCeXFn4rcjzFL+xPRN8HHXz3OSEQ/2/t/j6ju8T NRhdY555bjLoc8HZ4Zlt+P6Rq0u57g4+35XERRNKF6npxHyj077EXd67g+Mb ivOJxN9Xij9jnpv8NtrzYWEL+UkBqq153nFlBZ+PTyz07ypV/YN5bvJxx0G2 zSzsIR4mON8nmgw9y4Uevn8UhXbjRLvMYwq1SrKwk7kD+vVb9Iu5Cj9owg/M x8FvW4Tf2B41c8bz5nnfmFZr66W/9JrvDXm0b3/ZPO9762jpjKWCkpgXzdjZ wzzvW2R2Hrvv9vZ8/+iS8/pr1yO3B784Ls7VEn937+6gXA1itRY5Zv/7zUJ+ 48Fd5c1zukc7LUtT0kJ/Ra1RpHmu18mm6Mk0FvYQtxWc7w1thp4jQg/zSOt2 +f5RreOO1y3sZO6KfpUU/fpzXwl+eCX8wPo94LeMrVP8xjzM42Ef85z6jpnO Z/NHv+D7QXcHvFtknlOvUSC3bamgeOYTWkQvmzY1Rjnb9t4U8zw43w+qk/PF +zdbg2uJc+t/7iv5vFhhnlPvfeSEainvcLW/Yp4vP1bBu0BJC/35UgfONs+j fwm7tMLNwh7iHwTn+0FO0HNU6GFeB+32Eu3y/SPXJi1fWtjJfDD6dUH0i/ll +KGh8APrvw2/nRV+Yx5w8+v31D426vwZl6ttefOU7wH1UkL/Me9X9J/97Mj8 mDjmHqM8lpwp/FFp6hvuUMnrN/PN57t1y77RPziVuG/B94/6fotsqxX+qF2r UXhtRQv5n9FjVPNehHe7EtHzLPRHjMyWxbxHcc7ln64bLewhflJwvgf0G3o8 hZ4/95LQ7lXRLvNC8bO7W9jJ94+KoV+tRb9YviP8MFr4gfkR+O2k8Bvz4nvN eCkZ8UE43/cZutSMxxJxfiiW+fkBZlz3AeeBfjL3DTTjbTpP+uee0eKuZpz5 Afv9f+QrxZrxaiL2Bf/on9LCjHtpXyf8/3BRpw7n+z5VoEfUAWOZL0e7oj71 k/nmN2Ycy3YyP4h+iXz+j3wf+EHkS3/0F4HfRDz6xx55fNK9GHl8EpfHJ9+v kcYncXl8EpfHJ3F5fMqcxidxeXzyPSNpfBKXxydxeXwSl8cncXl8EpfnT7r/ Is+fxOX5k+/vSPMn3yeS5k/i8vzJeqT5U+Y0fxKX50/i8vxJXJ4/icvzJ3F5 /iQuz5/EaZ36hPWd7rnUxrp2A+s78cJYBwtjfSd+Eev7M6zvxN9inW2O9Z34 BqzLAVjfiZfHOu6A9V3myclFUtZ34hQnHML6Tvw92m2G9Z14DazvsJN5NvSr ONZ34lXhhxdY34m7w28ZsL4TH4s4ahziT7rPUhdxVyDiT+JZEafFI/4kvh7x ZxziT+JvEAd+RfxJfLx13Mh8O+LMB4g/ZX4L8SfxidCzFPEn8Qi0+wXxJ/FP iD9hJ3M79Osn4k/iteGHM4g/iY+G3zYj/iRug/woEfkR3VvZjrzgOfIj4mmR H8UjPyL+DfnRZeRHxIcjT2mL/Ih4W+Q1pZEfEX+HPOgm8iOZX0J+RLw99JRE fkR8NNptg/yI7/UgP4KdzOORH/1CfkR8A/zwAfkR8V/IjwojPyI+DHloK9Q3 6H6KP/LWkahjEC+C/Lcw6hXE56AukR11CeLhyMfzo/5A/HeUVV7PfBnqA8NQ T5B5P9QNiNugPpAF9QHiL9BuPtQBiKdDvg87mWdEv0oirye+Gn6Yhvyd+GD4 bRryd+LR6+bMP6K5qKerjFpccXO4UnVFjYGn9pxWosALVk3hGnFZfqPgmixP fFmutV3yxbqo3mH5n5bLHOxBemaP7T5icqiLenu5+e9wPic/F3yQ4FxXJD3u be+aeoJJvyxPemR5ale2h/TI9lC7qR65h6W5l04tNNx+9Z5X8VwvcmyYp37l TI5qzl0d1CrGJ/H660457zLkEubk65T2nkV9LCB813/dcyngtK3p68kJWsy/ m/cPWpae+QDVdfnmLY765irvaxmfzM8W+/exIaf3e+Y09NXkBO7v6mYlyhjt 6fNfhb0y2uf6zPd5dT4adurrB5Rfb34Sn1cy+tRuQ84vayUb8++IVzrqu+yl offbyrDUvkY7pH92iePvNhl22Daq/860i++hNJo1xbT7YFmP0m+MfhC385tx xeFyGjVj2tcHTpT7znWY9++yFvSZaq9eu+nn3N34JB4Z8rHFMUMuNNP1eo6X /9R5Dq9yzmv8Wy8dvirX8XLfuU7SdOag04YefV8Vdaj5Sdw7rtYbUy5b9nqx RvvMe7btFNPhtpPaasPUg1VPxXIdI2PvjN+O1rRT56aJCwkyPom/fjlxVWVD Ls/MSz4db/+pkzzJt62m8W89z5g79auciuU6Q/q7raYYf68v23ikhvlJvJFz iSRTrt6pKdnMvyNec1ZJ1wZz7dV/Cn/o62/7hesAPiPjxwz1TVa+z3zxaJjx yd9zsq/ymk2G3GHvymPNvyNu51ChvfFv/frdixU2237hPH3GvRW9jL/Xmhep +9HQx7zqrw6hplzZC2WqmX9HvHedsw02LLNVPw9++qJmro+cR+ef2KNM7tc/ lDVOGbrmMT6JV1zT+lI1Q+5n0Mf15t8Rz7l8/lTj33rXF/dvVs/1kfPcj7Pu xht6tAs2G1aYn8STi3V6WMOQqzmoSG/z74jvbHB5e2mnZOXam0MVOx6N/PO9 Gee/2wzX4pVG/cumH2F8Ek9f8vrodoZc1csxVcoYf0dci1vsYPxb88k6xKf9 0UjOE8fPuxho6NHa7erWyfwk3uZXhoYdDLlF+UrdM9pn3rSxOc6N+LycOc4j OI+rUNJ8L74rfinvxXfmSSnvUYRydpX5Hv1ivqq4+f7+0jI9N9/fCM6z0nqa 7/t3zaOq+b5/Z/4kZX6I0PST5vzwi7nsH/4eBsk/xGX/EJf9Q1z2D3HZP8Tl 8UPxuTx+iMvjh7g8fojL44e4PH6IV8f7tRXvF8W3XfB+xeL9Ij4Z79dBvF/E bfB+heL9Ij4V71cTvF98Hx/vV2m8X8R9MP+0wPxD8WEGzD+zMf8Qf4n5Jyfm H+IPMf/kwvxDPC3mn8WYf4g3wPzjjfmH41LMzy6YnzkOxPx8FfMz8feYn69i fiZ+EPNzKczPxBtjft6D+Zm4F+bnLJifidtinS2IdZbiE3uss65YZ/keN9bZ 71hnia/EOjgX6yDxb1gH12Ed5DgQ6+AqrIPEJ2JdWyjWtT9xCNbBbw1T1kHe J22KdfOzWDeZh2C97iXWa44rBmJ93yTWd94fLIN44JOIB5jXyTWkXm+b9Oq7 8R0cVjomYB56qPRp3Cu8Y3NHddeKrg87GZ9Tbszt3qTQPWX+g2wnNqsJyvkS G4uOr5dezTM+MObA8dtKnXMvtxh69K15NrRY7pig1YKewpN8Zhl/r/fs3aO8 +TkNetYs+Tpsi5qgLfra9Nq4eun1AtDT7XvM0Tw506qxT1vGvh3xXVmw5p+B TcPfK7sjnyhjEuzVL2OCSo81PsW8+E7p4WcbUPbzdyUq48XWRQ+lVY+MjF97 rNVbpd7TUc55c6bVhy3w6PxmxHeN9KRqGPLU0KNH5by5xPxcAz3X2kW0Kv/5 u9bcfcivIofS6gHQk71W8wt5q6dWC6V+uatjxjjlRVjj+/e0T0rQ89GPz963 U2Pt3Q+FGJ95qh20aVz5k2IfOLKr57E4pczKmyd62zirYp7+qFRa+DCjW/XU umvd4rU6ZIzTSE9Us+b9jb/X763pWcD8JD36qLh7XsfitHLb7w009Ogh0NP3 0Lp03T/bqztsprd80v6L0uHTjWaeiz4r2VPvStOqnY3qdrfUOfOz9PqnUyeH flY2Z++5bLbjV6V1pXsraoQ4qEnva57PE/tZmfngTVNDj26Tv3b2x+2/aKTn QK29s42/19v+U7yB+VkKejqXSf9wjuNXrcuIhGaGHp30RKlLBvZ/a6v2flH1 yqmdH5V098t+yZwzSrnd6NSX3x+SlBEbXcvYRCcpT1M9Ktc1xwdFy/tPqd63 PimplwccyrTOmJcylu1z1zZaGeLs84+hRw/yqHrw350fNdLj9jDhXPKHJK12 5sedzE/S8zLsQue+tz5pn0YdGW3o0TNBT8GXR06v65+s3K/QP6eLQ5TypkiX UOXbMyXzgsUJi7okKPe3BqZdYnwO6Bb4q5/jS6Vb9/HlsutRSvnYDUPLF7FR X535OHP8rFdKtgG73Nb3T9Y2Vx+kpneI0kjP57o/Dy3ukqDtj6jTxvwkPQW6 BGfLoUdpBfN41jb06KSnxfa+c338fikfJ9/7986MCCUgduUZ76D9yr0GbVLd Dfiu/MgRkOqe8dnx8PlPgUYeUfP63MDSeyOUqmG11r6+8EuZ2WD1wwfDLigP Mx98bejRnOfW/XlrRoRGemZPrX3Q0KPdeHO5g/lJeo42fj2y7N4IbXO17rUM PdpI6Gm0K8f58Yd/KxF99XZzfCMVES881PKUdH9exDtemZ8U/7ao8Xnz3wPr GhW6p426uLJYv4QIpV73EQdbFv6trP29rcD+47e1DdE3C004/FubWGntvFm+ kRrp6Ziu9xLj77XnuW9VNT9JT/Hmkz/2T4jQsnoOa2Ho0UjP83HtfGYptup+ x3YdX6yMVg4GZr3aJPy9djdDhYTomETlSquyeT8ZnyJ+eaedjrntUn/DB+WR Tc9VE/fYqM0HNnsb1Oqt1v1pgdWGHt0t5FHLZyujNdITsWLWqY8xidrq2487 mp+kp2TvXQ4NN3zQ3i4Z2N3Qo7eCnk01fnnNzG+vnslSbsik/TFKv89rVhrv qTZp+u2DbSv/Vv5Z9S1Ve+OzzLWcRxpV/qS97LDm1jLHGCX/hFQFandIpYp4 6qN2rvK56YYePbBHdmXi/hiN9Hi99VjRrvJvrUrlefnNT9IzNGNE7HLHGO1M wYNv3Duk0knPWa/mP9QBTurCNf3P/egdq6TLX2qs8Z5qO71y7Fi/3lZtv+PD oA3G54CHD9Yb76l22q3G+ibHvipXrz7w6u/nqP4ae+a28Z5qb/q09vYc4KSX TfWkZ2LvWI30ZC+/o4Tx9/rjf7u9N/TppCfNdJ9PTY991QbX7fOzn5+jTnqG Z7y3o/rINGqmWsWrj4v8phQO3DgpS84o7d9+hWt//JFKjRx8w+2T8bknQ5rD xnuqTVHG5drS5puiHbhXepnmrPZ3OvXIeE+1RitbJxh69I7ZH+wZE/lNIz2N QlaHGXr0pdm6zjM/Sc/zp9U2b23zTRs6c274Us1ZJz0lXGbUabM9nTo7bxf/ ZifjlRc2+Ud4fnum+R4uWH+nMd8VvPvefZfx+a738Sv9HV9qDXdWL3qpS7wS UWXw5OGVjPV9/tAGE2a90i763d9k6NEnFHKOaXIyXiM9uUYlRRl69KeZXdaZ n6Qn7J/3Ny53idc6XhxXxNCjk558jePGDF+cXt0QEv7Kd2KC8nbP3outgvZr 485sC5uxxlG95HD9zkzjk+oDx8sUjT/VL0E54HS92uHR6dU0mc4ueTLsgnb6 eb4wQ49uWy+syKCJCRrp8aqjTTb+Xp88/Uhx85P01I66EnCmX4K2esmHJ4dG p9dJj2zPcqFHke3xQB2jNPw5F/7UhR8UOT6hfFy2/3XGlHaVIfB/Yfj/ofCb IsczpMdl6dmFlt/v4YtzIzKfRN+PgecYhedYRfhfqQA/rBF+UG/AnoWIN5aI eEMthnjDd3dmq+/9WIN76DJfD+4J/08R/lerwW+FEOf0EnGOSnHOVYyTbmKc qOVhp4Z4o4WIN9QgxBun8NwdxHNXpuN5eSO+2iHiK4Xiq9wYny/E+GQ/2yHO +SDiHJXiHHlckf7LGP/TxPjn514XcdRIEUdxPCbHn/Qc5fFJ9bEr0D8Z7xfp l+NV0iOP50d4jnnQ3+d4H6m/cnzL3+8N/3fGe1oJ/t+EcRsoxi3rH4r49qqI b/WCGCeD8b6EifdFp+feGXFyoIiTOb6tiPH5WYxPbrcB4tXPIl7lONMV72mw eE+14Xgu7ojPU09Iic+12njuvfF+lRPvF/thM+LknyJO5vi2MN7rPeK91s7A /+0Qb2d5lhJvawvxfO8/Ol3SPzaterzAopioYvH8/RijMP9nxfyfR8zbSoV0 C8/u7+2g7ggtGXjA+CT5U1gXorAubBPzuaLWKTY+wtA78uu0A2Y7a//y3hGf hnXkLNaRXmL+VyaXzeZm2Kd5LWndzlLPjRFhP817BGNw3+E2vt/gOjh9f0gY eIfqW3oadutP/8mW2dL+B1h3Rop1R+2OdoMQn5cX8bl6DvF5fs+o6YYdukPN zY0jLfzWGOvaCrGuqf/AD5HW8T/nEU2wPnYT6yP7uSLyiFwij+B8pADatRXt 8vdvNIWezlhnSU9H9Ddc9Je/36MJ7FyO9ZfsnAc/q8LPLP8C/hmOdbkn/FMc z3e8eL4sXwzj5IgYJ8wH4PleFM+X9XwKEPlURZFPcR50A+PzoRif3N8AjLfv Yryx/fuRr/0S+RrnWYMxniuL8azlgn8yIO9TRN6nvYSfzyMeW4x4LK2Io5Rd iMc6WMdjyhnEY6GIx36KOErp6bfoP79vpAf4AYnbIx4bLuIx1tMSeVlXkZdx fueKuO6piOvU/rCH8rt2Ir9TKb97h/iwkogPuV8zkCemEnki55skXx7xJMnn QLvhiCep3XSwfwjiSbJ/L/xzW/iH+ULkre1F3sr5pj/83FP4mfWnR/5bVOS/ nLeewfPaI56XlgZ2dkceHSzyaM5/NyP+D0b8P0DE7Yoc/5cVcbvyl/hfqZr+ 9bX/+j6Tv/H+iP81Ef+rIdBz2zrPVV2Q51IeUU3kEUo52JMX+bKHyJc576Z8 5JjIR7hfg5F3nxR5N+fv56X8heS90W5V5C/Urpy/nIX9t+CfwsI/zDehDpBW 1AE4fx8KPwcKP7P+c6gnTBf1BK4DrMXzuieeF9v5DnWJpaIuwfUEOd88LPJE 5T7yzavINxWRJypyvtlS5IlKm0I+//l9KX/j+ZBvRoh8U20PPVlRNygk6gbq c9QNKG9dK/JWtucT6g8HRf2B6xiU/xYS+S/3KyvqGP+IOgbXQ+R8meQj0e4a 5MvUbinY/w75chvYvwX+eSr8w9wLdZXKoq7C9ZAr8PND4WfW74j6zGtRn+G6 yhM8r3viebGduVDnSRJ1Hq7P7A1vF2Pbx0at8LrwwPslPvD3k8h1j2yiXqHU b/41aWqORKVqmV6u041PkpfrIWGijqHMqjJhdpihd+0R59p2Rjv/67nL9ZNN ou6hjGjrOfJeiQ9atZvvnS319Ap4cPG/vqflbzyuRsSJaTkStZZ1B3eaZmk/ 6i3ZRb1F2Y52d6MutEXUhZReqAuF6+MKGXboHhe7Trpr4bcOqOe8EPWcP35A 3emmqDtx/Wo96kJTRV2I/fwA9av0on7FdTBqt6Zol7//RK4vkZ5v6G8L0V+W l+tOZOdU+Lmq8DN/f4tcj6Ln0g/Pd4N4vixfC+PEW4yTP+3i+TYRz5f15Ecd z13U8bj+thPjs4MYn6wnI8bbajHe2P6rqBM65kypE3J9zxPjOV2/lPHM/mmA emPGKSn1Rq4TvvFS6zT5/EvJ373p/smhEfz9J3J9cqmQ1640rHqiVuR3xW7l j5Puxid/34hUt2wg7NFuHs+TeqKht/3AxrfMdv7XuJXrnBOEf7Q0d99fnRQa oTnv+jTi/6eHvofhb3x+0X97G3ZroSfGZrC0Xx7/ndGu/L5sQX1ylvOmrYYd mn+9GZETLfwmj3/yg/y+UP1THv/kZ/l9oTrqbLS7QbTL368i14FJzwL095ro L8vL9WGyMzv87CT8zPJy3Xgg/BOE59tVPF+WD8Y4ySDGCXN5/JMe+X2hOnA4 xmcdMT5Zjzz+yX75fSE/y+Of/CO/L+Rn+b2g8SPvI7wQ68v/eS9IXt5f6CfW r//zXvyvcSvvR7wQ6+b/eS9IXl536Hse/sbl94Ltt96/UJ+iXTcpbmmLOrn8 XpAeOT4hP7xDXOGHeIbq8HJ8Qn6W4xmq58vvBX+/kLRfQ3rk94Lk5X0cslN+ L0he3t+h5yK/FyQvvxfE5biI9PgjjgpHHEX7EfJ7QXrkeInsv4z46gHiK/Kz HC+Rf+T4ivwsx1H8fT6Iq3thvy+tiKs1OY4ieXkfMFzE7ZocR/2vcXsG+YIT 9g0zinxBk+MokpfzLPr+jb9xOY7i73dC/vUZ+Re12w/5TjDyNdqvkeMo0iPn ZeQHT+t8iveVfJGXnUBeRn4OQV4WhDyO9pXkOIrapfwuEPuqpEeOo0he3m8l O+U4ir9PRtqHZf9IcRTJy3EUcTkfJD1y/kh+luMo0iPniWT/YOSVAcgryc9v MZ4XI08k/6yR8krycx/UDbZj/729qBtoWVF/yIv9d9QftI2oY7S03n/XuqPO I38fzt94C+v9d9Zja11X4f2+/db7+GxPNtRnnqAuRPt901HnsUOdh/r1GnWe CqgL0b4h1YWS84nzAyRP9aU21ucHtI6wv5P1+QFtPvzT1rrOo+1GXegm6kLU r3T/XefRNqEu1B11IeqXD57XGdR5yM5TqAvtRF2I+pUFdb8COO/xWtT9tEDU D7/ivEd+UT/U7HDeoyTOe1wS9UntGurM8vft/I0Hop5cFvVk0nPXur7K+6cR qBvfRd2Y7GmI+u0y1Jlp/7Q86sY5UDemftE+bBfUmWkfluSz4rwKyVO9Ogzn VajdM7C/DM6rkP3RqN+WQ/2WeD/Ue8+j3kv92gs//0SdlvQfRl03FnVd6lc6 PK/aqNOSnQNR162Aui71qzP2O77gfNEqsd+h7cK+SQzOF/0j9k00H+zXvMf5 omCxX6MNxD6F/H0+f+PB2O9rhv0+0nPJen+K96NtsH8Xif07sicn9r+eYb+P 9qO9sE83HPt01K8L2Hebgn092tf2hvxgnI8ieVu0G4HzUdTuFdjfBOejyP56 8M9H7GcRL4/9r0/Y/6J+bYSfk7A/Rfp7Yj+rDPazqF9t8LwyYX+K7CyI/axd 2M+ifoVhX+Ao9q3I/17YR3uDc25dxD6aVg77Eduwb0XyvbGvtxPn31aLfT3N A/saw7Bv9b+e+zzsJ57DeblqYj9Rm4D9FAX7ViSfAfvd8vcI/Y23wz7OE+xb kZ751ufr1PpoV94fjxL7npob9o9SYd+K9BSwPr/HfpD3wekcgif2qbdjn5r8 LO9r03mGfGg3uYbYt+LnBT1bcJ6Q9LRHfx9j34rkC8LOHjhnSHbOgZ9rY9+K 5P3gn4U4f0jPpSie7xjsW5F8EYyTg9i3Ij4Ez/cK9otJj7y/TOcxrmF83sO+ FenpiPEWgH1ksl/edyY/18R4dsK+MPlH3kcmPw/NWcclqXt6NV2TuB5r2iXw 9/Osqzk5rtkkR7VEvZFfmxufxGMGtLq6ypDbMzJorfl3/3Mctg+e5dcuQRu/ JGttS3n5fgqdO6326domoz3deXXhhpbtyvdWSP6l7duBhl69VY95u1Zb2C/f ZyF5+T4L8VfQ00zo4e/VqQ57Ugt7+Pt5eqJfY0W/mN+Hfw4J/zBfAn9WEf5k Lt9/IXv64bmUE8+F7ZHvxZC8fC+Gv39JOldM5x+GQX96PHf6Ppb1sLMknjtx eu578dxH/eUcDvH28M8EPHfi16bW/c/v5yE/p8FzJ/lJOC+9VpyXZvlX0nMn eTp3vUGcu/7z/UI4p71YnNPme1WvpedOempYj0P+fpte6Nc4PHfi9NwP47kT Xwp/VsVzJ14G58l/i/PkfB+qP55LeTx3kk9qIM6lFxHn0lk+6aE4x15XnGPn e1jtBu/9/F/fb1Md5+Gzi/PwzJvg/Px+cX6e+SGcty8vztvzvarbOJ9/W5zP 53tPT3Ge/744z8/8x2px/r+8OP/P96r+jfD+z++NUXGPoL64R8A8nfW9J+aP cU8hn7inwPetbuBeQwFxr4HvQznhHsRycQ+CeWfcmxgq7k3wfav9xT3/8/tY yuL+RTlx/4L5NNzXaCHua/C9Klvc77gl7ncw98V9kKPiPgjfk2qB+yNOs1Lu j/C9qsq4b3JS3Ddhrle7/vy/vuckBvdWaol7K8yjcc/lorjnwvetcuBeTE9x L4Z5FtyjsTmWco+G709lwb2bHeLeDd+38sE9nZxDUu7pMHcd8rDrf31/SAPc 91ki7vvwvapxuB/UXtwPYh6M+0S9xH0i5l9LiPtH7uL+Ed+reoD7Su3FfaU/ vy+M+00x4n4Tc99Ac536v9/LcRP3pMR+/J/7Vmlwr0rsX/65n7US97DEfsyf +1wvcW9L5D9/7lsVxT0vEQf/uZ9VF/fCxLr+5z6X7E+6JyX7k7jsT+KyP4nL /iQu+5O/f0PyJ3F5fNL9KXl8EpfHJ3F5fBKXxydzaXwSl8cn8b143+XvZyiN 970M3nfiU/C+N8X7TjzZXrzvN/G+Ex+E9z0A7zvxpnjf7fG+E6+I9/1fvO/E j2H+lL/3wAPzZx3Mn8TTYP5cgvlTvueVF/Mn8VDMn26YP4k7YP5civmTeEfM n76YP4m3xXokf59ANev7s6p8n2sv1iPiB7AelcV6RPwW1qObWI+Ih2M9uof1 iHgC1qOyWI+IX0F8It/Tn2B9f5l5nPV9Z+YrEG8sRLxBvDTW/Z9Y94knYn0v hPWdOdb3OljfiXd02fo8V28X9c6JapVXLTzjQfezvC8dGF9sd3o1OVv5xaci T3nQfajt+sOS+3ukVicnLnTYNzFeoftHW1amr3jaJa1ap0jdoz3G/etBvHu2 Jg+6PbdR9/2svr1VcQe+rzSs8pv3ntkjlOfqoS9peqZhvi7zdLu62SO0Wq/a n7fkV6+vH+Pz3EaPfVKmiKWeD6M9Zxr26L379/DbY2GPv1+KPXq2xuNvn3p0 xp14NOR7CHmN+DXo/yr068QPwJ6awh7mzWD/S2E/83bob4DoL/NN8Ns64Tdu 1yHRpoD5veQTz2Sotjwsjn/Py6HD4N7m95LvjQm4ZX7/N/HBh/Wfe7u8VRrm 2vLL/J5v4l/njDtzoMtbrfWLAfcs+bR6yVOGf/yljS3u1N1ST5vaA4aa3zO+ 5OrgL0st2u1wRHwvef5VfUrVGH/SnXhbyC8U8vy7XTOgf4zQz78LZj9X2NNK 2MO8OexvLOxnHtde9PeI6C/z5AThn5XCP9zu337faumFRrmHPLVT3+dZ5Du2 1FeFzrlV9fyRr1CeH0qdLSE2Yd1s+Pxbp8Qj2bJue6Us6OCc4fkAe+ZnL8+a lH3bK62md1zUMwu+5MC07IXz/NCmlx+z+Y6Fnm9rA3yMdvX3l0a1GGPRrqN/ Yz/vGHv94N7uC47lOO5O/Dvk3wp5jfhS6J8m9Ot8Ts/aHuYq7F8k7GdeDP1t JPrLfD7880v4h9sN2phip5rgvy9r1qDAYOJH/A/XujnHRvUK1dvdvPeZz4kt uHopavPz78og2yqrTxz8yTxz7Pzbh1u/UI6nvdY5zytblXiyZ7HogNYvNPsK LrUt+a0ZWoj/8+/awLk/Io5b6HG8tWms0a4+0z+593WLdoPLnez8sL2dXu1I t0y3ax11l+WnCHk+93Ub+vsL/czTewl7Ugl7dOJJX4X9J4T9zCejv6NFf1nP Afinv/AP82NlUuxU57X4Wf+k95Fg4iOWpnm3wxjnm7qFt2sZFs3nlzLO/O3q eCxOGaPsKj0vIZF5ZFyXCVmWP1U2b186vVEFG5V4aITW0HX5U+2l/6k+lvxC nYVPDD3a0IJBy+Za6ElVYVmrncZ7WjZvyVXNLdp9EtTS+e0GG33xzMED8rQK cCduD/mSQp7P/1yE/sFCP/O3sOeFsEcnrsN+f2E/cwf0d6roL+sZAP9owj/M 7Y+m2KnmKurf95z3oWCZ281608fgHnTuIgj+L+W52vS/B+1TL8H4f4f5gfb7 jmL8r0+qYo5/D+KV8R55Y94g3hHv3XzMG8R1vKc1MG8QX2z9XjOPk+YN4g6Y Nw5g3iBO88wbzBvEaV6ainmD+C1re5grsH8h5g3iRdHfhpg3iM+D335i3iBu j/VrvPX6pdlh/dpjvX5pvpj/G1ivX1oM1q+W1uuXNsV6fWHeGuvRIuv1S2uH 9cvNev1i+fnW65c2FfpHWa9fmh3WrxbW65fWzHr9Zf4V69ch6/VL+431a4X1 +qVtRTwwAXEU7Vt1Q/ywG/ES8cGIN8IRLxH3Q3xSHfES8cuIZ74gXiIegfin J+Il4hsRL2VGvEQ8EvLdEC8RvwL9nxEvEd8Le6ohXiLeGPY/Q7xEvA36exjx EvH18I8f4iXimxBndi//1Iwzg4l7bK2avfGJNOqRoenu1DydqNC+T9qpzj+2 TLZT/df49b5Szon3uW4u31dtR58oJWnG7sPXI9Mx//Jl8ubdfaK0bZHxUyz5 teX+u7dOttMjvLs8umyh52xizrFGu3r9fPuUGhbtLriaEj/rn+sN39+is+5O PATydYS8RjwU+t8J/bxv5fTVyh7me2H/T2E/c1v0d7foL/Oq8M9N4R9u1xNx fp5j9804P5h43w6Th9VvkE4t9TH21fjaSbzP0qLtpqGDV6RSb98pvPvlgtQq cT12UNfQmA+KZ6Mvm/zXZ2Cep1TJ+JsxH7S7jzsMsOShr/sXH7Iila62uJjV Uk9QxrQPjHb1jEXT1hhn0e7tzCl5ih6auULaUi3OuhM/Bvn0Qp73Ka5Dv4fQ rxOvBHvChD3M18F+b2E/83ro7yPRX+bd4J/Gwj9/9o+QT6muEWY+FUz8avE9 Hnej7NXxSQkTXPo7qZRnFa4y+ESnHl+UC9PXjkldMgPz2nPeLe2T+q32wSY8 w7Kvf/jar/FbvEva6RWWrvX/tM6ZeYMjBar3Gp9WH7wtrvKQbr/5ezYS0gwe Oaa9i95vske5/iVCmTeLfffJsEefWmf80wz9nXTiqa/tn9KlxxfNc0WJKoY9 zJ8H3PzQI/VbJfPKkVUNe5jHjKv0wquknXqthE/xz+ucmdeYFXqh5/i06q0L R+4M7fZbI76tQem+hj1qh9nZPo8pEcp81Iz5hTKsiVXe/vP9fO7fafn7N35m G3HXd9ljrbnN63kDx6VnvnHu+8kLliRrJ0+0uDI6jzPzXCHH7cfkcdbz3ArT 5y9JVog/rtdrtfH3+sEhD7sMWPaYeZ+W2a64rInVAmOrTDTa1YlvuuDxto8h d2Hh663m3xE/k11PZerNd9VNNdsh/vFA5GLTjkm1k2ouNOwinv9Ez0mm3Q1P p20yzOgH8fb2WVpmq39Za+zWosB9+7Scz/5w+ry4WNkfmuOzSZdaHHJiHqyN GfnLyOdL9srgcq5lMue5G/xmjXx8II2+Ibl/nrMFXjHvWjzV+tT1Lyujo0+X NvRzHpqru1eJomV/KO5u6Uu2POTE3HPi4l8/MzmqvfYN7Hy+ZTLnp4W+9Gxp 6Fd7lviinC/winnehz0dxxX8rrwduLrYlfMJfK74yv7YQk16v1JmNeszYNiH ZOaTFrUIP+t5Xyu8ZMut2z42KnGXJp/avqseq0VfOTuks2sSy8dP0esez/xL 6zenQb/hmWKYb2/uvLPyahu969pXh3+EnmHesM8r3bBHK132w7TL5xP4/O3H 2H/sm/V+pU2bVqywYQ/zJw9+2AZ73leG1Fv51rBHJ17z4Zf5b6vHKtVLTUk2 7GH53lHnQo9l/qU0K1XBa0SmGOYBlR39DXtU39XjmqS5foZ5zkUDtum1IpSF Sx+vbNPCVqX489ThIvOKDrmlVf+yelHLmnbMA5zfTT04K1brWfny0VIZk/n8 audA79/Gv7Uqx2PTGP+f+YZOLVcZf6+PDyjWq/CQW8yXl32xP6RWhOa5yb2v 0a5OvFhgCY+ChlxSSLqN5t8RX9bL1u+AoXd3ea1+aaMd4jsDmwwy7SjT+WGc aRfxsDmPZ5l2Nz1Y6EBxox/EKxwv2/3J5RAt3dOx1+++/xP3lq/kWupfTyNf yLXSf3BrO+Yul6dU8M9iqxfzbeW+p1YCx72px+QcOHe7vd5pRCdHB5dw5qXX bJx/+3KIcuNds/uGfo5LfTK6uZ7wjFMGN7n/wdDPfFZt7/ubs9iqXWZOrL23 VgLHqz+uHW5u6FcXDbr+0tklnDnNSw5iXuJ50gvz2BExjzEviPf666mU95rn k5+YD8+J+ZDn5++YH3qK+YHlb2I+ySnmE57H5Pv4pEe+d0/yNM/XFfM8z6tZ m2TfYs5rQwY2/27OryTfEOvFALFesPwTzJP+Yp7k+Wo91p3yYt3heT435tsc Yr5l+TZYv6LE+sXymzFv/yvmbZ4/q2cX83wzMc8zl++nsx7pHjrJUz3TC+sv yV9Y17adua7Uq/ZkQ0Zjvid5FXFRAOJG4kUw73mJeY/n1XSIr7YinmR/Yv5s IeZPlr9lHaexfAnMw9XFPMzzfCzizx2IP0n+OuLDSMSfxDXr73FiPecQZzZE XEryve0Td2wsY6/fXmm/s25qO5ZfhHg1BvEqr1/uiVmSbNLomx8ed/GJ/8j9 Og/9dRHH8rqM9WiVWI94vSD73yO+ZfuxrhUV6xrLO3+18gPL26cW66O9WB95 /doHP/9GPEzyL63XWZa3w3PcgziZ5OX74CRfHePkNuJnkndrX9HN8Ke6YWFs 7Xqp7Vie6uduiKs5Dtm27MkPmzTqti6Rbj3jP3J/++J3G32tfx+T+TiJ38Tv QqrWv4+p3ACvK/Fu+H3Jw9a/m6l0AD8i8R5+TV791/3x9fhdy4vWv6f5V06/ j5nL+nc2/8rj8Dubdax/f/N/cg/r3+X8K8+Odl2tf6/zr3wT+nXB+nc8/8rr 4vc9D1r/vudfeWP4P8j6dz//yi/h+ba1/j3Qv3Lal+mFfJnGG/0eq5/174T+ lf/CuqmIdZPr2/7tW+W64GavesYvG72r3HvmVJ8/ZP27ospirMsNxbrM8iFL HJ/tr5GsjNl9137N+yTmI7G+DxDrO9fbOyPeSI94g+v8UrxB3O9twcMHaiRr Daccz+lnoT8T4pDCiEOIn1gfX9fol/4y0yrXHRb9SoP4pB7iE5m7C67JesKF HuaZ0W5B0S7ztbCznrCTeWXrfnE9f661H5iXQbx0E/ES8e7w5xDES8SPw/8z hP+53dl4Xt0QRxHfiOc+SDx35j8xTnojviJ+D3FjVhE3cj3/4D+Dm5vx8enJ G46cM+Jl4kFSPZb0BCAudRNxKcv7I47dKuLYP/frEW/XQLxNPBDxdm/E28S7 It6uinib+Cu/tJPNeNruWeHdZy3s3CjF4TIfJrgm6/n5NEUP825ot5Jol/lR 2NlL2Mn8oXW/eJ+iOOL8n4jziS+Hf/Ygzie+C/4sizif+D48l7fiuTC/i+fY DPE/ccqDHEQexPsLtA9SGnV4kh+CfMpD5FN/7ssj/yov8i/mcv5IXM4ficv5 I3E5f5R5DcF53yEBevoIPcwzo90Pol3mq6zt5P0OOd8kLuebxOV8k7icb8qc /E95qLw/QvKy/0le9r+cd5N/iMv+IS77h7jsH+LyvhhxGm9ZMG9Qvinvl5H8 YYznvJgfSF7eRyP5zXgvtmDeIHl5f43k5f014vL+GtcZpP014i8xD9hiPqF2 5X03kqd8fyjmE5KX9+NInuaxiphPSF7epyN5mg97YJ4heXn/juQfWNcxuJ4g 7+uRvLyvJ49P2tcjvhfzzxvMP6Sf9qNV7EcTp3WnCeITyuvnY992APapSX4h 1rXGiENIPhP2r49h/5rkB0txCMn/9rTaR2b5G9b7ztyuA/app2Nfmzit+96I T0j/Gex3V8V+N8lTXPEA8QnvG0L/JOyDkzzVVZohPiH5m7CzL/bHSd7FOi5i +XTYN7fDvjnJV0J84ov4hOstX63OA7D8HOt6EctPwvMahX12kt+P594X++zE jyFumYa4hfTQ/u9c7L+T/CbELW0Rt8j7v/E4/0C8IOoA1VAHoP0myuMmiTyO eX3UARqiDkC8MPLEpSJP5P04qgNUQR2A+DDkrQ1QHyb+C/VhO9SHiftIeT3x 09b5NduTF3n9euT1xNchf1+EerLMZyGvl/WsEHqYn0G7hZDXE+8BO28JO3m/ zxZ5vS3yeuLPrP3AvDPq2yNQ3ybuCn/WRH2beB74fx3ydOIKnpcP6t7EH+L5 bkGeTjw/xkN31MOZox4YhXog7aNdQt2poqg7Mad9TE+clyM9cagTdkedkORv o07oijohcWfUzZpgf4T4etTZTmB/hHgO1OtyYX+EeCbUCUehTkj8IeqBB7Bv QvwR+CbUCYlnhp5hQg/znGg3O+qExGkf5zjqgcSrWfeL+Qbsy5zDvgzxU/BP XuzLEI+GPydgX4b3bfFcWqMeSNwNz7E+9muIb0V9+M0sUR+mfT3aP/2Fc5K8 r4q68X7UjUk+CfVhDfVh4t6ol0Ziv4/4GtRdy2G/j3h91G8HYb+P+HfUgfti v0/m3qgPE6d9w36oA/N+KNoti3ov8dawMwJ1XeLPsD+YEfuDxD+jv1ewP0i8 OvxzA/uDxMnP7bA/KO+r3sI5VeL9sQ9bBvvUVO9dtSVdc3O/eWod5/O3Yz4w b4X93DvYvyb+OZ3rtRfGv3333Jg1xPj/xEOs94WZq3r23mON9mZHtUzTwGif eF7sL9/DfjfxHTvtDLsPBMdlEv0gfgP71F7YByfea0FyenNfuX2V89vqW+g/ jv3uzNgfJ151xehu5v503rypQgdb2B+GffPr2Dcn3jfLjpnmPnfFjI1L3rDw zwnoz4D9dFm+hJBnftN6H5/r/NVhT25hD/Mq1ucBmPdDf9uJ/jLfAP/Xxb48 cc9HDlUt/Mm8Pp7vE+zXEy+F57VQPC/m3TF+mmIfn/hbjIdxYjyw/HKMqwNi XLH8yvX5+pr1+of53rfc2yeK6+35cmgrzXr99nVRyVsn23HdPmbUhDHVTycq 17ct3GXWlYn3/Ppr0anIfcEnr4h5hXjVy09Sm3Vnj2a761nK9xuS6GbWr7/O a9PSUr9btVtrzDr4upCsH3Za2EN8ueBcxx4APTFCD9fDa1q3y/zswTdLLOxk /gT9uiP6xTw7/HBY+IH5MvgtVf4Uv7E9J8rvP2CeZwqYenNpvewRilwnHyHV w+813P22ZXEHdW1xr4s+z214X4Pq4V5SPfxN3tBnuyfGK/NujD5knjMi+c5/ qZPH9nY11uk9wc9Xi3Wb5Hv4Rf/n96yuO/K96d6J8Vpc7vTtLfX/rU7+2jew t3n+KcOI2KKW9v+tTt5gRaon5jmq0tsrjva28M/f6uQkX1jIa7K8XCd/C3vS C3t4X+NvdfKN6G+s6O+fc+9/qZMHzQsLsvAny/+tTn4bz2uxeF4s/7c6eSjG wzYxHlj+b3XyIIy3x2K8af+rTv7i2IBH5vnO6LKfDrlue8V1YO/45oPN853L Xp5bXjjPD+Zvcg8IGV3qq+I6/d108xwl8ZarMxv5xrbg4ZtF/kE8csS0Z+b5 zkuHptS2lL/Xf+NN83yn27jaGwpZ6B95Y8pP83zn0h65G2azsIf4fMG5Hnsf evIIPcyjrdvl+nD7WgOzWdjJ/D76lVv0i7k7/LBV+IH1P4Pf0pZL8Rvzsl5H ypj5c96I0YmBRr5IdUKnBk9XmPlzuq6nym4x8kLikxzz+YYa+fOtvqtWm3kh 8bIeY4x8b2uwu8ibmV+s+qLrDSNvbFl9V0dL+UoXXBUzz2y161w7fwv94W6D m5j56o/1D58dsbCH+DfBuf5ZBXpaCD3Mr6HdFqJdrsf6Nd7WwMJO5r3Qr7ui X3/OpdcXfsgt/MD6S8Nv1YXfmJfceLu9Wbdq3n14hZzLn3KdMyTTaS+zbvV+ W8vaTsfimLv8uBXQLCxaaZ58Z95OY54hXqTz/j7nvP2D+4g6Ftddj3rMHN0i LFrL0KNpHkv53RUOPjPrUNPenB/vaKE/4J8dI8360e6hGXpms7CHuL/gXM/c Cz1ThB7mJ9BuetEu8xnzr/ezsJPrq4mJol9tRb/+6IEfvgk/MC8Ov00TfmMu +5PqVLI/+VyT5E/isj+Jy/4kLvuTzx1J/pQ5+ZPraZI/icv+JC77k7jsT9Yj +ZO47E/iZTBu8+B95/oY3ve0eN+JT5Ted+Jl8L7XwvtO/IL1e8e8At7Tlnjf iT/Be52I913mcXjfiVeGnmZ434lfQbvN8b4TX433HXYy74F+heF9J56I9z0X 3nfipeC3anjfiT/HvPoB6xHVr7wwDy/BekT8Nebt7FiPiLfAejQM6xFxWo8u Yj0ifhfrSF6sR8RHYN1ZgvVI5vOwHhGn9SgX1iPiH6zb5TphO6xHsJP5PfQr F9Yj4rXgB3+sR8Sfwm9psB5x/RDxwCHEn1SfCUNc4Yc4k/hLxCezEU8Sj0Hc GI64kc/tI176gviQ9VjHXczrIn4rgXhP5gUR1xF/BT1pEb/xuXq0G4M4jXgA 4jHYyfwG+rUAcRfxq/DDVsRXrAd+e4A4ivhyxPn3kR9xvQV5wTbkR8Q/IY+4 hvyIeHfkRyeQHxGvjDylNvIjPsdundcwz4M8aA3yI5kvRX5EnPKsz8iPiFdH u+7Ij4hryI9gJ/PH6Ndt5EfEs8IPh5AfEV8Cv9khPyK+AnnoZNQ3qB7yEXnr QNQxiHsg/52JegXxbahLfEVdgngP5ONtUX8gXhl5fR7UGYj3Rn2gPOoJMi+G ugFxqlfkQn2AeB+02wZ1AOIK8n3YybwE+jUfeT3x1/DDWOTvxJfCb/uQvxOX f1+S8vorqBOWR/2W8tNsqHMORJ2TuPz7j8SfoZ48GvsFlF8UR116GfYFiNO5 u9WoqxPvg/r5TdTPicu/58j3l7GPdgrnK2i9oP3HJJxDIE7nearjPA//3hz2 WYbjfA5x2oe6jfMtxDdgP8sT51iIOwaKOmEmUSfkOlXyVXHvwEvcO2D+yPoc Ptc3muD+wnRxf4Hle+I8/1Fxnp/lM+KexWVxz4LrORruZcwU9zKYd8N9hEhx H4Gf4xHsO4wS+w78vB7je0QL4nc6+B6x9Tkc5n3x/a46fs+C+CXoKYbvIyWe C+fJF+E8OcX57a3PdTOfj3Pg3uIcOPMV4F44H07cHvqXCP3M5XP+FA/L5/z5 PuZDq3MOnC+8wDn8GeIc/p/zHji3X1ac22cun+cnLp/n53wE9swV9jDPAvs/ Cfu1v9lJcalsJ5+LkOzkuF1ql7jcLvF2eF4/8LzovZtn/VyYp8JzWYznQtzP +jw8x2NvMD6HY3zS+jsC4/k17tfQOvIO71cI3i/iHa3vxTDvDX4E92WId4X+ 93hfiF/A+zUB955ovs2H9/E87j0RT4/5IQPmB943uWp1L4l5Q8wDMzAPEG8E Pg33m4g74X6TgvtNxF1gz0XMD8RPwP45mB+I18w+u9J/1fOjriWWXGGsH8s/ 7xppnlsnbvMzaFHPio76i9jCNYxP5h8HuY9Z5pig+KzOfcNcf4iPjVr5toch F2dX/4X5d8TPt5z7n/Xho7093a4EfNfsfhbzcu/7Z94rsGv79EsB35Ub/Teu MTjPY3ZF9wX+Vz3z18Ri/5mfvmq6f+hs30gttFFcrPk998SHVVXHZ58cr10r eie/8cl8leusrTN9I5VTi/a1Nn9/gHhott6Xsxly9+scvG3+HfFrz0r/Zx63 r3ClQa5Zo7V5uX1z9vn6J4/bte+Kb7as0UqDb/WaGZzfC6+7wVn+K395hXm1 gDQ/D7P+nm2eby9Cfz2hn+fPU9b28Dz5AP26KvrF89gh+CFI+IH5cPjtqvAb z0uf4Oerws/Mq+M5XhTPkd/HM3juv5NSnju/d9Mxft6L8cPvhYOvGG/txXhj TuPzqRifPM6/YTwvEeOZeftzg11TxtnZpdFG+xwX/S2OKl7plW/K+HOMbX7Z sPd/xUv+ex96m/cZnoZVXuF9LI7jpV6fA9bsKJhKrVflztCdxief5//LvZhj iIsqSPcjisGe9cIetv/olUvFDL161q5nnu+w0N99453lZlw1IuvRnF4W9vQA HyI4x2lB0JNF6Pmfcdrf7rP87T5Cc/j/mPA/+7MT/NNC+Ifl18KfScKfbOe2 MJeZLUo7qg0GFUgzqNtX3i8Y2PVM+zEJNuqFUQNcxxqfxDO0qpNtgCFXvdG1 KPPviC/IUKbXwG5fNZdd23ZY8o+DZz8w9OiF+25dM8ZCj+f4apcNOf3W4eqn B1i06wV+XXDtL3q4zr8S7WYQ7TL/0VLY6S7sZN4T/boh+vXnPD/80FP4gdsd MXrmRfP798MHLpu9wpg/aH4YviVt1SUbfyk9RkyetdT45HPgZe2yGf/WMkXM 2bHEgifeeGhnxnM5gpSeyy30/ADPJjjXw9NCj4vQw7wn2h0u2mU+GHbGCjuZ P5/3qJI5T6Ua8HtQdmM+o/mq9oHfv3sb89qvZ/0G5jDmM+Ke4PcEZ/kX0JPc P0UPy6uQvwt5rkdB/hfkiQ+X/Enz81D0qzv8SfwZ9NjBfj7PZu0flk+AP13h Z+KJkp+J0/PKAD8Td0e/fsI/XK+DnUPhf5L3Rb++wv/Et2Jc1bN+v7QBGIfn rd8vLR3er6rW75c2z3qcM/+A96KQ9fulKXiPbli/X5oKfs36/dKioaeg9ful LUe76azfLy0R71ct6/dL645+Xbd+v7QN8EMP6/dL24h56QnmeT4nhnmsDuZ5 ri9hXs2M+Zm/NwPz8FDMzzL3xfxMPBB6MmF+Jt4B7TbD/El8NexMwPxJvAjW kbVYR2j9bYb5OQjzM/G24KuxbhIvCj2rsD4Sn4F1PALrOK2nTljHO2Id5+9t +8u9UVus78+xvvO9VKzvS7G+E//bvcsaiEMuIw7he3yIQ2xE/MnrlzfiMXl/ 8zbisSJSnhuKOFDevzuAuGs+4kDiuxGnNUQcSFyOYymOkuNY4nIcy+f5pTiW v39JimP5d+ikOJDiWzkOJC7HgcTlOJDPn6O/dRGX0rz0L/wzF3Ep8eQiIs6X 688hyCPkOmqA9XNknh/PPRR5BNc/kQfJ9cNIjKtlyIOIJyeJcfgMeRDxaORB XZEHER+D8f8VeRDx/wexqQjP "], {{ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2], EdgeForm[ None], Specularity[ GrayLevel[1], 3], StyleBox[GraphicsGroup3DBox[ TagBox[{Polygon3DBox[CompressedData[" 1:eJw1nHfgV9Mbxz/33HFuklDIlplKS/ZK0TBCRkZIZK+QEaVhlyQRmcnOqISE kqhkZGZHEiEZkezf+9X7/v443/N8zz333Pu595znPM/7eT+3ca9zup0darXa pUWtlqp+Rn92ymu1LyVPTWq1u1QGSH5d9QSVqyVPU32vykDJz6u+R+VyyXNV P65yleTeGu8njXOX5FuyWu1plft07ES1L1P7HWrvJfkHybfTX8evVLlUfU5V fbVKf8ZS/YDKrZKnqNyh0l/9T9a5v+rceyWfJPlHyXdKvlV9p3CO+o1RPVXl IcmzVB5RuUJ9Ope12pvqf7Dkrmo7QeV4yV9pnFdjrXac/t9Zz2GYygVq76L/ j1Q5WvKBOneJSheN+476v65xuqp9B/W9VuUsyZ10/A21HyR5js57VOVKyb/p nLpq/5XnIHmIysWS6+oFrFD9mvq01RjXqJwpebHGn6v76cm1JS+Jfh9fa4yf 9f9p9JH8k+RTJd/Oe1A5W3J9te2h/pMkryF5d8kTJa8juZPkZyWvKXkvyU9K Xkvy3pInS15XcmfJUyWvJ7mL5OckN5K8v+TnJW8i+VDJL0neSPIhkl+U/Kd+ 03q6p5W6j2WSU+5P8sbq0019ZqhPUNvmKv+pfVO1H672mWqvJ/lrnTOB96hn 0j3x7/pRbTm/mf/VZ4Xk+9Q+lueq0kfy3aqHqJwr+U7Vg1TO4Z2q74865xTJ iyQvk3yy5Md0/EaViyQ/ofomlYslX8E8VblZ/1/L3FEZI/kUnfebzh+nPhep bbTKtWr/VOUNlVvU3pfzmLv6/xLVt6kMlTxe5QaVC9XnYdXXq/SVfJt+41GJ 3+PJGnsv9T9K8pu61iKVAySPVJ9D1KeX5I/V9pKe1aH6v5XmyBUqJ6q9teor VU6S/LT6vMW7l/yh6hnq34370ziHJ/7t26nvIJUekocGz2/m9svqP1n9O/As 1d5OdTe1f6r2l6PP78G70312UPtLan9S7e3V3lTjDVA5jGeoc/dW26GSB0ve S/Ihktvo+FUqvSWfqHF2zDz+Uo3ztsY5O/E1zqnuc5DO3TPxOj209LvkPZ6n tuHV82Qtf63SRmPdELyej6/W4GKVVmpvqWsOUTlO7Teqz8GsefSPxmub+d4+ 0T3M1D0cpmMt1HewyrFqH6H+B6mtZ83r/Xn1OVD/vy35OckHSP5DY6yjsX6X fIzqzfR/e/WfpT5Pqc8+iZ/hezp2hNp30thDVc6v3uk7uZ/bPbrWqdV85h57 V/fZVb/jW5UDNO73vF+NeWbie35X5x6uPt9Jnqf209W+vca+WuUMtX+p9jlq PwZdrvFPqtYF9/+azj2w5t93YvUbd9R516mcxzpS/16VPmmmtstTX+t0nXdI 5nu7W31OrtYd83aqrrUf70B9mqnPfmrfRf93Vtlf8nXq3ynxPG+u8QamfibH qf+26t9F8r68a5VtWGPq3xH9q/bZGv9pjb9v4jVxSrUumOdv555vB+m871QO 0rm91bZH5nP3U9s3Krvp/2uCx+iu9tGSj0g8r1bTODto/Mck/61z30u8p/wj +f3Ee9lInf945j3vBtXjM+vkYaofzrw/1dEYf2isIeofJa+UPFjyXTr+fOb9 YKzqFzLvl7n6/K4+g9SnseTVVUZK7qPj12fWa6naVhTecxtI/k/ydbx33dva +n+05E1Vr6Zyo+SNVZcqIyRvqLpQuUFyN413TuZ51l/17Zl102DVd2fWg7M0 5j56Vp3Uf7rk9pLbST5Mxy/IPMeeUvsDPC+1T0YfS27LO5I8h/0D/SB5emFd MVPyDMn7SH5R8vPsN5KXSP5L8jXsQbrHfyRfK3kgzzKzjt5Sbcfo2Ktq/11t a+ic39Q+Q/ULhddalLylSqb3+bzqp9jzWEfqf2bmObqf6lMyz+ntNF6mPg+y v+j/Bfwm5n/0PGAOtJScS35I8rF6BoXkhyXvrPa6kh+XvCvvS/ITkneL3sPY v5Lg/WqW5F/QmTp2j+Sajn+UuM9StffQuGNoV/9lan9Z4nLdY6ljy/X/z5IL yb9I/jfxXvqK+hyo9tMyr+fvdXxdjX+b2o/HhuI9YTsl1hOs5YsS2zXohEsS 64PT0dWJ3yc6p19iWwPb45rE+hgddR3rO7Et9Df7oMqlks9gLWW2OXqo7pdZ N3/D/arPJerzreSGurdbJZ+g4wNULmRc1SMy799nq74u8579J3adSj/1P1z1 wuj5+ZzGmaT/d1P7s5Ifl7wL70LHtuV9ssZ5J7n7dOK95Z6fHXnPuefnvpIf kLy95A+ke/7E6NX5XXjnat+VPUXyo7nHf1/HV6r8I3kvvaPvVOtQbW/JP/h1 1rbU+YXKRpI7qP0n5qPKGzqvvTqvkLyBjv+uej3uQX2Wqy7Rw+rTQX3+kLw5 61xlQ8lbo0dUNmYsXaSVBnyEaSL548R2yJHYj5nf058a453EtvRfkt9NbGOX 6t9a546XXEfy9pIf5SdX8xD7mXn9Sea53URtq6tsIvlzjfNtYR27j+r79X8b yUfwDjPPraUqn6ncr/aUcRLbZpn6bqES9Funqp5Q+NlO0e/dWf8vkvye5H0k /y35U9VfF96750teUFhvvy/5s8K6eldds3vmPbql6n0z78Wfqc83hfevBZKX FN6bOrHuM8/p9qz7zPN+jvq8WniveVXya4X3qRbYNZn39Llqf6PwnvWB5M8L 71n7sOYyr6UP1b6wsO30nH7LLtwH+52OH57ZTpvHPlLYxmik/39VvS6Fta16 HZWGkpdRs3/peQX9X481Lvk/1aurvKPxVzBf0Z+ql6h8z1pQ/RVF8vOqv+aY 5LfYswrbV+yNHxTeH/F73i1sUz2J/1R4Lfyja9XVdUv2Vsm56jXUPkl97in8 3s+TfFlm2xX9MiKx/XxfsE2LfthK179EpaPkh3XeWM237XXsUvXZMfEzH6/2 cWpvq/+3Vt9+qfea7hp/nczz5DL13ynxe9kfO7PS58+yTnXu7jq2jc67NLUN g937qNp3VftjzFXJO0geI3mKSgveEfpB7XuovYnOuyy177al6otV9mVN6R7W y6xD+gWPwV6GfnhA526l/49QewPVjWt+7vUlr6l6Q41xjkrLmt/NmmpfGz2m /mtJ3kzyxjreR6U1+4XGvFJlC8kH4KekltFRt+pa6+mcg9T+r9qb8hwkL5W8 OWtQcoPMOmp39b9KZUvmDLo3tbwH+6rKVtX6vUVjroOe0vFzVVqpvX+wfcY8 v1By68R7dAf1vyFaFzCf6qleS/W2Oq9/at92C9UXpbYN7lL/m9V/O/XbPfgc +rdU+6dSdL3V79ua10da6YGpqeW6+jNNJavW0QuVfL7GaZHYTlhHbaelfobr qj499fNngL/VbzH6Ifh98C4e1HXv1v200fnd9EzKzM/8DrXfpPbmvD+d21dl z5rnyY1qb5p4vj0Sva8conNTnduc9yh5jcz7CM/n1sL7zsFqT9TerOY96CGd uw06h2de+Ny+urdWiW2hw9R/9czr7lDJq2VeXxeoT8vE9swaqpupbEr/4P+R N9f9Xqiyl+RWGvvs6D1pV+zNwnNjb9WjCt/Piep7ajSe85beQwvJH+t670ne RfJiye9K3knyV9h/kq/WuT/pvDdL6/YPsVslbwBWgN0qeSPJT0meU9o2npd5 /2EfYp96Ve3z9f9b+MSSr9WYyzXmrNJ702tqn13axn4j8xjY2dhdtGF/s0/R l/2M/ese9b9T4xTYrZJvlvyfxlyrNKaBjbR2aewC26lBaewCvKVhaewCu3Fz yccyt/VcG5XGLv5Q+/qlMYo/edaSj8ZuVp/NStufpeQ7JY/WdQP2suTbJeeS b5E8FNtI93OX5NskZ2rfoDRO8hfzTXIP7EuNs2Fp3OOfxPbJGMnrJ35m/1S4 2QfYfJLvZp6zJ3OPEruCIaVe1+wH2BbYFdg8d2icDRPbKxupbqS6h663KfpS 8qb4nWB8ko9T+xbYTzXbPPdF/48NspnKBmrfS+0jCvc5Rv03RmdL3gxsjL1c cjsdH1lYR+2JX1K4z7Hq3xhdK3lu6d/ztp7JJviXKjuqfQZ+HjhSZrsG+wbM 6m3JK3PbtG+UtivmZ66xM8CsXi99znuZbRlsGjAuZAyzsapeU58P9f87mev/ ctvhM8EA9f8ran9J8ra6h5exFyRvoXPnqM88yc3V/pHa38J+y23HvlL6/mar /eXSx2ZJXo4PEn3d3SXP1G9sULOd+KNvqXZ/sI0MdgG+dX5ijAus7+PcmMMB kn/QuMNT+y2DE/vX3dT2PXMxs8/aJ7Hf+oP6vxNto7MXU7NH3x6Mp/4fB1iO H4W+wk6L9it30TWuT21vPxC8r7Ong7csVTkuM0bVNzFONSYYs8R3OFf3e25m POEQ9Hy0PQ9egT2HLXe26tMz46JdsTmj/YWj1b5JZt3eQf0XoVMq32xAYszh QPVfpvYbUvs5AxNfCwz2k9x4Th/V52V+PmAg2KzYq/i3+Db4NQfxbKP9C/AB 7MWe7AXBGDP+zjlqOyvzdesFYzmv14wJf5QbK3sw2HcBJxwXjO2dXz3/L3Pj WhwfWfW5QG2DMj/P7uqzKNq/PhT9qvsYmfpdDave173BmCL+Wjf1+VF9bgQf YfxoX/h8jXl55vnD88TRAA8/TPIX0XYYWAd2MzYz2NrC3Ngg8wcM9GTJZ/EM Ms+9I9XnZ/SprnWU5G9ihbOrjK6ez8PBGDzzZHf1G5EarxgbjHfynMGmvsiN STKH/678RObLLdWc2Uvn3ZTax2+nelRqHONCnTc882/hfSXRcYe+ah+q9ssk PxKMxTLmQ8EYLT4mc3xUNc+ZM/8W7r/Kvoq2rTsH60r0JD7XuyqrSS5T75HY Ko3xC1U2QF+qbq3SSPJGqlvhY0teU3WT3Dq8hUpDlc90blOOqXwiubnqtVU+ lby2+jbNvdegJ4dF61ds/CyxnV9Px7fOvb+ssuWifYM2ks+L9iebYAOofIyO Vd/Zqf2FrsHjoatXU/tWufes+sEY/Bv0D7ZHsUVX13kzUvuw2A1La5Zb61rn RuuqFugHzYeTUtsVCyWfIbmeyiup9djXNftwxI6wv3YOtjE2CcZg3qdd7239 3PvpWsF77Jtq/5d9Mfee+C97SnAsYMNgf/G9mm9q49z7Y1tdcIHu4RT2LckD op9fA/3/cepn2A4/LrU/tb36XBDtY2MDXx3td+2tPm+m9r/qo1tT748831+8 lGprqO3V1DJ72TXRfvtfNfvodVQa6fiZqffTf2v2X5lLK2v29fHr8f3fSt1/ v+D9mGvtgI5Sh1N1bH2Vs1Lvj2ur/jC1r8d9/1aNkyT2AevWbNddH401dNJv +TQ1VrCz2gdG+2z/VecwDnv3lxrkbPVLUvt4q6Hz1d6/sI+/n8b5MjXOcAAv s7IxdmQNRY/XUMcXpPYH8dnnp74frhcTtzPmoGj/Ebt3eDR+0UXjf5EaGyFe Nz0z5vCz5M2ibRvihJtE2zzHo/eiMdJL1H5n5pjdpfiqmWOL6MM1ouV+7OeZ 42snoMei45ToqomVvnpGv+upxDqno+5lTGq7AnypXvS5+9KWen/viX6Oxmaf 1rmTEuOT6J7Jlf5BZ66jPkNr1kNPVrpoUnCccUil8+tHx0xfCbYTGL8ZMQGV ByS3V71GaezvAF3/ntR443fq/23imBq44mql//852M7FPumptt9UftHv/yXY 5gUj7a4xxqfGCRm/ezS2eaTaHk2NSe6v+u7U+Oe+Ol6/NLbYUfKapbHL41X/ Sjs2gPo+pjIbPQ8OljiWx341rtqzLta7uClzLJhn8HL1HHinW2ncUcw37OPU NtJx+L7siZJf1JizE+Pe0yW/khjHHqgxp2XuQwzuH3BgbCLsK3yLmmOC/6r9 NbUPUvuMzNciRvx39LjMjSbRcbqXg20/MPPT8CGiY3jHFsbfuYcekr+LjnOz J64neZjap+jcZxLvWe31O25JjbFj/4DRD5R8jORvo2METwTHvWlnnxxb7ZXs 78QGiAtgR9xf2RLcwy965rem3tPrRs//Dvp/dOpnMiE4vs3+20ltt6fGkNn7 H0yMw0wMjnsPrp7zsuh3gu1BfGJINc+3jn6Gw8GuMtvPP4BtJo7JfhZsY2OT Lwi2v7G9wcBLYir6/yu1L0ocLx4KdpfZB7xS8uuZccj5wb4cftwVap+bGat8 P9hvpP+HwX4gPuBV6OrM8ZfF+PWJY9AHMndSY5UfBPuK+IlD1H9O5ucwK9g+ Z42/FuxToVuGoYsy3wPvvWk0bnmIxrtf5ema58Xn1dwgRpDoN36h/7vp+AMq z/BMiEtorCnVWkZREz8gXhAkL0TXgLllxkI/D/ajia0fxvoG46g51hCJX+rY 9ejhzL/la/CMxHF24g7LsafBE1mvqa+7iP02cRz/BnDazO/ozWD/h/V1NVhf pW9/DfZ94RgcqzEmpt5nj9A9bFR6/0UPrF34OdzC3pt5jY+W/F/mWP9fwXvy O5L/DN7D3655vvxdzZkR6v995nnC715a/fY/gm2BtyQvxSZJPObyYB99ruRR OndF5nd9E35u5nn1afW7mJ+9dL8rVP4CqwXTKs2f6KrfdG/quMwbwf7ePZIP Utu41DGag1Xflzr+cg0YaWYs/fVg/5T96HDml8q0muM7deB86NgRantEZbra V1b2zDzJXdVn3dI+w9FcP7XvcAzXTG2D9eCaqe2fg6NxB84/CJyvtK32ue5l ZO532kV970x9/6zjl/6/ltU2KbV91ZtrqtTJrasbFp4bR2nMTUrbYcer75Ps 2WrfItg2/KDmvSIG7xfbBNuzH9U8R+CjME+2CrZJP6zZL16psnru/ScP3oN4 b3WC3922wXYuNirvBb4Ic/gUfqtKfZ17Bu9NZZPc+xd8FH7vCeq/dWl7uqfu d3JqW/o4MInSti/PbcPCz5/ntkHhd3S85C1L2989wWhL29+9WNOp7XOedYPg 93W6jv+psmHuuQR/hX2WublO8Py8XcfWyv27Wld2/oKa5/t6wXN++2Cf4PNq DqxfeF2foGs+ldr+3yHYh/ii5vvbrvIR7sL+yT3OkTp3s8L7dUhtE29U2cKb VvYw77Rx4b37P7XtFOynwNfaMbcdzvtuXNne+BTb5n7XvPPNq/fO+9yyeqes /ZOjY474DtvknifMq80L7/XMi62rucF7JBbLnEEHrB+sB/CJmuUek/e1deH5 wztoWflBvKNtCq8L3vW2hdcC77VZNWd4d00Krxeed6vqmfO+mhZ+d/hlbXM/ 8zT1s9ixeg9tqnfBubwz3jvzsUk1Pn5cm9xj8k7aVu8FH6157t/I/GxWeA5M 0/GZifd3fMMdcvcHQ+8ejNXPTe1X4FNg+xPbw27HZ7ko2pbGf+gY7HviQ3QK 9gvwG7oE+w7EGddM3R9/Dr8O2x5f5vzoc/Fh9gm+Fn5Q/2i7mthQ/cqXwV7f P9g+J765VmrfEHv+0ugx8UEuiW4Hnz8jGqdiHm5cet5drt80WfpoeM3cs0Zg CzVz9n6T/GxiO2f96D7w+lZIfk7t/XXuE5ntpcvAcTPbydjR8ypbeoDaJ2Ue E1sLjgL8BGylaZW9BIdwpdqnJ8aOwc3BzLF9Xqzsn85qvyO13n5B9z0j8Thw An/XuS9UNm2Dwns3MbI6qX1h/NzTouXPU/tC+EGLU8cbNqs5/nFosK/0e2rf D78PzJd4D7Ee/Jxuwefii10eLeMf7xK8Nr9JHbdoXHNc58jgGM3rqWM2yODa xGaIy4DhHh2Mo4ILHxWM936n4+ulxvnnpcaCaf9GZbfgeErMHGci3gGOT4yB +AJ4Qp/o+QO+0D7YXyaOcFY0nkBscbXU84HYIvgI2AgYSrvgPmAF50Sfiy96 cPA8XJg6FkLcgdjJCcHxkUWp4yjEQf6o/F583r+Ym6mxZXBn8GgwZGJsxweP QxylZ/C522hunhi91uEWdqvssYWZbQXshHaZsS1wLWK94JXgTuCS8KuwveHp wXPCZ4HvBwaKn7gnMe3cmCr8THhUYEq7Sz6jws2I+4Kr0g5vYmw1JrwasEhw SDiru6b2E8FY4UjRThwazBE8Db4rXE9kOCpgqWCbYJTwtJCJr4MJcp9wEXdL jWvBhwBHBgO8SOfdmBkrA9cN0f4X/gdcJXwQ4rBP58bb4WkQxwVvxF8AL0b+ P3aM7wB3Ef4rMngluCd4JvwNME3wTPDB8cF4Hbgk2DHtcCPht+HLwEUBr+Q+ 4SiAmdJObA7+ENwMsGB4ZuCu8H7h0YIV46vgS+P74IM9HqwT4I3gZ/Ib4RWD RaIH4PrumdqvATt4Mtivvz8z5ojv/2BmzBHfDb4TmAIYAjHCi4LjnnALbg7G S+ES75Ha7oKXCIcSjBdcYHLwuWANTwX7+PiQM4N9TPg5YMr8rkfAuVPrQHxR fF382VGZ9Sz6Ex33fLDu4p09Fvwb4ZY9Gvx+4S+Bp/N80GvPBZ/Le0afokuf yeyXsmehi6cGt+Mzzwj2i9Hdzwbr5+fUf5/UPu+4zH41/iD8NHzpVf0z+5/4 nvjYLwX3qZ+ZD9qh5pj7lNzxoP0Tx+Hhr96rtoGF4+9jJQ8urDPvk7x3aR01 TvIVhfUesaZ+hXXCZ7rm36l1zCeqO+bGnNi7Li68f7FXoxPYr7cqHF/DZmsu +aRo+2o4+11hndNQY2yX2+5opLplbjsF+6JXtI2xrtpa5LbXsGWIFWLPDGNP L6z/79HxMwvHZInR4TvgdxC7m1/5sMSLwHwerPTSsVUsBc77hMr/JR6Fn4Jv gt+J/wkuROwLHxYsiHgUsUjsbWJrfQvvC4PQw4X3lMtVn114z3pZz+rb1Dr7 rMRzt3el347OHHeao+Pfp94H4GM8kzsmuJ3k3tF23Smqzyis/49NzLUhPrWD xtg/M0d1e9WdM3NId1LdNTM384zEa4l11FptHTNzc4n1wClsVzMfY1ruWDa8 jhdyx+LRt0dVMa7xYEqF59VpiTk1J7Km0HuF75mY/hO559VuiWP48J/hJEzI Pa/uVn16YW4AvFE40b3Qh4n5qsTFXtLz2C03Bv6R5H1z48zYcRcWts36Sr6g sK2FXXZeYdtslvrvkRtLxqY4q7BdMV3tu+bG2uGjXV9Y78GdhhOJzoF3/XJu /snRiflHxJvgD7+Sm0sDJxZuZWfJD6u+obA+hxMLX7OT5EWZ/Wd853qZucjt JdfNHG/bGz0g+brc+Am++dvBGAixTzAL8Aq4YAdWGAvz8Z3gOUnMHnwHrIY5 /lHwPIc30LXyu1kHHwfLYL1gEPfWHN/F38bXJp4K/si6gH9wUOWbwyEABwED AWd6K/h+4AeA3YDbgCHNCcaUWFvvBo/DWnkveL0QZ0O/s3fBYRlQ2I4Dk76s sL1GDOLO3HqDWMNdlS9GDJM9BnsBHgexfmwQ+CDE9LFr4AHBPcBOgat5W+61 SX7HmNz+ERwL8Fzuhxgz+DLYL/F5eALYd8T84UVg38H3gXeBbVhUPuC7NesJ 8DJ0BfFm8D4wLvDiZcG+G7jtj8H+I7jtT8F+ItjckmCfFB7prbl9OvIvwIjp vzIzJkUfcKhvgn12OB/gOGA44FlfBttaYGELgzGipZmxoZdqjsGDIa7CDzNj avQBF/siGH8mfg9WBU4F5jc7+HeBrXwb7Mt/lxl7mlEzFjg3GLuDawImCB4I 5vdqsEzcHUwfrA9uCpgjc4N4P1jz2JpxI3Ax5iFY5rzgeQgXoUuFsYCtg7mD LSxR+825MQG4/YdXWBDjgEOBHaGzPwmet3BcOlc+CPkrB1f40paZuWWs6zx1 /KW+5Cx1zExDrFrr1wevd/Tr8GAdC7/t8mBu23aZuW7I7KsDgvdWOI3kcvSo dOwpuWPi6LNhwToN/Xxq7lg8evu03LFvdDU8/hNq5rLAvYN3h168KVg3omtH BetbuN/knCA3z5yvAh+yaWaePVxN+C7w5+DObZCZq4Rub5Q5HwAu37qZuf7w AOH/XRKs37bKzB1Ehi94cfBza8i+Wek9uHhw8tB1ddgjqn0Eztl5wdeC19Un eB9ZPzPHC5k94dzgfQHOEPw5uHNrZebEsI+snZnXwl6zZmaeCjp2cc3v60vV m6r9hNz8yY0l98zNhSPeeG7h2B1xMPLpiIWBTYBRgNUQh+xT2I+nLabGcYgx nl8YJwD3Ye2DxxKrY84wDvjg78HYCHHVO3LbKuBaYJFvVveIA8i8gicPhoUt hM0DLgn2Aka5IlgGM/0t2LZpnDkfBp5qrHCVhTVfn9gh85acCXInyNcg5+fK YE7pFpnzeeCawq0cGMyrhE8LzxK5ieSTcnMS4MeST0IuCbkxVwfLO2fOIyIX hmcAFvZu9azAehZW7ehHYsb8XtYSsWd4V/DzVnHzNOZVweNw/6w9uK3gi9h4 4EPEdrIqvkMO08zCv6lftdeDzVxc7fVgNnAlFld+5WWV/QnWAncGzjr+I/mL cHbgI5BXNK96nvB69i+9rs+sbAP8dTgU5H7gv1xY2RJgSOQFMu4qnk1lg4El wOPDhmEekh8JLwaOBrlZcKSx816J5k5jO82K5i1j78G1ebGyAV6M5gNjpz2t +/qo8LNvq/aidOwBXgZ5JvhKcG0OKK1b4FYcVtoPJc8AfhCcoa+jc1KIkZIH AEcJnhN5QgsqPQP3n+cIRwZODfoL3bWnzl29dDyA2OBf0fG/q7hm6fy/K1Qf XJp7fqXqQ0rz34eUvje43mNK7+/gEKNKrykwkgGlc1g2ZN2UtgfAJEaWXo9g MIdFc/LANeHn4p/gm9QrnRdJfGNw6fcIB3yg6o6leehwSydW/eGSYDdjM/Ob yK/kd5GHNL/Sk0+pfV5hvX615BNK500OVX1aab8EfuugyrYfpLYupfnv7aLv ifu5BjykNNf+OjgFpX2Xa+FulM6JmR3NUcfvmB7NCcduJweIdwNP6vvo/CCw t1+i84nA6pZG5xCBtxE/JC8Jv/yH6Dwj4hLkDA2qbK3l0bkexNr/jI7vg58S g4UXh+/7a3SuCjHU+3WPDxXWtQ9IfqSwPub9b17NgT+iuQHgeuQDwX0Cbxgf neMDdxmuN/kg7A8PRucawDXfXmM+U5pvNDqaxw6fmBgytik+8aTovCTyFZ+I zksi5/BBnfdo4T3h4ejcE/joE6JzjshpJGcFzhiYzcToXCdyJslXZv3AQfgn Nf8Bm5NcK/jz4DfvRuelskbIqSLnDjzpUV13auH9kxwL8gTBgZ4oraOwKV6L zpWAK/d6dO4D/DhyAVflHmjOTIvOO8AveyY634E8uhei+f/4YuTSkauFXp8S nQdBbt6z0bkP5IW+F51fzBrPSueSEOtFT5Arh654PzofmXVNjiNzlT1iPM+/ 8D4MP5HcW3AmcobgBIL9pKVzW4hlvhmdb8KcJK+F/Gtwo7x03gox4AmSXyls L7wRnesBR5I4Ldxm7FO4EuQ7Y9PdFp3jAK/6s9J7NJh9C8kjSvP14a62K409 wsffozS237e0riPPiZwV+FDoYfLjWefoYeKT8IyJg/2Qmp9PfIDYKdxf4kUX lMY6OE6OCFx49D9xrYYVFtFM8rDSHHf2DtYq6xQ9MCSaT9+/dL7YYzp+qeqj S+cgwvverTQm3E/1UaXzEYnnk/uNTU5MnjwifDd0EXsD+8LF6tu9dC7ghaoP L52PBc6MHiTPAU4ZMUbiSJeXzg3cWn0u4j2XzlMk9444IzEoclC47yXV/jg/ ei9D9zNXmCcESeDW4h/Af+kQ7dM0lXx9aW4W1x8VfQ+t1Da6NG+YeO+B0fYL vBWwYHygZak5YNhXcBPgt+MDoZ9Z/6x94u1w3fF1iNli32MTEePFdscXqVs6 dx6OC3v0Z9HcDfZQ1j9rn9ggPHLiS21U31aaDw2mMrvCVfD7yWvA9wcbgDsH PnCZ+h5TOh+U2Dv+GPYemM3MCrfZKzcPDXsSTALOHrgEOpt1whohBwheHty+ 1hrn1tLc7hHRmBs5A5ewT5bOpzy/9DwHVyPnDD4dts1X0TmY8Jj4reSZ8ns7 5+Z9YX+Cw31aYXEtNcaNpXNIFkfnbKLr4I+D1YDlfx6d9wq35efUvDvs2wXR ua7whuCrkicLDk0eGJw47K57o7GdxpUdwjUY/4Po3EDsK+Yz+mhRtdb4vsCM mmOqYH/48vtF8/6JaX9R2ib/vJqP5CcyJ1kjvG/e9eBoTO8r/LvoPEfsq4+q +YlfC9fm12r/+riah/jQzAfwR+xtklfg1IE53BON1Wxa2TZwxMeqy1ns56Ux pzOZq6WxIvLv0W/YsGejx0pjS1yXfFF8/3PUtmdpjIrfu21p/4JcRrh+OACs GzBV1s652CGlMdSR0Rgs+Uh9SusN8MLzSus9cEF0Gt+AIJ4CBgYvERwM/hE5 xuDA10VjofAah0bjq1z32mh8clWemsZbMxpXvisa+yJ/4LnStjf4d3PJw0vz KdFzYJjoDbBeuJ3gvduh50pzJeHPgg8TI70iGv9k/nNvSytb5fbofGTybeDj gGeBYdwZnbNMjhN21PzSPBXy47FFiRfBocDmhEdBzBDdAu7B9yrgzLBO4a4y 59Dt2I0flubHYG+wllhHTUrjz8SZyYOEs0FcFT4svBW4BnwnA04Ivh3fD4Ar gi4i3xfOHTwL8oDh98HXWPXtkMx7Dd/DgI8H3oP9/H5pDlCD3PwTdCPffsC2 x6fnOxxw/9CT0wrbK9gqSW6uILqXb0tgP+D3E3clx4e4BHoR3gu6EdyP3B54 Nm10/O3SnCqwRPKFPqj8iHdK85ngSsFdYn/n+wTgCNg5cF1Yw6zfsbqfe0vn QZHfyTciwI759gacdHwKYtSsEeKSvE94ULxT1vgHpTlDYIbkisDpAeeEDwbO BFZDHgi8H/gF2Mn40WCV5KXADQIXIp8EvhTkX/ZBYltgUOQ4wUWDv8B+je8M fwFbHb8b7JGcEHhpYFPkNcF7A6sk3wmuG1gluSLwO9uWtrmxt8FXyUWBi/lI pV/QLXBL2ceJGcE9ZK8nXrOT6mmlY97YAcTWied8UdjWx86fW9iew5aDX8le Q7wJm3daZffCxyTGQ3zn9cI2H/bei4VtYuxhYv7ElogfjVP7uNJ5a+RfYqOC UZFLR04WuAt6iNgBuohcwLsLYzNgmPABiEeRY0fOFHgM+ZrYh2BadSo/ij2a nFF8AXAgcvjwEYjRkTOKTQ5uRH4t3zxhrhLDQrfiL+yoe5hamuP7YmbOMDE6 vtUBHgHetkNpPwcfh+f5R+VfjC19z8TPdy7tw+C/wBFmD72yZj4m9tIVNX9b CJ4mfhDfdYCrTOwRbjL481U1jzO9NJeLe8NHwj/iG0XoLPTV/MI+Of4438/A N9yvus9nS/OSJ2bm1oJX8N0IOM/EIfkWBfFfYoZ8i4IcCmKG5E9gmxE35LsU 5FAQs2XuTSnNWyVWDNZNnPHQzN+TQVcsqWzH76q1iQ2N/Qz2hQ2E/UOeNN9I OaDSJ4+V/u4J+RPsScwBOLnkdhEzZI5NKv1NEHIp4F4Rx8feA/sA9yDfAl4Y OpNvG/C9E/yayditpfNy4SXh286u2e7CVsBO4Hs85MpgV8ARw6cGyyVXm+8p Ebcn1gcfjHgf32fCfwe7g3uFDQYezvecmCdgVnw3gu+I4F+QO843Vdgj4GHh d8+qObcGXOKkmjnjY6v3Aj+CvRuOBHsc+yJ7Ir8F3xW/FfyQnCf8Tew3bAXs BPjI5KMRTwazIN8WXA0bmH2UPXRiYb90p2p/ZD9mL76/8D7X+v99SudUs37Z F1tV8+3J0t/fYb0/XvqbPth12AfYBk+o/aHSOcarfKVoexJ+PXs6a2rvzN8R Yq5y3ftK58eC9fHtlo6VLppY+tsu+Ax87wXMj+8kYVtjZ8JLwp6Bm8R18eHx 34nBwqMjDsu3IsjzIi4Dz2hCpU/4Pgo5aPAs8KGw4bDfiEnyTSD8X/J14B7C ZYPngt0Fj4W8HOw2bHjiovhF+ETwCvELwPz5xgDfDgKbJ7eJ/evEmr8rwPe+ 4HSQ+wUe1bvm2DLcRXw6+EfkzBKr57sjfDOsV6WrJ5f+3hNxUb5RhD8Onws7 DS4N+UBwLeHrEQvluzVgesRd8Q/xDdl/8Y3xi/nWFPlk2Nv/A8W75Cs= "]], Polygon3DBox[CompressedData[" 1:eJwtnAf8V9Mfxu/93vs955KZka2sssreaWgRRXZFQxPJ3pQUIbKKEiIlEclI yYqo7CQrSRkNqYQIf//n7bmvV+f1O597zh3fe885n+fzfJ5Tna59211QSZLk 4TxJ9C9pUSRJf5U9syRpK3tiNUkelF1R4xGyh4YkGR2T5FyddIjse2WPVPu3 6r+37GGyH5D9P9m7p0nSVPXrVXaV3Vjtw9U+SvYS2fvIfqrq/v/KPlz2aapf QdHx62XX0vHlKlvoWqfpns/r+GNq31TPc4za5+l6r+p5BqjtJNnjZD8ou5fs g2V/Kvs12TfKbif7adljZZ9f8f1e1/V20rV2VjlR9iS1P672PhX/3ntkP1b2 P0z2ZPV/VPevof5NZM/Xs81T+Vv1/6l8ov6vqP8NFV9vuPovV98Vev6fdOzp 6PexvY411LEXZPeTvYfsZrJv1/kP6Vjv8vkny35CNh/pSNmzda9NVH5Tfa3K etU/U9lO9do6f7D636vrfcj717Ggc1eovKLzh8reWsd/VNlcfU/lGdV3oMr+ OtaN76nnXaJn+V7tP6j9Dx3/VGVbte2kY5uV9j+yj1P75uX9E7UdL/tm3f8e XW+VjtXSsW9lv6P736a29uq2nY7/pVJHbWfp2E1qv1v939Ox3dT+o+z31P9O tXWWvamOz1VZr3orHdtK9e95Bzr/FNm3qP8wnf8Lz6hjrVUfoFJf9lk65za1 D5f9q+zt1f6N7Ld1/Vt17plqXyh7puxbZJ8h+wHZD6v/Zeq/l/o/yHiXfTnj VfZ9wfMh1Tuqy/eT/aTO76vzj9L5z+r9FWrbIPd4f1r2Q+qf5/5+x6t+o0oD Xe9s2dvq758qO+taHXWN38vfu43adtCx33Tt69R/os6fKnsbta1T2VH1Dup/ tOoj1TZe9rOyl+l5PtA5d6veVddYKvt92XfJ7iJ7RPDzZDpnT76x7HfVPlTt ndT+iq73MmNE9WUqL+v5J6j/Nup/nOyP1Pa+yu+q/8F4V/1jfoPqf6k0Un2s +k7WtV/UNYfo/Pdlz5P9mex/dL/vdb8pfDv1f0jtico/av9Lxxrq/PvVf5zs SbJ/Vv+56j9c9R7q+qD6/k/tf6l9vY6Nkv237PWy/5R9up71SpWrdHwg65rO f4T1RNfdV32+ZC1RiapXVaap/pLKEvX9QaXQvX5SeVXXupPfpPO/i/4tg2Vv qPpKlddk3yX7DO6lcrXuN0j2d7rWVOaX6hszXnT8Jz3fStVX6pyFattSZUPZ hcoDal+n9t9U/1XtI2X/JvtX2WsZD7r/17rfM6r31zV/kT1f9njZV8neQNea rrJU9aN0bCO1/azyuup369iZPJvKtbrubbL31N+NGaNq311lb9U3U9lQ9boq HeiLD9Cxe3gf5e/5TvUj1L6PjtdU2Uj1PVVGqL5Wz7tWz/uL7H/1fD/o/i+p fqvOuV/ta9T+i9rXcA/upRJU31XlT/VfpP6TVb9R/dfJXhj97W9gjMn+Jnps D5B9u879UNf7VNf7XMc21LO9rrJCbUfL/lX9P1P/J1S/WsdOZe5SdN51sn9T ++dqn6D2a2SfwlynqP1a2dP09wnZW+sex8p+Q/0nq//l6t9M9pzo+dtS7Z31 DNOj/WUD2SfIfl/9pzJn1b8164+u967aPlHbfB37XM9aUyWXXVE5SvXhan8s 9Tc+UvYtskemfsa7dP7XshfLXsIzFKW/UL+Wuv7dav9G7UvU/p3aV+n+n+j+ 96neU+2Hq99AtQ9LPWYOk32V7Ntkj+Eb6fzZsufK/lT2c7LH6Pob61hTnX+Q 7J1VtsEfqRyq869Q2y3q/6jsqWobr/5b6lgr9T9E7ZepfrPaH+H59TyP6nnO 41y1H6D+O6hsLftArqn+vdT/OvUfJfsetX0r+zvZ3+OD1X6T7PtTf9Nhal8q e7nsFbJ/KMd/TV17Mx17RfebpPtdWvHzr5H9qewRsnvLbqy+j+v8F1KvQe31 7NeoXKfrDlH7wfpbR2U7nlflNZ3/rM6/rGK8sbQcb1uoXlPXmB3tb5rpmmfL vkPnzlP9S9W/1jlvggXUfoSOnaJjH0X729Nkny97lq7/oo5dXfH7u1Pnf662 r/FVOnaQ7tVd9jWsFbJnq/8U9b+m4vE5XfYzsi+pGI8cqP7nqP+V6j9Sx95V +0tqv7bi9Xu17Hmy75fdS/bHqg/S85yhcy7QOUN1//mqf6X6QjCe7Cm65mL1 PUx2x6qx1/6p58TXut5busZg1l7mi/oeqT6NKv8t68nhuvb5KkdV/c5Yf1uo 3lbtGzNn1daX+aRj28verxwfC6mrz/7l+PuGsSO7XrlefS57N9kv6npdVRqo XhNMV7X/Ass2lD1T9YY61kT1wBqpe12g0ljHtpLdS89+TuZ1jvXt3OBj1DdT +6scr/paXLOxzr1Epa2O7SW7j/qfH732MAafU/9O4Bv6cz21fVV4nWZ9pu+C wusW5xyheh+Vo3W9LXX+HuX6/Jnqu7CG6fpDdM7ZrLc6dpXs26KxUz3Z58se EI2Fdpb9KGNF578ge5K+0WVqvyUaK+yh9itk3xqNNeomXqvX6P5NMq/Z+OZ7 M88T5scF6n9jNFasDV7P7UumVoxHGuncC1WO5bsxRqr2p0DCI1mzwXe8Y9Ub 6NhA8KnsbrL3k91f9p2yu8quL/t5ndiZWEL2Jip7lf7mC94N71T3Wph7XWU9 bSL7UpV2svdXnxd0bhd8Pd9PZbSuf5+u3131AxKvDeD99lWvEeACYpOLK8YH D+bGDs/Jfkr2geV6sIi1kDWhnA8VxnbFOLGOyoUV40Xe/+sqc1S/KXEcxFjp VHE8xLdbXBgH8w3vUd9nVaarrV9inLmLykWVEm9G40l+H7/hLtWfVpmWOj4C 17ZRW/uK8e1otb2iMis1HgEXn6D2MyvGxx/IbiK7hex1am9aNZ7bQPWWOnaR 7ve1nm+Ojm2dGOeeqD6dK8a7vJ/pKm+nxlfNqo5/aqjemvGq878pHBcQDxxT NT7cUO3Hyr5S7QsLxxHED3foWk+qvJTaP4NLT9I5XSrGp4yVi8C7mcfMlfqe 1+pYm4pjHvxpc/U/Aewj+9Lge3BtMPQmJb6aA1bSscuDn5FnI6aZDA4Hf8uu cEztX+r5/uA9Jo63Gukax6hNpyW7l/hlvuq1dey84DnO3AbzbVvi0Q9V30LH nuU7q+yg+r/6PW9mXgsby/5ZfXbGVzP3dM4Mtb+TeS1oqvY1ar9M7bcX/k58 n+1K/PuR2raSvWOJnz/Wn1rYYC/1f5FxqOtdrOe7PDp2qsX8ZW6qfyr77cR4 tJXsk5hvzD+d10/2dHyfzp8s+3rWVNmvyL5G/euqXM/aJfsq1XdXuRJ/Lnsf 3a921fOG+XJ1ZqxyFb4ste/6Ts93VtU+7EriPjAF81PtQzJjFLAJ/mhA5lju dtnHp14f9mXtlf2Vnvda2fVU+sk+ijGUmbvoX3F8TazXUL+he9Ux3w2crzIE f8icY60BYzBWZd+SGZOARcB3xIY/6nm7VR0j9lfbPio3Vxyv438aqK0+vrBc f+rL3kf2gsRcwPc6v3PVnMDgzD4dXw5e6KNn60uMyLPJPhc/DOciu5/s3fU+ N696HWT9A9ut0PXOqxrjEbstld2z6hiO2HmZ7F5Vx9DEfstl9646Bhyoe++n co/q7VLHiifpnudWHTPepLYDVIZVjFcGZeYG7pV9suxa4OvC84r5hL/breq5 wJwAa3XW9fpUjbluzBzr3lExPma+7aq2nWR/qv4Xqu+Fsh+mb2ps8hOYoWqM cltmzAnWBC8xn3YBK8iep/NvzYw5wZrnqv3mzBgI7NOB8a/rX6T+o2UPYs1U 214qg2Q3Tc0d/aD7damaQ4IrOkjndK2aMyL2ujMzTgefE5usKhynEqNM0t9a 6ru56h8kXs+INZ6S/VDq9f1K2U/LfjT1+g23NRHfBObX+VuBqfhWiWPLX8CT mWPMn8r14ZjMMeknYGtioIoxZs8Sv+CX8Ee35Y5lnlR9VOrYaXVhnoAYCv9A rPq86k9z/9zYd5rsl1PHRj8XjkOIP/rqew+M5t7qgKnUdrHK8Tpn18Sx1srC OB18fqTqF6m0VvsuiWPV2zPHIcQf72bGXs1U/5X4Wu0P4QtU3mdM6HkGq/2j ijHoLNk3yn6n4hhlovpVZWey38H/6fwHdKylytuMf/UfRExTMecwR/ZA2bMq jsFukH2p7MfxvbK31u/7Vcdq6FjUsWtVv1j1saoPZX2QfYnscfheOAxiH9bb ijH6G7JvkD2D38Z8kn2T7DkVx6g76vr/5F63Wa9fzR1bv6H6bLU/rOdurTKX 8YN/UPsAtb/JeJCd6V2uLRynEZ+Nxq+qfKL6R8RY+HeVebI/lv206luAIXkX ej87Ee8W9hP4h5MK433mePfEscMS2WdWHUPwrb8tzLvyzTkOl1U/dTu4Ce6z QWr8NDwaf61kHKeuDy/xFpilo+p1CnMZ+OAerI3E1qk5QfwAseMhqf1Bh6pj z/1Sx1ysa/vLbpN6fWNdO1B229Tr25fR8f0FudfPxdF8TP/c34tv3YU5mfqb 8y07MQZSf9NzGMeym4BnZP8YzZcMyT1/vo3mk67LPR5YRw8GE6VeT7+I5g/O y71efxXNX1+Uez3Db9RTvUVq/4Ef2kt2y9T+iHWmjuzGqdebjoX5Psb8yMS/ hd/EfGXe8iw8E/gUnLp/NCYGCz+p/gPgAqLxP3HAJbIXRK8/rENbR88Z5soI YijV/1b5QPYjiZ+d38D6xDrFXOjInEg9Jw5UW7Uwl/cUMVr0GGVsTpB9dtXc yaGpY07WVbj1RqnXV/zgjrKPTu0PD9b5oTCXM1Hnd6qaazw8NYfCt+CbEG8Q dxB73R6Np8HVrDWDZJ9e8ZrD2nST7DMqXqMYG4wR1mPWZfzmUbr+aan9J76h nexeqX1Ec43jmbnn4luyW7Cu5J5rMyteZ97JPdd4hxdEx7ev6fhy/Fl0PDdD 9srE6/jL6j8z9XrOs/GMszLjO56d3/BWZjzIOj9V/d9Mvd63kv2R7Pmy3604 Tpsge0rqeO3YwvwCmOQ01mPN99ejx/LJcCK8D/h4nbMG/636zSrrZf+Ret2d q/rnqdffmvif6N9+H5hd7R+r/TO1v4fPlD1F9hupcwpbqu/a6Hdzfxkv11D5 KfH7uD46vv8iM9/VPzpe/Coz/8q35Jt+LTuAd1S/Db656nj+HLXXLcztgnl3 Yy2En6s6vgM7nKjn6ZEaQ4CdjsN/p8ZQYKsTZHdLjbHAFUfLPj01vgCnNJZ9 Zmq8Ag46lBgkNR7qpvvXK8w1g7F3VH2wSl51vNCrfJ4Omf03/MdGKqsSf/+L o/mGt3VstezusvcszHXPTcxPbKzyS+L2s9S+S2Eu+F3Zvcv30TEzvthJ9VtU YtX8Qlf134N4peKYY5don8q3HE2Movr66G/3MOer/mf0WHooMXf5H4dZMW6u r9/+cjSeBlfDdcJ5gt/AcT+ofQO+n+wTZX8lu1LY/+CH7pa9LDpeIG54UsdS Yhbmj+53CrFRNP4EhzYlVo3G4+ByuDQ4NfA+uP9w4qJofA5OBy/xrn+Xva70 d+1VfpP9e+p3S/xBXoF3DNcG5wZ+BceC13iX6yoe/3zbvwrnFfjGjLX1hfMK jDnmFhweeJ85Ble4NBovgZvwpXBo4GV8KtwsOT3iHeKeSXr+36PxBzikn+qL 1Ocbte2o97EoM3fSTu0bpMYh8P+zE+ORR9XeRuWLiteAxWAl9TlZ9kap8coD Kk/gLxNzNedmzvPB2fyUeV1kfcQ/k5djXWR9JD+Hb/6zcN4BH10t8e4wXXOM 2rco+aBxsp8Hb+jv6mi8A+4hV7AqGs+Aa/Bd5KzAa/gw8OgTKi+m5tdfU/2f aPwKjiUXSk4U/gUeBnxGLnqi+l+RGH+NgiOQfbnszdV3is55DN4k9VwhPiKP wpypzVwonJcgH8HcYw6CNxuX4/F01lrZP5d48kzmZsXr47bq/3thnhl+ub3O 3blw7mKW7n9OOf/PyBw/b1EYP8Jbw1dvVxjvkfcl39ta529ZOJc6Xf1r8n4K 8/bw9ZtzfmGeH37/Cb6bylKwiJ7nVJ2/feHc0Zs6/yTZ28heLvt12e2in5ln fSMxFgGTgP+JA7qV6wW/EbzcpVz/TyO+kD1ef09R+VH9f0i9NrNGMx4ZlxMy 910me6naT47+jfy2GTp/QWbu9sSK1+8mat+4MHf9vNrHqL2typcV+xB8AT6B /px3dumfTlaflxK/63VFmTeiT/Q74t1MTRzP3ckY4VnhO+XvRqhPD7CJ7MfQ H8juKfugxL4ZHw3fAu+Cb8ZHw6/AszyWletYxT6wVfQ34ttM0/nj1NZO5VvZ i8CQmZ91sexvZTdU/xqFuf7J6t9I9kaFufPnSr6FsbJK9mr1P0rtG6p9gexn 1d4heswyVpnzXOvH3HkErnls9BhjbL2s9rG61kkqi2Qv5H2qff9gXwPHXaj+ ceEcCs8/g9izMMZF/7CE/HAw99FR5Ve19yBHnzrf96r6HlrYv+Pnme+7R/OJ 8Irgg+XEn6lzvODHtVXnGrnGZJ37XjC+B+eTT4WTgosip0v+FM4LroucNf5o ddXaBO6JXuBz2Zel9sn4hy9kX6F6V9XfJfYK5oLap/Zva6rO1YKZyH/WAb+o PkFlL9V7B8dSC8Bger7DCvcFZ+Evf6k6lwtG+131XsGx3DAde1H2E8HcVnPZ v8nuGRy73ZtYL0LOkFwMMcwLxJbBXFazcn78DWeROr8BH42GpEnimGoSviqY e26UOJf2TPC1iIsY3+TkmiaOudC+jA3Ov5CHQc/wGbg4Naa5Q/bQwroN9BpD ZN9RWFeAnuB11feI5qfhqfF15xbGDvg89DHk9FrJPji1r8PnDc3NZ0xhDQ3m 8lok1qegESC3BOZHK/B8MH4Hx7+ktonB12qZWDvzSPBvIY5EfzEfHJ8aky9W faWOXUh8xG8E2wfH6s+kzuf9wHhLHdOR711PTiF1joz87t9w/qlzipvAXQTH gviUWrLPDI7t4JzJh33P+EkdE+JbDiycL8XHkG//Ue3DU+fUyEdHXWNs6hzq y+q7bTR/D4+/ijU3mCu9Q793V7WdHTwW4czBR9tE8/fw+CvVv2twLoX84/Zq 6xjMFb2qMk/tC2Sfqnqf1PHbiqpz68QA5Mvx2fhqcrJwvwcVzifDAZNf30Dt j4O1VSqsvcGxKWtoJvukYG7sEeYffiuYex2cGq8t0rGbeD+59Tlfy+6fGlOj N/lG9sDUMRR6kgX49dQYHNK8TXBs/EDqfOGnau+b+jelam8bHLs/mPpeK4K5 Pu6J/oFn5NnIKRPP8ht4dvwA775DMJfGN+Ddtg8eq7xj9E+8U94l7wQ9zELd Y0DqmAF8+QlxIc+Tey3qHsx9syb9LPucYG7s9tK/oEE7JjFHgd6MOc9cZ04y 95iD9WT3yawleoaYI3GuCK0bmjdyh+SG0OKgEUILR+7jPtlPVK2tuzizdunx qrVc5HrQHqHJQ2tHbmZ21Wsuay16phGqP1m1Vu3SzNol1hjWFnJLz4GHq/YF h4DpCq8fnNso9/xkfSJXtmFu7QyapsaJc2VDZPcLzgX2zqy9Gle1dotcE7kK chbkXnpkXntYg+rii2XfyfyvOhfYV/ZdssdUnQu8MLN2bGzV3CJYFe68ZWEt ItwBXNhZvKPEnBjPwjOhu0FvA3d6VrA/IvYGa3UujB3+w1yqNy+8vsE9gfW6 FsZSYD6wWKfCWARMBt4m8btHarwOV3ZM4fcBN8Z8w7/hf4ZnXj/AqGib7smc 620QnPsm50suuH5wrpicMLmwg4JzUeTEyJ0dHJzbIocGdweHB9b6Nzc3d0Qw twpHRy6xUXBumJwi2o0xwWMTHo2xMbtcn/fOrW3BX6Ft3Cq3PmB2+f3hpNAX zKpaCwdn9az6zwlug7d6U20zgrlz+AX43J+JN1Ln019R+9TgXMwJibHH68H8 GhjkI/QOwbmj1qyJ6v+O7Oap+YuZst8Ozq2cmvh5nw32LfBK5C/XqGyTOj+J /m46/iq1z3lL9beCczmnJNZXvFO1NoF7kF9bobJl6nw7+bhlmbUcfKMbguMn dCXoSdD/8Jv5rfwG4rV/VHZLne9+VW0vB+ea2iT2z6wPYM9Ncn8P/DfYdCPZ 4wr7UHwnubOxhTEG2IJc2OOFfSa+ktzZU4XvwbXJdeFf8bdoCWsRFxV+57xr cnPgB/w32tYtcn+/WSU+2TP395hRrl+75NaPoIFFqwonh37mjaq1tHB26F9m lOsFHOVEnie4Dm9JrHBY8NwgZphU+Bvy7citPVP4m/AtyL1w/hslnqmdO/fS qvD94Qrhk5ZVPX/Q6KAnIwYl9kQTtVb24uDczlWptcRoipmfSYkVvwvOrYEZ WU/3K6yXRDdJPoNvzLdFM8b606CwHhZdLPoI1iuwEhpX1ubjgnPfrNHPqd46 ODd9WGq97viqtRXc435da//Cek50neiHWY+Zn7um1kqjmWb8MI5Yy48N1gaw pr+o9rk61pv5lVs/wXrJesszviR7ZLDW4MjUfN/HYNLUnBV6kNGyN02t2UO/ wRrJ2rg08fpbv7B+Fh0t2ls0uMxf5jFrefNgboA1/Qa9+8Nl75SYc6gh+5Rg LAHnsLHsU4O5cWJ0tMdokJmfa8r165RofSc5iC9k1wzmg+CF0LPgL8GqaIj5 7V8G5xp5B7zblsHaBt4x37ppMFfCN7+fuR7MhdRL7d/mB7+LNrn1JviXOok1 5PiWZsFcCD4G39oiWBuBj0Uvcyvrb2rN8XtqnxucuzwrdXy7ORgztaYTX94q +Nvi09Hr3Bmsxc7AK+p/YLBWu3nF76ZhcO6Ld8S9jg7WYnDPu5lbwecSM6BH elj3+D6xBquPrrdfMLeKxgruEU4UPqxD6X/3KqzPRTOA/92n8G8hBoBLhGOF /+pY+vO9C48VfOggXfvIYC6aNRI9yAHB3CQaCMbKUcHc9dYl3tm38Fwh5kDP 8yj4JPUYu07nHxrM/aL5ukb2IbL/TazZABuNCta6gJHQ+y7RsSGpY4A/9Q23 LsyHnFryk3wTvsUxubHn8uDcLxi0X7kewS2jaWCuNQnmJphz1wWPZ7S3NVJz OXC6xOfE6eCnAwrr09Gpo1+cUDWe4xj7H8Bn4BnmeEX1HQrzSfBKW4JdCvOR 8JI/6xk3LcwfwCPAdcDJwx/AI8DFwMnDr8CzfMm3DtYeXJ16f8OHYNDUOS+4 HDhg+Co4HfY3gOe6p85Jsf/gA9ldUufMpqnvIYXXUnSP26v9RDjg1DnrHsRH 0dqUHSvWs/WO1m79mJj/2jVYi4ZmF/yC3mWJ2rpl5i92C9bioSmGHwKvkGtE ow1/tTPzq+I1gPdVOzh/Tx4fPc9V0dohxgR4CP0OevKeJR5Cr8P+il6ZuRzG P74bTge9D3gTbQznoO+5IlprxDnXl+MPXw3nBPfKGGFsoHvZU21d4Ogq1nBc W45PYnU0RuA3NHu8i+6Z+TZyuuRy0Zy/UJiTgItokjvfiWYDrQaa6qngucJc Cbp49O/gQ7hLNK31VO8SrNV7L3Vs3jk4N0+MTj6PGJbYFV4UffEc8FlqjgVu plOwVg2OBr36UrU/lzqGvbRcf9D+oPlqJnvvaO5oVer8yt7B2ko0uYzfusH6 GnQ25Cv2lX1IxZpY9E5oDtAaMAaIHxYFczVn5c5f7CG7XsUacfTI37EOpc4h kq/YK1jbyTsnv4JmCK0QGuPtVG8bzc2jibiw5LfAlnB2F5frEdgPTrcO947O hexU8oVbMf8r1pzDn6FZQauCpp7f1ik6d8RvPB0uMJoLRtRHPnLDYK6WPTBb qN4imhtGMwU/iGYAbh7NO/zuNrJrVKzhRxtzXHQdjQxtx0fnJuiDvqxNdO6C HD3rA/fg2lk5N86Izi0xR9CicQ59yevD7R0QrY+G42N95J3xrtCR8O7PjtZO 8g3I124QzB1yDvliOEK4QTTj5G9jcHyExhx+cpPgeGgZz4g/iK7DF9eQfVg0 N40+biPZR0Rzw6/KrsfaFZ27QwMFP7ppMDeNZhs9Gj4RX4iPgs/eIVgrx5qE 9hCfg69BdwdWaB7NnYIZPlX70dH7qdhXNZf4KfpbsW8pV/99o7naF3X9quwG 0VztlMRY6fNg7ROYiW99SDT3zTefT2wX7dvZtwGfu1lw/MU94Qq+CtZGwRmQ O+lZmLslhwL+w1+gdb8kM5fdvTD3Dqf9bYmXBiXO4S8t+Qq4BXJKS0q+6+bE OXy0uWh0wb7DMufC4a/gisiJLy75rZsSawSIj8nH8y0XlLkn+ItRiXNQx0Rj MLAXY35ZyZ/AVZGzW17yT3AfaACJp9EkwdXer/tvUni+vJCYg4Y/JGfG2rE9 cUj0mGWsMuZXlesTXCk5otXl+ga3Sg6JvSrwY3DP7FlZU66HwxNrYMglwY89 kDinFAt/L7QC5MQYf/N07Hv91mfK8fkJeIZYh5g5mv8dm1iz80c0v0PuE41O Ung9HJdYg4NI/N3COfFHEo+nD2V/IfvxxFoJ+PJHE2smGF8fqf1LtY/Xsf9F 88ePJdYwkeuCLx6TOOdFrpGcI2vdTnpHaeHxyrXR9KzTsTcLaxDIp5NrZX7x 28hRkDtgPk5KnENYF803PphY8/QH8W9hzQL6jv/Jnl1YQ0D+tyg8f3k35GT+ Vfucwjn+0YlzucwXfgs53T/VPrOw5gE9yk9V663QILCfiNwz/pPcNDlocgHo udA8wMGAXdDTtc6NYcjN9SicSyNHNyoa37PXkT2bY6L5ZeYPe0YejubTaWdP JFo2NG1wr3frPo9E8/PwZexJBYuBZ95KjMnQe+KX8c8dE2Mn/MXbiTEUesfT c3Or3RPvDYWvhj9jz+eE6HiPvX3s8RsfHQ8Sf7Mnc1x0/Aafwp5R9ooSDxxe ng82IyYhFgGjTYzmR8C6aLxHRscf8AXkrNBnEvcR+5yjY09F8yUNE2vMH6ta D82e2F0SY1f8xczEGBa9LLgYfMz+R2ID/B1aMGIEsCn+AW0BGHWrwv6JtY8c IFgb/8TaDuYmVmA9R9tAzAD3DKYES8JBE6uDccA2xOzkUsixkFshp0JuhpwS uSQ4MtZDcnxgyQ2qxr74e3wHGBi+jvzbf/vJco8X8mNgy42qXm/JWYOtNi35 O/KfYLG/cvN35Avx/atz50rBu/gucqZgb/w5vgAMzt4z4tmBSbkHTe+vuc7r lHp/Jtgd/4MvAcOTq4bvgU8lZ01sCYcAd0CMyXpHTvyh3JiMfNIM2W/lXhP2 jLbR+ZGT+lvtswrvaUNPtR7+q/CeMfRUf8GPFd5Dib4LPnq67Odyr+nkKNjf xV43MCV5evZLsbcNzoR8xCvg/9xrBPmrN2TPyL0mpfot7xXes0Q+MlS9Xw9/ hcYS/4u/WJn7HYAV2H/BnjMwwyXBMT+xPjFsRvxReA8T+U+wBPlM9myBKfCl +Fh8Kz61Ivv9wnuOyJ+CFfDx+HYww0XBHAXcBDHziNz71y5NnNO4L/d+tEsS 52QuDMYQYAdi7u2i3xc6dnIyO0S/D3TucPzkSNh/d0PiHCX5BHI69+b2iUXV +xtZr8CU8AVw8r9lnrNwWXBacGFwZnBtcG5wpXCoYC8wCtgEDAa+Jwc3JrcP nJZ7/+6NiXOW6C7YP3dx4pzONcExC7EKMSv8BRz56swc/fjc+wXRVqCxuD6Y E4MLgxOBz4GjX5uZg7w2mIOCe4JDYd8B+20HJM7J1o0eH+hayYHuE+3/yDsT Mxwa7V/RDYCZDo/2v+gWwISDcu9XOz9xDu7G3PvRzkuco7s+tx4TbQc5t/Nz 67f6Js4pXZNbn4nWg5jh6tz6Q7QtcALkIshJxNz7ffrm1u+hBSCn80Uwh8Ya CsZj3UXP1SXx+ts7tx7sgsQ5qva59WA9E+cg4SPI2VRz5yh65taT9eHdlTEO erFeiXOuZ+bWE/ZInNOC64NDgDuA85tQYkK4wHqJuQM4SbjIuon5Lp73sNwc KbkacjYhd04E7g/ODq6uNv40OObEp5HDnxnMucK1wnm3yq2PZS83HECL3PpZ 1jLWNPww+tXOif0x3Cwc7W65OWhiWa6/b25O+ebc+zP5/SPUf7Ny/JI7Jmat H41/0EmAufNy/pALJYf5ZvD14X7/09tXzWlvl3sNhbuGw942t0+E+4YDr5nb B48P5sjhxsmpTws+Hy6cHANcM79/99ycOlw6/TfLjQmmBF8fbpycA9w7HPzm uTHGU8H3g2snpz0huB1unpz/4Gh+bo/Ee6zYD0GeEOzfLbE2Db6Sb4dGjbU0 LfEhWn32cwzO/e54h6x1lRIPonVnrcxKvIi2nP0Qt+fOhTInwKJgUvAeWhXm IpiUtZg5ybsHg+LP+AZgOTAdeBHtDXo9Yjj8H1oefA0+B1+AVp21mDWZtXpF 7rWXNZi1eFlufV8IzoehfQFLginBj2jTyL2j72eeM7/Zz3Jr7lwvcwx+nz0W cFcH4BOi80fNEu/5IffOfhHWBdYDtHPkf/iWaOiej87nMDbZY8ReWfJFLRPv mWUvBnsyyH3flVm7iD6EsYuGkf0jl+fOZeMjyCeyJwdubD98THQ8SH6HPSFo IeF7ybegiWStI6YAD7HmsReIPUFoFY7MvV/pytxaBXwSWkHiQ/IfaAbZG0v+ ntwWe2RZK4lZwDusmexXQddCroI1kvie+Bxfvyj33orjg/05eyzgF2qV8fzv ubEWmGu07Acz6+vQ9Pyn5cm9luPz/4u/cu+tObnweocWlr1E7QqvX2ij2SvU tvD6gNadvURtCq8naO+JR88Ixv5okcHjJwf7L/aYgF3AMMRr7L3g+7QL9i8N y/d3XOF8HNp49pqcEOy/2HPCXqYTCq9XaP+nReuVjk+854z9WT1yr8XMJ2Il YibiJ/ZSoLdEU0F8zN4WYhdiGPLF7JUAS4GpwE7sFWE/VrfcXCs+C1+NzwaL Lc6NdcG8xFIjM+fK4bzwA6z/YF8wMLHaiMxaFvab4VfwJ2A9MCC+HswHFgYT E4uNyhyrEbONT7y3A20C+7Hwa/gzsAoYDiwCZgHLgAHhC8A07H9Cl4FWAsxA fps9duRu6+aON88rrJ1G43pHdP6EXBZ7OhkP7LlC+3J2bq08egz2lqKZZy8A ehH2prIngPw3e0bIFe6Qe28y+QpyH+xRRs8N304uC43+0Oj8zL6J93SyN4T8 C9iFPSLsTUB/0j/xHgXGI3vc4Ao75B4P7HFDS3Jsbu0wfH/XxBpixit73NBy tM09XtkDhzbleLBNdD4L7INGEK0u+hbWbjS7/N8i6I2I/fg/RtAKoz8h9kIz jPYZPp5YCg00+Xf2yJA7PC+zfp98CbkkNLZoL9G7sJcVDSZ6f/IluyXW3KJt Jj9JLIrG+Z7o/AdYgz3SaKH/y28m1kTfHJ0v2j3xHt67ovN/7JVmzzT5f/YU kzu7QM8zLFpPBnZgvyzrB3u00EbdkXm+sccLbdRQ2f8HZqW4Eg== "]], Polygon3DBox[CompressedData[" 1:eJwl1nf01mMYx/Fveup5kEglDdHeU7TUDw3tX9p7+7W0SEZDxo/KSkpaVkbz OJTQiaJFsmdZpcw41kHi4HWd7x/Xea7rfX2u676/93N/7/tbZdSUXpNPSpKk kBVjs4onyd3ZJBkB9gQOF02SVeLH8ZKZJOmLjZN7EGucS5Kr5Cuz8dgKbDVd Cbo+dGOx1jS3YGcWSZLv6HaxqeLptB3lL6Hbh92OPYAVYL2xn7EjfnupH6zf DexOPT7AumCtxQPZFKyvOFG7gr8Am8w+o8vH8/lXsrlyQ8Q/4HeQb8A2svHq Ghp7jPFayLU2/rVYM2ws1g7rjPVR+y+2TJ956iZm0udqxSbSfVs0fcbr1V6A jRO3V9tV7aNYU/XTsfPYRGwdzSP4BP65WCn97sBWZtP1jXX+HZ+PLc+maxlr +hv2id/u+nVWM5bNMu5Emka0V8i3lG9D/6nfHnTd4jnZHLoqdENjrem2Yruw Wti/7G0189S8gg9WVw3bI79N/CCrpq4AL0FTk1WlX0vzNF5Wvj8Wm6l6rB3d 6eLarDrWna4s9k08h7GP01eN+WIn09Rg58ldLv6Sv8C419EMYMvo1qmfIj9A LoP1pDvMn0c3Q9yPLaBpgE/SvzwbQr9U7ZpsOq+Y30nRT/wIfkom3Wux55aI n8An8fth/6l/UvwUXjqTssjNFN+E9+Z3wb6gq4SNMu7fdOWx0nJdxQf5N5jf GLw9q0s3Aa+INw6L/S9+LNbSnvxBrx9ZVv9etPfyl6p7XI+F4jw2GTsR+wib Jr6ddmCsrx778X76FcFWyd+ldhpbL95MWy6Trl+s48V0i7CqdP+o+4yVpRuA LeGvod0i96rf19ha8/tL7XK/ZWlGqP8Vz2HF9KsX7wFWWdyENcU6i9+PddOn P20r1hF7AxuOdRA3YlernWfsQWp6yL0V42MPZdNzJc6XM+hOjnXHF4mXiZ/U Y4N4dTZ9p+LdOhP/B+sW55i4ULyU7gyaX9hOupuNsRq/yFymYJdgbbA99Bnx 92wbdiO2OOYdewrLi/Ms3g+6o+Lz8fv4eWyL3DhxbePW5zekO4s9Q7cj1lmf IeIZcuPp6mAN+Y2ws2MNsaa0h+KcE38kVwbrgv2BLca+xlqKc7G3+PnG/Uqu IVYEew/rhh3ERsY+M0YprJzaE1h9ugR/N/Yn3QGsuLgZ/iX/LrqP5ZqLs/iB +D/iWeVmYHWxAvHprJPcbv0349fxa2A16J4X78Pr8IfpN0uuEnY8OP827Fm5 CuI/2WtYIbYJK6F/W+w7/j3Y53KnYRdjx7CF8b5hL4j3G6MeNhybjeXRzcbz +R2xT8xnTC49Y+JcqY5l4/ykuRBfLt+R7ZZrK56Jd+d3oDmAH4s7AL+ffyl7 UW6nXpvwa6MfVt34LXPp2RvnbSu12/Ff4w7Al/E7xJ0nN1pcRX1lfrU4w1i3 XHqWx/ldoNdlbIfaD+ku5I+Wu5W+DvYfe4c/H9sltyjOe/VT4/xho+UqivuE NvY83Y/YHL3uwUbG2Yodoe1Pdyq21rgraGez7XLt8Er8c1i+rbI39mOcO+KC uDf1aE+zh99Pfq5eNeUeijODdoz8OXF+YWWw4bQ/xx6jLyp31G9vbBg2k91t /FV092XT+cdzFMffpOsU7wO/U+zlIumZcRnWOM6QTHp+tBEXqi/DP6b2Vfaw Xk3wq4um92rcr3vVdsBqqasd95S5L4x7P95/mopsFN2luXQd4tlnB6fdqv9G 2mnyVbEK2FvYVmwOVgtrgJ0Qt1C/StyZ7Zf7C2uOrYz3hb0e95f4NHy9Oa+M 7xL2nH4bsKnyVeLuwlbE+Z9N5xXzK4a1E5dUfyj+y7grsKexl2KPx51t7tfI DcylZ3mc32vjPIn/gGYo/ml8G8V7mqTfM91jf8T3Vyb9thmWS/+7+L+K6fcT frNe9fDxcUewPnIHaF7GC/l149uJbhBNOex5fdbHO8zmi+vjV9KczQbT/w83 zTJU "]]}, Annotation[#, "Charting`Private`Tag$4189#1"]& ]], Lighting->{{"Ambient", RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, { "Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{0, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, {{}, {}, {}, {GrayLevel[0.2], Line3DBox[{779, 958, 1338, 959, 2156, 1340, 963, 1001, 964, 2161, 1355, 1004, 1005, 2164, 1362, 1032, 1033, 1369, 2275, 1052, 1053, 1376, 2277, 1072, 1094, 1073, 1383, 2280, 1097, 1127, 1098, 1390, 1130, 1160, 1131, 2165, 1397, 1163, 1193, 1164, 2170, 1404, 1196, 1197, 2173, 1411, 1224, 1225, 1418, 2291, 1244, 1245, 1425, 2292, 1264, 1286, 1265, 1432, 2295, 1289, 1317, 1290, 1319}], Line3DBox[{780, 961, 1339, 962, 2157, 1342, 967, 1003, 968, 2162, 1356, 1007, 2195, 1008, 1363, 1034, 2210, 1035, 1370, 1054, 1055, 1377, 2278, 1074, 1096, 1075, 1384, 2281, 1100, 1129, 1101, 1391, 1133, 1162, 1134, 2166, 1398, 1166, 1195, 1167, 2171, 1405, 1199, 1200, 1412, 1226, 2246, 1227, 1419, 1246, 1247, 1426, 2293, 1266, 1288, 1267, 1433, 2296, 1292, 1318, 1293, 1321}], Line3DBox[{781, 965, 1341, 966, 2158, 1344, 971, 1006, 2194, 972, 1357, 1010, 2197, 1011, 1364, 1036, 2211, 1037, 1371, 1056, 2221, 1057, 1378, 1076, 1099, 1077, 1385, 2282, 1103, 1132, 1104, 1392, 1136, 1165, 1137, 2167, 1399, 1169, 1198, 1170, 1406, 1202, 2236, 1203, 1413, 1228, 2247, 1229, 1420, 1248, 2257, 1249, 1427, 1268, 1291, 1269, 1434, 2297, 1295, 1320, 1296, 1323}], Line3DBox[{782, 969, 1343, 2269, 970, 1345, 974, 1009, 2196, 975, 1358, 1012, 2198, 1013, 1365, 1038, 2212, 1039, 1372, 1058, 2222, 1059, 1379, 1078, 2227, 1102, 1079, 1386, 1105, 1135, 1106, 1393, 1138, 1168, 1139, 1400, 1171, 1201, 2235, 1172, 1407, 1204, 2237, 1205, 1414, 1230, 2248, 1231, 1421, 1250, 2258, 1251, 1428, 1270, 2263, 1294, 1271, 1435, 1297, 1322, 1298, 1324}], Line3DBox[{8, 581, 1907, 23, 282, 1674, 38, 1448, 53, 1461, 68, 1475, 83, 1489, 359, 98, 1503, 388, 113, 417, 1795, 128, 446, 1819, 143, 1520, 158, 1533, 173, 1546, 188, 1560, 523, 203, 1574, 552, 218}], Line3DBox[{257, 255, 1916, 590, 259, 1932, 606, 291, 1956, 620, 1957, 309, 634, 1974, 325, 648, 1988, 341, 662, 2002, 368, 676, 397, 2016, 690, 426, 2030, 704, 455, 2044, 718, 473, 732, 2058, 489, 746, 2072, 505, 760, 2086, 532, 561}], Line3DBox[{786, 984, 1349, 985, 2159, 1351, 988, 1020, 989, 2163, 1359, 1022, 2203, 1023, 1366, 1043, 2216, 1044, 1373, 2276, 1063, 1064, 1380, 2279, 1083, 1113, 1084, 1387, 2283, 1115, 1146, 1116, 1394, 1148, 1179, 1149, 2168, 1401, 1181, 1212, 1182, 2172, 1408, 1214, 1215, 1415, 1235, 2252, 1236, 1422, 1255, 1256, 1429, 2294, 1275, 1305, 1276, 1436, 2298, 1307, 1328, 1308, 1330}], Line3DBox[{787, 986, 1350, 987, 2160, 1353, 992, 1021, 2202, 993, 1360, 1025, 2205, 1026, 1367, 1045, 2217, 1046, 1374, 1065, 2225, 1066, 1381, 1085, 1114, 1086, 1388, 2284, 1118, 1147, 1119, 1395, 1151, 1180, 1152, 2169, 1402, 1184, 1213, 1185, 1409, 1217, 2241, 1218, 1416, 1237, 2253, 1238, 1423, 1257, 2261, 1258, 1430, 1277, 1306, 1278, 1437, 2299, 1310, 1329, 1311, 1332}], Line3DBox[{788, 990, 1352, 2272, 991, 1354, 994, 1024, 2204, 995, 1361, 1027, 2206, 1028, 1368, 1047, 2218, 1048, 1375, 1067, 2226, 1068, 1382, 1087, 2228, 1117, 1088, 1389, 1120, 1150, 1121, 1396, 1153, 1183, 1154, 1403, 1186, 1216, 2240, 1187, 1410, 1219, 2242, 1220, 1417, 1239, 2254, 1240, 1424, 1259, 2262, 1260, 1431, 1279, 2264, 1309, 1280, 1438, 1312, 1331, 1313, 1333}], Line3DBox[{861, 945, 1314, 1282, 855, 939, 1281, 2265, 1261, 849, 933, 2255, 1241, 843, 927, 2243, 1221, 837, 921, 2233, 1189, 831, 915, 2231, 1188, 1156, 825, 909, 1155, 1123, 819, 903, 1122, 1090, 813, 897, 1089, 2229, 1069, 807, 891, 2219, 1049, 801, 885, 2207, 1029, 795, 879, 2192, 997, 789, 873, 2188, 996, 953, 776, 867, 1335, 951, 1334}], Line3DBox[{862, 946, 1315, 1284, 2184, 856, 940, 1283, 1262, 850, 934, 2256, 1242, 844, 928, 2244, 1222, 838, 922, 2234, 1191, 832, 916, 1190, 1158, 826, 2285, 910, 1157, 1125, 820, 904, 1124, 1092, 2178, 814, 898, 1091, 1070, 808, 892, 2220, 1050, 802, 886, 2208, 1030, 796, 880, 2193, 999, 790, 874, 998, 956, 777, 2267, 868, 1336, 952, 954}], Line3DBox[{863, 947, 1316, 1287, 2185, 857, 941, 1285, 1263, 2182, 851, 935, 1243, 845, 929, 2245, 1223, 839, 923, 1194, 833, 2289, 917, 1192, 1161, 827, 2286, 911, 1159, 1128, 821, 905, 1126, 1095, 2179, 815, 899, 1093, 1071, 2176, 809, 893, 1051, 2174, 803, 887, 2209, 1031, 797, 881, 1002, 791, 2273, 875, 1000, 960, 778, 2268, 869, 1337, 955, 957}], Line3DBox[{864, 948, 1325, 1300, 858, 942, 1299, 2266, 1272, 852, 936, 2259, 1252, 846, 930, 2249, 1232, 840, 924, 2238, 1207, 834, 918, 2232, 1206, 1174, 828, 912, 1173, 1141, 822, 906, 1140, 1108, 816, 900, 1107, 2230, 1080, 810, 894, 2223, 1060, 804, 888, 2213, 1040, 798, 882, 2199, 1015, 792, 876, 2190, 1014, 978, 783, 870, 2189, 1346, 973, 976}], Line3DBox[{865, 949, 1326, 1302, 2186, 859, 943, 1301, 1273, 853, 937, 2260, 1253, 847, 931, 2250, 1233, 841, 925, 2239, 1209, 835, 919, 1208, 1176, 829, 2287, 913, 1175, 1143, 823, 907, 1142, 1110, 2180, 817, 901, 1109, 1081, 811, 895, 2224, 1061, 805, 889, 2214, 1041, 799, 883, 2200, 1017, 793, 877, 2191, 1016, 981, 784, 2270, 871, 1347, 977, 979}], Line3DBox[{866, 950, 1327, 1304, 2187, 860, 944, 1303, 1274, 2183, 854, 938, 1254, 848, 932, 2251, 1234, 842, 926, 1211, 836, 2290, 920, 1210, 1178, 830, 2288, 914, 1177, 1145, 824, 908, 1144, 1112, 2181, 818, 902, 1111, 1082, 2177, 812, 896, 1062, 2175, 806, 890, 2215, 1042, 800, 884, 2201, 1019, 794, 2274, 878, 1018, 983, 785, 2271, 872, 1348, 980, 982}]}, {GrayLevel[0.2], Line3DBox[{1439, 1642, 1896, 867, 1895, 1643, 1898, 2267, 1582, 1897, 1645, 1900, 2268, 1583, 1899, 2105, 2156, 1902, 1584, 1901, 2106, 2157, 1904, 1585, 1903, 2108, 2158, 1906, 1586, 1905, 2269, 1648, 1908, 1587, 1907, 1650, 1910, 2090, 2189, 1909, 1652, 1912, 2270, 1588, 1911, 1654, 1914, 2271, 1589, 1913, 1656, 1916, 1590, 1915, 2110, 2159, 1918, 1591, 1917, 2111, 2160, 1920, 1592, 1919, 2272, 1659, 1921, 1593, 1661}], Line3DBox[{1440, 1644, 1922, 2091, 2188, 1663, 1646, 1923, 874, 1665, 1647, 1924, 2273, 1594, 1667, 2107, 2161, 1925, 1595, 1669, 2109, 2162, 1926, 1596, 1670, 2194, 1649, 1927, 1597, 1672, 2196, 1651, 1928, 1598, 1674, 1653, 1929, 2092, 2190, 1676, 1655, 1930, 2093, 2191, 1678, 1657, 1931, 2274, 1599, 1680, 1658, 1932, 1600, 1682, 2112, 2163, 1933, 1601, 1684, 2202, 1660, 1934, 1602, 1686, 2204, 1662, 1935, 1603, 1688}], Line3DBox[{1442, 1664, 1936, 2094, 2192, 1441, 1666, 1938, 2095, 2193, 1443, 1668, 1940, 881, 1444, 2113, 2164, 1942, 1604, 1445, 2195, 1671, 1944, 1605, 1446, 2197, 1673, 1946, 1606, 1447, 2198, 1675, 1948, 1607, 1448, 1677, 1950, 2096, 2199, 1449, 1679, 1952, 2097, 2200, 1450, 1681, 1954, 2098, 2201, 1451, 1683, 1956, 1608, 1452, 2203, 1685, 1958, 1609, 1453, 2205, 1687, 1960, 1610, 1454, 2206, 1689, 1962, 1611, 1715}], Line3DBox[{1468, 1717, 1963, 1716, 2218, 1467, 1714, 1961, 1713, 2217, 1466, 1712, 1959, 1711, 2216, 1465, 1710, 1957, 1709, 1464, 2215, 1708, 1955, 1707, 1463, 2214, 1706, 1953, 1705, 1462, 2213, 1704, 1951, 1703, 1461, 1702, 1949, 1701, 2212, 1460, 1700, 1947, 1699, 2211, 1459, 1698, 1945, 1697, 2210, 1458, 1696, 1943, 1032, 1457, 2209, 1695, 1941, 1694, 1456, 2208, 1693, 1939, 1692, 1455, 2207, 1691, 1937, 1690, 1720}], Line3DBox[{1482, 1741, 1977, 1740, 2226, 1481, 1739, 1976, 1738, 2225, 1480, 1737, 1975, 2276, 2117, 1479, 1736, 1974, 1735, 1478, 2116, 2175, 1973, 1734, 1477, 2224, 1733, 1972, 1732, 1476, 2223, 1731, 1971, 1730, 1475, 1729, 1970, 1728, 2222, 1474, 1727, 1969, 1726, 2221, 1473, 1725, 1968, 1054, 1472, 1724, 1967, 2275, 2115, 1471, 2114, 2174, 1966, 1723, 1470, 2220, 1722, 1965, 1721, 1469, 2219, 1719, 1964, 1718, 1744}], Line3DBox[{1496, 1761, 1991, 1760, 2228, 1495, 1759, 1990, 1085, 1494, 1758, 1989, 2279, 2122, 1493, 1757, 1988, 1756, 1492, 2121, 2177, 1987, 1755, 1491, 1081, 1986, 1754, 1490, 2230, 1753, 1985, 1752, 1489, 1751, 1984, 1750, 2227, 1488, 1749, 1983, 1076, 1487, 1748, 1982, 2278, 2120, 1486, 1747, 1981, 2277, 2119, 1485, 2118, 2176, 1980, 1746, 1484, 1070, 1979, 1745, 1483, 2229, 1743, 1978, 1742, 1763}], Line3DBox[{106, 666, 819, 107, 667, 820, 108, 668, 821, 109, 1390, 669, 110, 1391, 670, 111, 1392, 671, 112, 1393, 672, 113, 673, 822, 114, 674, 823, 115, 675, 824, 116, 676, 117, 1394, 677, 118, 1395, 678, 119, 1396, 679, 120}], Line3DBox[{1510, 1777, 2005, 1120, 1509, 1776, 2004, 2284, 2131, 1508, 1775, 2003, 2283, 2130, 1507, 1774, 2002, 1773, 1506, 2129, 2181, 2001, 1772, 1505, 2128, 2180, 2000, 1771, 1504, 1108, 1999, 1770, 1503, 1769, 1998, 1105, 1502, 1768, 1997, 2282, 2127, 1501, 1767, 1996, 2281, 2126, 1500, 1766, 1995, 2280, 2125, 1499, 2124, 2179, 1994, 1765, 1498, 2123, 2178, 1993, 1764, 1497, 1090, 1992, 1762, 1779}], Line3DBox[{1511, 1778, 2006, 909, 1786, 1780, 2007, 2285, 1612, 1788, 1781, 2008, 2286, 1613, 1790, 2132, 2165, 2009, 1614, 1792, 2133, 2166, 2010, 1615, 1793, 2134, 2167, 2011, 1616, 1794, 1139, 2012, 1617, 1795, 1782, 2013, 912, 1797, 1783, 2014, 2287, 1618, 1799, 1784, 2015, 2288, 1619, 1801, 1785, 2016, 1620, 1803, 2135, 2168, 2017, 1621, 1805, 2136, 2169, 2018, 1622, 1806, 1154, 2019, 1623, 1807}], Line3DBox[{1512, 1787, 2020, 2099, 2231, 1809, 1789, 2021, 916, 1811, 1791, 2022, 2289, 1624, 1813, 2137, 2170, 2023, 1625, 1815, 2138, 2171, 2024, 1626, 1816, 1170, 2025, 1627, 1817, 2235, 1796, 2026, 1628, 1819, 1798, 2027, 2100, 2232, 1821, 1800, 2028, 919, 1823, 1802, 2029, 2290, 1629, 1825, 1804, 2030, 1630, 1827, 2139, 2172, 2031, 1631, 1829, 1185, 2032, 1632, 1830, 2240, 1808, 2033, 1633, 1832}], Line3DBox[{1514, 1810, 2034, 2101, 2233, 1513, 1812, 2035, 2102, 2234, 1515, 1814, 2036, 923, 1516, 2140, 2173, 2037, 1634, 1517, 1200, 2038, 1635, 1518, 2236, 1818, 2039, 1636, 1519, 2237, 1820, 2040, 1637, 1520, 1822, 2041, 2103, 2238, 1521, 1824, 2042, 2104, 2239, 1522, 1826, 2043, 926, 1523, 1828, 2044, 1638, 1524, 1215, 2045, 1639, 1525, 2241, 1831, 2046, 1640, 1526, 2242, 1833, 2047, 1641, 1834}], Line3DBox[{479, 462, 2243, 1527, 464, 2244, 1528, 465, 2245, 1529}], Line3DBox[{492, 477, 2254, 1539, 475, 2253, 1538, 474, 2252, 1537, 473, 1536, 2251, 472, 1535, 2250, 471, 1534, 2249, 470, 1533, 469, 2248, 1532, 468, 2247, 1531, 467, 2246, 1530, 466}], Line3DBox[{1553, 1857, 2061, 1856, 2262, 1552, 1855, 2060, 1854, 2261, 1551, 1853, 2059, 1255, 1550, 1852, 2058, 1851, 1549, 1254, 2057, 1850, 1548, 2260, 1849, 2056, 1848, 1547, 2259, 1847, 2055, 1846, 1546, 1845, 2054, 1844, 2258, 1545, 1843, 2053, 1842, 2257, 1544, 1841, 2052, 1246, 1543, 1840, 2051, 2291, 2141, 1542, 1243, 2050, 1839, 1541, 2256, 1838, 2049, 1837, 1540, 2255, 1836, 2048, 1835, 1860}], Line3DBox[{1567, 1877, 2075, 1876, 2264, 1566, 1875, 2074, 1277, 1565, 1874, 2073, 2294, 2146, 1564, 1873, 2072, 1872, 1563, 2145, 2183, 2071, 1871, 1562, 1273, 2070, 1870, 1561, 2266, 1869, 2069, 1868, 1560, 1867, 2068, 1866, 2263, 1559, 1865, 2067, 1268, 1558, 1864, 2066, 2293, 2144, 1557, 1863, 2065, 2292, 2143, 1556, 2142, 2182, 2064, 1862, 1555, 1262, 2063, 1861, 1554, 2265, 1859, 2062, 1858, 1879}], Line3DBox[{1581, 1893, 2089, 1312, 1580, 1892, 2088, 2299, 2155, 1579, 1891, 2087, 2298, 2154, 1578, 1890, 2086, 1889, 1577, 2153, 2187, 2085, 1888, 1576, 2152, 2186, 2084, 1887, 1575, 1300, 2083, 1886, 1574, 1885, 2082, 1297, 1573, 1884, 2081, 2297, 2151, 1572, 1883, 2080, 2296, 2150, 1571, 1882, 2079, 2295, 2149, 1570, 2148, 2185, 2078, 1881, 1569, 2147, 2184, 2077, 1880, 1568, 1282, 2076, 1878, 1894}]}}}, VertexNormals->CompressedData[" 1:eJxsvHk8Vd/3P64oRBo0ExKJkpRGw1GaJwoNCCmRoZKEJJRQqSRTpkiUJkUy xD2INBkzphQyRSEkId/z3Pd4P16/z+PXP/dhte5zr/3ca6299jpn3zlmx3aZ j+bh4RkQ4OHhZT4//hlm/nVQp4eYD7dIDWMIeSI1lPsad2SUtVP5hp2vsnNr qPzH542KJ0ZoBNfk7InqbqDO6CU1vORrpTZLyIhHDEZoFN05kXTV5T1Vm7ZB NnxJBzVLZsLt1KeRGvOEF1zzd3lP37/wvT2MkVtOPHAL8kInVano7gb67Pky LeD0V/NMBY7Njn2ZzLj0vmeqgzQzbmzSlH0Y9/QgsZNW3+ZxcfDUPs4MHq6d vv6rE6FvrGOlkJVbQz9ZYkv0bQcmCwNfubZZl8GnnYNTCf7U8C2KsOeXlvsv xh5abHwsscfhYtvUa4z92zbfk2Tspxdy3kZDXiHzzwbzXVyRWwqcnBAzMeAY dB0wAD81nhrBDD+06Zb5hJ87/Vw++banUeP/hnJ2s3xGrT2lA/1REUl1VZph Got/2GWB19JMuQ9F/a1UmmXX6Vy+aspQatZTyI18o18U9ddR8TriKmcvNVEN zVI5kB9wlhvrGP+G4j/561yCWDtVlWSTDbl21etLp+Pf0KIPZXQhv/O2KRHy 20cOHi/ur6MF4nfEujI42zbmZEIe8qVWpbi/lbY5tKY+hxk3yfFJEuR2G4id 9FRpu3wPrz2cJ9+5do62OrQA+jsCIwVf8lXTz1j9etcnJsAffncrkcGnNVl8 V6ugxbDnmeqWvYw99C3WHumhBYdh/6VaR1fIy1n7i2ceKsJ8k9cYyDDzpQvZ +d45510JfnTlCnYw/NDjD3u8hnyzFpfP+xrLfnnrh3AUWD6/8z7fh/WKm6yk 7PDDXyNug2w9/Cs6jIcD/H0HvHeq6ZRQOgrddZB/Pfb66Ky6Kmrvnqr0sCVf KKW79US+rWp62rKcbKr12TKT6/YNVFpY/RfIOzI2zl6Zk00HRFmsgPyV50MS B/vSZh8Rq6ui7y8+0RnK4OzYRXPHdb03GvxcKlm9XBXjTrhN8M/xEztpr1yt jD2+2hz/9Vw7ObMdhxg76VzrEF1Gn26J2vQV8qsmgvrAbxBsEmbspNOv1NZC nsmvVLeCsUfhbPlqxh46l7Vn4LZGF+xfX6KiB7nF71+NkG/XWXYe8zWa1xsK HLvLdBPkR0/E5IIfGcE/yxh+6O0sPxZ8XD5r9EUXBBT7ce6wfDYnTXqAeF88 9cUol0kuGqVzsknc52+rGoX1tZoqGX0gJZWKy/pI5JFHrB7BHp69Puvz1r2i sj1yiVz/k0XeNIN4KvTKLk1O7jvqiSVN5N4Rj1RmGcTTFsunj4P87qp+IhdR 1Tq4nJmvwavmZ7kMjoBQFpF/nh5vwYxLH7gUJGzKjHsrLYrIJdOJnXT4pZk/ 6j2Wc+6ydh4RnaYP/fHxTYsYfdrKbv48yCfv7N8N/AQnvjcMPu2+fgvR9//3 5ONMxh6BZ6smMPbQI/Y0BstKTGfsl456sBryjjf5RD46xOcl5nuk5dtSZr50 Fjvfj4dKJoGfx/e3uTH80OnP7Yk8+hmXz18vAmee53HijPDJc0P/EvLVzkXT BTa2nea8lFX+gTwakObuivia/zSXx5zBCcvbReTlaf6z4J8aS9dve82Mu0xJ jMjffS9eDj4D/CaPzWHsFAxcReS7vurfnc3Y72IsVJDNyM2WhRK56EP+IgaH emeblZHP4JxJnUbkS+z86plxqd+T1C0OMuOO8VhC5ItuEjup0rDzZ9yql2sE s3Yu4rWugv5YbdPrjD41om81tTId+Edyc98w+FRJJ9eexoH12rDn++OCasYe 6sDEhUQu2TZ0A/YnHnUVYOynxh5/R/aT7TK8izHfh0VrNJj5Ul9+9xH54UyP q+BHfcX6j4fghwPtRP6A5TOII7vx82QnjRE+rRy5+1H3H32rFw3+nJ3e3H3p uGfvUcSv+0bNf4gLx9z2dZAbKayxQDwenRT3M5yJI6UV84n8fGvxEfhPmhjf bH8m7m5cdCby4FGPCjHf361OfxGPW27LEHn46tFm4kw8enW/kANOMg933OI9 154x41Jevnl1yAOHZ0kT/eHTxE4qYaeiRaKAjoaaF1d/+znpx9A3OPRzGHnm lYIPkd8fvLGJ4CfyqjH41DMW//P+5OuwZ5x79xDy2GbWnqcKu+Ng/z9hv5mM /ZQfa3/OMT0PzNcm9WM1cBTZ+c7QD3YGPy5eo74hr671/rCG5FWWT3O3R7ku tX4aO1g+L2zn7u/hr60eeDqFcZLTuPu84RpBJewv6evbPiPPm0TN4WH2c2oW v9Iw8uErD+uL2BeWyi3/B/263SLWiF/1tLg27CMbYheOhv6Sg5fb4W9rPfvT IT+zuLUP+q9D9ZPBT8zC6H7sU9nbjvdDLnp3cwAzLvXay1wV+1qd6D6Cf2gn sZOqWK/1cdsnfY1lKVw7z7f2XYT+9Leahxl9qpbV/yObexv4G8vP8WO/1px3 guhXO/j4wx4eY/Es7MtOrD1n+gNfwf7fOlktkFOieX8g70zIFQWfp5V/OgPn 3XaVAcjjM21VwU/p1Q0JqBOOy78hcjW2XlrHc96ifmeIxmOWz/1svYSyjqnr OKNERh1dbKLHkf9L6jo6xpjUdfTgxb9n1z3Q57z6TOo6etUeUtfRN4pUHtRs 3cWZeo/UdfSJTFLX0Zcqn1FX/+lxrCaQuo7SuEjqOnrSYSktyP+x/qnO9Uu6 +UpCJHAOsnyqcHmkMxQuXcW4xEymXtLdQeo6DQchrp2egaSuo1brkrqOCpjZ 7wv98CFS11EdX0ldR62o6boFfINbpK6jvDaSuo5aEfNmLex54UvqOrp+G6nr qH9zhDUhHytH6jq6o4rUddSMfXXxwNHpIXUd/dyb1HXUVU6IO8adN8Tlc4U2 qes0fo3n2nn3Orf+PGJYGgV/ztDn1qEJ5dfnYb08U1+Ww58trOfLQf5bv+oP /LniuZMH/Lmu+uh8yJWdA83gD8dnm9TDb/1NnslDfqLqYh38J8mi7THk+le0 FkCumJn2CP72N2paJ/xZ9rfEQsjNZzdcgn/yPdyzBP4sNe0xwRnhs+xtWQn8 meWV/mhy3R36Wh1L9sOfR/RvXPoVBnzT1t5/qBvH3PhM5JptXt6w5/gakWfw W13WnszZMzNg/yNvrc+QX2Htv5MRIwx/fv9q6Dj8uUntCRk3ul9bGfxcXeUT C3/2z+Xas5+t5/8+mWMMf05m+bxiHiyEfLJF+d1u5Of1x7bowb9mW03bD/yY XMEfyM8/d3GIvKLh/XbkK6PW9ELkVRufY0Q+yqdnL/LbmI2+45CfHUsCyPlA SeN8BvJhzs8bTcjPAqFWRP/QjD8kf7o26QsA58+xSqKfr9lM4l2PP7cY+Xl2 Xw6Rzz1C7KQ+fwjajfy8+CjXzkMe7wmfxfvX/0R+FmP1/dKrFIGv53V2FvLq waPtRD9Ryt4N9lxM7m5Ffp7o407kMWXvb8B+U9O1Y5CfN8pM1Sfjyn8l+9EJ v4404Fix83UTWnkI/Dz/aF2E/NzO8jPmMJfPiPJVScjPa1k+d4RzFmB//Hbj 6eMNTL0x52sQOSf5LxVXwH7amf73EbOf0s33bhO5yNuOL6g/j0/ijEa9wdfn ROQhJz7Uo15SPC96H3XFqcEwIu92Or8P+7sP7ekEOe/yK0Q+ri3IH/PlW/H7 OOqNxpeRRJ6gWnYZ/hYqliSKeuNYzhMiP32b2Eldfxa9GPVG7xeunXEJyp7Q l7i4RhP1xhohHyKf7S7hAXxpwWx31Bs+Fy4S+fAUowFxxh5x8W+uqDdG7Mnf uWUV6o2Q0zKxkI/YH733ZA/m27L1wC/gjGHn++OkgQr44bc4fh71xgg//Syf YQpL+z4x9YYUy6f0xSdTcN68TYkdRv28dUM6OXd23X6CPECVfTD/h/p5alAq kc9TjuxBPam5riYA9XPFtEQi32gYMwf155jcvbGok3Uzy4k8oSouCPZLL7Vw gDx691Mir26WvAv/iaAEBIDjFRFF5NbqT3MQv2GLfC1QP4dZlhL5vmvETtpp 6JpmA1M/S7B22pz1fgF9/eZ+P9TPfOaPiPyRcpE/qX+SrKei7pXOyCJyWx97 NdjztMj3NOrkKNaeHZ4bXGF/16rpMZCXHX5A5N85B8Yux/kl5YkXcEbma/95 vA34MZ2UWIb6OcEtm8hrWD7LhINPoH7ewtopejKanN/nNs/Rwnmw46XIB/j5 gdiphTjvFD3jO4C46BJJIfL9sxd64Xw0897CKpwHWw7+IOf+n3yW+eB/gXzD UcTjmUcTiP7Tmmgl1J/SNzy2Qv5gtSoX/3u5O+Ix6PadicCpVComOHx1B6cg Hqvds9cjD6h+VSHy+47ETnqq8aKPOA/W5HDtfBBqQfLnHQ8DM+SZePFhoi+/ WZvEe+i+WdI4x9Xs5tqf5RHWDf9U9uXVRh6Tfq1A5L8cVQifZh+2W0Puwtof FHIjGvOdz7MrBzhN7HyXnUktAz8eRg7rkVc7WH78WD53ao1RxXmwneXzqW8c 6YfwLNRvQ3/j+M05QagvlgTeJef3prL7XsjzH8c+C4ScE7ufnDcPCxxdjX1h h/g/om82YDwB66v7ddwV7CPSTtZErnjF2Q/xdUPVdB/k53r2hUA+brezE/iZ KpzxAPtU3M/uG5Br3itbjf1lUve/ZvQ3RPVWEH0PP2InHX4suwj9jY4grp3v BR3JfrS28PcE7Jt/J2qSvk6iiKU58LsyOtOxz47gpx+auRz2LLHwMca+fJa1 R6H7EvHPOZ/TvCGXZO1fc/1EOeZrRRcuxL6/mZ1v5z3XevCzcSB+H+qEMpaf fVe4fG5JLvyL/sYRls9zbH9p1j9uv+7IGI3jNiJhHH+2XydrxO3XObzmk9JV DuOM/sTt143W5/br9m7K1PfrCuX4xHL7dffSuf26VrkDSuazwji1bL/O3ovb r9ul7knkq5259fwYT24dX3/eaTdw3rH1ZzLbrxPRUCHjSrP10ku2X3dkNNfO NnZ/T2f7dfMclYh+NduvS2P7dWeemBP8ArZf92Idt18X+dKd2LPoErdfN30L t18XdfcQka+R5fbrUth+Hd/sEjLfNLZft+ICt18nnCpIxt32l8vndbZfd4Dl 082b+rnf6idlpDj/4ksmf67orAsMYMZ7nSiusOhQC7XyWZAG9t+GwThbyPfM 8ZaH/NxanlacQ3O7hp1QBxRUJRSDxxPmVds02yM09lg0uELf6rrkUA76nrqN RC8xoWoS+oqrj8p/Oj+5hrK2nlACP1/1zOsw9DfK8h+wu9ZAaYms0sf+rlXy 7zS+t7pKewl41xb68wPzs8y9vgd9yOliyyfHhl7lBNZwx59hzh13Xm/Pwsrk ciqRR+4r4sXhYaAjcKR6G0xelF3juA1w+Whj+6tH/1rcuDC5hnYN+H4I9si+ n+ELnNPr1DrkOD6cQGpVP+ZRseSNK3DiQnz+YF2dJG66wx6RBX8MYI+6uE8u ww+tIRd/FnmyU2HIADg3S+d7VyWX08vvm52DPbu19pwHTtHRmDCsX9p7yUSs Z7xz+wzwc4xqlTW2+klvG/4VTzPr0iu1JBY4adfzPzH80DtrtsxDvs00m054 9ZpbJgT/yC+2tvNj9A4aV0ehrzsje48UcHQGfISymH2ni8UZH/9RG3Y6bqgu wv74SNfZAzhuT/TGAifCP6+EwaEP2QURnAd/455B/+t9f3/k1Y/svEzNNmyF fHXQTKlXzP71kMVRmBR9mdRrQ0teId/fP7uMzCv6yZpD4Fm0Z91x5A0plmeZ Z73FmJeKa4cW8nMqO68N3YJvwPO1XAFfcv6YH0F4vnnWWCl6wIfTyF13ejK7 7kvXPbACz1ab2v2Rx07qWhKcnV25EYOnLnI+ctedbmHXPS/nMq8n44ejXma+ IvltSpo9cDJKlPJUR3lyPnLXnS5n1/1D23kj+GHmtcIG2DMQU0/8sP2J0krE xcnEzoWot0fiRfAQvQF++O+9VjHs2RXueQ44xenNwsgvvHPEzJEPpk6+Mhn8 fHGa2Yt4bEu7OoWJR5q65eYPHJ6Piy0RFz2/7y1Fff7p03TCc8WTpir4fV3x zx83mPWqPWIbifWKrObGw/i1n/LNtUM5Omw8SgeWLYKddpZfbqCO3RN/kvBT IvrSDH6ZenS9YjVjb55anTPkf4671SNOTYKf6qDe29c9vx3+nqvGjQf9fxOu al8P1vi4lMvP86nWQegLi0RYTjrB2NuWknEG8t3jzy4FD4fdMlJRDwhra7UB p2exrQP6mz6y5Qdh14XFK8i8PD+dMc6Y8ZpqtLmXiX1tb6PDd+hv9Tt3BnWz kseABvQ/eS4h9r90NE5/98CFo79mkhrWJ/J5JMFv6538Ev7UQr+8Cv7G397s Df13y8zrMme8pncvaDEAftG6h0T/82f5JKzT2JP/smHvK4NaYo/K3afpzN90 TckiQdg/1kuB8BChyfWPzDbZsqfduzhurJ9cDBCYwfgVLag66yfqzAO6Swm+ 5Rfh+8C/erqyGXgvWfz0O39Eof/H3k4T9Z7AjPFEf/SEifGwf/mVjijEh6Ts HTfo822re4jvH1zvMQv10og95R9Fl4GfdP6ItYjLVQWZhJ+ryt9ozDdE/7g1 M196eEFFK9Gf1ZsD/svDLE2gf47lf71izCyRGac497h80rdYPpW2didhfRWn 3h7DrC/dzK5vz4NON6xXunFoMvBH1kus+sch+FXi+jpexq/oCbxPif8b/1u0 Fvz+tdWJg/0CrD/sUuf6lYrz0NZIyUBOJetXjkdntcAPp652+Inz0Ygflv3y 7bYRuMbxVYtYMknfhsPL9lmWq3P9YJ7WlP2imy5pTE7h2u83s7n3Z70PR8bR Tedu1fn/6W8JqN+y9JYLJ+ahuUb2I9//yeNk/K3rxy1W/97D3TdG5EH+jmOX 3XLRCFPxK8j6j/4avu9+HfU+Gsayg5fi/oO/QtBKxlbgmsYjUX798f+xc7GH vwTkhfEbnjJyjRH5qRNzTgPnvGV1KIPzP/nEQfsKFWbc058lq5lx/ycv9K9S v6onr76Du7/9T16Uc9AS88oNTFXI/o++6IwN/8BD/pOtq+7+B7+O5S14vs5v c0tvzkSWt+bxr3+C5+rks28n/sdOlzu5Acjn8QL+9ejPz/9RRvbDqA4uX/XO 51KWemhkjuhPu6EUiPz8anBWAert3/+U3KC/d/ByDfzTUXWsNupDv8MuRP5P J+GCwVUXjbbbFoPYB2Ld7xP5hOOe5jTjb0O8K9pQx1qIXSXj+ufZz0T+qvkT LgX8FXxKRD6VxyifsZP6IGDpaMbYKRP3iMgfPr2UA3lRS/k7Rk7NZeUlyfsn AGe0FD+eE1FLzvGRcdObjTQwboXF3n70kQS6fIg8vKx1+aJZpzTUY4id1Iid KevceTnMvFqWNG7AuWCh/3wil1Q1iQAP5/ImvwB+j7sBGde1k8vbcJPmjtLC 1eojvLn9eB4Knt8WG55meKbkWJ79a7xfIW7XCXdZvWHiPoJvOAF1RF4kl6/Q l69qT5pe4szy4NoTfmbiF+SRfYpWkhFMXnGcfegJ9Deo/k5GPuHPf2uLuv1I xxZSjzRLnU+KmXNRY128bTj2cw1V6aeQvxY6RXj2VreaCX0DvVaC89duxj7k /eucFe3IW19OVxJ5mF/hL+Tr9UfcrFAn3B3nTOx8YPjuJ+R3jUqeMHJqRH7K Zcl24Ljli4xDHTiC4/PLsIfhjfoQmy6N89SeHS5EbhpgLBci5Knhx7WTUmft 9HW1rsS8ZpboWED/Lc85ot99yek7eKhuLRzN8ECdZHk4eYvLG7/AKMtVjt4a M1jedhrQ+SQ/rtKQYHimNjTVJEF/c+GEbuTzQ60Bachvc/sfExzPY83zUXdt XhiVi33cpiSN1GVmcVwevwp+CaP7gjlr1bh26qU/2w++jpxt8kNeHbCuJPLj 1hZ7MG5FnPdB1BW/Rx21Bc7VpdY86Be8n6o8Von5/55NAkRfZ4yYMPaRBtWY MU+YeqZs4+QT0E91Pz4Z9fqNa6VVwJNxus9dxy0qepPirmp82yYljLpPct0y G+g3rq4MAu/WJ9ynwJ6l4w8R/f3Owa8RL5fDukNRLxnFP+Xqi8hsBr+W1f90 4deq95MJDzJqNV1Y323C/rdRN17dGGQO/V33ueuUfmWep+8lfY3m1Vwezk/M PcDwRkXX3mpg6l56ccX2o9Df4FmvCXzp9k+OWH+NOxsJvm7ZZiPoL6EitZj6 lvqffoWpI+y/wy88B340Yr9957J62NPqvfg56vPrrD2X6KZs9LkO8Ft/xv/P Yflxbhl9E/Mt9bGMw7lgLzvf/edP7AH/+15Ij2L4p7zcZIj+it0PVzj98NFY vp3wSYmzfD7fOXAW63vN4Jsn7Jm4IozrJ+8fLsN6FbvnDQBfVK3oGPS/huwY gF+NWZ8TiDiTGRYn+DMKmsyxfptts3VwLhNW+mkPfcG7XL/qyFn9OH56oAbF +pVJzYHF8EOq+t9WnO/ehV2zgP6oyDPWWL+gbpcrXsz4Kur+xK9mz7wtDf3O i00c+K2EuH09zgFzt3D9IyRD6rladQTHdAN3Xl/F67ZgXQuVrVfAD7dduWMF +Z+DLTthp3SgrAn8VmpzdAtwRIbWLkf/6+Duw6cxzkdjXoLjs/b+WPAwS2lo GHbxjPv1BfoJQfO60ZfcetlPC/pTPvAeh36xvdt2+O3q5G1jYFfilKoG6IdX +4qAF98n7aHkHHa7nOifTe8gef6a05RA4AdUNddC38pkbAV4DzGaWobxJYSu HoH+I3XJdvjBc6PhCMzv+CypJujXsuuav3Pbt4+eezWMtbg8DDzUMYQf9iln fIbfXuxYS3hbL3bhHfAfJ84exjmjcVqJNfQLjlfoQ9/eP10dfuvD6k/caY3n ptQ0t7/3Mb4qa/9wl/Mn/L2jKuIp/t+WtWdYrDIQ/DQHNmwC3gSWnzvyhjfI fmd+MYo8p2Dnq7xH9Tr4P/1uoQP033wMJvav7l+xBH57hcsnlcDymdKqjfdC aPNIDTn4ue/3IUvoH/Ucuxh8edc39wK/+2tzHfQ7n0Y4gN/is6VmjF9RMzaX E392MvxlivXQ+lqwjfQThv+R+fayfnXvdNDdgyqhGntYv9q4TUQe633g3I71 8NtQw7Vt0Oe/tdMc+PNkLnvDbxV5fBshN985Ohn4QzVdBtgH4wx9yLnTOZHr H9dSQhLgt93TuPPq+uq9AfP6p96nDL81v/DlG+RBFsHkHHrzpZ4A9sfnYaH5 wNngIrgYvL37GWBP8rqLP+E/jWfwLvaXnpiNJtgHFaNdybjv4yV+YF1O2Peq Qb/qTg7RP/Nc8jb20yOrJLjn4ymVRH/vEn08p6H6qm4HYh6jn5o2Q/9A6yNB xP9Vb35B4Ne7phB7JpWHFIH3sae+FWAdUhYFEfzn0TpbkV9kJ6tXIN+cvNtF 8FWec9e1p+pnLfy2S5TLw8+9rV/hV3vr5htgX15nx7U/W39ZHvBFnAT74beJ LD6PTBPxwwtlp6OwX2ux+sXxS3/DL13vPonF/49i7W9OeqsBe0r6pnSjX7Ft 5S9i/2KlomvgR+TsprXww/IRfjZOaUR+N9j5eTLy/YmyawS/zUTwMvh3jzt4 FPrrWf49hNxnYt9/xuWTmsPy6XOn2QDrW1KUMgd+a8qu7z57y3ys16KuJ7uB H7ElltiT6+h3DH5lbvjPCH47j/WrM/xupN+yt8+zHfvJb55Cgr81ietXSQEf o+G331m/yoxdnYb1y/w9OBF1QjTrh1PWFdQjnz/PaYtHnWBgpEPGpbe4HUFd F/R44gvUz08KPS+jr+C1nOsfAS82X0adMG8qd17qzVWbsK583qXnsS+fkSkh 8p2qyqTvoZhSch91r2KKLemX+LhJdeH9nisr7Xphl6bJDaLv92/4EertPPEM SdTbSYUSRD9j6gNe1AmrE++8hr55njPRT9d6vgt1+P0ebj/mcT63H8Mp+OIB XgIUDflhj6cXV784wUUddbKMbFw26nNm2mRefRbdK8G728/D62BvmpwG4eGu w3A3qet8OaNh/9/RqUT/1GruuhaMpxxQJ7wT5fIw1YkvDPntjln7DtTzClQ0 0ZctNlsM/Huf/1gAL5XFfyq/NAj6k9caxKDOl2f1lY8cMYP9uTlNovDTC6z9 iwT0v+H7+pHJk1GfD1quJ/N1NpmShDrB68+iAvh52VhfbryIt07EfHVt5N7i XHAuWpbol5WrbkKd4FXg1Al9DZb/94f5RXBe+MvlkxrhUy1wpiXWt+D+5VOw ZyEdQex/Z6xWhvUK3lM6FeeIunEbiH6DmGEb/OrXGnMv5Ik9rF9VavaiTqJD AtUiYL/izq9kvotWcP1qY9btW6gT5rJ+lX7D7hj80MTx4y6cLx6zfni798vt Sx+Y83LFO8uT9w9zTLjnEfp8J9cP9OYPPsL5Qvo1137BnT8O0S3nOV9eb50q nO32P/1VKbIzf884xTmss/eBRZfX/+QiNnzKfA/k1c3Y/tx+Vn7293z3vhmn NA4vNtP/r76fJE89g68hVrKjetx/8AdOzStl7NRo9z+xy+4/dq6R1S6APOzD 5ruMXGNE3nw/pxI4a7+/7Gdw/ic3G5ttiHEn6cwzZsbVGLFnV2y+RqyWjHoS 187/ya8IiK3EvHbaMyc/Rn8ExylD/AR4mK/887fQf/CXdHF5k/kVoobzxRyW N7sZKnfB897oDvGT/7FTkyrjQ/59eFXwOPpv77Y+Jn1H+R9cvu5mnflqZLEy c0T/5KuqbeirmK968QZ9qnGqnUTfTJk6hf5MkbNuBfpdsoq1RJ4xkPQRfbOl P7h9zU/+3L6m04cjf+Fvp8oEnaAfXC70DfIhzzHkPLUiwFEC+Ge1Y4j+6IOu pI7d8kpbEM9zp5e0ETnd0EPqhMw5iwzR17LwaCDyOKtpb4BTG9iphP7PCM7q 1WfKMe6RcIPz6CNtX32ByO0MT6qgH3WBayddw9rZzZMUjHmFW68vhP5cdl4b vO7vAw89juPSgD+jgZ/Y/5HlzavHUXztiWXqI7xFN/iNA89C39vG47n/rMFY grPoWD3p69bajelDXnzhRJF+7ZRWLl9Ss9+6oL+kc4Nrz+/+k0fRZzy34o4V 8kpo30miH+vgvAr2TJs97wf6YdUCbkRuskyIdz7Hh/P2ueZ48l6d34NDkD/s 2xGG+HUpkAyB/tQn24h+ksi7FuxH2sN5y7Gf6jfWEjmn9t1h5Gtbo3ff0M/X ke87CLlQyAozyM88FFqG/X0nK29aEE/2tTDpgT3IN7tuvybjfqGDSN5wiUiL Ql6Zwo5blL60HP3wiSnETtqDtVN41yXC8wUv20bol7PzkmmjnMGD8bLaHehX W9x+QeQ0y9seo/uTDlt6c3awvL1W20yBZ1HPoCj0pTdftCd25q/NPo75Byzc vwb5bfBrKBk3IGh9H/rkdirm11EfHsl72I3+958kLo8S035GoS/tdZ1rZwrP sgfoW2YvCpZGXs0flUvw90XdU8S460z3rEf9VSe2geAofvK/hL7oregDp/H/ ln4LCU7SKLWv6EOeCxCsRH3Uv+P+H+iL8RdfRN91d8CV7dB3rOWue6hA9Uw8 n9r8zIn06Y0vnuqF/uFRdxvA+7q/grHg6QJPCsFX1qBJn6eDc9EG+INfKvug /+mNfT74vaQfWAW+jVYWEH1+X4M3WF+TQI9zqL9GP2v6Cf0Sdp0+C+1qQF96 IbtebooTyXnQKWtFEp4r6Wx8RvQtd3VwgC/V0jOAuBzB/2t6TgH6NYO+U/D8 SJvVz5WszIX9Pgq6T+FHXqz99lbOpP7hnWkdhPprKIlrj8PTBWvAj2TENF38 f1NONuF/Ypi9Lea7qczOEfXXX3a+RZK2leD/As+wA/QPs/xnGIQuw3OfEC6f 9D6Wz5x2+/dY3wWZq0i/ImfdR6L/JyZGEHE9TXdSAfA72fWKO1hyGn6Vv+v3 DNRjDSKrib4EX4o61k9h9jJlnFvLWX/wecb1q+y7TUboS59n/UrarHkIfvjd NUQc5+XAbNUe6G+L7FXF+l32mnIY9eS74ZIuyAdkbUrhBx95nU3wPGYgNYA8 z/V4yvWPaUXaenh+GnGZO6/hFdELsK6/Tc1FUMfGiyz6Bfkv9rmquR73ueoT nXfkObLp8rX8eA9mI+84ch7ct3/zb+gHsc9PH7PPT+WkNpPnwqLvk7PxftI6 7c2ToH+qas0A9F+zz0nnc9+vpBR4uc+LG5qLfpL37C/XnQBPV1u3dEJ/1E3u 89BK9nnoZplZBP9hiME98D7eJzEG65BgfYfYv+cY97mnbAH3uafr40nE/jXJ 3HV9/SV1TvTAXk6ED5cHHRnu8033Eu7zTR4eO8KbY15GOPAzezo/YJ95xOJv esp9jql/g/scU8LmJNF32HziI+wXCvM9B7+ij8oQf0hkn1deY59Xbj0qQ+x5 vOn5EfAjlLVjGuLgBMtPDPtcsoN9LqklIknme27iroPgf9fyNzjX0Los/1Vs fXOOfV91HstnyfcmDaxv3qqT/2CPQAD/X+grtXPz5Gw/bn6sy1lH8P0n3tgI v/qaULkM598c1q/2vuA+TzzGPk+8U55K7N+VyPWrr402hXgOGMT61a2n3OeG N0u4zw3XPPUj/Cxh/XMu65/nLkuQ54lPpf8pY1zniS7kfJTTkZCE/88S1FlO 3o+serHkTPwbal1jQh7eyzB8tVUG8wrIkRSE36rY+F4iz3nrOi0Qd38kPLPw nuCEwz7J0O9Z4taTyfCWtWWtJvyw4YfHFehbehQtRv2R/tPUDO9vqo/eFA/9 xmyfF1iXznv9gtAXSlc+C/2XHbNbr5f4cg6v596b2dnGvS9T+LqzBeueOOW5 Lfz23rtNjtDf23wmC+eTc/wBg3g/ZefPGRzoa25ahb4JnRBwPRx+u7l89lXo bzjZ3IU8ue+M/HjYbyw/SOZ75RP3OfQjXlcx+K3+Ie7zVgndNAvg6GouDnFi +Cn5/LIU+vatVQGQ874ufge/XcjinypbZgZ5/PNrvxh9mvf9sjLoq4gJVcB+ Q57XZ+Ant1n7+R5ZN8EeRaGSOeT+zeS3hE/FygYz8BNVXi4CP3wzLsAD+l/y bwdjvo+XW43Fe0Da7HwPfIsxhN+eijRZTfpyLP9RwtqFXR1enBdcPuntLJ+b I2bjHg6lp5LWB3u02fWdkP9qG9brsH69LvBvNe8k7+kMf7PRhJ8Y9fYsgt+O O1R3Bvq3xcPJ/p52qgDv+dLdtpVvoP9y0lc10rcSS6NdGB40Wb9K99IifiWk wL92VU42NeX0dXLfx2Dinyjk/79utz6J1VVR6mWF5N6QeEN98mqmTv28vlQC 6zVjeih5P0j9Q3Dc85TzHL+x3Hs/Vey9JHWxBxWoF8VFY7/iPabEmzoER2if 1WHsd4Hi7i14j0xq/q/PkEsu+bsN6zLeoK0A750NXMsn94mWPuYnfVHJYWNB vKdWNXCUyG/qVusCx3P562EGhx7B+bN1Mp6L05P3STfhvWlpgfvkHlaVLG+O ZKUb5w3XTrqCtfNe39tizGvV8z0zyHth7LyGesofgodJBTIcvDdXF5JA9Cce Gi0P3vwU43/jPb5vjSsJb9pNSX8Rd4M79xaKGcRT4xy9yXtSb52K7bD/vpvj koh5eee1E7nXF00jE6a+d5o39Qbe/5IfH8C9B+m3zNxQ2objkcq93/OUvddz tkn8B96bTKuatwj6Y6cUErnEUBR5fuG7puUf3jecotZF5G+u+8uhz5Mia7Nj BmNPtsdXIjc4clMa8iDbgFhGTo/I4yfc/4P+xrndH6bifcxLp1yI/IUpJwvj 9paXr8T7myPjukzk4W/JPMwp5dpJj9jZfrfOA/OyN/Twhf5WE+59pbFPnD3A Q0tGZSTwR3i4sVCQB/GS/KLuOMMbLcTyxtsqwUHcrYy/qSnJyJ/JS5N7N7cj hFxR/5jzbRVj/JYOTF5B5P537qSjf3EjVnYy/Dx+ZQN5H01a27u/l2OtERTM vcdzm72/o9TStAXnwDlHdybgvbwprrxEbhI5Swjnk+5cHxusb2H3DCLvv1Da gT6b4cbO17BT+bESkYeMHtcG+f3xueJ4L3hELiMSMIj+xoUk+izeIy5gcSr2 fxLDuO2LWhPx3rHAxiNEvsw18apb9WGNWq6dVDRr56M5GtWYl5yHEC8zLypy 9GYiF69ceQ087PuwRATxu+fAFzJfaxOvl+DNS/dbnQRjzwhvm8YU4L1wumVz VQ94m9E+ntzHGfX8azF5LyJRpkic8fM/g3nkfb2j/5QPI46qSsaUIy6uyC1e C3lqiGRJ7ThPDX7uvQ3ag71PxPtcwBX9kd6f269Af47E6fUk7tSPBuL8Rhfs q0QcHV4yi4w7szxiPM4Jb3qfOiOut5aaEfmrCfWCkI8ZlHzByKktrHxU2Ds3 4OxZO6oDeWm8RR+RX7GUNcO4SyXXBCMv+Rf/JXZe+f7ll8ktN40N7P0Sd9ZO ucnXz2BefoLy76Ev7ZBAcGarOdaDB8nO8GS8X39HOYbIpWI1u8Db0gMKCeD5 w1wDcl9JOFHiDvaXCas83Zj9mn7Zspfc09FuuE/e+5S9WT+6hOHBfMqkIcg3 mXd641ytv29nFvL52IBN5D6OyEo3u8XWvhomOtz3IivYe0MrfQ5KoD9VItu/ H/pjJLg4oj3ym9CX2yTasRM8H171geBoSr4uQ57//nTzP+x3Aobho9AP+/kp mfS3Lb7K73HGPWBWPqttaBVwBs88OwgeDrI41mEivei7JTe1W6BO4GXHXZ00 7vrsHi+Nx1w7qVLWTlsnhYeY14H1ISnQ52HnFeP9iZyz3F3cu4H/YfWEv5Dz mKncBW9tk7KkUOfcO51F7m29mk/qJdpiLKmXaJ8/L9bh3s38AFKf0/K7SX1O D3fK3sS9m2k1pA6nN4qQOpzmcA4G4t4N3cd9b2MU24+YKcy9d+MeRupqpq4j dTV9ZNLABehfsSP1M9VSSOpn2krALxb4YnKkTqaEy0idTHsu1FwDe6Y8I/Uw VR9I6mFqY2AgkbeKkrqX0h0mdS/1bYL2HeBI/+b2Jb25fUlK+mKwN8a16P7/ 9L8oUdbOxz+5fZln3L4Mpa7aewP6VzNJXUovnUvqUuqXgVko8K2ekfqTli0j 9Sflr7uH8PaxtjEIPOf32tnDP3s5D5RQZ5v4CZF718E6owfhP25ra8l7tZnD Ma5YR/spUcnwN55Z/uR+ULXyxcPwT7cA7nu4New9oHnHh6bAP/v/LdeDPm0j TORbpeUo+FX1CXoL8P+1PiH3fVoeD5Hnd+dnaf2Gf66uEyH3m4Jt2vC+INW4 aa42/FOVle+bOUD6z96fPI3gP0MsjuX5e3hPhaqiFYzhbxnsuLFbF/vAPwu5 dlJVrJ0fJtdGY17neJofQn9gJndeJXX55Jzec3ttO/Bto7YSfcPIqgjw9vqd ygz4p8ekSHLfSn6xWjnyQP2tSfXIn9KnvpL7L1K6vE+RN4IOvUDeoDs3jSXy Sd9n7EKeya6TQ31OizvcI/JYl4MZyJ8LLbn3aU6x933m5vXYII/xeoafgX7W HU0ij3w+6IC8t+XCBlKH/HCZS+RpvQHk+Wa93E5L5M9TnB7yHrT0AQ55flSX FBeP/On2cBzRf1gkRPrzdZ83Ig9TIzhSxfu0Me7Xo5nnwUM2O+70b/NLkT+t uXZSDqydarFK1pjXD+PZ6aQOZOd1/bJaHnhQebI9EvnT99BlYs/iGWbV5PlR iMlN5M85LG+Uy11T7FMS7uvamH2K9g4JJe9rz1ySr4x97dsN82/Yf7dt8Sby NbyPTbAPhlm2pGO/totxI/JVKWYR2N8bo7j3Zkax92Xy9rv04T7P2epje6Av Z+9H5FNLV5H3E4w2vSX3gOVKPYk8cPpUf+zj1T3Z9tjfD9Q/IPIl83Zdgfyc uEo+6jozVl6Y0vEUOHU2Vmuxvye0+BN5RUzre4zbqNRliv29TZM7r7TA4rXY 3xWjufeQeFg7Fzj2XsS8Hq5Nf0LuybHzSnacR/o8C9r8yb3qctNAIr821GAO 3q73WPhKkHtIEdx5PfQn547hFe/kUIdcWlFD3nNPNn6Ce+nUycdze1B/di/m 3pfJMDV5gjotTDO6E/WkxQ7u/ZeMyIsFqD9fXOHej5Fn78WkDu/ehL6z1ela 1HVUs2UhkU+TvauP+jNm0fO1wJ92P4PIPTbzk+fjvik5z1B/rjyfQOT7tcx8 IY+7OH8s7nuNyKUevtgIHBOXOj3Uh+/mP+feGypcJIFx759KDEY9uc0tj8jf TdE3RP05/ir3vpECa+edpu0fMa9jnj5N0B+Zl630h3Lw8OKXWD3wtQpzifxv 0B3SZ9h/8u47rLuEQhKRZy0TUEMcyemn74Hfuu+UIvcDQtLUU3EuMA1YROqQ 2RadRF7Jb5KPc8Tcx/2LERdLLvmQey4C9lvScD5KO8W9ByPF3n/p9HatRxzF 5N/8gfORbl8v997Qymnk/RYHDeM+nI9C3tQSuW/jZ2PE0Xk3zVrwXGgvS3Au TXczhHztxp0zkQdG5Nsq/Y4Ap+fVzEnIGzdZHGeFl7kYV+KCdjfOR/57eMog XxGv8hXnoy6unbQEa2fjusv1mNfFE3ULkJd+yp8lOCfSVd+Bh2kf9pO6Tozl YYrFX9KH0XqZMg550vuaJsFxPfVkDfL8sRIJdeRV2mYVubdyJua3Nc6t4nus 88Fb6rsQcm/lzsqDSjj/rvbJJHWI90Z3Ij8mtr0bfYlT17j3XfyCufdc6iWo 1ziPb1a/zQf9PIk+cr/mgXH7X+T5gwrjcY+Kctf/RPSlL2WeQp6f3NYYi36C icR7f8hP8Jyzg9xR1JuH2Y9ocS8hcn9n9e3IduDcrBiUJfsmi2M0fOgWxnW2 cRLBPviSHXe8rFUFzvsFXDvpq6ydD17l7sW8ti2qxv5F3zzoSsYddzmf9FFr oltx75zWUygl43qe1dwE3lymiL/FuSaN5e1o8vzC7TeZer8/Y36ISwblvXDv iRfxGdS6Y+ElkPf/vL002CWD9mHliybPIfJmA6sF0P93WTIyPT6D5nsfUAa5 kY7Ocuj3sHLD1EknXN93UNcVp4Wl1URo7B2e4A6c7HXiDpAXVMy5B733y/I+ UCvCNeLe3rKD3Hpj/C3oOfWb9l5eFcbpY/VrJuglHq0O5Tz5xP3eMVZ/Nav/ /s6sMuDwp3HH/f00JwH6Ouy4W1mcX8u7ImBPKoszgj/E2mMwwYKMyzfq6CHd 8O9Uq8DEA/tEKqimEM8N477WULyfxVMyjb5R/ZPLozjM5z1HJ2uV1hrq9qaO UXsYvYEJHQ343vf+MZrQ5+Ex/f+95xK2Wz7+unsVHbJ5nevnaz+o3t9HxF+G R2jMGrMlJDKqiRa0fabCfFJB240kFytGaqxwz01k9GinrX1xfu7M/rt6pxj0 7/DOTmTGow8N5Ncz49M7rA23YdzNOzo2MfbR04SKJuDz2ODcI7BzbHm0w15G T0ul+Aa+17Dx81boy58dGA3c83J0Gcax63owC/h207f9jmDs6NmbWAG7JvQd IPYs8TE2hN271LK2+TPzOL9lmNhf9OL44hrTesrw+L/yhY6FlF5F2Gn3ia2U XWiHvqXYJyqEPyj0CPMZxWv9yHZKK+Vs0OYjz+jVho/3wffcyv2I/oRxD48w f9MF0yTeKjgW0skz7Zwgr9/UI818ny6Vjy9j8Jj1O/oAOEkP5wYvYPSkc3bp 4XvztC4Q/WDRe+ZVym8pK3+1runPk6n6mdPUnFQ6qGGVTt0pY3Ip6a0WmlOZ T9s5S0dNX9ZBqertDp/K6Pma8n/D95b/61KFPmdwymPmb3pH+8FT054n03SS BcE5GqvUzuDQ/0zzkvD5ruUFD3Aso+zGMePRUlnjAvC9lxbyRD/n1rfuGubv jITXzbOY/3/nP5UPcq3ZbyZOZ75f71r2B59x6xXfTGNwguPLr89g9LyFLRw+ Md/T1nzLC33bg3pazN9UV/rDYzMZe4sPjiI4E4JTo5jvUx+rNI/gUzFYnuD8 NK0fInqf66TxPRUreaKfsN+/GXxdbXTlX8Tw97ZN4rMbw9vVD7NtwPNEs4wE K+ZzQsWHSeD52K/VNNZj7Kb5az4x35vIs64G+r3750oyf1OOdNpfZh2oiaIa nyAf3P5Qhfk+9Sa9oBHr/unc8snAqYoUyoV/6Nz7NQ7fq8/LIjhW19a8gl8u H5R4zsQdXaAef0WA8c9wR2te+PHnhMof+BTUmPhwCePPQXSmDvx+RnLIej3m e68FMn2h32sUNJX5m1ovUrCM8XdK36j0KuTj7R0CEbcJ18yN8KkmpX8fOLO6 Pr2G3so1vH8Qv1UGhy5DP1R+UAfxEBL2+Sz8/PP1nD7ZUH2OtQrdwMQFvVKT akVcxEa1lZ49sosjIf+l4hqjd1+k4TO+t0bJl38eo397tFA84iX7QWM54mzG mphRkHccmuGFOD8zuWkDPjc4FxCci62Czkx+oML41L3xvQkPPw5h3I7jLhng J3PN4cfgx/7N9DTGTlqjq3SAyUt0aqpOE/h590u5ipkXfTXs00bwY6Ulowp+ rr9OeAH9pdPVhMFPl0+bIubtvj8vFfKnf6yvgJdDUy318Km8ZVY1cB4f3Z0F Pc/6qz/AD5/4hHTo29u2l8F/LhcUtigyfqEkIfWDWUdaVYDShv8kK33yh/8c SBglzaw7nd+eEA7/+Tjv9UL4zyGXsnbo7+hxE4Yf1HASa+A/gzPWEbmU8aoZ 8J/Z7/+8hv/IDa4lOHITxWPgP0muKn3IG7/VXhD9j/vaIhBfB5b0RyK+Wn+Y CTJ+Ths9eFkwjYkr1Xu+qYivk3+PFzJxQadsFdFCfH0ZbhZHfE2ZuYXo59Y+ aGdwqNJX0+Yjbib76BH5WJvTxoireyGe8/CZ5X6W4CRekE6FXs4m40J8zyDW gOirjLnxCnmkZc7Rtcw4lK2txHLIF4pejkH+ue3W64P8805v5gBwvpqMakb+ KUvw0KpmvidQKkn0Tzgencr8TW/rFX2P/JMlPZ7Iqy2fKTPfp53Frvcj/yT8 liU4IaYFRsg/4+Wm/0b+SdzOxfl2yHct+NrQVfoL/OVNk7Fm8iSdF3jcFvn5 pM2zRPCsvlE0Cjwv8K+LQ372s318E9/rm7ef6MvN13fGuvt8O/gN6znP7bcV 5Bt6RFdg3UVvCrcgP7utMSI41efbHyM/Bx/dfRDfizV8RnD+Xq60gj91metb Y5+VLG2WZfYjWmiKRSb22VXShnfhhzFCUzYw+xdtdWqQ7LOjY059x/cKrwnL Qf/CxfB0xAXvjwOt8PfE9sfzIB+8zK+NeGh9uXgaPl8de7EOOA6zl5/BPti1 0D0M3wsr2i4P/R/zSLxTpjdJvFPrr75qubAtjHNoCYl3SlmDxDs1v3yn9bLZ YZxv80i8U4NCJN6pm+lzWqHfPTwO8U57x5N4p6V9xhJ5qxmJd/rkRBLv9Hf9 VQRHp5nEO90+isQ7Xby5m4w7V8c6hkevjZr1frGG+LEKSnu0jFp9aBV1Xzo8 6d+xRqrijW3hSaqREpSafCJtTTmVOsVHsiO1kppif+ruFKN2Sm+2SnZzfgl1 T6v/F4NDW12f+3zWsQp6qFVeEzhKD2O2DR9rpKNK3yxjcOhvS0SsgaPkk/mo M7WS3j0vcheDQ29csPodcPh8BzZ/SGmg+mdsvh6aU0SZWlm62Lc1U9/6yi+k z/tKSVe93j7n7BdK7hknLyqxiTJ9vE9pzu1Sqlhi6jGZ9kZqd/T9X9uMGyk7 ZbFzDA6tppCyPySniObd3kpwtu7c+4fBoXXKaq2lzn6hUydG5QDnw9zGQ9K3 S+nEpQkLGBz6Ba3XAxyLNVKb/joXU+Gl+43XVKVSwtOf3Kl6+ZMyCXP11yso pFaN/jJ2Sex7Smdhoargqp9UXPPPlbo5L6krdMeMjH0VVE7mgbm7b/ygysUF TjI4tMf6XeeoqlS6s6OY4OzfWnZAv6CQduwOm68c+54ey3lJcOw/8Tjo5byk zwxUlr3YV0EPOAkTHB+P/aLHd7+k3RQ9Y3ijEum3DqNFeH07KLUiy+ah2qe0 iEvR6E+Wz2mTij1uqDvNrHme1zpdpN+m3Nc/1vSA7ly//JpydwdVdbVhD4ND GZ98fHV0VCJ1QqFzPHAmnXro86/2KdUod8qtxvI5pX7DhOBMuLGytM7pIvV8 9xJ5BodKOLqM4By+cDoose8rbf5tztBstQJ6T8ebBx+kvlOKMm8aL7lU0jld 0Wuc7ato/1VKq3fItFEv/Y3jK2Nf0dl6qt914j/RL71jFbOF2qkpFQPvGBwq 2EFklrhaATVP7sN94KQerQu47FJJhevWhzrZV1Hxnz+vAo7f3laqOvYVJXJp 8CaDQ4WpRhOc8QsWHD//ppVebP1jb2tqOa1wrCJdd/wX6tlMOb93f+rp4Hqt 3uYNDfSzAqVzY2fVUfbvhZv44z7QQ1nyk1ykWuiiPr6ooMB6aqbDGJrBoXS2 1H1rTi2n+hUXpAGnf7TNrPd/6inVycdtGRyq73mTB3BWn72mJhj3gfr77FTB aakW6kuxaQRwepQlTwe7/6ADLYsfpntV0apTT69fkfWQUu37tsnNvok+vnV+ aN/5JlrOb/Gui5UZVNiTmJsfp1XRC5KUm/jlftCKY23fy/vlUSFSXqUMDjX6 7QXeNK8q6lG85lrg7O7d8J3BoZI3HO7/fb6JOi01agtwLvBtWv5pWhXlkC1z ncGhat5Tr4EzRlq/C3EaGzt0iYl3evDRn7CvoVX0JynHZibeaRP5N2MdmDiV kL5Cp6wpp/nfdG3tQJxmZjUgTo/La49pyi+hx6pcWjuKyRtdukJDTLxT+hlj I4HzImGsOxPv1FGXTzbIG3vOXyM4b48EfmbinSorzr2GvLEjRovgGFkINSFO +0PlQsOYOBXam//tRFszXW20tA9xGjOhS0WaidNMxUYZJk5p/5XC0Uy8059W jhpAnAqf1NvCxCl9S+aYZBmTN+ZNtTlyk8kb3q95CM6RfToWL5i88SCxk+SN lRwNWeAsel1TzsQ71aYyIw15Qz07iuBcX6xRM8DEaYq8+dh1TJwGrJc+zMQp PUvubdNuJk6NBuoNVZg43Vx98pfAqp/00j0ilohTm63Z1zOZOG328inSv/GD nnvfVmCQyRu/wp8vWMvkjdLqyQSnRq09cQ+TN5oG1nksZfLGHSsLgqP+9XCs PpM3ykUebmVwKIGvFwjOMctPNTZMnJb1nvjDw8TpPNVPS5k4pdMEgtr/MHF6 ui6Ov5KJ04OrA0KYOKXFXLbWvWbi9JeZ1AozJk6HrmWHMXFKBwUWSdgyeSN+ 5vTG4VuJdEF9OcExVcq73M/kjUDdw94VTN6IbQ0mOO+HGobfMXnDPGqeMIND G2+jCQ6PxZrvT5k47ZPQ/Yo4fdl9WalM6jst7MRTeJGJ0/xX8cqI07Ss7iQm TunR7XtPVDBxmjbxkYM2E6emX7zCmTilPa82SiBv1NR2Dc5i8kamqgLBifjV 54q8oS+k4ePI5A07ZeFnwNGWVeKvYvKGJk/PPAaHzhNcRnDElZMEEae1VA4/ E+9U393hjfrjv9AmF4tWMvFOnTn3KxJxuv+B6Tr+WXW0k12bCxPvlJmCWzDi 9Fj7GIPgwHr6RHHfHuSNha12N5h4p3k3OWwCTqPKl2zkjTklE2cibyTMV9cC zvbrQyUCTN5ILqvZyeDQuz7wEhyn9e62iFNq8fo4Jt6p+NaZkeuzHtJjZZ8u RZxa7ym8xMQ75d95ws6vMoM2lDnoxMQ71Ti3Ngdx6r1g4X5Fvzx6zq6iPOSN 1ZMdhlKZvCGxau1N4Ci2Pi1H3rDfaNjKxDttz9tmAxz/IO2pTLzT44dDbJE3 rhqeMQLOjppVNrAnau9EYs/sYzp/NjB5Q/j7uiWwR6Qixxv2FDxw0LnO5I32 uLDR4PPauY1DLQyfy5c2HGZ4oFqUufXJc3VufXL3rgc5p39P3uwA+8WTd3Fg f99KvQJmXOqEY4oi+D+92z4I/M9coGXA8EZ5s/WMB1vP9B73J30AHp4nk/77 +x4T2d954OHJIvIAVi7FytdcWm6Hddz7YexlrGP9+3G2DP+UXv5jDfBwyfOc MezJ+fm3Ffbwx3/4hHpjuWXuJuSfU/s1Sb0xiqf4J373I5j93Y+R33/g4ekk 8gBWXsXKF6ZFNoL/eau1y5FvI2Sk1cFbqY3KftQ5xlNEZJH3unOlSZ2jHNnf Aj8Rt3i+EnZmfQ08CTsProv2QL0ReaBtNvJPz5bFg6g3Gq6tK8S6V4aMK0zF ekXPFdjIrNfryyEDyNs9NVN8kW8l96mQ+qqiwyEf/lllf2UUeBYeuLQHPBcK neNl8h49VaxgB1PnUB9qX+aizlmzwy4X+KvqdIhfvdHi4gdbhu2G/2/fn3II +92ajvu2WPfoZE1v5OeihetmM3UUddyCzxV1lDNbfy5g68/VO3xJv0hfz+gD +JE09GyGf8a/mk34MbyhtgP4hnG+vogvl0thBN+WrVf/TODWq6OkjYlfGRwI FME6er0/YQl/lnT9SdaxLlIgDfM93ZUzAfEowedD5tvdxK1vT7D17ZtGedIv 6j2ang/+Hz2YsQFxWmA1bA3+xxZfvQW/PZEplQz8hFN7K4Gvc2nZZtS3dOdQ BPY7NcMxr+AnraJDWogXt/gZp7Bf12ivJfEilu+Xizr5ZIVRJurbgeMtdlj3 3IXTrsM/Jxn+ccW4IubXHTDuI72MzahXDeolTLF/dd3TIuvuoJl/CnFa2bjP HnXCR7mxvYjTHU6y8ajPn/DEiWC/NtQQ2oF1D9Y6ror4knkj4QUewn1O7AcP H7eevYo6ufyr90Jmv6OV3CXeYd3LQz6NRVwba1cXM3FNaz+rcAT/MS8O6aDe TinZtYupt+kg8X2kTr7+LcSsZVIzpW8aOmey5AcqwmvZBJPR3yiRj4+rkf/7 f77PRf5veauqxuRtSm3jh3/PY+uoOUln8lOYz11qzst0+L9RtUJjk7EvhC9t mIl94UBUMgf12+xQt0kTGVy+mtgijDNGPpbgj+L5SuIuiI27ypHfY4kOM8I+ 8suhxQD7SL3bqTuo98L+CTtOkvxAS8z47AYc5Q3Lp3FxstJw32Hf//mdEB6e +eT3Q3ay8pHfuziivdWHsZvmWf12Few3HFqyCvbfvGs8C/vO88algzuYcZ+s kI/DuP7bCm5g3590MCyfqc+pJHstGdTniwLS7jF20M9bfj/E/Lq1D0yHPe8u 6jtiX2u5ZGrI7GvM+gXR4GGpnuAp1P+RGTLjmfqfsuTMUkP9HyyyfAr2x6WR 2x8y+yM1qMtRBc9TJv9zwTni/tB9XeYcQa3M303OEY52L6Iw7ndV9w/MuPTV ywfJuDe3lU0AzopL4xuwz86JzVkNHAvTVhfM19Pbdgs+nefak/X64eJzGHYq KXBOYP9dYdmbCTtdt8XtBc9tuspXMM4NWzER4Cucqe5CPb/9q/o47MvGlyPJ uihP9F+E+Ss5+ORAn55USuyx93sjCH4rG8TSMK7PG5eVGPfYmNvnsb6ecrU7 gGObez0WONWeqXtwnjq5UXYyc56in0zlnqd8loSYY72/m5b1wa4zKS+mAt88 1PgV/O3VPnkext/ok4eysmB/o4r5Q5zXlvBat+GcdUf0NTlnzZxu8wX+HB7f fJXxZ/qxzwbiz3vrvbRx7ou0mbuQOffRCx/oEZ4142udUY959T+LQz2WoG+8 Euem15IpeqjHNO+VODJ1FHVomlsYzk3xrinHXjH12NbKzgxTph6j/ypE4NyE Lr27yGL1kf79yO8/EDk/kZv+V37Tf3bDG6Ye09Gx8gKO0Y1FBKfm4W2FegZ/ nukOcZzvLm9SI+eyibNShFDXTbq7samcsaf5tyuxZ3/m6Aic7zr+mJ1gznd0 /fPd5HwnZhf5ipkXPXpdowNTH1Jhx9TJvC5+9DHBOXFu6o+jzDmRtmPPiXZ5 11Kh7x389BrqydsHLhF9y84jwwwP9FDBzb/MuHSZvikZt74nyQf25/HduMzY T4/Yv8r5y2vw8/vpmhTIFd0XEPnZoceiXxj93EcKe3HenGajROYVNqffCjy/ ujvpMOrVgyzP3h08Qzj/+kW/6MG5lf/vDjKvoDfdF7BeiXlaV5j1op98n0vs rNq/Sgrn6PVvfL2YczS1NOs1mVeWe9gYpm6nD2iW7kD9L6zua4J1d58wfjFT t9P6d6tiUP8v6PRqZep2qtaz6hrywPHxCtmo/8ev/p7L1O3MOjqR3zNpZn/P JI79nZBRPDxE3vF/fuckNXpeJ+r/43PSjgLnQFB+HnDyTb7Y4JzbdO3xFZyX I6Z7LEJcRE7/PmEv489ivS8eMecIent6FbGn7HFdHM7LM5ucveD/fzjXybk7 5pHVSpxHnBvnaTDnEVrZ3orMK2O5ZQnO3ckDX+rEGP//qatKzu+C+82WQv9o 31x7nF8uvLIm+iGf8wdwfuF9x/cG55fzG86TcXW0ZxfA/qSaf6dxflH3bSc8 +NW/TQI/aak7XkD+Wf0CkefLpVQgb4Q66dfj/P5oiSk5v4tYflkLnvt7jl5i eKYmWJQTfFdrsT7kJb45EoucmfzpQZWTeZWLuozHeo1d7TedWS/qX+1iYufm SYduIe9N7b7/ejaTP919H8RjXo+OSf5BPZMafjIV580+L6MPzDmRaiuVGIN6 qXaX6E6cNy+oqU7CvhkwquIRzpst6zjjZJn9+pu6+Qrs16N4FpPfS9Fify9l Dfs7JKN5JhL5RlY+8vskk6d48c9l9n2TaQY52Pd1ErYvB06FweBB9A0eTlXI Q51QbPyC9A3Eu+s8cG4Nemm5E/t4eaE0seebULU8+g86V1qMse+vd1Ag/Yf4 goIVOP9+rVHezJx/6Y+3g0oxr6MLs/Ox7wvr+L5A3XXFbjLpY1iv6VWG/or9 Z3xwXrZIlSP6RTddHDCu15ksK5yXX61YQMbNPl/agPNyz6K1b8l5+XL/Mtgf dT6nEPwsKBkzhuGHuqE+jcyrcVHbONRdBW0BQi5M3duy/AKZ15cdRyaB54Yf wisZnimVEwoE/86XNVGo63SXyDShjnXYbUzm9f2MIg9jJ60fI+TKrBe19UNc Ceycn9znjHpSz2bmQpz7LHxjybzyCuz6sN+Y3VweztQttILo9g3GzL6gKBHb j/q5Zc08f9RRD3PPH//K1FGy4qPtsA99mDVHNZX53M3Xb6XN7EePc8t/oB+i ut5iPPoh3i7ml1OYus7FJ+MS9tetA0UHW5lxfsp93GhM6g0psu7r2XWn2HXX n3xgJ/ondefuf0c92Tanp6SRqSdDtvj/YfYtSupEzQzgpJl+2cDFydL97++0 zGd/V2QUzxMib2TlM1i5XkzWIPbTfR/dEzCPkr21xP74iIzJXUwdWydhdwXj futULsC4lz89P4y+UG+mtDfq3i3D20lfSJdXS4uxg6o++20R9lOhQXliT4Ug Twj6OUsf1Zihvo3aWOUFHsxWWAyiHi7dpEvq/K3XeEjfKaL6mR76QvOvb61C H1hxqPQoeP5hpf0J9S2fz7EynDsmCKqT/tVenWlqGNfBNnUX+Lhw+Ot6jBvn emUrcOKjP/GJMecdN9sagpNS3fIT8x0y1snE54bbjWS+Cd60F+wM2F9rj/NX j5CtD+wct+h6KXAPuvLOwTi8m33JvDzadjegHyWRZRiM82C5vALhZ4Zx+mOs b+Nu//3QV+w8QfTNngi4gd8r2l8UGT+hqOitZFwJq8VnsL5Rber1wCk2CCwE DiXpmIc+3t+hlZ9xDg1/EvcWPOsltA/BP2Wjox1RV8u8v078R81q5zD8zabq /QDsv1WjSfzt8IFOA5yn+OIEfHBO31v6fC94Dpk2agzDD721LcUEfftP2fw2 4OezfpEnznc5f/2dcd6X+71TFTx3vF/74GBxO72kr9a3tq6SPjXfxmB/+Hsq 1PqdE/Rnvd9O+pMO6YOZK7Me0jyynaLh45to61tvJkUwnyXnJ4ea331PvX0c vgH2dNw9HoJz0JKhpzMvVWbQYp4GfTUMrsJ6ZZVDzDhD5slGwOdh/fb//u6Q lG56IPgpnbugHn5YIzaoouCXRy+4dZjzuY5Zl9vTKmBvdFfSPuCM5uEhvwOj xv4OzEP2d0uYfEvkqqw8g5U3+re/ZOynNrTXHcA8FuwXvQn7e7MemsH/pVMG zmFc3kRFMm6j2IAw4iVU6eMFxMt+q62kPykjID+OmQ8lfqnr5Sdmfqmbv+2G PSsyx/+F/0/l+DXC/yfrD0wDD9b8g37wQ1fzk4aIF08zOov0UaX/fIT/lxj+ /AD/D1gsxAHPf649JX7urnW6GPHCs+1fBPqo5qZVPBjXfrF5JzMutUrUfy/G TapcVAKcggg+0geWKhEhOJF/up9ivj411fb4VA8VI/Nd6PKjGXb2vojpQ7+C auLaeX/Hy6vgOUS07wvDM6X6IJzw3NuivgT83Eof8oXf+rlJEn54LKdKY/7l 144tgF3HnOYaQj9xjrUs+D29T4KH8RNKYb55OMb9Wm+bjfVVKZtcDZzhomPL gSP89NQpxMuR3KyPiBfb38OE50czhZOx3p/1ivcz/kkVHK4m9vxYVLQX/vb/ 6vryeK63539ZkhYUrbRYitCCUMKLlHYkS3u0E5LKXkghsqRIyBZFSiQkeb9E IdkKIYpsRVlCC6l+r+fxrvvpfu/v/tPjPpvmzJkzZ86cmTOv99Nn5p6wf5tb BUKQ3+PF+EHsFzehOZ+xX4bGq5I8848vBzxgz/ll04j9DyyUKYR+lBwkSf4k eoqSCfbLbPuwKOj5Wvf3OIzrZh/jhX2R8ULgOTMuPf6I+36cLyE6TfqoI0R+ aGlhzhdaU7qLH/M1zi8cj32xK9Z28oEbJfSybblncX4tDPX+gHN5zcfUUOb8 osOPWvVhXzQckF2IfeEnoVQG/v+253tsu13pc+wV6hFLs9u4UI9IjdW9x5yb 9LTNxllYL52d/eWQV2m8Ryn4MPsrBueOBfs7M7+/i8LBUUHwQ2xcko2Hptez YB/jUxp2YB5dPauJ/L7e4caIQ9KVb6YjDjlduzcd4/o7ywzi3H/3/WkK4pbb CcfWI0++7Ms1LtjBXoFTLNiFisu8F5BHZlTfLMQn+5fZGEIPrd8FrkAP49Nt jyOuUOmQUkY8kyA7j+TzhRuXPUR80vsr8y7ik/YVvm3Qc+6EJ3MRn5QPCMsi numRHmhBPn90o/kQ7DXKkvcD9kW67Bwybp7UqTTwmTM0vgH5q82/rhE+xiIt tzDfdVFV1vjzh5w+mW/wa5YA5BwduGMv4g3WrhlEzhjOtHPQM6ussg7jlD05 TPQ8jctnEfTjG2TIQh6v4rg9WZeUAo6ZmP+DZK250Ic3161y0B/8dH0O9DtE rf+OcT9Kuk3CuI4uTj+wvhumzRgGn0XGskTPy+mFuYijVIMW9CO+mucYRPTs UhSSjPWWu+q9BfvCIN63EvwnDgQFw9745w/WQ35t52Rib7njC0jer+6KqSji K5kZDkTPHGHu1rDn3KJuccRLk2LF2qGfrqP2HxEPb0jM3Yb4So2PJnWT86lZ 7Tintutv9UcclfOyZQdzTtEP8p08EFe7LRV8g3rf5/gND5i4mq7NM9+H83Er /+2FiKOM+Ma5M+cj3fpxSz7i9rFPN89BHVB7u/ha5PNH+S4/hXNW8Xm4IeIf fstdhD8HR27Mf303qeFC5WncF2SdTHJwDzrpLbAc+f+DD5904nwXnrdnDPgs y5q/E3yYeIx8xyb5X9+xYW7XBL/Oxu+wcbk2p17EE0ax669hHg+X2rhB/luK o9bh/pVQJr8P40bxv1bFuDH6/SWkXnMpciXua3KqS0i9hmu+mwLihg/j+cQQ R1WllpB5pa7S88K9rO7rmYO4l2Xn7loDPRzRuvQM96loHwNz3OM63DVJPWjF xeMs3MueXODNx73si8zdLOg50cprPO5lK45+HEBewnWNCqkrOT+eKotxec5e Wwl91CZWj4yr5noffPbvWTTE8KHcN6YTPmYrDJox38DAVyn4c+WNr2S+OXxZ RyHn84i7DsjXjY+VJesl/1HiCfge1f8giHGKm/UI/2VKo6dDP3y5myxxjzM+ vYKsy7qmu9FY383mzzaA/vYbSbIuHfcW2EK/768PzUEcNTv4Oxl3wnTzZKxv ieWsNPA5wetI+Bi+2+iD+yPr0vVzuD/KHYwlep4trtgN+5zia2KBOIrV1kjk oVmba2BvkcJt/Lgnds/MIXo22cv1C/W7XxYcOrhXdmQpET13+caegz1ThXpx uCcKqJkQe/7oHN6EOmCt2rwSbeZeyec3j+hZrz0s+4hxPm3g9Hgr6u9dWyZM Qh1N+9qaHcg/pNj1OCCvMqg5+TTqaPsrizY0OJyjf4Rea7VqT6LdV18ORB1t FBI9cfPVR3FoRqJffBe7H4jgdwl+9X9xnzXJhY0O5yjZufV3wUdtRwjh43Dx zLYShv/doqHRqPftZNfp9tWOE0SeJy9rSfsrRh73/FlEnk6T5dHIC21t7nNE nmq4KoDU+2ZIqvEgzyOvFiqJPM9Wk8lkXs9l5SVRN1wkVP8EeaGfbzpJ3fBs n+svRg/Uy3GLdfB+oFPr50TgAmJOPxk9UO1tol+YcSndw9PJuFOyhM0h/+LR WvcZ+anf8ov7JFyDfpZdSm4E/ls/h8buU3/K0CuJtCxB/bG6i0XmNfVItw30 zLHI4RDyPL/1LLzD7ifyQt/37B8keSF2PVTonUE+1uuAQMYy5Hk+stfL/EVH M/JCzZo8dcgLpa95S+a132n2CeT9NKu238J7jyt1t69i3Tve7C5H/lBY2I7C ew/WgotL+Bj7uRK/Rx/5yQ/BvSp473Ep0FfUmLFPDg4H8r2dRezv7bxmf8eG g2MOwZXZ+O/v2/AKBd+CnQ9TTzuRT24WCSZ8ujrkFJB/9mhKEUXeW/hxAql7 Xpi+/x7yxtm6szYgbzzYdIDI0324+wLsX8Qgww555lFet0kddk2UbzzyxjJL qiORN87LrCTz+pZ8ei7sv/aJZyHyzIl84QtRh/XrSI0B/VTDqBd4r3L5QAqh t9GQi8C4nwtd9iGPSuu6kXF/GIv6Qv6ZrzkG8F5lnIg6kX+mqtER6OcXh588 8rfmeScIbhu/JRz5XnHpXCvke9vcncm8LqoptUHPebvcpRg90x5Hwgj/iRHq zcjrqn5RmAX/KaP7mczLZLmIE8nTDq8+Dn+4YtF9ImegA2cv8rqaPEdvIq87 ZvgiqS9H8oltQ73jQ4bVLbwvUtpRe/gYc96ZKqcFoW5ie/3RQeQ9dEYHp+Hc 3Fj5QBX1mhsxP1xwLhs+6HyLc5mTI5fzf7/nc5b93ZVRHNEEL2Hjp9l4x+Zz F1Hv2yNUqwg+rOxiwkdiutk35EmWqY9fh3hARp6T1JFlCsMFcI6bajocRP3u y/grRJ5bwTef49w/f4aLD+f+xyvlpB6907M6DOf4wU0JqqjTDdw/YoF5bbRV NcW5b7dB/DDiItZHlbWoayu23L4Ies9+ESe8jzKNmkj0MINvBokfzJdLu+N9 VI1xCBm3KP+HDeRXl1Fejjhw0fV8Iv9W3efboJ81N5XtgL/taCS4If/LKNS/ nHjVAhFPrlD/vBXzen1sMBJ67m311kUcODkrlPAX3/tGB/WsHYu5LiBu9DY+ Ser1rwLemGK9fIWWWaE+NTfdm8hZt/KEEOK9D+Ulr1DPkvowhtT9tfXFjqIu cD4zTAHnQrzyviGcCy0aajdRRysKHrMW8T9P7zehZib+n7a2byzOv/v7rlfj z1Ge+rP0mfNor9bXLNT1DL8vrCb3cXNL9SzmfvFUMn4m6hr3Tso1YpyfCTVD I3FLCud/fd/pnXCfBOqJs5c9TMZ95xWr8/w75r7D39bvhfig5PKXi+DDPfSL zceGfEdoDfs7QgfY373h4DD96/tCxmx89s+bIThP6yV11kJ+OalWIr9Wylvk N+ivD8ZuwriLjcb7YVxrlUFt1FUz+T7vxb3MVsudvBO4Ptyag/M0fkpGLubn qqJF5Flv3rIXde25hw7KQA/mYU9VoQce3QHcK2n7efNqcK88YtZD3iFYyTdx IS8RrhoShDq1zJDLZOjZ5Wd0Oe5lLyyUSV1bZUCLvGcQ1N6UgXGjBXa0IV5o UVMj46adNCL3NZpHMAf34g1O6cLg09pWSep0rFuPTPCn18rNZL7G99QMIGe4 1RI13Ltr4p8TOadwft0LPU8NKA3HOE1jAgj/ayVLMqCfy5yh23Df7xg1oh9X kx0U5s/zYGkt6PUiSwn9w+VXpkG/Eid2oL5Jp4g3kXHfavTpYn2543LjwUdh Wj1Z3zoBkTjUlyWSXmYhz7BJcg5517EzVNcJ683XZ8aHuLouLWEQ/B9vLiuG velUyz2G/OuqTxF7u1Lgg3wL5ZHC6YB8y6PD5uTdSHaWwj3Ys5qHwTSSz3ww m+hHeC8f8jnU9lOBpI6cI1RF3p/Uy2U54T5jWOh1CPeIuuSmt6bMPWL6jfju cOZ+MqN0XxfuKVfOHJ1rztxTnr4UrGDurdSlujHcuNekFjS/M434v3b4+ztX Jq26wcy9iY55JnQd43xw8XkP+p+/dpP61jz294Wk2d/DCSkWj8L9aIzWfHWM m961VhzjfmX3rQitG+lb0R87TN6p+omXvMI9qHASzxXc+yp/7CfyX2b3s5xl 97NUT1pK3rumsvtZqtj9LM7FHOR9rH1dZgX4VByLe4p723Q+e8Jnv0LHecjz KkRQD39+adOYB3nqV/Ifwrwcc0/cwb9r3mxL5hURVTIE/WibLfwOvLuhgejn edhRDnLP5NepBx9Bfqv54HOW3f/yk93/stWFn8hjFad1FvoK/RSphPxD9y7x ZvDpYvfF2Gwd6YuhhpaTeSWz+2JS2H0xH8LeEv0cZb8r5mK/K075NHkm3j/0 LHxtA/7i0fKmWPeZgsERZhEllFCbfgfWfco9l3eQ1zOj8g4jJ9VillaMeekK X/+Bf1eZctfUbCSPN/G/fn9nvP8n5JHoeSlWkaBXbxnryKZ//1/f5+lpoa9A L5xOkUsx7uPk8xEYV6YuNQrvpVd9m+6Ld9c+5nWkb+j9uwkvoF/hTKsgrLtT 69oz4H8ifK4J3lu71xf9xDvu8uwtR9F/dJx1m7zTPpxVk4V33MLlY0m/UqCk WBH4TJiun0fWXcyI8AmXUvKGPHI+MuvwJ/9WFyIPvXaRKea1OHRSAv7dbr98 Mq9e1uLP0I9VjtoA8GPGzhbAH2nLfoc+7z29UQ0+x4MDiT4jRN6IQ46WGpsa yKWZlmQEeb7mhJyEvmYG71yEda+6HGQLPtKJyk8wHx0TgwDMb1r94ROY14n7 l82hl3NiwfLoy5jGv3vLSP+X5n9+36YzQb4K7+Ffx2zTw7v67ERPe/QrqVhr KuP9/LLtCQ/wHv+2mh7pk6pL3GiNd/NznSYHyNiXUc4vvBxBvz1kJ433+fTP /W74e/tXY12AT9PlOoB/L/1ExRn85IrSUsHnpcdtZYxHrSu7IseMH+Q90p/F 3Ov3/dd3Y17v/q6MPgJ6Mu2DPga7jTKkj0nYWP8L+g32aFCR6GPoeLuY9E+V 7lmRg36D/sDcTVMy0qnRL0YR+tHlN/LR1+DEdfs1/l6lrY70VZ2trjyAf9/7 IncB+hge3B7hE7lqyBbjzS5YWILx3+kWE3oODsH//B5LvOlCuRkM/7dGP0kf x+zEr6RPKshs8l30aRiVxWxF38f7zKmkH+qVvPgG9EFJBlxaNZ3h77aeg/RD Xc09cg/9IMEJtyzw9xljhwifwDGhkvj3nPNWfgC/sAVdReAjqc3BifE85wjS GL/C4imhH8VRUYE+/THs75ycZn8/pHR39nf0XZiah3Oi/+WZ7TXSb6W0ccUG 9LmYKRaWY72qQwpIv1Va/TtJ9MWYio7Ogb0cP5RG+qqu6X/uQd/FhNthy/D3 66RmED5O3Z/d8e9N3ziGgt8S02Wk36q73uET7GNb262yBcz4+x0XvHIl6y74 n98PyT+/qh/9PkLflvVgXwhJ7CX9UI7p7fHox/Ba7bQB9s8jVZaA/qmGSVdm oZ/o+LHtY+EnnL89Jf1Wya+s7dGPwaG2VAN/r9K5zgf49jXLhPHvZ6VLvQE/ YbERPmKzdSownsrlsV7oBznwIIH0c7HfYfyf73Is3krOIypvAzmP6KCKvGH0 SUXyknOH8j1Czh06/cMz0ldl6kHOHWq8Ljl3aGv9dE70YdFuxP/Tt2WI/6dc wtxGA++fTvw8bbed+HnK6EEF4bPDl/h5ukOD+HlK5/bAN4zL3B//83sXq8fS ndDnvitPWjE/qnUC6Z96fNDuKuZ/ZP6wNvQhX6D8Cv1W00o1SP+aQrcjJ/QZ N/iQ9Ge1r1hvDX0eaFNUxN/PzrhM+rkKLH+Ow79ff663Gvx8c5+R/q/qBWqk n87pTNAp6HNvYirpF2PW/T+/I5Gf2PEG9nmWn5vYS/FgFumr6t5Qvgj2VLHT KA321a6fKYa+np9LyibB/hQujoqCfboXaRJ6x7mTn8M+9URa5+Hvm1bJkr4w 1xKLA8Q+axNcwG/l5IeEz46QbfUYT3fqvJuwT5/EEXoOjt6I//o+w1K+mhb0 W/UFtD5Bv9eDWgPSb+Xb0GCN/dmZWDoZ+/VnizvpzxIqD0bfJcU3V3UY+7su 5yihTy4JtsL/P33AJ4z9nlI70v91/3FGI/rF6pf2x4Nfcbw94ZMyuvM6xpPx UTyG/R7Yu5fQj+KYQ7578JD93YPf3xMoSLnnBf+lZZP8Ef5MSGce6cN6va5y Bfyd0PvCDvi/K9rTSN+Wc+0XEfR51XG8iIX/tFWRJvQRnh8m4v9TYnctx9/7 3ZpM8LySU3fx7zcdf+UAfrxyI/1fIXmR5RjPeCB6KuY3aYIooefg4PjP7wks PxTfifWTdl+wi5wPx/tJP5e9i7wu1qsg8MgLnCczvXqjsF7Nk+eT82ayUuhN nEdCL7cQ+mX9BxtxHv3s6r6Ev+ed40dwoddRZ/DvVx1hhYOfuSoX6Qvz/mW4 BuP5iC3NwHk0Rsid9IWN4mjqQ3xiz+7Tv8Duf18SuP469sPDzqIgnLdL/NeS vq0JPI92w/7L2lx4YP/RQkmkzyt9KVc+7N97Wj+Nc16Sey/pF3NzLpHD/2/p 2NeMvw8IHZYAPtrKoRTn+6V0+jL4JXSP9Iu9ES8+jvHOGkgsx/luNTSB9Jd9 DluzCf6CTzru5bkJERplMZYn4Q9iyy2aER9aTbtzqNQsWMM69mIn/EendpRb GvdL6k6v6v4fS55Qzj2l7WoXu6giUYvXeHcdu8r46vIlXhqvhr0awHfptUmr jziWUb2jDktsFamkBGfeJfT2uWbWobnpVIDoDS7zyhqqoH0pwavWX9oZnptO 7/piUHmIwZ/dMHgHnPPdRWcbxzJ648xNN7YwfGZLNBL6dwVt1Yw8dP0YqbHD jDzNj10IvuLiYqeVNrV0UOq4lJ2btFnep3MI3ndyQwnoX0tzyjH0tHjaI4Jv 2puxD/xjwj7dZ/jToutc24DLyERPgjwvXl2pYeShi9ny6Fgqp0P+Va0x34Bz ZkYTfMbz2fswXxbfmInMfGmdPc8IPhB71wd6SwwXXcXojV66dRcZd5LCW5P0 S+dZOv4DZ+uTnVnc7Pd4IXaxaRM6PFihYvOq1lV7/3mnN0XZ+HakpiWLtjtg mDLg/4f+gHvw97p1lhqrPOWUWa/9WTxsfFxH5+n41x4a3xQqQve++YdPUqYx 11n/8xrhEYtZ9Wed/9DfKC/lEyjA736p+BrbF6j/5q8TcTvsduV5jdeKF0sF C5w1ONj47mMLv5dHeGiMMRceJxvnrTGGjd/hW7Qofpulxv3c1O26ogEanGy8 fKzIPs79lixLl5d33ykH/OFzUM68yrnFg3WouUJ8bL/3H/rrxgc4Za+eZ3Vb cha4eDtr/Jbn97tGDo6Kjf/7+1aKvJlz05n19WwR/fmT0fOqnhme0PMUjo0X jzLrO9f96IVtzLpc23z3LPD8BdUCYcz6fvolUmzBrOOjyDaCPzd35LjKrO/C g+5XgZsKLyd8GrutC22Z9VWYIz0VfBTtwwh9ye5AZ2ZcysrnajTWV0axmOAz 1Br0dGxqqYiJb9e6RmtrZChmErx98Ngx0Gt9N3yCfWRx+AbBQ6rG3gD/t0bz JBj+lFd4LsG3NGxOj2DkyTAViWPkocRL8gkuMuHndsi/8pFQEfDTxtYEl/Ub vof5TpLoOQM+eovOE/yonr8i9COk2/Ca0Q8l4TR4Brhr8qUk3Ivri2xGP7p3 RkPpa74L9u8RHV/eb3ta6aNbHkRfj62kWf63yD14wkJfNx2VBlq/W+XUq5S3 dKF0PsG/NyaO7ZB4TB+ZI8izV4C5N4ddJLjKHufiDxLMOaRQ2rCHwd+UjPBR Xa8TsVqlgco/ETwBfPqX7yb4UusqI2Zcyn9v5M54ZlzzRDWC70t7SOKiz1yT d/O/N9B4nK9F8DgfK13Qn7hReYqhp6ZHpikCv9oW7wr+jwJ+TWP4U31s/rTQ Gg/I8077dRMjD9XAlmfcnnZDyJ8eXcDByE/F74ge+Y7FKpdIzHeJ409b8MmS WUJwf6laQehnrbeuO6MfSsVNlIwrm0LkpJMkp+c8n35R4/vjETmHDRfwm8d2 0nsOG6yQulFHh50+m4h7e871Veou1s20scGreSWi7+jcQ3dvAGfNuV8yWr+Y fvrKq2z2i4+0lkLnTeCp3yXNxuoXU0t2vAgHXmdjfw143qRLXxk+FF+VwMVn DJ+xhTlxwHtptRPMuJRv1KTQucy4crdvEf7fBlpJPLmHVbgjJ8ZYY372NpLP 6NteagF6QQnpfIaeco7oJfRvv19oBf8ejvAYhj+lfFuA4IUvmnggj5kPbwwj D1XDlqdk5nZpXkb+Zv2qYuCcGx8Q3Dq/eRPm+/m08FRmvhRv18J44KHHBqZD P3eMtgsz+qHs1Y4QeVo+ETnpEm73J/7vQzUO54zIKeQZlgB8t6nU5QyFCJag A3ct4uC69SFnif5/GVw4FhjM4pp/aDX+32Ke/I97jP0//bnuJfyDYah1AGP/ tMaRegfYv4LD6CNlWl4s13gd0udx5gv3NuwjHhsvK+z3iGuLCH13NMf7K8y+ m+7iHAn/QM2TJPijWSZ12KexCW9sge88tpLguxcd8cO+Dmou7sO58EtJmeAX elQM4AcWzXvmAL8RNGkVwf2+BojBb0ybnCkJv5Ebv5rgz6VWrgN9QnriVfiN 5KFpBOcTVbICfzHbOz9xzvY93Unw83wbz0OeQgtZe/iH0oNrCe5pkboYfiPV 7Xoo8IffnQjuGLPAGfNdd1fXFH7j93wf2PfxwG/syOxOhd/YzNabilpzclap Jyu1j7NedKwdy5R9vxGR+bhM29WV1bq6Y5C3x+PP72gkFeXEB4cdYLHkKhdW PPb+g38cHzTVIOGARtBU+5ALmf/ghhP8tRPdXTXmfnXU3FHg8Yd/o3qFR3m9 p4b+mDuHvnWd+IO/H8s/tGj7OQ2r5dPuLGDOr998Ani0tHprPDVefHhQHMtr 9+d3MfLyV1/bmuKqoad5t3jyK48/eJnRc623Xgc0ZCrVHQ5nef/zuxslhi3i NgdY8WWKijXJ3hq/x6WbFuw8ccuVJTv/sA/n63/4HLl0WL63ypPlbXhIRo3r n3GPbo1MQjxgZBHnj3U8Kd3XAH2OmqjjifhBSap+NdYx0T+H4HKRx0MQb3x+ 67sI8dKpjg8EXx7V6oP4JJDvMzfwXMMygqek82Yhnhn2lC5DvDSDL47gyn7n OWD/niJTFREvHX6TQfAbqmtvIl7qK+F/iXjpy+dSgufHfv+KeElRfYEx4iU5 p4cE/0kZhYL/1kNT6xAv1Y77TvDkX90U5Nlhr8vHyENbXS0mePmJzy2QP+Mg lxzwSgEWwftLU65jvnWS3arYFwns+UYoZ6VBP0n8kpbYF7vLR/gXeb0keU6L vLV8q2+cYTlUFpB859vRP49/Zfz/zblTJsMP694bVYP9frLJN30V4/8bBNM4 4Lc5Fi4k+U6N1bEn3zP+P2PN5IPw/wHvbAhe15SqxJwL9NN3SRrA9wjOInz2 Tq2ogP/nrFoTUMfw0XH3JfT9o9vymXHpju09FXHMuI7O6gS/F2dI7t0lUbcn CThuYmVWJBI8sDs2G/TtSTKfGHp60/wUghtEnbsH/hsOv7vC8KdLL/GTcV+8 5ervZOTxM9iojXOTc0iP0M9mtedD/nF1k/YC92PLb3n2ZyXmu1K0ux981nHd Iviwk/lJ6Edx7fs+nKcPP1QT/GQMkZOaX6N4qnLKRVbX8xE5S5MW5x5i/H+I oPOXeYwf9kjkJvlg7qTvY+D/1zc0NcH/f5jBvxF4/iFfZ+acoj7sX+MEPz/a YBrBxWeuF2DOBXplZsgq4LHCsnrAOV3THsH/T1PW1CV8pp1cB3yTifw8+P9r Tp0bcO54Rk3QBf5EdSfJVwissORncWxhrbtcQORJrFQQBf2i9eL2ONd8G3XJ uKw5ssngf3Jv8E6cg6n1h9YDH7dxSjofI89984frcG5GsuX51NNUC/mvcX0+ DpybLT/v9fgZmK/U0vMvwCft9SDByz6vegb9HEg9VsTohz7J1s9tFSInFTpd 7seUvlCW75UROTW5vbe/z2+hPoznFo7/3EbZT9x++l1wLTV4ovre1oAK6mt3 p7/xjo+U/GSrwx0MLhY9adaSw/l0qP2hLZckuqiypE+q6MvbOr/joj73W3py 8iTlyLnvqRaqfyXwTrtxTaPKO2j+IouLUawGKvncThXgqxfl9k4/2UV/OLO0 bgf3LcpH8Oda4OJTvIYYeej1Q6c94z630elmUS6Q58XeZ2u3B1TQD+6vM2Lk oZds9d8HeY5tmfR68eF86sXsbAdGHlqhZqEO+MixGt7pcb+lzjxYeIeRh5HX ZRXw7rXr7Bh5KNs7br+iWQ30IvuHZNzelTdaGXmoFXu0BCy4b9GH11WsBj72 ernv4/dlVEakyPlihTZq1OScB1NT26mMpKpHyl2p9D3jnAU/jrZT26VaCkmf aUPF89ceNfRWq9K5ApotlHLOu6fAT5gl+An0NdMGBrv2irvUUj2bFpG+1G9T Jk64aNZO23ilht92yqDG190uAr6wy6Gl4H0ZnSBdY8CMS9eELcrBuEED3Tny XamUZdkRNWZcekOYAuG/VGrTwwaPGkpg9XYHZlx6rGE+6X+cMDhTkRmXqmho OyzhUksvlD1M+Pc+ez8cZNZO9UV3x991yqDt5OKJPCKXtok2OJ+jPTJXXbO3 rKW8w5eR/r6dY6ZFjY8poE12Tzr/IqGaqsuTJfgcpw+BLpcr6a6eUbs7lUqp NY9tCW541GVw4o8aeqpY1LdFsXcp7+f1pH9tr74VVeB8jnohtS2R4U9vSJlL 6N13B1mOiymgJu50aWL40xYPdxP6NRv1ZRn+lPRZf6cPSqV0YPgTgrt7rK5m +FO3p/6IUYi9S3suOEX4HL558BLsp+CQtgljz/RnryX1bcG19OzGX82MPdOt z8NbYD+zb51/wtgVrZRZbsrYM+V07NQt2M9lg+Pkfez37bOeMvZMnd/5yRn2 s+iOE8FHZX2T5WTspyStoImxZ3rBASvy/Yc7VPLaGYz9RHMMTNvJ2E9ZuTfB fzbeUehg9lctR1gRY8/UwvB3RJ5B5yB7xp6pO5ONE7C/bleeK4A8uY+HZskz +0s41KUc++tFlhLhs4jHTBT76/TL15+xv/TnZxPcO0niCfbXJsn3m2KY/dUf FUfwZQEDaow89FslFU3GnilbgRgi/3yZvdueMHaVFJEu8YyxqxA+LxHGrujL 5U/MVRi7Wv2ivwJ2ldhqQd5PrnVc6vmGsavpDgmpsKu5Uy8Q3MZo3lRBxq4C XiwfB7sSyx551zo+7koqY8/UbE4j6WTGrsxTtAleUnM8pZDZR/rrb3zEPtI3 HSeKcU/sWLlHgdlHNTn+TdhH4k2NhL6j4utR7KMLxSk8gsw+UhCoI/iMezE0 9tFRr3XTJJl91CQSR/DEHJ+r2Efe2cPz0ph95H9Ji+AD1sdUGxl7066dqu7I 2NvNVlvyji7Rf70CP2NvRdxpfZWMvc2oVyX4+4sHmk8y9vbp19hlHxl7qxHa QHDzkmn+Qoy9PRVO5pRn7K25R57gX3NFdj1l9ku/zL0VDH8qL8ee4HIF84aw X5YObF9RxewXXqcggqtIvnVk+NOH4mX0u5j9csfGlOALDDWtGP60xagFdxSZ /fKxeybBA+fxt8Avbf7yJOows46ShlvXwC+5Ph20hh+L2rZxPtadq+ky8avn Pywdwr6OvTJDE3qYde892deTQjsr4Q/Pz72VA/vZcKdIG/Sl5vvk4B8udvP7 MutIdddEk+8LzT0kHw9/4hcf4g0/1mA8nA+8mN2P38/ux5/F7sevYPfdT/lX 371mpmEP/LzUItctu5h9IVk2RPwth3fyBCPTNvrypdE+y7JLKP/pfQnz77VT OhYfq2DPmUN62dhfBw0Ok3lF2BWMxfr+CrOQg10pDN4lfsy2fa879sXzyTO0 sU/fa44lft7d/OcZ2Enc5gnujL+lhTeaE/k/iQvlKzL7K+yZ8g7s9wqPN+T8 6rkZlwV7M5kRoQQ7b7XLI99HemIYuxR+3lTAbhH2RX5+E/Hzeuz+9Nvs/nQT dn96/b/60Bey+9ATwkfymU47bw7g/H3Kzmca9099Y2jaRnH4fPy0PLuEji7g i4cebpSl7UdcNDB6DBfixrc8ae9xT39eyf8cfq/Gyuwb4/eomsuuxO+VKX+M RHw12tuqF3Fg/NEB8r2KY19Xz4L/VDuUEMb4T8q+ro/4zyPzlxxGnCZ3bslm xJPXvGtJHrX+cv5G+OEVg6z38PODD4wIfYvGq7mIP/lSNi0Aff2ZTiKP3ZiA NMSHb5X3O2Pcls/KPcCj2X3iM9h94insPvFZmzalIM6MubE5B3Gpf73YR9D/ nFR4wj7kBd047eq9ypRyatf28FUDDL1pJcn30ium63AhXlWKGcn39m/SStKI qqF5LY6u2Vx7n8rMyxID/fLEsYngv0FrUiPi2NChnR9AH2tu/QXnEdds7hWL mf0rYP2IzEtkm28E5F96r8wXcalvmT/R29R9qmdwrp3ef/Ykc67R3fE3ifyj UuNbEPeyFtYuRnwr5D6f0Dc0PD+N/b7yrlg4zq/3fI/FQR88sSIZev7I82I9 6CeWrekGvW1Pxo06xm+Up3finKXHHRg5Z4sP2N7HOv5SzGqGPM07M4h+Gtn9 4A7/6gefu/iBOeykJ6WvEfGzkegdQu8f2Dua0ScV9Mz0UVVKOd39gofoU6pi JH8ueuqgFeJqS3b+XLxNy4XRJ+WtZP3eqPY+nSSyTnyA9PMK9luOCWAdV7uq MNHI8n/6tecQnIMjV/5v3OZzd7M3g6/Rv1Hr8T94KBuf9i9cc51ilDODc2g8 un3+f/AENv5e/W/8T5/4v/rHNUYrRTlrcHAIl+b+Rd/EM4Iv/hceGtjT7M3g oT7X/5LHjY0X/QvnkLQaE8Dgcwwn/DXfXgng14V4jf7GBWcBL0jUSWVwjf/R 26wRPqYpf+MpjiPjRocx4/4PXsHGbf6FN1UvIfPKrWXm9T+46ssRPO5fOPOf 7vzfevsb3/FfuMyhEf2ryTz6i0/uwRHc9F/4tx8j69u09Mbf8rNxwWX/i5vN HKnL7Mpndegw9+U6dl2G4ds9YlfRTwX/0o8+wR+nnyr+X3yL5fZgnJuPZ/JK LWH2dcaPUtI/vsz2+QJNxj+YdTzS3sLY8/FjZfn9xJ5/5+c5MhXdNXJ+83HP 07mCc7lt75YE5lym37dmk37tcQO8Bg6MXzK8emtVDbOPXDY2tIGPxsGjfBOY /T7/zDcH5nynC6NrCL3DuD5vxBvOv1KtEW/UzZAn8ig45exGvMFtGCMC+kjh QILrntcvYfhTcm8uzHyJfbrQqR38Bc1j+E4xfvtRUKYN4pBvIjsJvUlkgikz L2rwy/G12Kd94olkXpJKrtmIT+6orRRDfKIknkLoi+obMoEP7DhgyeCUvM0d gj/Tf7QdfFZsvHmR4UMJHblJ+DjIv+DAuJzmbZeYcSmlNyFkXhPvU3mQs68i m2LkpDZsf0L0YCqlro55hVqMkkacI2LRR+gVXSaJv2b0oHJ2uQ3iIstBDjJu RpBlFuIlUavxdsDp+XWE/kD9Vzno80H9tKPg05IfTHDZwfJt0P/Lisp5jP6p no++RD/tz51jsF4W62S9EUdVH9pB+G9yObAE614r4vXBhJlXqd11Mi//Hy+u wE5OnOcsRXzl+qWI0ItPaUhGXMH3ViOfiZfoXxPyBXFeLwhqc0d8orUiXUad OZdX0ZP6pJlzue32SD1ivOG8KORjldn1CCkOjwLEGxf9KtcycSntPt2H9Hdf /vLpEOIKlW3Zs5g4lh606SP45gtaLoi3797sbEFcoZ9whOBZt6aFI95epiCU hzjE3leN4OZGy6QQb2+/smA24m25sdsJnhi4LZuRk9p6tdZLlZGzdMW2T5Cz fNP6J4jDhR9NXIZ4aTNvCJnXtocq+cBNilm5DE5Nv+9N8MYtIhngs/JK2VOG D9VjKkT47FzdORPjXpLao474MK9kiNDnGl9whpzl9R+eIT58qzaByFNpdukj Ey9R3m9S2hDPBx46TnBHT9ETiPPbTNL7gS/TuUfwydWyXtDPnAM7piDO9yhU IXijltdz6DO6lGMh4nzXz7UCwMcFnvLCuhRc7X+vxshp/5WDrEuzysY7WEfb a2ZLEPcuPnFuEuibGx+twj1IqmtVHxM/0zEl6VboFw6/M1IHKfH1u4Y8/E92 HUQ+cd4jxJ+TXBS8mbiali3sPwL6nO93JyDO7Hq6c3wUE2fOOc1N8KS7lDnu j75H3TIRT76ZFG8OfLRSYjnuj035rDOIS40uVFoAP1zWvgT3xzWPtnQivj3t VEjkkef/vBn3xxKdWbNxf9StkCb4a94IA+Cde257M/Ez5TZ+McEPms+ZDz4D 7deFo5n4XyEuj+B8EreyMS63t2oQ4vwua3mCF4f8mgA537H0s3Gv/KYfTOQM KOSXwn3TbNXMV8C9rq4ics5dFSqO+b6t0f4JPicWXyB91p1XFMqgnxe3j27H vYOuPkX4O668uhp6llxnshr3TZXtBwn9qIUBy4Fnz9b9CP1zu9wj91NJdt3k 2Zqv0aiP2LLrJiUqn++D/8Hbu1yhf7tv1yJA/+TVxDGQp/57Jjf0/zg1guDb lxmtgX5Winqchn5GjQ8k/DkNFeZAPxZ1wuOgnzcBhwiuuuJmOvRjtHyKD+aV UfmE9B2fCA/ggX6qcnVToIfUwH3kvux+v4sHebzmSFNV1MWq1t4j3/06qWwW DnvbVd10F37DTWkZuW82z1BWQX5vLktzNuplmU3hL0HvZtebDnv25pJVgn/w 8/5E6D/vPvoYdbRCcfsnyO+JjSmuAf35pG5D7IsZPSsE4DdkV2oSeqnMlSao Z+VMG3UB9E+iuepAn/L5QS/ygU6nHH2QD/xqTRN8y7gVlqiXhURbBiAPmXz1 CeHffo7Up6ie+12GqK8VnBipT23ilEyEHyjk57aGP2lS9uVm7iO0lHGjGfgs 2u7/APnP22w+V/g9se+o9rGcKfAnC82UiZyDktQbyCM97vYV5FGNOTkJ/+Yh mQnwJ1JyIdLwJ5ukRvIJu/05hvmYeb3XUQ5BPjaPPa/4jwoH4Gf0+zZlw888 OXmT0JfxPJqF+h1Hh14u6Gex9Rb4meMV/I/Zs9sv4GeCeV0Ivfs5nfVYl2DP Yn7U9bQ3biXy3JNIFMT6qqYdHIe6XvsnFYI/Z9fvBg9XPURdbwy7fifBe+oE /E/TpehS+B8+vZk80E/jV/UvuHd81RIMRD1a8n4TqesN5xUdwrkjFCTPh/hE 7Is4uddvtF9ijnvH/fbgI6gvPz7tROjF3GWtca5xlnw0RxwS8CKL0C+esWuI uUfQWinK/bhHvPJrJt+Ne5QmU4t7h3Fl83rEFeU/jxH6c9atWagj51rGFINe a4k+4a/dJXAWdeefGby/cL/wiRsmfIYlb65EnXor35SNuEfk9a8l9CYs8wSc +/6vjV5XM/GJ9MbDvcx5SsfqkTomdaZ9sR7q3cVSI3XMd3orcf5Smx2rJiM+ ybysWAp6p6JCNfDnNKuyQh38EZu/4DE7H8QnJ5dUbER88kZ9JK/idjPpIOTc z/WVD/WRlIwrhN597KVq5GcKvGKNEZ98Fggl9HHpkbaY77NNV8twPxVp20fo /S6uGI/4pE2F/3slE1cEVJ4h9NnDLdqopz+TnttN7r8uDwn9Zu0zpQ1M3GIh nI98ESX83YbQuzb+Oov1UtWL2wt5ePhqCH3mIfGfWPfWtWuP4J4uxl73WNfx KohbCloj2hEvzZKyJ3o7vGGk/hsQ2XUL9XcOdv1XxMFqDOKWlPD6TMQtyXEi RG+17PpvqtzF+tx7ZzROseu/blN4vyEPoCLzRgDxTJbTTtJfFr+vLxz3OE+3 NnNjhs/N3dozmHscbbFkszryAKOOxdPIA9gpexL6guXfhHFPFHev4mfWlzpZ HKMO+rP8q48iD2DLNYYHepugPtK/JrbP7xTywwcX9RUhP6yjaEXwjf5P8mCH eZ6at5A30E4LInj3Ju+LuNfvWrCvA/f6kob9hH9LaHAq7tev3hr5IG88VmNE /pqGtBLc632XRB3DvX7JVGci/6UxqaKTmH2UqfhxPHN/p+ZIniX0Uk2rpgOf YzxghHt99/lTBHcX3F0EPm9ZadkMH9p/7QHCZ0qazHWMazP8OhH3+lYuPUJP K53yhJx3v4jw4r4sUX+cyJlg1hiDeSWanM7AvZ733kpC359+l+8Vo4fAs5ef 4v4e0W1J8HNSxZHIb+/yuVMGPN78MMF1Zw/6Q5+ptxf/AJ+fKo4j+vzxag70 33pSpA/jFkqkkHGdv8qswXq9XqcRg7z3mW9hhP6dr10M1jfPw2Mys760QN9K Mq+9+VuHYQ8zHS5kIR/+MMCY0Ps9uDUO/vnpq0O6iIsifZ1I39kvvTHvkXc6 LuOnBz821UrnEvyYPLuO2VVdlov3ck7sOua1oXPLkSd8PJUrEn7b7GEj4bNn 5b5M5AmvX4gIgX/24zUjOLd8XBXyZqrft66AH/YtWkVwnQlR73GufT59dBno hVaYEDziW3oEzsetUy8eQ32kt5Mi+IofheLwtyssxOKRJ5SM7wmCnJXqr8Vx /q5RPZ2KusnMmXV3QX/8atAc4Pt0l69A3LtK/Q3Br3E7iYLPFftznQwf2ueD 2UXwmbk/Pgjj8rk3ByFP+PXjEjKu14zCp5CTV41agTj8xIcGgldf8ViPeQ00 iqxE3N43Q5XgNuErKlGX4VxsYQDc7YgiwWcsPVMN/ZwqWesHPsqvnQl+wHD7 SujT0lT0NOL5nCq+e0RvMQXdWJfmMrMxzLrQ2yf5Ezm/83zjxzpOnDV4F/Ua j4JYMq/Em1VdyA/zvatOQH4444MX6Yf6Gj1SP9Wh3Z3xTrKHXT/VuNpwDHnj 0V3LlRG/jVo5TPoBH0pp1SM/HL925WPEReqDoaR/bdPeXnHU++wKu3YjLoo9 s30K8IGLe8IRj5mKOqiDvkpdnfCRjtVoR/wmeVQ1DPU+es1+wudJPfcw8sAc MmdbUO/7qlpM6K0eXhkCrt93bg/yw+7OBQRn8SyqB5+EQL88xMlvGlPJvGTe qXhhXIe8lPWIq81KFQn9bI6yQuR1867l7EUcPvHHaiKnR6tSM+qDvbw9p4FX 2r0kfDjsLbowXw0/u0zw2Td4lchpEjfPDfqJ/CY4FvFn3CseQh+qbYQ8NuWW JzQN9cFfXicIPqQ8Ulc9/l6hCe9Ug9h11cRZU7JQh21/OrETdeqY7e32yPeK d1SIIV5xlNr9cBziON81Z4DzTZHnQLw0Y9DwFeKlrduU3IB/ynYcg//34Usb d5L5+x3d048Bt3q06wjqwoVlUjbgJ6HEReid4icFSjLjTd1yeiPitQkmFYeA r1QtHYN69x0dEw3Qi4hwET5RidXvdA/6sR5cHclPT48eyUv3UfVZiJfMfuWt xvhapRediDx68bKoK3fuSGvD/Fg5qwn9q8pnsxBHrW/8ugrxIf3O5QTw7KnX LyMe/fz+liHm5+UbRuhzI8l4tGyY6mjUzc9GjYy7+Ii0EeJajUebx49h5ndL SzYQeHXlM2Hw7050PYI4NpvNf7VXrB7oJW9/PcTQ0x7X1lwA3p/tmQD5LTiC jTC+Mlt+zuxsEh/L9/GY4++1JogeBa4Qey4Z9fePyoe0wW8X6xDRD/cD7lGY 79vBLz3MfOls9nxV62KeQ/8zbM5bgH4OW/+rTnoprg3wYgmw5zeZrc/EMYHC mH+w/JRijL+Rvb5Kkx3uYL04emw0MT+DwHyCT741QN45qLatYWF8hWWeHuT9 84vmSViPcQttBiF/Q8bj08APt3hIY10P+tuuYeyKtnzfTOi7g75NQ3wzam+U zUcmPsox30byvaFiyfrI16c7JasgzuoWsHwHfHuMgQLy8pxt6dXIK6+RvELy /O7v2ks/7fJkmb0YyR97sPPws+s5jyJe3Jd7wBP038M7Cd6bmpqL+DJf20eS iZsol5zINuB9pydrIh7tMmiLY+IvSsiGj+SrQ9x01ICPt5D9gLjsqFINydtr WAhlgI+8qyyF+MuRzaf0/svNGHeKuWAQ4q+4goftwB9uunzplNBpVvSInPRp tpzeFds2YF7lhwaegj74lU8X8AMOS02gh8Q5ZlMZPdDXek2JPBGrxsyC3p5q Nc5m9EZXKnSQPP+LsTz+61tqqLqk0ddmlqdTYYufsfOWgux8+OK/8uTW6q35 k6UrKb2G/sQ8vzKqqm0nm96NnQ9f/Fc+/OXuDdRs7SdU2v2g1XuEXlJy2Xfq R+ht2Pnw3r/y4TbPzsT473FgucwZyae6/cmj6h9uHvt/8+QTX80NnqP9hOZy su41Y/jru4Ww6TnY+fM5f+XJd0UkLJ8iXUmPtl58/BEjf/v6QTZ9IDtPnvJX njw9aOZDRj+0Uevl+BmMfsoEdNn0I3ly5t/9lT+vLbG5D3rRrtBuhp7WSl7y W5/sPHnFX3nyc7sUFkMeW95vFxl56I5ZhWz6XHaePPCvPPmwha0d5ssbtu0n M186zmIXW58c7Dx5yl958uhX+jx67sdY+SP6pP/Rp5u6v+H/zZNvMFTZifV6 MitRk1kv+nNZDJt/LztPrv9Xnpyq7KqAPeTYa51j7IGu/GMPTew8OcdfefLh 2o4g2JvALO2NjL3R/9ibPjtPLvhXPvzB3Em6Gxl9Pjh9UnM2Q7/wrgfpJ65W llg8ldGbQaps22NmXHPrEyRvOWjjWQz9aPoptO9l5L9/yoPgeYYDy1ooB43I VPb76y8jec5jMpFzxZn5uj044w/6gojVhH/MnYvxDH/q/E6F9HyG/2D0RIIr 7DvuxMhDHZDxVRdl5FEzO0LwnRrL7ICHn0z1YnDqNy65YWkE+HyNjq9l+FAz Tqwn43rOMeDEuDwdD68w41JTrjwh+FDxZGlTz2MarSNyUr/lnN/r+xHzckyi 3oDeudGe4N22zkuhB79e7wJGD9TJb5PJuAncyzdDbxIzJrbPYuSRY+st7cDa Z/BLQUnvx3UxfsA56g15Rz0q420D/NIoqa9T1zB+I+N8C8FHp7LKUXcsenjY Ae+v7wTWEbyUFX235oGnhundkbyjEDvfWDBWRgD3xtgSMRnQZ0yfqkT4z8pe j3tm9c4MDvglA4fVhH7KYAzu/9SVwoy1qEOOXfiC8G9WetgDXDCT25/BKT42 /nzOFk3waQy4KwI/3/nu8cg7+Z7abtzDxx1LU8S9/HSlE6HXTSqPTR57WuP6 iJzURLac97ImfMS8NO932YD+yvETBK8vnPIOeph8+Nkw+OsOmxL8/uO15dCb XkDXI5w7s70mE/xVRaMHzsvdKXd5xjPnVM7Z5eTd9dpglgHOxYMp1quZOIe+ zSNJ3m9/bHF6w5yPtM9m9Vicj5+19Uie8ITutZW8M/00vvSP5BGz2e/D5Ydc 3BBvpZZaqINeY2AC4RPkt6QV52b3uRsXcG6qaGuTd90CJkKZODc5PPeR+ME5 hSbv2Fc+b0oFPkXMKR9xyG98z6XQavA5uGnwGs5zZTYfW6l9Rhh3/a5nqxF3 LWeP675xz5pGfy8NHfZ79vtsOVdYq3MjjlmwW+kK6GMMxxF81URVU+hhgvQ4 FcR7o3cFE/41ubu9oTenbq1oxI2JPuvJ+/w7hZYOwF2zNL7j3I9we1+PPNU4 +vY68BHk49CCPhXiukj+ynjN5mro88T4h6HQDwffMpJnOz3BTRX6bPUeyXtt tRvJd72pfmmPeaX0HVkC+oa7UiTPdjulsB56CHft8YE+uz+uJHzqn5xMht6q FP1Noc+JHeokXyqguT4ReGnZtWzo8zfukSlbCj78q7WuQp9dbD4LuVgbMO5q jwoN6KeWPe6smEWa0OcSdv7ShC3nBp5fQ5iXzeGIANDbdhwjfHL2TNkCPXg4 +i2GPjfoVRI+lYpjXaE3X8OHl6HPiSJuBJ84ZsJ92K10zZYhnPvysSN5J8N1 DqWw86Pme35hP6r1jOBJ3x6wsC8sdzw6gP2rP/oEwfdJ7ovCfo/SHcn3TJce yfMUF336iX3XeGvddNDfnlJE8PawMjXsU/rV+/eIc55N2UXwX6FNpA9khubl pdjvBmMECD4voxv9KlTRzFcu2O/P7EUI/mHQVh58ap72cmE/HhV9QfCc3uTX pP/E5K0Y9i/P3hUE550ccBH7vXVETmoqW859K2bWY14JRia7Qf8la4jguzT9 a6EHvV1X28B/ftZXkj/U61rxEHprvOKfgv2+kK238UZZYvCrITc5puE84ozs 9YR9uZ+cNRp+uG7Y5hrOI3cuD5LXMjyYFAG/XfbrZCbOl/271hP83qdqXpxH X2xH8mGS7DxYiPnAsBhzLjx8K7EP9B+7uQl+5TG3G84R98rJjjiPjIz4CD61 lNqIc4cz1EAY51FXw1iC79rGsxa4bILlLpxHv/ES95W24LN4lXcwzqPcJVYE j/f7WY1xI+QyD+N8aVbbTnB+0Wu/djPnkdoxIiclwZYznipiYV5197OTQX/C Yj/BJSbZTYIejumUnsN5NH+uLMHfzH89D3qrSQjIwXmkkPKJ6I12fJOGeCBu U/oTxJ+O1iPf1Tg4K/ct4ortquGViDPFWC8Jrvjk+HbEJzcuhOxHPGmk8Jzg Wvx3CxA3tvqM5HtmsfM813vk0yDn1exRk0AfNukbwZsKHbcj7ko7/zUOceDi 2UkE5wxXakT85t8dU4B4T/dGNcG7zZTrgTs/OM8vwui5WLyC4O3uy/TAp2Co Ph/xW9rWBII/3TQjCONyhn4UQRzV3xFGcI+BORKIx+R8iZz0bzndl3Q7Yl72 kzV3gd6QPa9rz3o/Qg8uxd3piK90dnwieNnFRVnQG9erhTaIowLrRsbVP2Ql h32k83jPadht0sn9JE9iG+u/E/cC7uVLN8DOXW73E5yja7MW7hHt89e14b4j 6qZL3sNLFIa8xf0o89pI3oWHnW9J6nzmjntKgWtwKOinR7YS3Prd6xLsI/9H IUtwP1p3eTrhs/LTQiPif1Kk7+N+tGbGiDyxXxZuAr5q0oqfuB/9xrcExj0C nyWn9Q3gN4YfhRO8bM9HU4y7WLE2irzrv+lM+G+wcI3D/ejLiJw0N1vO0DtC uzEvsbFFb0C//lgmwfWXPToIPRhd1FCA39sWK0T4yKxeJ0/ula3rFsNP5vYv JfSPgpQXwM8Xvi8ogF/VKnpN3rdfO141Hn5+v/KnSfDDpqVNJE8iZRNF8hXy erc2w2+LPj9C3rGbrWv8hLwEvWwkv/Ka/a7+ud9HRdyHB+6s78b9eEqxOnkn P1HtXhT8vMXHN9twjtQGXSD0i/KO7YWfnxFlOh3nzolF5muBj/WbtQu4f+ts O5xT5tPDCD7uZU8g+HzYt9cK51oNm4+RfD4fxmVdtv2GPIAQe9wNRgHLcd8X ZvcB1LHlzLAWe4B5HW/fuw7n5qMoE9JHoDHxuwj0kFd0gwPnsnXIQ4IviXmu CL1dcXhsgHM83b+b6C2R/fuSh9i/L/md/fuSSguHapAnHHXcdynyt8rCyuTd oNvM62OQ5+Tdx1GBPKf95nnkXeWGf/3+Yyb79x8vawrYIZ98eN+QKuoFR3yO kndfjZzTB+1CXlDWySFvq1LKqbk7x5L3Y6XTe+KRV/9WKR+AvHovdwN5d3du epE58udKiamVlSnltNdoc0LvwP49R1f27zkOsX/PMfvXsyOQc3VhiyDeVwzL SJM6mtSi4GuoP/K27LiDdwjNGeGk/mh2Lp4T9ZGJvOMn4j2Pw/GppD7iojJZ BnWWMxPkfuH9jGtUPamzjJFNXIQ6lPvSaFO8bylIlyD0o0abhaGete/thkHU O2ZszSX0YSkxJ5EnbDDLdiHvrs8IkD6CqmW1eKdN184J1MU7bcvFIaTvoKve fCnyvZIrr2ghv112I4e8mx1rojquI7+F/mpqZ4/33vIRd0j/gv3mezML35fR qpeWrMH752st8/Pwnt/5UhvepVO/Rr31wrv0qMImS/CP+fzOCn0ZS7d6cOEd e+NCVdKXES9Z9Aj9CBLlOqfQFxAYJZgPPsOL+Erync9RRqX8N1GXkV8oTt4T VrB/p+Mg+3c6BNm/0zGU47Ox0PkcXctVdgLvlKSsecl7mNXs37O4zf49C4r9 exae7N+zuMv+PYs37N+zKN+x9ijek3v1nlmC9+TpNY18kKfBu6WN0Q+9dr7j Z+TDz/dlkXcdLzfdnFDEyP9Z2OUb5Odx4yf0zwIsnuJ9+HLLTz+hH90D1WOA zxZOSwX/0hT/RQx/SjtpNKEPPfc6DO/8I7Vu7oJ+1DSHk9oY/djcLHyHd/5u lVs/Qp+2uT+uQG/Wc4uLF+NdfY11A/LAhWtPHcX7hJlhhkl4hx/7dMMt0O/5 vOcC6KMmeazHu/3vET9y0Yei+kX7BvjzDAYsA855wrUC61u7LzgReBGP2knw OejFlwY7qZi5lfAxEM0R3oa+gxSrd8Bfdh4OAq7/qfU25BfZyKGLvpsDaoY3 wWdBichjyPk6ek0l5PwxSoq8W1ATTIoH/y6TKzGQUz3pIukXuCk0ayWRk8/q PuQc3xn3Gv0FN/rVBTDuqpWirzGufUk26Xe4MUHyBsZ9zBLTwbg8tvMbQP9Z 6mYV1ivhrTR5jzRwcjypm18cWjCAdSnU+NSG9RLde56825/b+Owy1qXoYYoo 1uXLhnqCl8p0fCtg7Mph/GZt2JXxl5H38HcnnZF+zNin1tAP1MWo5fNPkvrU quPDUbDnBfcfh2Hdg1ZvTgIf90ubVmN/xenLG2J/HXSQJXWTIwdXqGEf9Rh0 7AQ934c1hN5B4s0g+mWuWnPtg5ydgWoEn2nzpRH8xyzmCAZuuHklwSWSxfZi f33PCJ8BPfjf2WFA+i+4XLKwH285aodCb73usurMfqQXLP90Bv5BsumlJ/zD wqk5JP+ft8XFBf7h5cW5xqD/kGyvAfqYbUmT4Adq5x46CTuZdv2MHvi/VNfm AO4S+9UP6/X8pw/B+4YbdMFn16WyHVjfC6tG+MQ9FYE9U1wlkReA30qbSuRJ r5U+DvnfC64cB/svUzlM5NeT2v+f+Xxu9zGGP5Jf0mO5flzLW/2B2uzq9vVG CHN/dHLTa+lupaW/dMZefNlKjXq0M9s5qpba+zmk7HvyS6qzv7SfoaczS/2H QZ/IM5DV3N1KDer4qVx62UpP7XqcC3ra+NJf+eEz7Lxr3Xuxx7L+z2nfRoe6 wLJWqtXPJEjwVju14lZYmIz/cyrAwGDKhbJWesKvqZeAbxjeQPKZzv/KZxY8 Ff7rfrqNfe9zTb4dwsyLuitdNgA5hTN3bL4eUktfUo87z8yLkoovb2LmRVfd 6ZnuFFVLu7nqCQ4zegiUv7kqn9FD7Y9rhqA3nnnvKzMvWv9Zgx0zLyroh900 0M/jnUTucZH/useZqn7RlGPkv+o33RbyP14v0i1wq51+KZUzFfO10PNKYXAq M2ArwTfER5L7Sz/7/jKXfS+o/v/45/X/Hz/M2207hugzjfcpxu1vf/GK4U9l yaouhDyBt2p8Ma59rgjBj66p6cK8zvTwBWC9pGPnv3dk1ktCW66XWV96jKqB CaMH+uDObglGD1S00AUP6G3dSYNB2MPcIy/aQG8mvdAWerZsjeGF3tJfO4mB Pqn0+nmso73wegWMm/R09klmHekyzplpkFONnjvArDtt2ipF8MS8vBTYT427 rx70XNNX5s/YD11zTv0W7G1nFDUa/Ocm7Stm7I2+b/d5Fewz24B6gHVczFd7 HvSu63MWwZ4nCJikY91Fzw09A73lD7mdZe2t1NljmyVSuZ5TGxe84Jyf0k79 jqMOs+OoYXYcNVBJXWbo6cp3A1/ucD2nZ+vG8oD+9+9lb/pXvHTE64ZG2KWX lHtk9p6bWnmUnaiUffjlLqp6R/n88e7PKaGIjqB1PRWUnfbodbEMXs7ui5n6 r76Yy+z+CNF/9UeIHT14FfLsWuZXxchDafNZjIY8PF1GKQx/2k61nxv8X3+3 Ifx9zsqeY+Shi2/O/ZHAyFP0IssO8hyu53YHPvWt5+xErTw69uwAwb/S5+PA h7daeTLDh5Z1rl8LPifYcZrbv+K037+r+PJf/SwN7H4Ex3/1I7z7qrUH+pfV E+dg9E9HpDzkhvxXjV6qQD+LfnKfxrin+neO6Mfg+Groc6KMJ8Xok85+V0Xk 9EuiBGuU/Fjndu1esVXDgTWand9+U/upo9nak5XVnub/Vs/zz/dhlivuz+PS d2Atiw9ZK6Xu9wcfbRFnpbnJQaN7rfkeRxW/P3yuOZsmapl7amy8Wf54l6Hn H3ycboSvuLyfxphDBovvzf5nXJ4fkWIy+/009p7vDh+t7/DnOzBf9FrFOtZ4 ajgur/2kqOL55zszz0eHsjQ3O2hMFNCb/kXHT+O3PKlrTeafN3RgmZTkCZzf +A9uuWn6VBVLT5aPgt6XxF2ef/A86/tPJNT8WHa3v0/JFXP4g0vJVHWGM+v7 rkisOInR25OdV6dCb2Ja0bYTmPXlN9aoW8/o+ax7RmcMg8+e4/yVwSmfIveN wNv6+D8AT+DvXxLB6P+r8TUz6F99kinhM/CkawHwd8KenrDzM1XrCK581OwD +AxEfdjB8KGOuccR/m1RAqcw7su9ecXAg6dPI/xdV6/7Ajl577+JZ+SkkoMr p4DP5Ywjq8sZO0k8f3ZfCmMnVywLdaUZO1E0+jaWwelDPd3+2L++gecInlV9 hgv4wzsz78Cufmjs0gM+5tEsLfCZMDrxLMOHygvcQ+jrTZ58wj56wrs+GvSn DrjuYXD61pnhhaDX2uVhB/qXVLcZ8F18xo8g53Ja8gb0uZD/7RxGTjpq8VZd zMu6OScdehslKv2ZmRetoJumBD69zXlGkF8hp5nw+cHxrBr6ken6JAv6xw41 A6CXMHAfC32eDTmpAT2vLa0k/C0O3OECrrgveC/0fDTzLsGrLfgLwSd664pl 0OebzJlk3G2Jgd8wrxfiE1yhnxMnHci8Qvaf2gE5XT7MTAR9C0cjGff55plP Ma/rYsOu0L9m1jvCf/yB1EQXAy/WaMnhFf76x1hmI3ZFH7nlPu1cvTvrVGP6 2g9v3f98v8J0fP8YnWPHWLfeFg3s2ef1B++8Zj2x//gxjcjh1k8iZv/gWTaD R0c1uGs0m895dKfU/Q//OVuWpoze6aXxuiTbK2r5P+PeTrewlNrmpSF13mVx vu4xjd/4QLT1QPw7d42B3MCQoBr3P9+1aP3A4/bN5piGo76AYqCZ1x9c9fv5 aeOsj7F+ao/a+GnXP/jJd1t7UtrdWdVeAy946v7hM8b7ymCriRfrkO9MUbv1 /4wboMF3CH7py2VFYv/VM1qtoLfQM8M68GOVobLJ8MPnrcq1GD9GXz14sgx+ 1fjZWQngOg/CCa6t9SoFfniUQRL8MHVTopLwWf0tPRH4bHq2Nvzzs57nBK+i jXPBJ3jcdHn4yS71PMLH9PV6Q4x7Z4VWNPAdytUEd+5adwRy/vg+mezfGdN6 CZ8Ik/JU2Il5jWwbzhHxF669sJMUM7fj8M+SH9QFsC9Me6Z9An7VutMSeP9x KQXYlfkWH4I/y/K4CT4R2YmjYedy3b2ET1bt+ps4x08n5K/BOS6bxyJxY+3J 3Tdxjsuq8/xCnJl6Sv4j4san7L7Rz//qG72/epQmzveNbjlpON8Ll8/KBB+j GdLSON/nV4ncxvnuyelO4tXffZep/+q7VLad5IY4JG3iXAnEId1z7fwQT6Yr fL6OOISb91or4hAPAxbBHydmk/pmGLu+2cCuG/r8f+658m90Sf1uN7t+J8yu i9k9ttdD3JWtXuWBeMxGgrcecdeO7RnzMO417Wd5kEdtZQqJx/auVfirbvWQ XQ8qsdoXifiK757NT8zXIcmFxFd7n9tcQjwm8rTqPfST9EG7FfGYlI7pNMSx N08E6yFeGjV/IaGX6R76iXjPu9PoFNZlnrBlO+ibZhe3A1/3qs0LcWBrmD6J b1WMD7xHHKg689dGxIHv251JPMyKm+mCcWP8cz8hDvzG/5TQS5nbW0DOiVt/ /cD6burYRuJtq9cLhhj90zcv5mVCDxJ2R7oQ9/ad2D0b+lm8IdcReuhYHkLw KZftSf75LTv/PJud181yXP+feVQzwQVV0Of4Krsu3CPkQ1tcEE+Gq55Lwro3 W0jKYdzWvcUEj0+xJflDFjt/2MDOy/V7SG+HXY0W2XQL8h8p+kriRvqMnAns cKjsawLma//4GYkzL45XqoE9x2g8w3zp3iidItA7jlN9BPt/dUKBgj5dg6RI HPv/AARMWFU= "]], {}}, Axes->True, DisplayFunction->Identity, FaceGridsStyle->Automatic, ImagePadding->Automatic, Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}}, PlotRange->{{Automatic, Automatic}, {Automatic, Automatic}, { Automatic, Automatic}}, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.777889351012429*^9, 3.777889451570181*^9, 3.777889537418091*^9, 3.777889620117653*^9, 3.7778915420450287`*^9, 3.777895315263857*^9}, CellLabel->"Out[2]=", CellID->456913623] }, Open ]], Cell["Form a covariant basis on the surface:", "Text", TaggingRules->{}, CellChangeTimes->{{3.777892504177719*^9, 3.7778925176249423`*^9}, { 3.777892577248247*^9, 3.777892581195054*^9}, {3.7778929515709047`*^9, 3.7778929528501067`*^9}, {3.7795564929859724`*^9, 3.7795565170876193`*^9}}, CellID->309244293], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["g", "\[Alpha]"], ",", SubscriptBox["g", "\[Beta]"]}], "}"}], "=", RowBox[{"Transpose", "@", RowBox[{"(", RowBox[{"D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], "}"}]}], "]"}], ")"}]}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7778897605178995`*^9, 3.7778898215306067`*^9}, { 3.7778899209973817`*^9, 3.7778899278925934`*^9}, {3.7778902732002*^9, 3.777890296600241*^9}, 3.777891306890216*^9}, CellLabel->"In[3]:=", CellID->144129911], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}]}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "r"}], " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], ",", RowBox[{ RowBox[{"-", "r"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.777889822669409*^9, 3.7778899295305967`*^9, 3.7778903001882477`*^9, 3.777891309776221*^9, 3.7778915458514357`*^9, 3.7778926158739147`*^9, 3.777895315279457*^9}, CellLabel->"Out[3]=", CellID->435413689] }, Open ]], Cell["Get the covariant surface metric tensor:", "Text", TaggingRules->{}, CellChangeTimes->{{3.777892626747134*^9, 3.7778926935308514`*^9}, { 3.777893044079067*^9, 3.777893063532301*^9}, {3.7795564995461407`*^9, 3.7795565001157093`*^9}, 3.859052460709593*^9}, CellID->517975014], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["g", "\[Alpha]\[Beta]"], "=", RowBox[{ RowBox[{"SymmetrizedArray", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{ SubscriptBox["g", "\[Alpha]"], ".", SubscriptBox["g", "\[Alpha]"]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", RowBox[{ SubscriptBox["g", "\[Alpha]"], ".", SubscriptBox["g", "\[Beta]"]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", RowBox[{ SubscriptBox["g", "\[Beta]"], ".", SubscriptBox["g", "\[Beta]"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"Symmetric", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "]"}], "//", "Simplify"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7778946681083198`*^9, 3.777894733067834*^9}}, CellLabel->"In[4]:=", CellID->318262407], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["StructuredArray", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.5, 0., 0.}}, {{0.5, 0., 0.}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {2, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["SymmetrizedArray", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symmetry: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Symmetric", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "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 -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ RasterBox[{{{0.235431, 0.32765, 0.833291}, {0.5, 0., 0.}}, {{0.5, 0., 0.}, {0.235431, 0.32765, 0.833291}}}, {{0, 0}, {2, 2}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["SymmetrizedArray", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Symmetry: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Symmetric", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Specified independent elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}], "2"], ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", StyleBox[ PaneBox[ SuperscriptBox["r", "2"], ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "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 -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], StructuredArray[SymmetrizedArray, {2, 2}, StructuredArray`StructuredData[ SymmetrizedArray, {{1, 1} -> ($CellContext`R + $CellContext`r Cos[$CellContext`\[Beta]])^2, {2, 2} -> $CellContext`r^2}, Symmetric[{1, 2}]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777894711539796*^9, 3.7778947337698355`*^9}, 3.7778953153574567`*^9}, CellLabel->"Out[4]=", CellID->336495962] }, Open ]], Cell["\<\ This leads to the related Christoffel symbol of the second kind of the \ toroidal surface:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.777893156274464*^9, 3.7778932329173985`*^9}, { 3.7778938111968145`*^9, 3.7778938117896156`*^9}, {3.777895161912587*^9, 3.7778951620685873`*^9}, {3.779556521510315*^9, 3.7795565297666845`*^9}}, CellID->916534473], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChristoffelSymbol", "[", RowBox[{ SubscriptBox["g", "\[Alpha]\[Beta]"], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}], "//", "MatrixForm"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.777893303055122*^9, 3.7778933149267426`*^9}}, CellLabel->"In[5]:=", CellID->236827190], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, { RowBox[{"-", FractionBox[ RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}]]}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", FractionBox[ RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}]]}]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"R", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "r"]}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], "\[NoBreak]", ")"}]} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", TaggingRules->{}, CellChangeTimes->{{3.777893299498316*^9, 3.7778933046151247`*^9}, { 3.7778947506802645`*^9, 3.7778947702894993`*^9}, 3.7778953153886566`*^9}, CellLabel->"Out[7]//MatrixForm=", CellID->250755432] }, Open ]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Lars Ulke-Winter", "Text", CellID->285433581] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["Christoffel symbol", "Item", CellID->61278257], Cell["covariant derivative", "Item", CellID->390244335], Cell["tensor analysis", "Item", CellID->663654204] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Higher Mathematical Computation", { False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Symbolic & Numeric Computation", { False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj01Ow0AMhSVEIUGII0BW7HKIKFC1ElBUc4HJ9NGMOn8aexZzeyYIUFn5We/\ Znz00Pa1IigVd7bLELD1djzP0CYfPC758MSz0sDHHGal7VTLDKTFa2W4MrqZrEzzdU3FTsEZ3j91bd\ khVnfkVsRU45nbIEr4X9NS8pxCRpNDNqATHkAy4wndxGeFf+FL32YKb54MRNVW1WivL+\ DPaJ1icO8sHwWbn/wPvtl6QYsLP0e3gC+WJUV++3YNDThofJYKadfZ6yXwBnuJkqQ=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["TensorRank", "Item", CellID->492381519], Cell["TensorProduct", "Item", CellID->450239683], Cell["TensorContract", "Item", CellID->533063659], Cell["CoordinateChartData", "Item", CellID->668083509], Cell["SymmetrizedArray", "Item", CellID->265937400] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["TensorCoordinateTransform", "Item", CellID->380711826], Cell["TensorIndexJuggling", "Item", CellID->144985050] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["Spherical Coordinates\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/SphericalCoordinates.html"], None}, ButtonNote-> "http://mathworld.wolfram.com/SphericalCoordinates.html"]], "Item", CellID->169478288], Cell[TextData[ButtonBox["Wikipedia\[Dash]Christoffel symbols", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Christoffel_symbols"], None}, ButtonNote->"https://en.wikipedia.org/wiki/Christoffel_symbols"]], "Item", CellID->321508079] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ChristoffelSymbol | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.869144478362603`16.34018993624592*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.869144478414989`16.340189936251804*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[633, 23, 100, 2, 70, "Title",ExpressionUUID->"ecc522b0-0fd7-4f5f-b1d4-e089ea350d43", CellTags->{"Name", "TemplateCell", "Title"}, CellID->963216952]}, "TemplateCell"->{ Cell[633, 23, 100, 2, 70, "Title",ExpressionUUID->"ecc522b0-0fd7-4f5f-b1d4-e089ea350d43", CellTags->{"Name", "TemplateCell", "Title"}, CellID->963216952], Cell[736, 27, 128, 2, 70, "Text",ExpressionUUID->"da222332-d621-4be2-96a1-6f2b6e8613b2", CellTags->{"Description", "TemplateCell"}, CellID->908712507]}, "Title"->{ Cell[633, 23, 100, 2, 70, "Title",ExpressionUUID->"ecc522b0-0fd7-4f5f-b1d4-e089ea350d43", CellTags->{"Name", "TemplateCell", "Title"}, CellID->963216952]}, "Description"->{ Cell[736, 27, 128, 2, 70, "Text",ExpressionUUID->"da222332-d621-4be2-96a1-6f2b6e8613b2", CellTags->{"Description", "TemplateCell"}, CellID->908712507]}, "Definition"->{ Cell[889, 33, 1206, 29, 70, "Section",ExpressionUUID->"a64fb64b-3dc8-47e4-b495-d8f34d17ab52", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[889, 33, 1206, 29, 70, "Section",ExpressionUUID->"a64fb64b-3dc8-47e4-b495-d8f34d17ab52", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[889, 33, 1206, 29, 70, "Section",ExpressionUUID->"a64fb64b-3dc8-47e4-b495-d8f34d17ab52", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[6280, 174, 1980, 50, 70, "Subsection",ExpressionUUID->"84065a37-2ffe-498f-8e70-798ba2c69243", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[9293, 269, 1429, 32, 70, "Subsection",ExpressionUUID->"dcbe6b4a-1b63-4e31-8d38-eb94b6176877", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[13718, 420, 7029, 152, 70, "Section",ExpressionUUID->"39d3aa0d-f216-4152-9ac0-bf34430b18b9", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[197847, 4083, 1026, 26, 70, "Subsection",ExpressionUUID->"73dc179d-2adf-4b1c-9e76-b1c0225542d1", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[198965, 4117, 996, 26, 70, "Subsection",ExpressionUUID->"c86b37e2-5ef5-4163-831a-2711e86cd572", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[200167, 4157, 221, 6, 70, "Subsection",ExpressionUUID->"fb4724a0-8ba8-421c-a4cd-9de92a748370", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[208777, 4423, 980, 26, 70, "Subsection",ExpressionUUID->"52a33722-51f3-4ca3-8f06-95e6e93c16e6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[210061, 4469, 1039, 26, 70, "Subsection",ExpressionUUID->"11af14d3-bcc4-4257-9be6-8a4249ade22d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[211259, 4506, 1084, 26, 70, "Subsection",ExpressionUUID->"31d0fe49-4ea1-4d6f-98d2-5db82983326e", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[212899, 4547, 923, 26, 70, "Subsection",ExpressionUUID->"2e36e61f-b14d-4e1c-82b9-d22afcb31ca5", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[214420, 4593, 1874, 45, 70, "Subsection",ExpressionUUID->"2facfc4b-0d39-4ff4-9b36-7c2166adbcba", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[216651, 4659, 955, 25, 70, "Subsection",ExpressionUUID->"27f19283-3953-4fd1-a65e-19ad1dae22fa", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[217631, 4688, 1174, 31, 70, "Subsubsection",ExpressionUUID->"753259f6-f6be-4a9d-a06f-966d08f83833", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[218934, 4728, 1113, 29, 70, "Subsubsection",ExpressionUUID->"42dbfff0-a588-4599-af15-21b158434a2c", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[222185, 4826, 1280, 33, 70, "Subsubsection",ExpressionUUID->"0c33202b-061f-47b2-8ee6-8cc23c6ec67a", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[225654, 4929, 1913, 46, 70, "Subsubsection",ExpressionUUID->"490bff53-7194-4540-a9b2-a531c9c24702", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[231593, 5099, 1071, 27, 70, "Subsubsection",ExpressionUUID->"cf4ff685-18d3-4709-a21b-394b6dd2bd3e", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[233946, 5171, 1155, 28, 70, "Section",ExpressionUUID->"2818f941-9690-4ee8-934e-506d2661c11f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[235670, 5214, 1033, 26, 70, "Section",ExpressionUUID->"d6a27056-c42f-4d9b-aad3-545f92991e75", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "TabNext"->{ Cell[2098, 64, 3925, 96, 70, "Input",ExpressionUUID->"586dcde4-eebb-47d0-9242-6efd21488ff4", CellTags->"TabNext", CellID->672776919], Cell[10725, 303, 960, 37, 70, "Notes",ExpressionUUID->"c81925d2-48d9-4866-aa51-e84e3c6aaac9", CellTags->"TabNext", CellID->865363792], Cell[212346, 4534, 516, 8, 70, "Text",ExpressionUUID->"fc2c0eef-2689-4392-91a7-d467f6735c1a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[235104, 5201, 529, 8, 70, "Text",ExpressionUUID->"1d642506-9674-4757-be0f-6182a84d6134", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[236706, 5242, 515, 8, 70, "Text",ExpressionUUID->"5aeba5a0-48ba-482c-824a-4f3a706cfaf5", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[6060, 165, 195, 5, 70, "Section",ExpressionUUID->"d2fbe22d-8115-4076-b914-7c838acbdc54", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[6060, 165, 195, 5, 70, "Section",ExpressionUUID->"d2fbe22d-8115-4076-b914-7c838acbdc54", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[197573, 4074, 249, 5, 70, "Section",ExpressionUUID->"27d04d67-1564-46c5-aa31-3ac82cd0eb8b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[6280, 174, 1980, 50, 70, "Subsection",ExpressionUUID->"84065a37-2ffe-498f-8e70-798ba2c69243", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[9293, 269, 1429, 32, 70, "Subsection",ExpressionUUID->"dcbe6b4a-1b63-4e31-8d38-eb94b6176877", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[9293, 269, 1429, 32, 70, "Subsection",ExpressionUUID->"dcbe6b4a-1b63-4e31-8d38-eb94b6176877", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[13718, 420, 7029, 152, 70, "Section",ExpressionUUID->"39d3aa0d-f216-4152-9ac0-bf34430b18b9", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[197573, 4074, 249, 5, 70, "Section",ExpressionUUID->"27d04d67-1564-46c5-aa31-3ac82cd0eb8b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[197847, 4083, 1026, 26, 70, "Subsection",ExpressionUUID->"73dc179d-2adf-4b1c-9e76-b1c0225542d1", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[197847, 4083, 1026, 26, 70, "Subsection",ExpressionUUID->"73dc179d-2adf-4b1c-9e76-b1c0225542d1", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[198965, 4117, 996, 26, 70, "Subsection",ExpressionUUID->"c86b37e2-5ef5-4163-831a-2711e86cd572", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[200167, 4157, 221, 6, 70, "Subsection",ExpressionUUID->"fb4724a0-8ba8-421c-a4cd-9de92a748370", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[200391, 4165, 8349, 253, 70, "Output",ExpressionUUID->"a1f1566b-1f96-45d4-b23a-0dfd61c4f760", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163]}, "Categories-Checkboxes"->{ Cell[200391, 4165, 8349, 253, 70, "Output",ExpressionUUID->"a1f1566b-1f96-45d4-b23a-0dfd61c4f760", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163]}, "CheckboxCell"->{ Cell[200391, 4165, 8349, 253, 70, "Output",ExpressionUUID->"a1f1566b-1f96-45d4-b23a-0dfd61c4f760", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163], Cell[220050, 4759, 2098, 62, 70, "Output",ExpressionUUID->"61c447c7-a67d-4151-a339-6655e3fc02e2", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[223468, 4861, 2149, 63, 70, "Output",ExpressionUUID->"c2310a33-e60e-4547-b575-fa1da009ede8", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[227570, 4977, 3986, 117, 70, "Output",ExpressionUUID->"8a8d7bbd-cdbc-49eb-8ac5-2b630b28acd2", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[232667, 5128, 1218, 36, 70, "Output",ExpressionUUID->"31aab6a4-efda-490e-a713-f04b7ada76a3", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[208777, 4423, 980, 26, 70, "Subsection",ExpressionUUID->"52a33722-51f3-4ca3-8f06-95e6e93c16e6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[210061, 4469, 1039, 26, 70, "Subsection",ExpressionUUID->"11af14d3-bcc4-4257-9be6-8a4249ade22d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[211259, 4506, 1084, 26, 70, "Subsection",ExpressionUUID->"31d0fe49-4ea1-4d6f-98d2-5db82983326e", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[212346, 4534, 516, 8, 70, "Text",ExpressionUUID->"fc2c0eef-2689-4392-91a7-d467f6735c1a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[216319, 4642, 158, 5, 70, "Input",ExpressionUUID->"91994398-0082-4da2-8b09-d900e8837116", CellTags->"DefaultContent", CellID->946203791], Cell[216480, 4649, 122, 4, 70, "Output",ExpressionUUID->"983f8212-4b11-4e86-8fe2-67d6863f6ca2", CellTags->"DefaultContent", CellID->168370258], Cell[218808, 4721, 89, 2, 70, "Text",ExpressionUUID->"fdc875c7-f5b7-4baa-b93e-8e44a83818ab", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[235104, 5201, 529, 8, 70, "Text",ExpressionUUID->"1d642506-9674-4757-be0f-6182a84d6134", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[236706, 5242, 515, 8, 70, "Text",ExpressionUUID->"5aeba5a0-48ba-482c-824a-4f3a706cfaf5", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[212899, 4547, 923, 26, 70, "Subsection",ExpressionUUID->"2e36e61f-b14d-4e1c-82b9-d22afcb31ca5", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[214420, 4593, 1874, 45, 70, "Subsection",ExpressionUUID->"2facfc4b-0d39-4ff4-9b36-7c2166adbcba", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[214420, 4593, 1874, 45, 70, "Subsection",ExpressionUUID->"2facfc4b-0d39-4ff4-9b36-7c2166adbcba", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[216651, 4659, 955, 25, 70, "Subsection",ExpressionUUID->"27f19283-3953-4fd1-a65e-19ad1dae22fa", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[217631, 4688, 1174, 31, 70, "Subsubsection",ExpressionUUID->"753259f6-f6be-4a9d-a06f-966d08f83833", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[217631, 4688, 1174, 31, 70, "Subsubsection",ExpressionUUID->"753259f6-f6be-4a9d-a06f-966d08f83833", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[218808, 4721, 89, 2, 70, "Text",ExpressionUUID->"fdc875c7-f5b7-4baa-b93e-8e44a83818ab", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[218934, 4728, 1113, 29, 70, "Subsubsection",ExpressionUUID->"42dbfff0-a588-4599-af15-21b158434a2c", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[220050, 4759, 2098, 62, 70, "Output",ExpressionUUID->"61c447c7-a67d-4151-a339-6655e3fc02e2", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[218934, 4728, 1113, 29, 70, "Subsubsection",ExpressionUUID->"42dbfff0-a588-4599-af15-21b158434a2c", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[220050, 4759, 2098, 62, 70, "Output",ExpressionUUID->"61c447c7-a67d-4151-a339-6655e3fc02e2", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[222185, 4826, 1280, 33, 70, "Subsubsection",ExpressionUUID->"0c33202b-061f-47b2-8ee6-8cc23c6ec67a", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[223468, 4861, 2149, 63, 70, "Output",ExpressionUUID->"c2310a33-e60e-4547-b575-fa1da009ede8", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[222185, 4826, 1280, 33, 70, "Subsubsection",ExpressionUUID->"0c33202b-061f-47b2-8ee6-8cc23c6ec67a", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[223468, 4861, 2149, 63, 70, "Output",ExpressionUUID->"c2310a33-e60e-4547-b575-fa1da009ede8", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[225654, 4929, 1913, 46, 70, "Subsubsection",ExpressionUUID->"490bff53-7194-4540-a9b2-a531c9c24702", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[227570, 4977, 3986, 117, 70, "Output",ExpressionUUID->"8a8d7bbd-cdbc-49eb-8ac5-2b630b28acd2", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[225654, 4929, 1913, 46, 70, "Subsubsection",ExpressionUUID->"490bff53-7194-4540-a9b2-a531c9c24702", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[227570, 4977, 3986, 117, 70, "Output",ExpressionUUID->"8a8d7bbd-cdbc-49eb-8ac5-2b630b28acd2", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[231593, 5099, 1071, 27, 70, "Subsubsection",ExpressionUUID->"cf4ff685-18d3-4709-a21b-394b6dd2bd3e", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[231593, 5099, 1071, 27, 70, "Subsubsection",ExpressionUUID->"cf4ff685-18d3-4709-a21b-394b6dd2bd3e", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[232667, 5128, 1218, 36, 70, "Output",ExpressionUUID->"31aab6a4-efda-490e-a713-f04b7ada76a3", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[232667, 5128, 1218, 36, 70, "Output",ExpressionUUID->"31aab6a4-efda-490e-a713-f04b7ada76a3", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[233946, 5171, 1155, 28, 70, "Section",ExpressionUUID->"2818f941-9690-4ee8-934e-506d2661c11f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[235670, 5214, 1033, 26, 70, "Section",ExpressionUUID->"d6a27056-c42f-4d9b-aad3-545f92991e75", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 360228, 7570}, {"TemplateCell", 360411, 7574}, {"Title", 360747, 7581}, {"Description", 360929, 7585}, {"Definition", 361107, 7589}, {"Function", 361303, 7593}, {"TemplateCellGroup", 361508, 7597}, {"TabNext", 365354, 7658}, {"Documentation", 366149, 7674}, {"TemplateSection", 366342, 7678}, {"Usage", 366716, 7685}, {"Details & Options", 366910, 7689}, {"Notes", 367113, 7693}, {"Examples", 367319, 7697}, {"Source & Additional Information", 367529, 7701}, {"Contributed By", 367742, 7705}, {"ContributorInformation", 367978, 7709}, {"Keywords", 368200, 7713}, {"Categories", 368392, 7717}, {"Categories-Checkboxes", 368790, 7724}, {"CheckboxCell", 369004, 7728}, {"Related Symbols", 370129, 7744}, {"Related Resource Objects", 370342, 7748}, {"Source/Reference Citation", 370566, 7752}, {"DefaultContent", 370780, 7756}, {"Links", 371753, 7775}, {"Tests", 371937, 7779}, {"VerificationTests", 372155, 7783}, {"Compatibility", 372369, 7787}, {"CompatibilityWolframLanguageVersionRequired", 372599, 7791}, {"Wolfram Language Version", 372872, 7795}, {"ScrapeDefault", 373134, 7799}, {"CompatibilityOperatingSystem", 373338, 7803}, {"Operating System", 373809, 7810}, {"CompatibilityOperatingSystem-Checkboxes", 374074, 7814}, {"CompatibilityFeatures", 374332, 7818}, {"Required Features", 374784, 7825}, {"CompatibilityFeatures-Checkboxes", 375036, 7829}, {"CompatibilityEvaluationEnvironment", 375293, 7833}, {"Environments", 375774, 7840}, {"CompatibilityEvaluationEnvironment-Checkboxes", 376047, 7844}, {"Cloud Support", 376309, 7848}, {"CompatibilityCloudSupport", 376554, 7852}, {"CompatibilityCloudSupport-Checkboxes", 377033, 7859}, {"Author Notes", 377276, 7863}, {"Submission Notes", 377476, 7867} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[633, 23, 100, 2, 70, "Title",ExpressionUUID->"ecc522b0-0fd7-4f5f-b1d4-e089ea350d43", CellTags->{"Name", "TemplateCell", "Title"}, CellID->963216952], Cell[736, 27, 128, 2, 70, "Text",ExpressionUUID->"da222332-d621-4be2-96a1-6f2b6e8613b2", CellTags->{"Description", "TemplateCell"}, CellID->908712507], Cell[CellGroupData[{ Cell[889, 33, 1206, 29, 70, "Section",ExpressionUUID->"a64fb64b-3dc8-47e4-b495-d8f34d17ab52", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2098, 64, 3925, 96, 70, "Input",ExpressionUUID->"586dcde4-eebb-47d0-9242-6efd21488ff4", CellTags->"TabNext", CellID->672776919] }, Open ]], Cell[CellGroupData[{ Cell[6060, 165, 195, 5, 70, "Section",ExpressionUUID->"d2fbe22d-8115-4076-b914-7c838acbdc54", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[6280, 174, 1980, 50, 70, "Subsection",ExpressionUUID->"84065a37-2ffe-498f-8e70-798ba2c69243", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[8285, 228, 201, 6, 70, "UsageInputs",ExpressionUUID->"177ebf52-641a-4ad6-bf27-501bbdb7534f", CellID->502828689], Cell[8489, 236, 352, 11, 70, "UsageDescription",ExpressionUUID->"a3df7354-35f4-48fc-9118-00d8dde05650", CellID->45684135] }, Open ]], Cell[CellGroupData[{ Cell[8878, 252, 266, 8, 70, "UsageInputs",ExpressionUUID->"a63fe0c7-3882-4bc6-8745-5be854cb5c1d", CellID->62051989], Cell[9147, 262, 97, 1, 70, "UsageDescription",ExpressionUUID->"23f5bf40-40f7-49ca-af48-f2324a2a3d19", CellID->348585359] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9293, 269, 1429, 32, 70, "Subsection",ExpressionUUID->"dcbe6b4a-1b63-4e31-8d38-eb94b6176877", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[10725, 303, 960, 37, 70, "Notes",ExpressionUUID->"c81925d2-48d9-4866-aa51-e84e3c6aaac9", CellTags->"TabNext", CellID->865363792], Cell[11688, 342, 752, 27, 70, "Notes",ExpressionUUID->"f2cb8bb4-5fa7-49f4-a66f-1a2698c8d74a", CellID->764126060], Cell[12443, 371, 586, 20, 70, "Notes",ExpressionUUID->"7023f3d2-6002-4fd0-9b89-5d1ea1605beb", CellID->512342002], Cell[13032, 393, 637, 21, 70, "Notes",ExpressionUUID->"7c75ea40-00dd-41b4-9b38-a779a9021c3c", CellID->27128602] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13718, 420, 7029, 152, 70, "Section",ExpressionUUID->"39d3aa0d-f216-4152-9ac0-bf34430b18b9", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[20772, 576, 75, 2, 70, "Subsection",ExpressionUUID->"bb77339a-b918-40c3-8066-d5c3770dee44", CellID->904125756], Cell[20850, 580, 407, 8, 70, "Text",ExpressionUUID->"eeb4e7d0-bee5-4bbf-999b-51d38ee59c25", CellID->542508696], Cell[CellGroupData[{ Cell[21282, 592, 915, 28, 70, "Input",ExpressionUUID->"ded0b89c-78a9-4b1b-b5c6-571b68201018", CellID->540914495], Cell[22200, 622, 5357, 159, 70, "Output",ExpressionUUID->"407778e5-e636-401d-a6eb-ea3559c37823", CellID->837033312] }, Open ]], Cell[CellGroupData[{ Cell[27594, 786, 189, 5, 70, "Input",ExpressionUUID->"3a85e626-f5c3-4ed6-9351-4500dd5dff76", CellID->884935010], Cell[27786, 793, 186, 5, 70, "Output",ExpressionUUID->"c11f394b-6895-43be-a2ba-0d46b514b531", CellID->179434224] }, Open ]], Cell[CellGroupData[{ Cell[28009, 803, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"338f3581-c34e-4a16-b9eb-b4507ad80be6", CellID->14107562], Cell[28155, 809, 496, 9, 70, "Text",ExpressionUUID->"50919fbb-f389-4789-ac24-0fb0a428a834", CellID->803741206], Cell[CellGroupData[{ Cell[28676, 822, 1107, 30, 70, "Input",ExpressionUUID->"514e500b-6833-4f0c-b409-ac387667343e", CellID->778518150], Cell[29786, 854, 5377, 158, 70, "Output",ExpressionUUID->"f44a90ab-f949-4537-8ace-1fc8b7bf26f6", CellID->53188207] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35212, 1018, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"8daa0b7b-6aee-459a-9dcc-41dcdd0ca084", CellID->14107563], Cell[35358, 1024, 333, 6, 70, "Text",ExpressionUUID->"cc619609-ab03-4dd4-910b-0a11f9b83820", CellID->288625698], Cell[CellGroupData[{ Cell[35716, 1034, 702, 17, 70, "Input",ExpressionUUID->"eec1c9c8-e99a-4fe8-875e-21d49d752f10", CellID->34113512], Cell[36421, 1053, 5806, 171, 70, "Output",ExpressionUUID->"052abe2c-92b4-45bf-84a9-f124dd390fb2", CellID->641996719] }, Open ]], Cell[CellGroupData[{ Cell[42264, 1229, 645, 16, 70, "Input",ExpressionUUID->"9ee2978f-e094-48a5-a1ec-d8d931f3e710", CellID->606142887], Cell[42912, 1247, 6137, 179, 70, "Output",ExpressionUUID->"23b480c3-729f-4054-bd98-34a233573315", CellID->548664897] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49110, 1433, 143, 3, 70, "Subsection",ExpressionUUID->"43c7f711-4fa8-4e79-8a70-31ec9803b1f3", CellID->605265931], Cell[CellGroupData[{ Cell[49278, 1440, 283, 6, 70, "Subsubsection",ExpressionUUID->"a14721cc-50a5-416e-8468-d35d371c48e5", CellID->916229833], Cell[49564, 1448, 391, 9, 70, "Text",ExpressionUUID->"f27d52b1-a349-4a6a-86a0-2b3439c0f903", CellID->288789151], Cell[49958, 1459, 1029, 29, 70, "Input",ExpressionUUID->"b58a9271-3ea1-4f19-992a-526da833191f", CellID->688861955], Cell[50990, 1490, 365, 6, 70, "Text",ExpressionUUID->"14ca1f2b-c727-4a66-8239-2e413854231e", CellID->930247852], Cell[CellGroupData[{ Cell[51380, 1500, 970, 28, 70, "Input",ExpressionUUID->"d66cdc27-4058-43b0-b1fb-37cbd2b3ef41", CellID->488782259], Cell[52353, 1530, 127567, 2082, 70, "Output",ExpressionUUID->"6867df4d-9bca-4fcb-97e7-ca2d2555218c", CellID->456913623] }, Open ]], Cell[179935, 3615, 313, 5, 70, "Text",ExpressionUUID->"47fa3cb9-b773-482e-98a7-af6e1a2b52ff", CellID->309244293], Cell[CellGroupData[{ Cell[180273, 3624, 922, 27, 70, "Input",ExpressionUUID->"da23aadf-ef5f-489a-8620-aee90c0d1afc", CellID->144129911], Cell[181198, 3653, 1203, 36, 70, "Output",ExpressionUUID->"c4f416c6-288c-435a-8b3a-005d1c526f71", CellID->435413689] }, Open ]], Cell[182416, 3692, 289, 5, 70, "Text",ExpressionUUID->"53623271-3c76-4662-80c8-8fb6d9658880", CellID->517975014], Cell[CellGroupData[{ Cell[182730, 3701, 1118, 35, 70, "Input",ExpressionUUID->"26127de4-3f12-4e54-b762-99d0aabd9347", CellID->318262407], Cell[183851, 3738, 9436, 203, 70, "Output",ExpressionUUID->"2ef57407-c169-4f34-a005-2a4034323bfe", CellID->336495962] }, Open ]], Cell[193302, 3944, 373, 8, 70, "Text",ExpressionUUID->"0213c2d0-115d-444c-ba81-3b9a69502292", CellID->916534473], Cell[CellGroupData[{ Cell[193700, 3956, 362, 11, 70, "Input",ExpressionUUID->"70c222a8-9494-4cf2-a1ef-e76d3cae6273", CellID->236827190], Cell[194065, 3969, 3435, 97, 70, "Output",ExpressionUUID->"c99937d1-6442-45d5-b3d0-4a59ef8d5595", CellID->250755432] }, Open ]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[197573, 4074, 249, 5, 70, "Section",ExpressionUUID->"27d04d67-1564-46c5-aa31-3ac82cd0eb8b", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[197847, 4083, 1026, 26, 70, "Subsection",ExpressionUUID->"73dc179d-2adf-4b1c-9e76-b1c0225542d1", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[198876, 4111, 52, 1, 70, "Text",ExpressionUUID->"19995b6d-ad91-4500-891d-096116734ee8", CellID->285433581] }, Open ]], Cell[CellGroupData[{ Cell[198965, 4117, 996, 26, 70, "Subsection",ExpressionUUID->"c86b37e2-5ef5-4163-831a-2711e86cd572", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[199964, 4145, 53, 1, 70, "Item",ExpressionUUID->"92a35f56-5e5d-4c4f-ad56-1bf0e963fdfc", CellID->61278257], Cell[200020, 4148, 56, 1, 70, "Item",ExpressionUUID->"5753873d-8d39-43ca-93fa-9302b7a6d37a", CellID->390244335], Cell[200079, 4151, 51, 1, 70, "Item",ExpressionUUID->"4598a330-7ae6-4369-9fb8-29e484da9026", CellID->663654204] }, Open ]], Cell[CellGroupData[{ Cell[200167, 4157, 221, 6, 70, "Subsection",ExpressionUUID->"fb4724a0-8ba8-421c-a4cd-9de92a748370", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[200391, 4165, 8349, 253, 70, "Output",ExpressionUUID->"a1f1566b-1f96-45d4-b23a-0dfd61c4f760", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->936922163] }, Open ]], Cell[CellGroupData[{ Cell[208777, 4423, 980, 26, 70, "Subsection",ExpressionUUID->"52a33722-51f3-4ca3-8f06-95e6e93c16e6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[209760, 4451, 46, 1, 70, "Item",ExpressionUUID->"c44f1cb0-e7c4-4523-a26c-e37fe8d6318f", CellID->492381519], Cell[209809, 4454, 49, 1, 70, "Item",ExpressionUUID->"2675542e-bd06-4472-850c-77e9b4b90c7a", CellID->450239683], Cell[209861, 4457, 50, 1, 70, "Item",ExpressionUUID->"97b49e05-e477-4618-ba21-a05e8e13d8df", CellID->533063659], Cell[209914, 4460, 55, 1, 70, "Item",ExpressionUUID->"b0d6b77e-1bb4-41b5-884a-22ba12b330d7", CellID->668083509], Cell[209972, 4463, 52, 1, 70, "Item",ExpressionUUID->"fb6a208e-3674-4485-a991-c99059db114a", CellID->265937400] }, Open ]], Cell[CellGroupData[{ Cell[210061, 4469, 1039, 26, 70, "Subsection",ExpressionUUID->"11af14d3-bcc4-4257-9be6-8a4249ade22d", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[211103, 4497, 61, 1, 70, "Item",ExpressionUUID->"15da4502-ac18-41cb-b363-fcbbca1c99b6", CellID->380711826], Cell[211167, 4500, 55, 1, 70, "Item",ExpressionUUID->"1d791800-9649-40eb-a0c6-c754f22e769a", CellID->144985050] }, Open ]], Cell[CellGroupData[{ Cell[211259, 4506, 1084, 26, 70, "Subsection",ExpressionUUID->"31d0fe49-4ea1-4d6f-98d2-5db82983326e", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[212346, 4534, 516, 8, 70, "Text",ExpressionUUID->"fc2c0eef-2689-4392-91a7-d467f6735c1a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[212899, 4547, 923, 26, 70, "Subsection",ExpressionUUID->"2e36e61f-b14d-4e1c-82b9-d22afcb31ca5", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[213825, 4575, 289, 6, 70, "Item",ExpressionUUID->"6cf7173b-3ae9-4938-8673-ae1998f2a6dd", CellID->169478288], Cell[214117, 4583, 266, 5, 70, "Item",ExpressionUUID->"088a03a2-7679-4f7f-9e92-fadbfcf7f2a5", CellID->321508079] }, Open ]], Cell[CellGroupData[{ Cell[214420, 4593, 1874, 45, 70, "Subsection",ExpressionUUID->"2facfc4b-0d39-4ff4-9b36-7c2166adbcba", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[216319, 4642, 158, 5, 70, "Input",ExpressionUUID->"91994398-0082-4da2-8b09-d900e8837116", CellTags->"DefaultContent", CellID->946203791], Cell[216480, 4649, 122, 4, 70, "Output",ExpressionUUID->"983f8212-4b11-4e86-8fe2-67d6863f6ca2", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[216651, 4659, 955, 25, 70, "Subsection",ExpressionUUID->"27f19283-3953-4fd1-a65e-19ad1dae22fa", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[217631, 4688, 1174, 31, 70, "Subsubsection",ExpressionUUID->"753259f6-f6be-4a9d-a06f-966d08f83833", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[218808, 4721, 89, 2, 70, "Text",ExpressionUUID->"fdc875c7-f5b7-4baa-b93e-8e44a83818ab", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[218934, 4728, 1113, 29, 70, "Subsubsection",ExpressionUUID->"42dbfff0-a588-4599-af15-21b158434a2c", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[220050, 4759, 2098, 62, 70, "Output",ExpressionUUID->"61c447c7-a67d-4151-a339-6655e3fc02e2", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[222185, 4826, 1280, 33, 70, "Subsubsection",ExpressionUUID->"0c33202b-061f-47b2-8ee6-8cc23c6ec67a", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[223468, 4861, 2149, 63, 70, "Output",ExpressionUUID->"c2310a33-e60e-4547-b575-fa1da009ede8", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[225654, 4929, 1913, 46, 70, "Subsubsection",ExpressionUUID->"490bff53-7194-4540-a9b2-a531c9c24702", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[227570, 4977, 3986, 117, 70, "Output",ExpressionUUID->"8a8d7bbd-cdbc-49eb-8ac5-2b630b28acd2", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[231593, 5099, 1071, 27, 70, "Subsubsection",ExpressionUUID->"cf4ff685-18d3-4709-a21b-394b6dd2bd3e", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[232667, 5128, 1218, 36, 70, "Output",ExpressionUUID->"31aab6a4-efda-490e-a713-f04b7ada76a3", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[233946, 5171, 1155, 28, 70, "Section",ExpressionUUID->"2818f941-9690-4ee8-934e-506d2661c11f", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[235104, 5201, 529, 8, 70, "Text",ExpressionUUID->"1d642506-9674-4757-be0f-6182a84d6134", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[235670, 5214, 1033, 26, 70, "Section",ExpressionUUID->"d6a27056-c42f-4d9b-aad3-545f92991e75", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[236706, 5242, 515, 8, 70, "Text",ExpressionUUID->"5aeba5a0-48ba-482c-824a-4f3a706cfaf5", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)