(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 343405, 7025] NotebookOptionsPosition[ 210275, 4434] NotebookOutlinePosition[ 331920, 6771] CellTagsIndexPosition[ 330968, 6740] WindowTitle->RandomWolframModel | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["RandomWolframModel", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->543277616], Cell["\<\ Generate a random canonical Wolfram model rule with a particular signature\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->525629064], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[BoxData[ RowBox[{ RowBox[{"RandomWolframModel", "[", RowBox[{"sig_Rule", ",", "s_Integer", ",", RowBox[{"connectedness", ":", RowBox[{"(", RowBox[{"None", "|", "Automatic", "|", "All"}], ")"}], ":", "Automatic"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "rule", "}"}], ",", RowBox[{ RowBox[{"While", "[", RowBox[{"!", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"rule", "=", RowBox[{"Rule", "@@", RowBox[{"Table", "[", RowBox[{ RowBox[{"Catenate", "[", RowBox[{ RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "s"}], "}"}], ",", "#"}], "]"}], "&"}], "/@", RowBox[{"sig", "[", RowBox[{"[", "n", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", RowBox[{"Length", "[", "sig", "]"}]}], "}"}]}], "]"}]}]}], ",", "connectedness"}], "]"}]}], "]"}], ";", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", "rule", "]"}]}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.781635080836946*^9, 3.781635122678656*^9}, { 3.781635177248197*^9, 3.78163517759167*^9}, {3.782613787084057*^9, 3.782613795962619*^9}, {3.783373094441238*^9, 3.7833731008422003`*^9}, { 3.784509304237556*^9, 3.7845093106467323`*^9}, 3.7845101339693813`*^9, { 3.786729789673551*^9, 3.78672979224063*^9}, {3.786729903730589*^9, 3.786729942403496*^9}, {3.786729977771978*^9, 3.786730028520941*^9}, { 3.786730109666004*^9, 3.786730111865168*^9}, {3.786730171886211*^9, 3.786730175033431*^9}, 3.78673023059422*^9, {3.786730535934709*^9, 3.786730558050397*^9}, {3.786730709105266*^9, 3.786730710992996*^9}, { 3.793141761820332*^9, 3.7931417766932087`*^9}}, CellLabel->"In[56]:=", CellID->760684928], Cell[BoxData[ RowBox[{ RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{"list", ":", RowBox[{"{", "__Rule", "}"}]}], ",", "s_Integer", ",", RowBox[{"connectedness", ":", RowBox[{"(", RowBox[{"None", "|", "Automatic", "|", "All"}], ")"}], ":", "Automatic"}]}], "]"}], ":=", RowBox[{"RandomWolframModel", "[", RowBox[{"list", ",", RowBox[{"Table", "[", RowBox[{"s", ",", RowBox[{"Length", "[", "list", "]"}]}], "]"}], ",", "connectedness"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.781996957998044*^9, 3.781996990461533*^9}, { 3.781997021909512*^9, 3.7819970324072104`*^9}, {3.781997077037171*^9, 3.781997082765524*^9}, {3.784509866753901*^9, 3.784509888680995*^9}, { 3.784510134817882*^9, 3.784510135755192*^9}, {3.786729796811705*^9, 3.786729818840447*^9}, {3.786729861335829*^9, 3.786729864240595*^9}, { 3.7867305469775543`*^9, 3.7867305488847733`*^9}}, CellLabel->"In[57]:=", CellID->807554517], Cell[BoxData[ RowBox[{ RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{"list", ":", RowBox[{"{", "__Rule", "}"}]}], ",", RowBox[{"slist", ":", RowBox[{"{", "__Integer", "}"}]}], ",", RowBox[{"connectedness", ":", RowBox[{"(", RowBox[{"None", "|", "Automatic", "|", "All"}], ")"}], ":", "Automatic"}]}], "]"}], ":=", RowBox[{"Union", "[", RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"RandomWolframModel", "[", RowBox[{"#", ",", "#2", ",", "connectedness"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{"list", ",", "slist"}], "}"}]}], "]"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.781996957998044*^9, 3.781996990461533*^9}, { 3.781997021909512*^9, 3.7819970324072104`*^9}, {3.781997077037171*^9, 3.781997082765524*^9}, {3.784509891867384*^9, 3.784509936690571*^9}, { 3.7845101371684227`*^9, 3.784510137823011*^9}, {3.786729823841866*^9, 3.786729828154751*^9}, {3.786729865658505*^9, 3.7867298666184053`*^9}, { 3.786730550603516*^9, 3.786730551945343*^9}}, CellLabel->"In[58]:=", CellID->45925737], Cell[BoxData[ RowBox[{ RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{"sig", ":", RowBox[{"(", RowBox[{"_Rule", "|", RowBox[{"{", "__Rule", "}"}]}], ")"}]}], ",", RowBox[{"connectedness", ":", RowBox[{"(", RowBox[{"None", "|", "Automatic", "|", "All"}], ")"}], ":", "Automatic"}]}], "]"}], ":=", RowBox[{"RandomWolframModel", "[", RowBox[{"sig", ",", RowBox[{"maxConnectedAtoms", "[", "sig", "]"}], ",", "connectedness"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.784509289983663*^9, 3.784509349919639*^9}, { 3.784509402543459*^9, 3.784509426329022*^9}, {3.784509773938272*^9, 3.784509776890126*^9}, 3.7845099601487494`*^9, {3.784510138504672*^9, 3.784510139134165*^9}, {3.786729842768528*^9, 3.786729869233014*^9}, { 3.7867305533999977`*^9, 3.78673055383512*^9}}, CellLabel->"In[59]:=", CellID->671142181], Cell[CellGroupData[{ Cell["Max Symbol Counts", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.783816964093432*^9, 3.783816968627715*^9}}, CellLabel->"In[60]:=", CellID->204206741], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"_", ",", "0"}], "}"}], "|", RowBox[{"{", RowBox[{"0", ",", "_"}], "}"}]}], ",", "All"}], "]"}], ":=", "0"}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.783816970458458*^9, 3.783816978462351*^9}, 3.785535331215407*^9, {3.7855355086027193`*^9, 3.785535509198626*^9}, { 3.786374400521552*^9, 3.7863744035395603`*^9}, {3.786374442588682*^9, 3.786374447182125*^9}}, CellLabel->"In[1]:=", CellID->901606921], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{ RowBox[{"{", RowBox[{"count_Integer", ",", "arity_Integer"}], "}"}], ",", "All"}], "]"}], ":=", RowBox[{ RowBox[{"count", " ", "arity"}], "-", RowBox[{"(", RowBox[{"count", "-", "1"}], ")"}]}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.783816970458458*^9, 3.783816978462351*^9}, 3.785535331215407*^9, {3.7855355086027193`*^9, 3.785535509198626*^9}}, CellLabel->"In[2]:=", CellID->428903361], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{ RowBox[{"{", RowBox[{"count_Integer", ",", "arity_Integer"}], "}"}], ",", "None"}], "]"}], ":=", RowBox[{"count", " ", "arity"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.783816970458458*^9, 3.783816978462351*^9}, 3.785535331215407*^9, {3.7855355086027193`*^9, 3.785535509198626*^9}, { 3.7855357630765247`*^9, 3.785535766993919*^9}}, CellLabel->"In[3]:=", CellID->384754172], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{ RowBox[{"ruleList", ":", RowBox[{"{", "__Rule", "}"}]}], ",", "type_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{"#", ",", "type"}], "]"}], "&"}], "/@", "ruleList"}]}]], "Input",\ TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.783816970458458*^9, 3.7838169735060577`*^9}, { 3.784509374714263*^9, 3.78450937696677*^9}, {3.785535401795644*^9, 3.785535403063306*^9}, {3.785535445762179*^9, 3.785535448068837*^9}}, CellLabel->"In[4]:=", CellID->809881665], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{ RowBox[{"signatures", ":", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_", ",", "_"}], "}"}], "..."}], "}"}]}], ",", "All"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"signatureResults", "=", RowBox[{ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{"#", ",", "All"}], "]"}], "&"}], "/@", "signatures"}]}], "}"}], ",", RowBox[{ RowBox[{"Total", "[", "signatureResults", "]"}], "-", RowBox[{"Max", "[", RowBox[{ RowBox[{ RowBox[{"Count", "[", RowBox[{"signatureResults", ",", RowBox[{"Except", "[", "0", "]"}]}], "]"}], "-", "1"}], ",", "0"}], "]"}]}]}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.783816970458458*^9, 3.783816978462351*^9}, 3.78553533038621*^9, {3.785535492141325*^9, 3.7855354999789543`*^9}, 3.786374682091979*^9, {3.786374839558443*^9, 3.786374887354005*^9}, { 3.786375157382537*^9, 3.7863751661341267`*^9}, {3.78637539726364*^9, 3.786375420300384*^9}}, CellLabel->"In[5]:=", CellID->192688919], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{ RowBox[{"signatures", ":", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_", ",", "_"}], "}"}], "..."}], "}"}]}], ",", "None"}], "]"}], ":=", RowBox[{"Total", "[", RowBox[{ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{"#", ",", "None"}], "]"}], "&"}], "/@", "signatures"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.783816970458458*^9, 3.783816978462351*^9}, 3.78553533038621*^9, {3.785535492141325*^9, 3.7855354999789543`*^9}, { 3.78553574782146*^9, 3.785535761294401*^9}}, CellLabel->"In[6]:=", CellID->249151450], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{"rule_Rule", ",", "connectivity_"}], "]"}], ":=", RowBox[{"maxConnectedAtoms", "[", RowBox[{ RowBox[{"Catenate", "[", RowBox[{"List", "@@", "rule"}], "]"}], ",", "connectivity"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.783816970458458*^9, 3.783816975704479*^9}, 3.785535329560107*^9, {3.785535466747003*^9, 3.785535488558487*^9}, { 3.786375189336735*^9, 3.786375196782102*^9}, {3.7863754496083813`*^9, 3.786375508833927*^9}}, CellLabel->"In[7]:=", CellID->525499418], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", RowBox[{"arg_", ",", "Automatic"}], "]"}], ":=", RowBox[{"maxConnectedAtoms", "[", RowBox[{"arg", ",", "All"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.78637552165734*^9, 3.786375525004941*^9}}, CellLabel->"In[8]:=", CellID->565134437], Cell[BoxData[ RowBox[{ RowBox[{"maxConnectedAtoms", "[", "arg_", "]"}], ":=", RowBox[{"maxConnectedAtoms", "[", RowBox[{"arg", ",", "Automatic"}], "]"}]}]], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.785535948249917*^9, 3.785535974410349*^9}}, CellLabel->"In[9]:=", CellID->60153134] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomWolframModel", "[", StyleBox["signature", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->239490279], Cell[TextData[{ "generates a random Wolfram model rule with the specified ", Cell[BoxData[ StyleBox["signature", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->987777615] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomWolframModel", "[", RowBox[{ StyleBox["signature", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->368752462], Cell[TextData[{ "generates a random Wolfram model using at most ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " distinct elements." }], "UsageDescription", CellID->539143668] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[TextData[{ "The signature is given in the form ", Cell[BoxData[ RowBox[{ StyleBox["lhs", "TI"], "\[Rule]", StyleBox["rhs", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where each ", Cell[BoxData[ StyleBox["lhs", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ StyleBox["rhs", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is a list of pairs ", Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["count", "TI"], ",", StyleBox["arity", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " where ", Cell[BoxData[ StyleBox["count", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " gives the number of hyperedges of specified arity." }], "Notes", TaggingRules->{}, 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.781996834142345*^9, 3.7819968374680862`*^9}, { 3.7819970561106157`*^9, 3.781997059612976*^9}, {3.781997105499209*^9, 3.781997152837246*^9}, {3.784509500195754*^9, 3.784509517082293*^9}, { 3.784509965506089*^9, 3.784509965513692*^9}, {3.796141633051504*^9, 3.7961416442852287`*^9}}, CellTags->"TabNext", CellID->598625853], Cell[TextData[{ Cell[BoxData["RandomWolframModel"], "InlineFormula", FontFamily->"Source Sans Pro"], " gives a canonical form of each rule it returns." }], "Notes", TaggingRules->{}, 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.781996834142345*^9, 3.7819968374680862`*^9}, { 3.7819970561106157`*^9, 3.781997059612976*^9}, {3.781997105499209*^9, 3.781997152837246*^9}, {3.784509500195754*^9, 3.784509517082293*^9}, { 3.7845099664802017`*^9, 3.784509988330069*^9}, {3.784510142640731*^9, 3.784510142640785*^9}}, CellID->793740038] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellLabel->"In[1]:=", CellID->322807129], Cell[TextData[{ "Generate a random ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["2", "3"], "\[Rule]", " ", SubscriptBox["3", "2"]}], TraditionalForm]]], " Wolfram model rule:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.781635347534443*^9, 3.781635388902709*^9}, { 3.781635470296644*^9, 3.781635476938931*^9}, 3.784509552945895*^9}, CellID->251195166], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7816352949667587`*^9, 3.781635342991083*^9, 3.784509540449054*^9, 3.784510145041589*^9}, CellLabel->"In[10]:=", CellID->740490371], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "4"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7"}], "}"}]}], "}"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.781635343918858*^9, 3.7819968657340117`*^9, 3.7845095426402187`*^9, 3.784510160247778*^9, {3.78637637580721*^9, 3.786376377294272*^9}, 3.7867307144263563`*^9, 3.793141798130512*^9}, CellLabel->"Out[10]=", CellID->953590678] }, Open ]], Cell[TextData[{ "Generate a ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["2", "3"], "\[Rule]", " ", SubscriptBox["3", "2"]}], TraditionalForm]]], " Wolfram model rule, restricting to two distinct elements:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.784509573790442*^9, 3.784509589918775*^9}, { 3.7965634816502867`*^9, 3.7965634821224813`*^9}}, CellID->333731274], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "}"}]}], ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.784509569522002*^9, 3.784509569728537*^9}, 3.784510145818679*^9}, CellLabel->"In[11]:=", CellID->958109131], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7845095704623947`*^9, 3.784510160337137*^9, 3.786376378464611*^9, 3.786730717908525*^9, 3.7931418017283792`*^9}, CellLabel->"Out[11]=", CellID->670786138] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Generate a random ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["2", "3"], "\[Rule]", " ", SubscriptBox["3", "2"]}], TraditionalForm]]], " Wolfram model rule:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.781635347534443*^9, 3.781635388902709*^9}, { 3.781635470296644*^9, 3.781635487176139*^9}, 3.7845096006592617`*^9}, CellID->251195167], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7816352949667587`*^9, 3.781635342991083*^9, 3.7816354900487843`*^9, 3.784509595724617*^9, 3.7845101464589453`*^9}, CellLabel->"In[12]:=", CellID->310947793], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}]}], "}"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{3.781635343918858*^9, 3.781635490536085*^9, 3.781996874718377*^9, 3.7845095965989933`*^9, 3.784510160453277*^9, 3.786376380067657*^9, 3.7867307276995697`*^9, 3.79314180668287*^9}, CellLabel->"Out[12]=", CellID->530700683] }, Open ]], Cell[TextData[{ "Generate a random ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["2", "3"], SubscriptBox["2", "2"]}], "\[RightArrow]", RowBox[{ SubscriptBox["4", "3"], SubscriptBox["8", "2"]}]}], TraditionalForm]]], " with at most 12 elements:" }], "Text", CellChangeTimes->{{3.7965630480149107`*^9, 3.796563251434223*^9}}, CellID->451633880], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2"}], "}"}]}], "}"}]}], ",", "12"}], "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{ 3.7816352949667587`*^9, 3.784509708707101*^9, {3.784509746724532*^9, 3.7845097482000732`*^9}, 3.784510147016816*^9}, CellLabel->"In[13]:=", CellID->55040384], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5"}], "}"}]}], "}"}]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.781635295772973*^9, 3.781996885808913*^9, 3.784509613550672*^9, { 3.7845097057326803`*^9, 3.784509748696485*^9}, 3.784510160686158*^9, 3.786376381094384*^9, 3.786730746379174*^9, 3.793141808864245*^9}, CellLabel->"Out[13]=", CellID->603905054] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ Generate a random rule containing two different transformations:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7819972457898912`*^9, 3.7819972607815027`*^9}}, CellID->443378736], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RandomWolframModel", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "}"}]}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.781997182262809*^9, 3.781997205761533*^9}, { 3.7845096223792048`*^9, 3.784509635481399*^9}, {3.784509753388795*^9, 3.784509753593212*^9}, 3.784510147652052*^9}, CellLabel->"In[14]:=", CellID->526925809], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "5", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "4", "}"}]}], "}"}]}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.781997201736549*^9, 3.781997212852829*^9}, { 3.784509623129867*^9, 3.7845096358471527`*^9}, {3.7845097542474527`*^9, 3.784509782199442*^9}, 3.7845099431322317`*^9, 3.78451016079034*^9, 3.786376382581237*^9, 3.786730773296033*^9, 3.7931418134941673`*^9}, CellLabel->"Out[14]=", CellID->869367762] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellLabel->"In[1]:=", CellID->184161625], Cell[TextData[{ "By default (", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " connectedness), disconnected right-hand sides can be generated as long as \ all of their components are still connected to the left-hand side:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7898100782441177`*^9, 3.7898101320016003`*^9}, 3.7898106491215267`*^9}, CellID->430255470], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SeedRandom", "[", "38", "]"}], ";", RowBox[{"RulePlot", "[", RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"WolframModel\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"WolframModel\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["WolframModel"], Selectable->False], "[", RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "}"}]}], ",", "7"}], "]"}], "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.789810140918639*^9, 3.7898101954268837`*^9}, { 3.789810244723011*^9, 3.789810291441543*^9}, {3.7898105147496157`*^9, 3.7898105148261023`*^9}, {3.789810685050239*^9, 3.789810690686076*^9}, { 3.793141829097608*^9, 3.793141847958699*^9}, 3.796141708263236*^9}, CellID->208255172], Cell[BoxData[ GraphicsBox[ GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[{ GeometricTransformationBox[ GeometricTransformationBox[GeometricTransformationBox[{{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[{{1.6476319637914953`, -0.7350673347399982}, { 0.29153111954461625`, -1.7489196898531578`}, { 0.2915311195347405, -1.7489196898662491`}, { 0.7350673348468341, -2.546446964453573}}]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[{{0.7350673348680671, -2.5464469643893475`}, { 1.2039781733280637`, -1.7635696805572099`}, { 1.2039781733304415`, -1.7635696805391738`}, { 0.7350673348436089, -0.7350673347639823}}]}}, { {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{1.5675406805286545`, -0.7949454305129631}, { 0.6118962525392679, -1.50940730704163}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{-0.8009128325580173, 0.5987809571486837}, {-0.5987809571486837, \ -0.8009128325580173}}], {0.37162240277186287`, -1.6890415941862351`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.3401343878147967, -1.8363137532617295`}, { 0.5406542616031524, -2.1968707110204777`}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{0.48603268298735564`, 0.8739406336062608}, {-0.8739406336062608, 0.48603268298735564`}}], { 0.6864640664993592, -2.459052901102356}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.7864511841923566, -2.460658270444319}, { 0.9984427757448895, -2.106724456675579}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{0.5138384939426185, -0.8578869401866318}, { 0.8578869401866318, 0.5138384939426185}}], { 1.152594323927675, -1.8493583746195894`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{1.1624945418833084`, -1.6725800750260913`}, { 0.9010018605526088, -1.0990257570974344`}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{-0.4148363143862851, -0.9098960557483493}, { 0.9098960557483493, -0.4148363143862851}}], { 0.7765509662367233, -0.8260569403729296}]}}, { {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{1.647631963784456, -0.7350673347980947}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{0.29153111951606114, -1.7489196899011035}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{0.7350673347980947, -2.5464469644629824}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{1.2039781733219368, -1.7635696806009262}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{0.7350673347980947, -0.7350673347980947}, 0.1]}}, {}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], StyleBox[PointBox[{1.647631963784456, -0.7350673347980947}], StripOnInput->False, ShowContents->False], StyleBox[PointBox[{0.29153111951606114`, -1.7489196899011035`}], StripOnInput->False, ShowContents->False], StyleBox[PointBox[{0.7350673347980947, -2.5464469644629824`}], StripOnInput->False, ShowContents->False], StyleBox[PointBox[{1.2039781733219368`, -1.7635696806009262`}], StripOnInput->False, ShowContents->False], StyleBox[PointBox[{0.7350673347980947, -0.7350673347980947}], StripOnInput->False, ShowContents->False]}}, {GrayLevel[0.7], LineBox[{{0.03592103508922173, -3.2163334874341634`}, { 1.9032420482112955`, -3.2163334874341634`}, { 1.9032420482112955`, -0.26287045864971104`}, { 0.03592103508922173, -0.26287045864971104`}, { 0.03592103508922173, -3.2163334874341634`}}]}}, \ {-0.03592103508922173, 3.2163334874341634`}], {{{0.33858558250230303`, 0.}, { 0., 0.33858558250230303`}}, {0., 0.}}], {0, 0}], GeometricTransformationBox[ GeometricTransformationBox[GeometricTransformationBox[ {GrayLevel[0.65], FilledCurveBox[{{{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}}}, {{{-1., 0.1848}, {0.2991, 0.1848}, {-0.1531, 0.6363}, {0.109, 0.8982}, {1., 0.0034}, {0.109, -0.8982}, {-0.1531, -0.6363}, { 0.2991, -0.1848}, {-1., -0.1848}, {-1., 0.1848}}}]}, {1.4, 0.5}], {{{0.075, 0.}, {0., 0.075}}, {0., 0.4625}}], { 0.632247972946728, 0}], GeometricTransformationBox[ GeometricTransformationBox[GeometricTransformationBox[{{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[{{0.8274666398538895, -2.8321530797837426`}, { 1.2039781733339083`, -1.7635696805756467`}, { 1.125515521439021, -1.8289193414466018`}, { 1.1060756241268128`, -1.8459184950197167`}, { 1.087475490149723, -1.8638326192514372`}, { 1.0697581384036827`, -1.8826202821088869`}, { 0.43957313344705135`, -2.5998210489526024`}, { 0.40681074737561385`, -2.6555075308339076`}, { 0.39097469936003076`, -2.7181459997998787`}, { 0.39333522086886635`, -2.7827121375672825`}, { 0.4137029711010288, -2.844027004956923}, { 0.4504442246056812, -2.8971724516646}, { 0.5006119146922412, -2.9378856077448727`}, { 0.5601820215901748, -2.9629008147947453`}, { 0.6243763445338603, -2.9702115682695194`}, { 0.6880457680677149, -2.9592314627736758`}, { 0.7460832796485876, -2.930841227464331}, { 0.7938336103233473, -2.8873180826564013`}}]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwBQQG+/iFib1JlAgAAABMAAAACAAAAn91w7quF5z+SIgmWH18EwK3F7Alw COo/IZ8Fi0nZA8A6HV11sKfqP9CQQRd5tgPAHScxxA9A6z8QUTPuyJEDwN9M Bb8z0es/Pz/HyE5rA8Ctr2Z2xlrsP+SHEW8hQwPA12kEdnbc7D98bdqqWBkD wCUywPT2Ve0/Z7d5OQ3uAsDFHS0CAMftP6ElQb1YwQLAPDoAd8Pj8T+aWxx5 A0AAwGDejc7qF/I/M6kWagASAMBr2NoVlkfyP0PV5AyUxf+/+LiOE6ly8j+e wJaE+GT/vx+cxkYKmfI/+3tgbmcC/78g8zT2orryPwkZQSYbnv6/tqeKPV/X 8j+NbL4OTzj+v1pISRku7/I/flF6bT/R/b/UC/+dfkPzPyWTYdeUN/y/pA0Z JHKo0j/RQ3E2k/v7v8OIljk= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[{{1.6476319638247698`, -0.735067334795679}, { 0.5374421094043276, -0.5089923777150822}, { 0.47283482863900234`, -0.509499812537394}, { 0.41096093312620474`, -0.528100330369118}, { 0.3567834134969434, -0.5633019578922772}, { 0.31464792366177513`, -0.612281123907407}, { 0.28793420947323173`, -0.6711091417104187}, { 0.2787850148344672, -0.7350673347968458}, { 0.2879342094682646, -0.7990255277542186}, { 0.31464792369598543`, -0.8578535456384521}, { 0.3567834135598942, -0.9068327115914113}, { 0.41096093316567445`, -0.9420343392109825}, { 0.47283482869521776`, -0.9606348569566898}, { 0.5374421094366979, -0.9611422918299857}}]}}, { {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.8053089126203294, -2.616276888754605}, { 0.82353640153281, -2.643548604543473}, { 0.8429385469561816, -2.7051758303859055`}, { 0.8442846163975563, -2.7697710802818754`}, { 0.8274666397650005, -2.832153079881524}, { 0.7938336102288034, -2.887318082702888}, { 0.7460832796132028, -2.9308412275589832`}, { 0.6880457679907166, -2.9592314627945986`}, { 0.624376344452857, -2.9702115683687924`}, { 0.5601820215365872, -2.962900814824493}, { 0.5006119146841153, -2.9378856078165776`}, { 0.4504442245704151, -2.8971724517031103`}, { 0.4137029710173219, -2.844027005055151}, { 0.39333522079712735`, -2.782712137665328}, { 0.3909746993300469, -2.718145999864874}, { 0.4046634685808789, -2.664000953745631}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{0.8492599998416822, -0.5279748598834099}, { 0.5279748598834099, 0.8492599998416822}}], { 0.6403533215552045, -2.517475370151374}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.7552260789251868, -2.4484999122601803`}, { 0.7556519356227684, -2.446430765098732}, { 0.7614644454533809, -2.4212693748528085`}, { 0.7684799394839225, -2.396416534509177}, { 0.7766821921530909, -2.371929724165857}, { 0.78605223314277, -2.3478655773600723`}, { 0.7965683912529244, -2.3242797500851844`}, { 0.808206344523142, -2.301226792068504}, { 0.8209391764849037, -2.278760020607696}, { 0.9483231417219005, -2.066084167291399}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{0.5998454840214482, -0.8001158636716778}, { 0.8001158636716778, 0.5998454840214482}}], { 1.1271387661829748`, -1.8275673798606094`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.8119067419370568, -2.4824492652032992`}, { 0.8135299867166931, -2.4810973035588773`}, { 0.832969884058353, -2.4640981500215884`}, { 0.8515700179754948, -2.4461840257643717`}, { 0.8692873697424532, -2.42739636289736}, { 0.8860809623480643, -2.4077786138665624`}, { 0.9019119552680368, -2.3873761509562565`}, { 0.916743734296018, -2.366236161351156}, { 0.9305419962255916, -2.3444075380010343`}, { 1.0579259614625887`, -2.1317316846847367`}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{0.42231560197600576`, -0.9064488580872304}, { 0.9064488580872304, 0.42231560197600576`}}], { 1.1838194291948452`, -1.8615167328037283`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{1.1039910601311669`, -1.761964315914573}, { 0.6914795722791403, -1.755341148646516}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{-0.999871131907698, -0.01605364686353121}, { 0.01605364686353121, -0.999871131907698}}], { 0.39151823270683095`, -1.7505250545874567`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.8350673347980947, -0.7350673347980947}, { 1.247631963784456, -0.7350673347980947}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{1., 0.}, {0., 1.}}], { 1.547631963784456, -0.7350673347980947}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.711253981274421, -0.8312079702000272}, { 0.6972239179138141, -0.8608583522586241}, { 0.6543242948872604, -0.9091696403416734}, { 0.5996005358979141, -0.9435159416584051}, { 0.537442109354613, -0.9611422918683843}, { 0.472834828635199, -0.9606348570384395}, { 0.4109609330985219, -0.9420343392182242}, { 0.35678341349678555`, -0.9068327116725088}, { 0.3146479236219256, -0.8578535456417424}, { 0.2879342094035411, -0.7990255277869628}, { 0.27878501481262175`, -0.7350673347980947}, { 0.2879342094035411, -0.6711091418092267}, { 0.3146479236219256, -0.612281123954447}, { 0.35678341349678555`, -0.5633019579236808}, { 0.4109609330985218, -0.5281003303779652}, { 0.4644450776157989, -0.512021937793117}}], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.3, 0.}, {0., 0.3}}, {0., 0.}}], {{0.8893252163252021, 0.4572752558450246}, {-0.4572752558450246, 0.8893252163252021}}], { 0.7112539812744209, -0.6389266993961622}]}}, { {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{1.647631963784456, -0.7350673347980947}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{0.29153111951606114, -1.7489196899011035}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{0.7350673347980947, -2.5464469644629824}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{1.2039781733219368, -1.7635696806009262}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{0.7350673347980947, -0.7350673347980947}, 0.1]}}, {}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], StyleBox[PointBox[{1.647631963784456, -0.7350673347980947}], StripOnInput->False, ShowContents->False], StyleBox[PointBox[{0.29153111951606114`, -1.7489196899011035`}], StripOnInput->False, ShowContents->False], StyleBox[PointBox[{0.7350673347980947, -2.5464469644629824`}], StripOnInput->False, ShowContents->False], StyleBox[PointBox[{1.2039781733219368`, -1.7635696806009262`}], StripOnInput->False, ShowContents->False], StyleBox[PointBox[{0.7350673347980947, -0.7350673347980947}], StripOnInput->False, ShowContents->False]}}, {GrayLevel[0.7], LineBox[{{0.03592103508922173, -3.2163334874341634`}, { 1.9032420482112955`, -3.2163334874341634`}, { 1.9032420482112955`, -0.26287045864971104`}, { 0.03592103508922173, -0.26287045864971104`}, { 0.03592103508922173, -3.2163334874341634`}}]}}, \ {-0.03592103508922173, 3.2163334874341634`}], {{{0.33858558250230303`, 0.}, { 0., 0.33858558250230303`}}, {0., 0.}}], {0.8422479729467279, 0}]}, { 0.13, 0.13}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], {0, 0}], ImageSize->{171.44657482436236`, Automatic}, ImageSizeRaw->224.57548107436236`, PlotRange->{{-0.01, 1.744495945893456}, {-0.01, 1.2699999999999998`}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.789810178803397*^9, 3.789810292673362*^9}, 3.7898105160940113`*^9, {3.789810692096635*^9, 3.789810699234108*^9}, 3.793141849321208*^9}, CellLabel->"Out[15]=", CellID->726442733] }, Open ]], Cell["\<\ Note that evolution may still be connected in this case if there are other \ edges connecting vertices on the left-hand side:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.789810535608492*^9, 3.789810554592239*^9}, { 3.78981059170973*^9, 3.78981059893421*^9}, {3.796403641247217*^9, 3.796403642335107*^9}}, CellID->303322536], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"WolframModel\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"WolframModel\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["WolframModel"], Selectable->False], "[", RowBox[{ RowBox[{ RowBox[{"SeedRandom", "[", "38", "]"}], ";", RowBox[{"RandomWolframModel", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], "}"}]}], ",", "7"}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", "5", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.789810344171466*^9, 3.78981035620105*^9}, { 3.789810394486237*^9, 3.7898105796238813`*^9}, 3.793141858913951*^9, { 3.796141698379924*^9, 3.796141702401313*^9}}, CellID->898506954], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQAmIQrcstPYNF7Lbt/J/OIX6pt2wFtE3fr+Zetr/hdMcG 8bSL9j5sAaqzbFfv75TMce66d9neKWYPyyuFTfsvdio0Jmheszf8K11pHLdj v319NJOV/g37hcdT41q4D+xfecn0centm/bZxR2+oXVH9t9My1Vglb1tv0Gd xVg/6uT+3xabeySe37b/GGY0qzX33P6UKV8LFhvesW/xVJfxPnRx/4QLoovX /rxt/z1IOmGP6ZX9dV0HzhY63rbXX/xdWqLi2v43+z9vcRO4Zc89ZVlcSNGN /cVS50G0/Uub2yDx/Yr9YjJAdfY8LbNB+vYbhxuBzLE/suTLIqC5+59Ke4Hs sc/JOweyd3/elBCQO+xTH54E849fkwW7a1Hnb7D6Cxs0wO5a+WAt2LzTX4TA 7iqb9QBs3+OtL8Duuvoe4p5P91eBaV7XH2DxVc4XwequB/KC9b3Mmgk2hzHO FGxu0aevYHu+vzUD27vr1iOwOzYmPjMChdfRizNB4bWffWMZODxNtseDwnN/ 6aIucHhfjtEBhff+02Eu4Ph4d9sYFB/7JTjOguPrSQE3KL72x5lGgeNz1qMg UHzuX/JQARzfLpo5oPje7/0qjeVt23XbCQbHl3ItmmILAPerH7g= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQfUVowofV3MvsHXz7NoinXbR/ZlLXkWJ7ytbo9bo/ ui0nbG8fmgOW57BLAsnv//w+VW2W7Wr7hA1Bzl33Lu/fc1aS9ZXCJvseC87G BM1r+x/Gzqo0jtthz1/lyGSlf2O/ZOb0uBbuA/Y7GiQel96+uX9ZVb9vaN0R +1dVyQqssrf3Jy7SNdaPOmn/dFpXj8Tz2/ttI6Jmteaes2fcd6NgseGd/XbP o2S8D120f5vNvHjtz9v71RitE/aYXrGfIj/rbKHj7f3KGqwyEhXX7KN8zm9x E7i13z7zQFxI0Q17i/NrQPT+ulVPQOL2W69/lwaq2z/VZz9In737LnWQOfuL S7lB5tpHcWiB7NmvUfAaZK/99+cyIHfsL1jxBszvrggCu2tJJz9YfUmeN9hd t98dAZu34pgV2F2Lp74H23dEUQzsLu27EPdwLtoHpjcrCYLF1x18DFZ35r82 WF/Ch11gc+Z/DwGbm/GCB2wPa2sO2F7el0/B7rg70xQcXusK14HCy16wZSE4 PBfllIHC015/7UJweP/zsACFt/3tui5wfOzLiAXFh32epxQ4vur6dUDxZc8R 8lsVFJ+O/emg+LQHAI9dA4E= "]]}}, { {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQHZ4wxa0+fN3+SSl5Wxksm+33zi3bIJ52cX9c1+X3 q7mX2Uu5pzp33bu8f9KOQ6qzbFfb1ziINyZoXtvP5sHH+kphk/07Oz8mK/0b +9mDiiqN43bYM681fFx6++b+wjWT41q4D9g/UUpRYJW9vd8jpNc3tO6I/cF3 C3oknt/eb31WzFg/6qT9j0+PCxYb3tlff9BtVmvuOXsRc7bFa3/e3q/6zF7G +9BF+1N3Np4tdLy9P3GmRsIe0yv2azQebnETuLXf9/tvaYmKa/YK4bviQopu 7JeD0PYBEPH9KyHq7NMh+vYfg5hjrwkxd78gxB77Noi9+79C3GHvDnHXfqg7 7QMh7t7/GOIP+3KIv/YzQvxpLwLx9/63kHCw54OEy/5KSDjZL4eE235JSDja F0PCdT80nO3bbtu6hy2cud/KYcfNEKsj9gC5ksXm "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.15643446504023123`, 0.9876883405951378}, {-0.9876883405951378, 0.15643446504023123`}}], {-0.009386067902413872, 0.05926130043570826}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQPSUlbyuDZfP+iIQpbvXh6/bHdV1+v5p72f49c8s2 iKdd3D9pxyHVWbar90u4pzp33bu8n82Dj/WVwqb9VQ7ijQma1/ZzBhVVGsft 2P/Wzo/JSv/G/sI1k+NauA/sZ1xr+Lj09s39HiG9vqF1R/Y/VkpRYJW9vd/2 rJixftTJ/QffLeiReH57f/1Bt1mtuef2f/v0uGCx4Z39qs/sZbwPXdwvbM62 eO3P2/sTZ2ok7DG9sv/EnY1nCx1v7/f9/ltaouLa/lUaD7e4CdzaLxe+Ky6k 6AacXgEVD4Cqg+lLhpojCDVXHWrPV6i9TVB3wNzlBHUnzN2+UH/A/FUO9SfM 3/zQcKiEhgsHNJwkoeE2BxqOsHDNgIaztcOOmyFWR/bX3LZ1D1s4cz8ABjjS Hg== "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9876883405951378, -0.156434465040231}, { 0.156434465040231, 0.9876883405951378}}], {-0.059261300435708264`, \ -0.009386067902413859}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQPSklbyuDZbN9eMIUt/rwdfZxXZffr+ZeZr93btkG 8bSL9pN2HFKdZbvaXtI91bnr3mV7Ng8+1lcKm+xrHMQbEzSv2bMHFVUax+2w f2fnx2Slf8O+cM3kuBbuA/bMaw0fl96+ae8V0usbWnfE/olSigKr7G1767Ni xvpRJ+0PvlvQI/H8tn39QbdZrbnn7H98elyw2PCOveozexnvQxftRczZFq/9 eds+YaZGwh7TK/an7mw8W+h42977+29piYpr9ms0Hm5xE7hlLxe+Ky6k6Ia9 ApReCRUPgKo7BtWXDjVHEGquJtSer1B726DugLnLA+rOx1B3B0L9wQj1VznU n2+h/haDhkMlNFz4oOEkBQ235dBwhIVrMTScrRx23AyxOmLfdtvWPWzhTHsA 4RS5aA== "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9876883405951378, 0.15643446504023123`}, {-0.15643446504023123`, \ -0.9876883405951378}}], {0.05926130043570826, 0.009386067902413872}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQHZ4wxa0+fJ39pJS8rQyWzfv3zi3bIJ520T6u6/L7 1dzL9ku4pzp33btsP2nHIdVZtqv3VzmINyZoXrPn8OBjfaWwaf9bOz8mK/0b 9jxBRZXGcTv2M641fFx6+6Z94ZrJcS3cB/Y/VkpRYJW9be8Z0usbWndk/8F3 C3oknt+2tz0rZqwfdXL/t0+PCxYb3rFvPOg2qzX33H5hc7bFa3/etld9Zi/j feji/hN3Np4tdLxtnzhTI2GP6ZX9KzUebnETuGXv9/23tETFtf1y4bviQopu 2EPp/QEQcfsVEHX7kyH67KHm7FeHmGsvCLFnfxPEXvuvEHfsd4K4yx7qzv2+ EHfbQ/2xvxziL3uoP/dD/W0PDYf93JBwsa+EhNP+OZBws5eEhOP+DEi42u+B hPP+mtu27mELZ9pbO+y4GWJ1ZD8AP8LFpA== "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.156434465040231, -0.9876883405951378}, { 0.9876883405951378, -0.156434465040231}}], { 0.009386067902413859, -0.059261300435708264`}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}, {}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], StyleBox[PointBox[{0., 0.}], StripOnInput->False, ShowContents->False]}}}, ImageSizeRaw->{{222.02696377909515`}, {259.03145775181997`}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQ7Zkw65C1zlXbQy9CHEQvnrOtso45cKT5zP62bwp1 i+ZftlfhsXyQJXp+//FHIry14lftF38UyToheHF/6bbbDXx+1+xdrtzeEXHq 0n5Jx7odJpbX7VVrYtPYll3Z/ypXr9P54nV7pQ1Kuj5Tr+03Nwq+6iJ4w96i bLEsY8eN/dOzzv5R/H7dvu2Mz4z7ubf2Wy/K8N/afN0+Zo+iJa/5nf0rd+x6 c2jXNft5ep1O86/c3d+Qaed/c9FV+5KDy8zELe/vZzrH1yHlesXe8qjI8Uyd B/ttw69/fb/mkn2OxrF8i6kP9m/fNuXTqucX7Nc/+KzSc/nBfmWbJG1tjnP2 BW+/e8U8fbB/uvyX8HfKp+y7Yn6D+dyFB0D8/YfvfwKrd5KUAqnfz8N1Emze 26MpIPP2H90pA7Zv35cLIPv2b6ycAHaP7XFmkHv2c4hWgd2rrsIPcu/+/Awd sH/mGS4E+Wf/xAfuYP9mfIgA+Xd/T+VCcHisnrYTFB77RW0swOE15Z0qKLz2 zzniBw7P2EOcoPDc/2n/a3B4t69PAYX3/o77zOD4EE+5CoqP/ZY/+cHxtd9L GBRf+4/fqgHHp2ufGCg+9wMAkhMMZw== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQA2IQfTDEzDt4wtH9llXzeOPf37SXYjAC8xe9KQXx93+N N43mzT+6v6B8v03No9v7he7ve7Zv1pH9groq+8pO3d2fZ97vFSp1eP9yNf3+ pOn399u+2Vce/evAfq3Detel5j7YH+PEEa00c89+9emhdxcFPdxv73ugaK3f tv3Byx15Yp893D+hL8PqxOR1+yWfhBWVBz/ab1F1sm+W6Pz9S5467U2a9mj/ Akfr9S4yN2xfPTr79f2aR/v3eb7vB8rbu34wBctXejy0Buq3P7cGon/G9pJi oPn2BzeZg803Fs4H2W+vescfbP+bur8g99nfPKUFdp/Wu1sg99vf9pQEu5+P 6RHIf/Z99VZg/yWrpYD8bz/h5zaw/z3S8kDhY3/Itx0cPtZRs8D8OJeF4PCz PJEPVn/77i2Qevu4y3fA5i1LiASZZ39N9y7YvsoYS5B99o18/8Hu2RVqCnKP /aT9FWD3XlRPBbnXXow7BuyfyLVuIP/YL8w9APavalQqyL/22ocuTACFR5Kg Oyg87B+5h0XGJl21rfG+Cwov+x82faDw2q+T6QGW1xUqB4d3yBGIfp2kG+D4 8BD0BJv/54Y1OL44MmPA9pdsvwqOz9d+JmD3Hd8+ERzfYhvcwO5PlN4NTg8F LG5g/+2wswKnl7Szd8D+BwCroT+/ "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQAGIQHbdi2oEjzWfsXy40rFs0/7K9n7/OOqMnB219dfz9 7d5dtWVj4QqU/XDc9lTllcszJx2ybdjcBVb/8QsnSP3+nfscH2SJnrffev8v T6341f0PD2plnRC8aC+z+XoDn9+1/fuPMO2MOHXJ/unHxB0mltf3s3UUprEt u2LfcU6p0/ni9f3H7gfo+ky9Zv+jTfWqi+CN/Q1/j8sydtyw976244/i9+v7 /08omXE/95b95FNh/lubr+8XynOx5DW/Y79Kas6bQ7uu7a+9tMhp/pW79hf9 JP1vLrq6/9H75WbilvftS39/bJdyvbL/gbbO8UydB/bv5l39+n7Npf0RbHfz LaY+sD8qmPlp1fML+xeqc6j2XH5gv2CjhrY2x7n9KZsYvWOePrC/8m96+Dvl U/ttSpjA/MtvPoH49s55/1RA6ksXOILU23+9fgtsnr/oFJB59leOyIPts3j+ EGSfvXzqOrB7rj6T6AC6x97BfSbYvcoqxiD32jfctQP75/XMfSD/2PuIxoL9 G7Y1CuRf+y+ZW8HhcWTTMVB42LOruYPDy1orEBRe9t+lisDhub5TFRSe9qbF fODw/vkoHxTe9p1XDMDxkVD2GRQf9sunuIHjq3+hPC8wvuwBgNsNfg== "]]}}, { {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAqTrkCT2Nrr/xfPy9XLB5P0IKz5WJ H9i/WoAc45lIpD8u4ATVcgnav6TKVk1ZT6c/RH3PD/LZ278jqpFlhAqtPz1E pWbfgd2/OK5bER6lsj/Yu8LZZfPev400atTM5Lc/KF1MaTsR4L8Xwejndhi+ P+klzWyXguC/FjJKYyeGwj+5Z5kXFMrgv3yattYgQ8Y/5s/7Slzl4L+6ccNX 7iPKP5cl+ySM0+C/Wig0KysIzj9kkdJvOJXgv6xBevKq59A/Lasfx2ks4L/6 2db176zSP4fJpjYXOd+/4boLiBpF1D/7WJFCn9Tdv1xUJE/ZotU/r38wOQ03 3L81t6fswrrWP3uvWZjfbdq/jqhZT7WD1z+7wK0dAYjYv6ePwPwh99c/OqQ7 LUyV1r/XFTnVRBHYP1U1YGYGptS/muMjiUPR1z/zcvW4WMrSv5l+arg0Odc/ 1vUcasgR0b92tNuADk7WP2cqQOBqFc+/QGEUDX0X1T9MO4rAxIPMv1azHH6i n9M/ju60BWATuL8QsZ46lJHAP4kU1Hk= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.5877852522924731, 0.8090169943749475}, {-0.8090169943749475, 0.5877852522924731}}], {-0.03526711513754839, 0.04854101966249685}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA6LJHBIgOor+YCe5XXtqov0k7isDE g8y/V7McfqKf079nKkDgahXPv0FhFA19F9W/0/UcasgR0b92tNuADk7Wv/Jy 9bhYytK/mn5quDQ5179TNWBmBqbUv5vjI4lD0de/OaQ7LUyV1r/YFTnVRBHY v7nArR0BiNi/qI/A/CH31794r1mY323av5GoWU+1g9e/rH8wOQ033L84t6fs wrrWv/pYkUKf1N2/XlQkT9mi1b+FyaY2Fznfv+O6C4gaRdS/LKsfx2ks4L/8 2db176zSv2OR0m84leC/rkF68qrn0L+WJfskjNPgv10oNCsrCM6/5s/7Slzl 4L/BccNX7iPKv7hnmRcUyuC/g5q21iBDxr/pJc1sl4LgvxsySmMnhsK/KF1M aTsR4L8fwejndhi+v9i7wtll896/lDRq1Mzkt789RKVm34Hdv0GuWxEepbK/ RH3PD/LZ2784qpFlhAqtvy7gBNVyCdq/sMpWTVlPp79CCs+ViR/Yv2WAHOOZ SKS/xtFCsShexL+qqP3TPSCRvw2h4UQ= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9945218953682733, -0.10452846326765387`}, { 0.10452846326765387`, 0.9945218953682733}}], {-0.05967131372209639, \ -0.006271707796059233}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3cJvyZ31d8Z+o5lr32cKrLG3uimc7bf78P5454Zd WzWu2X+bevJk1d8j+ydb7TfLYLxh/4Av1Tt4wtH921/28sa/v2k/fVF8NG/+ 0f2qWQdtah7dtufgPfps36wj+/cU2O0rO3XXXk9nl1eo1OH90m7G/UnT79sb id0sj/51YH/EFaPrUnMf2D+rT4lWmrln/9OqqLuLgh7aNzbIFK/127afc4cL T+yzh/YrJqpbn5i8br+LSXxRefAje/kpT/tnic7f7/rPaW/StEf2zcu3Lm95 Nm/Pz5vXvr5f88h++2SwvL0bVL4dot8epr8QYr49zPzbEPvtYfZrQtxnHwl1 nwbE/fYw9zNC/Ge/F+q/CRD/22tA/X8LEj72sPD5BAk/+2nQ8DOBhK89LHz/ b7kQ83HFBnvlNLmvs7cesgcAgLDODQ== "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.4067366430758001, 0.913545457642601}, {-0.913545457642601, -0.4067366430758001}}], { 0.024404198584548, 0.05481272745855606}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3cRvyZ31d4a9ycy17zMF1uy3uCmc7bf7sH28c8Ou rRrX9n+ZevJk1d8j9lOt9ptlMN7Yf48v1Tt4wlH7nS97eePf39w/dVF8NG/+ UXvVrIM2NY9u72flPfps36wj9nsK7PaVnbq7X0dnl1eo1GF7aTfj/qTp9/fr i90sj/51wD7iitF1qbkP9j+oT4lWmrnH/mlV1N1FQQ/3NzbIFK/122bPucOF J/bZw/1TJ6pbn5i8zt7FJL6oPPjR/m+Tn/bPEp1v7/rPaW/StEf7GTYtfsM4 s23Pz5vXvr5f82j/I4j8fph8J0T/fpj+aoj5+2Hm34HYv/8Z1H49iPv2w9yn BXH/fpj7mSH+2w/z32SI//erQf1/BxI++7dDw+czJPz2w8LPDBK+++Og4cuw 9ULMxxUb9iulyX2dvfXQfgDMu9lV "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.40673664307580026`, -0.913545457642601}, { 0.913545457642601, 0.40673664307580026`}}], {-0.024404198584548013`, \ -0.05481272745855606}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA4LJHBIgOoj+eCe5XXtqoPzo7isDE g8w/W7McfqKf0z9YKkDgahXPP0dhFA19F9U/y/UcasgR0T98tNuADk7WP+py 9bhYytI/oH5quDQ51z9MNWBmBqbUP6PjI4lD0dc/MqQ7LUyV1j/gFTnVRBHY P7LArR0BiNg/sY/A/CH31z9vr1mY323aP5qoWU+1g9c/pn8wOQ033D9At6fs wrrWP/JYkUKf1N0/aFQkT9mi1T9/yaY2FznfP+26C4gaRdQ/Kqsfx2ks4D8G 2tb176zSP2CR0m84leA/u0F68qrn0D+UJfskjNPgP3MoNCsrCM4/5M/7Slzl 4D/WccNX7iPKP7ZnmRcUyuA/kpq21iBDxj/nJc1sl4LgPy4ySmMnhsI/Jl1M aTsR4D9Hwejndhi+P9W7wtll894/ujRq1Mzktz8/RKVm34HdP2uuWxEepbI/ QX3PD/LZ2z9yqpFlhAqtPy7gBNVyCdo/9spWTVlPpz8+Cs+ViR/YP52AHOOZ SKQ/xtFCsShexD/cqP3TPSCRP2TMyOY= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9945218953682733, 0.10452846326765498`}, {-0.10452846326765498`, \ -0.9945218953682733}}], {0.059671313722096386`, 0.006271707796059297}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAqTrkCT2Nrj/jfPy9XLB5v0EKz5WJ H9g/ToAc45lIpL8u4ATVcgnaP5bKVk1ZT6e/Q33PD/LZ2z8VqpFlhAqtvz9E pWbfgd0/M65bER6lsr/Yu8LZZfPeP4Q0atTM5Le/KF1MaTsR4D8Owejndhi+ v+klzWyXguA/EDJKYyeGwr+5Z5kXFMrgP3eattYgQ8a/58/7Slzl4D+2ccNX 7iPKv5cl+ySM0+A/Vig0KysIzr9kkdJvOJXgP6pBevKq59C/Lasfx2ks4D/4 2db176zSv4jJpjYXOd8/3roLiBpF1L/9WJFCn9TdP1pUJE/ZotW/sX8wOQ03 3D8zt6fswrrWv3uvWZjfbdo/jahZT7WD17+8wK0dAYjYP6WPwPwh99e/PKQ7 LUyV1j/WFTnVRBHYv1c1YGYGptQ/muMjiUPR17/1cvW4WMrSP5h+arg0Ode/ 1/UcasgR0T91tNuADk7Wv2wqQOBqFc8/QGEUDX0X1b9MO4rAxIPMP1WzHH6i n9O/ju60BWATuD8OsZ46lJHAv6YV1Bg= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.5877852522924734, -0.8090169943749473}, { 0.8090169943749473, -0.5877852522924734}}], { 0.03526711513754839, -0.04854101966249684}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}, {}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], StyleBox[PointBox[{0., 0.}], StripOnInput->False, ShowContents->False]}}}, ImageSizeRaw->{{266.11104757765906`}, {343.1629832701511}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQnbVvitb/hEf7P8+f/1d7/3H7GcyzwHyrWTYg/n6d 2//ZNro+2i9rd0gp7P6p/ZZaP3av4Xi0X+3AG2uNh2f3T7DPv7579cP9iSVF h7nCL+wvW5LnM93w4f7KxTs/9c24uN/41HKOy3Mf7J86T2/N1tWX9vMJSTm0 vby/3+1rxPz8jsv7H04TWb+t7N5+h3tZs101ruyXepfDIvLuzn6WDQLcnW1X 9m/IDu2Xi769v37qAYHyBVf2z3g0iWPJyZv7o5e8s/ItvbJ/YlQjf7rrjf0K dhVm/mxX9ouYzfp57Oa1/c8tuoP3hl3efzc4tjtr4tX99y1fK+/JvrT/5DGG eRePXbfdEFqlejV5pe102fjtzsy3bIOlv+or1l62/bv69Jsz667bXtTbeYax 6aato1YYWP/pfF4VoH77R38WgM1fZLwFZL79+e9tYPvPr18Ost8+6/xssPsu mHJbA91nv3h/Atj9Mffvg9xvH9vWCPbfvt36IP/Zm34WAPvfQLMF5H97935u cPjcPZMDCh/7nXNWgcNP6749KPzsN73KAofvFKsboPC155POBYf/EdFpoPC3 v7DmMzh+5IoVbIDxYx9hzsoOir87G+6C4s8eAM6oEE0= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQB2IQ7bPwtED5giv7maoK+uWib9u3TTsH5t9oyATx9z9g kOHubLuyP/ZgA4vIuzv7VQ3jZ7tqXNm/VIRl/baye/sP3PWYn99xeX+KFZ9D 28v7+6MT9NZsXX1pvxHbao7Lcx/sXz5/3ae+GRf3s7dn+Uw3fLh/7bXyw1zh F/bbzs69vnv1w/23NIVsNB6e3R+85OPuNRyP9n+bdkIp7P6p/UwJXOwbXR/t N7Py+au9//j+815ztf4nPNp/Q2W+pNSMI/tl5Y+lnIp8tP+fkHXvkcaD+xln We/3MHi0P/j/gTuL1fbuN+95Xrnx6cP9HZFLCquPbt+fkKb01rjm4f5NIa3v 0jg2739oKaj+/NuD/TrnO9nuqa7bf+T1pf2bIh/sP+lcwd3OumL/wg9GyslB 9/fHTeRYuvPu4v3xi6wS5a7e3X/p+xXJ+WcX7j8d+ML7kNud/Tv1ylXVPt2w LUxZK31a5JrtNPbvYPmumH8gefszb04uAelnDMkF6bf3jxHjAZnf2RMDMt8+ SoiHHWR/W9NTkP32r2/NBrtvl6QyyH32y35dA7s/zk0f5H775VVFYP8pXH0D 8p99yD8/sP//nXcB+d9+afMScPj8VT8PCh/7k5ujweFXIbsaFH72h2cuBYfv nnsioPC1PyErCw7/bG2OPcDwt/+bXgGOn3PrKkHxY6/xbhM4/u7/rAfFn/3d gzLg+F3yeDMofu2PZseD4/+dmzko/u0/OuSB08cKJg1Q+rA/GS8FTj9vBWaA 0o89ANATV1I= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQB2IQbTdNLkxb/4Dtkivc3T1pO2wftc2Wmn92oX3X2R/e h9zu7GeOfLV0593F9qZrLRPlrt7d/yoggKeddYW90UtL5eSg+/sN02PY76mu s/8RcGn/psgH+x+tOvAujWOzvfVqHvXn3x7sn32Yoaj66Hb7iHTlt8Y1D/d3 Z5y+s1htr/28sw8rNz59uH9PcV3vkcaD9j++We/3MHi0X/3hUUmpGUfsf7sf SjkV+Wg/d/qUv9r7j9uv3DZH63/Co/2v1R4ohd0/Ze9+g5t9o+uj/f1vLW00 Hp61v6H4afcajkf7P5/pPcwVfsG+YWPm9d2rH+6XLr7/qW/GRfuS+jyf6YYP 99utNF+zdfUl+/sWKzkuz32wf9Lemvn5HZfteaZxObS9vL//lP+E2a4aV+yV av6t21Z2b/+rEgPuzrYr9p/mF7OIvLuzf3vyc4HyBVfs96mk9stF395vonkb zOdlLgPx7a9E2oPVZ0bPA6m3v/SnC2zev6Mq64Hm2ZsH5oLte+GrAbLPftk0 D7B7PtdtAbnHfrfFKbB7C5PqQO61l+WcC/aP95wGkH/skw5rg/3L/PE/yL/2 XXfegsPjRZ8kKDzs912BhNeVSYtB4WVf7/sUHJ6fDl4Ehaf9u8JYcHjLJziD wtu+Z9k1cHz4WX4FxYd9+U8DcHy5WqiC4sve8gT3e1B8cglLg+LT/tfR1eD4 1st+Dopv+59Oq8DpoXpGCCg92DeVXAOnF8a7EaD0Yn/xeSA4Pfl8/Q1KT/YA sTdKvA== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQbSOf35018aq98arfynuyL9kH7JawnOa5wTZLzc70 tMd52xk/E8Dy5WL3QfL781O3/Tx285q9a2dL8N6wy/uZ5Obxp7vesBfdWWrm z3Zl//4/BzmWnLxpL7PyrZVv6ZX90pvK+uWib9vHHt0lUL7gyv45LvNZRN7d sZf+J8rd2XZl/8oO+fXbyu7Z/30eN9tV48r+xB/KDm0v79tvZYmZn99xef+n yTs4Ls99YP+CRXHN1tWX9j863ugz3fChvdevo5/6Zlzc38hZfn336of2JVXl h7nCL+yPPcS+Zw3HI3uH0pfWGg/P7nf5Kca+0fWRvYnfBqWw+6f2671fqfU/ 4ZF9yNmkv9r7j+//kAXhb77fDOLbd0YIgNX/d/sKUm8f38wKNm9BoKkN0Dz7 6MsNYPvWqs8C2WffVNAEds/qK7dA7rFXn7gR7F5d8QCQe+0lP+iD/WPeWA3y j33xdWWwfzsKW0D+te8qXwAOj7IIO1B42F9NrAGH1z2Jm6DwsveJ3wIOT6fV PNbA8LTnSp8PDm/Xkqmg8LZ37DoAjo/457NA8WEPAP7w7js= "]]}}, { {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAx4VssROgrr/mQDcwOEhzP1aY+0vC Rty/F40JGp/NoT8LMVRhHtXdv4gZWaW53aM/NNlEI2NS37/P/kcMhwWoP95C 3b+yWeC/ogdOB94lrj/azxcn5/bgv7xwse5mCLM/WZMj7TN84b81vtxxe8W3 P0Bx63mx5eG/j/zH3KMmvT/1dT6/SDDiv+0NVo3EgcE/F4/OZMpZ4r/1SLkZ GpjEP7YpoCr/YOK/Kyxw/Su/xz+xUg0HsUXiv0LeyiJW38o/UPn9u6wI4r9b fB48KOHNP9Gmdte7q+G/i9eHwwpX0D8Ss3dMlzHhvz8cxvKOmNE/622uCNOd 4L/kRjWstavSP03uHkCG6d+/W15jn2+I0z8NghavtnbevyK9dZtFKNQ/8o6F BBTu3L/BRSoLiYbUP9O/bI8eW9u/rq3REHeg1D8PQKgIpMnZv5h/+zpNddQ/ 26uJD2dF2L+T9o42TwbUPy5BrvnG2da/GKqaU71W0z+VQ2CLapHVvyEi9CO8 a9I/BTKhOG8lv78bE3zU9Jm6P3YX09g= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.760405965600031, 0.6494480483301835}, {-0.6494480483301835, 0.760405965600031}}], {-0.045624357936001864`, 0.03896688289981101}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAhOV4ahNcp79VDl2fd/Ojv5VDYItq kdW/IiL0I7xr0r8sQa75xtnWvxmqmlO9VtO/26uJD2dF2L+V9o42TwbUvw9A qAikydm/mn/7Ok111L/Tv2yPHlvbv6+t0RB3oNS/8I6FBBTu3L/ERSoLiYbU vw2CFq+2dt6/JL11m0Uo1L9M7h5Ahunfv11eY59viNO/6m2uCNOd4L/mRjWs tavSvxKzd0yXMeG/QRzG8o6Y0b/RpnbXu6vhv47Xh8MKV9C/UPn9u6wI4r9f fB48KOHNv7FSDQexReK/Rt7KIlbfyr+2KaAq/2Divy0scP0rv8e/F4/OZMpZ 4r/6SLkZGpjEv/V1Pr9IMOK/8Q1WjcSBwb9Acet5seXhv5f8x9yjJr2/WpMj 7TN84b9Bvtxxe8W3v9rPFyfn9uC/xHCx7mYIs7/eQt2/slngv7QHTgfeJa6/ NtlEI2NS37/h/kcMhwWovwwxVGEe1d2/lxlZpbndo79XmPtLwkbcvyONCRqf zaG/hK6dy7dqxL/uq0lAoLWJv1m947Q= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9969173337331281, -0.07845909572784508}, { 0.07845909572784508, 0.9969173337331281}}], {-0.05981504002398767, \ -0.004707545743670704}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAWQ5dn3fzo7+A5XhqE1ynPyYi9CO8 a9K/kkNgi2qR1T8cqppTvVbTvypBrvnG2dY/mPaONk8G1L/Zq4kPZ0XYP59/ +zpNddS/DECoCKTJ2T+0rdEQd6DUv9C/bI8eW9s/yEUqC4mG1L/tjoUEFO7c Pyi9dZtFKNS/CoIWr7Z23j9iXmOfb4jTv0nuHkCG6d8/7EY1rLWr0r/pba4I 053gP0ccxvKOmNG/EbN3TJcx4T+T14fDClfQv9Cmdte7q+E/anwePCjhzb9Q +f27rAjiP1PeyiJW38q/sVINB7FF4j84LHD9K7/Hv7UpoCr/YOI/B0m5GRqY xL8Wj85kylniP/oNVo3EgcG/9HU+v0gw4j+x/Mfcoya9v0Bx63mx5eE/Vr7c cXvFt79akyPtM3zhP9xwse5mCLO/2s8XJ+f24D/WB04H3iWuv91C3b+yWeA/ A/9HDIcFqL802UQjY1LfP78ZWaW53aO/DDFUYR7V3T9FjQkan82hv1aY+0vC Rtw/IKxJQKC1ib+Erp3Lt2rEP1a81Yk= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.0784590957278456, 0.9969173337331279}, {-0.9969173337331279, 0.0784590957278456}}], {-0.004707545743670736, 0.059815040023987666`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA6kA3MDhIc7/HhWyxE6CuvxqNCRqf zaG/Vpj7S8JG3L+LGVmlud2jvwkxVGEe1d2/0v5HDIcFqL802UQjY1Lfv6sH TgfeJa6/3kLdv7JZ4L/AcLHuZgizv9rPFyfn9uC/Nr7ccXvFt79ZkyPtM3zh v4/8x9yjJr2/QHHrebHl4b/sDVaNxIHBv/V1Pr9IMOK/9Ui5GRqYxL8Xj85k ylnivysscP0rv8e/timgKv9g4r9D3soiVt/Kv7FSDQexReK/XHwePCjhzb9Q +f27rAjiv4zXh8MKV9C/0aZ217ur4b9AHMbyjpjRvxKzd0yXMeG/5EY1rLWr 0r/qba4I053gv1teY59viNO/Te4eQIbp378ivXWbRSjUvw2CFq+2dt6/wkUq C4mG1L/yjoUEFO7cv6+t0RB3oNS/079sjx5b27+Yf/s6TXXUvw9AqAikydm/ lPaONk8G1L/cq4kPZ0XYvxmqmlO9VtO/LkGu+cbZ1r8iIvQjvGvSv5VDYItq kdW/HBN81PSZur8EMqE4byW/v9/+4Hk= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.6494480483301838, -0.760405965600031}, { 0.760405965600031, 0.6494480483301838}}], {-0.03896688289981102, \ -0.045624357936001864`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA/kA3MDhIcz/GhWyxE6CuPyyNCRqf zaE/VJj7S8JG3D+dGVmlud2jPwkxVGEe1d0/6v5HDIcFqD802UQjY1LfP8QH TgfeJa4/3kLdv7JZ4D/JcLHuZgizP9nPFyfn9uA/Pr7ccXvFtz9ZkyPtM3zh P6L8x9yjJr0/QHHrebHl4T/xDVaNxIHBP/R1Pr9IMOI/+ki5GRqYxD8Wj85k ylniPzAscP0rv8c/tSmgKv9g4j9K3soiVt/KP7FSDQexReI/Y3wePCjhzT9Q +f27rAjiP4/Xh8MKV9A/0KZ217ur4T9CHMbyjpjRPxGzd0yXMeE/50Y1rLWr 0j/qba4I053gP19eY59viNM/Su4eQIbp3z8lvXWbRSjUPwuCFq+2dt4/xEUq C4mG1D/ujoUEFO7cP7Gt0RB3oNQ/0b9sjx5b2z+bf/s6TXXUPwtAqAikydk/ lvaONk8G1D/Zq4kPZ0XYPxuqmlO9VtM/LEGu+cbZ1j8jIvQjvGvSP5NDYItq kdU/HhN81PSZuj8CMqE4byW/P3iYyB8= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.6494480483301839, 0.7604059656000308}, {-0.7604059656000308, -0.6494480483301839}}], { 0.038966882899811026`, 0.04562435793600184}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAVQ5dn3fzoz+E5XhqE1ynvyIi9CO8 a9I/lUNgi2qR1b8ZqppTvVbTPyxBrvnG2da/lfaONk8G1D/cq4kPZ0XYv5p/ +zpNddQ/D0CoCKTJ2b+vrdEQd6DUP9O/bI8eW9u/xEUqC4mG1D/wjoUEFO7c vyS9dZtFKNQ/DYIWr7Z23r9dXmOfb4jTP0zuHkCG6d+/5kY1rLWr0j/qba4I 053gv0EcxvKOmNE/ErN3TJcx4b+O14fDClfQP9Gmdte7q+G/X3wePCjhzT9Q +f27rAjiv0beyiJW38o/sVINB7FF4r8sLHD9K7/HP7YpoCr/YOK/+Ui5GRqY xD8Xj85kylniv/ENVo3EgcE/9XU+v0gw4r+V/Mfcoya9P0Bx63mx5eG/Qb7c cXvFtz9akyPtM3zhv8Rwse5mCLM/2s8XJ+f24L+0B04H3iWuP95C3b+yWeC/ 3v5HDIcFqD802UQjY1Lfv5cZWaW53aM/CzFUYR7V3b8jjQkan82hP1aY+0vC Rty/7qtJQKC1iT+Frp3Lt2rEv11v1ys= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.07845909572784505, -0.9969173337331281}, { 0.9969173337331281, -0.07845909572784505}}], { 0.0047075457436707045`, -0.05981504002398768}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAgOV4ahNcpz9ZDl2fd/OjP5JDYItq kdU/JiL0I7xr0j8pQa75xtnWPxyqmlO9VtM/2auJD2dF2D+Y9o42TwbUPwxA qAikydk/n3/7Ok111D/Rv2yPHlvbP7St0RB3oNQ/646FBBTu3D/IRSoLiYbU PwqCFq+2dt4/Kb11m0Uo1D9J7h5AhunfP2JeY59viNM/6W2uCNOd4D/sRjWs tavSPxGzd0yXMeE/RxzG8o6Y0T/QpnbXu6vhP5TXh8MKV9A/UPn9u6wI4j9s fB48KOHNP7FSDQexReI/U97KIlbfyj+1KaAq/2DiPzkscP0rv8c/Fo/OZMpZ 4j8ISbkZGpjEP/R1Pr9IMOI/+g1WjcSBwT9Acet5seXhP7L8x9yjJr0/WpMj 7TN84T9Yvtxxe8W3P9vPFyfn9uA/3nCx7mYIsz/dQt2/slngP9kHTgfeJa4/ NNlEI2NS3z8J/0cMhwWoPwwxVGEe1d0/whlZpbndoz9WmPtLwkbcP0iNCRqf zaE/hK6dy7dqxD8krElAoLWJP8EmySY= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9969173337331279, 0.07845909572784565}, {-0.07845909572784565, \ -0.9969173337331279}}], {0.059815040023987666`, 0.004707545743670738}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAx4VssROgrj/tQDcwOEhzv1aY+0vC Rtw/HY0JGp/Nob8LMVRhHtXdP44ZWaW53aO/NNlEI2NS3z/V/kcMhwWov95C 3b+yWeA/rgdOB94lrr/azxcn5/bgP8Fwse5mCLO/WpMj7TN84T85vtxxe8W3 v0Bx63mx5eE/kvzH3KMmvb/1dT6/SDDiP+0NVo3EgcG/F4/OZMpZ4j/2SLkZ GpjEv7YpoCr/YOI/Kyxw/Su/x7+xUg0HsUXiP0XeyiJW38q/UPn9u6wI4j9e fB48KOHNv9Gmdte7q+E/jdeHwwpX0L8Ss3dMlzHhP0EcxvKOmNG/6m2uCNOd 4D/lRjWstavSv03uHkCG6d8/XF5jn2+I078NghavtnbePyO9dZtFKNS/8I6F BBTu3D/CRSoLiYbUv9O/bI8eW9s/r63REHeg1L8PQKgIpMnZP5l/+zpNddS/ 3KuJD2dF2D+V9o42TwbUvy5BrvnG2dY/GaqaU71W07+VQ2CLapHVPyIi9CO8 a9K/BDKhOG8lvz8cE3zU9Jm6v19P1B0= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.760405965600031, -0.6494480483301838}, { 0.6494480483301838, -0.760405965600031}}], { 0.045624357936001864`, -0.03896688289981102}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}, {}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], StyleBox[PointBox[{0., 0.}], StripOnInput->False, ShowContents->False]}}}, ImageSizeRaw->{{289.4675731452917}, {337.7121686720329}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQLWOevEbz2eP9kRZMhpLrD9i7Tk8A8/PWbTUA8ven O9TVJj1+vP/Y3aObl387tD+aX3aB0snH+w3+LV5z2uTo/hame5slZzzeP1FV 93Rz1PH9D6v6T/UHPt4/u7hAuSjy5P55fyuvxnx/tD+KzcnXRuX0/iPZV/3v dD/af1Sqb9eTdWf2+0y7UXFX8NH+jeVTP0q9P7s/x/dR+4Seh/sdGF/2Ntw5 t9/tYGF44f8H+wtO/bJ7WHB+//FwHTGDvAf75zK1esWsOL9/xxonY8Od9/f/ jm+oq2s8vz9Wivvjxzn39ntcrH3i/ffc/o2bNLUE+u/u/35x5VcL+XP7NZ28 7q+0v2V7tzfj54qcy7bqH2TA8i03DoDk7eNf/vgA0v95+QqQfvtLUPPzX9wD mW9f4KQMtp/h2W6Q/fbvz5SC3TfZ2s4e6D57NaYnYPfvO/Ef5H77g8zXwf6T jt8G8p997oIrYP9nOSwE+d9eZ0M5OHw2LUoFhY/9J+NOcPixxOwBhZ894+Vb 4PDl/dsMCl/7Ce/UweFvlvYfFP72h8RqwfGzaOErUPzYAwDrIAre "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQAWIQLdm9fvG6x7dsp00RdPx6+bit6TbRWWWCl/ZPmrF1 /7RLt+35P1+LW3340v6uHOMLG3besY+dfI755IzL++dPlt7B13jXPu5SyRrb 7iv7d0/km1GlfM/eiW+p/uYpV/f31nEe2Drnnv3xvsYay3XX9iexnBed+vKe Pff8CNbSC9f3/976xV2M4769V8mjn+c/39h/QmaWXe73e/Zn95SxrRW4tX/J bq9Czh337KW0P7rNkr+9/0Htnj+TvO/ZH7kZItoseWe/5eXTvfe33LVnSbyc ef/7nf0yk7+DaPu1bltA4vvj7RNA6uxvn1oC0rf/wsM/IHPs8w/qgczd/6Bq Csgee6cndSB7989Z9xfkDnub+4dA7tp/V7kI5E77/UmXwXxuxliwu+/aNYLV 379/CezuqQpSYPM4uRrB7l6/ZiHYPjGNr2B3v7PfC3aPcbAv2N21xy+C3av8 8hKYvmQUDhZnstsPVjeJ6RtY3yfB5WBz/Fa3gs3l3SQPtmfD6jtgezc8qga7 ozcrHuyuozuvgt2ZNqkYHN5ObptB4b3/Q8YUcHzsSHq+Hxgf+w3fFoPjK12F DRRf+8MsjoLjs8+XAxSf+88ffw6O7/tOgqD43v97oQg4PZzw7gKlh/1nqx6c WJ15y9ZihbLZ+XVLbAExFEir "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwdUm9Ik2EQnwVJVoulRlbLNmU1VFw1bJDrQpGgsrCwUY2g1VBLpgVlSoaj pTXTrK01qNlcOBeNEpclozo1Y+jMlWnocnN739JRSU0iPwhWz/Ph4eE47u73 T6AqO6hexOFwxP8f+Yd8L/YoHT7siMpWSzQh+DZjovWnZBGpsXMjD8LlPtQe LlWc/RtCi3uyoWZiCJneUF3TjTC+l6ija3++w+4TYxcDPAavDte4vzwZxPrf owcm6hnULRfmZ6d6cXutblQ5x6A2+X7KuSP9OBJuGLhZwGIv7PReOepBgyjo SjKzOKeyO73StyjLTbUK+1mcL3a52v704sKmqmoVy6Ix4JMkPe3GXWVKp3iK xfONGdPd/pdYvcRoUn9gsdZbocvQduEGsTGtpZXFoumEttuaZzhfuQJiTrFo 4fEjma/bcbG1I5zNZbE9PaaiiPcYL68xT9+yM2g+abGle1pR0TMT6cxkELYu 9cf3tOBD6V1BnzOMgePrV66SNuOyaoNjsyCMiSPyRybPPfxRpdVfbwrh3nXD ef7ycXmpJi/HmeKSjytFDtKv+t5I+iDebeCS+dgBG5mHj4V8ur9rv5Xsh0R3 Lb0fm/OL3AdDHFJ8DRdsBB+MROIp/oRBL8EPnJKonfDbZhEQfuAUVlL+87mt hD8kBqVUnx1fHxB9wN/3nOqXbykh+kFE30n1zZrVE30hqHhF9U9ulBD9Yd8x CfXnzelJ4g8EC89Q/xbiLMQ/OCSTUX/ruHriL2wZ01D/+XyG+A+5aXdoPorN n0k+IOYaS/OTZZsl+QHtFJfmS1dwieQL/gFGnm0x "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwlUmtI01EUn+tDSA9mo2KWi5kLlw030k9ph5A+9NBwFWtmUZIkCUujdFjJ LCMrmUuHVKu5NWyaI41NHK26y7Sxli6nRawl2/8fKglO12P0ojq3D5fL4RzO +b1EZScV5VwOhyP59/B/+7mku91rhJVrL129oo/Ar4Npkvb5/vypCans/ehI /kBR/D72ubwL2Cf1M728FTkmmK0zdGWKokR+KxjiP7OAO6NVNGSPklax2LrJ 2wlF22Mz/dkMUS/5XXs8pQeE7jvT1+8xZJ22Yib7aR945O5o3nKWWFSNtla1 E6LVqyHpGEvCArZR2uAC5eu2LEsnS/Zt1k17Qo9hPqmtvXyMJeZsrlzQ64GG xFG7ZIol/rmEw/ZtEMTCuvNlLEtU8km7P2cYzkWE5nQfSxI/Gv0XS7xQ8HDc IbjBkkVN5vWnVD7g1DS/bClmiaJ7d2Fehh8MNZo3pQmGrDnke/TxwSvIXTy+ J3yNIc6YcSE1NgJD437NhxSGmGuTddrwKGQGJi/rm6PkU0EhRKsCcNp2Rln9 J0L4uwZ3lnYFgF8pXiVTR0jAOEzr2yo51lC1o5jOB4X1OA/7b6bRffGeWdwH fQcc9N6G5yzeA+mWwH88LgbxgKG3iOIFcwvihYW9VspHKTcgH+DZtJTvCQ+D fOH7NobqUbFUgnrAXNYyJ+pV+aUJ9YKc2DsZ6tl3uBL1BFOFkeqdGzKi3uAy 9VA/tv7sQD9AX+6lfmkU6egXmDbqqJ/B1CH0E0RHvlK/1WNW9BusyoG7mAfB kzjmAbhpL2hebBMWzAsIkstonjrOWjBP8Bcoy13+ "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQAWIw7Xrbwrx9k+3Pr5cKeJNv2YpFpGxb7XbI9tj9Vee3 Bh62dajRmVUmeMl+RWDn/mmXbu9nPfQrbvXhS/YzuTgubNh5Z3/wlzvMJ2dc tn/5mW0HX+Pd/VccutbYdl+x/6DDOqNK+d7+zGe79TdPuWrPI35n/9Y59/Yb RE+rsVx3zT5Sbo3o1Jf39l9ZU8ZaeuG6/bw3R93FOO7vn/Pq/c/zn2/Yf1fs sMv9fm9/xrvJbGsFbtl71KsXcu64t3+FP7v7LPnb9vcmr/0zyfve/ouiBaLN knfsu/fu672/5e7+Kvufmfe/37FnfXMRRO9/ceEMSNyepTEKpG7/qsUnQPrs +XNfuwHN2X9yrx3IXHuvJ5Uge/Z/M58Fstee2/YByB37t4R9AbnL/qmhD8id +91d3oD5LQnVYHe35nSD1QfP/Qp299Ur5mDzXjxdDHa3RPkxsH3nHv0D2Wfv lPsY7J7SuCKwux8t+AV279QdX8H044wMsHj4o5NgddNSOcD+dVq6D2xOya4l YHPPeviC7Tkf8hpsbxF3P9gde45mgd1lXQBx53vGGeDw3jxlPyi87R0e7QfH x70S9gPA+LBvWDsFHF9VtqKg+LJf4PAQHJ+Ox+VB8Wk/K5cnHhTff33UQPFt f8dNH5wevu5ZCEoP9gBebzrW "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQA2IQrW3z+pXcsxu2d899MS6IvWXLsohD83LxXts9fCUc X1/ut80/bqkl0H/X/vjd7q8W8uf2r1gi/fHjnHv2nsGJT7z/ntv/tzfF2HDn fXuz+911dY3n91+VMBEzyHtgH7lvm1fMivP77Tubwgv/P7D/O0XA/mHB+f2R Ra/bJ/Q8tJ8V/6634c65/TcrH1TcFXxk/2Jt40ep92f312+47n+n+5G9PkPx rifrzuwXXN5/Neb7I3svTgNfG5XT++f/nXOqP/CxfdqBFuWiyJP7q2c93iw5 47F9zl7v081Rx/dvWqa9QOnkY/sdLEvWnDY5un++SUdt0uPH9lyXLm1e/u3Q fvaqtDWazx7bp/fuNJBcf2D/yjwIP2T+MxDf/gV3H1j9nMccW4Dq7Tc46oHN 27mEYy3QPPsFAo/A9s2ekQ+yz/5ixUywe67LrwG5x37nmx6we62d00Dutd/K /hjsn67IPSD/2J/pfAr2r8qS/SD/2tfIvASHx7KLrH3A8LAP14WEl6SJKSi8 7Nl8LcDheWreeVB42nvsiQeHd8mjTaDwtje5IQKOD+Npc0DxYc9U7QeOL7HC J6D4sgcA7NgCfQ== "]]}}, { {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAB2Icz4qtrr/Al0wnY7lpP5mUhIqJ kOC/2ZdPqZbHmz+k9JmoKCHhv+IuXg8SNJ4/SYKZIcSs4b9Mu0jaE8GhP46g 7+i1L+K/v4OfoizHpT9F+J3nkabivw5SyndnEas/m1XA4TwO47+BsjfoL76w P5A7GT8BZOO/oLxZp5JutD+2zJgroaXjvzQolIQtgbg/zmCWlmXR47/vcVHn wNq8P59EZqwp5uO/CYbUMBmvwD8tmIV9YuPjv3vH57On9sI/SF4ooCLJ47/C l9SsyzTFP7iC3rMZmOO/QXhgy4Naxz9W2I/Kj1Hjvw/1nyNyWck/CI6E1Vz3 4r9JEkRNPCTLP4uh10/ci+K/XTqduuSuzD+hENl43RHivyQhmPEa780/LKTl h5CM4b+O8/iNgNzOPxpKeFdx/+C/mRkgP+Fwzz8qnC0WMG7gv5LOu0pcqM8/ v/BXMzG5378uLqx+foHPPybxEfHxnN6/sNaD5Ev9zj990DUqEI/dv2MjvfU4 H84/E42NtnA/wr+sJ9p3b5iyP22a2nU= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.891006524188368, 0.4539904997395466}, {-0.4539904997395466, 0.891006524188368}}], {-0.05346039145130208, 0.027239429984372794`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAmFPUESlfq7+TO8czp+Sbv3jQNSoQ j92/diO99Tgfzr8f8RHx8Zzev8HWg+RL/c6/uvBXMzG5379BLqx+foHPvyec LRYwbuC/pc67Slyoz78XSnhXcf/gv64ZID/hcM+/KqTlh5CM4b+k8/iNgNzO v58Q2XjdEeK/PCGY8Rrvzb+IoddP3Iviv3U6nbrkrsy/Bo6E1Vz34r9hEkRN PCTLv1TYj8qPUeO/KPWfI3JZyb+2gt6zGZjjv1p4YMuDWse/Rl4ooCLJ47/c l9SsyzTFvyuYhX1i4+O/lMfns6f2wr+eRGasKebjvyOG1DAZr8C/zGCWlmXR 478iclHnwNq8v7TMmCuhpeO/ZiiUhC2BuL+OOxk/AWTjv9G8WaeSbrS/mlXA 4TwO47+xsjfoL76wv0T4neeRpuK/b1LKd2cRq7+OoO/otS/ivxyEn6Isx6W/ SYKZIcSs4b+lu0jaE8Ghv6T0magoIeG/lS9eDxI0nr+YlISKiZDgv4CYT6mW x5u/W0Fo37FzxL8+EDMaQiaBv89v5cE= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.998629534754574, -0.05233595624294442}, { 0.05233595624294442, 0.998629534754574}}], {-0.05991777208527443, \ -0.0031401573745766646`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQrdAVf3/S4ZX7bY9YmJrvXmD//9qC/dMu3d5fOl1r VpngJXtTPpkLG3be2f/k78e41Ycv2Yfc5NvB13h3f/7bO8wnZ1y2v+XOPqNK +d7+Y5GNa2y7r9h/8Py+f+uce/s3PF6tv3nKVfud0XtFp768tz/RsKXGct01 e5lNt93FOO7vr09LYy29cN2e07LLLvf7vf36fx79PP/5hv20/SaFnDvu7c/c 0cW2VuCW/crcrX8med/bv7Lvj9ss+dv22xRP9t7fcne/9pco0WbJO/YbCp5l 3v9+Z/8CCG1vAxHfvwSizn4XRN/+2RBz7Ksh5u5vg9hj7wixd/9vC7A77CdB 3LWfD+JO+2KIu/evhvjD/gDEX/ufQvxpfwPi7/3nIeFg3wgJl/3ekHCy/woJ t/3akHC0b4WE6/5vkHC254/+5vbFb9t+/phXU3h0D9oDALQM42s= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.5446390350150279, 0.8386705679454236}, {-0.8386705679454236, 0.5446390350150279}}], {-0.03267834210090166, 0.05032023407672541}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ7XrEwtR894L9Ml3x9ycdXrm/drrWrDLBS/t/XVuw f9ql2/vf/P0Yt/rwpf0GfDIXNuy8s7/87R3mkzMu7w+4ybeDr/Hu/vORjWts u6/sv+bOPqNK+d7+HY9X62+ecnX/G8/v+7fOubc/07ClxnLdtf2bo/eKTn15 b397Whpr6YXr+8U23XYX47i/3+LPo5/nP9/Yz2zZZZf7/d7+wh1dbGsFbu3v 229SyLnj3v6NfX/cZsnf3r84d+ufSd739ht/iRJtlryzf53iyd77W+7uX1Hw LPP+9ztweg1U3ASqbiFU3yaoOTBzi6H2MELttYS6QwTqrk6oOzdC3Z0F9ccr qL9g/rwC9fcFaDjAwqUCGk6wcHsHDUdYuMLCWSjm1RQe3YP72aK/uX3x27Yf AKdK7uw= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.838670567945424, -0.544639035015027}, { 0.544639035015027, 0.838670567945424}}], {-0.05032023407672545, \ -0.032678342100901626`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAfzvHM6fkm7+cU9QRKV+rP2YjvfU4 H86/gtA1KhCP3T+x1oPkS/3OvyfxEfHxnN4/MS6sfn6Bz7/C8FczMbnfP5XO u0pcqM+/K5wtFjBu4D+cGSA/4XDPvxxKeFdx/+A/kfP4jYDczr8tpOWHkIzh PyghmPEa782/oxDZeN0R4j9iOp265K7Mv4uh10/ci+I/TxJETTwky78JjoTV XPfiPxb1nyNyWcm/V9iPyo9R4z9HeGDLg1rHv7mC3rMZmOM/ypfUrMs0xb9I XiigIsnjP4PH57On9sK/LpiFfWLj4z8ShtQwGa/Av6BEZqwp5uM/AnJR58Da vL/OYJaWZdHjP0colIQtgbi/tsyYK6Gl4z+0vFmnkm60v5E7GT8BZOM/l7I3 6C++sL+cVcDhPA7jP0ZSyndnEau/Rvid55Gm4j/sg5+iLMelv4+g7+i1L+I/ fLtI2hPBob9LgpkhxKzhPzsvXg8SNJ6/pfSZqCgh4T8zmE+plsebv5uUhIqJ kOA/DBAzGkImgb9aQWjfsXPEPzFq17Y= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.05233595624294389, 0.998629534754574}, {-0.998629534754574, 0.05233595624294389}}], {-0.003140157374576631, 0.05991777208527442}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAHZhMJ2O5ab8GYhzPiq2uv0CYT6mW x5u/m5SEiomQ4L9IL14PEjSev6X0magoIeG/grtI2hPBob9KgpkhxKzhv/eD n6Isx6W/j6Dv6LUv4r9JUsp3ZxGrv0X4neeRpuK/nLI36C++sL+cVcDhPA7j v7y8WaeSbrS/kDsZPwFk479PKJSELYG4v7bMmCuhpeO/CHJR58DavL/OYJaW ZdHjvxaG1DAZr8C/n0RmrCnm47+Hx+ezp/bCvy2YhX1i4+O/zZfUrMs0xb9I XiigIsnjv0x4YMuDWse/uILesxmY478a9Z8jclnJv1bYj8qPUeO/UhJETTwk y78IjoTVXPfiv2c6nbrkrsy/i6HXT9yL4r8tIZjxGu/Nv6EQ2XjdEeK/lvP4 jYDczr8tpOWHkIzhv6EZID/hcM+/Gkp4V3H/4L+ZzrtKXKjPvyqcLRYwbuC/ NS6sfn6Bz7/B8FczMbnfv7jWg+RL/c6/JvER8fGc3r9rI731OB/Ov4DQNSoQ j92/ryfad2+Ysr8TjY22cD/Cv6vX5ck= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.45399049973954675`, -0.8910065241883679}, { 0.8910065241883679, 0.45399049973954675`}}], {-0.027239429984372808`, \ -0.053460391451302075`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA4ZdMJ2O5aT8GYhzPiq2uPwCYT6mW x5s/m5SEiomQ4D8IL14PEjSeP6X0magoIeE/X7tI2hPBoT9KgpkhxKzhP9SD n6Isx6U/j6Dv6LUv4j8iUsp3ZxGrP0X4neeRpuI/h7I36C++sD+cVcDhPA7j P6W8WaeSbrQ/kTsZPwFk4z85KJSELYG4P7bMmCuhpeM/8nFR58DavD/OYJaW ZdHjPwqG1DAZr8A/oERmrCnm4z97x+ezp/bCPy6YhX1i4+M/wpfUrMs0xT9J XiigIsnjP0B4YMuDWsc/uYLesxmY4z8O9Z8jclnJP1fYj8qPUeM/RRJETTwk yz8JjoTVXPfiP1s6nbrkrsw/i6HXT9yL4j8iIZjxGu/NP6MQ2XjdEeI/i/P4 jYDczj8upOWHkIzhP5YZID/hcM8/HEp4V3H/4D+PzrtKXKjPPyucLRYwbuA/ Ky6sfn6Bzz/E8FczMbnfP6vWg+RL/c4/J/ER8fGc3j9hI731OB/OP4PQNSoQ j90/qCfad2+Ysj8UjY22cD/CP6R0zLQ= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.4539904997395463, 0.8910065241883683}, {-0.8910065241883683, -0.4539904997395463}}], { 0.027239429984372766`, 0.05346039145130208}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAiTvHM6fkmz+bU9QRKV+rv20jvfU4 H84/fdA1KhCP3b+51oPkS/3OPyTxEfHxnN6/OC6sfn6Bzz++8FczMbnfv5zO u0pcqM8/KZwtFjBu4L+jGSA/4XDPPxlKeFdx/+C/mfP4jYDczj8rpOWHkIzh vzAhmPEa780/oRDZeN0R4r9qOp265K7MP4qh10/ci+K/VRJETTwkyz8HjoTV XPfivx71nyNyWck/VtiPyo9R479OeGDLg1rHP7eC3rMZmOO/05fUrMs0xT9H XiigIsnjv4rH57On9sI/LJiFfWLj478ZhtQwGa/AP59EZqwp5uO/D3JR58Da vD/NYJaWZdHjv1QolIQtgbg/tcyYK6Gl47/BvFmnkm60P5A7GT8BZOO/pLI3 6C++sD+bVcDhPA7jv1ZSyndnEas/Rfid55Gm4r8BhJ+iLMelP46g7+i1L+K/ jLtI2hPBoT9JgpkhxKzhv2IvXg8SNJ4/pfSZqCgh4b9TmE+plsebP5qUhIqJ kOC/IRAzGkImgT9aQWjfsXPEvw7x18U= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.05233595624294411, -0.998629534754574}, { 0.998629534754574, -0.05233595624294411}}], { 0.003140157374576645, -0.05991777208527442}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ7XXEwtR89wJ78a74+5MOr7Rvm641q0zwkv3Pawv2 T7t02/7r349xqw9fstflk7mwYecd+4a3d5hPzrhs73OTbwdf4137G5GNa2y7 r9hfdGefUaV8z/7A49X6m6dctX/u+X3/1jn37IsMW2os112zXxO9V3Tqy3v2 E9LSWEsvXLcX2HTbXYzjvr3Dn0c/z3++Yf/Hossu9/s9+8odXWxrBW7Zd+43 KeTccc9+Z98ft1nyt+3n5G79M8n7nr31lyjRZsk79isUT/be33LXfn3Bs8z7 3+/YL4bSm6HiejB1UH1roeZMhpqbB7WHzRJirwnUHZJQd7VA3bkN6u40qD8+ QP21DerPm1B/n4GGQwg0XEqh4WQKDbdX0HBkvA4J1xpoOIvEvJrCo3vQnin6 m9sXv232AIv01iM= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.8386705679454244, 0.5446390350150266}, {-0.5446390350150266, -0.8386705679454244}}], { 0.05032023407672546, 0.0326783421009016}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLdMVf3/S4ZX2LkcsTM13L9j/59qC/dMu3bavna41 q0zw0n4jPpkLG3besX/792Pc6sOX9gfe5NvB13jXvvLtHeaTMy7vv+7OPqNK +Z79hcjGNbbdV/a/9fy+f+uce/Y7Hq/W3zzl6v7N0XtFp768Z59t2FJjue7a frFNt93FOO7bd6alsZZeuL6f2bLLLvf7PXvLP49+nv98Y/+E/SaFnDvu2Rfv 6GJbK3Br/+LcrX8med+z39T3x22W/O396xRP9t7fctfe5EuUaLPknf2rCp5l 3v9+x34FhN5vBhG3XwNRt38LRJ/9Qog5+6Hm2vdB7NlvDbHXnhHijv1dEHfZ i0DcuT8H4m77jRB/7N8F8Zf9K4g/91+E+Nv+CiQc9kPDxT4AEk77P0DCzd4A Eo776yHhav8LEs772aO/uX3x22YvFPNqCo/uwf0ABTvilQ== "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.5446390350150271, -0.8386705679454242}, { 0.8386705679454242, -0.5446390350150271}}], { 0.03267834210090163, -0.05032023407672544}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAnFPUESlfqz+BO8czp+SbP4LQNSoQ j90/aCO99Tgfzj8p8RHx8ZzeP7TWg+RL/c4/xPBXMzG53z8xLqx+foHPPyuc LRYwbuA/lc67Slyozz8cSnhXcf/gP5wZID/hcM8/LqTlh5CM4T+R8/iNgNzO P6MQ2XjdEeI/KCGY8RrvzT+ModdP3IviP2A6nbrkrsw/CY6E1Vz34j9MEkRN PCTLP1fYj8qPUeM/FvWfI3JZyT+5gt6zGZjjP0V4YMuDWsc/SF4ooCLJ4z/K l9SsyzTFPy6YhX1i4+M/gMfns6f2wj+gRGasKebjPxOG1DAZr8A/zmCWlmXR 4z/9cVHnwNq8P7fMmCuhpeM/SiiUhC2BuD+QOxk/AWTjP7G8WaeSbrQ/nFXA 4TwO4z+YsjfoL76wP0X4neeRpuI/P1LKd2cRqz+PoO/otS/iP/GDn6Isx6U/ SoKZIcSs4T98u0jaE8GhP6X0magoIeE/Qi9eDxI0nj+blISKiZDgPzmYT6mW x5s/WkFo37FzxD8PEDMaQiaBPzT0zEE= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.998629534754574, 0.05233595624294392}, {-0.05233595624294392, -0.998629534754574}}], \ {0.05991777208527442, 0.003140157374576634}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAABmIcz4qtrj8SmEwnY7lpv5qUhIqJ kOA/M5hPqZbHm7+l9JmoKCHhPzsvXg8SNJ6/SoKZIcSs4T95u0jaE8Ghv46g 7+i1L+I/8YOfoizHpb9F+J3nkabiPz9SyndnEau/nFXA4TwO4z+YsjfoL76w v5A7GT8BZOM/t7xZp5JutL+2zJgroaXjP0oolIQtgbi/zmCWlmXR4z8FclHn wNq8v59EZqwp5uM/E4bUMBmvwL8tmIV9YuPjP4PH57On9sK/SF4ooCLJ4z/K l9SsyzTFv7iC3rMZmOM/Snhgy4Nax79X2I/Kj1HjPxf1nyNyWcm/CI6E1Vz3 4j9REkRNPCTLv4uh10/ci+I/YzqduuSuzL+iENl43RHiPywhmPEa782/LaTl h5CM4T+U8/iNgNzOvxtKeFdx/+A/oBkgP+Fwz78qnC0WMG7gP5nOu0pcqM+/ wfBXMzG53z81Lqx+foHPvybxEfHxnN4/ttaD5Ev9zr+A0DUqEI/dP2sjvfU4 H86/E42NtnA/wj+vJ9p3b5iyv4QZ2OE= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.8910065241883679, -0.45399049973954675`}, { 0.45399049973954675`, -0.8910065241883679}}], { 0.053460391451302075`, -0.027239429984372808`}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}, {}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], StyleBox[PointBox[{0., 0.}], StripOnInput->False, ShowContents->False]}}}, ImageSizeRaw->{{313.41040583242767`}, {365.6454734816329}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQfej/jVWNDgdtE8pebVkpOtv2d3TRVLOay7b9O92T /++7atu+ePny7PaH+297f+o2OXHMXlQ/9XX/64f7J02ZVLdV47i9hB9TsnXQ o/3ZbfFtzF7H7d8XmN76vOPRfi/PLy8CtI/b77VsOGMn+3i/2raPrtFnj9kr /Zq5ZUPN4/1XWCqY042O2ReluPz/feXx/mudMb6GcUftU5vlXP8rP9mv7Vb4 50boEfvfey4XX0p/sv/rnPYv++QP25+UejTl0rwn+1e1NOyPO3zQPufYlJer jz/Zn+68NEjB84B9i89O2aSHT/Z39U919yjZa7+U2you7PWT/W+6AvpEHXbZ +yUZg/lGgdog/v5XWdvA6s3WSYLU758sMxds3rXzYSDz9utOuA+27/dLbZB9 +19nXwO7p9AtDeSe/SvbZMDuXVilBnLv/p/KtmD/3AzUAvln/8lzs8D+vZwZ CPLv/h0pzeDwYC5bCgqP/dKvzMDhtevKBVB47f+/mw0cnj8/OYDCc/989XRw eIeLRYDCe7/RplXg+LB6Pg8UH/sB6bD9xQ== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQAGIQPc/quDbvpvO2TWdq3t9bfcz20/YD7S/lj9mGrpRb nHjplq1D99n7ljx391sLOXNe3HjN/vkD4/q32+/uf+BRc3aF8nX71SGBFgbF 9/ZH1/ut7ay8bi8t/tC/1vL+/hM8FbqJG6/b5zTtf83K/GD/V9+zMddOXreX KY6S+5b5YH9FRox60KHr9lz+/5OEzz/Yb71c8jfT7Ov27oLqim/1H+6/pNOx 8nbIdfv8G8/EdLse7u9f3Nnd+/GafVO1xomltx/uz1bcxVNXfM0+rr3zU7zS o/3uDWL3tt+9aq9+THTTsphH+x8/e6d9w/iqfUbgGW6hzkf7C0xdvH9UXrG3 ftk5t3/Zo/1i7QXpU7Zctt/p12GTuQXIz1A/l//ikr2wfB+Yn2ssC+Lvj17X DFavxGwPUr//ybXzYPMkvKRB5u1X+yoItu/A04sg+/Zv+tkFds/R/0/uAt2z P7dRAezelb2TQe7dr2L4CuyflpxakH/2s4cbgP3LNDUV5N/9f7x/gcPjtw03 KDz2z/4SCg6vu3wuoPDa/zDwADg8Gc/uA4Xn/pva18DhvTvUGRTe+7mnJoPj 4/1MLVB87N+nbgaOr+lXkkDxtT9E5jw4Pv/IyYLicz8AuIIaYg== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQA2IQ/Xj5/WuayVdsW5TlGn7n7LDdOV+qNOjZTVvXk+IV CTtu2AocdnPb2HF5v3x5xdPjTvft+/ZLeUsxX9mfd6/6ZPWL+/bTDwlt2DT1 yv5rEz9nzLV5YD/TYfvrDzZX93szrSk4XPHAPiLE6uXpL1f3X49LKrBZ/sBe MevN18s7ru3fffhg2MtjD+ydck9o+LVc31/JYl3Fdh0oPzd8VmDQjf0Tu80D DYD8mKCYHU9lb+5PjIq9mXr8gb2XrvZvhUc392+bnzKXY8UD+7889bbus27t bxb9FnWr8oH9tg3nfj9zvL2ftX5S6A/bB/Yv710+9uXK7f06oeUvV7y+b398 +wP7J/539n9dHLQ2wu2+/bKjP5n3rb+zf69qiMLf/nv2126I/TP8dGe/n7Hj lj9n7tobhettXCp6d39L6qev3Ex37VcfXyBvJ3l3/2qWO9UCJnfsjwj3gfmb HXaC+PsV6lXB6qNyboLU79/+7v9fkHkh28xA5u03M3sBtq82XAlk334+g6dg 9ygLu4Hcs/+i0W2we/MfuoHcu/9n9GWwf+J/doP8s3+2VTvYv+Zr34D8u/8h gwU4PHxexoPCY3+sYAQ4vEw2+YPCa/+5Z1Hg8IwTMwCF5/7QcyfB4f2uTwcU 3vs/y74Exwf7rd2g+NgfecESHF8vLT1B8bVf3uUsOD4zYpeD4nN/+hRFcHyv 2P4QFN/7FS8LgdMDa3YQKD3s98v2BKeXeZNjQellPwBH/Vvu "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQ/UTEuV/35cX9rhstipbmPbSfHOAF5k/9rQfi73f6 l+C67+7F/a8Zj/fUXX24/xf3M9fpmy7uF/i4NsTc6tF+7akd8oczLu7f9k1r XuKsR/vvdh6+x8l0cf+Lvb+SVn9+tP9hrADvs4YL+++m3RB/6/x4/5l90ode XTi/PzC16rdZ5+P9ylM6/56qOLd/wfH1PHcPPt4fYedTv4vx7P64/uK4xjeP 9/vld0gcKzm9/8TZgE4Zjif7SyfPvtx4++R+58hyNhaRJ/uf+eYdP2t/Yn/g LTvfd/xP9l95bScxc/Wx/ROmqMz88vvxfu6JpbOWaBzd3/rKzW/Sjcf7nVsl JrsdOLz/49WV/xYue7z/5Zp2LsPqQ/u/ndmpEpH+eL9uabGYTeLB/XaPdTda yzzevyHFN9W08sD+We9mzpE5/mh/ps69gpyJ+/cvna+/lSPr0f4/XomzGVfs 23/d88g7O/ZH+9/WBP8W23PFNtLpzfxyzyu2Hxt6wfLLja+D5O1VxLgLQfpn FNqC9Ns/FfYBm++7exXIfPu877lg+7NVbEH221+JKga770rsUZD77KdLqIDd n7brCMj99lZZs8D+E1juB/KffXedPtj/BZ6mIP/b9+1wA4eP8VdPUPjYc+W0 gMNP7EY1KPzsOVr7weH7Zk8EKHztww20wOE/2aAVFP72Z9tbwPGz6NYhUPzY 3//ABo4/0R/9oPizX1otAo7fsGsvQPFr/3EyJP5XBjInA+Pf/kNeAzh9XNYz AqUP+9jdV8Hpp+j9IVD6sa/anAROXz0/r4LSlz0Aod5viQ== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGDQAmIQffzV8jLfHVv2B+9602S3/JF9S/5GMP+w+EMQf/+9 lPe3XLO37DdWDT13hvfx/vUiH/fILNi8P2++z5wFhY/3u0st5t8ZvWl/5s1e 98ALj/cbzw2a+27phv2JdQnPpqo/2S/MsixhttDa/V3x3BnBpU/2667SXHBY dcX+zzUt01Zuf7J/DmNv1KHFi/ZzHD665t+bJ/tFbaessoqdud/D9r8lp8jT /dzJlwPa1nTuv9XdJXJD++l+tp8n29TNT9uGaV/XvmH8dL9mvH4wUN5+R8Uk sLznluy1QP32zSlfwPrty7aBzLf34j8LNt9g0WeQ/faXu/vB9s/UK04Eus+e j18Y7L6TU1+A3G+/JCsZ7P7Jc06B/Gc/Xa4P7D+ltdP3Av1vf/xPKNj/j7Yb 3gaGjz2/TRA4fBIOPwWFn/2j2a/B4df6jrEcxF9w+S04fCc6NYHV51+JBam3 dyqqApun2ZoMMs++f+ZTsH17tWaA7LPfemcV2D1qZjkg99jXc00Cu3dWmSLI vfZHja+B/ZPcMB3kH/uD78yiQf59/eI8yL/2v49arAGFR70gqxUwPOwFni8O AoWXVPgCUHjZu3DP5Sr6v8E24f4TUHjaRwo/8QOFt5HKLLD8K/2c1aD42NjB B9ZfGBAMji9Bz5tg8z9af5sPik9GzZlg+xkZNoLjW8haCey+VbJh4PRQNjkL 7P6euVng9BI6fy7Yf6x5kPR0/EAa2P+GiQ/A6a3INRUcPgAYyGLu "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwdUmtI01EU35bV0syKMqmJRoGJWUlNoW2eYm2RUYzog1gWGlZGD1MLq7lN UJmxkqVNXENw2VAkXKbFXHq3SX8fNd3U+WzB9p+JzqTR0NCSvPfD5XI4h3N+ r73Z9y7ksBgMRvzaw39QtVvHbOyCSK57IXWjF2JPKw+NUEqBtkq1bybQJxDT y69w/1udA/dR26ek+7fVCL5GHGtn3/KiE8/VOdxHFsh4q9Fxerxoq6gpkp9l hZH2xHc8Do2KGYbQpCc2EKeZ96ffoNHy5KUqsaUbfhnfr9YbaJRQTWkbDnwG XvrJ8y/GaZQSvBxV20xBsflIbXCFRihT12OHXrjuSj63EOFD0euGh0um+uCD OX9DyA4f+hMTjKIKv0C1UljBYftQrumhvINphwx/0ZWSeRpR/ql//UUDwNlm 3Oy20mg67YxtzjEIB+OlK8kVNGrjC8J/KBxgvOPZ9VNIoyH7+PdNLCe8rlnN bv7tRQMhmpjum04oWkyoy9J60bOyJVFNqxMWQz9eTDnuRbOFclGX2wmuOEol c3lQY1xuZeKsE+pfHs5/c9eDNGVZpGYe5eIaRgN5ZH5iyyiehyYpS4z3MWco vA+YEZXknuqUAN+D1o4Jgsc2FHZtDQ80m7gEb+f2AMYLpSY+4ZM3q8R8YGmn ifDVt1gxX7hqUBA9CtqlWA/wSKaJXrLwTKwXSNguomfq+lKsJzi55URv/6QI 6w0SUznxQ9bAxX7AHn0/8as09iz2CxTzOcRPjdWE/YQCtZ74bZH3Yr9hbuwp yUO0UojzAJ2PH5C8DI604LzA2N8wkqcENw/nCf4Dwl5drw== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQBWIQ/Scp8K799Z227LIJ99if3rBd7RjrtrHjsv2mjb5P jzvd399+xMVbivmKve0075PVL+7vd4912bBp6hX7d7WvM+baPNh/afvL1x9s rtqffDSr4HDFg/2fFFJenv5y1V45KKjAZvmD/RsDxL9d3nHN/sW3PWEvjz3Y f6HxqYZfy3V7to/KVWzXH+znfZsyKzDohr07p0agAZDf65e/46nsTftL87xv ph5/sP/2wvDfCo9u2t9aFzeXY8WD/Xta1tm6z7pl33/yddStygf7v0x4+PuZ 4237EwITQn/YPtgfdOfRsS9Xbtu7bg9/ueL1/f0e50QcnvjfsQ/Usl4b4XZ/ v90qVpZ96+/Yv5pho/C3/97+bc+1/hl+umMf+cZ4y58zd/dLClptXCp61/7R p1tfuZnu7r9duEveTvKuPVPi/moBkzv7v/GuAvP1354H8e2VljmB1Z/b9B+k 3n4esxrYPL9TYSDz7O+y/mcG2ffNNBRkn71CxF97kHtsu1JB7rEvnvYe7N6v 0nEg99qvlHgO9s+xrPkg/9gnSm0C+1eq4gvIv/Y3r/qCw2NBbxYoPOzr5xaD w2vN62hQeNmvqS8Eh+frFltQeNp3HXkEDu+/E6xB4W2vXC0Kjg/Dzv2g+LCv vxgCji8580RQfNkf17gLjk8/hpWg+LT/W2ABjm+znneg+LYv3uAETg/NH7JB 6cHe+GwqOL2EyBaB0os9AJ+NSKo= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQAGIQzXKYM67Af6OtkO71DQJqB21Pqn6+b8lz1z5xsyTn xY3X9uurxte/3X7X/kdg+NkVytf3T+5usDAovme/bpr82s7K6/u9/z33r7W8 b3/ibKRu4sbr+1/uOfWalfmBfW/D9phrJ6/v352bIPct84H9hyQ79aBD1/fr P2VLFj7/wP5uzbdfTLOv7/dJs1J8q//QXndq8crbIdf3f2v/KKbb9dD+7+6s 7t6P1/Yfk9A6sfT2Q3uvK9N56oqv7bc8OOVTvNIj+5cTv9zdfvfq/kxmpU3L Yh7ZVyy8o33D+Or+98cecAt1PrK/9lPB+0fllf3OGVPm9i97ZB/h65w+Zcvl /QsezrfJ3AKU/yNyLv/Fpf2FPxeC+duzFEF8ex/lbrD6FS5xIPX2oZ2PwOZN FLQEmWcfMF0GbF/05D8g++xLraaD3ZMkynYP6B77Dcc0we4tLdgMcq89S+kH sH+m7O8E+ceeQdgC7F8hrUqQf+3T1nCCw4PLS+M3MDzs640zwOFldjUUFF72 VrwnwOF5sfoOKDztNx37BQ7vo+sLQeFtr9JUDo6PL12+oPiwP9XvBo6vXcmF oPiyjzn7Cxyfm+V0QPFpL7WnkjHnwylbVtavbYnmt20BxDwNZA== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQvezopWlrr522veK/d5W6zx7brmVbjcLWnbNteO7I ff/dbNsDbNuXZ7c/tLeauL/b5MSx/Yabyl73v35o3xWSULdV4/j+NZaCydZB j+yzog3amL2O7+8KdLn1eccje2Ppqy8CtI/v3zNh6hk72cf2DkETXaPPHttf LLpky4aax/bRHUHM6UbH9r8T9///+8pj+yuPnHwN447uXyKj4/pf+Yn91Pk6 f26EHtm/j/lJ8aX0J/bWf/O/7JM/vF/5//cpl+Y9sf9nZrU/7vDB/ZdrVr5c ffyJ/RGbqCAFzwP7v/48J5v08Im9yh5Vd4+SvfuNptvEhb1+Yt9SIdYn6rBr P4+oE5gfvLUcxLefsOUwWL3TnAyQevtZ3mvB5rnn7gCZZ/9yG8S+mtn5IPvs w70egt1znnMOyD32fx8rg937U7kI5F77Ocfdwf5hVK4F+cc++ewKsH93HAsH +df+A/sEcHgsTj4NCg/7D6vtwOHFx/QZFF72Ig5c4PCUOOAPCk/7n+zl4PAO iloJCm/76lW7wfER/+ItKD7se2fceO2bfsu2+rfO3U1NF2wB0Pv3yA== "]]}}, { {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAALwUofoezrr8AoDV6XydhP3RJl5d6 a+K/M2fofWGVlD8Q38Yy1dHiv1QVltbsB5Y/VQfVmCg147/81/5CPXGZP95g lD0Pk+O/vJxpMUC8nj+wgFoXRenjvy6VmMch5KI/YOz2nbU15L+aft7f3zSn P9YjN6SIduS/xv/7P7I1rD8O/Je8Larkv+L9U47Y47A/aYXD4mXP5L9YvH30 OeSzP0FtLC5L5eS/MBX58HIJtz8TLDpeVuvkv6MhMI4VQLo/fGvBHWLh5L8I 0TtHSHS9P2rWn+mrx+S/J8aHUiBJwD8Q1OqU0p7kv5aPU79ew8E/bVvbc9Jn 5L9nRYf0vh/DPyAeI0X/I+S/jkJJ/NhVxD8TH0f/+9TjvzPnTE0xXsU/fk2j tLB8478oplMDZzLGP0Fzicw+HeO/w56/RVvNxj9Fvjra87jivyzC1ehQK8c/ bscGYztS4r+rwE2GA0rHP5xscOuP6+G/xx6FfrUoxz8NdK+na4fhv+M504s0 yMY/rxe7ckZ6w78/mx5bjlCpP52k1Zo= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9510565162951539, 0.309016994374947}, {-0.309016994374947, 0.9510565162951539}}], {-0.05706339097770922, 0.018541019662496824`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAhaMYrGk3rb9z9FbEavySvw10r6dr h+G/6DnTizTIxr+bbHDrj+vhv8sehX61KMe/bscGYztS4r+vwE2GA0rHv0W+ OtrzuOK/McLV6FArx79Ac4nMPh3jv8iev0Vbzca/fk2jtLB8478tplMDZzLG vxMfR//71OO/OOdMTTFexb8gHiNF/yPkv5VCSfzYVcS/bVvbc9Jn5L9sRYf0 vh/DvxDU6pTSnuS/m49Tv17Dwb9q1p/pq8fkvy3Gh1IgScC/fGvBHWLh5L8S 0TtHSHS9vxMsOl5W6+S/sCEwjhVAur9BbSwuS+XkvzsV+fByCbe/aYXD4mXP 5L9jvH30OeSzvw78l7wtquS/7v1TjtjjsL/WIzekiHbkv9z/+z+yNay/YOz2 nbU15L+uft7f3zSnv7CAWhdF6eO/RZWYxyHkor/fYJQ9D5Pjv+6caTFAvJ6/ VQfVmCg1478j2P5CPXGZvxHfxjLV0eK/fxWW1uwHlr90SZeXemviv1hn6H1h lZS/dQNwqa93xL8ogEf4Kd92vzIw5cA= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9993908270190959, -0.03489949670250092}, { 0.03489949670250092, 0.9993908270190959}}], {-0.05996344962114574, \ -0.0020939698021500554`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA7uHtp6t7rL9+kDhgDQSXP5YVpOfH FuG/OAYK1hqeyz+IjXpuAHPhvyoz6nCoVcw/giSZ1wDH4b8T1/TeH0TNP4hf mj/CEOK/hT6pFsBjzj/n1bcNfU7iv/SEvWSYrc8/LjoR8rN+4r8UIIKl2YzQ P1eoFRk9oOK/SGIi1aNP0T+tjjlbSbLiv9/YqoN3GtI/0BKVPGm04r9lLh/O b+jSPxCWip2PpuK/Da1XZ5S00z8feNcLEonivw3dKkv4edQ/vFcasqZc4r9D eOEr2DPVP81Gj/JfIuK/0UkA3rfd1T862CjIpdvhv0Mwqwx+c9Y/HabrFi2K 4b8Gtn6LjfHWP/wGNCHtL+G/dxB5qdtU1z/VUQRjE8/gvwvRDPsCm9c/oXpe HvZp4L+Q3kwnUsLXPwbhwOsFA+C/JIjDXNbJ1z9F6ONPfTnfv+SFXS1hsdc/ yIxmODBz3r+xuTetiXnXP7AmRX/tt92/3RBkzagj1z97YOffOQzdv2U1KgnR sdY/4j9AIXIjwL8MFk+wrTe5P6Qs0Pk= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.788010753606722, 0.6156614753256585}, {-0.6156614753256585, 0.788010753606722}}], {-0.047280645216403315`, 0.03693968851953949}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA0l/gMSs1qL+LUDtEwumiv3pg5985 DN2/aDUqCdGx1r+tJkV/7bfdv+AQZM2oI9e/xYxmODBz3r+0uTetiXnXv0To 4099Od+/5oVdLWGx178E4cDrBQPgvyaIw1zWyde/oHpeHvZp4L+S3kwnUsLX v9RRBGMTz+C/DtEM+wKb17/7BjQh7S/hv3oQeanbVNe/HKbrFi2K4b8Jtn6L jfHWvznYKMil2+G/RTCrDH5z1r/LRo/yXyLiv9RJAN633dW/u1casqZc4r9G eOEr2DPVvx941wsSieK/EN0qS/h51L8Ploqdj6bivw+tV2eUtNO/zxKVPGm0 4r9oLh/Ob+jSv6yOOVtJsuK/4tiqg3ca0r9WqBUZPaDiv0tiItWjT9G/LToR 8rN+4r8XIIKl2YzQv+fVtw19TuK/+4S9ZJitz7+IX5o/whDiv4w+qRbAY86/ giSZ1wDH4b8a1/TeH0TNv4iNem4Ac+G/LzPqcKhVzL+WFaTnxxbhvz0GCtYa nsu/npaeGh39wr+swKDVEbCuv1M+36M= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9271838545667874, -0.3746065934159124}, { 0.3746065934159124, 0.9271838545667874}}], {-0.055631031274007245`, \ -0.02247639560495474}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAASxOYJlTUpr+aFYfYQY6kP8OIc+jW ZNu/iOW3l2Oq2D/73p26xPLbv+d9Jqu2P9k/TKhYE9xn3L+2uSB2N+nZP4hE OqlJwdy/iY8E7s6i2j+sgMIT5fzcv+QIn6YCaNs/JcGlHz4Z3b+MWcR7EDTc P4JMOLGlFd2/hcbr9QsC3T90WBj+MfLcv7jsPrT8zN0/T0b9A76v3L/e8zwg /Y/eP2GA+z/kT9y/YrpLrVhG3z+x+uDG9NTbv04CXumo698/JEvZ++ZB279P aJJV+D3gPwJOmT1Hmtq/ozDzWtp54D82LEL7IOLZvz4xY50IqOA/1kxguOUd 2b85VFTZZcfgP/wZW5pRUti/UM00UTDX4D/wi+EoToTXv49nMXoG1+A/oij/ 9dO41r/wYr1W6cbgP7zaSOnL9NW/yvlVcDyn4D8G6c7r8DzVv8ITqHDDeOA/ VJQrsLKV1L+dK+5onTzgP63jKksaA9S/tpBgyXvo3z94RFJGsYjTv3k+X+XH Qt8/HBuBMZu0tb+w+xLjNl7BP6wp4oo= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.5299192642332053, 0.8480480961564257}, {-0.8480480961564257, 0.5299192642332053}}], {-0.03179515585399231, 0.05088288576938554}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAUdQgZXRHoL+LeZxUUg2qv3REUkax iNO/ez5f5cdC37+p4ypLGgPUv7qQYMl76N+/UZQrsLKV1L+eK+5onTzgvwHp zuvwPNW/wxOocMN44L+42kjpy/TVv8v5VXA8p+C/nSj/9dO41r/yYr1W6cbg v+uL4ShOhNe/kWcxegbX4L/4GVuaUVLYv1HNNFEw1+C/0kxguOUd2b86VFTZ ZcfgvzMsQvsg4tm/QDFjnQio4L/9TZk9R5rav6Uw81raeeC/H0vZ++ZB279R aJJV+D3gv6764Mb01Nu/UwJe6ajr379egPs/5E/cv2W6S61YRt+/TEb9A76v 3L/h8zwg/Y/ev3BYGP4x8ty/vew+tPzM3b9/TDixpRXdv4nG6/ULAt2/IsGl Hz4Z3b+RWcR7EDTcv6qAwhPl/Ny/6QifpgJo27+GRDqpScHcv46PBO7Ootq/ SqhYE9xn3L+6uSB2N+nZv/nenbrE8tu/7H0mq7Y/2b+/iHPo1mTbv4vlt5dj qti/C291M3Bwvr98x17LV2i7vydG71Y= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.7431448254773941, -0.6691306063588585}, { 0.6691306063588585, 0.7431448254773941}}], {-0.044588689528643644`, \ -0.0401478363815315}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAxmEOMibYnL+I0z9MyB+rP3tO3OhD TtG/deKe/g5G4D9/2mIakKDRvwX5ZEt9pOA/YHp+gZ7U0b9bIgZTJwjhP8LY WY8t6dG/p2AzcqVu4T+vJmxFvt3Rvx2Dz4x+1eE/KbDuRZey0b/aSrtUNzri P8m7jB/DaNG/jScxnmGa4j8r3tTeCQLRvw1N/2Kr8+I/Bb4mDeaA0L/FC+QX 7UPjP6pcLcLq0M+/5VOC+zaJ4z9dFLb9ynjOv9k0uQzdweM/vhdTf7oBzb9y 4nlegezjP1tkvRjGdMu/s/JQiRwI5D+ST7TTgdvJvxjBegYEFOQ/JuFyx80/ yL9LS0BN7g/kP6nHWxiZq8a/AscxmfT74z9T46uapCjFvxEdSU6S2OM/vLNB k0bAw79SFrf+oabjP7XLoAoxe8K/JWy/JFhn4z8NcHYWPGHBv1G4N7E7HOM/ J81pZTV5wL8HzaOcHMfiP//oC3Fskb+/p4Y0tQhq4j9ufa2bAai+vz7B0O4+ B+I/pIABZDkIob+OCnd8TwjEPwZD0ik= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.20791169081775968`, 0.9781476007338057}, {-0.9781476007338057, 0.20791169081775968`}}], {-0.012474701449065578`, 0.05868885604402833}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA8EACFlaMib/Vj7I6dwyuv2l9rZsB qL6/QMHQ7j4H4r/46AtxbJG/v6mGNLUIauK/I81pZTV5wL8KzaOcHMfivwhw dhY8YcG/U7g3sTsc47+wy6AKMXvCvydsvyRYZ+O/tbNBk0bAw79TFrf+oabj v03jq5qkKMW/Ex1JTpLY47+ex1sYmavGvwTHMZn0++O/HOFyx80/yL9MS0BN 7g/kv4lPtNOB28m/GcF6BgQU5L9OZL0YxnTLv7XyUIkcCOS/sRdTf7oBzb9z 4nlegezjv08Utv3KeM6/3DS5DN3B47+ZXC3C6tDPv+hTgvs2ieO//r0mDeaA 0L/HC+QX7UPjvyLe1N4JAtG/EE3/Yqvz4r/Bu4wfw2jRv5AnMZ5hmuK/IbDu RZey0b/dSrtUNzriv6cmbEW+3dG/IIPPjH7V4b+62FmPLenRv6tgM3KlbuG/ WHp+gZ7U0b9gIgZTJwjhv3jaYhqQoNG/CflkS32k4L90TtzoQ07Rv3rinv4O RuC/0OteIcQ6s7+0N9UyMBXCv8O14K0= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.4694715627858905, -0.8829475928589271}, { 0.8829475928589271, 0.4694715627858905}}], {-0.02816829376715343, \ -0.05297685557153562}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQPY3D7AajVOP+IzPCv5zIXmf/Vat5b3jrlv12c8St 8h0e2e+5uL/Md8eW/aZT3zTZLX9kr/9R77Zr9pb9s4Qiz53hfWyfGO28V2bB 5v0ThCLnLCh8bO+9fDv/zuhN+31VJ7oHXnhsP//P1Lnvlm7YH1Cf/myq+hP7 ngzRxNlCa/cvnymeEVz6xL66OmLBYdUV+1d+mTht5fYn9nNOT4s6tHjRfpNP 59b8e/PEfvFu8zVWsTP3L8tjtOIUeWofF8YT1Lamc3/e5KkiN7Sf2k/hezOl ZNrJPU4VD7VvGD+11w4Gy9vD5Hl3gfXbL4fqv3IKbL49zPzNVWD77VdD7T+e Dnaf/Uqo++wh7rcPhLr/7TKw/+xh/mOF+N9+ItT/lz+Aw8d+DjR8kiHhZ28B Db95kPC1t4eG776tn06Fn51mb7C73/e2+xF7AN2hzcU= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.13917310096006466`, 0.9902680687415705}, {-0.9902680687415705, \ -0.13917310096006466`}}], {0.008350386057603878, 0.05941608412449423}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQnc1hdoNRqtH+2IzwLyey1+0/pNW8N7x1i73DHHGr fIdH+zsu7i/z3bHF3mLqmya75Y/2//qgd9s1e4v9XKHIc2d4H+/XjnbeK7Ng s/0kocg5Cwof7xdZvp1/Z/Qmez/Vie6BFx7vz/ozde67pRvsA+vTn01Vf7Jf MUM0cbbQWvuVM8Uzgkuf7BerjlhwWHWF/eovE6et3P5kv8npaVGHFi+yN/10 bs2/N0/2X9plvsYqdqb98jxGK06Rp/ufhPAEta3ptM+bPFXkhvbT/dzlFgZO ye02ThUPtW8YP92/GiK/Hya/B6J/P0y/FsT8/TDzWSH274fZLw5x336Y+1Ig 7t8Pcz8/xH/7Yf5Thfh//2So/79Cwmc/LHyaIeG33xIafnsh4bsfFr53t346 FX522n793f2+t92P7AcA9y3WIw== "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.1391731009600653, -0.9902680687415704}, { 0.9902680687415704, 0.1391731009600653}}], {-0.00835038605760392, \ -0.059416084124494215`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAsUACFlaMiT/Zj7I6dwyuPxt9rZsB qL4/QMHQ7j4H4j+p6AtxbJG/P6iGNLUIauI//MxpZTV5wD8KzaOcHMfiP+Bv dhY8YcE/U7g3sTsc4z+Iy6AKMXvCPydsvyRYZ+M/j7NBk0bAwz9VFrf+oabj Pybjq5qkKMU/FB1JTpLY4z96x1sYmavGPwXHMZn0++M/9+Byx80/yD9OS0BN 7g/kP2RPtNOB28k/G8F6BgQU5D8tZL0YxnTLP7fyUIkcCOQ/jxdTf7oBzT91 4nlegezjPzAUtv3KeM4/3TS5DN3B4z97XC3C6tDPP+lTgvs2ieM/770mDeaA 0D/JC+QX7UPjPxXe1N4JAtE/Ek3/Yqvz4j+zu4wfw2jRP5EnMZ5hmuI/FLDu RZey0T/fSrtUNzriP5smbEW+3dE/IYPPjH7V4T+t2FmPLenRP6xgM3KlbuE/ THp+gZ7U0T9gIgZTJwjhP2zaYhqQoNE/CvlkS32k4D9oTtzoQ07RP3rinv4O RuA/xeteIcQ6sz+2N9UyMBXCPwoSx7o= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.4694715627858897, 0.8829475928589275}, {-0.8829475928589275, -0.4694715627858897}}], { 0.028168293767153373`, 0.05297685557153564}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAvGEOMibYnD+M0z9MyB+rv3VO3OhD TtE/d+Ke/g5G4L952mIakKDRPwj5ZEt9pOC/Wnp+gZ7U0T9eIgZTJwjhv7vY WY8t6dE/qmAzcqVu4b+pJmxFvt3RPx+Dz4x+1eG/I7DuRZey0T/cSrtUNzri v8G7jB/DaNE/jicxnmGa4r8k3tTeCQLRPw5N/2Kr8+K//70mDeaA0D/GC+QX 7UPjv5xcLcLq0M8/5lOC+zaJ479TFLb9ynjOP9o0uQzdweO/shdTf7oBzT9y 4nlegezjv09kvRjGdMs/tPJQiRwI5L+JT7TTgdvJPxjBegYEFOS/HeFyx80/ yD9LS0BN7g/kv5/HWxiZq8Y/AscxmfT7479N46uapCjFPxIdSU6S2OO/tbNB k0bAwz9TFrf+oabjv7DLoAoxe8I/Jmy/JFhn478IcHYWPGHBP1K4N7E7HOO/ I81pZTV5wD8JzaOcHMfiv/XoC3Fskb8/qIY0tQhq4r9ofa2bAai+Pz/B0O4+ B+K/oIABZDkIoT+OCnd8TwjEvyO80oo= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.20791169081775948`, -0.9781476007338056}, { 0.9781476007338056, -0.20791169081775948`}}], { 0.012474701449065569`, -0.058688856044028334`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAQdQgZXRHoD+UeZxUUg2qP15EUkax iNM/gz5f5cdC3z+T4ypLGgPUP8KQYMl76N8/PJQrsLKV1D+jK+5onTzgP+zo zuvwPNU/xxOocMN44D+i2kjpy/TVP9D5VXA8p+A/iSj/9dO41j/3Yr1W6cbg P9aL4ShOhNc/l2cxegbX4D/kGVuaUVLYP1fNNFEw1+A/v0xguOUd2T9AVFTZ ZcfgPyAsQvsg4tk/RTFjnQio4D/rTZk9R5raP6sw81raeeA/DkvZ++ZB2z9W aJJV+D3gP5z64Mb01Ns/XwJe6ajr3z9MgPs/5E/cP3C6S61YRt8/O0b9A76v 3D/v8zwg/Y/eP2JYGP4x8tw/yOw+tPzM3T9wTDixpRXdP5TG6/ULAt0/E8Gl Hz4Z3T+bWcR7EDTcP5uAwhPl/Nw/8QifpgJo2z94RDqpScHcP5aPBO7Ooto/ O6hYE9xn3D/EuSB2N+nZP+renbrE8ts/9X0mq7Y/2T+yiHPo1mTbP5Tlt5dj qtg//251M3Bwvj+Ix17LV2i7P1Nz12g= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.7431448254773932, 0.6691306063588595}, {-0.6691306063588595, -0.7431448254773932}}], { 0.04458868952864359, 0.04014783638153157}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAShOYJlTUpj+aFYfYQY6kv8GIc+jW ZNs/iOW3l2Oq2L/73p26xPLbP+h9Jqu2P9m/TKhYE9xn3D+3uSB2N+nZv4hE OqlJwdw/iY8E7s6i2r+qgMIT5fzcP+YIn6YCaNu/I8GlHz4Z3T+MWcR7EDTc v4JMOLGlFd0/hcbr9QsC3b90WBj+MfLcP7nsPrT8zN2/Tkb9A76v3D/e8zwg /Y/ev1+A+z/kT9w/YrpLrVhG37+x+uDG9NTbP04CXumo69+/IkvZ++ZB2z9P aJJV+D3gvwBOmT1Hmto/ozDzWtp54L81LEL7IOLZPz0xY50IqOC/1UxguOUd 2T85VFTZZcfgv/sZW5pRUtg/UM00UTDX4L/ti+EoToTXP49nMXoG1+C/oCj/ 9dO41j/wYr1W6cbgv7vaSOnL9NU/yflVcDyn4L8G6c7r8DzVP8ETqHDDeOC/ VJQrsLKV1D+cK+5onTzgv6zjKksaA9Q/tpBgyXvo3793RFJGsYjTP3c+X+XH Qt+/GxuBMZu0tT+w+xLjNl7BvzhB4m8= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.5299192642332053, -0.848048096156426}, { 0.848048096156426, -0.5299192642332053}}], { 0.03179515585399231, -0.050882885769385544`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAxl/gMSs1qD+aUDtEwumiP2lg5985 DN0/dzUqCdGx1j+cJkV/7bfdP+8QZM2oI9c/tIxmODBz3j/EuTetiXnXPzHo 4099Od8/94VdLWGx1z/84MDrBQPgPzmIw1zWydc/mHpeHvZp4D+l3kwnUsLX P8xRBGMTz+A/INEM+wKb1z/0BjQh7S/hP4wQeanbVNc/FabrFi2K4T8ctn6L jfHWPzLYKMil2+E/WDCrDH5z1j/FRo/yXyLiP+dJAN633dU/tVcasqZc4j9Z eOEr2DPVPxl41wsSieI/I90qS/h51D8Kloqdj6biPyKtV2eUtNM/yhKVPGm0 4j97Lh/Ob+jSP6eOOVtJsuI/9diqg3ca0j9RqBUZPaDiP11iItWjT9E/KDoR 8rN+4j8oIIKl2YzQP+LVtw19TuI/GYW9ZJitzz+CX5o/whDiP6o+qRbAY84/ fiSZ1wDH4T851/TeH0TNP4ONem4Ac+E/TTPqcKhVzD+RFaTnxxbhP1sGCtYa nss/mpaeGh39wj/QwKDVEbCuP5bIx+o= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9271838545667866, 0.37460659341591385`}, {-0.37460659341591385`, \ -0.9271838545667866}}], {0.05563103127400719, 0.02247639560495483}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA7uHtp6t7rD97kDhgDQSXv5YVpOfH FuE/NQYK1hqey7+IjXpuAHPhPyUz6nCoVcy/giSZ1wDH4T8Q1/TeH0TNv4hf mj/CEOI/gj6pFsBjzr/n1bcNfU7iP++EvWSYrc+/LjoR8rN+4j8SIIKl2YzQ v1eoFRk9oOI/R2Ii1aNP0b+tjjlbSbLiP93YqoN3GtK/0BKVPGm04j9jLh/O b+jSvxCWip2PpuI/C61XZ5S0078feNcLEoniPwvdKkv4edS/vFcasqZc4j9B eOEr2DPVv81Gj/JfIuI/z0kA3rfd1b862CjIpdvhP0Awqwx+c9a/HabrFi2K 4T8Etn6LjfHWv/wGNCHtL+E/dRB5qdtU17/VUQRjE8/gPwnRDPsCm9e/oXpe HvZp4D+O3kwnUsLXvwbhwOsFA+A/IojDXNbJ179F6ONPfTnfP+KFXS1hsde/ yIxmODBz3j+vuTetiXnXv7AmRX/tt90/3BBkzagj1799YOffOQzdP2Q1KgnR sda/4z9AIXIjwD8KFk+wrTe5vwyc0MI= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.7880107536067221, -0.6156614753256582}, { 0.6156614753256582, -0.7880107536067221}}], { 0.04728064521640332, -0.036939688519539486`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAfaMYrGk3rT+m9FbEavySPwZ0r6dr h+E/IzrTizTIxj+UbHDrj+vhPwgfhX61KMc/Z8cGYztS4j/uwE2GA0rHPz++ OtrzuOI/cMLV6FArxz86c4nMPh3jPwmfv0VbzcY/eU2jtLB84z9uplMDZzLG Pw4fR//71OM/eudMTTFexT8bHiNF/yPkP9VCSfzYVcQ/aFvbc9Jn5D+uRYf0 vh/DPwzU6pTSnuQ/3o9Tv17DwT9n1p/pq8fkP27Gh1IgScA/eWvBHWLh5D+W 0TtHSHS9PxEsOl5W6+Q/MiIwjhVAuj8+bSwuS+XkP7sV+fByCbc/ZoXD4mXP 5D/hvH30OeSzPwv8l7wtquQ/a/5TjtjjsD/UIzekiHbkP88A/D+yNaw/Xuz2 nbU15D+cf97f3zSnP66AWhdF6eM/J5aYxyHkoj/cYJQ9D5PjP62eaTFAvJ4/ UwfVmCg14z/c2f5CPXGZPw/fxjLV0eI/KheW1uwHlj9zSZeXemviP/lo6H1h lZQ/dANwqa93xD/5gUf4Kd92P+00zTs= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9993908270190957, 0.03489949670250344}, {-0.03489949670250344, \ -0.9993908270190957}}], {0.05996344962114573, 0.002093969802150206}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAALwUofoezrj8ooDV6Xydhv3VJl5d6 a+I/ZWfofWGVlL8R38Yy1dHiP4kVltbsB5a/VQfVmCg14z8x2P5CPXGZv99g lD0Pk+M/+JxpMUC8nr+wgFoXRenjP0qVmMch5KK/YOz2nbU15D+0ft7f3zSn v9YjN6SIduQ/5P/7P7I1rL8O/Je8LarkP/D9U47Y47C/aYXD4mXP5D9nvH30 OeSzv0FtLC5L5eQ/QBX58HIJt78TLDpeVuvkP7EhMI4VQLq/fGvBHWLh5D8V 0TtHSHS9v2rWn+mrx+Q/L8aHUiBJwL8Q1OqU0p7kP5yPU79ew8G/bVvbc9Jn 5D9uRYf0vh/DvyAeI0X/I+Q/lkJJ/NhVxL8TH0f/+9TjPzrnTE0xXsW/fk2j tLB84z8vplMDZzLGv0Bzicw+HeM/yp6/RVvNxr9Fvjra87jiPzLC1ehQK8e/ bscGYztS4j+xwE2GA0rHv5tscOuP6+E/zR6FfrUox78NdK+na4fhP+k504s0 yMa/rhe7ckZ6wz9Emx5bjlCpvw2y1oY= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9510565162951536, -0.30901699437494723`}, { 0.30901699437494723`, -0.9510565162951536}}], { 0.05706339097770922, -0.01854101966249684}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}, {}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], StyleBox[PointBox[{0., 0.}], StripOnInput->False, ShowContents->False]}}}, ImageSizeRaw->{{329.4787643147873}, {389.59625473205693`}}], ",", GraphicsBox[{{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQnfB5/zmHyxNtfyY4/Xved8W2t/tryz+zx/tn+H7V N/lzwN5i/7L3Vg2P96dNYZv6T/Wg/eajHHYmpx7vv6VxZYOg8kF7QeEsWQvh J/sNSno21H0+YH94YdadmZFP9jPvvfAsZsYB+0z9BPs9s5/st6ooSD4sfMD+ 732531I3nuyPEyuJrby4z54zS31OMO/T/QZHze5kmu21V1WMX6Fr9XS/453f 24/G77ZfeE7n5MLYp/uvbgw3j4jYaV99h/Xa/bKn+yfq8Ahy62y3X6mkPSu4 9en+yftuVS14vsU+bpmX9YqOp/tPKfQ6ZMzYZC+61B/Md89wBfH3H5uiAVb/ kN0EpH7/2blsYPMcEvoEgObtz5LTB9tXfHqzGdC+/XN2R4LdE8+8FuSe/b/m q4Ld67Pq+G2ge/cLXxQD+ydn8f0YoH/2m2+JB/tXWdoA5N/9CytTweGRY9UJ Co/92ndywOF1nTsJFF77rRewgcPzxbmZoPDcL+e7HBze9lXnpwDDe79wLyQ+ XB+eBMXH/psb77/uenLd9oCu/NN785psWZbf6/0pvM32oMG8YJ7Si7YAkLz6 wQ== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQA2IQ7enN8vIm4y3bRNMlz2QEL9uqZzob+C6+aWsdF3cr wOWWbROrwuoXix/u35B3bLV/4UX7wLZm85YXD/ebMPczLV9x0f7UmWzuFoNH +1MP3ctbfOqiPd97phzHqkf7Y6d/S629dtH+kt7iNO4jj/Z3+nQEvT990f7y /Gn7DHge7/+9xUbXfPVF+0cWv+9wBj7er3T3n4Bo6UX7UN6EdqaJj/d/VD98 6ZjWRfvkhImqi0893i+64uZ2hnMX7O/wLIib+efx/m3s1iWPEy7YF580u71f 9cn+OWnrIu6fPm/vOjWeQdX1yX517aj2d/vP2bvcaa0UiHqyXzVn41zJJWft 045rFbOnPNnPY+Iv+LjujL3Adg0w/wejNYi/vycUop5JuBqkfv/F/cFg81qZ pEDm7a9/bQu274avL8i+/d7vp4Ddo22lD3LP/tO9s8HuNbK7AHLv/omsKWD/ dE5fAfLP/qMHP4H9WzLtPsi/+w3sZoDDI/eoOCg89vc/XAoOr1WzU0DhtX+y JzM4PLlVLoLCc79PQC44vO+K7geF9/4ZN/vB8XHoSCkoPvbXzxQDx1ew6kpQ fO0HAKzKALs= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQAmIQ7frleMZt3Uf7ixNVl6iVXLPXUjoB5r9s5wDx99ss +Xg/S+PR/kP2/pO2sF/fn3puos0z8Uf7F/QuPfJm+vX9j88qV63783B/7deZ lQ2KN/af2dqQlnz94X759vfv3Rfe2D8nPvb7/RUP90e/PfQmROTm/nPnb7iY Fj3crzfh3wfmipv7XxY+cl1i8nB/b9CHbdynbu6/cehf8bSPD/br/Jo5r4vj 1v4K89sNU1c92H+07vBOQaNb+9tF5vs5JT7Y/5Hnqela11v7BYuWJ3iLP9g/ yUL/y0unW/snbRX7fnTO/f2XG+10b2je2u8SfjQuS+D+/tDmZYLcv2/ut16z indPz739F8q4sqZuv7k/UP+L2gGRe/sP7l7vyZx4c//nw3ULnry/bjuP77JM UeZR2982D/pFl120Pe6zi19u9i3bPdc/gdVPyToEUm+/L3k52LznMjog8+wl 5p8B2+f3/wjIPntGbQawewoEE0DusbedvRLs3mrhUJB77aXuLgT7J97wO8g/ 9guzb4H9O2X/SZB/7ZvuM5aAwsP000ZQeNjP6YSEV1Agz3ZgeNmH9NwEh+ez vUofgeFp3zArERzeAS9fgsLb3oK9HRwfrblfQPFhX1CsDo6vJycOguLLnk2n BxyfLx5uBcWnvSHnJ3B8h+1MBsW3PQBCKTQp "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwdkmtIk1EYx5c1Ek0/ZMyENtuWiRk4HRWZb4cU5XUR5YW8zdSJ5hc3Sqlg bWQxgwgkZmpDMxdaEzUvu4jlnhGRQUGxqFfd7bSiYC1LBrWKLjvnw+HwfHgu /9//L1ZpylvieDxeZuyRv2W0z2TY7AdW2C6cqvUhvHGI1m0XmkkNvYr5yEO+ H87sTXw1vOaD49vKTt754oPBxp8C0yU/THPBYy7wQZvpgL8oKQCt4/HyLJ0P Sgr6iptvBOC+Qfm3KdMHOfY/bHQThqvV/06oXF6QJDp/p+Rj6AgrPnUrvBDM sIRetGJYqnAuXHnmgQ3F5q4d1zCcmr0oqWQ8YD84ppbfxTBvLCnPmliFfJlD pZ/BoDWmD1ZtX4XoUnKHxYoB6hbfFxpWYFI+zDdPYFjTTDoU35eh/3bP4f5b GKauH7psVy/DYij5c1SLQVA4Umpe56AmJFvvrMQw/jVNHe7i4KWbK49IMeyO 5Lp3STj4UCRziLkASLXZ+qp1N8Pbyb4VO/cz9ZFOz8faFeZcozTemPCYMdiU Z72GVeZd3D1LwpNlhtcgp/2iuqOkH3GuHDo/fi5I5iNdr43uF3blkf1Il5tH 79M0pJD7kNk8Su8XBYbI/UiQ9JTqqz5tJfoQ9KRS/e6BNKIfzQ4UUD41GQuE D6o/cp7yu9luJfwQs2+O8t2CHxC+yKKvpfzTlTbCHxngB/Un2/+c+IOaZjTU v1/hraUx/9BrNpH6u4d9RPxFZd8C1P+RbJb4j5x8Jc0HYkWpsXygiu5Fmp/p NwKSH/QfnJ5XmQ== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwlUntIk1EUn0KJWemYwZKVLGIVhc4lRY952SxSY7j2R0NEiM2N7LWRTYiW 2wgSYtaKLDX2LRuED0wqCVu0U1ake7jnt5xUbN9X1gqjPyQzquW9/XG5HA7n nN9LqDGodLkcDmfT0sN/Z3Alf1qcgJ1FWY3xchrx1cWk7vPP4RpkhZ3m58IE hLIaJm86DT+o0ibnbxpMfvNDdykDlqJZ3/5xGjJMUO/SMuCTvVZyz9CQrfxF H7/DQF9x2Vo/j4YPY9aD3TMMPBip0PW74/Bxe/PCzAoWMquMN/aI4jB0PWDh S1iwpWvX6KgYdF3TW4/Vs8ATlJ2UF8agvWRzbKOGhbz8nzkCcxSctqoLyRYW HNr05KHPEfjk0qga9SwoBZPmA+oI7Ls4OO5VsxDlpYaVgTBkeLlUQxULL5w1 1c66MNR22/8+K2HhaYHQqhgMQeSbnH01x0BIbOqVvpuCwPxws3GMAYPFGvZK psAj6r27eI6Bq19ObPHcC4Ln9o6Bl7sYSD6+2aNfDEtTle5GzmiXdKKhlfQp bjXuI22Lg8znvHfhedTfYyf7z0q8eD+yz8vJfcEjBb6PHJfqCb4rTyiMDy1b zhD8624VYPzo9P0k4TdgG8H80BtFlPCP7D6K+aPZiTTRx9xRh/VB6zcIiX4L f8RYP6T4qiL6ZgVtWF/kDRuI/ntFb7H+yEeVE3+ajrRhf5CldRvx79TqDuwf So3GiL9bz+cnlvxFNYdjxH80QGP/0fdEOckHt8KB84Ha4//zIxsy4fygfwVV XkQ= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwlUmtI01EUH5UFa7Yo0tWk0rkPK0ItR2W6O9bLZVE4NJGUWBls4dSaGBRa hgWGUWq50tKyVZY2l2Frc55NnabVmCtt2kh095+hX9IUH9Ooe/twuRwO55zf K1SZlZixhMVibf33yL92+auclpIeCNuY9mx1qA8VWSppPe4+RGpwmrPzmq/0 QP0Kr8Sv9kGuwDq3Td4DUShZr2vywf3qEaxhuqGp11womfNBQ53b25bSDQVP rGOKGAzJ0X3OU0/fQ6NCbk3NxdB1sZClcndBFGxRzz7HIOkLYhuGO+GXko0X P2Mw1zEJlgEHiPNLyjTTGG7UTlyttHVAcc2+sGscBvxZUbK2qnY4uLfd38Jj oEp7btWwtg0uizJUH9YzYM3k8e1H7RCvPbLzJZeBk+5dGn60DTyczQMV8xh+ Sna4Ro61gkj3iBP4DYOpOyD8U0YLcN8ol3YYMfQXRwh3vzbDwqhUYCjAEOJo jw2XvoOJ/Ot5U/sx/JYqDqzkmWCGEzz5IwCD8bHDYpK+hTuRNfo/Nh+AK6U/ BJqh3qkXui74oFc/89ATNBjnCC6KcCZ74sQLMtpvVTeTPlqX/YXO37QbyTxy pfHpfmOtgOxHk6U6en+7p5TcR+XDpym+hHgFwYcueQMp/oAxFcGPziqTKL9I 3Ej4oT1fYyl/sVpE+KPDOi7VJ12SSvRBs9lZVL/zZ3KIfmheIaP6vkjyEH3R eMUU1b9Tfpzoj5yj36k/iw33iD/IomFR/26bNhD/UNmm//6mLxMTf9H0miHq f0xMIvEf8YWDNB93G/pIPtCIAdP8KG99JPlBmWyG5qv4wQmSL6QeLKf5kw1N kvyhvzCziBY= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGDQAmIQvabyz/9/1ev2s6xdtFfuwWP7S7/Xg/lrAieD+Pvd pBw5tz9cu59x69b0cs0n+5P7JgT/nb5m/5catb/NBU/2/+rmPZm4bNX+ueYJ 4Ys3P9lv8Z+PxU9ixf63mY9ivT8+2a96KtLn0J8l+2fNvc0vpPF0f4zq+5a/ qQv3G239fnFr2NP9TkZzhVUuzdo/jTHwnErN0/3eQQY/LltN2r98XpZN83Qg /0yy4PeCpv29lZHZBiue7he3M6r1+njF1qC+rfDU2qf7b2xhEAHK2+dMjgPL b3qm/Buo314zLgWsP2LNT1Gg+fb/OSLA5jNN3tIKtN/+5OSPYPt3d5j4At1n r6t2H+y+5LIbIPfbPyi5B3Z/Yct5kP/st7KngP2n0+McAvS//YZPimD/59yL 5gKGj33h5lXg8FlrtpLhf/U6+4adU8HhJ/HnCpi/biskfFcLyYDV67NtB6m3 79V8DzbP2tkQZJ79+aDfYPuKmStB9tmv+xHDCnJPI9MHkHvsT190Bbv3hPdr kHvtWRmPgf2z+hTXJaB/7MWf2YmB/OvwJx3kX/sAJudfoPCw21sMCg/7F67T hEHh9eduJii87EO+rZ/cknDd9r3NFFB42m9bXM0HCm/RrnSwfOafb+D40N1c BdYvb9ckAoovBdF4sPkbZviA43Nq739QeNoHX58Oju919S/B7mNg8QOnB9Pj 78Hu18xuBKeXzOvFYP8pb9gJTk9/Y6zA/jdz6Aent6zY3eDwAQCvRGlp "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJwdUm1Ik1EUXupQ1PwIZJMJsdLCTDCLynKeGSRZmjpH5H402BDctK2iOaNB aZlliKixhhXSmHMkOK1Yc1vdbc6mM1MrNRsL5t5FSEIOo+Yw694fl8vhHM55 vtgiOa82ikaj5fx/+G/Ma1jIQCao6xjJmm0KgF1XwtkqbuSoYzxxvJsuTuSw lvQvMAZxH82v8W1m7isoZD3t/2sPIEZrS0kC0wyWrtTQNzqFniz+LMzkjkJ+ 3z3l+kkKre29llXw3AJq3andxhsUqsyGzOlaGyQIxNGuEQoJlx2zy5VvQFWu T9zupdB9t0LGOmSH8fbMpYcbFPo8Vc9yVDggTVN1ZDA5iDb9t5L8V51QZxFJ ptKDqIbJP+F8PAYvneMRGzOIxIK424/sLjBrynfdSQyiraw9ZdalcejTtvXI flGoRFIVb/S/heiUJGrzI4VMnQ9okg9uWFHnS/8YKKRbyJ0R6ydg/93TrwUK ChliY3zO85PQVuxeqT5GoVjz8aAsOAmsWltLUTiA6PodG7mlHsgO8/s1LwKo ptmqNDV7oFf7tSgiDSD5nO+yrcMDz6ylAynsAHJ1z5Oa6xLjGr6oZsi8/2AI z0PGairZN9krxPtg1E0n93yiCXwPvBMMgme4+h3GA+3n6ASvorgG4wW50UD4 RI0UYD7A6C4nfLsOZGC+wKzYSfTYZGuwHvDjaA7Ra11ZjfWCs8NioifXtYT1 hDHeENH7zJwU6w3e+ivED8FvIfYDeuJbiV8t+XnYL/iUukr8jKQPYT/henIR 8ft72SXsN4QM0yQPYVEVzgMsdqVxcF7e+9Q4L7BtXkXyZO5k4zxBE38fyVvD RSPOG/wDVmNrgw== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGDQAGIQfU5h5cm9+WdtP6iFNM/JmGdbt2mz5q51Z+29M21X HrF8tH/9reUX9hmds/80ZcKyn9WP9rs+2zvL9u45e72cdSkFOx7tl5bKafBd dd4+85DL46NvH+33TU1xnut1wV6+rO/fAanH+88m/l0bcOaCfWLTr7mRdo/3 +7E/rXEPv2i/I2H1oX3hj/d/4Ht5MvDFRfu5LrFB0WmP9y9y4WeSqblkv3mJ ffPNzMf7I+s9cp34L9sLC2peVkl6vH/B/AzR1HmX7aebJTZk+T/erzevZZq1 2hX7kKoz9RJGj/e7ZXqmrlh8xf50Z+b3W1yP9/d/tZM8LXzV3ndyg/eMW4/2 Z1jcDRAsuWp/+u63q9mLHu0PFvxxyvXQVftHDOfS5ic/2s9zwyd27p+r9rFz ajYvln+0v2LphpqDitfs76ckP2K/8XB/TZ+OxA2Da/a8n78nFfQ93C+voQnm 1wowJgP59nx7NoPVzxMoAam3Z34HMe+12iSQefama/6B7YsIvgKyz/5M3Ruw eyo3slwDusfemM8K7N6rRztB7rWv/ugN9s/bpEqQf+wPNNaC/Ttt9h2Qf+1V u2LB4SHwsxQUHvZ6l8zA4fXnsCUovOxfp4iAwzPlqiMoPO1bNF6Dw1v/cBYo vO1LYl+B46Pp8FpQfNg/9/gKjq/WtULzgPFl/+ZGOjg+c+/OA8Wn/U3LUHB8 n1vjDYpv+zcXz4HTg6/HAVB6sO+/uQGcXkRnrQClF/u3jfPB6Wn6AU9QerLf VNV1mOvecVurdQ5Hpp89aQsAWKxVAQ== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQA2IQfb3a65KK0nX7erXY7YrX79tP9bindeTVRVvposVb 5Zov2zZGcrScPX7ZdoJt6vGLpvNsH1/1BKu33mICUr9fQMci703jdftfC28E fVZ+sN+x4qjnoo/X7SNitD6WhDzY//J/VNO2vBv2N+Yyvv5R/WD/w/wb272+ 3bCfvGGS3fSZD/bPc3z+2Kn1pv0L/qWsi9Y82N9fbDonXOKWfZwVZ/HKLQ/2 m6dkBWmuuWV/N3ZTUt3GB/t35LcphdjetveUXphnvPjBfoumk7uaT9y2//d/ UaNM14P9k71rn7d53bGP7Fzz6kzag/2agWqBSQfu2HeZHPgtbPVg/1y+ln+J 6nftF77+5/GD5cH+B7qqxpq1d+3beVe6Jk+8v3+C4WffA/vv2i9V17/nzHt/ /2u1srAFb+/ab2B8Lzar4d7+SRxHPu9mvWev9pP1wvx3d/fH3tgxq5X9nr39 wyTZdVF390cKbQLzL/cVgfj2C6YdAqu3ihEDqbf/eC4RbJ5ihrA40Dx7xpev wPbNuhcNss/+5mENsHum2O4Gucee+0cZ2L17PNk9ge61/96pDvbPkVmHQf6x 9+EuBfv3ne4ukH/tOY7dBIfHXOuNoPCwN+toAIdXwenNoPCyjzsbCw5Pm/OH QOFpr++rDA7v/TMFQOFtH2D6GhwfOYWbQPFhn1dxHBxfzf9ngeLLPqHXDxyf Rw5IgOLT3pz5GDi+L3dagOLbPs/BHZweDHyeg9KDPQDtF0Mj "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGBQAmIQLbJ5Y+xZhu22lbdqvaVfXrB9+/HyW06PC7YVOd6u 0hfW2fbP4VA/IHLPfmnRLk/mxJv7/0ic593Tc8/eoep/5tTtN/fvy/4alyVw 3z57z3pB7t839687qfz96Jz79q/FfHVvaN7aL7d7d4K3+AP7rommX1463dp/ PHmrn1PiA/uSZ3dN17re2s/Ae79h6qoH9jatG3YKGt3ar2LAWTLt4wP72BvL 53Vx3Npvf/2V6xKTh/Yh4U+3cZ+6uZ93wiMX06KH9vqThT8yV9zc3/qh7Pv9 FQ/tOQ8efRMicnP/xZVT0pKvP7R/Penpe/eFN/aznNGvWvfnof36tdMqGxRv 7H+vO9/mmfgj+3Vb5h95M/36/uILjA+yNB7Z39Hxn7SF/fr+IwlnM27rPrLf ckB2iVrJtf28gufAfJc1OiC+/VYuNrD6ld1ZIPX2ShYzwOYpLz0GMs9+QbQJ 2L78K2tA9tmHS0wDu6fj8SeQe+xLOAvB7t3HfR/kXntNsadg/9i/NAD5x379 x5dg/zIdY9kO9K+94i0+cHjY8G4AhYd9tsddcHh1KZ4ChZd9gDQkPBeqfgWF p73Ek73g8H6nnQIKb/uiSZLg+CioSATFh/2/RV/A8VW44gQovuzTba+B41Ph mHoWMD7t22YygeNbqeIwKL7tAU6hHCs= "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQ7fpJarX06ku24oKm3jIlN22fhEkxyj7dbyskKPnk PNdp24Btmywn/11qe2AST2mq0Uzb1DKD1S8WP7RPXrF6tX/hxf3z9800b3nx 0H7+/Rym5Ssu7l+6s5C7xeCRvZPdrrzFpy7uZy7nznGsemTfue9qau21i/tD 969K4z7yyH5lemHQ+9MX9y/eu3KfAc9j+1vz1XXNV1/cb/yb+S5n4GN71nm3 BERLL+6/9j6znWniY/s2ge2Xjmld3B/oO1d18anH9uHzr25nOHdh/1XXpXEz /zy237xBteRxwoX9t0Psb+9XfWJvap8bcf/0+f0KfDkMqq5P7E9M82h/t//c /oe7JlcKRD2x9zKeMldyydn9Bx1Ni9lTntiv5uQWfFx3Zj/zNVswP9UkDcS3 V7oxBaz+zeSjIPX2jxangc1rMK8DmWc/z94TbJ+oUCvIPntdkzVg93h6W4Dc Y7+1YCHYvaeCboLca//fvgTsHxvtPSD/2N/TZAD790zFJ5B/7Xsi14LDI9PO GRQe9nm+m8Hh1bqxHhRe9m8fCYDDc/3Zv6DwtH/qVgwO73bZp6DwtndpmwyO j/rQdlB82Fsd0wbH11T2c6D4sgcAuhj78A== "]]}, {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQfWCVwLWNV3pso7Tm+XIJnrLV5pn3YcXky7YKQbeT OW/22HZfZWn9Z/bY/v+H7fomfw7sf/38wHurhsf2oXarpvxTPbjfx57PzuQU UL553QZB5YP7p3bXyVoIP7GfcylmQ93nA/slpufdmRn5xP7br7ZnMTMO7C9k KLLfM/uJ/ew0neTDwgf29y1X/y1144l92/3nMZUX9+1flGc4J5j3qf2K7Rtu Z5rt3e+ZkLtC1+qpPU9D9vaj8bv3b/hsd3Jh7FP7hevnmEVE7Nyfep/v2v2y p/ZLZkUIcOts369+zG5WcOtT++Jm1aoFz7fs9y6Ktl7R8dQ+ODrcIWPGpv0H jyWA+bw2e0B8+31yjmD1T/ongtTbm/hxgc07ZrwBZJ597hdXsH32/g7mQPvs n9xPB7vndwrDDqB77OtnmIPd2yVsfgfoXnuheh2wf9Z8sYkF+sfeig3i37Qp 5SD/2j/ZUgwOD47rp0DhYV/jAAmvnjd1oPCy59kmCg7PEPZzoPC0903cAg5v R59HoPC2FwziBsfHz3XiBsD4sI+6GXRf0f+Q7eMnMX0a3rdsAQQg7GY= "]]}}, { {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAanEfEwa2rr8KvN1uAcFXPy9ZNJw0 rOO/BEEcEapujj/Vei5O0PXjv5Rm6CiSI5A/Igi4hXY95L9sYhYBy3CSP97K N5aCgeS/cHm8EXwRlj+jqk/5ZMDkvzOVB7tY8Jo/NlKXeKz45L/TaVMlZHig P6HNXaUOKeW/eG3j8Mb3oz/llrpsb1Dlv0Fso6zL4ac/Ilxvm+dt5b//S7cy dx+sPx3eWSvKgOW/ECBWnPFLsD8S8VM7qIjlv0WPaUBomLI/0x41mlOF5b9k WHR6oOe0P9CpB9bfduW/m76gEAsstz+8mjjJoV3lv+7S/TZYWLk/mfFkqC06 5b985a63xV+7P2MMMZxTDeW/eXrP22k2vT/rOB/7Gtjkv8KLOl150b4/qB5t P7yb5L8CekVjwxPAP9PRbdyZWeS/1Iqe5lyYwD92U3QdOBPkv95YerB+88A/ lCcJPjTK47+Qb7ywESPBP31VtO86gOO/O2rdlP4lwT9G0wCF/jbjv8gA5y80 /MA/yN8ACF3/w7+OrsuVUq2hP62t0pw= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9764410788292723, 0.21578419676780486`}, {-0.21578419676780486`, 0.9764410788292723}}], {-0.058586464729756337`, 0.012947051806068291`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAqE8BjAv/rb8XhrHg+4OKv0XTAIX+ NuO/8wDnLzT8wL98VbTvOoDjv2hq3ZT+JcG/kicJPjTK47++b7ywESPBv3NT dB04E+S/C1l6sH7zwL/R0W3cmVnkvwKLnuZcmMC/pR5tP7yb5L8xekVjwxPA v+k4H/sa2OS/IYw6XXnRvr9iDDGcUw3lv9d6z9tpNr2/l/FkqC065b/f5a63 xV+7v7uaOMmhXeW/UNP9NlhYub/PqQfW33blv/6+oBALLLe/0h41mlOF5b/G WHR6oOe0vxLxUzuoiOW/p49pQGiYsr8c3lkryoDlv3IgVpzxS7C/IVxvm+dt 5b/CTLcydx+sv+WWumxvUOW/Am2jrMvhp7+gzV2lDinlvzlu4/DG96O/NlKX eKz45L+UalMlZHigv6SqT/lkwOS/s5YHu1jwmr/dyjeWgoHkv+R6vBF8EZa/ Iwi4hXY95L/dYxYBy3CSv9Z6Lk7Q9eO//2foKJIjkL8vWTScNKzjv9JDHBGq bo6/R/YUYll5xL9MqCfpAaxvv39V4QM= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9997080140801929, -0.024163745236133388`}, { 0.024163745236133388`, 0.9997080140801929}}], {-0.059982480844811566`, \ -0.0014498247141680031`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA5/aOERekrb93p3efBySQP3NzcRi7 /OK/FdM4NL2txD/jZCrxbkLjvwlDh4rfEMU/PUREFpiD47/1RCcS+ZzFPyFq y/O3vuO//dbtOdNOxj9hspdmc/Ljv898zchZIsc/rO5xspod5L8LecfQshLI PxC3ZXkwP+S/OaGoKlsayT92MlmLb1bkv6zXVdNGM8o/j73Ma89i5L/VuKJs BFfLP97zNHMHZOS/Xjc/EeN+zD+lIY55EFrkv67vop0ZpM0/0pBgACVF5L/J Ck+H7r/OP4X/Ptu/JeS/jNJ7WN/Lzz+VE6BemfzjvwllMHTjYNA/1OGcJaPK 4782b9i3AM7QP73HZocCkeO/VEW60sYq0T9VQv3cCVHjv/Xo6xAVddE/I9Wj vjAM47+suDEtN6vRP0+Rp2YLxOK/z5R3Uu/L0T+3yQdsQXriv8Fk52V91tE/ 8IpwC4Qw4r90odBuo8rRP83hkDeE6OG/P6KCAqeo0T8uiiOr6KPhv2BiwatP cdE/DKlQ3ttbwr/q8BI/MyeyPybf2qc= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.8964269372957044, 0.44319154559923996`}, {-0.44319154559923996`, 0.8964269372957044}}], {-0.053785616237742265`, 0.0265914927359544}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAiv14zcmJq799aZzezDqbvymKI6vo o+G/c2LBq09x0b/J4ZA3hOjhv1KiggKnqNG/7IpwC4Qw4r+HodBuo8rRv7PJ B2xBeuK/1mTnZX3W0b9KkadmC8Tiv+SUd1Lvy9G/H9WjvjAM47/AuDEtN6vR v1FC/dwJUeO/C+nrEBV10b+5x2aHApHjv2pFutLGKtG/z+GcJaPK479Mb9i3 AM7Qv5EToF6Z/OO/IGUwdONg0L+B/z7bvyXkv7rSe1jfy8+/zpBgACVF5L/1 Ck+H7r/Ov6EhjnkQWuS/2u+inRmkzb/b8zRzB2Tkv4s3PxHjfsy/jL3Ma89i 5L8DuaJsBFfLv3QyWYtvVuS/2ddV00Yzyr8Ot2V5MD/kv2WhqCpbGsm/qu5x spod5L84ecfQshLIv16yl2Zz8uO/+nzNyFkix78easvzt77jvynX7TnTTsa/ O0REFpiD478fRScS+ZzFv+FkKvFuQuO/M0OHit8Qxb9wc3EYu/zivz7TODS9 rcS/mKS0C7rCw7/KNEp/X4Wlv0Eg6FU= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.9648755533435514, -0.2627073781985877}, { 0.2627073781985877, 0.9648755533435514}}], {-0.05789253320061307, \ -0.015762442691915263`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA3EglDirZqr+R9uev29udPxrSjqbE MuG/jxZWUnQg0z/tbAihg3Dhv1qQ12PxcdM/AaEiQWan4b/VFQ4uJdXTP7FR eUcq1uG/6MHBPslH1D/AKL0gvfvhv8l1v348x9Q/ybnQMUIX4r8xCMOhklDV P72qBucXKOK/IOzxT6Xg1T8UIMxo2y3iv8DjIqQmdNY/54b932oo4r9lYl6S tAfXP/5wljzmF+K/9M+vxOyX1z/09S16rvzhv7s0qXmAIdg/9oyMZmPX4b9s 3vDvR6HYP/2SavffqOG/QIfT7FQU2T+MRNxENXLhv8n0FfEDeNk/6y3nRaQ0 4b/ADgC3C8rZP9UzB3SW8eC/uZyrnooI2j9cjNuAlargv9IVx7kRMto/6XOo TkJh4L+l4vE1rUXaP8oUsWBLF+C/8S1J9OlC2j+lARn3xZzfv801UC3YKdo/ oNrcXmoQ379UqbMRC/vZPwOquw28jN6/wDwXapW32T9kgPsmwBTev9dov0kD Ydk/ACXFY25Ov7/IeV0iqWm6Py403jI= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.7643157205458495, 0.6448422127361693}, {-0.6448422127361693, 0.7643157205458495}}], {-0.045858943232750964`, 0.03869053276417016}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAtNvTytJ6p79jG8bZPs+jv1aA+ybA FN6/52i/SQNh2b/1qbsNvIzev9A8F2qVt9m/lNrcXmoQ379kqbMRC/vZv5YB GffFnN+/3TVQLdgp2r/DFLFgSxfgvwIuSfTpQtq/4nOoTkJh4L+24vE1rUXa v1aM24CVquC/4xXHuREy2r/OMwd0lvHgv8ucq56KCNq/5C3nRaQ04b/RDgC3 C8rZv4VE3EQ1cuG/2/QV8QN42b/3kmr336jhv1OH0+xUFNm/8IyMZmPX4b9+ 3vDvR6HYv+31LXqu/OG/zjSpeYAh2L/5cJY85hfivwfQr8Tsl9e/4Yb932oo 4r94Yl6StAfXvw0gzGjbLeK/0+MipCZ01r+4qgbnFyjivzTs8U+l4NW/w7nQ MUIX4r9ECMOhklDVv7oovSC9++G/3HW/fjzH1L+sUXlHKtbhv/vBwT7JR9S/ +6AiQWan4b/nFQ4uJdXTv+hsCKGDcOG/bJDXY/Fx078V0o6mxDLhv6EWVlJ0 INO/jjBuCRzmwb9ypJrK5+ezv/hD7bo= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.8739680326265178, -0.4859834132426065}, { 0.4859834132426065, 0.8739680326265178}}], {-0.05243808195759106, \ -0.029159004794556395`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAANaL9jMt+pr8YUPwEuuukPxZv5n7d 0dy/BjWwn3nN2j+zm49tRDbdv06F9jgmOts/yVlGfxuJ3b/vWFwgvbTbP82k C1N8yN2/y1OKk2463D9UCxnM8vLdv2i3up4pyNw/S/aomoUH3r8OY2kdrlrd P6v2vvO7Bd6/gHUV0J/u3T9kzF1WoO3dv37WBheagN4/oinnTcC/3b/XE0He Qw3fPz0FDzMpfd2/O0KsRWOR3z8E03H+YSfdvyNKBUn4BOA/JpQSUWLA3L/l fML7EzrgP85aZueGSty/rNWs6sxm4D/+ab66g8jbv/ixroEciuA/NHx/IlQ9 27+jwKpuM6PgP1AAVFIprNq/7+G5Yn6x4D/ETCOcVxjavykOD3OptOA//XfY 40KF2b+2O6sFoqzgP6sdvrdK9ti/5naUPpeZ4D/iFk2Ctm7Yv1fvDuv4e+A/ 4r+2SaLx179VBTHxdFTgP84+M27sgde/GGPgUvMj4D+scETSJCLXvw6WRbch 198/oO60BWATuL8JsZ46lJHAPwvX2XM= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.5877852522924747, 0.8090169943749463}, {-0.8090169943749463, 0.5877852522924747}}], {-0.03526711513754849, 0.048541019662496764`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA6bJHBIgOor+XCe5XXtqov5pwRNIk Ite/HJZFtyHX37+8PjNu7IHXvx9j4FLzI+C/0L+2SaLx179cBTHxdFTgv9AW TYK2bti/X+8O6/h74L+YHb63SvbYv+52lD6XmeC/6nfY40KF2b+9O6sFoqzg v7FMI5xXGNq/MQ4Pc6m04L89AFRSKazav/fhuWJ+seC/IXx/IlQ927+qwKpu M6Pgv+ppvrqDyNu/ALKugRyK4L+7Wmbnhkrcv7PVrOrMZuC/FJQSUWLA3L/t fML7Ezrgv/HScf5hJ92/K0oFSfgE4L8qBQ8zKX3dv0xCrEVjkd+/kCnnTcC/ 3b/oE0HeQw3fv1PMXVag7d2/j9YGF5qA3r+a9r7zuwXev5N1FdCf7t2/Ovao moUH3r8hY2kdrlrdv0MLGczy8t2/ebe6ninI3L++pAtTfMjdv95TipNuOty/ uVlGfxuJ3b8AWVwgvbTbv6Obj21ENt2/X4X2OCY6278Hb+Z+3dHcvxc1sJ95 zdq/ONj8u2T+vb8ywKUG+OS7vx665Yc= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.7322686665977732, -0.6810158587867974}, { 0.6810158587867974, 0.7322686665977732}}], {-0.04393611999586639, \ -0.040860951527207846`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAgmCg577VoL+CjmvSRLKpP4gJW11r kdW/PSkIrN114D82eOmC5djVv9lSDFKjtuA/tfPS6/0L1r/pgDhmEPzgPyjR H5mIKda/nbGHSY1E4T9XnBcY2DDWv6IJ+2JwjuE/BaSefMEh1r8XMmniB9jh P4FrOF2d/NW/TQaKs6Mf4j8KYufKRcLVvzob1GafY+I/nLDXUBF01b9TcP3V a6LiP81UMhnLE9W/4/mBS5ja4j/qvThlqKPUvzZ8cPfaCuM/OE59ljsm1L9g iNd/GDLjPx1KVhVlntO/IkZpgGpP4z9CATNtQg/Tv9JRLtMkYuM/V7r8ARx8 0r/slUGD2WnjP89w6MlR6NG/wM5mUltm4z+dbuN8R1fRvyVIrcK+V+M/x1rx rVDM0L/bNAeeWT7jP5DWU0OdStC/VpSY/sAa4z91eE6ATarPv935SuPF7eI/ gZKkmj3dzr/8ErpkcLjiPzBKp9C+Ms6/N3Sdpvl74j+1nJYpuq7Nv5CgP6nE OeI/RmkDhEDkrr8ybzaS0vfCP40k2XI= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.37709484168832214`, 0.9261746489577759}, {-0.9261746489577759, 0.37709484168832214`}}], {-0.022625690501299325`, 0.05557047893746654}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA144CYzArl7/PplHbu3Osv4+clim6 rs2/k6A/qcQ54r8JSqfQvjLOvzl0nab5e+K/XJKkmj3dzr//ErpkcLjiv1B4 ToBNqs+/4flK48Xt4r981lNDnUrQv1mUmP7AGuO/tFrxrVDM0L/fNAeeWT7j v4lu43xHV9G/KEitwr5X47+8cOjJUejRv8POZlJbZuO/RLr8ARx80r/wlUGD 2WnjvzABM21CD9O/1lEu0yRi478LSlYVZZ7TvyVGaYBqT+O/JU59ljsm1L9l iNd/GDLjv9i9OGWoo9S/Onxw99oK47+8VDIZyxPVv+j5gUuY2uK/i7DXUBF0 1b9YcP3Va6Liv/ph58pFwtW/PhvUZp9j4r9xazhdnfzVv1EGirOjH+K/9aOe fMEh1r8cMmniB9jhv0icFxjYMNa/pgn7YnCO4b8Y0R+ZiCnWv6Kxh0mNROG/ pfPS6/0L1r/tgDhmEPzgvyd46YLl2NW/3VIMUqO24L95CVtda5HVv0EpCKzd deC/oYCA31Nytr8GX/I2gyHBvzgK5Qk= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.54801250735467, -0.8364701380102268}, { 0.8364701380102268, 0.54801250735467}}], {-0.03288075044128019, -0.0501882082806136}]}, \ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA45jfiXVklL8ocYuGgfqsP9Ubw28t IMq/vEWzhRmQ4j/firdQ+WzKv33j0dqK1+I/Nz/FcbyNyr9hZlenECHjP9JT mXe2gcq/EPnlPvtq4z+6guv5LUnKvyB/VqWYs+M/S7oF5W7lyb8HjMaCPvnj P5SX8tzCWMm/D4XI6lM65D9G3QTPY6bIv7z4TL1adeQ/ji+UAGnSx7/ftDRq +KjkP7uKJgqv4ca/B/AW5P3T5D/GGwxMu9nFvzvDkJNu9eQ/lFcFhJvAxL/X F08ihgzlP9plRULCnMO/P63P+7wY5T9vv38O4XTCvy0NaWnLGeU/mGxDG8FP wb+rslc3qw/lP1/pYG4bNMC/dUUo2Zf65D/sJ4/Q4lC+v1McqQwN2+Q/nugz JM1lvL9+cGQDxLHkP9LgcyU5srq/iONMI69/5D+JM9Y8JEC5vzZbjHf0ReQ/ UcRXRgsYuL/bLhny5gXkPxi86ru4QLe/H/Wppf7A4z+KPVrWHL+2vxEbrCXQ eOM/ABs4W0+sl79eavwB3UPEP2yk2TQ= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.14448904956922415`, 0.9895063994510509}, {-0.9895063994510509, 0.14448904956922415`}}], {-0.008669342974153449, 0.05937038396706304}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA1xNqhDvBgb+Qn/qCy2WuvwQ9WtYc v7a/ExusJdB447+Pu+q7uEC3vyH1qaX+wOO/x8NXRgsYuL/eLhny5gXkv/0y 1jwkQLm/OFuMd/RF5L9F4HMlObK6v4vjTCOvf+S/EOgzJM1lvL+AcGQDxLHk v1wnj9DiUL6/VRypDA3b5L8a6WBuGzTAv3lFKNmX+uS/UGxDG8FPwb+uslc3 qw/lvym/fw7hdMK/MA1pacsZ5b+UZUVCwpzDv0Otz/u8GOW/TVcFhJvAxL/c F08ihgzlv4AbDEy72cW/QMOQk2715L91iiYKr+HGvwvwFuT90+S/Sy+UAGnS x7/jtDRq+KjkvwTdBM9jpsi/wfhMvVp15L9Sl/LcwljJvxSFyOpTOuS/CroF 5W7lyb8MjMaCPvnjv3qC6/ktScq/Jn9WpZiz47+SU5l3toHKvxX55T77auO/ +D7FcbyNyr9mZlenECHjv6KKt1D5bMq/guPR2orX4r+ZG8NvLSDKv8FFs4UZ kOK/nMvUt5wwq7/MoAevq1HDv0Di5Cs= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.3319078531285281, -0.9433118132577433}, { 0.9433118132577433, 0.3319078531285281}}], {-0.019914471187711686`, \ -0.056598708795464595`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQzeY4pUFxR/n+puvxTrMnr7NnU6tP9k5et39qocUi jWmP7SPjOxn+V6/bf/vKrL1yDx7bZzs+59z+cO3+vmXb0ss1n9j/NJIL+Tt9 zX6vEt2/zQVP7M+eXXQycdmq/av7c8IXb35if+pQE4ufxIr994yexHp/fGI/ f+JZn0N/luyP0H/EL6Tx1H7ZM9XWv6kL96++/O/i1rCn9r2TTERVLs3av5Q9 9pxKzVP7VU8rfl62mrTfUCXfpnn6U/uDLzIFvxc07T96LSHbYMVTe/mLX/5v eX19z8yVvYWn1j61P/4ILG8Pk9/4CKzf3giqf3o/2Hz75VDzdZ+C7bdfC7Vf fQLYffZRUPdFHgS73/4B1P0JZ8D+s18D9d9EQ7D/7b2h/md3AIeP/QRo+PyK BYef/R1o+K1RAYev/XRo+HqHFqzWWdBvH2k1tTE96Yg9AD3V09k= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.09651392091451298, 0.9953316347176488}, {-0.9953316347176488, -0.09651392091451298}}], \ {0.005790835254870778, 0.05971989808305892}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3eUwpUFxR7l98/V4p9mT1+1PU61P9k5eZz+10GKR xrTH+7fFdTL8r15nf/vKrL1yDx7vP+7wnHP7w7X2fcu2pZdrPtkfZCQX8nf6 GnuvEt2/zQVP9qucXXQycdkq+9X9OeGLNz/ZL3+oicVPYoX9PaMnsd4fn+x/ P+Gsz6E/S+wj9R/xC2k83f/pqWrr39SF9qsv/7u4Nezpfp2JJqIql2bZL2WP PadS83S/3ZOKn5etJtkbquTbNE9/uv/h00zB7wVN9kevJWQbrHi6/9avb++O vmy3mbmyt/DU2qf7F0Hk98Pk5SH698P0i0DM3w8z/xnE/v1roPY/gbhvP8x9 whD374e5XxLiv/0w/3lA/L8f5v89kPDZDwufNZDw2w8LvxhI+O6HhS9LWMFq nQX9+yOspjamJx3ZDwB1Y98p "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{0.09651392091451497, -0.9953316347176486}, { 0.9953316347176486, 0.09651392091451497}}], {-0.005790835254870899, \ -0.05971989808305891}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAfBNqhDvBgT+Tn/qCy2WuP5A8WtYc v7Y/FhusJdB44z8Zu+q7uEC3PyP1qaX+wOM/T8NXRgsYuD/gLhny5gXkP4My 1jwkQLk/O1uMd/RF5D/K33MlObK6P47jTCOvf+Q/lOczJM1lvD+EcGQDxLHk P94mj9DiUL4/WRypDA3b5D/Y6GBuGzTAP3xFKNmX+uQ/EGxDG8FPwT+yslc3 qw/lP+e+fw7hdMI/NQ1pacsZ5T9SZUVCwpzDP0atz/u8GOU/DFcFhJvAxD/g F08ihgzlPz8bDEy72cU/RMOQk2715D80iiYKr+HGPxDwFuT90+Q/CS+UAGnS xz/otDRq+KjkP8TcBM9jpsg/xvhMvVp15D8Rl/LcwljJPxmFyOpTOuQ/y7kF 5W7lyT8RjMaCPvnjPzuC6/ktSco/K39WpZiz4z9VU5l3toHKPxr55T77auM/ uz7FcbyNyj9sZlenECHjP2eKt1D5bMo/iOPR2orX4j9eG8NvLSDKP8dFs4UZ kOI/XsvUt5wwqz/SoAevq1HDPwH8y6k= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.33190785312852544`, 0.9433118132577444}, {-0.9433118132577444, \ -0.33190785312852544`}}], {0.019914471187711523`, 0.05659870879546465}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAvpjfiXVklD8wcYuGgfqsv6Qbw28t IMo/wEWzhRmQ4r+uirdQ+WzKP4Dj0dqK1+K/BD/FcbyNyj9lZlenECHjv55T mXe2gco/FPnlPvtq47+Gguv5LUnKPyV/VqWYs+O/F7oF5W7lyT8MjMaCPvnj v1+X8tzCWMk/E4XI6lM65L8R3QTPY6bIP8D4TL1adeS/WC+UAGnSxz/itDRq +Kjkv4OKJgqv4cY/C/AW5P3T5L+OGwxMu9nFPz7DkJNu9eS/W1cFhJvAxD/b F08ihgzlv6FlRULCnMM/Qq3P+7wY5b82v38O4XTCPzANaWnLGeW/XWxDG8FP wT+uslc3qw/lvybpYG4bNMA/eUUo2Zf65L93J4/Q4lC+P1QcqQwN2+S/K+gz JM1lvD+AcGQDxLHkv2DgcyU5sro/iuNMI69/5L8WM9Y8JEC5PzdbjHf0ReS/ 4MNXRgsYuD/dLhny5gXkv6e76ru4QLc/IfWppf7A478cPVrWHL+2PxMbrCXQ eOO/jBo4W0+slz9gavwB3UPEvysr1W0= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.14448904956922162`, -0.9895063994510511}, { 0.9895063994510511, -0.14448904956922162`}}], { 0.008669342974153298, -0.05937038396706307}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAs44CYzArlz/YplHbu3OsP2Oclim6 rs0/maA/qcQ54j/dSafQvjLOPz90nab5e+I/LpKkmj3dzj8EE7pkcLjiPyB4 ToBNqs8/5vlK48Xt4j9l1lNDnUrQP16UmP7AGuM/nFrxrVDM0D/lNAeeWT7j P3Fu43xHV9E/Lkitwr5X4z+kcOjJUejRP8rOZlJbZuM/LLr8ARx80j/2lUGD 2WnjPxcBM21CD9M/3VEu0yRi4z/ySVYVZZ7TPyxGaYBqT+M/DU59ljsm1D9r iNd/GDLjP8C9OGWoo9Q/Qnxw99oK4z+kVDIZyxPVP+/5gUuY2uI/c7DXUBF0 1T9gcP3Va6LiP+Jh58pFwtU/RhvUZp9j4j9ZazhdnfzVP1kGirOjH+I/3qOe fMEh1j8kMmniB9jhPzCcFxjYMNY/rgn7YnCO4T8B0R+ZiCnWP6qxh0mNROE/ j/PS6/0L1j/1gDhmEPzgPxF46YLl2NU/5lIMUqO24D9kCVtda5HVP0kpCKzd deA/iICA31Nytj8NX/I2gyHBPwC3ywU= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.5480125073546679, 0.8364701380102281}, {-0.8364701380102281, -0.5480125073546679}}], { 0.032880750441280075`, 0.05018820828061368}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAeWCg577VoD+IjmvSRLKpv3sJW11r kdU/QSkIrN114L8oeOmC5djVP91SDFKjtuC/p/PS6/0L1j/tgDhmEPzgvxrR H5mIKdY/orGHSY1E4b9KnBcY2DDWP6YJ+2JwjuG/96OefMEh1j8cMmniB9jh v3NrOF2d/NU/UQaKs6Mf4r/8YefKRcLVPz4b1GafY+K/jbDXUBF01T9XcP3V a6Liv75UMhnLE9U/6PmBS5ja4r/avThlqKPUPzp8cPfaCuO/J059ljsm1D9l iNd/GDLjvw1KVhVlntM/JUZpgGpP478yATNtQg/TP9ZRLtMkYuO/Rrr8ARx8 0j/wlUGD2Wnjv79w6MlR6NE/w85mUltm47+MbuN8R1fRPyhIrcK+V+O/tlrx rVDM0D/fNAeeWT7jv3/WU0OdStA/WZSY/sAa479TeE6ATarPP+H5SuPF7eK/ X5Kkmj3dzj//ErpkcLjivw5Kp9C+Ms4/OnSdpvl74r+TnJYpuq7NP5OgP6nE OeK/I2kDhEDkrj81bzaS0vfCv4Ul2f0= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.37709484168832075`, -0.9261746489577765}, { 0.9261746489577765, -0.37709484168832075`}}], { 0.022625690501299235`, -0.055570478937466576`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA0bJHBIgOoj+pCe5XXtqoP3twRNIk Itc/M5ZFtyHX3z+ePjNu7IHXPypj4FLzI+A/sL+2SaLx1z9nBTHxdFTgP7AW TYK2btg/a+8O6/h74D95Hb63SvbYP/p2lD6XmeA/y3fY40KF2T/JO6sFoqzg P5JMI5xXGNo/Pg4Pc6m04D8dAFRSKazaPwTiuWJ+seA/AXx/IlQ92z+3wKpu M6PgP8xpvrqDyNs/DrKugRyK4D+bWmbnhkrcP8LVrOrMZuA/9ZMSUWLA3D/8 fML7EzrgP9LScf5hJ90/OUoFSfgE4D8NBQ8zKX3dP2lCrEVjkd8/cynnTcC/ 3T8FFEHeQw3fPzbMXVag7d0/rNYGF5qA3j999r7zuwXeP7B1FdCf7t0/H/ao moUH3j8+Y2kdrlrdPygLGczy8t0/lre6ninI3D+jpAtTfMjdP/lTipNuOtw/ nllGfxuJ3T8bWVwgvbTbP4qbj21ENt0/eoX2OCY62z/ubuZ+3dHcPzM1sJ95 zdo/HNj8u2T+vT9OwKUG+OS7PxqHy6Y= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.7322686665977709, 0.6810158587867999}, {-0.6810158587867999, -0.7322686665977709}}], { 0.04393611999586625, 0.04086095152720799}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAALKL9jMt+pj8gUPwEuuukvwpv5n7d 0dw/EDWwn3nN2r+nm49tRDbdP1aF9jgmOtu/u1lGfxuJ3T/5WFwgvbTbv8Kk C1N8yN0/11OKk2463L9GCxnM8vLdP3S3up4pyNy/PfaomoUH3j8aY2kdrlrd v532vvO7Bd4/jnUV0J/u3b9WzF1WoO3dP4rWBheagN6/lSnnTcC/3T/jE0He Qw3fvy4FDzMpfd0/SUKsRWOR37/00nH+YSfdPylKBUn4BOC/F5QSUWLA3D/s fML7Ezrgv71aZueGStw/stWs6sxm4L/tab66g8jbP/+xroEciuC/I3x/IlQ9 2z+owKpuM6Pgvz8AVFIprNo/9uG5Yn6x4L+yTCOcVxjaPzAOD3OptOC/63fY 40KF2T+8O6sFoqzgv5gdvrdK9tg/7HaUPpeZ4L/QFk2Ctm7YP13vDuv4e+C/ z7+2SaLx1z9aBTHxdFTgv7s+M27sgdc/HWPgUvMj4L+ZcETSJCLXPxiWRbch 19+/ju60BWATuD8PsZ46lJHAvyIA2cI= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.5877852522924734, -0.8090169943749475}, { 0.8090169943749475, -0.5877852522924734}}], { 0.03526711513754839, -0.04854101966249685}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAp9vTytJ6pz9yG8bZPs+jP0SA+ybA FN4/+2i/SQNh2T/jqbsNvIzeP+U8F2qVt9k/gdrcXmoQ3z96qbMRC/vZP4UB GffFnN8/8zVQLdgp2j+7FLFgSxfgPxguSfTpQto/2XOoTkJh4D/N4vE1rUXa P0yM24CVquA/+hXHuREy2j/FMwd0lvHgP+Kcq56KCNo/3C3nRaQ04T/qDgC3 C8rZP3xE3EQ1cuE/9PQV8QN42T/ukmr336jhP2uH0+xUFNk/54yMZmPX4T+X 3vDvR6HYP+T1LXqu/OE/6DSpeYAh2D/wcJY85hfiPyHQr8Tsl9c/2Yb932oo 4j+SYl6StAfXPwcgzGjbLeI/7eMipCZ01j+wqgbnFyjiP07s8U+l4NU/vbnQ MUIX4j9eCMOhklDVP7MovSC9++E/9XW/fjzH1D+lUXlHKtbhPxXCwT7JR9Q/ 9KAiQWan4T8AFg4uJdXTP+FsCKGDcOE/hZDXY/Fx0z8P0o6mxDLhP7kWVlJ0 INM/hjBuCRzmwT+LpJrK5+ezPw+D1Bw= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.8739680326265167, 0.48598341324260885`}, {-0.48598341324260885`, \ -0.8739680326265167}}], {0.05243808195759098, 0.029159004794556524`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA10glDirZqj+i9uev29udvxXSjqbE MuE/mBZWUnQg07/obAihg3DhP2SQ12PxcdO//KAiQWan4T/eFQ4uJdXTv61R eUcq1uE/88HBPslH1L+7KL0gvfvhP9N1v348x9S/xLnQMUIX4j88CMOhklDV v7mqBucXKOI/LOzxT6Xg1b8PIMxo2y3iP8zjIqQmdNa/4ob932oo4j9xYl6S tAfXv/lwljzmF+I/ANCvxOyX17/u9S16rvzhP8c0qXmAIdi/8YyMZmPX4T94 3vDvR6HYv/eSavffqOE/TYfT7FQU2b+GRNxENXLhP9X0FfEDeNm/5S3nRaQ0 4T/MDgC3C8rZv88zB3SW8eA/xZyrnooI2r9XjNuAlargP90Vx7kRMtq/4nOo TkJh4D+x4vE1rUXav8MUsWBLF+A//S1J9OlC2r+WARn3xZzfP9g1UC3YKdq/ ktrcXmoQ3z9gqbMRC/vZv/Spuw28jN4/yzwXapW32b9VgPsmwBTeP+Jov0kD Ydm/8yTFY25Ovz/YeV0iqWm6v/H+4KM= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.7643157205458483, -0.6448422127361707}, { 0.6448422127361707, -0.7643157205458483}}], { 0.0458589432327509, -0.038690532764170234`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAfv14zcmJqz+vaZzezDqbPyGKI6vo o+E/k2LBq09x0T/B4ZA3hOjhP3OiggKnqNE/44pwC4Qw4j+podBuo8rRP6rJ B2xBeuI/92TnZX3W0T9CkadmC8TiPwaVd1Lvy9E/F9WjvjAM4z/kuDEtN6vR P0hC/dwJUeM/LunrEBV10T+xx2aHApHjP41FutLGKtE/x+GcJaPK4z9wb9i3 AM7QP4kToF6Z/OM/RGUwdONg0D95/z7bvyXkPwTTe1jfy88/x5BgACVF5D9A C0+H7r/OP5shjnkQWuQ/J/CinRmkzT/U8zRzB2TkP9c3PxHjfsw/hb3Ma89i 5D9PuaJsBFfLP20yWYtvVuQ/JNhV00Yzyj8It2V5MD/kP7GhqCpbGsk/pO5x spod5D+CecfQshLIP1myl2Zz8uM/Q33NyFkixz8Zasvzt77jP3LX7TnTTsY/ NkREFpiD4z9nRScS+ZzFP9tkKvFuQuM/ekOHit8QxT9rc3EYu/ziP4XTODS9 rcQ/kqS0C7rCwz8UNUp/X4WlP5m+zT4= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9648755533435504, 0.2627073781985909}, {-0.2627073781985909, -0.9648755533435504}}], { 0.05789253320061302, 0.015762442691915454`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA5vaOERekrT+Jp3efBySQv29zcRi7 /OI/KdM4NL2txL/hZCrxbkLjPx1Dh4rfEMW/O0REFpiD4z8KRScS+ZzFvx5q y/O3vuM/FNftOdNOxr9fspdmc/LjP+Z8zchZIse/qu5xspod5D8jecfQshLI vw+3ZXkwP+Q/UqGoKlsayb91MlmLb1bkP8XXVdNGM8q/jL3Ma89i5D/vuKJs BFfLv9vzNHMHZOQ/eDc/EeN+zL+jIY55EFrkP8jvop0ZpM2/z5BgACVF5D/k Ck+H7r/Ov4L/Ptu/JeQ/qdJ7WN/Lz7+RE6BemfzjPxhlMHTjYNC/0OGcJaPK 4z9Eb9i3AM7Qv7nHZocCkeM/YkW60sYq0b9SQv3cCVHjPwTp6xAVddG/INWj vjAM4z+6uDEtN6vRv0uRp2YLxOI/3pR3Uu/L0b+zyQdsQXriP89k52V91tG/ 7IpwC4Qw4j+BodBuo8rRv8nhkDeE6OE/TKKCAqeo0b8piiOr6KPhP2xiwatP cdG/CalQ3ttbwj/48BI/Myeyvxvm2UY= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.8964269372957039, -0.4431915455992412}, { 0.4431915455992412, -0.8964269372957039}}], { 0.053785616237742216`, -0.026591492735954465`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAApE8BjAv/rT9phrHg+4OKP0HTAIX+ NuM/JwHnLzT8wD94VbTvOoDjP5tq3ZT+JcE/jicJPjTK4z/yb7ywESPBP3FT dB04E+Q/Qll6sH7zwD/O0W3cmVnkPziLnuZcmMA/oh5tP7yb5D9pekVjwxPA P+c4H/sa2OQ/kYw6XXnRvj9eDDGcUw3lP0l7z9tpNr0/lfFkqC065T9Q5q63 xV+7P7iaOMmhXeU/w9P9NlhYuT/NqQfW33blP3G/oBALLLc/0B41mlOF5T84 WXR6oOe0PxDxUzuoiOU/HJBpQGiYsj8b3lkryoDlP+UgVpzxS7A/IFxvm+dt 5T+oTbcydx+sP+SWumxvUOU/6W2jrMvhpz+gzV2lDinlPxxv4/DG96M/NVKX eKz45D93a1MlZHigP6OqT/lkwOQ/Z5gHu1jwmj/dyjeWgoHkP6J8vBF8EZY/ Igi4hXY95D+IZRYBy3CSP9V6Lk7Q9eM/pmnoKJIjkD8vWTScNKzjPxNHHBGq bo4/R/YUYll5xD+wqyfpAaxvP3v5xgw= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9997080140801929, 0.024163745236135736`}, {-0.024163745236135736`, \ -0.9997080140801929}}], {0.059982480844811566`, 0.0014498247141681443`}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAaXEfEwa2rj8Hvd1uAcFXvy5ZNJw0 rOM/SUIcEapujr/Uei5O0PXjPzdn6CiSI5C/IQi4hXY95D8SYxYBy3CSv9zK N5aCgeQ/Hnq8EXwRlr+jqk/5ZMDkP+OVB7tY8Jq/NFKXeKz45D8valMlZHig v6DNXaUOKeU/1m3j8Mb3o7/klrpsb1DlP6Fso6zL4ae/IFxvm+dt5T9gTLcy dx+svxzeWSvKgOU/QiBWnPFLsL8R8VM7qIjlP3iPaUBomLK/0R41mlOF5T+Z WHR6oOe0v86pB9bfduU/0r6gEAsst7+6mjjJoV3lPyfT/TZYWLm/lvFkqC06 5T+25a63xV+7v2EMMZxTDeU/snrP22k2vb/pOB/7GtjkP/qLOl150b6/pB5t P7yb5D8fekVjwxPAv9DRbdyZWeQ/8Yqe5lyYwL9zU3QdOBPkP/pYerB+88C/ kScJPjTK4z+tb7ywESPBv3pVtO86gOM/V2rdlP4lwb9D0wCF/jbjP+MA5y80 /MC/xt8ACF3/wz+srsuVUq2hvyaN01U= "]], GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[ PolygonBox[{{-1.10196, -0.289756}, {-1.08585, -0.257073}, \ {-1.05025, -0.178048}, {-1.03171, -0.130243}, {-1.01512, -0.0824391}, \ {-1.0039, -0.037561}, {-1., 0.}, {-1.0039, 0.0341466}, {-1.01512, 0.0780486}, {-1.03171, 0.127805}, {-1.05025, 0.178538}, {-1.08585, 0.264878}, {-1.10196, 0.301464}, {0., 0.}, {-1.10196, -0.289756}}], {{{0.1, 0.}, {0., 0.1}}, {0., 0.}}], {{-0.9764410788292721, -0.21578419676780616`}, { 0.21578419676780616`, -0.9764410788292721}}], { 0.05858646472975632, -0.01294705180606837}]}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{0., 0.}, 0.06]}, {}}, {{}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], StyleBox[PointBox[{0., 0.}], StripOnInput->False, ShowContents->False]}}}, ImageSizeRaw->{{339.1576179748296}, {398.34924166078235`}}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.78981035652345*^9, {3.789810394787485*^9, 3.789810528306549*^9}, { 3.789810559638494*^9, 3.789810580782248*^9}, 3.7931418616940413`*^9}, CellLabel->"Out[16]=", CellID->133512904] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell["Stephen Wolfram & Max Piskunov", "Text", CellID->467763297] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell["wolfram model", "Item", CellID->350970808], Cell["physics", "Item", CellID->522560643] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell["Graphs & Networks", "Item", CellID->197113425], Cell["Wolfram Physics Project", "Item", CellID->254453] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell["SymbolName (documented Wolfram Language symbol)", "Item", 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->"TabNext", CellID->332817449] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell["RandomHypergraph", "Item", CellID->663878805], Cell["CanonicalWolframModelRule", "Item", CellID->651804890], Cell["ConnectedHypergraphQ", "Item", CellID->148183842] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], 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->"TabNext", CellID->91842863] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell["Link to other related material", "Item", 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->"TabNext", CellID->515049506] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell["\<\ In its present form, this will not correctly weight all canonical forms the \ same.\ \>", "Text", TaggingRules->{}, 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.784510024758688*^9, 3.784510026104391*^9}, { 3.784510092066424*^9, 3.78451010354537*^9}}, CellTags->"TabNext", CellID->971424399] }, 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]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], 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->"TabNext", CellID->932041030] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"RandomWolframModel | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.847457801437299`16.337748854387723*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.847457801486094`16.337748854393233*^9, "VersionInformation" -> {"ResourceVersion" -> "4.0.0"}, "TemplateVersion" -> "1.5.0", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", 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[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 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[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{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}}}], FilledCurve[{{{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"]], 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[{{ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], 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 UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], 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]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"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"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]])& , "\"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"], ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]])& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], 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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], 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"]]]]], 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"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]])& , "\"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"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]])& , "\"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 -> (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}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[ RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], 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, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], 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 -> "12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[634, 23, 101, 2, 70, "Title",ExpressionUUID->"5bf85672-0533-4c47-b704-3651d41d29cb", CellTags->{"Name", "TemplateCell", "Title"}, CellID->543277616]}, "TemplateCell"->{ Cell[634, 23, 101, 2, 70, "Title",ExpressionUUID->"5bf85672-0533-4c47-b704-3651d41d29cb", CellTags->{"Name", "TemplateCell", "Title"}, CellID->543277616], Cell[738, 27, 162, 4, 70, "Text",ExpressionUUID->"246e9933-2e88-4948-a2d0-664ad2301bdb", CellTags->{"Description", "TemplateCell"}, CellID->525629064]}, "Title"->{ Cell[634, 23, 101, 2, 70, "Title",ExpressionUUID->"5bf85672-0533-4c47-b704-3651d41d29cb", CellTags->{"Name", "TemplateCell", "Title"}, CellID->543277616]}, "Description"->{ Cell[738, 27, 162, 4, 70, "Text",ExpressionUUID->"246e9933-2e88-4948-a2d0-664ad2301bdb", CellTags->{"Description", "TemplateCell"}, CellID->525629064]}, "Definition"->{ Cell[925, 35, 1104, 27, 70, "Section",ExpressionUUID->"dfbf298a-688d-4238-9ef5-7bf4a0068265", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[925, 35, 1104, 27, 70, "Section",ExpressionUUID->"dfbf298a-688d-4238-9ef5-7bf4a0068265", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[925, 35, 1104, 27, 70, "Section",ExpressionUUID->"dfbf298a-688d-4238-9ef5-7bf4a0068265", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[13275, 397, 1880, 48, 70, "Subsection",ExpressionUUID->"2bd2032f-0cba-40b6-8227-4f60483ba571", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[16076, 488, 1329, 30, 70, "Subsection",ExpressionUUID->"35a66137-61cd-4c81-aece-f8070b4b46fe", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[19927, 586, 6926, 150, 70, "Section",ExpressionUUID->"d8ef6832-e6c7-4e28-8eb0-42b02c6335c5", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[197209, 4046, 918, 24, 70, "Subsection",ExpressionUUID->"d29b1e6b-aa88-4863-a2ce-796f9e7c5c23", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[198233, 4078, 893, 24, 70, "Subsection",ExpressionUUID->"343108d0-2750-4013-841b-08ddebaf6c2e", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[199261, 4113, 167, 5, 70, "Subsection",ExpressionUUID->"034a3e28-d2fe-4b77-94e5-14e25f5c29c2", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[199580, 4129, 870, 24, 70, "Subsection",ExpressionUUID->"d3056c6c-6aae-4c81-8b67-b601ee675a75", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[200992, 4168, 919, 24, 70, "Subsection",ExpressionUUID->"6d27bcae-3706-44e1-965d-0d70d466d60b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[202126, 4206, 971, 25, 70, "Subsection",ExpressionUUID->"ea40d584-7bde-44f3-9be5-953536c60248", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[203632, 4246, 823, 24, 70, "Subsection",ExpressionUUID->"e93090ea-52c3-4cf3-9c7b-f592c3e8631c", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[204980, 4285, 1762, 43, 70, "Subsection",ExpressionUUID->"24d0ceea-5d76-4d2d-ae7b-42d1d313ff1a", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[207053, 4348, 1048, 26, 70, "Section",ExpressionUUID->"e530b75c-e18b-4cae-ada6-3727f3dbe253", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[208820, 4395, 929, 25, 70, "Section",ExpressionUUID->"0eeebe81-ad7a-42cb-9930-c376079108aa", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "Documentation"->{ Cell[13113, 389, 137, 4, 70, "Section",ExpressionUUID->"f90db6e8-8cd8-4b4e-956d-5473f1f45a67", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[13113, 389, 137, 4, 70, "Section",ExpressionUUID->"f90db6e8-8cd8-4b4e-956d-5473f1f45a67", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[197010, 4038, 174, 4, 70, "Section",ExpressionUUID->"29bdd8fd-c619-4423-b247-ad8ff2129528", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[13275, 397, 1880, 48, 70, "Subsection",ExpressionUUID->"2bd2032f-0cba-40b6-8227-4f60483ba571", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[16076, 488, 1329, 30, 70, "Subsection",ExpressionUUID->"35a66137-61cd-4c81-aece-f8070b4b46fe", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[16076, 488, 1329, 30, 70, "Subsection",ExpressionUUID->"35a66137-61cd-4c81-aece-f8070b4b46fe", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "TabNext"->{ Cell[17408, 520, 1549, 41, 70, "Notes",ExpressionUUID->"b11a6b9f-ad6c-4463-b804-8c36ee670c1d", CellTags->"TabNext", CellID->598625853], Cell[200453, 4155, 502, 8, 70, "Item",ExpressionUUID->"f18f1508-c8a3-4517-976d-508c77f8c46c", CellTags->"TabNext", CellID->332817449], Cell[203100, 4233, 495, 8, 70, "Text",ExpressionUUID->"366987b9-7e2e-449f-9863-bf65bfe8540d", CellTags->"TabNext", CellID->91842863], Cell[204458, 4272, 485, 8, 70, "Item",ExpressionUUID->"7e9cd3b5-f927-469e-8fb7-baf8c4273a7d", CellTags->"TabNext", CellID->515049506], Cell[208104, 4376, 679, 14, 70, "Text",ExpressionUUID->"c6058d50-5981-4018-a499-eee23018daef", CellTags->"TabNext", CellID->971424399], Cell[209752, 4422, 495, 8, 70, "Text",ExpressionUUID->"b162b58b-a706-430a-9743-a387767ae805", CellTags->"TabNext", CellID->932041030]}, "Examples"->{ Cell[19927, 586, 6926, 150, 70, "Section",ExpressionUUID->"d8ef6832-e6c7-4e28-8eb0-42b02c6335c5", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[197010, 4038, 174, 4, 70, "Section",ExpressionUUID->"29bdd8fd-c619-4423-b247-ad8ff2129528", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[197209, 4046, 918, 24, 70, "Subsection",ExpressionUUID->"d29b1e6b-aa88-4863-a2ce-796f9e7c5c23", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[197209, 4046, 918, 24, 70, "Subsection",ExpressionUUID->"d29b1e6b-aa88-4863-a2ce-796f9e7c5c23", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[198233, 4078, 893, 24, 70, "Subsection",ExpressionUUID->"343108d0-2750-4013-841b-08ddebaf6c2e", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[199261, 4113, 167, 5, 70, "Subsection",ExpressionUUID->"034a3e28-d2fe-4b77-94e5-14e25f5c29c2", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[199580, 4129, 870, 24, 70, "Subsection",ExpressionUUID->"d3056c6c-6aae-4c81-8b67-b601ee675a75", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[200992, 4168, 919, 24, 70, "Subsection",ExpressionUUID->"6d27bcae-3706-44e1-965d-0d70d466d60b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[202126, 4206, 971, 25, 70, "Subsection",ExpressionUUID->"ea40d584-7bde-44f3-9be5-953536c60248", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[203632, 4246, 823, 24, 70, "Subsection",ExpressionUUID->"e93090ea-52c3-4cf3-9c7b-f592c3e8631c", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[204980, 4285, 1762, 43, 70, "Subsection",ExpressionUUID->"24d0ceea-5d76-4d2d-ae7b-42d1d313ff1a", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[204980, 4285, 1762, 43, 70, "Subsection",ExpressionUUID->"24d0ceea-5d76-4d2d-ae7b-42d1d313ff1a", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[207053, 4348, 1048, 26, 70, "Section",ExpressionUUID->"e530b75c-e18b-4cae-ada6-3727f3dbe253", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[208820, 4395, 929, 25, 70, "Section",ExpressionUUID->"0eeebe81-ad7a-42cb-9930-c376079108aa", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 322142, 6569}, {"TemplateCell", 322325, 6573}, {"Title", 322661, 6580}, {"Description", 322843, 6584}, {"Definition", 323021, 6588}, {"Function", 323218, 6592}, {"TemplateCellGroup", 323424, 6596}, {"Documentation", 325993, 6639}, {"TemplateSection", 326186, 6643}, {"Usage", 326560, 6650}, {"Details & Options", 326755, 6654}, {"Notes", 326959, 6658}, {"TabNext", 327165, 6662}, {"Examples", 328040, 6681}, {"Source & Additional Information", 328250, 6685}, {"Contributed By", 328463, 6689}, {"ContributorInformation", 328699, 6693}, {"Keywords", 328921, 6697}, {"Categories", 329113, 6701}, {"Related Symbols", 329311, 6705}, {"Related Resource Objects", 329524, 6709}, {"Source/Reference Citation", 329746, 6713}, {"Links", 329950, 6717}, {"Tests", 330134, 6721}, {"VerificationTests", 330352, 6725}, {"Author Notes", 330565, 6729}, {"Submission Notes", 330765, 6733} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[634, 23, 101, 2, 70, "Title",ExpressionUUID->"5bf85672-0533-4c47-b704-3651d41d29cb", CellTags->{"Name", "TemplateCell", "Title"}, CellID->543277616], Cell[738, 27, 162, 4, 70, "Text",ExpressionUUID->"246e9933-2e88-4948-a2d0-664ad2301bdb", CellTags->{"Description", "TemplateCell"}, CellID->525629064], Cell[CellGroupData[{ Cell[925, 35, 1104, 27, 70, "Section",ExpressionUUID->"dfbf298a-688d-4238-9ef5-7bf4a0068265", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[2032, 64, 2177, 52, 70, "Input",ExpressionUUID->"f5bfef7d-1f92-4487-b731-72cfa02f27d1", InitializationCell->True, CellID->760684928], Cell[4212, 118, 1030, 25, 70, "Input",ExpressionUUID->"b0ed4815-65a4-4410-869e-775ce63a81b7", InitializationCell->True, CellID->807554517], Cell[5245, 145, 1161, 29, 70, "Input",ExpressionUUID->"74368dfb-1921-4eae-970e-110a7ffe254e", InitializationCell->True, CellID->45925737], Cell[6409, 176, 945, 24, 70, "Input",ExpressionUUID->"e1958c7e-e64b-4eee-bebd-ef5c3a828ccd", InitializationCell->True, CellID->671142181], Cell[CellGroupData[{ Cell[7379, 204, 171, 4, 70, "Subsubsection",ExpressionUUID->"aa67c27b-b176-4fb7-9355-631dda8505fb", CellID->204206741], Cell[7553, 210, 585, 17, 70, "Input",ExpressionUUID->"1fb7212a-01ac-4817-a15a-ea354af85212", InitializationCell->True, CellID->901606921], Cell[8141, 229, 536, 16, 70, "Input",ExpressionUUID->"aa9a5f08-b240-43ca-8575-14a800d3d451", InitializationCell->True, CellID->428903361], Cell[8680, 247, 512, 14, 70, "Input",ExpressionUUID->"c4eed853-ff58-4232-a332-600556c28927", InitializationCell->True, CellID->384754172], Cell[9195, 263, 612, 17, 70, "Input",ExpressionUUID->"98522356-d5fc-4950-bd18-cdf281ac9119", InitializationCell->True, CellID->809881665], Cell[9810, 282, 1228, 36, 70, "Input",ExpressionUUID->"35e16f4d-0121-4dc9-ada5-fd2de4f8df04", InitializationCell->True, CellID->192688919], Cell[11041, 320, 710, 22, 70, "Input",ExpressionUUID->"af369cc4-214b-493a-9feb-4de5d2f3ef96", InitializationCell->True, CellID->249151450], Cell[11754, 344, 620, 16, 70, "Input",ExpressionUUID->"79f5a313-056a-44d9-a95f-88736774609e", InitializationCell->True, CellID->525499418], Cell[12377, 362, 355, 10, 70, "Input",ExpressionUUID->"36a9982f-2b12-406d-a31a-45aca39aac02", InitializationCell->True, CellID->565134437], Cell[12735, 374, 329, 9, 70, "Input",ExpressionUUID->"f3c51cab-6a99-4736-ba92-f7721e4dfcf9", InitializationCell->True, CellID->60153134] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13113, 389, 137, 4, 70, "Section",ExpressionUUID->"f90db6e8-8cd8-4b4e-956d-5473f1f45a67", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[13275, 397, 1880, 48, 70, "Subsection",ExpressionUUID->"2bd2032f-0cba-40b6-8227-4f60483ba571", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[15180, 449, 156, 4, 70, "UsageInputs",ExpressionUUID->"5894cdcb-185d-4da5-bf50-cadef9ac8f78", CellID->239490279], Cell[15339, 455, 224, 7, 70, "UsageDescription",ExpressionUUID->"fb38417d-af4a-4f91-893e-497f6f62f602", CellID->987777615] }, Open ]], Cell[CellGroupData[{ Cell[15600, 467, 200, 6, 70, "UsageInputs",ExpressionUUID->"07e68888-028f-4684-94d8-712ddd338faf", CellID->368752462], Cell[15803, 475, 224, 7, 70, "UsageDescription",ExpressionUUID->"79a14019-ad18-4fd0-b892-0805a5b3606b", CellID->539143668] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16076, 488, 1329, 30, 70, "Subsection",ExpressionUUID->"35a66137-61cd-4c81-aece-f8070b4b46fe", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[17408, 520, 1549, 41, 70, "Notes",ExpressionUUID->"b11a6b9f-ad6c-4463-b804-8c36ee670c1d", CellTags->"TabNext", CellID->598625853], Cell[18960, 563, 918, 17, 70, "Notes",ExpressionUUID->"a6628ad9-c9dd-4f3b-81ef-3324ec66c31c", CellID->793740038] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19927, 586, 6926, 150, 70, "Section",ExpressionUUID->"d8ef6832-e6c7-4e28-8eb0-42b02c6335c5", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[26878, 740, 98, 3, 70, "Subsection",ExpressionUUID->"3f6a108d-c24f-4617-8f40-cc9608a4ec85", CellID->322807129], Cell[26979, 745, 384, 12, 70, "Text",ExpressionUUID->"c39fb458-6cb2-4c4f-acf3-b64985ccec74", CellID->251195166], Cell[CellGroupData[{ Cell[27388, 761, 426, 13, 70, "Input",ExpressionUUID->"64032cf6-5857-4a83-9e4d-54016aa90020", CellID->740490371], Cell[27817, 776, 712, 22, 70, "Output",ExpressionUUID->"e7c3462c-648b-4d52-89d3-d01d070422e1", CellID->953590678] }, Open ]], Cell[28544, 801, 396, 12, 70, "Text",ExpressionUUID->"18122658-06b5-410a-aa65-35ab73fc8cf4", CellID->333731274], Cell[CellGroupData[{ Cell[28965, 817, 435, 14, 70, "Input",ExpressionUUID->"5976bdf2-a480-45e7-8512-74176406055f", CellID->958109131], Cell[29403, 833, 635, 20, 70, "Output",ExpressionUUID->"cecc6ffd-c73b-4e18-b2cc-c774d4b361ac", CellID->670786138] }, Open ]], Cell[CellGroupData[{ Cell[30075, 858, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"f76eb36d-c8fd-4f4d-bf7a-c01aa71e25b8", CellID->14107562], Cell[30221, 864, 386, 12, 70, "Text",ExpressionUUID->"923f911c-f1f3-44eb-85f9-fe5357cdba66", CellID->251195167], Cell[CellGroupData[{ Cell[30632, 880, 452, 13, 70, "Input",ExpressionUUID->"380da57c-d696-4e4b-bb66-8690aac58193", CellID->310947793], Cell[31087, 895, 703, 21, 70, "Output",ExpressionUUID->"e48cc6c6-be61-4a79-b4a5-0bb15322ffd9", CellID->530700683] }, Open ]], Cell[31805, 919, 394, 14, 70, "Text",ExpressionUUID->"7d0c36ff-fcab-429d-be17-291a8ca5017e", CellID->451633880], Cell[CellGroupData[{ Cell[32224, 937, 654, 22, 70, "Input",ExpressionUUID->"c76c9d8f-01e3-4a6f-8db5-d2d2bfa31079", CellID->55040384], Cell[32881, 961, 1445, 44, 70, "Output",ExpressionUUID->"07bcd916-1c93-41b9-90db-b06168c240b3", CellID->603905054] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34375, 1011, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"8a1f6f3a-f2fa-4f7b-a1e1-478856282565", CellID->14107563], Cell[34521, 1017, 197, 5, 70, "Text",ExpressionUUID->"3b801034-88c6-4a69-a7a5-10facad9f3b5", CellID->443378736], Cell[CellGroupData[{ Cell[34743, 1026, 757, 23, 70, "Input",ExpressionUUID->"a0f2d901-1942-4585-9eb3-c80dec91686b", CellID->526925809], Cell[35503, 1051, 1233, 36, 70, "Output",ExpressionUUID->"bdcc0943-85b4-4499-bfcb-d1b82bfccd0c", CellID->869367762] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36797, 1094, 99, 3, 70, "Subsection",ExpressionUUID->"7a6027fc-a6f5-4537-aead-8860a401f061", CellID->184161625], Cell[36899, 1099, 806, 23, 70, "Text",ExpressionUUID->"98e9ff5a-589f-4300-bfda-6510001bf86f", CellID->430255470], Cell[CellGroupData[{ Cell[37730, 1126, 2430, 64, 70, "Input",ExpressionUUID->"3adc7708-f812-4aae-a9a5-52317ea618e9", CellID->208255172], Cell[40163, 1192, 20516, 349, 70, "Output",ExpressionUUID->"6f59c5bd-3185-45b5-bacd-60fffa752bee", CellID->726442733] }, Open ]], Cell[60694, 1544, 350, 8, 70, "Text",ExpressionUUID->"f02fc250-8fcf-469e-9489-4da7a184b6b6", CellID->303322536], Cell[CellGroupData[{ Cell[61069, 1556, 2437, 68, 70, "Input",ExpressionUUID->"b753737f-2b0d-484b-8b91-c7fd3f303b86", CellID->898506954], Cell[63509, 1626, 133440, 2405, 70, "Output",ExpressionUUID->"2bc96ee7-a42d-4696-bc0b-4e7a465a8386", CellID->133512904] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[197010, 4038, 174, 4, 70, "Section",ExpressionUUID->"29bdd8fd-c619-4423-b247-ad8ff2129528", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[197209, 4046, 918, 24, 70, "Subsection",ExpressionUUID->"d29b1e6b-aa88-4863-a2ce-796f9e7c5c23", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[198130, 4072, 66, 1, 70, "Text",ExpressionUUID->"2c6a1bad-be39-4429-89a7-96c43759fc55", CellID->467763297] }, Open ]], Cell[CellGroupData[{ Cell[198233, 4078, 893, 24, 70, "Subsection",ExpressionUUID->"343108d0-2750-4013-841b-08ddebaf6c2e", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[199129, 4104, 49, 1, 70, "Item",ExpressionUUID->"bd68d5dc-c989-48f0-88d1-f5fc6ea7cb5f", CellID->350970808], Cell[199181, 4107, 43, 1, 70, "Item",ExpressionUUID->"0aa7f3e1-ccb5-4d98-bb0d-51f1379d54ae", CellID->522560643] }, Open ]], Cell[CellGroupData[{ Cell[199261, 4113, 167, 5, 70, "Subsection",ExpressionUUID->"034a3e28-d2fe-4b77-94e5-14e25f5c29c2", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[199431, 4120, 53, 1, 70, "Item",ExpressionUUID->"fab2e0dc-1600-4a75-b800-fb2917027498", CellID->197113425], Cell[199487, 4123, 56, 1, 70, "Item",ExpressionUUID->"b1bd0d85-d669-4e90-b38c-340bd9ca8822", CellID->254453] }, Open ]], Cell[CellGroupData[{ Cell[199580, 4129, 870, 24, 70, "Subsection",ExpressionUUID->"d3056c6c-6aae-4c81-8b67-b601ee675a75", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[200453, 4155, 502, 8, 70, "Item",ExpressionUUID->"f18f1508-c8a3-4517-976d-508c77f8c46c", CellTags->"TabNext", CellID->332817449] }, Open ]], Cell[CellGroupData[{ Cell[200992, 4168, 919, 24, 70, "Subsection",ExpressionUUID->"6d27bcae-3706-44e1-965d-0d70d466d60b", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[201914, 4194, 52, 1, 70, "Item",ExpressionUUID->"00252192-3e01-46e7-8cfc-a0f922f97db7", CellID->663878805], Cell[201969, 4197, 61, 1, 70, "Item",ExpressionUUID->"7d2675c6-80cd-4d25-b79e-a096de1392c0", CellID->651804890], Cell[202033, 4200, 56, 1, 70, "Item",ExpressionUUID->"221e1749-f00a-4229-bbfa-11da072356c0", CellID->148183842] }, Open ]], Cell[CellGroupData[{ Cell[202126, 4206, 971, 25, 70, "Subsection",ExpressionUUID->"ea40d584-7bde-44f3-9be5-953536c60248", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[203100, 4233, 495, 8, 70, "Text",ExpressionUUID->"366987b9-7e2e-449f-9863-bf65bfe8540d", CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[203632, 4246, 823, 24, 70, "Subsection",ExpressionUUID->"e93090ea-52c3-4cf3-9c7b-f592c3e8631c", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[204458, 4272, 485, 8, 70, "Item",ExpressionUUID->"7e9cd3b5-f927-469e-8fb7-baf8c4273a7d", CellTags->"TabNext", CellID->515049506] }, Open ]], Cell[CellGroupData[{ Cell[204980, 4285, 1762, 43, 70, "Subsection",ExpressionUUID->"24d0ceea-5d76-4d2d-ae7b-42d1d313ff1a", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[206767, 4332, 129, 4, 70, "Input",ExpressionUUID->"46af548b-7490-48b1-938e-03198ca974e6", CellID->667877521], Cell[206899, 4338, 93, 3, 70, "Output",ExpressionUUID->"15c617cd-9de2-4f08-8b80-c1bfe89ddd55", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[207053, 4348, 1048, 26, 70, "Section",ExpressionUUID->"e530b75c-e18b-4cae-ada6-3727f3dbe253", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[208104, 4376, 679, 14, 70, "Text",ExpressionUUID->"c6058d50-5981-4018-a499-eee23018daef", CellTags->"TabNext", CellID->971424399] }, Open ]], Cell[CellGroupData[{ Cell[208820, 4395, 929, 25, 70, "Section",ExpressionUUID->"0eeebe81-ad7a-42cb-9930-c376079108aa", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[209752, 4422, 495, 8, 70, "Text",ExpressionUUID->"b162b58b-a706-430a-9743-a387767ae805", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)