(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 428236, 9229] NotebookOptionsPosition[ 265903, 6138] NotebookOutlinePosition[ 410612, 8854] CellTagsIndexPosition[ 408803, 8804] WindowTitle->WolframPhysicsProjectStyleData | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["WolframPhysicsProjectStyleData", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->68156623], Cell["Look up styles used in the Wolfram Physics Project", "Text", CellTags->{"Description", "TemplateCell"}, CellID->525429180], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"$WolframPhysicsProjectStyleData", "=", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0.89, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.89, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.89, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "None"}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[1]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> RGBColor[{0.259, 0.576, 1}]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> RGBColor[{0.259, 0.576, 1}]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0.07, 0.78, 1]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0.75, 0, 0.24]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{"\"\\"", "\[Rule]", GraphicsBox[ GraphicsComplexBox[{{ 0.1, -3.31951456589972}, {-0.14816751450286603`, \ -2.625037331552915}, {0.6310524421714278, -1.3}, { 0.9405108616213151, -2.8841601437046225`}, { 0.4967448863824806, -2.092358403567382}, {-0.846735323402297, \ -1.466588600696043}, {0.8846460183439665, -0.5107506168284197}, { 1.8939086566530445`, -2.50980168725566}, { 1.756629266633539, -3.4622764737192444`}, { 2.119361963550152, -2.99}, {-0.5709741939515942, \ -4.632295267644082}, { 0.20977925607671288`, -4.647162049737781}, {-1.0861820131541373`, \ -4.047493574735101}, {-1.2223073729506904`, -2.2040562174063485`}}, {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.], ArrowBox[{{1, 2}, {1, 4}, {1, 11}, {1, 12}, {1, 13}, {2, 3}, {2, 4}, {2, 5}, {2, 6}, {2, 14}, {3, 4}, {3, 7}, {4, 5}, {4, 8}, {4, 9}, {8, 10}, {9, 10}}, 0.0378698213750627], {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05], DiskBox[2, 0.05], DiskBox[3, 0.05], DiskBox[4, 0.05], DiskBox[5, 0.05], DiskBox[6, 0.05], DiskBox[7, 0.05], DiskBox[8, 0.05], DiskBox[9, 0.05], DiskBox[10, 0.05], DiskBox[11, 0.05], DiskBox[12, 0.05], DiskBox[13, 0.05], DiskBox[14, 0.05]}}], AspectRatio->1, Background->GrayLevel[0.93], Frame->True, FrameStyle->Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks->None, ImagePadding->0, ImageSize-> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRange->{{-1.1, 2.4}, {-4.4, -0.7}}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "None"}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.66, 0.81]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.1`", "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.5]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[1]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> RGBColor[{0.259, 0.576, 1}]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> RGBColor[{0.259, 0.576, 1}]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.62, 0.3, 0.45]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5`", "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"EdgeStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.62, 0.3, 0.45]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5`", "]"}]}], "]"}]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"EdgeStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.62, 0.3, 0.45]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.5`", "]"}]}], "]"}]}], "}"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.985, 0.845, 0.638]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.05, 0.949, 0.955]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.089, 0.75, 0.873]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.06, 1., 0.8]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.12, 1., 0.9]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.08, 1., 1.]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.987, 0.673, 0.733]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.04, 0.68, 0.94]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.995, 0.989, 0.824]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.991, 0.4, 0.9]|>, "HueColorSwatchTemplate"]}], "}"}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.985, 0.845, 0.638]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.05, 0.949, 0.955]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.089, 0.75, 0.873]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.06, 1., 0.8]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.12, 1., 0.9]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.08, 1., 1.]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.987, 0.673, 0.733]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.04, 0.68, 0.94]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.995, 0.989, 0.824]|>, "HueColorSwatchTemplate"], ",", TemplateBox[<|"color" -> Hue[0.991, 0.4, 0.9]|>, "HueColorSwatchTemplate"]}], "}"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.87, 0.94, 1]|>, "RGBColorSwatchTemplate"]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "0.3`"}], ",", RowBox[{"\"\\"", "\[Rule]", "0.15`"}], ",", RowBox[{"\"\\"", "\[Rule]", "0.4`"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"FilledCurve", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "0.1848`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2991`", ",", "0.1848`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1531`"}], ",", "0.6363`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.109`", ",", "0.8982`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.0034`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.109`", ",", RowBox[{"-", "0.8982`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1531`"}], ",", RowBox[{"-", "0.6363`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.2991`", ",", RowBox[{"-", "0.1848`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", RowBox[{"-", "0.1848`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "0.1848`"}], "}"}]}], "}"}], "}"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> GrayLevel[0.65]|>, "GrayLevelColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", "None"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Scaled", "[", "0.1`", "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> GrayLevel[0.85]|>, "GrayLevelColorSwatchTemplate"]}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "128"}], ",", RowBox[{"\"\\"", "\[Rule]", "Automatic"}], ",", RowBox[{"\"\\"", "\[Rule]", "5.`"}], ",", RowBox[{"\"\\"", "\[Rule]", "0.2`"}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> GrayLevel[0.7]|>, "GrayLevelColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.5, 0.5, 0.95]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", "0.13`"}], ",", RowBox[{"\"\\"", "\[Rule]", "0.1`"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0.29, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.54, 0.41, 0.89]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.33]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.95`", "]"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.29, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.54, 0.41, 0.89]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.33]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.95`", "]"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.29, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.4`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.54, 0.41, 0.89]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0.62, 1, 0.48]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.52, 0.82]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.54, 0.41, 0.89]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.33]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.95`", "]"}]}], "]"}], "]"}]}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"FrameBox", "[", RowBox[{ RowBox[{"PanelBox", "[", RowBox[{ RowBox[{"GridBox", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"StyleBox", "[", RowBox[{"#1", ",", RowBox[{"FontSize", "\[Rule]", "13"}], ",", RowBox[{"FontColor", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.034, 0.3, 0.42]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"FontWeight", "\[Rule]", "\"\\""}]}], "]"}], "}"}], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.9517, 0.965, 0.971]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Baseline"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "1.5`"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", RowBox[{"FrameStyle", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.65, 0.65, 0.65]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Baseline"}], ",", RowBox[{"RoundingRadius", "\[Rule]", "4"}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"FrameBox", "[", RowBox[{ RowBox[{"PanelBox", "[", RowBox[{ RowBox[{"GridBox", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"StyleBox", "[", RowBox[{"#1", ",", RowBox[{"FontSize", "\[Rule]", "13"}], ",", RowBox[{"FontColor", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.034, 0.3, 0.42]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"FontWeight", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"StyleBox", "[", RowBox[{"#2", ",", RowBox[{"FontColor", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.517, 0.65, 0.71]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"FontSize", "\[Rule]", "13"}], ",", RowBox[{"FontWeight", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], "}"}], ",", RowBox[{"GridBoxSpacings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"{", "0.3`", "}"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}]}]}], "}"}]}], ",", RowBox[{"BaselinePosition", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"Background", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.9517, 0.965, 0.971]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Baseline"}], ",", RowBox[{"FrameMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "1.5`"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"FrameMargins", "\[Rule]", "None"}], ",", RowBox[{"FrameStyle", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.65, 0.65, 0.65]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Baseline"}], ",", RowBox[{"RoundingRadius", "\[Rule]", "4"}]}], "]"}], "&"}], ")"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Max", "[", RowBox[{"0.1`", ",", RowBox[{"Min", "[", RowBox[{"0.185`", ",", RowBox[{"0.066`", "\[VeryThinSpace]", "+", RowBox[{"0.017`", " ", "#PlotRange"}]}]}], "]"}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "None"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.02, 0.94, 0.83]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "360", "}"}], ",", RowBox[{"{", "420", "}"}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.02, 0.94, 0.83]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.08, 0, 0.42]|>, "HueColorSwatchTemplate"], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", InterpretationBox[ RowBox[{ TagBox["Polygon", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready", Typeset`spolygon$$ = Polygon[{{-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}}]}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SummaryBoxOpener"], ImageSizeCache -> {11., {0., 11.}}], Appearance -> None, BaseStyle -> {}, ButtonFunction :> (Typeset`open$$ = True), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Hue[0.6, 0.3, 0.85], EdgeForm[ Hue[0.6, 0.3, 0.85]], 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}}]}, ImageSize -> Dynamic[{5.25, 3.5} (CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification])]], GridBox[{{ RowBox[{ TagBox["\"Number of points: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["15", "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Embedding dimension: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SummaryBoxCloser"], ImageSizeCache -> {11., {0., 11.}}], Appearance -> None, BaseStyle -> {}, ButtonFunction :> (Typeset`open$$ = False), Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ Hue[0.6, 0.3, 0.85], EdgeForm[ Hue[0.6, 0.3, 0.85]], 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}}]}, ImageSize -> Dynamic[{5.25, 3.5} (CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification])]], GridBox[{{ RowBox[{ TagBox["\"Number of points: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["15", "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Embedding dimension: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["2", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Quiet[ Apply[Region`PolygonDump`polygonType, Region`PolygonDump`computeType[Typeset`spolygon$$]]], StandardForm], ImageSizeCache -> {76., {2., 8.}}, SynchronousUpdating -> False, TrackedSymbols :> {}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Bounds: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Region`PolygonDump`iRegionBounds[Typeset`spolygon$$], StandardForm], ImageSizeCache -> {122., {2., 8.173828125}}, SynchronousUpdating -> False, TrackedSymbols :> {}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Area: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[ Region`PolygonDump`iArea[Typeset`spolygon$$], StandardForm], ImageSizeCache -> {23., {1., 8.}}, SynchronousUpdating -> False, TrackedSymbols :> {}], "SummaryItem"]}]}}, AutoDelete -> False, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> False, BaselinePosition -> {1, 1}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], Polygon[{{-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}}], Editable->False, SelectWithContents->True, Selectable->False]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.5]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Opacity", "[", "0.7`", "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.66, 0.81]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.1`", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "]"}]}], ",", RowBox[{ "\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.1`", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.26, 0.89]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.33]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.95`", "]"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.5]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}]}], "]"}]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Opacity", "[", "1", "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Opacity", "[", "0.3`", "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[0]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}]}], "]"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> RGBColor[1, 0, 0]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.26, 0.89]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.33]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.95`", "]"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.5]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.5]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "0.06`"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.26, 0.89]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.33]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.95`", "]"}]}], "]"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[0]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.95`", "]"}]}], "]"}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0.61, 0.3, 0.85]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph3D", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.65, 0.64, 0.68]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Specularity", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.71, 0.6, 0.64]|>, "HueColorSwatchTemplate"], ",", "10"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.61, 0.3, 0.85]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.65, 0.64, 0.68]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Specularity", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.71, 0.6, 0.64]|>, "HueColorSwatchTemplate"], ",", "10"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.61, 0.3, 0.85]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.65, 0.64, 0.68]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Specularity", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.71, 0.6, 0.64]|>, "HueColorSwatchTemplate"], ",", "10"}], "]"}]}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> Hue[0.75, 0, 0.35]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.75, 0, 0.35]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.75, 0, 0.35]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "->", RowBox[{"(", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Framed", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"#2", ",", TemplateBox[<|"color" -> Hue[0.62, 1, 0.48]|>, "HueColorSwatchTemplate"]}], "]"}], ",", RowBox[{"Background", "->", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"FrameMargins", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameStyle", "->", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.62", ",", "0.52", ",", "0.82"}], "]"}]}], "]"}]}], ",", RowBox[{"RoundingRadius", "->", "0"}]}], "]"}], ",", "#1", ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "&"}], ")"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.62, 0.05, 0.55]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.6`", "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.62, 0.05, 0.55]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.6`", "]"}]}], "]"}]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.62, 0.05, 0.55]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.6`", "]"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "None"}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> GrayLevel[0.125]|>, "GrayLevelColorSwatchTemplate"]}], ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{ "\"\\"", "\[Rule]", "Small"}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> GrayLevel[0]|>, "GrayLevelColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", "Medium"}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.77, 0.83, 0.82]|>, "RGBColorSwatchTemplate"]}], ",", RowBox[{"\"\\"", "\[Rule]", "Medium"}], ",", RowBox[{"\"\\"", "\[Rule]", TemplateBox[<|"color" -> RGBColor[0.034, 0.3, 0.42]|>, "RGBColorSwatchTemplate"]}]}], "\[RightAssociation]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "->", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "->", RowBox[{"Function", "[", RowBox[{"Framed", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"#2", ",", RowBox[{"FontOpacity", "\[Rule]", "1"}], ",", RowBox[{"FontColor", "\[Rule]", TemplateBox[<|"color" -> Hue[0.62, 1, 0.48]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"FormatType", "->", "TraditionalForm"}]}], "]"}], ",", RowBox[{"Background", "->", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"FrameStyle", "->", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.62", ",", "0.52", ",", "0.82"}], "]"}]}], "]"}]}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "->", RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {Hue[0.12, 0.89, 0.97], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->Hue[ 0.11999999999999998`, 0.8900000000000001, 0.6466666666666667], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"Hue", "[", RowBox[{"0.12`", ",", "0.89`", ",", "0.97`"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = Hue[0.12, 0.89, 0.97]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["HueColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], Hue[0.12, 0.89, 0.97], Editable->False, Selectable->False], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {Hue[0.11, 1, 0.8200000000000001], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->Hue[ 0.10999999999999999`, 1., 0.5466666666666667], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"Hue", "[", RowBox[{"0.11`", ",", "1", ",", "0.8200000000000001`"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = Hue[0.11, 1, 0.8200000000000001]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["HueColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], Hue[0.11, 1, 0.8200000000000001], Editable->False, Selectable->False], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}]}], "|>"}]}]}], "\[RightAssociation]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "//", "ClearAll"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", "\"\\"", "]"}], ":=", "$WolframPhysicsProjectStyleData"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", "]"}], ":=", RowBox[{"WolframPhysicsProjectStyleData", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", "\"\\"", "]"}], "[", "t", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", RowBox[{"t_", ",", "e_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", "\"\\"", "]"}], "[", "t", "]"}], "[", "e", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", RowBox[{"theme_", ",", "t_", ",", "e_"}], "]"}], ":=", RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", "theme", "]"}], "[", RowBox[{"t", ",", "e"}], "]"}]}]}], "Input", TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8480163816745377`*^9, 3.8480163831007633`*^9}, { 3.848016450975896*^9, 3.8480165463345757`*^9}, {3.848017101721239*^9, 3.848017115136767*^9}, {3.848017158755968*^9, 3.848017172779611*^9}, { 3.848017206589978*^9, 3.8480172448950233`*^9}, {3.848017358223235*^9, 3.848017382449494*^9}, {3.848018965145081*^9, 3.848018980027216*^9}, { 3.875896771799707*^9, 3.87589687162993*^9}, 3.875896989925734*^9, { 3.875897048547124*^9, 3.875897049116354*^9}, {3.8758973408653708`*^9, 3.8758973842183228`*^9}}, CellLabel->"In[285]:=", CellID->220144497] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->204205998], Cell["\<\ yields an association describing default styles used in the Wolfram Physics \ Project.\ \>", "UsageDescription", CellID->775220291] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", StyleBox["theme", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->804650075], Cell[TextData[{ "gives styles for a particular ", Cell[BoxData[ StyleBox["theme", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->975655824] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", StyleBox["t", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->936802696], Cell[TextData[{ "gives styles for a particular plot type ", Cell[BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->290155294] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", RowBox[{ StyleBox["t", "TI"], ",", StyleBox["e", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->817872922], Cell[TextData[{ "gives a value for a particular style element ", Cell[BoxData[ StyleBox["e", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of plot type ", Cell[BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->802318240] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", RowBox[{ StyleBox["theme", "TI"], ",", StyleBox["t", "TI"], ",", StyleBox["e", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->520736873], Cell[TextData[{ "gives a value for an element ", Cell[BoxData[ StyleBox["e", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " of plot type ", Cell[BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " for ", Cell[BoxData[ StyleBox["theme", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->501331741] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ "In ", Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", StyleBox["theme", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the only ", Cell[BoxData[ StyleBox["theme", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " supported right now is \"Light\"." }], "Notes", TaggingRules->{}, CellID->619965868], Cell[TextData[{ "In ", Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", StyleBox["t", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", possible values for ", Cell[BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", TaggingRules->{}, CellTags->"TabNext", CellID->196919493], Cell[BoxData[GridBox[{ {Cell["\"BranchialGraph\"", "TableText"], Cell[TextData[{ "styles of branchial graph properties in ", ButtonBox["MultiwaySystem", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"] }], "TableText"]}, {Cell["\"CausalGraph\"", "TableText"], Cell[TextData[{ "styles of causal graph properties in ", ButtonBox["WolframModel", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel"], " and ", ButtonBox["MultiwaySystem", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"] }], "TableText"]}, {Cell["\"EvolutionCausalGraph\"", "TableText"], Cell[TextData[{ "styles of evolution causal graph properties in ", ButtonBox["MultiwaySystem", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"] }], "TableText"]}, {Cell["\"EvolutionObject\"", "TableText"], Cell[TextData[{ "icon of ", ButtonBox["WolframModelEvolutionObject", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelEvolutionObject"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelEvolutionObject"] }], "TableText"]}, {Cell["\"ExpressionsEventsGraph\"", "TableText"], Cell[TextData[{ "styles of the expressions-events graph property in ", ButtonBox["WolframModel", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel"] }], "TableText"]}, {Cell["\"GenericGraph\"", "TableText"], Cell[ "styles for binary graphs in network substitution systems", "TableText"]}, {Cell["\"GenericLinePlot\"", "TableText"], Cell[ "styles for line plots in the Wolfram Physics Project", "TableText"]}, {Cell["\"Rule\"", "TableText"], Cell[TextData[{ "styles used in ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["RulePlot", "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/RulePlot", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " of ", ButtonBox["WolframModel", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel"] }], "TableText"]}, {Cell["\"RulialGraph\"", "TableText"], Cell["\<\ styles for branchial graphs of the rule-space multiway system\ \>", "TableText"]}, {Cell["\"SpatialGraph\"", "TableText"], Cell[TextData[{ "styles used in ", ButtonBox["WolframModelPlot", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelPlot"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelPlot"] }], "TableText"]}, {Cell["\"SpatialGraph3D\"", "TableText"], Cell[ "styles for 3D plots of spatial hypergraphs", "TableText"]}, {Cell["\"StatesGraph\"", "TableText"], Cell[TextData[{ "styles of states graph properties in ", ButtonBox["MultiwaySystem", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"] }], "TableText"]}, {Cell["\"StatesGraph3D\"", "TableText"], Cell[TextData[{ "styles for 3D plots of ", ButtonBox["MultiwaySystem", BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem"], " state graphs" }], "TableText"]} }]], "TableNotes", TaggingRules->{}, CellID->224062068], Cell[TextData[{ "In ", Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", StyleBox[ RowBox[{"t", ",", " ", "e"}], "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", possible values for ", Cell[BoxData[ StyleBox["e", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " correspond to keys in ", Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", StyleBox["t", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". Some common examples include:" }], "Notes", TaggingRules->{}, CellTags->"TabNext", CellID->415296760], Cell[BoxData[GridBox[{ {Cell["\"Options\"", "TableText"], Cell[ "list of options for the relevant plotting function", "TableText"]}, {Cell["\"Function\"", "TableText"], Cell[TextData[{ "function that can be applied to a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graph", "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/Graph", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to convert it to the requested style" }], "TableText"]}, {Cell["\"VertexStyle\"", "TableText"], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["VertexStyle", "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/VertexStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " for a particular ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graph", "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/Graph", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " type" }], "TableText"]}, {Cell["\"EdgeStyle\"", "TableText"], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["EdgeStyle", "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/EdgeStyle", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " for a particular ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graph", "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/Graph", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " type" }], "TableText"]} }]], "TableNotes", TaggingRules->{}, CellID->795617572], Cell[TextData[{ "Install the ", ButtonBox["SetReplace paclet", BaseStyle->"Hyperlink", ButtonData->{ URL["https://github.com/maxitg/SetReplace"], None}, ButtonNote->"https://github.com/maxitg/SetReplace"], " to get syntax autocompletion, better performance and bleeding-edge \ functionality." }], "Notes", TaggingRules->{}, CellID->110775728] }, 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.28627], 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.28627], 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.28627], 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.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Get all causal graph styles:", "Text", TaggingRules->{}, CellChangeTimes->{{3.795693114386972*^9, 3.7956931208521976`*^9}, { 3.807013385425851*^9, 3.807013387587243*^9}}, CellID->884587650], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[243]:=", CellID->392512725], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Background\"\>", "\[Rule]", "None"}], ",", RowBox[{"\<\"EdgeStyle\"\>", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\<\"FinalVertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[1]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\<\"Function\"\>", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\<\"InitialVertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> RGBColor[{0.259, 0.576, 1}]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> RGBColor[{0.259, 0.576, 1}]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\<\"Options\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\<\"VertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.84801721941893*^9, 3.875896949224761*^9}, CellLabel->"Out[243]=", CellID->949478034] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell[TextData[{ "Retrieve a function for restyling a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graph", "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/Graph", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and apply it to a random graph:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.82386403517782*^9, 3.823864065913517*^9}}, CellID->397410935], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "@", RowBox[{"RandomGraph", "[", RowBox[{"{", RowBox[{"30", ",", " ", "40"}], "}"}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[117]:=", CellID->55984249], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}, {Null, SparseArray[ Automatic, {30, 30}, 0, { 1, {{0, 1, 4, 8, 10, 13, 18, 22, 23, 29, 29, 32, 36, 40, 42, 46, 48, 48, 49, 55, 57, 60, 63, 64, 66, 68, 70, 73, 76, 79, 80}, {{12}, { 5}, {9}, {15}, {6}, {9}, {22}, {25}, {15}, {29}, {2}, {13}, {18}, { 3}, {15}, {24}, {26}, {27}, {9}, {21}, {22}, {30}, {12}, {2}, {3}, { 7}, {11}, {14}, {19}, {9}, {21}, {23}, {1}, {8}, {15}, {29}, {5}, { 16}, {22}, {27}, {9}, {20}, {2}, {4}, {6}, {12}, {13}, {26}, {5}, { 9}, {20}, {21}, {25}, {27}, {28}, {14}, {19}, {7}, {11}, {19}, { 3}, {7}, {13}, {11}, {6}, {28}, {3}, {19}, {6}, {16}, {6}, {13}, { 19}, {19}, {24}, {29}, {4}, {12}, {28}, {7}}}, Pattern}]}, { EdgeStyle -> { Directive[ Hue[0.63, 0.7, 0.5], Opacity[0.7]]}, GraphLayout -> {"Dimension" -> 2}, VertexStyle -> { Directive[ Hue[0.63, 0.26, 0.89], EdgeForm[ Directive[ Hue[0.63, 0.7, 0.33], Opacity[0.95]]]]}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAAWClP8xxY4T8fhSwBznIHwGND4HYj rBBA3MFtL+FTBMDCjuTvzHkTQBA+tSuj8QvAhVbgbuFBAEAeKfm+fqUKwLvA sqYE9RBAcHQy/vks97+bKsG9QZMNQLGMK/DqiwvArn6e3uIaGUBMUob056oF wFAu5yti9t4/bI89iVBUDMBvM+XL/koWQKZUVwFPvwrAVy7nK2L23j+caBbk Z/4WwKeqTyuvQRtAkkxm5DYxDMCeOpP3avf2P0rFX1+dlgrANGRaRT5BEkB+ IeZSrC8CwIXClSjOOxhAXvlBAncWEcBCrRsLpRwGQAW/9XK5NQjAShVxtN8E D0Cp8EM0rckGwD9zbLNbfxJAnGgW5Gf+FsC4bRQ635oQQFAu5yti9t6/ebmI aqAbFEBRRgNyPRAQwOGiudjIwxZA0oKZnpsfE8Dbgkul9ZMYQCQMuzufZQzA 1NaWvSSUFUDARGV8wugEwM+Nnf6EMB9ADiEpxYArDcAb6C/JPA0JQPFKYLE5 CRHAE/prywPJE0CASQecGc8RwGoWOH1nYA1AFLQHezeBDcAKXPVnw+YRQHAq 0mMhognAyOklvYWMDEDAAJMrASURwKdDGTyRMAJAqNOCVlV1D8BdDorFaEkc QMONqScMswDAHZ/WMQ== "], { {Hue[0.63, 0.7, 0.5], Opacity[0.7], Arrowheads[0.], ArrowBox[{{1, 12}, {2, 5}, {2, 9}, {2, 15}, {3, 6}, {3, 9}, {3, 22}, {3, 25}, {4, 15}, {4, 29}, {5, 13}, {5, 18}, {6, 15}, {6, 24}, {6, 26}, {6, 27}, {7, 9}, {7, 21}, {7, 22}, {7, 30}, {8, 12}, { 9, 11}, {9, 14}, {9, 19}, {11, 21}, {11, 23}, {12, 15}, {12, 29}, { 13, 16}, {13, 22}, {13, 27}, {14, 20}, {16, 26}, {19, 20}, {19, 21}, {19, 25}, {19, 27}, {19, 28}, {24, 28}, {28, 29}}, 0.05482351693986516]}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[ 0.95]}], DiskBox[1, 0.05482351693986516], DiskBox[2, 0.05482351693986516], DiskBox[3, 0.05482351693986516], DiskBox[4, 0.05482351693986516], DiskBox[5, 0.05482351693986516], DiskBox[6, 0.05482351693986516], DiskBox[7, 0.05482351693986516], DiskBox[8, 0.05482351693986516], DiskBox[9, 0.05482351693986516], DiskBox[10, 0.05482351693986516], DiskBox[11, 0.05482351693986516], DiskBox[12, 0.05482351693986516], DiskBox[13, 0.05482351693986516], DiskBox[14, 0.05482351693986516], DiskBox[15, 0.05482351693986516], DiskBox[16, 0.05482351693986516], DiskBox[17, 0.05482351693986516], DiskBox[18, 0.05482351693986516], DiskBox[19, 0.05482351693986516], DiskBox[20, 0.05482351693986516], DiskBox[21, 0.05482351693986516], DiskBox[22, 0.05482351693986516], DiskBox[23, 0.05482351693986516], DiskBox[24, 0.05482351693986516], DiskBox[25, 0.05482351693986516], DiskBox[26, 0.05482351693986516], DiskBox[27, 0.05482351693986516], DiskBox[28, 0.05482351693986516], DiskBox[29, 0.05482351693986516], DiskBox[30, 0.05482351693986516]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{{3.848017223117587*^9, 3.848017224771618*^9}}, CellLabel->"Out[117]=", CellID->828541060] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Get all the types used in the Wolfram Physics Project:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7917500318210278`*^9, 3.791750040589492*^9}, { 3.8070127643173933`*^9, 3.8070127646734753`*^9}, {3.848018479423229*^9, 3.848018483053513*^9}}, CellID->512452930], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"WolframPhysicsProjectStyleData", "[", "]"}], "//", "Keys"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.848017844200354*^9, 3.848017845496941*^9}}, CellLabel->"In[171]:=", CellID->317616914], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"BranchialGraph\"\>", ",", "\<\"CausalGraph\"\>", ",", "\<\"EvolutionCausalGraph\"\>", ",", "\<\"EvolutionObject\"\>", ",", "\<\"ExpressionsEventsGraph\"\>", ",", "\<\"GenericGraph\"\>", ",", "\<\"GenericLinePlot\"\>", ",", "\<\"HypergraphStructurePreservingGraph\"\>", ",", "\<\"Rule\"\>", ",", "\<\"RulialGraph\"\>", ",", "\<\"SetReplaceType\"\>", ",", "\<\"SpatialGraph\"\>", ",", "\<\"SpatialGraph3D\"\>", ",", "\<\"StatesGraph\"\>", ",", "\<\"StatesGraph3D\"\>", ",", "\<\"TypeGraph\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8480175006042967`*^9, 3.8480178459313707`*^9}, CellLabel->"Out[171]=", CellID->661149346] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell[TextData[{ "Get a style used for polygons in ", ButtonBox["WolframModelPlot", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelPlot/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelPlot/"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.795693067994411*^9, 3.795693089629306*^9}, { 3.866723906194298*^9, 3.866723906195794*^9}}, CellID->499812100], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.795693071524588*^9, 3.795693078635255*^9}}, CellLabel->"In[127]:=", CellID->226146703], Cell[BoxData[ RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.66, 0.81]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.1`", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.848017252824667*^9}, CellLabel->"Out[127]=", CellID->978020844] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["\<\ Specify a theme explicitly (only \"Light\" is currently supported):\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7958740592015123`*^9, 3.795874063681164*^9}, { 3.795874110687804*^9, 3.795874117791244*^9}}, CellID->334313439], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.795874075674251*^9, 3.795874095061326*^9}}, CellLabel->"In[128]:=", CellID->506906515], Cell[BoxData[ RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.65, 0.64, 0.68]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Specularity", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.71, 0.6, 0.64]|>, "HueColorSwatchTemplate"], ",", "10"}], "]"}]}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8480172540174093`*^9}, CellLabel->"Out[128]=", CellID->738031715] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "Spatial graph styles are used in the resource function ", ButtonBox["WolframModelPlot", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelPlot/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModelPlot/"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.795693163817482*^9, 3.795693201707567*^9}, { 3.7956932700974483`*^9, 3.795693277623044*^9}, 3.79569464153668*^9, { 3.807012783194796*^9, 3.807012784232666*^9}, {3.86672392599226*^9, 3.866723925993823*^9}, {3.866724041875746*^9, 3.866724045163031*^9}}, CellID->392702896], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ "WolframPhysicsProjectStyleData", "[", "\"\\"", "]"}], "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.795693290887732*^9, 3.7956933227358093`*^9}}, CellLabel->"In[129]:=", CellID->262745714], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.26, 0.89]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.33]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.95`", "]"}]}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.7, 0.5]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.7`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.63, 0.66, 0.81]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "0.1`", "]"}], ",", RowBox[{"EdgeForm", "[", "None", "]"}]}], "]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.848017258487686*^9}, CellLabel->"Out[129]=", CellID->901439446] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[130]:=", CellID->291298072], Cell[BoxData[ GraphicsBox[{{ {Hue[0.63, 0.66, 0.81], Opacity[0.1], EdgeForm[None], PolygonBox[{{2.13762358532993, 0.00046839710452586486`}, { 2.137383301311716, 0.8499170380148454}, {1.0681060914766782`, 0.4250488807609589}}], PolygonBox[{{0., 0.}, {1.0681060914766782`, 0.4250488807609589}, { 0.00023778533913992102`, 0.8503846220224689}}]}, {Hue[0.63, 0.7, 0.5], Opacity[ 0.7], {{LineBox[{{2.1376066130966227`, 0.060468394704053276`}, { 2.1374292224047546`, 0.6875774435590992}}], PolygonBox[{{2.1670856862571632`, 0.6771512863694396}, { 2.163740454846981, 0.6787990311392106}, {2.155652037626012, 0.6824400331036518}, {2.150759156486441, 0.6843360253291265}, { 2.145866444370703, 0.6860324553725755}, {2.141273312902824, 0.6871794064794803}, {2.1374292224047546`, 0.6875774435590992}, { 2.133934786027297, 0.6871773306262262}, {2.1294421978523217`, 0.6860278094366595}, {2.1243506281968876`, 0.6843285551337706}, { 2.1191591701414407`, 0.6824297103455554}, {2.110324199928281, 0.6787839212529249}, {2.1065804698038297`, 0.6771341712245891}, { 2.137400273545023, 0.789917040415318}, {2.1670856862571632`, 0.6771512863694396}}]}, { LineBox[{{2.081623729331399, 0.8277614488199747}, {1.218972535884368, 0.4849943725729744}}], PolygonBox[{{1.2177197815743295`, 0.5164052179708842}, { 1.2174226972467606`, 0.5126880447281783}, {1.217023239642666, 0.5038269036014348}, {1.2170665045224751`, 0.49857969477052233`}, { 1.2172951862346246`, 0.493406280867273}, {1.217924026154632, 0.4887140624284258}, {1.218972535884368, 0.48499437257297434`}, { 1.2206338493755413`, 0.4818941768631527}, {1.2233600007888743`, 0.4781427976572105}, {1.226818113313024, 0.4740375565543836}, { 1.230498589857303, 0.4699131243900476}, {1.2371471747076819`, 0.46304691755783856`}, {1.2400619277996376`, 0.4601761328543729}, { 1.123865663456995, 0.44720446995582963`}, {1.2177197815743295`, 0.5164052179708842}}]}}, {{ LineBox[{{1.0123580985082326`, 0.40286417251428286`}, { 0.15083511553824683`, 0.060024278066184614`}}], PolygonBox[{{0.1495659561628422, 0.091434464892317}, { 0.1492708132786537, 0.08771713699557591}, {0.14887598372015545`, 0.07885578844892287}, {0.14892198910293294`, 0.07360860293001983}, { 0.14915337275119475`, 0.06843530916809967}, {0.14978466323427847`, 0.06374341979932499}, {0.1508351155382468, 0.060024278066184614`}, { 0.15249804797106786`, 0.05692495044893872}, {0.15522615828051708`, 0.05317499556725419}, {0.15868641441571746`, 0.04907156112512778}, { 0.1623690445638147, 0.044949051760247744`}, {0.169021214585516, 0.03808631828314562}, {0.17193746663153206`, 0.03521705628659916}, { 0.05574799296844562, 0.022184708246676083`}, {0.1495659561628422, 0.091434464892317}}]}, { LineBox[{{0.000016777255163323598`, 0.05999999765436419}, { 0.00019239179066891278`, 0.6880450274183532}}], PolygonBox[{{0.029842986327175493`, 0.6776021903706728}, { 0.02649868228855195, 0.6792518165438475}, {0.01841231437963958, 0.6828973675978373}, {0.013520500493534628`, 0.6847961117271872}, { 0.00862874337921437, 0.6864952936110073}, {0.004036257788154633, 0.6876448281336561}, {0.00019239179066891278`, 0.6880450274183532}, {-0.0033022690940793763`, 0.6876468801393701}, {-0.007795503154178283, 0.6864998861741027}, {-0.012888027820154881`, 0.6848034961044427}, {-0.018080553138284553`, 0.6829075717674027}, {-0.02691757267896786, 0.6792667528467558}, {-0.030662230181456664`, 0.6776191088956022}, { 0.00022100808397659743`, 0.7903846243681047}, {0.029842986327175493`, 0.6776021903706728}}]}}}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[0.95]}], DiskBox[{2.13762358532993, 0.00046839710452586486}, 0.06], DiskBox[{2.137383301311716, 0.8499170380148454}, 0.06], DiskBox[{1.0681060914766782, 0.4250488807609589}, 0.06], DiskBox[{0., 0.}, 0.06], DiskBox[{0.00023778533913992102, 0.8503846220224689}, 0.06]}}, {}}, Background->None, ImageSizeRaw->{{360}, {285.29307887460584`}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.84801726588834*^9}, CellLabel->"Out[130]=", CellID->776441543] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell[TextData[{ "Rule styles are used in ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["RulePlot", "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/RulePlot", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " for the resource function ", ButtonBox["WolframModel", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel/"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.795693396783658*^9, 3.795693401660713*^9}, 3.795694650105454*^9, {3.80701280123954*^9, 3.8070128018079767`*^9}, { 3.86672394910422*^9, 3.866723949106752*^9}, {3.8667240363246183`*^9, 3.866724038371069*^9}}, CellID->315018802], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79569340569633*^9, 3.795693416546234*^9}, { 3.795693524641424*^9, 3.795693524801744*^9}}, CellLabel->"In[131]:=", CellID->237803280], Cell[BoxData[ TemplateBox[<|"color" -> RGBColor[0.5, 0.5, 0.95]|>, "RGBColorSwatchTemplate"]], "Output", TaggingRules->{}, CellChangeTimes->{3.848017268438957*^9}, CellLabel->"Out[131]=", CellID->600891064] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RulePlot", "[", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}]}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.795693420544936*^9, 3.795693429797338*^9}}, CellLabel->"In[132]:=", CellID->260836887], Cell[BoxData[ GraphicsBox[ GeometricTransformationBox[ GeometricTransformationBox[ GeometricTransformationBox[{ GeometricTransformationBox[ GeometricTransformationBox[GeometricTransformationBox[{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.09999999999999999, 1.7130686783902928`*^-17}, { 1.5744118051690457`, 7.564638756079724*^-17}}], PolygonBox[{{1.5438238051690458`, -0.08692679999999993}, { 1.5486568051690457`, -0.07712189999999992}, { 1.5593368051690457`, -0.053414399999999924`}, { 1.5648988051690458`, -0.039072899999999924`}, { 1.5698758051690458`, -0.024731729999999924`}, { 1.5732418051690458`, -0.011268299999999924`}, { 1.5744118051690457`, 7.564638756079724*^-17}, { 1.5732418051690458`, 0.010243980000000074`}, { 1.5698758051690458`, 0.023414580000000074`}, { 1.5648988051690458`, 0.03834150000000008}, {1.5593368051690457`, 0.05356140000000008}, {1.5486568051690457`, 0.07946340000000007}, {1.5438238051690458`, 0.09043920000000007}, {1.8744118051690457`, 8.755263395106919*^-17}, { 1.5438238051690458`, -0.08692679999999993}}]}, { {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{0., 1.3161937987145616*^-17}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{1.9744118051690458, 9.15213827478265*^-17}, 0.1]}}}, {}, {GrayLevel[0.7], LineBox[{{-0.3174411805169046, -0.2591860823050185}, { 2.29185298568595, -0.2591860823050185}, {2.29185298568595, 0.26267275093555253`}, {-0.3174411805169046, 0.26267275093555253`}, {-0.3174411805169046, \ -0.2591860823050185}}]}}, {0.3174411805169046, 0.2591860823050185}], {{{ 0.3832454051952442, 0.}, {0., 0.3832454051952442}}, {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.1}], {{{0.075, 0.}, {0., 0.075}}, {0., 0.0925}}], {1., 0}], GeometricTransformationBox[ GeometricTransformationBox[GeometricTransformationBox[{{{ {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.09438583563660173, -0.03303504247281063}, { 0.10415687994393828`, -0.036454907980378426`}, { 0.13071200256763452`, -0.045038216304323475`}, { 0.15764908371768874`, -0.0523348853018073}, { 0.18490582282629994`, -0.05832803910498585}, { 0.21241918001496718`, -0.06300381663949917}, { 0.24012552189425918`, -0.06635140368261527}, { 0.26796076873626656`, -0.0683630578745591}, { 0.2958605426793541, -0.0690341266251826}, { 0.5960484054061229, -0.0690341266251826}}], PolygonBox[{{0.5741525246895147, -0.15926747777601893`}, { 0.5777654668242662, -0.14895047229279185`}, { 0.5855028285472091, -0.12412626656897591`}, { 0.5892913070373922, -0.10921781604655673`}, { 0.5924991110302125, -0.09438037423495908}, { 0.594213767682038, -0.08060888717178213}, { 0.5940137329004875, -0.06928177496362554}, { 0.5916146014872797, -0.05925420323849889}, { 0.5866819563002463, -0.046586777619264504`}, { 0.5799379102116023, -0.03237054351734262}, { 0.5725777511952395, -0.01793415687580896}, {0.5588464485539528, 0.0064877048831437495`}, {0.5527227315062951, 0.01679916278977489}, { 0.8918159732945774, -0.033035042472810666`}, { 0.5741525246895147, -0.15926747777601893`}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{0.09438583563660174, 0.033035042472810625`}, { 0.10415687994393831`, 0.036454907980378426`}, { 0.13071200256763452`, 0.045038216304323475`}, { 0.15764908371768874`, 0.0523348853018073}, { 0.18490582282629994`, 0.05832803910498585}, { 0.21241918001496718`, 0.06300381663949917}, { 0.24012552189425918`, 0.06635140368261527}, { 0.26796076873626656`, 0.0683630578745591}, {0.2958605426793541, 0.0690341266251826}, {0.5960484054061229, 0.0690341266251826}}], PolygonBox[{{0.5531471082502976, -0.013312494159240879`}, { 0.5591293543010436, -0.004163358396867864}, {0.5725955120941599, 0.018080079973602066`}, {0.5798495406777897, 0.03164450165526183}, {0.5865228150212454, 0.045279276882814246`}, {0.591490840643863, 0.05823738726889731}, {0.5940137329004875, 0.06928177496362554}, {0.5940900068386215, 0.07959207120218055}, {0.5923399697512115, 0.09307287349850882}, {0.5892029375035795, 0.10849177418447595`}, {0.5855205894461297, 0.124272189666769}, {0.578048372571357, 0.15127481877906773`}, { 0.5745769014335171, 0.16275414640655295`}, {0.8918159732945774, 0.033035042472810666`}, { 0.5531471082502976, -0.013312494159240879`}}]}, {Hue[0.63, 0.7, 0.5], Opacity[0.7], LineBox[{{1.0862018089311791`, 9.26132938305118*^-18}, { 1.5744118051690457`, 5.4476065215621785`*^-17}}], PolygonBox[{{1.5438238051690458`, -0.08692679999999994}, { 1.5486568051690457`, -0.07712189999999994}, { 1.5593368051690457`, -0.053414399999999945`}, { 1.5648988051690458`, -0.039072899999999945`}, { 1.5698758051690458`, -0.024731729999999945`}, { 1.5732418051690458`, -0.011268299999999945`}, { 1.5744118051690457`, 5.447606521562179*^-17}, { 1.5732418051690458`, 0.010243980000000054`}, { 1.5698758051690458`, 0.023414580000000053`}, { 1.5648988051690458`, 0.038341500000000056`}, { 1.5593368051690457`, 0.05356140000000006}, {1.5486568051690457`, 0.07946340000000006}, {1.5438238051690458`, 0.09043920000000005}, {1.8744118051690457`, 8.226005336477533*^-17}, { 1.5438238051690458`, -0.08692679999999994}}]}}, { {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{0., 1.3161937987145616*^-17}, 0.1]}, {RGBColor[0.5, 0.5, 0.95], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[{1.9744118051690458, 9.15213827478265*^-17}, 0.1]}, {Hue[0.63, 0.26, 0.89], EdgeForm[{Hue[0.63, 0.7, 0.33], Opacity[ 0.95]}], DiskBox[{0.9862018089311791, 0.}, 0.1]}}}, {}, {GrayLevel[0.7], LineBox[{{-0.3174411805169046, -0.2591860823050185}, { 2.29185298568595, -0.2591860823050185}, {2.29185298568595, 0.26267275093555253`}, {-0.3174411805169046, 0.26267275093555253`}, {-0.3174411805169046, \ -0.2591860823050185}}]}}, {0.3174411805169046, 0.2591860823050185}], {{{ 0.3832454051952442, 0.}, {0., 0.3832454051952442}}, {0., 0.}}], { 1.21, 0}]}, {0.13, 0.13}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], {0, 0}], Background->None, ImageSizeRaw->318.71999999999986`, PlotRange->{{-0.01, 2.479999999999999}, {-0.01, 0.47000000000000003`}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.84801727367213*^9}, CellLabel->"Out[132]=", CellID->240547415] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell[TextData[{ "Causal graph styles are used in the \"CausalGraph\" and \ \"LayeredCausalGraph\" properties of the resource function ", ButtonBox["WolframModel", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ WolframModel/"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7956934432301083`*^9, 3.795693452598557*^9}, { 3.795693482839283*^9, 3.795693485995479*^9}, {3.8070128307644253`*^9, 3.8070128317150583`*^9}, {3.807012955930599*^9, 3.8070129655982513`*^9}, { 3.807013095733433*^9, 3.807013096125148*^9}, 3.8667239789297533`*^9, { 3.866724029219921*^9, 3.8667240312834253`*^9}}, CellID->739701241], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79569349521301*^9, 3.795693498014679*^9}}, CellLabel->"In[133]:=", CellID->661074647], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Background\"\>", "\[Rule]", "None"}], ",", RowBox[{"\<\"EdgeStyle\"\>", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\<\"FinalVertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[1]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\<\"Function\"\>", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\<\"InitialVertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> RGBColor[{0.259, 0.576, 1}]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> RGBColor[{0.259, 0.576, 1}]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\<\"Options\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0, 1, 0.56]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\<\"VertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8480172753612432`*^9}, CellLabel->"Out[133]=", CellID->215691442] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], ",", "Automatic", ",", "Automatic", ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.795693471196088*^9, 3.795693520802177*^9}, 3.7958736727647457`*^9}, CellLabel->"In[134]:=", CellID->696652545], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnc/LZceZ350EooAXE+iFGJiFAo2WWvQqOItWsstiForJMg0ZZxzCNBNw ApFWk31jDPYwes1gFDBtCIKBF2+EMPTC3ZCAGGYaYe4fEAvh+wcIMYiTmn5y nzxdP5566sepqnPf74eDeHX73nPq/Kr61vOr/tkf/ed/8/1/+K1vfeu//BP3 n3/z7//bv/zBD/79B9/9p+5//u2f/pf/9B//9I//w7/+0//6x//xj3/wz//o H7kP//s/+Na3/sZ9/+//fv7BBxsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANDG N18++/rTd7/6+bdo+7u//TP3yexGAQAAAOB6cOqClYbc3OezmwYAAACAayAl NmiDlQMAAAAA7eh64+tP353dQAAAAAAcHkVs0Da7gQAAAAA4PNAbAAAAANgb mZaCkFEAAAAA7ME3Xz6D3gAAAADA3iAfFgAAAAAD+ObLZ1J1fP3pu8iEBQAA AMAYnn/wwekXv5jdCgAAAABcM+eXL2//8A8hOQAAAADQF09dPP/gAyc5oDoA AAAA0BHPh0ImDkgOAAAAAHSEDBrhJ7S5v50CmdU2AAAAAFwHoSlDmjhg6AAA AABAOywq5IcwcQAAAACgI1EjhjRxOL0xsXkAAAAAuAKk30TaMUiBOLHx8cOH 8KcAAAAAoAWpN6QpgzQGGzrgUgEAAABANV5oaKgrKJYDXhUAAAAA1CHjNJ49 fnz6xS+idgyYOAAAAABQjZMQpDF0C4b7DkwcAAAAAGgka8EgrwoCRwEAAABQ TTZIA4GjAAAAAGiE5YTyHQSOAgAAAKARkhO6+QImDgAAAAC0kI0a3RA4CgAA AIBmLOaLZ48fw8QBAAAAgGosERoWMwgAAAAAQApL1OiGKA4AAAAAtGGJGkWi CgAAAABaIBPHs8ePs9/JmkEAAAAAAFJY3CUWMwgAAAAAQApL0iuiRgEAAADQ iGW1FESNAgAAAKAFy2opWMENAAAAAI0YV3CDSwUAAAAA1dhNHHCpAAAAAKCa bOAofQEuFQAAAAC0oAdpwKUCAAAAgHayXhUU/gIAAABAO3rgKEI4AAAAANAO mziiXhXoDQAAAAB0QZEcCOEAAAAAQC8oFSU0ZUBvAAAAAKAjKcmBkFEAAAAA dCQaO4oQDgAAAAD0JZQcqy2k8s2Xz77+9N2vfv4tt/3d3/6Z22a3CAAAAABl hLGjS4VwOHVBSkNukBwAAADA4fAkh/vfRZwpUbFB2zdfPpvdOgAAAOCozPId 8NIq1ADZhj0O5/SMO2JW1Sh6w7Vwj4YBAAAAV89c34Eb/Z3YGGNMYIsK21Wi 8iMlNmjr2yQAAADgLlDtOyBbwfMPPmiP8FQG9wrJQX4Z2khRUDtpk3rD21h7 QG8AAAAAfSnyHbDGkMP0fg2QbdBVhC4k9I1+Lq0c7NZByCgAAADQhexcnob4 ogFdygB9c3vWG0B6o0I/8MZOE9o+fvhQfjMay5Hy70BvgBDkTQMAgAWL7yBq 1uiyud3qDaA2eCqC7RvS6GE5WU65rQsZxVACPPCcAACAkVLfAQ300kQQfkfK gOymNGBuvATNVdnMgkxY4IG8aQAAsFPtO2CjR2PRDF1vrDZV7BIfC64D5E0D AEARc23CiuCZaNxIQR4ZSA6wIY8JAADKmes7GFZ/owscxwLVcceB3gAAgCMi BQ9pHnLZzG6XjywatmDzwDCQNw0AANWss4gJsWa8hJeqs2ALwQCQNw0AANVQ qY25bZDDtz2DdSReXXRIjjsL8mEBAKAOGknntsFrwJrxEjIp+OOHD1dTRGAY yJsGAIAKaBidOLKT4JFjtzQmTLe9SKR9A2LjDrKUAAYAgGPB0/ZZDWAHivxw zXgJ1maQHHcQL7IIdx8AAIqYPnpGG7BsvAQ1Y/pFAyPh5YTkh4s8kAAAcBTY kjDLc8Fjt2LieHlzs9rITs1byt1zXP7m/2w/+KvtX/3k77f/8b//flsHlr7e vZ4e9QQAAMdCDutTxvSU4PFMHOMblgWSowtOXZDSkNsikkMGCUuDBn2+mgYG AICV8RZ2n9sArwMnj/nKw/rKbTsEf/N/ImKDNvdPc5Fiw1O88KYBAEApXpjE +C5UETzcGBrWF/SYsxFmwbYdgqhxg7Yf/NXMhnliQz6Z/E+46QAAYIf6Uvff Z48fu/5zsN4I40L1ry3Yw6/ctvVJiQ3aZkEBoh8/fKg4U2DXAgAAO1TMPJqR OgbXdbvNSR0yrShD9srDOia81aypNwjdmQK9AQAAFcyNyTTWHFs5C3Xltq3M snqDn0mv7IYS1AEAACDLIfTGtkB1MgVIjgo4DXa1FBX5mMkn0+L+AwAAkIJC OGYNlEUOnZVTQiA5SlkzPyUlgMncQe4/dgJOaSEAAByUA+mNbeF0lW1tObQm C9bf0KNxWI2Mj68GAICjQ13orFGyVG+sHDu6QXKUQKM21RTlNNi5lTey3j14 UgAAoJqJKSpEaR8OyXEFeNE4lKA03WJgMW7gzgIAQB08fM9qQMXRVw6WWFwO 9eWbL599/em7X/38W7T93d/+mfvE8kPvEs116hFZ44Y9thkAAECUuXqjbqyB 5JiOUxesNOTmPtd/GKYaraA3srds2ecNAACOwtzevvroK3surl5ypMQGbbqV I7wy0+MiLNnW0xsJAABH56B6Y1tbclx36VFdb3z96bupH0a9EtOH8mzeE5wp AADQzty+tOXoi5sRVnb6NKKIDdpSP4zer+l6I9sA6A0AAGhnbopKY08OyTGF Or2RutfrF7mdrogAAOAKmKs32o+++Ji+stMnhFJT9c19TaalGENGlUyoxfUG MmEBAKAXEzv8LmoHkqMj3sJkcuNB+Zsvn+l6I7wRyrC+eEY2nCkAANCLiSGj vawri4/pizdve3Uj3OZa6LaPHz70lIb70Hs8svmwrFton08fPHC7jT5ji8td OFMAAKAXc1NUevXnK4/pa8aZSI2RsmmESoP55stnUnV8/em7XiYsSw4nNn76 5pvuv7xbuc+JAzrKfAEAwEjmdqq9hps1x3RmkeaxxkhJC/5XRWnYoUfLiQ23 sdlknfyUrNKGceOuQVVzOUIpW78OAFDE3JDRjl36ImN6ilnNoyjQUGOQZYM0 hvx+X2PXy5ubj+7fd3ojGgqy8rMH48ZdIxWYZCzUDwDIMrfP7+vNWTx2dFgd sFKNsR90ys8eP6YGfPLokVQdTo3MGtOxICzwqK6aCwCws7JNuxRabLR6NbG9 2UkRKcEYrDE6Hs4OP1p04pxyy6EdbnNqZHzDdL0B48Zdo7pqLgCgiIkho3sc uno1sTH0khy6xlhhkXdv1Paa5P6XXC0U2jF4cNdvwcqOObAHegk76A0AejFR b3SfSLasJjYMmuNXGGHW1xgSi89C5q3Ql8ecgmLTg3HjDlJdpR8AUESvDrYi urt7/cbpdlHjcGk3wqSCMWRSSf/T6EHWTye9LbLUGNcyndI2GDfuIHrVXOgN AHrRJWS0LrqbDv3s8ePqQZMGXLe9vLlx/83OU9g+kCrZzTvkrbQ92am6xQiz SMBnNXWlwr0CpzsN+soDD+PG3aSiSj8AoIIueqPCi+GO65TGT99886P798Me Xo74pARotHU/cdvHDx8+ffDA/ZA2KvLwxYsXFr0RGgpKN2qJt7Fi8Up0hrP1 rBFGNvJAGkPSss773qojdejF85tAd7iH0av0z24mAFdFY4pKkRdDRiC4oZn0 Bo/aPMq4f6KNdQWJCm9jyeG+5vZsmadIDRNuoZBo1yee8MiKou3VeH3oUS/7 RFkMIDs5WVKHhiflLuAFQWUXBlok6AuAq6ExTk8fPVlvRItbfnjvntsoNVLq ChYSpCVoDQ63kX2DwyO9iX92NbHtMpC1nG/oc5ECJmUP4aZa9MahsS9NYrkL 3c0dUb0BT8oVkwq0Dm83T50oFA1iA4C+yEQJ97rZnZU8WBgn7PSye06QH7/x httYToQ+i6iuUMiGYoYuFekNabQq8OCoJIxcvbPYMnaXmtQ6qo4wIYt3Xr1P sCwpF6r3CB3OZQnA4YiOztkhj6MZ6X+z0d3hy06OErf95R/8wZ9/+9s/f+cd 1hUVZ8GTF/rf7GpiW3rt9cYZruUULEaYQ2MMFq241F2cLKHegCflugklRyg2 oDYB2BVl4IsaEj2HCE3h3X9/+8N7ygD6+ftvs71C5oDQPhurf8gmlf42lBzD oiYWL0rWSPaeZqNJs7SYO7ynBZ6U6yZ8zaNiAw8AALuixHlGgzxTkZC//t53 qqMR6vRG2J5qw0g03GJA52MxwhyUrPzr5byoUx3y6PCkXDccl06L9aTidqA3 ANibbNCFLjNuL1Um3Pa7X/3EbieRlM4uo+1p7Cu4FkQ4fsGlW4E+gne3J7Q4 WTDWXCtyKkFvcTiPkI/NpGYCcFfI6g0iLIKRsipURHeXjj5Z62gddGr8tzzK GHPH1QibbHLKTkM8PaLKXYsWkO+YZgu6U1GymJBh2/yh94p5GrVjswEAIUa9 kaJLRHdptbG9i0FNPNZ1SA5dQPKsc+8GeHftOgJmqlPJjkh1QQyLi2Tkqw0A 2NS8kuqurK4AuFFvsGmFMmc7LryicHq9tPhOM2LqALvvdjy63hgWnCnv2iFW 8ctSl0p2XCpumfT/ZsOV5bbXOQBw5+E+vzQ/xbLnnfSG540dn7/mmeu7D5pX kyWhBwAP7t7pgZy+ip/eQouC7f6qLk7FLeMuwpJl9uzxYxg3ANgVz8G99Z40 1b282TEo6o2d1UvsZO7g3vK4XhUKmWDTU3hPOS53cMN0v+FXoh6dvpZfdIsW m41uqeZ5MSfRb9pTya4D/X6FpxztIlJIZQK9AUB3pKXR0//kCOYXuXq6VD1D V/SGbPZS3UJ3c4fsA3s1cjDKBaFHjnISx9/HrN7osopf383TsVm9dGVYJCJT mtMqv3zc1w2ABVGURl+qh93U7E/OWZad9fcyd8ghbyllZccbteVZyM/7HlQ+ 21EbRdEqfvpaftEtulhwdCuVHPKxv2t6I1uymL/JT53xraEbAZkBQF8qlEb1 sF5kz2RS+W7LmjVSeCm0Fc32Buud2rk30VOQp6a4DOoI86PDW7B4AXlPY0Sv D/RG9JZBbAAwnWqbRvX0XHaYxp8o+W48iCxr1kgRqg7j9fT0xkG7RPnU8Yfe NWk/NTJBKBaD8BB6PuzEx4xOJKvB9kglWxldItJ3SsUGP4d7NhyAO4RXEbRU PNRlZYZhqBaU/oQkR2kz1qHC3BGGEBxOa20JT7q35k7FblPries+CA+lgDyH Hi17ze9afspmqL9RFO153CkMAAvSqDSIupjPitnryimKHbGbOzynw+B29iKa ZVNxXhxHERUYJDw47IfTXlqGEnmneuUc9SWVSkYXanbr9iJVsrjIMwKxAUAv uigNomKt1dCBbvmV7o++Gr1BWMwdHKx4aL2xBdlGUkfpP2SBEWoMT2B49LJL hE/yasIjlUpWnRq2LLp6hNgAYAqeL6PxnaqI0qQj8q+66I2rDIHbbOaOo/eN 3sIlSm+ve0m6R5ZaiEafHmIcl56sQzQ4BT0S8hRS655Y9laaKgsAiNJXaRDK Wmw63AMYf2XPd7s+dHOHXp9zfbzxzjsdu5dkFt2jW4cxoOr+3oTywDuRImPF sXLcAFgTz9ffsX+uC+1jB7r9QJZ8N96tUlqh4hzXIWruOLpLxbspHz98WOcl mYjX1KOMVtGqZQdqfFQehP9rOSnjQioAAIW9i3d5Pa1x/xXuY0u+m9z5cTvS LJ65w92Cpw8eGM3FCyK9JE5sUHnz0Euy+CjAuQ/Het6iISizG5UnZe7zOhZj PyNrAS3+mAGwDp4Tc0CZUM++YZxlFyWmMfb1psNelGbNh+hL7fBpfnT//k/f fPPlzc1RekvykvzmR9//7Q/v0U38/P233bayESOLN8wdZeyWr7B7TRa/7F6s O7tlCXnZjWEbx7pZACwCx14OK0i+XYL9LO+1pPT7m3DLRvPdon3F1Rs6CHc6 Tmk4veFUBxsEZjfKJwz1dOriiktRHcvQQTeFLUsrN1iJZfKUg+VcELABQAX8 rsl1kwdMVegQpSGLpXqDzu7pgwduS2U46pLjdFm64kCjgB1yxHueiLnxKnpB jF9/7zt3oRrVUebO9PxsB2mwpzf4c88Hp5+FjF1Z3KQDwFJMd8IW6Y3SYFHq GUhsKCpFOXEa9eTRr0918C0IozuGnaO9IMbdWS39KIYOfnkXlxwy1iJq3JDC W9kJfee4UdYATGG62NgukqConI69kUajRNF6qdenOsKQGOM50hJ47M4o8mhU F8S4a6nNx4pIXLa13gIossORDx45FqMPfFEvAQCQREMUxvcSRXqjYhWD7IRF 7tnuTbgm1ZG6BZ65w3M8pUpe6wdKeUnsoZ53TW9sxzF0MAvGNqTaI6/t0wcP nN4IvzMyqg2AI6LPPcPckIlR/XZPqEU5ENyNkN6wJNFXmHquRnUoF5ZEgjxN 94lxSS/FiFH01HGHvxn0xulSMqXPpVmGY6mOpXwrSk1yWR3usydPnN7w/hVK AwAdfe7JlawWeX3sIRxGvRGabuzNqDD1SEPKCr1rBZZbwKaJLRdEEU081L0k IaxVPKmTXS3dU4CLPORdSBWqWpNFJEcq6ItmZHJS5j784sUL+teOC0UBcMUo Y8GaAfzGKFB7sCh3EUV9hWfiKO1hpOe66IcrYPdq0fCdNTJUm86i9hCp/Sym FU9wrpnnW82BDB3TXwpugPcE6gV5DnSFAZjL4QL4jYOdMViUYzxKg0s3IWnq uprjRpRxy43fz+qNCqtCaM2ImpjcJ8pq6d43Q4fXse5LigMZOiaW+06JjU19 gJ3kYP/LNRnHANiDIwbUWQY7S7CotIHU9cb02xZT8CJm5FKKEpM7PmOezGCT SPTLrCHD1dJJMqWSmq8m0kZyoGn4+JdCOaIyI2OHIJQGABaOqDcsg11Wk8jp TIVxI7W3imnOslmBCnQLnj1+TJ2tt51eX7cuG0RhIVQa2QASZczyEh5TezjQ GG3kKPp2ZDv1h0HvIdc0AgOwJl3GgsFYbBe63vB6syLvQIoWq/WBLN5EtNBo SxCFfqwipbHZ5ITlO1vgZznE3dE5yukMC+fQL4WuN5adlAGwIMpYsKzeyIZw ZINFZQ/TbtwID30XfCukN6KSw2iUzj5gMsTFHsZpFBJbyQVXSosclEM8bAOK gSvZr4QyI4PeAKCUurEgS0s9SZ1svKIuIaR5hHvdXm3b2uaPpyMUQCaDw9MH D3765pvhqu6pcSEMosgeos7NVHTli4bdo1gGjBzldPaTRvrrn/UGrjwpA2BZ isYC4w53fTf1EI7Q4eKt2uCtcrJHZ1vdSbKaWkpyhAUunNL46P59Wmsme6bR 25GKrGgpmpSdroYoiQn69xcfpo0cInxoD8kh77uMO+IMa3qKFAswjBsATGdA TQ9db4RzFopd9EaWPYwb3kHrLPDrSI5oUXFybchhV2+nZ4/ie0efy5vYOJRX iA3vuPYBVzZ12WHayCEUVF/JcbqU3UvFIMmj6PU3AADVtHeeA2p66CEcnopI 1eYa0MFW+/3nSg6ljpZ8PIwr1HhGJKkV+W+7eknx7PFjGjsqfrvVSo5jRfnq rG/o6BXOISN8orVtozuXFuAuRmAAQPsANyC8StEboYtEjmVuVPI+7NIenTrV MVhyREuCWwpcZJvn9eHyBrnfSr9M9UjXpUhUnXnkEIGXRg5h6GjUePK1iq7U M1FrRaumA3DFtNdzHhPOnVILod4Iu5RtiHEj2rAi1WFPtagm5TGxVDGy1HoN dZ381cubm5+++abbnOSok1WskbqMFHVj2bDMzTGsrzpaNB5JXGNeVfTQVU3O c8e9NjK/gLTWHTnxO05R6cgoY2p6pNrpfS47Tx4R9gsTzVKqOnaSHNmVR4xk rQrhpWa9QUd3SsNtdee4hwmobiwbkLk5kvULwlTcJndSnzx6ROL2ViwIWNQb nHZb1E+Zo139yJtywcPCc/VUB90x2ZoePNhx5OFJVKQ01gdO9RLebDo6f5ne kXqqQz/fXpKjwmOSJatOo2Yo8qHQP3kzzRVCXKqnz9fkW9mWN3TYA05kBrfb vO8XFSTfyYqVrZre/YjroJ/71WutO04XV7glH9azPMjNcuiUMV8OcNEeaaJx w8O7Aorw4LG14qYYgz/r0F0q0QAP9yF1+1wOvc6sves4WO0iuTLJsS1/Rood RsYhk9hwKpcXka8jqp8V6O07ifL+UXQf9F3WG9d97kBWP2jZT6qmh3QiRCUH h3RmCd99T0tEpUVpj7E34UWI+lmo89zMhdRCU4ZlJliBcj29689NogBRbols p920tfcIWO1T8LTKfhb4YRzF0BE+adylkBmtsfEVSUzb6483PxieAtH1Rsew t8Gwtfz0+ppKkms9d2ChtPOvPgQ/e1HVYQlbDY35Z7Hup/ybWce44XEO1kOP Cg/dcLSHxySL4lK5feUu4bbJ/l/+hDsli8qleL9hN7E6nIPrxFI47n4tHMbK hg62pLkr/5sfff+3P7zHb8eXT79Lk532VyBq9ToHKxWyszjs1lL6/1qrpitG bH6QoDfuMvI12a+flFaUU7AQp1F46MEDob8gzJVYkGjCCF0BvZCa55jo5TGx NDj1qPDV9mItQrvHSSycl7rdUkqNtBhUj7PydhzdxEEsa+gggee2z99/u2/k odQSTx88oPBm94dFTmRlBnNlVdOjxtXUFbiycwdFREe67kS99jQpoC94IiQq PHikM7oYljVupGDhQZclW0htb1NGlJTe4ClnOF6nboQSpmIPDtyDinH2HCxr u3cjh7GUoUNe55TYYE0e/rbINEFxR7RxnDP/RHpJpNS3PLpXUDU9ZVzVhdaW O3fojeuGXzcK59uvS0m5UcKvpYQHDU/RTiZ8Sg9h3EhBL6nd6pjqRXe6m1FD UxgN6/1TtDGhV2WR3Mxz4cL04eN9HSYOYrqhI/Q/uofky6ffVV4Qp8mjsdNZ WwRtrj98+uABWVHcZj/rbLAoodff4PiHxuvWnWw4umWagHzYO4t8SPbuIZUh Kfpl7/uuecqMxpvOTB+w2snqjWgQCG8cStEdDsjxPnT9MxUOLYqikc+edMSs MF5742z2ib1WEwcxxegUGo7sUZehz1E3TURPdtcVnJWq6Z4PevrrELVmeK2i 7ygubz4Rd6ZSdaBi/J1CD43ofqCiuRILD/e3MqORiVSHNm4wxkJqoTDzrnB3 0SVdKtyBUAZi9J7qeuMs6o2sOVIrs3vFE3R0uRtl5NkpSoPI6o2tsNqGhB5s 7kam3MrQMjPF6HF+fRHnCrXJe7i+NwJUoAQB7nEgOUQWPYHZ7sUSiHgUsoXU PDzVEVbW6nhBuB/mLojc3NGOKKtmZR3IZe9adKhNuSCvQ/Gm2FV10NjEjgye 4J+CUoEDIg+n38SoM2iKcalFZqw5jwCzGKY3NtFFV8xndb1BO6Tsy2WHrSIs hdQ8pJBTkl8akTmtpG2oopfy5WhnxYML6Y3175ocal/e3PCLkzJ0rH9GdZx2 WC1XDk+UGxJd94Sv9oDIw+l6Y3tdcrgLMqaXlve3VGmkwmb2ay04HIOVMyEd rJZeS3cxyLGAwl8HnMLe6IXUUhftFFSBcJ+48bGX6qAbx1XK3ejw4b17RXrD mzpx21paNYaUAytl6BjfwmF0MXREw5BS4eXeU7R35OEiz+SYLEJCXvm6QJ3o vbuO3hj0YlgIR4jdt6K7GCz9/4HITpDldTOe7CkoflLXNveccMDG7aV89GdP nkS/HD5asv/kNoS5KisTVR2p63nFq2Gm8oksSevRug3SaKZcW347do08nNgr RlsyxpNVrTSYotQAcAc5xRa/GHz01JPJBrotETJKvdmVPeEWg3w48bELj8Zr 9dH9+1yXQM8ZlJ22Hnt5rKlQKkzXO6+7kP0nL4W7fVk/ICsN99hQWpNUF15Z jHDss8xQuuSDr6M36IrR39IT3auj4322WIajAvIKumLQnZEhHFFSI5F8uSja /PP33+bEWJ7OXFlegD3gMBpRZlcdlMFaetHcl0lvUNCFLo1uL35nOaDoSYj2 lsyCY2Oirmq+FHdqNUx6EhQjpPsn9wVSp1y603sqZOEsJTAm+8QqoTV21tEb Hn27u/ZQnGgy0XV0xWAnVujqvXBH+SKwBSbazpc3N9R3HcUgr1P0+re4d+vq a5GEcOMFxWxIveFlILIy0ZWGdy7HvYmy8NpmWA3zLIpeprbZ51SGXhf3ixcv SKay3b5IEth9r1uPYXRZvUG0qw4ZQVd3mkraMsQGUFjk5aKXiItH8QPMr1W0 ne5D6sTmNLorpdP8c9Ui79EjWjp/VhfcTfEd8YQHFQFz4wutQGF5tA7nVdHR M6o4qcq4yVpVJ1sdy/Ho5+u+4DSqZ8owUiQ2tuC9qBj+FukSdUovS/jDOnmf LZACgMLcEA7m/GoxJqrnwOuYy3Ix0U7g9pIJewVGvDozBf+qroO1/5CfEL4R FGbG119upeWgt2WewwrOl0Ul6MpsthqYz0Xdy+hmkSLryI+s3qijblRtzOw4 hN7Yyg0ddVZN/q3b5MsOpQEqmB7Csb1exZcfaf4j1c7TJf2ze02A8VjCRKNE I8p4JCo6OvWx2awKvhFUsMtLKKBeqK7HlvJyZWQUR6gButekks6a02WtnKgZ ZKL82ENvVE/hQ9Nf0dN4FL1BhKoj9Qqz19J+atFiPlAaoAU5rI+BpUK0FgcF NEpDxxar0s/fb7egTqdjyz1bvVF40NcsWRXuav/Pf/EvKPCP7hH75flYdU/U yl6VVDmjWxGNwM0esxrmWSzVlzJ9dDmQBWMdfjvVYsP7Oc1cin57LL2xiTpd +it8Ni/NGX3aITNAFwa/X2w5T+W+cZ0HGQBAol1m96dqOxxOclQbN/R9RhMo FAe6MavC7eRnb7314zfe+PDePV65mw9BbpRqBbuaVyVVLCIbiqB0+3vc7k3I D8/DNUZ46PkppXtrFBsEP5Cl+zmc3iAUsaHfCDagRTUGZAboy8hOPoyUCx9m +ajfXsr76G/QOVgU8kDvyK72pVOiMKa0wBuzKrbLoOZGNCc2nOrg1S68c5H7 L23wCl6VcH5njHWkH7JZO1qTSg6m+51mKDj3Fh4VdfijdBEbmyjGW7q3g+qN reQV1mOEnq+xOi24SoaFcHiqIBpS6Ikf+oJFtMvX50D2jZ1muyF6P+P+SXfB Sy+82xX5U7h34n/yeq26dqaE6ADC8Hu7duWWZ0+8Or63gpHCI1WH344MgW5v z+n1NZuM+zyu3si+wtHIFpkAdcRcbHA4dp1iE9FH3Xuvo6Z4i2jn/bMx+RBv TYvroR0vCtGuNxyUTOQZq3sF0oz3qoR+k1ITWcU8eqTq2C7zfY7v7aU6ZMSy 5xUtfQf7ig2JjIg2fvlAcxbG8gqz7eIQPSS4SgZI+mx/nuqx9TeI9cZ2ydks 6lvmslTPVpRVwZVPUnqj8aSGeVW61BNoyZAarDq2wKfpHbRCZbEZQe6kVEjv JzYIe7ew1FvJyKlBdOueGAXATrTPKMN4TvmvqdBQSaq3KZp39zqdAcw1boQU ZVVQvRRyqcgcIh7FGhszxqvSPtZLuVLdVK8Zc1WHsQHyxHlv8gtFU5i9xQZh lBxr6o2UfVh2qmMSowBopDGEQ4/nDFNZQ5R3XBftUb2xHaFE9sgprZGiVcZc 4ykzJdQbvZzv+91BOdpWH0IGbLTrIt3ssBNeOPFJZFYqv/JipaJ3yv4CjhEb hEVyrKY3zpeCcorSYO7CQoHgCmiZlipiwBIzFp3ps0qpNhKuLDlWM25sl3AO +0rfz4Ni8t076j28KrLrbtEJvdIoUrudqDqUQ4ez7JRaME5hRooNItstrKA3 FI2RfTbsrzAAs6gO4TDGc4Z40eN0aK+inftDNxLyT8IgqPFdmZ0FG1bqFCCX yi/fe48/CY3qjfT1qvRSGueGutBGvKSSYc+JPqJFS5Eojczeu1lvqC45ZumN 8+uF8eVFfi7K9q7WbwBQQfVcUnd2pPQGv9T8BoWRe6dLDni2/kY4O6OfP3+1 dthqb+gKEygPzyRuKZ1Bg8Unjx7JneyUWdDi8qA/eg3f8knbOyDZMzu8vLnZ 75lJzaa9I3ov2vNXa+ikroY+hZk7HVAkx8jXM6UxWBJ76XsVOnn9sHlwB6kO 4aiI59xEx8U1o7wXTbaK/lem9odGwlSH6QbE1SYFq7XHc+7Yn4TTkKJA1UqY B44uE0PpShhcUC50suzx8Jxji2XIixY6UygtmsKGoztMPUj2WiX7kWrA3nqj SGN4P6w43JoOZQDkoGOnLp6TOivXU3147x4tQx/tw0uHCa9nppJixrj0Maxm 3Agvjr2FcmUoqvW0RwvrvCpS0DYqhF6OmEZCMbBfMounPUhY0t+/+dH3+aZ/ /v7b/+vffdtd4dSgFu1SVhAbW9rAsscbWq0x2o+7SL8HgEddCEdpPKfbPy0t yptTHV+8eJFqT2mnFPpW5Db91asTdTsR7XKN/W2v+tUWKrwqXpded9xFlIZH Snjs1LyTKBTmBEZ4092Hqacl2qWsE8itPP/tzZulMbw2LHKpAfCoM1xn4zkZ 7r1ZZtDMKPretbz1cgLF8oOsKDLeYDyrGTeq53d91+eyUPRwRjVnaffuJYpW tXpfonklzy+1qe37yV4Zuvi//t53Ujf9d7/6SaqF3lu8jtggopKjWgysoDG8 9iwyzwLAo1oMW+pv8HvnrWAe3WEXD4ic8dEOaQl1998pw4cXJjGd1AhuMXMp SUlKRlIL9p4zjGkseorcl1/e3LTbRkYSFR7S9PHFixfZPJHniVW6WCFU3HSv S1lNbBDyxaxwEa6mMby2HegxBneNlgExjOc8v1pZnjJE+O2TOSnR/ewXbuH2 zJJj/KR1KeOGYj6yXPyKiJ12LKNVS1RnmCF1xFkhCQy9dMNzsURXmBomHTTy mmdvevRysXxdU2wQdLJ2F+HKGkMyMp0KHA5+K2c1oC6Ew/u+1325wf3Z48fc z+g9eVaNNMISiFXQfkF3kqWMG7qii7aTulCe/07RG5tBC/GgFv1O6sOw4sHV dM4sP3QFEt3cO+LEufvvKbdMM910fq6knnHv/scPH9JCimuKDcLiIjyExpBI vbHyxQft6EuKeMhOz72b50sNK3q8U5v3arc/8xUhHNSALZZPx68hj+xSeEQv wq5iwztKaHne76DVSZ3d0RXd+VUVL0oXSnWt2zy9cb4UQY2+WUqBAh4pvE+u VWbosHpUjCGUPub+y9fErje8/fz5t7/tNvJjjsmhrkD3FoWdxrIaQ+LdkcVb C6rJlqhiwn6vyyZFiL3ZRSEc/A6SilDeRP5XnitFGTDuE3LMDYsb7OHHuV3D uCH9uTzoSF0hKyp4j5P07ytJSTT673cT7W8WnzKfHbX/5c2N/rjeQbyrwddH XpbsTWekmHGvPOmNVAc1+lQTZNXUER+VMJZpdovALiiPrmedS6kFKidIj3dq 215/tRXdkgoGCzHO8qJzGflbGXn15dPvfv7+296wHh535Bvh+RQ84dG3Jxym o0L4UaHH45fvvUcW8tRzQrNaJyB1c5lufN7VKWZ5s/jcvTdCVpZ7fikT3b2F h+P8+oqK4e1js5Jy5ZXgDXrepM22uneqwGj7nWWy25X9+jSwDpYlRbLyoKUB 0l4aHkV58Cw+oKhM8hocvQKe5JA/UcIX9yMaxhCaO7ochU6tyMXGyMAJ/WvS XhHeI3LHk+2Cv+N1xfagViW4rvs11A/qvVlbTslDZihExQa/JqmbHn1spJEk fLtD9ysft+/difpPPTf0dqV6g+Nab+FMuV70R1fJHZM6oW+TQsdBKDwslupU 8IPsbZRB4dff+05KbNzOcDekdE44YlbfEd5DqSNge33clB964T2pOyK7Vgrb k+545YIYT5YSBvmp9k5kD9VhebP0C4JeVyEUGzIElD6J3vTwh1JscKeROu5Z pK3x4RofGCm/lVeDnwe7t+hwTJnNgWHoveJctRx9B7NBgF6vEs6OZTeu6I3f /vCeNwBFjQwjUfw4nkir6APl8J29vJJoNKNFV0TviP0iF02F6FnKXgHPqGvZ c4rsm3UWiwVvgYaHSVmBVAEtAbCVL4N7fj0T2XvejM9VtfCIBiNZZAaTdREe 98kpisoDh6NuSZHx8Fjg/muxVBuHIf3c5QBEWXK9Jr/VZENHqqfq3Ou2OwI8 XRG6QlKcS7J+9Hlo6uyy36xWHWwQpruTfbNSYUUsNmDfiEIPCRfglTOLoit2 ehUgSjFCYcS4/b6H9ljp37FIC/mO8Nf000l5i4reoDUpeq/BsbAsKZKK/5yF 3o0XFY3MjgjbJe9SZvdPxNifeHah7JTHaNz4SoT0KDKj3aFj/7Llm1kjeYhR dUins9zch9k362SInYYO8eBbSYGdLbMA1htsJ5GHqJhik2ygosRuS4U66wrc LpxSLsKONropIITjirEsKbLT4FKNPiAW2WSMnlDWGysY+uxTGKOTxRuOSy9v mHZUd5WKflskIYoiPbwfhr13ytXO4wj9bV+sR56UMYfLO+Ld0SF04jJ5p/rO 0m+5ILwc5S2PVsp2QQX6eIVHXnfJOE2z30RLdJPy1i8L9MZ1YwwOjKoO9zaN aSRPJLMzxyK9oQwKrDd4HOT3d5czLCGMeTN+P/orbzie4mLjFhq/XzQJrdYb jDsQTVq9FF1OIfEMHZzjY3mzskCHEHTintioeB+9GKEw/MMb8uT9NbpFqETA rpMyy3TjiIYOhHDcBcIlRaJf053OHV0tKb+nxVJddCAlWZJDwp5fqpK2zN/7 Yo+rlD+Rt891ibRRMgjfwb6Xd79zsfeiRUqGiI4vnKXrtueJ+p+hMdz4ZlVQ l/7T/VUdQ1RsVEiO1MPGn1NJczJTGNWFciV3GvTtQaGHUx3QG0AiH2D2nyoi 5JQrBcZ9JlVTjL7jciJZYanWUTyh5IeV7+nRJQePmz9+440P7937i9/7PbdR 10r76X55lcbIIP+iztCuN+yel1QwBj/M50u9NanZPnn0aLX+/Pp0SMqyYWwq fy18ZaRbhNymbqP3wv1Rqi5SyGV82x+SCntd3Vs2i4oJArhu6AFmg6S9czNu UmCER+9lqc6eIM39+VWV5taigX4npPnFwllkAroe9cf/+B///fbGG56mGnB5 t0toXF03aE8i0DvnVDAGD2epW3y6LOBLHhYnvIvaP4UKHeJNGaY0O7Splqai 0ODFpjz54IWbE5Duzv7lH/yBUx0db6t8zBoH/bqdHMjQgRAOEKI/tNEwwtRW 162lLNXPm2sOy+nAOagb5j5kETL9pTDaWzzvAIe0uX715++8Q8tdSU217ekI 2ALzdenP7T1SqDdSjnhd4kYbT8kI4aU7Ft6r2l2HnA3FT4hoVVu+2kUyg8UV 6YefvfUWi8Pwpocn4n5FvrO+ATDRQb9o/xVWzejPV44jrTDgADALmcFR8dCG CSDRqBU2pK8sOcKxlVxgXHng9uIX8M5x75c9vJ6lM9Zbm8WVJE1WYxiPK68S /9AbRK6mn+ylQ8IXKopiVcsO+tIt4rWTU0U+vHfPvbNGt4j7VxKTe7wOnoKy 718+adXdzvqGDoRwgGPhGSXsr1Wqb/SGY5qSL+IVDdscDq9y8k56Q/qJeFdj VId3lFLz+GbQG3Sm7jZReGc4LJYeUQ8KDU9qzZ68C6HpUt+8KK+UJFOihrx1 CqLRvFElybXxK4Zp3s8eYlLa9+wNq9bnSgMWfFbtMVcALEJolLB0F0pgQHRA WUpyuL6LZnChzJDfzHY1pz2XoN1eXzek2gAVTn/CYAw24xgdJanD6UpDcndU R0ipDpEXJ1vVVt9n1C0S7QHspyN9dju9DmHynfJl73Taj14drT0AhHCAwxF2 UPoDnI2F4C94nc/cd5YGRI6up+FVGRl5+pC1WO4xerbbhKXe0B0lNL2tbnaR 0pDcZdURouuEs2HNU9IburoIiTq/7ISytq/qCOWQ8j6GX245NMNdh9tcv/HZ kycnsWqzfLOUoDv2oHVpEgG9AQ6H9Kpkxx1+o/V9cp8gZcYUyREOtRQaZ1xZ 1e4eDUfP9ljciv6fOL8qpsRRmqHGkGNQdc98fj0xtu62QnUQFpGg6w1KxK6L q2x50qLPjydjWtSs3QJDp8BdWbXeSLmiOIA8rMQerXmibFKNhFfe+CKU9lEA rIAXyJF6gPnFr+vTRg4r51iZiDB2UTmR55c1xYro5WTRL1F0MPI6SRnsqgRj VEed9XVth9etcYdXSfeqtl2utjLLDsVk9bFOwWpHqa+x/jE+1UoYLWsJtle4 2QpVOYvWYOf/5c2zb+geNFYgbCLOXi4YN8ARoYf8nF60utE60egmNqLLjLA9 So9UPTmS+687WcUAzmd3FkVdop0YdYnZ454ayiK1zItTe4bqUOhb1ZZf+cZW ZR2s3m1tER7S3JFquXHnYUcRGh+UQzQ+pakwHrKTSGuJsn/KjOa7v0dZYwB2 Igwh40fdmKynw7ulCUKvebEMxc/KDInST1aHTYbN87pZb7f2HsM7wbBoLTtK 3D9xJ5Y9CyX0V29DX6UhgepIUVfVVj5j9JhRJkuv22c3kaWER8rypu+Kjxgt SJJqaqjPjYEu0V31fURpn9F61OEhlDUmADgW8lXqIjYIHrAo8qplnzSwklWT pwZcVMrYb1BXY++v6kg5WYw9RnYi5vWT8oJkvUK3F+OzzhilIYHq8KDBqLSq bSqlpe9DrhscQqJGOU97nC81N3THouWCRN+g8MWpYI9HNPqme4dQlGffkoMA jIFfJVowumOHf7pUQaeAxtLggS9evKCSEVSeiP6IxkZaZlJjypITUsUpuY3y 0NHoF306aXflWOLNxisND6iOTRgY6fp7VW1/96ufRId7PX+24xNenSgRWjyk kLY8xvoJRk0Z3Z9hPoWWyFgiDPkIt029s+552GKRJF5UiRd5AsAK8HKffbv6 86UUhtv5y5ubzeBZcD9xSuOX773HtRA9mRHNUOOZvtft8Js7pkOW2HuMML3O EjLnRf/qLdH3055+0ou7rDqyBkYZJCnJ1uvo28LGRAlLRKU3ZcieIPtM9x5b Bz+fyll/9cqzpl/G1BRGJvDufQoAeJwuK6Xu9B4ZPQvnSw3MlMzIHugsVuCS 3cKwDjkk22NUI/WGfsuUaek6SkMSdUtdPZbnPBqMpD9jjY9ZtJG99qYLD8tk Ye/3N9XsMW9N9raeggohcjuZlw1VknYB6EKYNCoNht0Pp3sWzpc1Gtz2y/fe c8IjfE1K3wW2KI7pr7xMVbqGuw4ExisTHSNkn7lmav+dUh3Z7A8mHOZG6o1q l0qK6NTbM1OMPEEje8SRhuxx1nRtaZUoxY0L7QE6QtI3fGXss+ZSsp6F/Z7w uv7KS6732pZN56chXsltbI/ls6iFMHjDUxqL9yp3QXXYxcYWxHhsvfNndSyx QHaM0QXZgiSz5uYthg4lcoPjQ3btPSRRy/B1v3RgJN4T5f3rHtJ9ygyFuiBL ASUZRxE17W6Juh/67EyJMG/vMSxZru5fOSxnelBoNYrqONBZRCkSG4Q36Ov5 s90HpmEGMXpc3X+zgip8PEY+FXVxpEo3wo3/3a9+kjprWil4J+vKFy9ehKYP CA9QhzfDjT5F3SVHdwuDgufXME4AUwbGjx8+/Nlbb1HJQS9sNbT9hihRK429 Ip2gfh0oEvjlzc1BlYbEuzunyyqBx+0GK8RG9Idj8mHloXd9hDxhnC1IMn1u XmToOF/Wa07Naxj3yV//ye+nbutOhmivqeGFPfQbB8ajKGqJ1O3t3YvFNph1 T6Q4J6qBGfur8MSpyocMXvVCWLMRVlxYYHs1HMjcRsqIaZ+e6C8+NYCafXSl IfFUR/WQPR1+Vit+6+4jPZ9u2KJP3EMlVQc/Zt3ZVW+kpkL2fPbUrIG9Ffu9 AinVkXW8Rt9NusXu5f1f/+7bn7//dvS2Dotc3RJl3HY9IrgCip6Zc7ryeSkW z4ISwiSHeJ7O6K4N+f4a+yup5+WyTS9vbijCSjmi7NDOhmVn2y1ISs9JDZCr q1xZ5xB9Tg6kprj9FVHQzy/F9NyTOf6s93CpeDOFlDD2CpJkBZWxP+l4AamL oDqHnzx6RAfyqgZx70QmDn26R1Wasz7TkRpAGUGurJMB7WRf6pBevhV7bV6l l1AERjYBX+mvwh6P9kYtCaceUvZ4jeFiJlRyPKsK9ui9ZUs40/lAw7GR0Ch9 iB6vQmycg5VMOd57vG3nttYsE2JUGu1HyU5SZDciU0pTm/xatAegjdPuwq5J j/coneiNVx1h2MyUpxEsS7Vy6Cg5Qs9C9qC3lxJA8n03BreHyF+FDspoj5c9 CreNTKBylNfnUxWSQ6+ZJjOMqCWUXHx9YiMlSheXHBViIzpE0s8tMcPd6eJS GaM09AakpgzVmxQqL29uPLNG2ACleRUP8ykoPVRzXUqQecHKmYK7Sct7LZ+r weHfJ7FsU/veWL107+7klMTSm7EC4Xl6tg3Zmmmy36PurvGkViZ1kb2edp0V NuvcKGGXLgXzeJXV4lLxRqiinI69OcdKgqc2+bXUDvkdLB2IuZuqOIvQ3zGg u6apFiQHYE494oobwzm4e2xsRjWnSyxoX6Uh1YsSQaooEPbCfPbkSaqL0Ndv Ol/qm/GZrj/Z74u8wnzi66ywWSc2wiho755Wh4JUU/cWTzdoDOb8+ooDRQNx e18d9Xe07FAhFai/0+HAakQndL3e7hbfylwfn7sCnzx6RM6Ojt1ddRiGp0DY 7St9Mc/FKjDZmmmSO6g3Qozr5Q2g0bLBcQLRGzo+SafIpXLXlAbjDfr2XqLj azvA3BFNmx1vCQdTGDChk91gxQ/HD4Lc41H4Fi0e1wU2JHbp7V3DKCI9XHtu K6xhgvd9K1Ro+1Eh0cPUMH2KOjiQw3i4O6s0PLwRWV43mhvK6eEeDQhlz05+ Fp5DRSXHOp5N0AXd5N7xQOeqyufj9cb59dpBHbvljsnCEjk2nV+vdVahN3q1 6qAUXbGdqBAbUs/LUA3lJ+egzvmu6CEcYZDG3ZQZUTgCZCupK9Lx0KHwyD6Z 1TpBdl/VE+EwrsZ4dLA3gyd0pX3prsWCPM6xldZ7CZ5do2dTV9U+esKZQmSv GOURfPHihZfj3Eualr4gnjyuO9a252pEjDwWfwiDRhHKw7mrvy+aVyKFkKTF YM7ywDIRljG6euZyuEm/c7QZ1dcKKIyf0BX1qMMm3am8sC4DcfWIYCcaE2Jf vwl6g8heMXd5ZdiMl8X88cOHLUcvFRvtIpYDOfZ+OFlXUGrVBqVRjjI33Gl6 KOHw8lToBY3g+houmyikHMrO52LBhexEWNcSSrUTek91+bFUGtQ1McWAHDX/ hrSk0dmRjp6wPY0Dsdz53t0pd+DPLwu12J1lw3TdmtClcxctW9WWJ3pejaZo 31UX6llk+mt/QWTf27IfBS/zwh3Rk/dQGhb0vppG4dCV0NGzIN3B0rgnby6X Uo+28CxqKd9eat7SUlP8idEXzLriJNKN7ecSxo1EN6iOvkzRG0Q2mGHApFt2 2tHHtaUNA8wa0YNSDTFaKcNi25yedDwRb5a9FVa1pfQlVh0pi25WgRSJjV4i NkxL3G/cp8eSFxiCQaMCva/mUbjvlrUVsFmARnC9hfQTrqHqrTZFLxEF5w8e mKR28qwfkBwdsZvc90DvZnfVG8b41bo21AXHdsEdjktznBKrv/F0nn9yN18r ObuRp59aLy91iT578oRLwZ8u1TxSZudQfhSJjb4i1pvf7SSMz6/W/pCLGEJp FEGTd33dahqFnwcl1rOCoZcsoabqLaQ2kCNS6g2SHzTQV8S69yVq9AjfzTGJ QlfGsPyUFEpnu1+wqNGhs5WPxV783uB+lQ/NBUijjkg+fTne3Sm9UZoNcTaU 5XSqg2dGHGwsp37RfoyMUUWr5/S9WV6r+j6x8nWgIUaOKUDBi5Rwf+h6w413 /CJ3fDykL8aTK+y3ld+36AS5hy9evPCWtqQd6hPh0+s1+jqieFjk4QYnCl0T 0wsqpuzD9En3YxUlpdrH4mh6yzDOQcFSDjOIrhcpJcce13lZqgWhRXJsai1x uSuWH8YIELtCrqAlyUXuxAu0Dl8H7xEFIeGwzjddmRvSUO7FyfQVHtslZEJX xVmDOZ1gag+sbfSJsGeZ7N7ZnmMF6p+LZcSVGwHJkaVoWbSdCA0dvcbBlk7b ojfmKo3t9eQUeV6uJTScRZvkdWsD2zuHdtOTUXKEmRfZvfEWNYB8dP8+6UaK ydkJPnrFb8+imoeSdXIeW/TjKESTPuToxlim1eGDtMeInKLdYM5mbX0iHD3N /c5LMjdRCPRCSo5eySn0IpeaNbwmZQM8GueGLSgOKYrloLlzSnKQlfu6nSkd nVxnQy36cIoaXl5dupyD5YPZE5EygHSBnqXSffITaFlmaD8n6eFQTBn69ZFz Q2V6GGqY7g+M3rxSg3k4b7JMhMMYpJc3N7uepu4zgt6wM33c8fquxvZ4e3PT w7q+NNqM0hiAPdBFFP+TMkRS1NauE+eJ7GF6ysZRRM0U0Wm+0h7ZcnJw2wNQ WzgVrq3snSzlumajUO6s3kgFQuzagYQP5N7Cw24w51dA76aynBMr3RfZdjiQ Xn+bdL3x1ahCxFdAnTW1L3TTKeC/cRxst7aFekO3GA8jDNjw8Fqe+jLNoEda I4exq5NLMSt5Xwh70Wy/mnX8ndW1gxsViP0nqQRJ/VdjZtlLcRb1rIpMGX3b ED6Tc996Fp/Zt8lOyi/J50vWj3OiIEn0t97bZEkUAlmWmnpQZQM3GlY/gVFV X7eT0yXLYAWlQWTHrPCUQ8kRBpjt3u4hjDE9RVWBdw29wLYttzZrneNvD/mh L4GR8gVMH8LWYYopw0I4Is+6a1m3YyNnW1EvuYWlR+UlsugNJMYaOU1d/N3j 9lVuRaNOCGcTFfuJFr+d22PoY9aWjv3z5hGspvjzRdRmNWe1Wuweh/PkQfSJ 5ctLecqpG5c1axQ1rEWBZEP1pLoonaRfx6KfSobFdFOGkWjI5TDhIQ/NZUX3 PuJJrHYU3qbUm2KM2oVxo4jUIDUFfv75vhc9kF3kgfsVmVlI+UyXGURWbGyG sBMyHD0XS4wdUXLIPrxjUGgp0QlUePHdNafwhnAP1fHMRuzyY1PD73kJjOqW TM++74I3Li9ryjAyXniMDykx4sWsppqE+hvtrJMd7yWnlHbFjd7A86tyiHRQ CiNxqmP6NSHsYkPRje4LnGJ5e1k8y7jzdThdkikmKo2wPSmhK6+tnOC77cun 3/31974zuPGnRAbuVrtm9K3BLD+9umA7/LDR+HgUU4aRrPA4v15lpZqsDWEW p0s+o+XLxkQhEEXe/bktCafndgmhTO2JVABeaoay05SzAqMBKnsFtkt4DCVa yi8fRXLwpZDerrldlhcMI3tseVVTo7lTHXMbzxPMbCzcZ0+e/PK999zm/uCN rDe0Ua3U8Ch1SmZX7FWpvf7Bc7OuM2J2ITSFseOsvT8cE14FVsbrLadHNIVP tSc5Ul5gXWmQhAg/CW3L58Vqfdv9HRZN8vyyrBtJjvDnK5xyii6RwHu0KuoR JlPSbbqE0Wpz/KzecEojXGkrutG5s698WFS/sfuyW8WVtIXrHi69E5cqq+6l 6xikBI6L91ytEA8ZtoFE0VbuBfYUdajeU87WRfSGXWwYG/z8shIiL2zK/3S2 VdGcRdRtMbtRcTizm1e9PERlwmxJ6i9evKBN2jd40U9v6U/6X7pTut7wXkaO Rz2JegipNEYPnobrz7BF+0UzcVZ+QfYgzKXVr4ASEgylAbbAQD23D9dn6Nl4 Nib1mnjWPOXhX0FvlPqSssaN7fVMNCVPdrUeNTXNXFNyhCpRH3D7zvGrUaIs FEkfSnf5ONFm1BulW1SfeDPx8Em2aL8wncE71m43YUVSfal3HZTJIGQGIE6X EuI0Wk20E55zlcwtXmBlVnJbEgs9XW8Uxb7av+mF4IYRuVPSVbxASnejvYUh svao6ZyCVeZlIxfXGxwNWGo/NJodspYTb2/n2IJZxjTGlDLhJ1y/EYvYmpZC 71HpO1cQEgyGkXJkjCQ7xGd7bNlNRXsnu36YqzdIehmLnhU1NYwLDYXNYMmR kpE0Ep0uK1AvqDEk3M6oyei3P7ynPLpz00K9B2CPNRyzi37WGQ2i+kSxhFjC Yqdrv8WJCsJtyZBgsCwr6w2efLX0EvyONDZmDPbsGLsnRdlzKDmGpascIpAy SyoIihXvb370/TX1RpEZrQXFclIxHUghgxJTPlNUpd4DXFJgZwW9IYfCMH9k M1tluzBRbxRJiNKOOjWRnCU5DhFImSU03Z+Dxd10M84UhomNc27RTynYWhpj sYOhKvUeQG8AOyvojY8fPvzo/n2q/Bz1vdbFs9Ux8YLYe91TeSF65cspyVHd /58MJa+vwLgd2vA5ZNELNXEPsFQdEysFnXOr/vUleqDT6yvS7l1qlUFV6j04 +lsMRjJxeGVTBqXReZNE78uKVTabBFfErAtit6vURVnoX5ZFfbfmdJVoeZPT 64t3XIHeyIbSrcb59dLNex8u9Ujrrr1dLyCqUndnpPEZHJ0p7gM5oyHjxtMH D1IdoAyhD62y3RM5p+iNXT0pRholB8fJ6NkEPNId3bidStRdNrpVRjiMPFz4 TzItLvWrXXskVKXuCPJTgJ2ReqOifjh3TdmKGb3OYore2MOToqeappDG9qgh xdMVUWlhWWBXN26vrzcOZNbYBgZsMPrhlLdeCrllxRuQXMeSfGAAY/QGKY2o d1tpgL2T7NhHjdcbRZ4UuobZ5rXEKJ4u68m+vLm5fbWAHUfXhELCk45hcqIy 5V8wkNKIZ8ZZ2ayxla9+2E72kc7OI+jZW1zFAWaPZGpwfWRrbbXvX++WU+N7 xYysS786WG/YPSl2B0dRqqnMqecxlBbJpcrn9PfP3nrLfe7+oIV0T6LcdPSk jKUz1gmkjJKq0izFxsoD4uDoUML4SGfToMbbZAAAu7Kf3sgqDSLaNVV3Ne19 1GC9YWxtUTSFJdU0W7Dxk0ePeN0xpzGc3rDXvV95sm8nZSUeHHVZjReQMwz7 gzrYVQoAmMseesOoNIhQbzR2Mo1xcSP1ht2TUnRBLKkfnh+EzRHyxPlKvry5 4YXsLaaYKyBbGHPxEXDWSF3kn7UEI0FyAHA19NUbdqVBNvzw6F26l5aM/gF6 g3duHL5LC3BZ9IZ9NRn2rZB75Y70/Ieu0jxXbBQpUsvrBskBwNXQa9IqDQvZ 4UyWYbwVJRo6dix1exugN2RQZbZtFdU+O6aani8LrLPkIK+KfQ+rYbyzWcG2 LOMDNpiK103JjY1+bbBvCADQl3a9UWdP8AIG9gjAqw463bWvpkNwponFf23c M+2qY6qpzDQh1UFelePONOXIFVYhY46oN+YGllRnuhmL2UJyAHAFNOqN6qxA HsjcyMuJlt37SWlIsex8gN7whFaqp42Wv2Ci9bW4K+6basotIclBXpWK/ayA u2hh5Xwpes+GtURnn0SEweW8Ukev+G1RLPSw9QQBAHvQ3lG0zGuc0qBi5rtO yuyGjsF6I9VzpsRGWDMtegvc17qnmkrV4e7ayiaOs1g7W6lLFlUaxLGqNE+P cGg8uqWsH9O4uA8AYCJ1I2xRtEbquDxfHtB7GPvkvfWGF7jitZD+4GJHqeoW utjYtYYbVwNbwcQR6gpdVNwKt11UaZCcc3s7UJXm6ZVAujxvujVP0n0JAwDA MCpG2PYuzh3OyYwP791zemNw2UNdI+2tN1KlUOlzPRImatwIz2VAb8wJoVQR SxbF2uNw0aJkuqjwknzDS+1dNy+1ajtCleYp5bw8WjwpHnZfiV2cAACWomiE 7dLFUXdBxg03l6/bSTW6WBqmN7yjeyOm7kbhCISwc97VuOHRd7XNOieIoitS eAGiShL3ylWaFyk71lfc2n0lHXUOAGAYlhGWxrX2mLTz6yvDzpqhKL6VMXrD O67nIkmNhjy40FgTNn5wJ6xEVCpDc50TJFtEvYKiwnRbyWJ5ezM3OtRrRkdx i9hRAK6bbKfB3WzjXMZzZ5wvC81PIdVj7603aOiMtkRup2DVMy8cNOptGeBJ YSxV0zs6Qfriqbjsw09fMBaL2Jvp0aFeM/ruFrGjAFwxut7wRsO6VzsaljBX b2yJ/Jq99cZtoni7MgobGzN4DNIzRp3e8CJjp+iKELvSILy3Y/oANz06lNmv GRyTjNhRAK4MXW/IkaIiC7LUZD0eb7Y4ID9F/m84ClcojW2GqV/XG19dVmnp 7gRpwTMZVdRjmWjiWCE6lNk7TMidqdHfKmNHF3nMAAAplK4jnH3bB8HoRHJM OkMpUnIMqL/hHTdUGifDSu7hfgYPQ3rV9K/EqnAy9GJY8zwqlAYRPg9TTByL BGx4jRlzFKMNCuEcAKzPOb1kW0elsfVOZ+gLd24f3b9vMeQaIX0lsyn5ZFu0 nMdIkzLdXLdlV2lR/Ckj5YdsRsUVDvXGeBPHIgEbzLDGWE6cw6fJHgK9AcDK pPSGpVpFuCvFOV6XzjAS13inN3pl6epFxatdJx5jEmDD0h+/+9VPdOOG/C1H jY6UH118eVF713gj2DpiY2TC9WY4/VC3w6UCwLJE9YZuovf8pDznTSmNzZbO sAKfPHpEq6A29qj6+Tp9xZe9pXscYNkOE3I536TOYDVAfnSMGopKC8Uk2JHV Ajboxg227WzlkmP6tQIAFJF6u7kPpJc6OhhFd5hNZ9j3fMw8f1VlnW2z1X3X AH21a3B+aNCQpT/kaCsrYlUUxdLlx62IOC1tdpf45NTwOiCuuONZtOPdkcFH DyWHd028+JzBzQMAWIgGcKbCvOVL7S2yme0VLekMK8DRgI2JhwPOd6fAxWiF MfqnAVGL1fKjNNHVSEpv7GHi4PNaKjp0a46B6dsGuibh1Ga1iwYAkNjt4Urs n7HzsaQzrICct7a4zvfWG90TYKOmKnlzpwQSZOWH+/zlzc0njx7tNPtW3Afd rfd82WeZEVIsEiMh40LpvynJsYJFCAAgsQRwhnb1umlONp1hjxOswLOT102a 3M93Pd+O/er5Uldcv7OLlJkK5QetwkOb+5vDP3odkYa26D/1dal4Y/o6YmPL Le4zGK87ikoO6A0AlsISYBDOa6q7RGWB73WMG1tsPhstQ5qCv6yfb6Pe6DIk Rf0mUT/FXEN6itNl1T+3/fK992jCG6rixuhTxb7R0aWycsTjCs4USdbYQnJ0 VvMAACHjAzhXrr+xXTzCHCl6myg8nhrlefh2e/jo/n33t54PW01jQmIqEFQ5 Vl/HTTtK8a6s86VUfuhGDEWN2Ik6K6cP68xSz0DK3BpKjlktBAAw58uqJbMC OKPpDCv0rlmDdkpynF9f9FbWHXJnJ1VH+5rmLQmJSiCofqx1eu/S9BP2v1TL D11vdHGphK1a4XVgVnsGiFBVLnXRALizhD76bbEAznNigfXxbdBdJ3LkIu+D VBreb/sGEsgWFu22yKDBLBKwwXRJdK2QH3oSULtLRbHVrMAKL6YO31DvLsjS vk7zrxMhBsD1EWoM7tPoxcwGNA7uZHbK7ixCXijla89fLSb10f37Tx88SE1O 96iMVHqJSg0a/Kulhr/uJTXknrPy49njx9Hib/TbRr0hXRUrXOqQ7pp5P6RQ jLoyITkA6EvUv0kaw+vQ9IDG8bb0orDMnZDjmvI11zxOi3DjUdQU0P1E7AKm zqDhHWVBZ/3eI3I099aJDXeXKSDHs35Iu5bSNmWNQqU+3iIs3rwoSiT8IqFi ABwd7ic5fkAZZahrVQI4vXnfmG5nekqgxWFBYsMNQL987z1SHXKJN2nc2ENs 6GNunUEjPMr0UWan4l2lbXDHfXlz4+6v26I2kNtXC/wpC+4sHiMtUdYWPBaK 3linjjEAR8SY1SjxBi+lHrUnOQZ0+15n3pLJWAHrjehB6VLThNcpDUpm4cGI mirrNXVsmD7sZkt1WVgkYGMFpeG1hx+JaPILG0CirVVMiEuN5jvlUk1hnbA0 AK6GuslsxRx2pOrwgjbH+7XDTFivYby6irwg3Fqa8O5h3EiFELQYNHg/E6MI 5HmtGTwZVY/yspNnLdRIK6xRaMnBya4tOKCdHYHeAKAj1WbzFoP5MPfK3Olt 1KWuhBTyF0iEkIfl2ePHvdoTtZZUGLWy+58SsHG6VINcU2kQ0aRX2Vqycbmb TiM7D+76wMcl9VIb3dPGLfRRho/3CrqoI0ok/BHNNQDMoqVb7uKdH6A6OOZ/ iuTg+iRMqniU9LycLrUuearbZcR0O5HrRLQEgkaZG7ARqrjVlAZBTrSKGh26 3nDbObEs0YBNOt2y7dz3+vZGiYSH3gDAwlmUr6zolnmc6tKf7606aK49ZTSU 10c6GpSBnmeRvIpHaJGowO2TUm45MqTvuDw3YKOvcNqVaHkHSUpvZEvccExI dKOnrn1L6Q22iV2Z3tiQDwtAA3J8r+iW+4qNaKt2GrMmTsC92gjZkdF9Tmt5 yG+2HF1aS/qOy9MrbERTtsc3w0i2yEYqwGaFNQpDi2ipLjroME01vtgldLgo FADGIye2FWMu/3ynkWVA2uwwySHzAb98+t3P33+bD5q9gDLKQl6T6lvGYoOz m3vdvrkBG1tCbKxs39hyS8+nDCArrFFoSVbadW1BAMAh8KbYpT9n7//eI4uX JdFdGAyQHFEDrFMd9K9F+cXe5/yhpcAy70q6ZjrevgFXUj9NWVFtcY0hSXlM CMUAcpT6G9eUDwsAKKKXWWPkNHbXtNldB0plfpcdF1JiQ35hszmUeVdcRqzF icbwAzAgYEM5TY5VOIrGkOgulazDJSxx8/yyrMA6dF9bEACwLGQl2JrNGo3B Ho3s517JjuzVVBckNDYpq2ek2+vjhw8pDqQ6xTVsoYw/qTOUWQTkddeRZn9Z xb8S8oY+X2C1IADAnYU1xu2rJJSjmDWipFRH4wC6k+RQnNeKn91ucsnqGXk6 HaWal3Da8kjI/aS0x3XXkdZdKha9Ib9zrlrqFwAA2vGGhhazxjpu8VB1sA2n fZ8dzzGrN86XxUDDZljGi+z+T6/W6XD//eTRo6cPHsjKUS2JkFSHija326J8 SW+TJVVT2qNOth2FlNOEngpdjRDed/az1wEAQApPbJQaNxqDPfbGy8hrt710 76izA6U3yJIqoBE83BvXdXx+KVWa3f9nT56QJAgTYKs3WkdMbl4l9vbNi/m8 C3qDDBTywZOCzQlFxcoRapJsZQ8AAOhLdNpo+aHnQFl2ohTWVW5UC10kB5cS /e0P76VGSYp1PImFukgVfHjvHi0Ly2vFkggJB/TNMBBzzIZn3DjVFrWmOBDe 3D5f3tykvmy5Vp7MKC3jcB1pDqyWpajwaoQqb240ZgOBHACAYXgDcYXSOEp/ FcqquZKDZ5e//t53UgPl7371E2mvcKKCxMbP3nqLlIZnQ6C8Eq76RfdFH4jD B6BXlEsvFcpuneqw2KPrDVZx4aNr1xtRa8ZZXZIYAAB6ITurOqWxsllDkooT mCg5uA0/f+edL59+NxwlqeRX6KGQsRCuDV+8ePHy5oYCMKLnqOgZN0bLX6V8 NBXnNeXBuOI60spz65mzUqQiQBDIAQAYgGJNJV3h/e/hZIaHdExEhRZVi5IF o/QdysAVywVhY8Wzx48pkPIvfu/3fvzGGx/eu/fXf/L7TmDQcX/7w3tOJNyK lVPIV+I2py4sR/HOlPcsNydyTpeFZWmTq7MpKFeJDjrx2bjWOtKeHUO+m8bo KaVMR5e4JgAASKEka0jT63UojRAelLmjrijG6HbCYZbc23Nkgszv8Oan9CsS G24j7cHFn6OpKC3DgduhHIhZz3DjaUFzi2X+KCUrrw/PURV+nhWKig0EJg4A QDuywjPNRrnKU/jlc3qJ6qtRGimUoMpwMJUyjDwdP3/nndSlk9eQRAVFX3x4 75774cubm9RA0CvxR5odWAtRAiw1Xkk4bblKoC9ScvCHMnVFR0mbzRYpBQAA HfvCBJ4dQw6RhwgHbUSpFvWVKBiVuko0alMNcBlcEc3CkFaRz548kdYkLigh D9Qu8+R+5MhyK9I9UuEft6LMhfEqgf2IhlsYpYJepgO5KgCAavTRgWejqTH0 Ts13lAv1lajDqdSn+vk773z88KHlir28uSGx4f7YxHri3h+9bEpeYgLrDc+h FpYDZdXE0SmWqwT2JpQNxkmB9B6G2O0kAADgYZmN0hiqVH28bh8Ko4+kX8UK RsmwTC/ERT+WFBubKCGe9WXU4Y0yUm94p5MtiFFxlcAeeLfPqEvp1j97/FjZ LUwcAIAKMDrYUYpUFF2rbKg/ZaZwn5/yYnSUebevUmLlCX7+/tvuk4pd9bpK oJEwfcz4Q92CARMHAKAO6A07+khaVMNBkRycf8qf3F5yXfczbkSTYUtPiuh4 lUAjdYo0u9IKTBwAgAowOthRqlOWCrOzWHxTJgd9+fS7VMKLe3tOVAkDJ3rZ N6KVxHgrzSjpeJVAO/Lponzn7E+yeSgwcQAAKtBHB+gNj46VJSgQIho/4wQA f+2zJ09kvdAijcHRI/qvUsYN2ioiPFF/YxHqiqla5ARMHACACuz5sICQ1Slb ClQqYo/rn5AnpbqpYaHUcNl6RWy0GCV6XSVQhxIKnr0XWZcKTBwAgDpc/yN7 J4wOY1BGBLIqhMmJ3sKpcp1WJYEolchMo8ZOegPMJft0KVhKe2U1CQAAgEXI jvJU8itV2LN6Y78M6RllsXuYuY5Li4a0mC9QbhQAAI6CPiIokaJeoS3ePOvH llv5nf71Nz/6PvTG9dFos7KYL+5U+R0AADguWb3RHpKnFyC9fbXeayps9atX VThajg4moqSeWTSkZUFYuFQAAOAQ6CPCgHg8eYgwhuc3P/o+RpPjokQjd8mK NX4HAADAXFxf/evvfSc1ItBYv2u+YXawwOz16NTlwzJwqQAAwBVAVUOjtbbY uLGr3sj6a5DweAVQjS+2WRXlnSFLBQAAjo7rpZ3YcJsb7sMRgYM8d20D9AbI YizEAZcKAAAsiEw84SwSrwbXgOKN2aEEegNY5ASeEwAAWBASGz99800e68Mu fUwHnj0KxhGwmZdvg0sFAADWgcXGxw8fsvnCs2aMMW5g3gqMZGt/waUCAACL QOKBxQaFbch/lQJjQKRoeNAo0BuA0Fdnc3qDSuDS32ObBgAA4P9BMiMlNrbX zdFjIkU36A1QgmLioMK2pDeePX4MKwcAAMzC9cZOZnx0/35UbGyvD+tjnClb SWmFvVsCDkHKxCEL5sOrAgAAs2CzBm1uAuh9wZs5DhviLQeC3gAMPagfP3y4 vZ5OxQ/wGD8gAACAKGTckJu3mok0aAwzbhgD/KA3gIRMHKGuSH0OAABgGNK4 8dH9+88eP46u0Eq99LAe27g0hpvMwjwOGI7T8B4eaeKA3gAAgPFI40Y0TNR9 4v5LubHDIkU3m96g9kBvAMKL0/CCf9jEgfwUAAAYDxk3omaN7dKBO7FBhc1/ +d57w6aHdr2B6SpglNBQNnFAbwAAwGA+e/KEzBqpHph7b86TpfF9EX+KXnIB 3E08yRGaOCa2DQAA7iZOP4TZKBLuuilVdqQHHMVFQTXu4WHviXxW6aGa2DAA ALhuvvny2defvus2Xkreffjy5iZrWGYTNBs3lvKnQG8AhWh4D6J9AABgJ5zY IJnhbe7z7G+l3mDjxv5N/v+HVkYHBIuCLPSQeMndE9sDAABXTFRsGCUH643B xo3NEAuKYFFggRKsZrcCAACunL/72z9T9MbXn76r/5wLNo4vXAC9AfpCXkV2 KZJXEQAAQBcUsWHRG9urGIkpaSBZOYHcRmAnKrwhOQAAoBe63nBbdg806I8P yzTqjZFNAgclFcJkjGICAACQhQ3I1XqDqm2Md1voesO4ugoAm+pVtJj4AAAA ZNH1xsr2ZKkoUoVPEbwBLDRKbgAAAFkUS7LS064QWcd6w7Ou0N+oLArsQG8A AMAASutvrBBZx7U+KDVG6gqOX0XwBjACvQEAAMNgFUGFRlNiY5HIOlYUYRKK txoX8lNAFsWruLJLEQAArphFIuu4zpinN7zPYeIAFhZR0QAAAJh1LM/SxMEf pnQIADoreAkBAAAw6+gNKS34Q7nUOIJFQREU+czGOlg2AABgIuvoje1i4pBF NlhvoPIGAAAAcFyWiqwLi3qx3hjcEgAAAAB0ZLXIOs9vgjJfAAAAwHWwVGQd 1ftK/S8AAAAAjss6kXXnly9lEgrCNgAAAACwNzBuAAAAAKAvtIyLXMlldosA AAAAcFWULvsCAAAAAFCKUgYEkgMAAAAA7SjLuAxeyQUAAAAA14pe5hR6AwAA AADt6HpjfGV1AAAAAFwfSll16A0AAAAAdEHXG0iMBQAAAEA7yjIuMG4AAAAA oBeovwEAAACAMchlXOau5AIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAABQ+L8Vvybw "], {{0, 192.}, {360., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{360., 192.}, PlotRange->{{0, 360.}, {0, 192.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[757985]}, CellChangeTimes->{3.848017276688623*^9}, CellLabel->"Out[134]=", CellID->440263455] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell[TextData[{ "States graph and branchial graph styles are used in the \"StatesGraph\" and \ \"BranchialGraph\" properties of the resource function ", ButtonBox["MultiwaySystem", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MultiwaySystem/"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.795694244391304*^9, 3.795694282538352*^9}, { 3.795694351867984*^9, 3.795694367631238*^9}, {3.807013106946039*^9, 3.807013130637127*^9}, {3.866723992971139*^9, 3.8667240105761337`*^9}}, CellID->383538463], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "/@", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.795694232415392*^9, 3.795694237427463*^9}, { 3.795694370581027*^9, 3.795694376174527*^9}}, CellLabel->"In[135]:=", CellID->968350945], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"EdgeStyle\"\>", "\[Rule]", TemplateBox[<|"color" -> Hue[0.75, 0, 0.35]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\<\"Function\"\>", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.75, 0, 0.35]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\<\"Options\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.75, 0, 0.35]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\<\"VertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}]}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"EdgeStyle\"\>", "\[Rule]", TemplateBox[<|"color" -> Hue[0.89, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}], ",", RowBox[{"\<\"Function\"\>", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Graph", "[", RowBox[{"#1", ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.89, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\<\"Options\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}], ",", RowBox[{"EdgeStyle", "\[Rule]", TemplateBox[<|"color" -> Hue[0.89, 0.97, 0.71]|>, "HueColorSwatchTemplate"]}]}], "}"}]}], ",", RowBox[{"\<\"VertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.7`", "]"}], ",", TemplateBox[<|"color" -> Hue[0.62, 0.45, 0.87]|>, "HueColorSwatchTemplate"]}], "]"}]}]}], "\[RightAssociation]"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.848017279468566*^9}, CellLabel->"Out[135]=", CellID->478293809] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "}"}], ",", "3", ",", "#", ",", RowBox[{ "GraphLayout", "\[Rule]", "\"\\""}]}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7956935533992*^9, 3.7956936057151537`*^9}, { 3.795693933920848*^9, 3.7956939402623777`*^9}, {3.7956942197287292`*^9, 3.7956942579941587`*^9}, {3.795694380808483*^9, 3.7956943961006823`*^9}}, CellLabel->"In[136]:=", CellID->166381311], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzsvQdYVNfWx50vt333/XJbkve+9yYxvWliRQUBRRGHJvYau4km1hg1KnZR QAQECwJSBRkREbHSe5+hDr333qVXv3Vm43EcigNMYYb1e/bDM3PmzDn7FGb9 z15rr/XZ9l9X7Hz7rbfeOvT/wp8V244uOHhwm+7Kf8Kb1fsP7fp5/46fNPcf 3vHzjoMK2/8AC2f/P2+99T/wgnr9AkEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQWYTD4ejq6upwYTKZ 8FbSPUIQBEEQBJEYoIVAFKmoak2coghtujyDoa6NAglBEARBkHELk8kEabRt n7HTswpo8EJBWV1XV1fS/UIQBEEQBJEMOjo6U+WUiDQibeIURYa6tqT7hSAI giAIIhlQHSEIgiAIgvCiq6sLWojXs6aiqsVkMiXdLwRBEARBEMnAF5WtoKwO bzEqG0EQBEGQ8QxoISaTSWb06+rqojRCEARBEASRCJhnCUEQBEEQhIZ49BSU 1YlHT0VVCz16CIIgCIKMNVxdXcW2LyaTCdKINxqcoa6NeZYQBEEQBBk7RERE GBsbi213oIUmTlHkzSQwVU5JR0dHbB1AEARBEAQZGqKOioqKxLM7VEcIgiAI goxxXF1dQR2Jzbmmq6vL51nDPEsIgiAIgowpjF8int1xOByGujadZwmjshEE QRAEGVMQtxpBbM41zLOEIAiCIMiYhVZHrlzEs0cx7AVBEARBEGTEEIEkHtES wUUMO0IQBEEQBBkxYlNHYp4chyAIgiAIMjLEo45oF55I94IgCIIgCDJ6xKCO SNIAsfnvEARBEARBRoOo1REtjVAdIQiCIAgiFYhaHZHt6+npoVsNQRAEQRCp QNTqiM4YgANHCIIgCIJIBSJVR7wbx9lqCIIgCIJIBaJTRzhPDUEQBEEQaaSo qEhEVWgxEhtBEARBEGlEROpInCm4EQRBEARBhIgo1BH61BAEQRAEkV5EoY7Q p4YgCIIgiPQidHWEPjUEQRAEQaQa4aoj9KkhCIIgCCLtCFcdoU8NQRAEQRBp R4jqCH1qCIIgCILIAMJSR+hTQxAEQRBENhCWOkKfGoIgCIIgsoFQ1BH61BAE QRAEkRlGr47Qp4YgCIIgiCwxenWEPjUEQRAEQWSJUaojCfrUOByOrq4uQ10b GpPJhLfi7wOCIAiCIDLJiP1iEvSpgRYCUTRdnjFxiiI0FVUtHR0dFEgIgiAI ggiFESscCfrUmEwmSKNt+4ydnlVAgxcgkHR1dcXfEwRBEARBZI+RqSPJzlNj qGtPnKJIpBFpU+WUdHR0JNIZBEEQBEFkjBGoI4nPU0N1hCAIgiCI6BiBzpGg T62oqAj+6urqKiir83nWmEym+PuDIAiCIIjsMVx1JE6fWhEX2JcrF3q/HA5H R0cHFNFUOSVoDHVtjMpGEARBEERYDEsdidOnRu+LAOqIDBwRQAsxmUwdLrq6 uiiNEARBEAQRFsNSO+LxqYEKIiNFvNJIpHtEEARBEAShEVwdicGnxqeLeL1p CIIgCIIg4kFAdSRqn1p/XUQHHYlojwiCIAiCIAMioOYRkU+N6B9eUYRyCEEQ BEEQySKIOhKFT23AwSIhbh9BEARBEGRkvFEdCd2nhroIQRAEQZCxDBEqQ+gT YfnU+JxoZJuoixAEQRAEGWsMrY6E4lPDwSIEQRAEQaSIIdTR6H1qqIsQBEEQ BJE6hlBHo/GpkfIfqIsQBEEQBJE6BlNHI/Op4WARgiAIgiDSzoDqaAQ+NdRF CIIgCILIBgOqo2H51FAXIQiCIAgiS/RXRwL61FAUIQiCIAgik/CpI0F8aqiL EARBEASRYfjU0dA+NdRFCIIgCILIPLzqaDCfGooiBEEQBEHGDyQxEW+ZD95P URchCIIgCDKeieBCXqMuQhAEQRBkvMHhcHR1dRnq2tCYTCa8Jcv5RNHo688i CIIgCIKMfUAL6ejoqKhqTZyiCG26PANeE4GEg0UIgiAIgoxDmEwmyKFt+4yd nlVAgxcgkA4dPvaC619DXYQgCIIgyHhDR0dn+kxlIo1ImzhFEfSSpPuFIAiC IAgiGUAdyc+Zi+oIQRAEQRCEoKurCwKJ17OmoKzOZDIl3S8EQRAEQRDJQKKy iX9tqpwSSCN4TU9bQxAEQRAEGT+QREYvuAKJyWQSjaSrq4vSCEEQBEHGGyS9 DxEDvOl9xg90gke+FEZFXCTVKwRBEARBJAJxJDHUtafKKUFTUdUaV44k3sTX /aURyW4kqb4hCIIgCCIR+qf3gbe6urqS7pc4oAuo9S+jRhhsOYIgCIIgMoyO js7EKYp8E9hhoaT7JQ54K4MM6EFDdYQgCIIg45DxqY54HWpDVExDdYQgCIIg 4xBdXV0FZXU+z5psp/ehHWpvjClCdYQgCIIg4xAOh8NQ154uzyBFV0EpwVsZ jsqmpdFg40W8kPElnLaGIAiCIOMNkt4HRBE02U7vM9j0tKHXR3WEIAiCIIjs wRtoJLjaQXWEIAiCIOMcVy6S7oXwIZmLSKDRsKQOqiMEQRAEGefIpBgYVqDR gN8dwRcRBEEQBJENZE8dDTfQiA9URwiCIAgyzpElMTCyQCM+ZOmEIAiCIAgy AmSmstiIA40G3I4MnBAEQRAEQUaGbIgBwZM9vhHZOCEIgiAIgowGac8OPZoY 7P6gOkIQBEEQRHoDs4USaNR/m6iOEARBEGScI6XqSFiBRv2R9sE0BEEQBEFG iTSOlggx0Kg/qI4QBEEQZJwjdepIuIFG/UF1hCAIgox9OByOrq6uDhcmkynD JVMlhbToAVEEGvVHWs4GgiAIMm4BLQSiiKGuPVVOafpMZXgBb1EgCRepCD0S XaARH1JxNhAEQZAxiC4XolWYTKbodgQbV1HV2rbP2OlZBTR4ATuFXYtuj+OQ sa8HRBpoxMfYPxsIgiDIGAQUkfycuROnKE6XZ0AD9SK68RzYMuyISCPSpsop wUJR7GvcMsbLZ4g60IgPVEcIgiDIcCGDOcoL1+jfCAKtAn/VdLaLbjwHtsyn juAtqiPhMpYDs0dZVXbEe0R1hCAIgggOGTjilSsgkGCJiBQLiK7p8gxezxpo M5H68sYhY1MdiS3QiI8xPpKGIAiCjEGIOiIDR3QTnTricDgMdW0QSBOnKEJT UFbHqGxRMNYmaokz0GjAXaM6QhAEQQSHBGOr6WynPWvKC9eINDYbtBBx5xH/ HUojUTCm3EliDjQacO+ojhAEQRDBoafYg1yZLs+YKqc0d54KBgJJO2NHHYk/ 0IiPselnRBAEQcY+TCaTpGckU/sl3R1ktJABE8lKAvEkexSkGxI/FQiCIIgM UMRF1HtBZ4fokLgkkGCgER8SPxUIgiCIzCAGV8gYcf3IKhIMzJZsoBEfqI4Q BEEQYUF8IiK1bmizRIqkXFoSDzTqz1ibwYcgCIJIKbzZaUS6fVFsHHkhicDs MRJo1B+80xAEQRBhQVs6UYwD0M6XMWVGZQkxz2QfO4FG/UF1hCAIgggLenhH T09P6BpmLBtT2UCc8TZjKtCoP6iOEARBECEiurEj3oEpHD4SBWJTR2Mw0IiP sZP9abzR29tbV1fX3t4u6Y4gCIIIEzK1XxQaho5RQZslOkQ9ZjJmA434wDtN Ivj4+GzatElTU3vJkqVw/puamiTdIwRBEGEiotSCaLNEjUjPsKSqyo4AvNPE j6+vr7qG1ixFxuy5S6bLM+Yv1Dx8+HBPT4+k+4UgCCJMiH0RrkBCmyVqRHeG x3igER94p4mfrVu3gjQ6cPrWraflV5yTlBauZqhrsdlsSfcLETeVlZXZ2dlt bW2S7giCiAR6oECI1hDLg4oaEZ3hsR9oxAfeaWKmqalJS0t7pqI2SCPStu03 mbdAw83NTdJdQ8QH6KIjR45oamqDMF6xYiVefURWEXoA0lioBSbbCD0wW1oC jfhAdSRmuru7V6xYMV1+kak9C6SR45MyrZW7VdU0rbVPx2jbF9rGdDXiSIKM 09nZ+fPPP8+drzF7ro6q1hY5hUWgkR4/fizpfo1H4FpwOJzY2FiM/RMdwtUz WOJB1Ag35aYUBRrxgepI/FwxvwJyaM785Zt3GWiu2CWvxFizes2zry/4fUi1 wK+M4te5lHkkdzd3SLqnyAD09PRkZWXFxcXV19ePbAshISFqDK0Fmput3XNA IR81cJ81h7F582bh9hN5I3ARN27cuIihpcbQXL58uaenp6R7JLMIscIIqiMx ICx1JF2BRnzgnSZmWnJq2NuYv+88oK6hpaKquVBNc+2qNfGR7KbMqrSjT0Pl zP0+0qdk0kf6wd9fTtrhXu2f1d3aKeleI30UFBT88ssvDA3Kni5erGNvb9/b 2zvYyr09vR1Vzc9TKmqCcsruJuVfj8g87cvZ5XHj0KW58zV2/GZOXKuOT8pm KGhoaWtjAJI4KSsrA0UEzyaqWls0V+6SU1ikoakdHh4u6X7JJkIMQMJiImJA KAHJUi2NXqA6Ei/tFc8Tt7qxl91iadk93G5hvdPQRv3008/00nWfkRXAntaE 5oEoCv7O1J8rk/w/MQibeTX18JPasLye9i7J9n+c09LSsnnzZqV56spqa7RX 7ZGbo85Q17p//35PR1dbSUNDQmm1b1aJS3yeWVj6cS/ODvfYFU5wrekWrWEX Nvta4JdGNxYdV1XTVF/2s8OjElBHFywCwTSvXbu2p6tb0oc4jgBlO2+Bxuqt J0CdwlXYd8JOQVn9yJEjku6XzCLEIiCojkTNKMf6pDTQiA9UR2Kj63l78u4H YCXTfn/CWurIWuzA0nGIWGDl95F+yFSzztoWvpXL3JLYK52CvjUmMgmsaqSy ZZaef11UYU/nKzPa0NDg5uZmZmbm7OxcXl4u9sMaR/j4+CykVM1OO89CsKen TB7PnMPYtGEjrwTibbHLnZJ+vJfy68Ok7fditO3ClSwiVa2i1G1jdt7Z8MOG OXPVF2huWrHx95mKmmoMzWsHDFMOPGrJq5X0UY4LOutbDfQuwCU4anCPjOCZ OyWARt26daukuybLCCsACdWRqBmNMJDeQCM+UB2Jh56OrvRjz8Biph58XOIS Dy8yz/nD34TNriFTzPwn6OffiBzwi60FdfnXI6LUbEAmEY9b0Hem0QybHJOQ enZxbnbODz/8MH+hpuI8dXgQXr58OWYGEB1OTk5z52vsPHSN2FOHRyXT5Rna 2trsrUzOLx6Zp3zyr0WU3kmsDsh+nlzenF1d+TQt/bgXLZbi1zPzLofCVSuy Y3n/bLtp7YZFDC1VNU1NTW1zM7OkvR6UoFrhVMJMwEEkEdFR3Vz5JD3jpDcI 16u/GqioaoA6JSN4u45YgljS1dWVdB9lHKEEIGEiGlEzYmEgY4XwUIeLmt6e nmyDQLB9nJ334aE1ea8nvK4JzoG/iVvvgl4C2RM5z3KIMOzent56VlH6Se8I pRuB3xgTj1vodPOfVm0GXaS9eu+hcy6rtxyfrcRYt259a2urOI9uPABWtfhW 7J3jlgvVNBlLfrL1LAB7esL44cw5jI3rNiRudytyYLcWUUHa3S0doI4yz/rR brW41bezDQNrw/PJiF+VVwblZWPYhKtZ3V1tcnPe8Qhdajp/d3tXkS0LrDZ8 mrL/YXN2jYSPWYZoK2ss90hJO/KUVqpwURKu+61atVpBmTFXba3a4m1wKUGm jsOHCw6HA5pQhwuTyYS3It2dUCb4ozoSNbzjP4J/S9oDjfqD6kjUFFpFU8NE G++0FjeA1eOKIreu5+3Uwg136mOKgiaZBH5lVOqa+MZNdTa2VTxOS/r5frj8 dY9JZxX/O33mNM3rVikOntTzLxhutUWaLBZLDAc1TmhKq8y5FEykTuQax00b NynNU1dUXaW5YpfcHAZDXcty64UYLXvKSTrPMnKBFajcmCUO1CjQSmfQSDWB ObxB9Y0JpWRTyfseUuusdwGhCy94d0fcr7BasXNcbxdmUB85oFfL7ialHHj0 ShStdckxCq4NzSMXJSUlZfv27QwNrUXqWqtWrnL+7WqVd6ake/1muruFNrQI WghEEUNde6qc0vSZyiqqWvBW1AJp9AFIqI5EDW+1X0HWl41Ao/6gOhIpVPgQ 91m1Kb0K3hbaxsDbIjtWT0cXtXzN7d6eXvYyR8pKLnXsFiDuure7pym1Mtc8 7MmKq4ofz1SYsfTKWdaVc+wb5sk6K35VXajp6/oEp7mNkp6u7pqgnLRDT/oi iFY6510Obc6qLiws3L17tzrYUwbYkSWmW05FqFiGypmHTDfz/9iAuD5DvjdN 3u1RH1vCt83Wgrr49Uzq6t+KJS+yjYOoYcP51q/tuqOr2IFNBpGS93o2Z1aL 8bhlgeacmpLb8URk9vk0f2DmXg6tjy6Ec8u3MiiNAF3ms922JT4pRD61lTWK oldDzG0UkAcPHqipqX3wwQcTJkwQSpcAJpMJimjbPmOnZxXQ4AW8FYN7cZQV RjARjagZ1tiRzAQa9Uf29N7YoSYwh0Tnwi/zC66DLHHLXVgCP+Dwa0k+guXF TnFB3xiHTDOrfJw22KbaihsqHqdlXwiAH/C+OVArHNeuXiMnp7ptk5HBUb/d m69P/kp53oSZTxWNWYsdCiwimzKqxHeoskJnfWvpnUQytZAEhpUyEzrrXjkr W0sbHmqbOc8+5SNv4vexvv+nlCgK+PRiwna3rAsBqQcf00YZtE2FZ2pnQxvZ LGeHOyzMNQ0F3QUv0nW9Su8m+n+kHzrzKihevm7AtUvhemCpQaRbsbxx+MiA wNNHkQM7iXuS6WuXfz2iIa6k/+nlhXylo6oZFBR1XY496xV20UMvL6+//vWv kydP3rlzZ0FBwXC/Dr8VS5cuffvtt7du3eru7i7EsR0dHZ2JUxSJNCIN3sJC YW1/CEbjgsFwWTEgoIKVsUAjPnCUUkQ0JJTGrnSG39vKp+l9S+JKiNEkb8mn 8NPdXvY8cr6V/8cGidvv8v6Sg0mtCcnNuxKetP0e72SolP0Pi+xYOUZBzAPX NDW1FeaqT5+tJjdtvtLns89M/TFoojHJKhmucD1pp3vFw9ROzL8tACBZ88zD 4lY5953kA4+q/bP5fFtN6ZWZZ319/n3O+x+ngyaawHkOmWEWt/p2tKZd/Hrm 82RqziBczRLnuMRtbvS4E6gmsNSspY6giGCDmad9YXm1b1bFozT/zwxDZ1xp rxogUTOsCbK5zxO35wEZe0R4ARkD57zwZgx9tqHBP0uhdXQjp0xAkcPZeR++ 1V7Z1NXckfQj9Y9W7p4s3H42NzeHhobevHkTBNKf//zn4aadNDEx+cMf/uDn 5yfcXr2QqDoaTQASqiMxQE7y0PJV9gKN+EB1JArA1MavowZ5wFDSC3NNQnh/ e8kK3W2UFyzjpHfgl0YRSjeqfDJAVhU7xvLGS1ChStvc8szCaoJyyThGoQ3l oYucZ+U479S+H3auW7Nu7+693t7eLXm1hbYxYK9DZ14J+NSQyir5nWmUqnXO paDGxNLRD+/LHmBD6yIL6MlloEayDQOJzqFpza8DoULMaMTcG97vnwWBxNnt EbvmNiypiyogVxZOe31M0cvNUoH02foB7BW3Qr6/DDoqaJJJgW3087TK2OVO sCbY4irvzMBvLoVMNwfRNVj3mrOqQQyTYcYie3Z/39A4pKerGx408q9HJGxy pf9BOD/fL3Zgj0BD0uoIXsP/CHUdVznDFRdBx6lE61u2bHn33XeHlXxDUVFx 586douiPrq6ugrI6r2dtujyDyWSKYl/9oW3rcL+I6kg8wBkeQvZIXVXZEYDq SOjAL23iVsqDBnqGXtjd2hnHNab0QAH5be9sbAPRUuwSHzzJxOd/zwV+felV vMRal6xzfuWeKa0Fr36re7t78rguAPYKp8gFVmB2wxQtWEsdYSHvOvXRhVkX /KMWWAVPohJL+n9qGDrDPG6dS9ndpI7qZrGdirFMd3NHuUcy56UvJmHDHTCv xEoS2kobS10TiYerT6NudwNRFDLVDMQn6KXKx2ncBFZP4QoWWkcTcVXtn827 l3yLiDD5a4HfGkdr2MIK4fLXgyaawEZ6OrtB6wZ/bxoyxQzk2RD9BDFQ4hLf N4i0y6MpdVApJdt0t3fBXZ17OZREbfW5L/c8KLkdDw8jI94syCrqv7LiOXlb eJO6jim/PhRRXoXm5uZ33nnHyclJ8K/861//cnBwEEVnOBwOQ10bFNHEKYrQ 4AW8FXVUNi8jDkDCcFkxAKpgQOUjw4FGvMDR6enpYeiREKGyPu6hIkIzT/vy usnAaMLCjBPe9JL4H5gRyhZZen4gk1hLHPw/NvD6+ym//16I38Asdo57nlze //e5p70r86wfSZ6Tfy08ePLlwK+MMvWoJTlGQf0709nQVvEwNfmX+6GzrwV8 cZHrcbsUoWgB3aiLKhw6HkOGaStuKLSKjn8ZwQXXq/JpOp2KHNRj+YMUOiSb EkWb7xZYRj1PqXjBHbULn3M9fI5FkS0VWk8ilBoTSuEjkFJkfRBdZFNV3plk LAK+C6om70p4EDchQ+QCaxBj6UefgTqCizhEvBkNCIDUl8OJ0IfxkzgdHitq Q/Pg9qavF/F7gs6H6zj67fOpI9BgJKK7+Fbs6Dc+IIqKikePHhV8/T/96U/P nj0TUWdAC5HYbNBFurq6tDSiMzdGcBHR3kdcYQTVkXjof11kO9CIF/rmxDtN KLzK+vjbI76JY5mnfGB5xZO0+piiwpsx8Asc8DklV6I17YhfIG7DHTCUwdMv g9EccOOgu0jOlsQtdxtTyuPW3vb7SD9qoXWVL2WCcwyDhugY2FYwqSwdh5DJ l/0m6HPruJmytO2LHFhtJUIwMdJCQ1xJFldekgZSE5aQj0BJgkbK4MvfaB5G hfX2vPJI5hgFhytZRMyzLLCgEniCECIh1uRT2AKZbga2lZ6/XxOYQz5tzqyG SxDNsE09TAVvRy6w8nn/rM//nks9+LhLgKLDoGZBgJFwNbhh+Nx/Mgbc7dUB 2dkXAmJfRoJRw3RHnpZ7pLRXDBCmNWL41NEL7mWCCwfX8XlqhRB3RLNs2bI9 e/YIvr5I1dEQ0HaQRhRP0CMLQMIneokg84FGfKA6Gj01NTV1dXW9vb0gUai4 0B3uvLOcwLbWRhaEz74WPMmEvdSR/qkP+tYEJEqxUyyZRNySWwumM/BLI1in v+HrqG4maSThxxzWL3GJD5O/FjTRONswsJ5VRE0P1w98Yz97urrrogozTvtE KFoEfmVEZZX81DBU7gpnz4OaoFxB8glIKd1tnaBbOLs82C/z3hRYRbVyRx5A llT7Z2fx5m9cczvHKKgusmDAdEOgfiPm3ohaeJO4Mnvau4iHlL5ktWH5IGCi 1W3DZl1lLXUsZSbQ3yXetyIHKuVga0Fdxllf3/+e9/7n6eApVGh37uVQQQRP a34dPTMOjoLErckMnfWtlV4Zmad96csBLzJOeFc8TuOrtiMs+qsjAK4a+V8T xemVFnX0op9AEpFNHEGFEQwIETX904QKsZSwtCCU1O7jluTk5F27dmlqamtq ae/bvddrhw3J+ggftZU0gEXO1g+IX88Ml79GzW+afBnsZvpxr7K7SdSU7d+o aFsQRfTWUg89Dpt9LWKeJRhr3r20FTck/USFx6QeeAS6CxpY8IDPL0ap2TQm lJKpcFl6/oJ3G2xQhWdqwmbX0GnmJFFP4FeXIlWs8szCWkYRwjEGaa9oKrJn x//QF6kCwrX8QQooIpCCtWF52QaB9NAENblMz78mOHdog8jZ4Q4nKlrTlh6s IymtMk760OvUhOYS8RmjZU9PxgdpSnRUy8uI36b0qsgF1v6fGMAGyYgTsciw waGVAOjt0rtJZHodHFFjUtloTtFYoKOqueJRWsZxL/o8UJfjrF+VT2aXiGdc vlRHr41H9Xb3EAlaMEiJn9EgReroxcuxHToAQ0TGYrhmCNWRSOFNEzpxiiKd JhQu0Lg654JM3EMGJD8/f+myZQrKjNlzl8xS1lGcp7561erUu1H51yKImKFb yDTz0BlXipxieS1v+lHKB8eblajKK4O1mHJ+8aqm5sxqYlVBVhH/S4FlVOQC q+DJl+GH/cXLiTaZZ3xHcAighfJvREQtuknXcQv+3jRuvQs8qg9R2UQqeJ5c Tomfl9aWhFp1d3TWs4pyTUPptFGwAggbygo3tQuyWdAkIGlYSx1pBdvd2pmw 4Q51KdOoeGnQXWmHn4BwDZlsyl7qCPvtbqHOZF1kAZtbaI/eFFziaA1b0KWc XzxAHpS6JtIh4rErnEjF4SFiw1oL62FHZP18i0hpTAHaVtpY5s5J+/21Gh/w QFETlCuIq1EoDKiOXnBPL1HOtO9VWEiXOnrxMjqXICKNNNxxCUwIKVL6pwlV UB6nVQhlO/JcdMC/p7KKxrofTzs8KrH1LFj2wyGVBRqm+/X6Qnm33M27HFod kE3GdhI2u/KGrwBgNymPTMqr2AYwo3FrbofKXYnWtM01DnnBrT1B7DiYDDIK AQYFTGfw95fBsIJlecGVAXxjF8OF8rhFFqQefhw28yqVB4DrcQuffS3jlDdv 96QCOEvV/tl0ADMYuPyr4c051Y1JZdQccK6MoYNYKh+nddYPoyxdV2MbfJGl 40DEKr289E4CiWLq7e3NNuTW1PvFozG1nOTPSf3tEeyFmt2/7BZvAHZbSQNr iUPAF0Zw0ckS+HpDQilcejrtEtxFxY6xg4Uf9/b0wD1AjDgI8oZ4IdtxEdFa UFd6JzHl14evQrzWucBR14blid9ROJg6Aio8U9ncZBoCKmcBkTp1xIvofG3D qjCC6kik6OjoTJ+pzJcIi6GuLel+SQCZDz4XEXv37p2lyDC6GU6Ktp++/Exe iXH4x/1gPdMOPy28GVPukUy5bwwDY7TsC21i+L5OZp+R6U40eeZhsHK4wrXY 5U5lHhwSgpt/LYJObZdjFAwrhM4wh49IHuam1Eo+Yz1iqEzR7klgrIMnmfh/ pE953L6+BLsrdo7jjaQam3TUtpS4xCduvst+mSGq1DWxjlVceDOazn1NvJPl 7sm8M/cFpzW/jhK63HQNqYdejQJ1N3f0FQe5SEmj+A13SKx7e1UTmcCYsN0t RtseZC25ZAT4FD4iORz47G/X83bQUbz6If3YM1B9A4oH0E50iVW4VcQ26jJc mrNrSpzj6OgvcqLghq+PKZJgMvAh1BGIVfIIQx5VhIVUqyOCiDSS4AFImPJI uBRxceUCL0AdTZVTQnX0gntmJN0FqeT06dNz5qr/esqRqKMdB68ozVM/ue5A 8OTLkQusye8/a5kjGY2J0bDl/OKRecon/2o4WG2wdMn7PKM1bPly3RCpE654 PWzO9ZBp5uzXZxY3Z1XDkghFCzC19C92U3olsZ5CPDTYUa5JSMTcG2Rinf8E /ZDJlzm7PeqiC4VeZ2H0NGdW55qGEiXJ5iYgKrmTUOTA4vDUlUje/aCEmTDK OeBkGJBEpNA5zwlg98OVLIK/M4Vu8A64dTa2pR1+Ej7nuv+nhtAx3q+QkSgq Vn/ZLd6UVq8dWlZ1wY1IOsNP/DqX/OsR/bNHgh0vf5ASt5pKqJW0/V49u3g0 hylEoGPPUyuK7F67Folb7uZbRMJzwVjIKQH/lZQ6Kn8+4KegosnJrwnJFdYe ZUAdEUShkQQMQEJ1NEqIt5TIof4zE3V1dUELSSpNKCIDhIeHq2tozZyjvnrL 8RUbf5dTWKSpqe2qbhgx3wpajIYdZ9eDpJ/vB359iVhAvgYiCoRHxDzLxK13 4dk/51JwsWNs5ZP02NXOwd+Z+Pxbz2+CfvHtON49wpMsa6lj5AIr3klSRDLx WV6h0NvVUxueT+U/nGLmxx1KAhMPHc67EjaYNREnYFtrQ/PoYRNqctNJb5BJ ZLimLwz7J/ciB7awQs2rfLOoASKu7yxphzvvRzVheQHc+Ha+S/aCO2MOBC2l kNVtSWwSvZyKSeOGmQ3tFOtu76oJzEnnyTaQss+z3DOFL2K5rbQxXbdvnTzz MOH6g4ZFb09vY1JZoVU0SYvady1+vFdoEwP37ZjK2T60OgKq/bLIMJewJs3J jDoiCFcjCTjBH9XRsCBDQ4PJIXImyagROe0kKltFVYukCVVQVhdzmtCxAJm1 BwcOjczak3SPpAwXF5fFi3UWLNSEtmTJUoejV2O07SPnW5EaE5Ttm2oWNMk0 80JAd2tHW0lDY2IpWNhSZgIYr2h1m4AvLkaqWPFKJtYyR//PLz575+Sz/++k 73/ORzNssvT8C6yiytw5hbYxUWo2UYtuxujYJ+9+QPehJbeWL9xX6HTWtZbc jodDC/ySmopFPG5x65iV3ukS8Yl0NraVuSXR5edAT6b8+ojXZZO45W6hdbTQ 00qTfI8FNtEkkIxe3lpYH7+eGSp3JXTW1RyjYL5vwaesJY6hM66wlzrGrbnd ENs3sNPb0wPbCZ1mBn/BBAvSAdA/xU5xtOSIXekMu6MyMr3UG/Ci4lEaSZwI q9Vxyx+LDZDT9ezi/GsRCRtfxXeB/Ci+FTtmayK/UR0B2fqUHuabSTpiZEwd EYSokQQMQCLrjHgvsg2vHOqvhfrLof6QNKFk5hpvmtBxAtGHIAsllUZeNigv L3c5dsNhq1HQBtv0E14k2WDsCqe8a+HZFwP9PzEkKR9JeG0rj2enwCIS1qzy yeyoaWlKr6oNzSu9m8hafivoW2Pvf572/T893w8u+H9sELOYigFmLXUM/OoS NXrzsYHfR/rRGrYZJ71BYoHQKnaOi1S1TvzRTQxFuJqzqjPP+IbPvkrGSfwn 6IPRzzjl3ZIrpjwALfl1YHyJCwnUGpyWuHUurCUO7JfVQPKvhjcklIrI/Vdg GQV7KX+YwuYmTSILO+tbidso67w/6RjIId5vwXWnIoIsIwtuRJJ7oyaoLz8k yBsQVKCdQHcJ3g2qiFtMEZhsOilQ0o/34E6gk/aArScBM1TMjGlo13PRDiL1 tHfVRRbAjnhrfKTs84QuteTVvvn7EkUQdQSXmMSzVT7LGP0eZVIdEYSlkQSp MILqiBfewKHB5BCZjz+yQJrxNljXf9YeCKTxOWtvlCRud4tZbM/mTh5vLa6H J+W+WJe9D2K07GLX3H4tvFbXqzogGwwKqehU+TSdbKS7tZNYtPgNd1K5ZSzi VjpHM2yzDQMqn6SnH3tGZdKebEpFMU3Qp3b3coPR6rYgVAK+NCJjJmmHn+QY BRfZsysfp9VFFzbn1AjdOPZ29VT5ZyVsdu3LA8D1uMGRgk4T0bzy3t5eOBZy fmJ0HCLmWkYtvAmN/bIgXa5JCBUTNVD+RiGSfYGad1YXRc3Nj11Olcqi5u9z J6TDBerp7CbXFHTCq5739JAxrubManhb4hJP+lzxMBXegpyIULRg6TiMLK9O Z11rmTuHd9As85QPyGwyoAe3FpnwCHfF0KXcRkZ3S0dtCDXpIO7lSCkZwyxz S2oVRo0P8ZDMPXskI+sQkIQMcKe1l43WpyzD6oggFI30xu+O85RHQ8shsnw0 cqj/7oTiOZUWMC5dWJDHTzJfqdA6+gX3tzR+nUvQRJPAry6VuVHDcfzhteuZ oC6iFtlUeFJWEh5OSawvCK3WwnoS/Ru79jbx4HS1tJNK4uknvYnxhR/zxqSy av/sUtfE7PP+wRNNQDvF8dRc4GtgJZP3emad84M+lN3jgFFrSq1sr2oa5RhL R21LgWVU1EIqpSGRScGTTMDc0M6j0QMmGIQE5+f7rCUOEfMsQ6eZhc28Gq1B lV+B483WD6TEgLiyfJPia3ApySR6ECE5F6ns6NC9Tm4IUEdNC/QKhFNbaZ+1 bYinLiWvJ5TUroUGYjJxq1vkfKsYbfus88NI5tmf5ykVeeZhdCUyENig01ry atsrnpMSNtByLgULJbMiHGm1X1aWnj/v/QbiEO7kkc0ElCwCqiMgzyyMOtKj z0b5XzMsddTc3PzWW28FBr45E/5YY5Qa6Y0BSONNHQkSOCTSbI0jq/kipQyo jmChpPslfaTsf0gPKYAoItn/GpLKAr8w8pugH7eeSWczBjteHZBNQmdDZ12l InW1qSGXRG5iHLChHVXNL7hDJSRVTuI2ajw/47Qv9el+z4St3KIVr5d/AgtI DPQL7mBCU0ZVbVheuUdy4c0YEA+pBx7RmaL7t9gVTpwd7unHvXIvh5bcjq/y yQRr3lbcMFy90ZhcnnLoMRW8zdVIcNSRyjdyTEM66kYeyAoCA0x87Fpn0A8h ky8HfX0pfM51lo4D9DnztC8YaPFPXScBP521LfHcvEmkMgi8fs1hynWf5V0J J29zTULgLShS3u3UBOcSp1jE3BuPFphY7NS3OGUSFRXVMzqz293aWemVQaeI hAZyrvJZRtmDZCLLEzffrQ3LH9nGQQlXPk0HrfVajY+TPrCwQzQ1PsSD4OoI /q/JfyXf1Rwu69atW79+vYArp6SkgDrKyhIoLG0MwpdAclgaif7ugJ/Ktjoa bhy1eBhBzRcppf+sPRVVLZy1NwJSD1HDPi05NZlcGVPumQILyx+kxCx2iFa3 JXaEjBHRgD1N3vMg4FPD4KlmxFkWtcCqJiKfXqGEmRC6wZ55yOK64u+eUy+w ljoWObCpcI79D/n23lHdzOZOzhqih2A3Wwvq6tnFYCuLb8WCyYaH/aTt9+hU 0v1bwiZXsK05hkGFtjEVD1PrIguas2uGHnzo6ewu90yNXekc+NlFIpMCPr8Y t84FTPawpik1JJRmnvONVLUOmWYW8IlB0EQTEEhwBqDPYIuHlb9RiPT29MLp gkacZeFKFjFa9tT8/deLo7VXNlE1TFc4gWqF0068Tu1V/IMqDXEl8WtdzKbv n/vf6XOVF82dr8FQ1zp27FhbmxCGd1ry64psWXRoNPQhQ8+Ps7vPAZdtGCj4 OYTDgfuZ1Fbu29oqquRKlW9Wp4hrfIgHwdURAI85bG4w/GjiqQ4ePCgvLy/g ykeOHPnoo4+6uyWWD0oojFgjDRGAJGMJIUcfRy0exknpMXrW3vSZylPllEAp kVoqku6X9EHGgprSKkF+kGEcEAMkXXNddCGpaEl5xExCeMdkyj1SQAAET7kc NMk0eJJpDDe0GL5bejepo6bl2eNnS5cuU1XTVPhCXum/08y2nyHSq/JJOt/e O+tauaNMbiPoeW93T3tFE9j3msCcUtfE/OsRsBfOLg8SXTywk27NbdB1mWd8 Cywioas1QbnwdbChvLlrOqqbci4GUUl+uHkAqBpz08zTjj2lS4x1dXV5e3tf vHgR/tGCgoLImEl3exfoqLgfmKEzroBipJIsTTMHeZl68DFVmb2fwBAzcFHo 8xy7xtmfio23qw7I7r9m/tVwNre6B8kAkHlq4DTmmTHJKl/IT/5Sce3mkz8f vq64YCVcbltbW2F1mErIEJYHV4q+diRkC0QdCKea4NyWlpa7d++eOXPG0NAw JOS1hIdtJQ1l9zjEk0hfd5DKVB26ljGabXJkkKgtwaOJCm1iolc63jpvefz4 8aNHj965c6e1dXhy/cGDB2+//XZycvIb13Rzc/vrX/9qZmY2rO2PWUagkYYI d5F2dSTqOGoRMX4CkOhZe8A4nLUnLIhugedKEEXkUbT8QTIZfiGaoT6miLg2 Un59SM+OyTUN9Z9gAEog1zikrbyx7G4SCS6C5r3XQUt78cw5jCXrflu+6tCU r+YqfTLTSulY/FqX/raJJBXknWAuFDrrW5uzqusiCyo8U4tsWdkGgam/PeKd qc3vpFvulPTjvfRjz+C4SpzjqrwyGuJKyj1TEre7BX1zqS94e4JBjLpt4Z24 Y8eOLWJozZmrrjhXnaGudeHChZwrYeFKFiT5ZMBnhmHy1yiheCeRJJ2WCL09 vT0dXXDCOxvbQIKC0I3WsE3a6V4XXhD4pZHvf/TSjj6Fiw6HCdcXTlRNSC6I zGrfrJLb8RGKFlS49WL7sFlX0094F9+KLbSNKbSOBsmUdyU8xygo7dgzq9Pm 8t8oLtc4aOdacOtp+UXrMDmFRZs2bYKzDevD/QBnr8o7szYkD3bdmFjalF7V ml/XVtYInelu7RQ8+oUq4nYngUysA2kU/J1pEDRty5+2/0TJb2UGXAh1Da0r V660FtSVMBNS9nnSlxXuWyriPbJAbMFdYma46qi9ufXQrgMLF2nKKzPklRhw Avfu3Qs6U/A9dnd3KyoqzpgxYwir5+npCSu88847ly5dGlPpoUbPcDXSYOEu UjeLSsxx1KJjWDVfkHFO1nl/+IElocgV3Jhb1lJH9ssIbQJY+ZS9niRMpSG+ pNovK0L5BigBeMv76wdGEIyR0aFzyvM1tu0zBqPp+KTsly1Xp06YvfEjRtw6 FzCyRfbsIgc2GFAQISUu8YX2rLBZ1yLmWsLDfpk7p9wjBfRMxcNU6Enl03RQ KWBhwWRX+2dXB2TXBOWAta0Ny68NzweTVx9dCJa9nl0MJr4xoRT23sgpe55S Aa0prbIpvRIEUnN2TUtuLdjl1sL61qL6puxqWL/KJ7PkTkKeRUT2Bf8UUE2b XFk6DjGL7eFvX1viCCeBnIe49S5RGraB31zyee+cz/vnTNQOg3FRUl19WI95 4PQt+XlLQSDdWHjc98PzQd8Yx2jb5VtGNiSWdlQ3t1c0wXkDk92cU9OUUdWU Wgndg7NXzyqqiyqEo4DDgTNZ6ZVR+SQdjhoOH0QFleXAKQ7OUuHN6AJLqihw nlkYnNVsw8DsCwFZZ/0yTvpkHPdK+/1J6sHHKfsfJu9+AEoMVFzilrtwOeLW uvSPb3eef27PxFWbPtU4+u1Gj2/OeP3jtPe/Tkep3RxMK4ZMuez73/Ne756h En7OtwxXtAideTV4smng15dIkgdoeksOzPpWaetqA1tmPlxoa/ecabMXLVu2 bLBtDjCOt/o2nHmQPcl7PdMOP8k46Z2l5w9iGw4Zjh1OAi2xaoJza6MKSu8m pB5+ytKyC5199ezag/NVNVW1t54wfvjrKcdZStoamtqe+/tyvIMMzr8aDhda 1NMAJc5w1dHjx4/VGNTde+KS52nTpyrqG0Ag3b59e1g77ezsPHjw4N///veV K1fW1g7gpDMxMXn77bc//PBDH5+R108cywxLIw0Y7jL21ZHE46hFxzgJQJL5 8TExkGMUTDnRuJOmqVCT9S7+nxlGM2z4MuDBRzmG1BSncIXrYbOvgTqCv3T4 Li96enoKyupgtkiNEv2L/t99LL/477Oj1Gz6m0iQIiQPkuBWVRSNtexWtKZd 5MKbEXOp4wqZZh48ySTwSyOSGYlKtT3hgs//nfP6+6mdmhtnKzFOmTwmR3fo nAtVkEVl87N3Tnj987T3e2d83jvr8/5Zn/895/Nvbvs/qvn+R49q/9Xz/eA8 NL8P9f0/4rYJBlT72ABURwC0Twdu8OmwWsAnBgGfGgR8Zhj4+cXT/9kw+2+T pv5XbvJHs6f/e/r8v091+Ps+r3+dCfzGKGSqWeg0s9AZ5sGTLwd9Zxr4jTEc Mlx96OGzvx5/+mddOF6ff+tBoxJYkfYfPb8PqBwI16b8Nvu9KbO+0zy939P0 TMRK7cMzPlfYOkknaoF15DzLyLk3QFOFzb4aMuNKyDSz4O9MAr81DgJx9flF aobgBH2/D8+DAIMT4vMfarM+sGWyI3Le4O/71Gn0hpP53hnvd894/6uvwUn2 +tvJ9SvXyiksMrGLIVfhl98tlFU0Lmw4Cko7Wt02ds1tSiW+bPGDtDhYbcC2 euAWu8p5wBY3SItdOUjjRnYNoy0fuMF9G/DFRW6hHzsB7/Pje35XmKt+1OAe OW/nrvjAzQxSZ7g/GnZ2dqB/3n333ZKSgdOk19TU7Ny5809/+pM0TlgTEME1 Uv9wl7GmjsZmHLXokPkApOFOIpBqent7o6KiQkJC4MFNuFvOvRwKP5u1IXnk bcZZX/i9BQM34MqcXQ/8uGadpU2NtOSavBbv0dPVXfk0/fpxYxVVzSXrfrN5 kO/wqGTdxlNT/2/Gj++qF1hFVT5Oq3iYWv4gpdwjhRoqcUsquR0PagQsKbwo cY4rvhVb5MCmxpdsWdTgiVVUgWVUgUVk/rWI/KvheeZh0FvYaa5xCIg6ajjF gDuiouefedYv84xv5imfjBPe6ce90nW90o89S/v9Sdph7hjLgUcp+x+m7PNM 2esJj9ucXzw4O+9zdrhTQy7bqFGXxM13Ezbeif+BGb+eGbfKKUbLHqw86MDQ aeaUTZ9gQImE9896/e3Uj9obZikyzl8PIPZF96IHSMHd8zY8/euJZ//fSa93 ToLthtWo9ndu+we0033tn1Tz/ucrW0/ZfdLeO0saV1aBCCEiippAB3IC1EjA 5xcDvjQK/PpSEMiMSabB35uCtgmZbh4qdyVs1tUwhetwDkHaRahYRqpaRy2y AZEQrWH3VM1M+b/TJ3+ltHnlhcM7nTRUfpr+qfya91RAxfl/QW3Qf4J+nz75 D6g4Pa6iOwt/ueroGPQWVgj43DDgKyNK3kyici8ET6FSV/lPNF7xP3Om/+P7 7z5RmPS54tQPZs555zu7Dw/4f0qJPa7+ufDG5vsBt4FMguPlqi/qPP/va+qI lkbU2SOn8W+n1q9aO0NhkdmteHIV9hy7qaSifmHjETgVZCrBOGkk/Xu0hqCH fGLvEQVlBq2Ozpp7jUAdbdiw4R//+IeHh8cbZymuWLFi+fLlw9q41CGIRhow 3IUsEWNP+bskFXHUIkK2J/hLe1TbsIBfIQUFhbe4aGpqCnfjIDzYPMUgMvX8 4Pc2fI4F36Se3p5ekjIlWu1mjLptpIoV2NY03b48b73dPdW+WSQ4JGSTw5o1 axTnqc9S1lFQWTbjW2Wlf029M/0MaJgBDq2rm82dSSTcgxKQzvrWprRKKqj7 TgLorrQjT0lW4deGlZY6koK21CDGP0/rqe2bv1BTTWe7oWXIBYtAFfUNCxdp mjIOg2gMmmwSudAq6Wf3bKPAEpc42CYVsWMXAxov70pYrmlItkFA1jm/jBNe sKOU3x5x9j5I3OmesO1u3AYme7Uza5ljzGL7QZrDMFvfF+33mMyfr75qs67D wxJoN+/lyM3RVPlG4cHfj4ECIeKEGrv7zDDoG2OQPaFyV7ljPtdApYAIIYnN WYsd+BrsIug7U893j+/+m5bqezPm/t+0DZ9r3FG5wNcNNlUn5TalOTffSfzR Lenn+8l7H8CBw+GDgs087ZN13j/nYiCcGZC++TcohxpoY8rl6ppYdj+5/FFq pVdGlX92TUhubURBXUxh2YPk1EOPQRCeWLd/3gINzZW7DCyDjxs9UOD6N932 WbCWOEBL2uleZM96nlrR094FrXuQ1tMxSOvsHrD1dvUM2OAeHrDBP8XArad3 kNYzcBsEuIGTd1NV+ej8VG/kyZMnagwtRdVVuhfvnzJ5rML4QVVN08XFRfB/ GTabDb9Cnp6eb171xYuwsLD3339f8I1LL2/USP3DXcSsjqQ0jlp0yHAAUn8p LsOEhoa+xUNlpTArcJG8NyTrNZiM+HUuwd+Zxmja8eZFgeWgbdjcMNfGpLK2 ssa49S7UZK6pZnXRBdUB2Zyf+0KyUw88qosuzM3J3btjt6aWNkNVfemEebbf HmItoWJ4WvP5i7nDjzz7Zepm0QEmpr2yCXpe5ZMJiiXnYlDKgUdxL9MP8jVY nvLrwxzDoGzjIDDrQd+bUCriQ2okJ3S6eaKR908//QQCaeYcxixFKq513759 sT/fDZ15lRqK+cQQpAUIg9iVzpmnfal0OtwcUIJDhVI3d3TUtrRXNLUW1rfk 1ICVh57Xs4vrIgpqgnLgECoep5XfTy69k1jsFFdoG1NgGUWNqhmHZOsHZp7x paKSDj9J2f+Q84uH8wkL6Ora7afIWIGdZ+FMRe353yk++uhMuOL1uHUuSTvv gd5I1/XKPOUDlxiOOtckJHaVU8g087DZV0GHcHZ5lLomwu4qHqVVeWVU+2dT KaaNAiPnW4GaClOyCFO4HqNt35RZ2V7+vKOmpauxjQq6FmrAD1y+usiC9GPP otVtg7419p+g7zXfbOOGjSqqGnAJ5JUYYPH19PQaOWX5FpGJW3hKx/7kDuen KbVSxmKDaYarjjpa2g7v/g1OlwI3KhuE/a+//jqsaWsnTpz4+uuvBVy5pqYG fq/S0tIE375UM7RG4gt3EXXKI5mJoxYdgtR8kTrom3CcqKPq6uq//OUvtDpy dx8qO9BwKeZmIiJpjuAhHV7DYz6bm/ganmdhYVdTO8kYk7DZla4XXx9bFDTZ 1P9Tg8AvjcCMsqnKI5614fnkU5JZJe70o3gz75DJl0Omm8dxkzryeeIIxJAJ 63DgGb+tuIFKjvQ4rfBmNFh8sCCgVQYUQgkb76T9/jTXNLSUmQAaD3RIZ10r tCJHdrS2fcBnfRHIcIxx625XeqWTmVYNDQ3W1ta7du3as2ePo6MjmfJTH1NE mW8NO1ALId+bhs28GqPVVzAl9bdHpXcSmnPEVM2Nl5KSEu78QfX9J+31bwSv 3Hxszlz1rSqrWMscQeoM+BWQZ2SKYm1YPpubIBRuAN4VnieXk5yKGaeo5OcR ShbwV0TxzyC0QApyk407hs66GvCpYdisq3AvgViqra21tLTcv3//kSNHHj58 SCfVASH0PKWi0CaGJD8kLXGrW6FVdGNiKbmlZYbhqiNqRv8KB+cL1idPnjx+ /Libm9twU1Rt2bJl2bJlgq//xz/+cViVREhtcTITWUpri/NpJN6PeMNdhK6O ZDiOWnTIWAAS7703fi60jY2NnJwcUUc3btwQ4pZLblPFs8hIUdY5qgptpVcG mRYN9rGztoW85uy8z/sjXOKSQMU8fKQPLeCLi5yf3LuaX9lQUrGryCk2fsOd aE1b0AnQohm23DSD/Jl/iHThzTgkIN0tHS25tXURBWXunAKLyIwT3kk/uQ8W cQFiD1bIvxZB1SIJy2vOruFLL0BlAg/MTvzxXvB3pn3ZID8xiJxvlXclQvD0 g02plWQOIGuxQ+Q8S6rCLHfQjO5DgVVUQ3yJOOdS3b59W12Dyj8wS5Exd77G ihUr7803DJ5kWuqWNOD6RCGnH6UsGrkfSpgJ9KcdNS1kcKbYOY7kwgqbfU2I 4pamvaqp+FYsyZROZdaabBquaMFa6ggnUPCcRc2Z1bARUiuHNLgh866E17OK SDU3aSd5D1cdCZY4opHzMhtk7sizQYI0gucCwdcfVp01ksWOoa49VU5p+kxl FVUt6c1iN6BG4g13IUpmxNsfb3HUIkLGApDIaKEsHZGAVFVV/eEPfwB1JNx5 smV3k4gFBA0A6iVulXNXU3uVTyabWxyEhBKl7H9IF1yojylKPfAoepENN02i WYF1dDw3jxBnl0drUV95d6JSirm6K+33J6R6adQias4aPMLzdYAkZO7pGCoj DRUglF5VE5RLAoTAdvcPECINfvyTd3lknvUrtI6ueJgKdrC1sH4IU9jb09OY WJp5xjdM/nrfdPUJ+iFTL6cceNiQMPB8nDcCe8wzCyMDLKwljpzdHrB9XuUW v84lxyioJihH1AXoCZGRkefOndu3Y8/FA2ezY1Ij5llSE5207DqqB/D6wakj ChlewzmnevsDkwiSnq7utCNU1dqss369vb2gM0H+hc68CldQiL1tzqrONQ0l Zy9G2z5a3ZZKNr7MMeXXh3zzKAWnNb8O7hxSNIe+BLkmIbXh+d1tIik9LB4E V0fdrZ3kf7lsEFUsICKtQstkMvtXQBiitvjYN/39NRLRM4J3mx7tGedx1KJj 6JovUgctjcbVbWBtbQ3S6M9//nNFRcWb1xaYcg8q9yM8YoOWgBc5hkEvuIFG YNYDPjWMUrNJ1/Xq5hYFa4grIWVHKK/ZOpdwJYvkfVRwZntlU+pvj4jFqYss aMmpIeMkxB9X7Z/d094Fb6M1bCPmWsatvs03FEP8OPDr/WKkAUJFDuwqrwwQ Oe0VwyhN25JfV2gTDb0K+saYDBYFfWvMWn6r/D5HKEXQ2quaimxZdOfhbJRR wUIJ5Fz1aTmq2pd3uWfK6IunvxEyhALKDXoV8KURqJrEbW7N2a/5+0ADU1PI Vzl3vzwDpA5s6V3KpOZbRJJRROJrgxuGpeMQKnclfsOd0XcP5FZddGH6ca9X Kne3B4tc6DW3y92TRzC62J+20kbYFH0bs7lpl7INAkF4d4u98t3oEVwdkRTo 8Kgiziq0L4apjnR0dKbPVB66tjhvLI2enl7R6wzjSMRIf41EHIhwaNAGdCDS gwBwjBhHLWpkJgBpXM1Wo8nNzf3kk09AHQ3rp0kQKp+kU0M6NjGpBymTURdV +IKb1zF8znXuCIN9T0cXyJX0o33FqsCkVj5NbytqoAaXdnmQjcA6JDMAZT33 gFFzzDYI6Bt24KYpJv6asFlXwZ4WO8W94AkQilxgFTrDPOOkz3ADhEZ2vJ21 LeUPUhK2uIZMM/fnpjMK+OJihPKNbKMgUYQGdT1vL3VNTNjkSg4kea8n9L+9 4jlVFPWML2/mRvioxDmuKV1UIcQgNdnc1A2Vj9NidBzYOtScsvi1LqBJ6HXK PVIohWwURC95nlJBzn/F0zQiVGi/TKVXRrS2fch085EVgqHpbuuEs0EH9lPO L/MwcjeScar+3tjR01HVDOou47gXXa0P7j3YF8hySdXCGwECqqN6VhG5dqNP 3i5qddS/tjhRR7wugxHgOggRg1M0ECM5ZS+hLRdoITio6fIMODpoCsrqvA7E wY4U46hFCq92lV7GoTqysLB47733QBpNnTq1pkbIFryalNO64E8ME6lvBVY7 WtMO9EPUIpuUg31jHYlb7oJBIV6qAavHVjxKi13hFPiVUdAkk7RjlAum8Cbl R+tu7QSTCgoheBpVtTb4+8sJW1/5xfw/pfxZMdr2gwUICWUkB0xwTVAuaLwI RQuSJQZ6AqoMjHJNYM7Qfj0h7L29q+JxWtIOd/oYyz1ToEtwZmrD80FYwpl/ FZ605S4cPli0bqHWvwCRRgYJyRXPuxaef51K5gDygK4yTHxPIFl5vwgSAm6D cEUq+hrOIb0czht1k0wxg3M4si511LSAVE54eeycXzzKH6aU3I6P5YpGOA90 Gi7RAVqoyisj87Qv8eWREwJ3IFyvAT2PYwqSwb61eCjN09nYlriVmmcBRzT6 PYpUHenq6oJU4PWsgYTgrS3e37XEp3ZGLJ9Gj4Dq6wXXgQjHxXuYcNTEgTig 40wGxjTGPrIRgEQOQdK9EB+9vb2ffPLJX/7yl/Pnzws9FSQA9o4aHNhEWagC yyh4iidP09mGQSS4KHTWVRA25feTeYtVdTa0EfvFt7WKp+m+H17w/c85vw/P B0404ezyoAOEqK19pO/9zzO+/z0fJn+NDhCKUL4RrnC92j9r6AChkUGFFSWU gvyI0bANnnzZf4K+3wT94MmmrMUORfYswSf7CKkzvTXBuSm/PqQHSUqZCXAm yUfPk8uL7Fi8IcTwsJ+tH0gVlBfGaEZ9TBEZigHJAS/gnMDCMncO2Rdc+uas anJN+SZ21YTlBXx+EURsvkUk73LQddHq1FlN2SdQ9hteWnJqoAO0IAEBVh9d +DylInlvX5U00Id8c+VEDeyuOiA7+0JALM+AXtrvT+DOF4Pfc2QIoo5IMvyM k8IJVhSpOiJR2SAVyKAKSAgVVa3BorKHlQ14wIEgorUGY0C1M3oFBZ1hqGvD 0fENkcGBD9FzAQ8TGQ0RUl5hZBwOHAFPnz4VXc6QeN8ou19NHbYbh21wzDam fkijFtnEr6eiZaIW3iTztvoHD3c1t0dr2sVo2fEGCMWvcwlTuO77wXnvd888 e+ckCKGIeZbEfZOynwoQit90J2SaWcCXF+PWMrvb+5QeCVcW+nN6S15tsQM7 br1L2OxrpD5s4ETjyLk3Mk5510UVSnZmd0NsMR1gAxKo0Dqa13kEKpEqMc+N f6Zb+tFn5e7J8NGId9pRRQ33JW51Ax3CVb99JR7qIgtIYDxVWk7HARQa77dA XoJhDfyGytFN0j7Q1LOL4VYJ/s407dATAfsAUr+eVZRx0psOu8o1CaHmDzZ3 FHCDmqCBxQeZNOLDHD3UgF5Yfs6lYN6AN9C0pXcSWwv4E3ZJljeqI6KE49cz h5t3azBEqo5evKwtTgJyDh0+JkUT1gRUXy+4DkQ+dTRVTmkwdYSIE6kOQBqf 6khEdHZ2GhgYaGhqq6hqqKpprly50u3na8Hfm4Yr3yC/qCXMBM4+T/ZSx9K7 iX0ZhGxi+jIIrXAi07v4AoRCplwO/MY4RM484DPD4CmXIxda51+PoANBOxva 4n9gBn1zKXKBFZ1vhwSctFcI5/G8o6YFHvaT93pGqFgFfWdKJRz40ih09rWE LXdLXRM7a4dRjlzUNKVXZhsE8uoEUHS8K3TWt1b7ZmVfCCDqpc/99PP9Ins2 6IcRCDwyQb4mJIfypZ71o5c3Z1YnbHYN+NQw8EsjPrdaETcdFmuJQ4y2fdL2 e7y5CBqTyqLUbIImmqQfe7P562nvqnyWkbyrb2QMelLsGEskcW1oHskSELvK GRRIT9dYmWvf09ldF12YZx6WwOP35OzyKHGOa86qlnTvKIZWR3C3k55X+2cL a4+iVkeyCh1NBC90dXVVVLX4puaBJkTrJnGKBqr5Ii2MN7eaSHFyclq4SHP2 XJ2Nv+jrrNk/S5GxbOkyb40rYPJS9nvmmoZknPAGm0iNunx1qX+kNFV+YqIJ b4BQa1kjWHmWpi1LxyFh453yR6kkyjrzlA9dl6TcMyVSxTLgC6OkHe5ENQ23 zviAwPN+dUA27ChGwy505lX/Tw39PzUInWEerWGbaxzSmFgqhPMlGtqKG/Kv htPh6CBanieX863T3d5VH1MEp5o3ETQVvWwWVhdRQKb7CQJcUPhiKdebln7c i/ejSq8MkEaBXxklbnWjTX9teD4JV25KqyRh0qBw6K80pVdFqloHfWMMp32I nYKNLnaOowOrQN2BzCbz6NsrmkgCAa7rx3v0McMioreb8s+OwUTcxBHZNog6 Iuc2W1+YdWBRHQ2L/iHWJCpbR0cHFNH0mcpT5ZQY6tokKptvNUn3fZwSIZ0V RlBaC5dNmzbJKSy6YBFIykys3HR0vqqmxdbzdIA0d9DAkSr1/sXF5D2er2UQ 6ugi4Rm8gwnwiApLYriToYod2LAErGoiNwCbs8OdzAgDQ8PZ40Fl2Fa4XhNC hfgO/Qs/NL09vQ1xJVR6nJVOEco3uGUmDEImX45cYJW8zxN6K56EQqOHkhAO 7Ph1Li/DXZ7WRRb0N7uwBDRJsVNcysv4HDa3Sl3WWT/QLW/0ThbaxFAhPRZR 1C4Ov+YOyzYMBE1LOhC35jbsHa4ycS2RKjN1UYXkOtIz61tya+E8g3IesIIe WSHPPIwWfunHntEHBReu/H4yGRMDIS3EwQ2RQiXiTi7vn4i7wDKKSsQtjJwD w2KI/50qrwyqb5vvCncKHqojAeHTRXSOIxKqTRyIJCW4rq4u7UAk3jdejYT2 TvxIYwASqiPhsmTJkmmz1Wwe5BN1tPuotbKKhtGm4xFKN+J+YGac9il1S2jK rCphxrGpWd7BfF/nzVNEyNYPAAsbOd+KzTPLuKO2hSQ+ilt9m8x4aogviVC2 8P/YgMNNCEDmSQ03oqMlpwae3OFZPmqRTeh0am5+0ERj2Gzsauf86xEjThso WbqbO8rckugBiuTdD6p8swZLrN1W1ljhmZpxwpuObYaWevBxqWviYMmQq/24 8xNPUymMeEOpQUOCxILtwMUiSY3gOpLK7yBv6NXIlYIukbetxQ2RKpYgdPvf G/Xs4oyTPq+chsYhvK4ouDqpB/omQuaZhXU1Dq+YxRiBJOKmfYVsSSTiHkwd tZc/J8oW5Khw94jqaGgGnFVHj0LwJh6MGLyoB9kIaiQJInUVRtCtJlz279+v oMz4+fB1xydlFq5pCzQ3qTE0XQ5e5/Ogxf/ApAqHzbpa/jC1tbCefkBO2Ezl 8CFTrl5wvT9xa25HKFrEaNnzTZDp6eqGh2uyNXju7u3pzTjn6/+ZYcg0s4bY YpIdkS/kZjDaq5rK3amwopjFDuGKFoFfXQr40ihc/nq0ll3akadguKU69TGh p4MK0aHz/yRucyv3SBnCfQbaBmQnSBR66Iny+/x4r9A6ujGhlDeMpzm7hriE 2NykjvTyyqdUzit6CKjcIzn4u8t+H16IWmjNez5J5TXoGAl56qhqjpxrGfD5 RTL97QX3Hqj0yiDFv0joWrEDGy4ZvQU4isKbMWRSJOcXj8akMiGdM0nSMmAi bmNxJOIeUB319vam61Ix/3kvr4sQGa46+p//+R83t1Glw5IWBhssouF12ZD4 ljeOTvBqJOky1tKOdE3wx4EjoRMdHa2pqT1biTF7rs4Meca8BRo7t/xU6pUC j/nVvlmFN6PTj3uRON6QKWbU1H65K8SPA3oGnpGjGbaRC62b8/ryL9VxZ0KR qlu1YQOkqQHpQpxxsNmm9MpwJQu/j/Th0Tvt8BNYyJe0mQ8qrMg/m4TNRC28 Cf0J+NwoRM48epFN4ua7RXYsuoiJzNDb0wNqhE6sTYUxO8UN7SXp7eppiCsp tIpO3O72ylKvZ+ZcCq4Jzu1qau/p7KYCw3Qc2EsdebMxpP3+lPeqlbomRqhY BXxmGK1pl3nal65rBmaXpB8kY4AgjKkxwE8N869HdNa1lrjEJ2x8GVy0837F w1Q+RVcXWZC0/R4JZCp2jpONSme8kETc5H5m04m49QNEl4ib1EDku/lJSk+4 B0SxUzU1tQMHDgi+/owZM06cOCH0bowp3qiLXvSrnD4sc4YaSSJIUQASqiNR EB4evn37dk0t7cU6OudOnw3fTJVMrfLO5F2nvbKpzJ0Dsid0xpWkna+KhQV8 QU2Tj9awBZOXpeefsOlO6KyrIdPNEja7DjbtCHQXMdzwN0vfP+ATg6BvjclQ xoC+sN6e3np2MTyGg5WJ0bYPk78W+JURN6zImr3cCQw3GPSxM8VJRDQmlL7y Uq1yLrgRKUgEe0tOTQkzIeXA61VLTnjHLLaPZthQSRvWuZA124obiPoicgX0 VexyJypF5MMUEjMGJhjuAbIyyY4FGgmUEoifcEULuAfi1rnQSb/Tjz6riyjg K1fRUd2crR9IRx+NJi+BVNBe1VTxKG2ARNzeQk7E3V8dwbklzyBw2whxRzT/ /ve/ra2tBV9///797777bmFh4ZtXlTb6i6LBnGV80ujFiMwZhiSJH2mZ4I9u NdFRV1fX1kY5yCofp5Ef80qvDL51SOwQ/Lz3tHc1pVfCi8iF1qBt2EspQcVa 6uj/iaH3u1Smx3D566mHHudfi6h4nPY8uZzvARasAxkCYi+/FTLtMlPu9MWd J8/sOebqxGxqeuWCAR1VaBMDQgu2HDnfKuT7y8GTTMKVb7B0HEBNgd0XVv4W aQFOSI5RMLG28DfHKGjo0TYasNRU1ZLTviQ6Opg7DOj30YWwWVdBkYLIKXGm 4spAdL3gTiIjk8vK7nHId4nDKHHLXSJfQfYQl19tWH49u8j/Y4Nn75wMlbsC 0gu6BDcG395hfdAJxOUHAqz/fSXbwN1e2S8Rd/pxL/hH43U4jhg+ddTb3UOm Fvav9SwUTE1N33777ZSUlDev+pLnz59/+eWXn3zyibOzc0PDGJ2TOFwEGSzi Xbn/mM+IByUwJEnMjP0AJBw4EhsVtEB69pohqw3L4wvlJaU8W3Jq2sufF7sk hM684vtvvYAvLkZr2vFFLoGeyb4QUOISXxdR0FbS0NPdQyZP2ewy0tTSVlbR mDNXfcFCza1btxZn5Je5JRH3DWwndNbV4O8vh8tfi9GyB+OebRjYEFciwQnU Eqe97Hm+RSSdzDnzlI/gyQq4SQ7zEre5+X9i4P3+GdBIrKUOCVvvRihZgP6E 7XS3d5FgaVKJmP4WmRget/o2XL4X3HTo4UoWodPMYaHP++e8/nYqaec9enCJ l+acGrrea86l4BGXxpMB+hJx6we+noj76SgTcfOpo1JmAgkM6xFqDZru7u70 9PRffvnlj3/84/Hjx4f79crKyn379v35z39+6623vvnmGyF2TMz0n54/tC4i DOgOG/3DPrrbxMPYD0BCdSROSIwu++VUbkJvTy9xitHmmIwmNaVRwwVFdqzw OddDZ17NOusH9hQWgrgquBGZduQpb8LhvkiYtS5pvz+J1nuweLGOnMKi7ftN jxrcU1+2c+58Dd1dh1hLHCPmWYZONw+VuxLNsCF+nHKPZDr8GwGZUXwrlswZ ZHPnqYHsEbD2ekN8CWupY9DXl0JnmCf+6Bapas2tw2sUt+Y2S9selFLiT/f4 4oXg0hdaRcOOYrTtUw48StjoSnKPs2E7k0x8PzhfcjuOby9gnYvs2WTAJGmH e0Ns8QuEC9GoAyTidh1JIu6++Z5cT2VzVjWc8NjlTs9ThZlp3M/PD0QRCJvP Pvvs1q1bPYLdZv3p6OhITU0NCwt786pjj2ENFvEyoGtGwJBsQUCNJAZ4ZxqO QcZy32QS0Dbkd5u3cmW5ezI1s+l838ymzFNUMEwjh5p2xNl5P+BLoyi1m/XR /AEGvb29baWNdZEF8GALz86cl5VY7X41nb9Qc822kySfgKVb5rSZampT5wXJ m0epWrOWOYKIyjMPa0rld9YghO6WjvL7yYkv6/lyfr5f5ZXxxlBnUFawMknv 2VHbAheRCqRf4hA+h4og8v/YIEbDDnRvmTvntWiWgrqkne4BE/RhnZCpZuyV tyLm3Uj57WHEXEtYUuISz7uLenYxucpgrIsc2MIdx5AZ4ErVxxTxJeJO3uVR 7DSMRNy0Ourp6CIjriCbhdvP+vr68PDw8nL+DKXjAT431rB00YvB0+YI/WG/ f0jSmB3okFLGbAASDhxJBJJNjhpBeimQqKw4q6n0fW1lVPHWLD1/eN0QV9Ka Xxe58Kb/p4ZUpQkBylt0NXc8Ty6/fc1ORVVj8y4Dx0elNo7ZVy6yJ3+rovSf aWE6NqmHHld6ZQieAno809vVU+WTyXmZdSdxy92ye5yuIScrUUVDPr8YrWXX nFsTzx3BqAnJYy12CFeyAAlELjFtrDPP+cLGWdzosqj51qHTzKMW3sw44U3y OYTOvOL3kX4JM4FsGeRWjlFQn9vo8JPB0i4hvJBE3AU3BkjETdWLGdKPTKsj WJkag9r/cLDsWMiwGPFgEc0QAw4ismgYti1SxuboHKojSVHlndk3gvQwlSzJ vx4Bb4tsqUKlOYaUHayPLiy9kxgy5XLINHPaSg4B/NrXRRak/f7U6xfbRfMW zZi2aP/2m+d+e7yM8ev0L+ZsW7gWtJZoj0oW6TurL+eSx69nFjmwBysql3na N/Aro8j5VsW34ynH3KHHiVspn2mxE+Ug62nvqosuzDULjVpkE/ilERXC/eGF wM8vwjYrnqQ9TylP3EatHLPWyWz/hR/Wr1+6dOnBgwcTEhIqn2UQZ1/8OhdQ 1OM5PGxkUIm4Uyrgn4vM4qTlLginhoSBE3FHnfXw/cWuIiCLTItDOTp6Rq+L XrxpMjhdcE0Y/R1q72PToEspYzMACd1qEqTaN6tPIHlSAqm1oI4Y3+7WzlyT EDJ3ibP3gd8E/agF1kNPw+np6KryyuD84sFabB+mcC1okslvk9YrfDBj6udz pk6cqzBzgY7OkmFNh0H608gpyzzjy35ZYST/WkT/EqUgnAK/uRQ6+xpntwdr qUMcd0IZSCYSudTZ0FbqmkhmC0YtvAkiKkbLjsWtDkO2mXbkaexq52O/HFy4 SFNOYdG02YsU5qpraS9+sI/KkZ5tENhRM4ZK/UopzVkDJeI2D6MTcRcUFOzf v19DU5uhrrV61Wrn366UuSVJutdSjFBEEaH//H0+xGPRUCMJnbFWYQQHjiQO KT8BrdwjGd6S3DuVj9PyroSThWEK1/0/Nsg65zfYFrqet4PBjd98J0rVOniy aeCXRuGKFqwlDvFbXR1+M9u7Y9f27dsvXLiQk5MjxsOSZVpya0G70rPIcwyD eNNJ1QTl+E03eTLPOFLbJmzWVSpJwg53uEathfX51yPoSVVph5/UhuYRVymV 5/BBSvpxL7JNz91W6hpaCvOWGlqG3Lyfu32/KZV0ffuO/lFnyCihEnG7JvIl 4s6wCt24caOSirqCyrL5GhtnzmGATAoPD5d0Z6USIeqiFwIUeRdiSLYg9He3 iWe/ssqYCkBCdTQWqPbPJpl2yj1S6mOK2NwyEPk3qIJcmef8Ar64GDz5cj17 gHlJ7RXPuZP3HcNmXQv8/GLg15ciVCzZy6m64bAdQYKUkBHTXtFUYBVFxxFl nPBuiCtpa2szNzNfsmQJ2NMVy1eYbzkTu9a5/FEqmbZPEvJQaoonGL67rROE E3y30isj/2ZU8m4Piz2G8xZogCgiEfUOj0pmKGhoaWuTrFmIKACBWubOIc5T m19NFizU1FyxixRJ3HvcRl6ZMawU1kj/6fmjD2Z+ozR6ISGLhiFJwkKQSyw2 0K02RqgO6BNIpfeSSD5AMogUpWlLZc7RceCLM2nOqcm5FBS5wCpokon/R/pB k0yjVK1BU5Xd43QMEg+DiILOhraS2/H0xKhTv+mqqmnOUGAoqa6WU1i0iKF1 /YhR37jEcqes8/4Vj9LKH6SAps3WD0j97VE8z4wqujn8ZjZ/oeaKjUeIOrri nDRdftHSpUu7u2U8b/lYoL2qydzostI89V9POdLzPeH8r169WtJdkw6EO1jE iyB2U7LP++huGz1jJABprLn5xjk1QblEIKUdeco1prdi/v/27v1HqvKO4/i/ 4g/+0P1lN5vdurdZBob1DDvDACkEq7Y2XKJSg23CNuX80EvGWjGkFtNiG4ms ofYUkppakW3iBVAijbeA05C20RDcUALWmpI0miBl+rBPeHo8Z2b2XJ7nXOa8 X5mYhd09cxgGz2e/3+95nrUHX73tsZt3LR36/4o3/z7zj3PfffGNkSdfve2n 4lOvD/387frB80+8Ie/9Ryquf3bt8gvnTtqH18zW75huPDH/jriq/njfn0Ym rA3rN7x2x89u9jpvDRd5Hu9tfu4vD/3h7z96+cL+05eOvP/JiQ8Xz34ostDo hHXXlh88tPvpFdbdKyuz/BSTGPG/RPGCf+0b33v2pUvi79He8/xXJ60dO3ak fV4ZJW/Mj7aWY3ABey6mR7KDICPFlIVkQlsta8SVUQQkcRld2Lz/kft3P7x1 x/c3fvtw4/Frn3524783/vnKB+9sPHTiK3vlyjkiILUefP7KS381tAUnwjpx 4sSqmdlN37JlzUE8Vs3eZ62pvfLgwZu3R9135Nyuox88dnzxmbcv//Hcp3/+ 6D8ffPLF1c7NspMnT65bv768ak1p5ZoZq7Zz586rV68m/McprI8//njjxk1j U9bM2i0b7tk1MlG1qrWjR4+mfV5Z5EkC2kOR+1mCXC6z0w0R5+yOi1xnQ0l9 h5HsvJGg/Ov180cfPrB+3frplWvumLImV1RnZ+u/f9o5Pf2USEQ3c9Ftj52e /tX5J08F3AgMiTl79qy4jK6w7n7mhY9ENNr/u3Ojk7XZWv3K+ZvbiIQ92qVL l44cOXLgwIHjx49/8QVLPibqzJkz995774w1W5mZXbu2cfDgwbTPKIvirOUY 4VmWPXjCI9lBMJIUTbr9tSwUr+B348aNbdu2jZesr2/74U/2H79/1y9Gxu9c t2790dubr93++Hv3OFde/luESy0ScP369QceeGCqXF01+8177m9OVTatrMw2 m820zwtRfP755+++++6pU6euXCnoevKtVsu27cYSx3HEL9WnOvbRTJxD8GjU znY3xJ2RxGuVzZPMlFB/9Saemr+jrLl48eKa2fpkZdP8ixdld6Zx13dW3zn7 4hO/9S+tg6wR/5C3b98+Y9VELrKqtbm5ub7ZOR2FIrKQCEXlSm1gcFI8hscs q1qXAUn2jOQlfvEWE+ew7NJGHb8+yxc1RpJCSesGf9pq2dQtHbHcSl5cu3bt rbfeOnbsmLiUsKI1cspxHBGNtuzce2jhsniID0RAsm07sROIcHN3Fkayg2Ak KbjkB5Boq2WWu7P2yC9fk5219Rs2UIIAkJhGozE8WpLRSD4GBietaj2ZZ4+2 7k2+fuRnJCmI5AeQsl+BLLKzZ8+KOOSeyj527FjaJwWgQEQ6GhqZ8qSjcqWW zLNHqBioy6i5szKEkaTeeuw4bEJO30XFceHChX379s3Nze3Zs+f999ngCUCi bNu2qnVPZ81xnASeOtq0Sd5/5GckqYfEBpBoqwEAelBT2UMjUwODk+OlqprK NipyoSDv6UgiI3WTzAvSH+8iAIA5Igs5jiPv6LdtO8loFGHIJC8j2UEwkuSX zAASbTUAQKbEXN+mL69rZCQ3020v2moAgEwJu7SRX1+mI6lbu60/CmWhGB1A oq0GAMiOaPfvuxXhp37/vi0FvJTHf6v00McBGwCQO/Gvd8X5qd8zklSQP7Wb oQGkIgRsAEBeaKmBFK2QIv6kzWazsAHJRJIpTsAGAGScrjGSovVEZAVJ7nan Gm2qliK3D7aq9XKl5tk+uG9oz8NFewsBALJJ4xrIBb+0yY2AZVQQWUjkouEx y799cD/RO4BEWw0AkAUx7993kxdKLm2S4zgiEbkXOR8vVZPcPjgxGt9CtNUA AKmLf/++/2hc2qRGozEwOOnZIE/8ZtrnZQSdWQBAf9Abjdqkoy/rkY4Wv+zN W9I+5VjiDyDRVgMApMvEejUm7u/OL9u2y5Wau7MmZ7PlZz2rAXjGufMo/g3+ pGsAQLpM3IFOW8RNbR88PFoaGpmyqnXxS/dUtn/FJPWXIuQxKcUc7+f9AwBI kYlViRjJ9guyfbBcEKDZbHZMSuJT+Wq6RR5Ayn5bTa7PIP82+3V9BgAoLEOX IdoicbiLRWoNpZwmpWhlyYy/f2QlcLxUHRqZEo9ypeapBAIA8khefDUubeSR 8atbTnVLSlluwEUbQMp4W81xHM8UmVWt9+X6DABQKO6LrPZLqqEtt+Cm7m7L flIKW5/MfltNZCHPHYhDI1P9uj4DABSHvIzK+RZDB8/4Ba6f9EhKsgGXelIK NYCU/cIj6QgA+o/7MmoiwLiLGNoPjmVlcFQp1JIRWWiriRM+3InMmbZte1Y+ d6/PAADII3W5NFRSUNdlEwdHKNkZVQrYb029rSYLcfLOQU+2VF/j2TWPqWwA yDt19TF3WTSxRADiU9f9tJKSeu/1eG+k0lZTlSL/K9PtH4tcn0FkJDmPTTQC gFxL4NIjrzJGnwIxpTWqtOy9AMlUHeWmLR0TkeqgySSZ+sgWAMA0eVEw/Sy9 iwPIoGRGlVRzrVvvzGhbrXciysLsOgAgAXI5X1n8T3I5X6JRri07qhTz4Opo /jSiva3Wo5ko60IkIgAoFDk4Ol6qMjiKyEyMKskCTscaUe+mW6jj92iZkYgA oLAcx/HcdCySEsv5IjK9o0ryOP7f2Rt+6CjIEBGJCADQTmPBulartWtud/KN PKSid1IK0h3zBCqZcAK21RgiAgBEIIJQkulIZKFypcYKMMUUeag7VIZhiAgA EJNt256NMo0u5zv/7HOeRh77chZT2FElWXIUb075/vQk6m5Ho2UGAIhAXGUa jYa44gyNTImHyCpGizniiTylqrGJaXaeKrjeo0ptX8lRfCDfpSQiAIAhcjnf xhLTy/n6x5yGR0ukIyj+pNTufu+AWhmJISIAQH6JK5q4rrkvcyIasS8nupGB p8e9AyQiAEDeJdzIQ3/oVnKUtSONy3QDAJCKJBt56A/+ewfkchCeUSX6awAA oCBUyXF4tDQ2MS1LjgsLCzILdZzNpqAEAAD6lcw/npKjiEYqBamv7HjjGwUl AADQZ2RdSJWJ5O/IzOMPSErHpERBCQAA5J17VzUVk+QHckUj97JIHdF6AwAA fUOFH1UycocimYiCBCSF1hsAAMg1T+NMpSP1KRVp5KfkEtlBjkxBCQAA5I4s 8rgrQqrF1nZ12dRnVdQJWwWioAQAALJPxRV3PnGnI9VQ6/hdkes/zHIDAIBs 6hhyPHHI3WhT4gckidYbAADIDplw/CHEk47cs9n+b48fkNwHpPUGAADS4r6F 361jFuo2aKQ9IKlzoKAEAAAS1i3VdExH6lY1/3EMBST38YMUlCguAQCAOLr1 1Npd0lHH2WzP0cwFJHUOPWa51freAAAAYXXrqbk/608aHWezlVBrRcYnE5G/ 9dYtobVaLdu25eZxjuOIXyZwkgAAIC9613m6paNus9meL0gsICndCkrqC0QW EqFovFQdGpkaHi3JjERAAgAAUo+e2rJf0G022y3yWpFx+NORe4TbcRwRjbbs 3Hto4bJ4iA+sat227cRODwAAZFbvnpr7azqmox6z2f4vSzgg9VCu1AYGJ2U0 ko+xielGo5H2eQEAgJR5tprtpsd8Ue/ZbLdk5rQD8qcj2V9L+7wAAEDK/Dum 9fiybmWf3p91y05A2jW3e3jMcnfWRF5yHCfdswIAAOkK0lOTgtybFnDuOiMB qdVqiTgkAtLA4KR4iI+ZygYAoOAC9tSkZUNU8PJRO0sByXEcq1qX89hEIwAA Ci5UPgk4th38tv2MBCQAAAApbJhZNh2pSlTwW9IISAAAICNULAmeZIKMJwUc 8HZLa61IAAAAt7AVm4BD16Fmsz3fRUACAABpCdtTa4eJPaFms/3fmJ21IgEA QEEEv4XfLXg6ilY+kghIAAAgedGmoJfdhc3/FNESDnPaAAAgSaFCTuRvDLjt Wu/nIiABAADTovXU3N8bMK4E33at99MRkAAAgFFx8kbYolPk2WzPMxKQAACA IZF7alLYtBNnNlshIAEAAEPi9NSkCLUgLXefEZAAAIBei0viB4wI6SjmbLbC WpEAAEAjESrm5+fj114iL5EUp2DlPxQBCQAAxKHaUvE7XNFyTvzZbP/RWCsS AABE5k5HydeO2ppms93cAYlJJAAAEJauwlE7ajpqa5rNdpORr9lsUkQCAACh qK1m40eIOCWgCDveLktOUjGGBAAAQhGxRFd4iJOONM5mS28u0dUxBAAAxaEx NsSs/+idzVanpDIS/TUAAODXarVs224scRxH78FjrrOtfTZbkRmJ/hoAAPAT ociq1scmpsVDZiSNB4+ZjtpmykeKzEjiA3uJoYgIAAByRCSBcqU209j66FMn Di1cLq3ePL2iLHKCruPHT0cmZrM9RCIql8tDI1Pjpap4NWRGarVa5p4RAABk logBw2OWjEbiIT4QISFT6aht4NZ+N5EPxYsgYqF8EcR/127cLn5H44sAAABy xKrWRTqS0Ug+xktVjc01LX0xeRBDt5iJP+zYxLT7FRABaXpFWW+HEQAA5IVt 2wODk+7akWwt6Tq+lnRkbja7fSsdqVdAPuQIlomnAwAAGSfSkUgCpdWbZTSa aWy1qnWNY8m6ZqrNzWaLV0D8kdXklfiveDVERGQ2GwCAwlL3rMl2kt6aia7l HM2Vj1qt1s2p7EpteMwSj4HBSQpHAABATibLUWS992ppXOza9Gy2iIjisWtu N/PYAADAHI3pSDbXtOz+BgAAkAq97TB5tGazqXHnNQAAgCTpTUeydqR3X1oA AIAkmagdsXssAADIKRFg5ufn5SqOusKMXHmbdAQAAPJIjQkJGpe5NrpuNgAA gDnuRpjeIx9eoveYAAAACZDRSHudR+Qu0hEAAMgjc10w5o4AAEAeySFqE0du tVq2bcv1vdkQDQAA5MXi4qKh8Wm1N5zcE41t0QAAQC4YSkeO45QrtZnG1kef OnFo4XJp9ebpFWU2RwMAAIXVaDSGxywZjcRDfDA0MkU6AgAAWeaZCxK/1Hhw q1oX6UhGI/kYL1VprgEAgMwSWUjNBQ2PlmRG0hiQRO4aGJx0147KlRrpCAAA ZJacC9qyc69ML+IDEV00dr7EoUTuKq3eLKPRTGOrSGLcuQYAADJLZJWBwUl3 52toZEpvbUccTQQwkZGmV5S5Zw0AAGRcAumovVShkrnItm29c00AAAB67Zrb PTxmuTtr5UqNzhcAACisVqsl4pAISAODk+IhbyijvAMAAIpMZKFfH/iNyEhW tU7nCwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwJD/ AaV5Thw= "], {{0, 155.}, {389., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{389., 155.}, PlotRange->{{0, 389.}, {0, 155.}}]], "Output", TaggingRules->{"AttachedInlineCell" -> CellObject[758065]}, GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.8480172864183397`*^9, 3.875897145905505*^9}, CellLabel->"Out[136]=", CellID->293739108] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell[TextData[{ "Token and event styles are used in the ", ButtonBox["ResourceFunction[\"TokenEventGraph\"]", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ TokenEventGraph"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ TokenEventGraph"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8758972353557262`*^9, 3.875897299048122*^9}, 3.875897445314762*^9}, CellID->73093103], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WolframPhysicsProjectStyleData", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.875897206022827*^9, 3.875897211843019*^9}}, CellLabel->"In[292]:=", CellID->785663431], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"TokenVertexShapeFunction\"\>", "\[Rule]", RowBox[{"(", RowBox[{ FrameBox[ StyleBox["#2", StripOnInput->False, FormatType->TraditionalForm, FontColor->Hue[0.62, 1, 0.48], FontOpacity->1], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput->False], "&"}], ")"}]}], ",", RowBox[{"\<\"EventVertexStyle\"\>", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> Hue[0.12, 0.89, 0.97]|>, "HueColorSwatchTemplate"], ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ TemplateBox[<|"color" -> Hue[0.11, 1, 0.8200000000000001]|>, "HueColorSwatchTemplate"], ",", RowBox[{"Opacity", "[", "1", "]"}]}], "}"}], "]"}]}], "]"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8758972121376133`*^9, 3.8758973935133944`*^9}, CellLabel->"Out[292]=", CellID->429863536] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n_", ":>", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"n_", ":>", RowBox[{"2", " ", "n"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.875897140862666*^9, 3.8758971425540943`*^9}, { 3.875897173779071*^9, 3.8758972208297243`*^9}, {3.875897395391246*^9, 3.875897395554616*^9}}, CellLabel->"In[293]:=", CellID->559319098], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ 1, 2, 3, 4, 5, 6, 8, {"Event", 1, 1, {{1}}, 1}, { "Event", 1, 1, {{2}}, 2}, {"Event", 1, 2, {{1}}, 3}, { "Event", 1, 2, {{2}}, 4}, {"Event", 2, 1, {{1}}, 5}, { "Event", 2, 1, {{2}}, 6}, {"Event", 2, 1, {{3}}, 7}, { "Event", 2, 2, {{1}}, 8}, {"Event", 2, 2, {{2}}, 9}, { "Event", 2, 2, {{3}}, 10}}, {{{1, 8}, {8, 2}, {2, 9}, {9, 3}, {1, 10}, {10, 2}, {2, 11}, {11, 4}, {2, 12}, {12, 3}, {3, 13}, {13, 4}, {4, 14}, {14, 5}, {2, 15}, {15, 4}, {3, 16}, {16, 6}, {4, 17}, {17, 7}}, Null, {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}}, { GraphLayout -> { "Dimension" -> 2, "VertexLayout" -> "LayeredDigraphEmbedding"}, PerformanceGoal -> "Quality", VertexLabels -> {{"Event", 1, 2, {{2}}, 4} -> None, {"Event", 1, 1, {{1}}, 1} -> None, {"Event", 2, 2, {{3}}, 10} -> None, {"Event", 1, 1, {{2}}, 2} -> None, {"Event", 1, 2, {{1}}, 3} -> None, {"Event", 2, 1, {{1}}, 5} -> None, {"Event", 2, 2, {{1}}, 8} -> None, {"Event", 2, 1, {{3}}, 7} -> None, {"Event", 2, 2, {{2}}, 9} -> None, {"Event", 2, 1, {{2}}, 6} -> None}, VertexShapeFunction -> {5 -> (Inset[ Framed[ Style[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenRenderingFunction"][ Replace[#2, {"Token", Pattern[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x, Blank[]], BlankNullSequence[]} :> FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x]], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenStyleOptions"], Automatic -> {}], FontOpacity -> 1, FontColor -> Hue[0.62, 1, 0.48], FormatType -> TraditionalForm], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenFrameOptions"], Automatic -> {}], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #]& ), 6 -> (Inset[ Framed[ Style[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenRenderingFunction"][ Replace[#2, {"Token", Pattern[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x, Blank[]], BlankNullSequence[]} :> FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x]], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenStyleOptions"], Automatic -> {}], FontOpacity -> 1, FontColor -> Hue[0.62, 1, 0.48], FormatType -> TraditionalForm], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenFrameOptions"], Automatic -> {}], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #]& ), 8 -> (Inset[ Framed[ Style[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenRenderingFunction"][ Replace[#2, {"Token", Pattern[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x, Blank[]], BlankNullSequence[]} :> FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x]], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenStyleOptions"], Automatic -> {}], FontOpacity -> 1, FontColor -> Hue[0.62, 1, 0.48], FormatType -> TraditionalForm], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenFrameOptions"], Automatic -> {}], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #]& ), 1 -> (Inset[ Framed[ Style[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenRenderingFunction"][ Replace[#2, {"Token", Pattern[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x, Blank[]], BlankNullSequence[]} :> FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x]], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenStyleOptions"], Automatic -> {}], FontOpacity -> 1, FontColor -> Hue[0.62, 1, 0.48], FormatType -> TraditionalForm], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenFrameOptions"], Automatic -> {}], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #]& ), 4 -> (Inset[ Framed[ Style[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenRenderingFunction"][ Replace[#2, {"Token", Pattern[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x, Blank[]], BlankNullSequence[]} :> FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x]], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenStyleOptions"], Automatic -> {}], FontOpacity -> 1, FontColor -> Hue[0.62, 1, 0.48], FormatType -> TraditionalForm], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenFrameOptions"], Automatic -> {}], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #]& ), 2 -> (Inset[ Framed[ Style[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenRenderingFunction"][ Replace[#2, {"Token", Pattern[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x, Blank[]], BlankNullSequence[]} :> FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x]], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenStyleOptions"], Automatic -> {}], FontOpacity -> 1, FontColor -> Hue[0.62, 1, 0.48], FormatType -> TraditionalForm], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenFrameOptions"], Automatic -> {}], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #]& ), 3 -> (Inset[ Framed[ Style[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenRenderingFunction"][ Replace[#2, {"Token", Pattern[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x, Blank[]], BlankNullSequence[]} :> FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`x]], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenStyleOptions"], Automatic -> {}], FontOpacity -> 1, FontColor -> Hue[0.62, 1, 0.48], FormatType -> TraditionalForm], Replace[ OptionValue[ FunctionRepository`$a01ca9049fdd4b21abf697f2e4a860d8`\ TokenEventGraph, {}, "TokenFrameOptions"], Automatic -> {}], Background -> Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle -> Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]]], #]& )}, VertexSize -> {0.2}, VertexStyle -> {Null, {"Event", 1, 1, {{1}}, 1} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], 6 -> Directive[ Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[ Directive[ Hue[0.63, 0.7, 0.5], Opacity[0.7]]]], 1 -> Directive[ Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[ Directive[ Hue[0.63, 0.7, 0.5], Opacity[0.7]]]], 2 -> Directive[ Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[ Directive[ Hue[0.63, 0.7, 0.5], Opacity[0.7]]]], 8 -> Directive[ Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[ Directive[ Hue[0.63, 0.7, 0.5], Opacity[0.7]]]], 3 -> Directive[ Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[ Directive[ Hue[0.63, 0.7, 0.5], Opacity[0.7]]]], 4 -> Directive[ Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[ Directive[ Hue[0.63, 0.7, 0.5], Opacity[0.7]]]], {"Event", 1, 2, {{2}}, 4} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], {"Event", 2, 1, {{3}}, 7} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], {"Event", 2, 2, {{1}}, 8} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], {"Event", 2, 1, {{2}}, 6} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], {"Event", 2, 1, {{1}}, 5} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], {"Event", 1, 2, {{1}}, 3} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], {"Event", 1, 1, {{2}}, 2} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], {"Event", 2, 2, {{3}}, 10} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], {"Event", 2, 2, {{2}}, 9} -> Directive[ Hue[0.12, 0.89, 0.97], EdgeForm[{ Hue[0.11, 1, 0.8200000000000001], Opacity[1]}]], 5 -> Directive[ Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[ Directive[ Hue[0.63, 0.7, 0.5], Opacity[0.7]]]]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation[ "VertexID$8", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$1", Automatic, Center], DynamicLocation[ "VertexID$10", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation[ "VertexID$9", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation[ "VertexID$11", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$2", Automatic, Center], DynamicLocation[ "VertexID$12", Automatic, Center]}], ArrowBox[BezierCurveBox[{ DynamicLocation["VertexID$2", Automatic, Center], {1., 5.782716049382716}, {1., 5.71604938271605}, {1., 5.644444444444445}, {1., 5.567901234567902}, {1., 5.4864197530864205`}, {1., 5.4}, {1., 5.311111111111111}, {1., 5.222222222222222}, {1.0000000000000002`, 5.133333333333334}, {1., 5.044444444444445}, {1., 4.955555555555556}, {1., 4.866666666666667}, {1., 4.777777777777778}, {1., 4.688888888888889}, {1., 4.4}, {1., 4.311111111111112}, {1., 4.222222222222222}, {1.0000000000000002`, 4.133333333333335}, {1., 4.044444444444444}, {1., 3.9555555555555557`}, {1., 3.866666666666667}, {1., 3.7777777777777777`}, {1., 3.688888888888889}, {1., 3.6}, {1., 3.51358024691358}, {1., 3.432098765432099}, {1.0000000000000002`, 3.355555555555556}, {1., 3.283950617283951}, {1., 3.217283950617284}, DynamicLocation[ "VertexID$15", Automatic, Center]}]], ArrowBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation[ "VertexID$13", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$3", Automatic, Center], DynamicLocation[ "VertexID$16", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$4", Automatic, Center], DynamicLocation[ "VertexID$14", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$4", Automatic, Center], DynamicLocation[ "VertexID$17", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$8", Automatic, Center], DynamicLocation[ "VertexID$2", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$9", Automatic, Center], DynamicLocation[ "VertexID$3", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$10", Automatic, Center], DynamicLocation[ "VertexID$2", Automatic, Center]}], ArrowBox[BezierCurveBox[{ DynamicLocation["VertexID$11", Automatic, Center], {2., 4.782716049382716}, {2., 4.716049382716049}, {2., 4.644444444444445}, {2., 4.567901234567902}, {2., 4.48641975308642}, {2., 4.4}, {2., 4.311111111111112}, {2., 4.222222222222222}, {2.0000000000000004`, 4.133333333333335}, {2., 4.044444444444444}, {2., 3.9555555555555557`}, {2., 3.866666666666667}, {2., 3.7777777777777777`}, {2., 3.688888888888889}, {2., 3.4}, {1.996508114660807, 3.312557497376856}, {1.986032458643229, 3.228007767285204}, { 1.968573031947265, 3.1463508097250434`}, {1.9441298345729148`, 3.0675866246963714`}, {1.9127028665201793`, 2.9917152121991917`}, { 1.8742921277890583`, 2.918736572233503}, {1.8288976183795516`, 2.8486507047993044`}, {1.776519338291659, 2.781457609896597}, { 1.717157287525381, 2.7171572875253807`}, {1.6061489679212886`, 2.606148967921288}, {1.5029716924536258`, 2.5029716924536256`}, { 1.407625461122392, 2.4076254611223917`}, {1.3201102739275867`, 2.320110273927587}, {1.240426130869211, 2.240426130869211}, DynamicLocation["VertexID$4", Automatic, Center]}]], ArrowBox[{ DynamicLocation["VertexID$12", Automatic, Center], DynamicLocation[ "VertexID$3", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$13", Automatic, Center], DynamicLocation[ "VertexID$4", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$14", Automatic, Center], DynamicLocation[ "VertexID$5", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$15", Automatic, Center], DynamicLocation[ "VertexID$4", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$16", Automatic, Center], DynamicLocation[ "VertexID$6", Automatic, Center]}], ArrowBox[{ DynamicLocation["VertexID$17", Automatic, Center], DynamicLocation[ "VertexID$7", Automatic, Center]}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[ {Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[{Hue[0.63, 0.7, 0.5], Opacity[0.7]}], InsetBox[ FrameBox[ StyleBox["1", StripOnInput->False, FormatType->TraditionalForm, FontColor->Hue[0.62, 1, 0.48], FontOpacity->1], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput->False], {0., 8.}]}, "DynamicName", BoxID -> "VertexID$1"], TagBox[ {Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[{Hue[0.63, 0.7, 0.5], Opacity[0.7]}], InsetBox[ FrameBox[ StyleBox["2", StripOnInput->False, FormatType->TraditionalForm, FontColor->Hue[0.62, 1, 0.48], FontOpacity->1], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput->False], {1., 6.}]}, "DynamicName", BoxID -> "VertexID$2"], TagBox[ {Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[{Hue[0.63, 0.7, 0.5], Opacity[0.7]}], InsetBox[ FrameBox[ StyleBox["3", StripOnInput->False, FormatType->TraditionalForm, FontColor->Hue[0.62, 1, 0.48], FontOpacity->1], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput->False], {-1., 4.}]}, "DynamicName", BoxID -> "VertexID$3"], TagBox[ {Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[{Hue[0.63, 0.7, 0.5], Opacity[0.7]}], InsetBox[ FrameBox[ StyleBox["4", StripOnInput->False, FormatType->TraditionalForm, FontColor->Hue[0.62, 1, 0.48], FontOpacity->1], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput->False], {1., 2.}]}, "DynamicName", BoxID -> "VertexID$4"], TagBox[ {Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[{Hue[0.63, 0.7, 0.5], Opacity[0.7]}], InsetBox[ FrameBox[ StyleBox["5", StripOnInput->False, FormatType->TraditionalForm, FontColor->Hue[0.62, 1, 0.48], FontOpacity->1], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput->False], {0., 0.}]}, "DynamicName", BoxID -> "VertexID$5"], TagBox[ {Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[{Hue[0.63, 0.7, 0.5], Opacity[0.7]}], InsetBox[ FrameBox[ StyleBox["6", StripOnInput->False, FormatType->TraditionalForm, FontColor->Hue[0.62, 1, 0.48], FontOpacity->1], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput->False], {-1., 2.}]}, "DynamicName", BoxID -> "VertexID$6"], TagBox[ {Hue[0.63, 0.56, 0.81], Opacity[0.35], EdgeForm[{Hue[0.63, 0.7, 0.5], Opacity[0.7]}], InsetBox[ FrameBox[ StyleBox["8", StripOnInput->False, FormatType->TraditionalForm, FontColor->Hue[0.62, 1, 0.48], FontOpacity->1], Background->Directive[ Opacity[0.2], Hue[0.62, 0.45, 0.87]], FrameStyle->Directive[ Opacity[0.5], Hue[0.62, 0.52, 0.82]], StripOnInput->False], {1., 0.}]}, "DynamicName", BoxID -> "VertexID$7"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{0., 7.}, 0.1]}, "DynamicName", BoxID -> "VertexID$8"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{-1., 5.}, 0.1]}, "DynamicName", BoxID -> "VertexID$9"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{1., 7.}, 0.1]}, "DynamicName", BoxID -> "VertexID$10"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{2., 5.}, 0.1]}, "DynamicName", BoxID -> "VertexID$11"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{0., 5.}, 0.1]}, "DynamicName", BoxID -> "VertexID$12"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{0., 3.}, 0.1]}, "DynamicName", BoxID -> "VertexID$13"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{0., 1.}, 0.1]}, "DynamicName", BoxID -> "VertexID$14"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{1., 3.}, 0.1]}, "DynamicName", BoxID -> "VertexID$15"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{-1., 3.}, 0.1]}, "DynamicName", BoxID -> "VertexID$16"], TagBox[ {Hue[0.12, 0.89, 0.97], EdgeForm[{Hue[0.11, 1, 0.8200000000000001], Opacity[1]}], DiskBox[{1., 1.}, 0.1]}, "DynamicName", BoxID -> "VertexID$17"]}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8758971936091003`*^9, 3.875897221220585*^9}, 3.875897395965473*^9}, CellLabel->"Out[293]=", CellID->744582738] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Wolfram Research", "Text", CellID->475868307] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["Styles", "Item", CellID->150886466], Cell["Formats", "Item", CellID->20039141], Cell["Colors", "Item", CellID->817568425], Cell["Plots", "Item", CellID->346734003], Cell["Graphics", "Item", CellID->608207214], Cell["Graph styles", "Item", CellID->4342834], Cell["labeling", "Item", CellID->902247315] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Notebook Documents & Presentation", { False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Wolfram Physics Project", {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVkEFPwzAMhSVgrEWIKxzLhVt/RLUxNAmxaUZwTjN3zZbEUewcwq8nBYTg5Cd978l+\ 7qoWZiDZIlxukoQkLcwXI+oT7odzvng2LHD/\ QoI90alZkk4OvXDz0GwjcpFKDHm4fSc7ROWa7ZjZaC6UjqgF7t4MJ2XNx5evxJ6iCmNxlL1rQcdcd0\ nIFaxbqEosYJQMVwsleKBosDjnmzCleTj7vmiau2SRq8e9EdUXNVspy/gL6iVa/EumWmST8/\ 8X3qy9YAwRf3rUnc+Qesbyh+sdMqWo8TUHhGqVvJ48n1TmbD4="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->988164771] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["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->{"DefaultContent", "TabNext"}, CellID->768332473] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["WolframModel", "Item", CellID->13812411], Cell["WolframModelPlot", "Item", CellID->868309081], Cell["MultiwaySystem", "Item", CellID->770824232] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["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->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your function to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["13.0+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your function is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your function."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your function is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdtqwzAMha3NBbZ9xN7zEV2WQsagpRrsOReVmDq2seRC/\ n721jjpnnykI845kndZAVvgSSIkB8fGcQFpOWB3wf6c0uZTEEMKSCS0gudvbKtrI13DoczeGu6GD91\ CAp0VhiHxA7tjDTm49oJWofSwG7B3EnvvVDOONOueH2hz8sSiP4PIRN2/N/bv9GcY2X8x78tF+\ 5b19q6058ArGNll54gKyI5WG7Q8wWupR+N9WiEFT4trpa7CajWiCgc+mNCjILo+\ BGVVL7hpPdruG0kYifwdJa6Z8EtaulFR+VjAS60YrbF+5HfjfKcmfxZCb/Z0QtLOdvg1GR9/\ 71QXZn4A3oyuQA=="}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your function is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"WolframPhysicsProjectStyleData | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.876580131202353`16.341023754681867*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.876580131248012`16.341023754686983*^9, "VersionInformation" -> {"ResourceVersion" -> "8.1.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], WindowToolbars -> {}, DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.92157, 0.34118, 0.10588], 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.090909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.62744, 0.62744, 0.62744, 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:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.62744, 0.62744, 0.62744, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.090909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "]]}, { 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:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.99998, 0.99998, 0.99998, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.98824, 0.41961, 0.20392], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.66667], 0], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[3216557251994556740] ], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {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:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078}, {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.078}, {30.578, 18.75}, {30.582, 18.289}, {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.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.98824, 0.41961, 0.20392], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.99412, 0.7098, 0.60196]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; ( DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]), DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your function submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your function submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.98824, 0.41961, 0.20392], RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.98824, 0.41961, 0.20392], 2 -> RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.98824, 0.41961, 0.20392]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {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:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, { 23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, { 21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, { 21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{ 24.578, 18.75}, {24.578, 23.078}, {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.078}, {30.578, 18.75}, {30.582, 18.289}, {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.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.95686, 0.80196, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHPAkQfuPPftue4ZskMQUA2UAQoTpQhYVJ3 XXgumzLgQkBZoBo8hjwLFLtuzQJSbIbDELA4UA1QJXZDwqSgJhCBgCrh7kE2 BL8vsPsL1RBgiOHzBQ5/QcIZbggw5ElyBgQBdSEbAoxBMgwB6gLqhaRGIAOY EsgwBKgLYggQUG4IVVxCxTChSuxQJZ1QJcVSK+9QJxdTqTyhWslGbhmLHxBT 2gMAMUz3Hw== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyF3/cTOOAvtteRZb8ABQUA2UAQoTowhL0Ol jtrxL9dmw4WAskA1eAy57y++yYgTjwkQBFQDVInVEKD5xJgANwfuHmRD8PsC q7/QDAGGGEkmQBAknOGGAEOeDEOAupANAcYgGYYAdQH1QlIjkAFMCWQYAtQF MQQIKDeEKi6hYphQJXaokk6okmKplXeokoupVZ5Qq2Qju4zFD4gp7QFpR8IT "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHvKz2/LG7+eWr737fPIAjIBooAxYkx5E2M 0rets/E4GygLVIPHkHclTn+e3gaK/P76+drsrsN5IRudFCEIyAaKAMWBskA1 QJVYDQGaDzHh5amDm9xUl2uzYSKgOFAWYg7cPciGQHwBVINVOzKCmANUj2YI MMQgvsDlBjT3QPwFCWe4IcCQBzKAviZoAgQBVQLVA3UhGwKMQSADGHpEGgJU CVQP1AXUC0mNQAYwJQAZwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8oRaJRvZZSx+QExpDwAxBaHa "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.92157, 0.34118, 0.10588], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.92157, 0.34118, 0.10588], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.055556], 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:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, 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.1753, 7.4169}, { 7.7969, 11.308}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.308}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/qw9JZMlWFTg5tfa m8bt6lSB23/2DAiowN0H48PcD+PD/AfTD/M/zHxY+MDsh4UfzH2w8EUPfwD5 N5G6 "]}]}, 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 -> True], 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 -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.88072, 0.61104, 0.14205], 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.36842, 0.50678, 0.7098], 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.56018, 0.69157, 0.19488], 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`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1053094956087266899; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "FileOpen"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[1053094956087266899]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], 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`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4898876371082581810; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "Directory"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[4898876371082581810]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[646, 23, 112, 2, 70, "Title",ExpressionUUID->"ca90b19c-ca6d-4b99-82f8-13fe0ad5328a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->68156623]}, "TemplateCell"->{ Cell[646, 23, 112, 2, 70, "Title",ExpressionUUID->"ca90b19c-ca6d-4b99-82f8-13fe0ad5328a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->68156623], Cell[761, 27, 130, 2, 70, "Text",ExpressionUUID->"90572308-8972-4eb7-875d-911b24902d75", CellTags->{"Description", "TemplateCell"}, CellID->525429180]}, "Title"->{ Cell[646, 23, 112, 2, 70, "Title",ExpressionUUID->"ca90b19c-ca6d-4b99-82f8-13fe0ad5328a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->68156623]}, "Description"->{ Cell[761, 27, 130, 2, 70, "Text",ExpressionUUID->"90572308-8972-4eb7-875d-911b24902d75", CellTags->{"Description", "TemplateCell"}, CellID->525429180]}, "Definition"->{ Cell[916, 33, 1206, 29, 70, "Section",ExpressionUUID->"bd73b452-13ac-4574-bf25-f70853c45777", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[916, 33, 1206, 29, 70, "Section",ExpressionUUID->"bd73b452-13ac-4574-bf25-f70853c45777", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[916, 33, 1206, 29, 70, "Section",ExpressionUUID->"bd73b452-13ac-4574-bf25-f70853c45777", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[63954, 1393, 1980, 50, 70, "Subsection",ExpressionUUID->"8999f915-dd20-431f-bae3-57497d293a5b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[68321, 1551, 1429, 32, 70, "Subsection",ExpressionUUID->"76d9be21-32d0-48d9-adae-977c5b5815cf", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[80173, 1899, 7025, 152, 70, "Section",ExpressionUUID->"c6d9620f-f190-4960-aed5-467b30f54108", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[226057, 4961, 1026, 26, 70, "Subsection",ExpressionUUID->"34c32d0b-c837-487f-8242-d4b3048a920e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[227175, 4995, 996, 26, 70, "Subsection",ExpressionUUID->"0a448c1f-a48c-4b78-9306-18c1a233e292", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[228530, 5047, 221, 6, 70, "Subsection",ExpressionUUID->"4cad6806-162c-42f6-9641-3c54a8d5998c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[237185, 5314, 980, 26, 70, "Subsection",ExpressionUUID->"b8369b11-4ac7-4747-ab7e-144a8abcf845", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[238727, 5355, 1039, 26, 70, "Subsection",ExpressionUUID->"2abd364d-4190-43be-b268-aa5250fafc2f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[239961, 5395, 1084, 26, 70, "Subsection",ExpressionUUID->"8c085780-ee0f-4baf-b424-a2e8ec11e3d7", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[241601, 5436, 923, 26, 70, "Subsection",ExpressionUUID->"21719d46-681a-4af5-8f95-c642808e930a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[243069, 5477, 1874, 45, 70, "Subsection",ExpressionUUID->"1a26ea1d-484a-4401-b779-1b74b8a25d1a", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[245300, 5543, 955, 25, 70, "Subsection",ExpressionUUID->"a70a49d5-0125-4a78-a25a-e807bd8706e7", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[246280, 5572, 1174, 31, 70, "Subsubsection",ExpressionUUID->"098adac5-63bf-4494-a632-80034c310daf", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[247583, 5612, 1113, 29, 70, "Subsubsection",ExpressionUUID->"02a717ec-9df7-4449-8ae1-734307cbd08d", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[250834, 5710, 1280, 33, 70, "Subsubsection",ExpressionUUID->"549bdb88-7554-40ce-83a8-159c3c4d059d", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[254303, 5813, 1913, 46, 70, "Subsubsection",ExpressionUUID->"157f075d-c871-482f-97e2-d894e54ce768", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[260247, 5983, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8fdc3d36-4d27-4999-85d2-0fdad5ae611a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[262600, 6055, 1155, 28, 70, "Section",ExpressionUUID->"599faf19-c7f0-4de9-a0a3-90f1cc44eb6c", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[264324, 6098, 1033, 26, 70, "Section",ExpressionUUID->"c70b65c2-80dc-4eb6-b833-c91b0b7cf6f7", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[63734, 1384, 195, 5, 70, "Section",ExpressionUUID->"0c137cba-d9ee-4ea2-8541-b6a02cd19ed3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[63734, 1384, 195, 5, 70, "Section",ExpressionUUID->"0c137cba-d9ee-4ea2-8541-b6a02cd19ed3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[225783, 4952, 249, 5, 70, "Section",ExpressionUUID->"c269334c-ee15-479f-9ea8-f587546ea706", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[63954, 1393, 1980, 50, 70, "Subsection",ExpressionUUID->"8999f915-dd20-431f-bae3-57497d293a5b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[68321, 1551, 1429, 32, 70, "Subsection",ExpressionUUID->"76d9be21-32d0-48d9-adae-977c5b5815cf", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[68321, 1551, 1429, 32, 70, "Subsection",ExpressionUUID->"76d9be21-32d0-48d9-adae-977c5b5815cf", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[70131, 1600, 375, 14, 70, "Notes",ExpressionUUID->"0d7c097f-9609-48ee-a7a5-6a7c51e128af", CellTags->"TabNext", CellID->196919493], Cell[75884, 1766, 603, 20, 70, "Notes",ExpressionUUID->"c312e921-67a1-4d36-bedb-b825fb8eb65b", CellTags->"TabNext", CellID->415296760], Cell[238168, 5342, 522, 8, 70, "Item",ExpressionUUID->"bd9e6468-ab79-498d-955e-e2ed82d9b295", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473], Cell[241048, 5423, 516, 8, 70, "Text",ExpressionUUID->"fabc30eb-dde9-4e5c-853f-3c9bd00ca11a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[242527, 5464, 505, 8, 70, "Item",ExpressionUUID->"a4b638b4-54f3-4f0f-a095-32bafa61151b", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[263758, 6085, 529, 8, 70, "Text",ExpressionUUID->"4be6eab7-cb3b-4a60-8bb6-0dcd525c6035", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[265360, 6126, 515, 8, 70, "Text",ExpressionUUID->"c3c6bcaa-b240-4c15-91c7-a4aaf77d1e92", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[80173, 1899, 7025, 152, 70, "Section",ExpressionUUID->"c6d9620f-f190-4960-aed5-467b30f54108", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467]}, "Source & Additional Information"->{ Cell[225783, 4952, 249, 5, 70, "Section",ExpressionUUID->"c269334c-ee15-479f-9ea8-f587546ea706", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[226057, 4961, 1026, 26, 70, "Subsection",ExpressionUUID->"34c32d0b-c837-487f-8242-d4b3048a920e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[226057, 4961, 1026, 26, 70, "Subsection",ExpressionUUID->"34c32d0b-c837-487f-8242-d4b3048a920e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[227175, 4995, 996, 26, 70, "Subsection",ExpressionUUID->"0a448c1f-a48c-4b78-9306-18c1a233e292", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[228530, 5047, 221, 6, 70, "Subsection",ExpressionUUID->"4cad6806-162c-42f6-9641-3c54a8d5998c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[228754, 5055, 8394, 254, 70, "Output",ExpressionUUID->"7bb8526a-ed54-4609-bd9f-2921d750f933", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->988164771]}, "Categories-Checkboxes"->{ Cell[228754, 5055, 8394, 254, 70, "Output",ExpressionUUID->"7bb8526a-ed54-4609-bd9f-2921d750f933", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->988164771]}, "CheckboxCell"->{ Cell[228754, 5055, 8394, 254, 70, "Output",ExpressionUUID->"7bb8526a-ed54-4609-bd9f-2921d750f933", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->988164771], Cell[248699, 5643, 2098, 62, 70, "Output",ExpressionUUID->"c0df48ce-b18a-4832-979b-8741fbdc7f19", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[252117, 5745, 2149, 63, 70, "Output",ExpressionUUID->"aa64b628-596d-4231-aff3-e012b56fa239", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[256219, 5861, 3991, 117, 70, "Output",ExpressionUUID->"de8391d4-025e-4c61-800f-6cd3d91854f9", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027], Cell[261321, 6012, 1218, 36, 70, "Output",ExpressionUUID->"0d1b9ec4-4a95-45b6-a0d4-f424d883ad6d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[237185, 5314, 980, 26, 70, "Subsection",ExpressionUUID->"b8369b11-4ac7-4747-ab7e-144a8abcf845", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "DefaultContent"->{ Cell[238168, 5342, 522, 8, 70, "Item",ExpressionUUID->"bd9e6468-ab79-498d-955e-e2ed82d9b295", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473], Cell[241048, 5423, 516, 8, 70, "Text",ExpressionUUID->"fabc30eb-dde9-4e5c-853f-3c9bd00ca11a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[242527, 5464, 505, 8, 70, "Item",ExpressionUUID->"a4b638b4-54f3-4f0f-a095-32bafa61151b", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[244968, 5526, 158, 5, 70, "Input",ExpressionUUID->"e86476a9-f5ef-4a9b-a5a1-971b4e76c8f2", CellTags->"DefaultContent", CellID->946203791], Cell[245129, 5533, 122, 4, 70, "Output",ExpressionUUID->"404dee6d-0cb6-487e-b8cd-226b259a9a1a", CellTags->"DefaultContent", CellID->168370258], Cell[247457, 5605, 89, 2, 70, "Text",ExpressionUUID->"7382d6e3-9f3c-4d49-984c-89515825cbf6", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540], Cell[263758, 6085, 529, 8, 70, "Text",ExpressionUUID->"4be6eab7-cb3b-4a60-8bb6-0dcd525c6035", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[265360, 6126, 515, 8, 70, "Text",ExpressionUUID->"c3c6bcaa-b240-4c15-91c7-a4aaf77d1e92", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Related Resource Objects"->{ Cell[238727, 5355, 1039, 26, 70, "Subsection",ExpressionUUID->"2abd364d-4190-43be-b268-aa5250fafc2f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[239961, 5395, 1084, 26, 70, "Subsection",ExpressionUUID->"8c085780-ee0f-4baf-b424-a2e8ec11e3d7", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[241601, 5436, 923, 26, 70, "Subsection",ExpressionUUID->"21719d46-681a-4af5-8f95-c642808e930a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[243069, 5477, 1874, 45, 70, "Subsection",ExpressionUUID->"1a26ea1d-484a-4401-b779-1b74b8a25d1a", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[243069, 5477, 1874, 45, 70, "Subsection",ExpressionUUID->"1a26ea1d-484a-4401-b779-1b74b8a25d1a", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[245300, 5543, 955, 25, 70, "Subsection",ExpressionUUID->"a70a49d5-0125-4a78-a25a-e807bd8706e7", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[246280, 5572, 1174, 31, 70, "Subsubsection",ExpressionUUID->"098adac5-63bf-4494-a632-80034c310daf", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[246280, 5572, 1174, 31, 70, "Subsubsection",ExpressionUUID->"098adac5-63bf-4494-a632-80034c310daf", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[247457, 5605, 89, 2, 70, "Text",ExpressionUUID->"7382d6e3-9f3c-4d49-984c-89515825cbf6", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540]}, "CompatibilityOperatingSystem"->{ Cell[247583, 5612, 1113, 29, 70, "Subsubsection",ExpressionUUID->"02a717ec-9df7-4449-8ae1-734307cbd08d", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[248699, 5643, 2098, 62, 70, "Output",ExpressionUUID->"c0df48ce-b18a-4832-979b-8741fbdc7f19", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[247583, 5612, 1113, 29, 70, "Subsubsection",ExpressionUUID->"02a717ec-9df7-4449-8ae1-734307cbd08d", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[248699, 5643, 2098, 62, 70, "Output",ExpressionUUID->"c0df48ce-b18a-4832-979b-8741fbdc7f19", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[250834, 5710, 1280, 33, 70, "Subsubsection",ExpressionUUID->"549bdb88-7554-40ce-83a8-159c3c4d059d", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[252117, 5745, 2149, 63, 70, "Output",ExpressionUUID->"aa64b628-596d-4231-aff3-e012b56fa239", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[250834, 5710, 1280, 33, 70, "Subsubsection",ExpressionUUID->"549bdb88-7554-40ce-83a8-159c3c4d059d", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644]}, "CompatibilityFeatures-Checkboxes"->{ Cell[252117, 5745, 2149, 63, 70, "Output",ExpressionUUID->"aa64b628-596d-4231-aff3-e012b56fa239", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[254303, 5813, 1913, 46, 70, "Subsubsection",ExpressionUUID->"157f075d-c871-482f-97e2-d894e54ce768", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[256219, 5861, 3991, 117, 70, "Output",ExpressionUUID->"de8391d4-025e-4c61-800f-6cd3d91854f9", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Environments"->{ Cell[254303, 5813, 1913, 46, 70, "Subsubsection",ExpressionUUID->"157f075d-c871-482f-97e2-d894e54ce768", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[256219, 5861, 3991, 117, 70, "Output",ExpressionUUID->"de8391d4-025e-4c61-800f-6cd3d91854f9", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Cloud Support"->{ Cell[260247, 5983, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8fdc3d36-4d27-4999-85d2-0fdad5ae611a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080]}, "CompatibilityCloudSupport"->{ Cell[260247, 5983, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8fdc3d36-4d27-4999-85d2-0fdad5ae611a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[261321, 6012, 1218, 36, 70, "Output",ExpressionUUID->"0d1b9ec4-4a95-45b6-a0d4-f424d883ad6d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[261321, 6012, 1218, 36, 70, "Output",ExpressionUUID->"0d1b9ec4-4a95-45b6-a0d4-f424d883ad6d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[262600, 6055, 1155, 28, 70, "Section",ExpressionUUID->"599faf19-c7f0-4de9-a0a3-90f1cc44eb6c", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[264324, 6098, 1033, 26, 70, "Section",ExpressionUUID->"c70b65c2-80dc-4eb6-b833-c91b0b7cf6f7", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 390680, 8488}, {"TemplateCell", 390862, 8492}, {"Title", 391197, 8499}, {"Description", 391378, 8503}, {"Definition", 391556, 8507}, {"Function", 391752, 8511}, {"TemplateCellGroup", 391957, 8515}, {"Documentation", 395814, 8576}, {"TemplateSection", 396009, 8580}, {"Usage", 396385, 8587}, {"Details & Options", 396581, 8591}, {"Notes", 396786, 8595}, {"TabNext", 396993, 8599}, {"Examples", 398112, 8621}, {"Source & Additional Information", 398323, 8625}, {"Contributed By", 398536, 8629}, {"ContributorInformation", 398772, 8633}, {"Keywords", 398994, 8637}, {"Categories", 399186, 8641}, {"Categories-Checkboxes", 399584, 8648}, {"CheckboxCell", 399798, 8652}, {"Related Symbols", 400924, 8668}, {"DefaultContent", 401127, 8672}, {"Related Resource Objects", 402445, 8697}, {"Source/Reference Citation", 402669, 8701}, {"Links", 402874, 8705}, {"Tests", 403058, 8709}, {"VerificationTests", 403276, 8713}, {"Compatibility", 403490, 8717}, {"CompatibilityWolframLanguageVersionRequired", 403720, 8721}, {"Wolfram Language Version", 403993, 8725}, {"ScrapeDefault", 404255, 8729}, {"CompatibilityOperatingSystem", 404459, 8733}, {"Operating System", 404930, 8740}, {"CompatibilityOperatingSystem-Checkboxes", 405195, 8744}, {"CompatibilityFeatures", 405453, 8748}, {"Required Features", 405905, 8755}, {"CompatibilityFeatures-Checkboxes", 406157, 8759}, {"CompatibilityEvaluationEnvironment", 406414, 8763}, {"Environments", 406896, 8770}, {"CompatibilityEvaluationEnvironment-Checkboxes", 407169, 8774}, {"Cloud Support", 407432, 8778}, {"CompatibilityCloudSupport", 407677, 8782}, {"CompatibilityCloudSupport-Checkboxes", 408156, 8789}, {"Author Notes", 408399, 8793}, {"Submission Notes", 408599, 8797} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[646, 23, 112, 2, 70, "Title",ExpressionUUID->"ca90b19c-ca6d-4b99-82f8-13fe0ad5328a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->68156623], Cell[761, 27, 130, 2, 70, "Text",ExpressionUUID->"90572308-8972-4eb7-875d-911b24902d75", CellTags->{"Description", "TemplateCell"}, CellID->525429180], Cell[CellGroupData[{ Cell[916, 33, 1206, 29, 70, "Section",ExpressionUUID->"bd73b452-13ac-4574-bf25-f70853c45777", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2125, 64, 61572, 1315, 70, "Input",ExpressionUUID->"4637b4e7-ad94-4d63-9f43-3de087eb8168", InitializationCell->True, CellID->220144497] }, Open ]], Cell[CellGroupData[{ Cell[63734, 1384, 195, 5, 70, "Section",ExpressionUUID->"0c137cba-d9ee-4ea2-8541-b6a02cd19ed3", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[63954, 1393, 1980, 50, 70, "Subsection",ExpressionUUID->"8999f915-dd20-431f-bae3-57497d293a5b", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[65959, 1447, 136, 3, 70, "UsageInputs",ExpressionUUID->"66ab469c-8f0f-45aa-9fe6-b1073c3639f0", CellID->204205998], Cell[66098, 1452, 142, 4, 70, "UsageDescription",ExpressionUUID->"37cbd52d-7ff5-4da5-a7b5-b9b74e1a7708", CellID->775220291] }, Open ]], Cell[CellGroupData[{ Cell[66277, 1461, 164, 4, 70, "UsageInputs",ExpressionUUID->"b78e04b8-04a4-457f-9bf1-979b483824a8", CellID->804650075], Cell[66444, 1467, 193, 7, 70, "UsageDescription",ExpressionUUID->"53b781cd-78ff-4559-b6c8-3e4e7847bb85", CellID->975655824] }, Open ]], Cell[CellGroupData[{ Cell[66674, 1479, 160, 4, 70, "UsageInputs",ExpressionUUID->"9cecd62f-a851-4b2a-8ad2-49ecdfb7d542", CellID->936802696], Cell[66837, 1485, 199, 7, 70, "UsageDescription",ExpressionUUID->"cff01642-8a69-42a4-9e14-c9284b744fc5", CellID->290155294] }, Open ]], Cell[CellGroupData[{ Cell[67073, 1497, 204, 6, 70, "UsageInputs",ExpressionUUID->"33b9631c-ceb5-4d77-871a-a2f05377b144", CellID->817872922], Cell[67280, 1505, 313, 11, 70, "UsageDescription",ExpressionUUID->"83a52285-16e7-49a1-aac4-fbacde764c56", CellID->802318240] }, Open ]], Cell[CellGroupData[{ Cell[67630, 1521, 238, 7, 70, "UsageInputs",ExpressionUUID->"530fbc21-0248-4577-a269-cc3e9067835d", CellID->520736873], Cell[67871, 1530, 401, 15, 70, "UsageDescription",ExpressionUUID->"ff8a6f5d-f432-4109-82ec-922952b8a807", CellID->501331741] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68321, 1551, 1429, 32, 70, "Subsection",ExpressionUUID->"76d9be21-32d0-48d9-adae-977c5b5815cf", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[69753, 1585, 375, 13, 70, "Notes",ExpressionUUID->"9d29556d-68a6-4f08-b45f-b8c407149ae3", CellID->619965868], Cell[70131, 1600, 375, 14, 70, "Notes",ExpressionUUID->"0d7c097f-9609-48ee-a7a5-6a7c51e128af", CellTags->"TabNext", CellID->196919493], Cell[70509, 1616, 5372, 148, 70, "TableNotes",ExpressionUUID->"88cd734c-168c-4040-bbea-b0a8a4166c09", CellID->224062068], Cell[75884, 1766, 603, 20, 70, "Notes",ExpressionUUID->"c312e921-67a1-4d36-bedb-b825fb8eb65b", CellTags->"TabNext", CellID->415296760], Cell[76490, 1788, 3274, 92, 70, "TableNotes",ExpressionUUID->"804c9f38-0b32-4230-8b01-6e55465fa7a1", CellID->795617572], Cell[79767, 1882, 357, 11, 70, "Notes",ExpressionUUID->"a7deda4e-2aa9-4831-a548-f2d64f96e15b", CellID->110775728] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[80173, 1899, 7025, 152, 70, "Section",ExpressionUUID->"c6d9620f-f190-4960-aed5-467b30f54108", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell[87223, 2055, 75, 2, 70, "Subsection",ExpressionUUID->"fbdd7e46-f480-4a2d-9f72-a3414f15ab73", CellID->904125756], Cell[87301, 2059, 200, 4, 70, "Text",ExpressionUUID->"87fc442f-aabf-41ca-9f31-c28652ca9b5b", CellID->884587650], Cell[CellGroupData[{ Cell[87526, 2067, 168, 5, 70, "Input",ExpressionUUID->"ca2c66c2-65c2-4fc9-bcec-51a73163322f", CellID->392512725], Cell[87697, 2074, 3196, 82, 70, "Output",ExpressionUUID->"474ba4bd-0298-4ee6-a73e-64263a85f8c5", CellID->949478034] }, Open ]], Cell[CellGroupData[{ Cell[90930, 2161, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"6b577b08-ac92-4ba9-b28b-7a2550cfc98b", CellID->14107562], Cell[91076, 2167, 678, 21, 70, "Text",ExpressionUUID->"8e30616c-1847-44ba-b630-1e9e1edb583f", CellID->397410935], Cell[CellGroupData[{ Cell[91779, 2192, 321, 9, 70, "Input",ExpressionUUID->"814281c5-0162-418f-b2df-62ff5827604b", CellID->55984249], Cell[92103, 2203, 4258, 75, 70, "Output",ExpressionUUID->"2b4b7e1b-5554-4f40-b14a-b4f6052a063e", CellID->828541060] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[96422, 2285, 66, 2, 70, "Subsection",ExpressionUUID->"b726ec5c-42a3-4909-8af1-a546be80de32", CellID->204653245], Cell[96491, 2289, 279, 5, 70, "Text",ExpressionUUID->"9bfcc93b-f809-4d09-87c4-8e0d95611999", CellID->512452930], Cell[CellGroupData[{ Cell[96795, 2298, 238, 7, 70, "Input",ExpressionUUID->"5f49258f-3cc7-4e0a-820b-75fbe6958635", CellID->317616914], Cell[97036, 2307, 720, 14, 70, "Output",ExpressionUUID->"431b37d6-d216-4941-8f65-d491cc3eedf5", CellID->661149346] }, Open ]], Cell[CellGroupData[{ Cell[97793, 2326, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"23474a4a-8f50-4d78-8e43-18c234775ca5", CellID->14107563], Cell[97939, 2332, 506, 15, 70, "Text",ExpressionUUID->"b3b939f4-35cb-45fd-ae98-d11bcdcb7db1", CellID->499812100], Cell[CellGroupData[{ Cell[98470, 2351, 281, 7, 70, "Input",ExpressionUUID->"384d8a18-c313-4c5a-b676-bea3897dafd7", CellID->226146703], Cell[98754, 2360, 359, 10, 70, "Output",ExpressionUUID->"eb4b33d0-01f9-483f-a03d-b5b9bf51568d", CellID->978020844] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[99162, 2376, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"ea5d4f95-7723-4984-a09e-b9db3a05f234", CellID->14107564], Cell[99308, 2382, 247, 6, 70, "Text",ExpressionUUID->"eb6c7d0a-39b2-48d9-a9c9-f86512c6694e", CellID->334313439], Cell[CellGroupData[{ Cell[99580, 2392, 304, 8, 70, "Input",ExpressionUUID->"82525717-41bc-42d0-87a4-f24da88a060c", CellID->506906515], Cell[99887, 2402, 422, 12, 70, "Output",ExpressionUUID->"265f352a-6c61-467c-a0a0-c8a0f35a06e1", CellID->738031715] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[100370, 2421, 85, 2, 70, "Subsection",ExpressionUUID->"cdb0d9cb-63f3-4736-8e21-e46a34afd936", CellID->232113220], Cell[100458, 2425, 697, 17, 70, "Text",ExpressionUUID->"fd5bf7ec-57bc-4225-823d-e4662d419947", CellID->392702896], Cell[CellGroupData[{ Cell[101180, 2446, 391, 12, 70, "Input",ExpressionUUID->"ed9ea389-807a-498b-a2f5-e6b20b09c7d9", CellID->262745714], Cell[101574, 2460, 999, 28, 70, "Output",ExpressionUUID->"3617729e-37ed-4b88-b526-36068f22890c", CellID->901439446] }, Open ]], Cell[CellGroupData[{ Cell[102610, 2493, 353, 11, 70, "Input",ExpressionUUID->"3223b80d-0af0-4999-b7e5-29a02c9f59fc", CellID->291298072], Cell[102966, 2506, 4532, 74, 70, "Output",ExpressionUUID->"56cb3296-bc0f-491f-a63a-34093b3770a4", CellID->776441543] }, Open ]], Cell[CellGroupData[{ Cell[107535, 2585, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"923299ba-5fc4-4a29-84d4-bcc372538a1d", CellID->14107565], Cell[107681, 2591, 1118, 33, 70, "Text",ExpressionUUID->"e7dcb076-1939-46fd-a32e-4f236e642c7e", CellID->315018802], Cell[CellGroupData[{ Cell[108824, 2628, 327, 8, 70, "Input",ExpressionUUID->"79e71fe8-dc70-4f89-986d-d54a219f8d7c", CellID->237803280], Cell[109154, 2638, 213, 6, 70, "Output",ExpressionUUID->"7e857250-f6ad-4deb-9c47-715e1905b7f9", CellID->600891064] }, Open ]], Cell[CellGroupData[{ Cell[109404, 2649, 616, 19, 70, "Input",ExpressionUUID->"9624238b-f429-499c-a46a-3ea04c7667ee", CellID->260836887], Cell[110023, 2670, 8130, 137, 70, "Output",ExpressionUUID->"778d8e17-d555-4ee6-8865-fd1e7bc93356", CellID->240547415] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[118202, 2813, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"4cc48815-ad23-4744-9561-cb4bc2197e53", CellID->14107566], Cell[118348, 2819, 809, 19, 70, "Text",ExpressionUUID->"48eed3a1-182e-4b9a-b6b6-5044c137d77d", CellID->739701241], Cell[CellGroupData[{ Cell[119182, 2842, 233, 6, 70, "Input",ExpressionUUID->"aef7303a-6e92-4d87-89bb-f70f352299df", CellID->661074647], Cell[119418, 2850, 3177, 82, 70, "Output",ExpressionUUID->"412a5ff1-44f5-4d18-a5ce-3a15d8698f45", CellID->215691442] }, Open ]], Cell[CellGroupData[{ Cell[122632, 2937, 922, 28, 70, "Input",ExpressionUUID->"ae8862eb-bfed-41f5-a5fc-edf866548a9e", CellID->696652545], Cell[123557, 2967, 31654, 525, 70, "Output",ExpressionUUID->"f725747d-b8be-4d30-9c06-a3118d97a54a", CellID->440263455] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[155260, 3498, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"f0d84366-5236-414e-a045-6cad79409544", CellID->14107567], Cell[155406, 3504, 697, 17, 70, "Text",ExpressionUUID->"12960d5f-c5da-47a8-9857-2345a831b86c", CellID->383538463], Cell[CellGroupData[{ Cell[156128, 3525, 348, 9, 70, "Input",ExpressionUUID->"c550e13c-b8c2-47aa-8138-8dc2f56f5abb", CellID->968350945], Cell[156479, 3536, 3325, 81, 70, "Output",ExpressionUUID->"1994957b-21d8-400c-8847-c0a56b958482", CellID->478293809] }, Open ]], Cell[CellGroupData[{ Cell[159841, 3622, 1529, 45, 70, "Input",ExpressionUUID->"b365d6a8-388f-408c-9205-3f03d93e7093", CellID->166381311], Cell[161373, 3669, 37267, 618, 70, "Output",ExpressionUUID->"070210af-731f-4a81-a758-3f9b60e076d6", CellID->293739108] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[198689, 4293, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"ac0c81b5-401b-4d42-8a16-ab90aa022189", CellID->14107568], Cell[198835, 4299, 507, 15, 70, "Text",ExpressionUUID->"76f2c7c2-0692-45e1-80ff-4bc715b26bbd", CellID->73093103], Cell[CellGroupData[{ Cell[199367, 4318, 238, 6, 70, "Input",ExpressionUUID->"fb756cd3-d673-4be6-adb4-0379966fc5fe", CellID->785663431], Cell[199608, 4326, 1160, 34, 70, "Output",ExpressionUUID->"d91ca349-885b-4ead-b47f-4846c45bab90", CellID->429863536] }, Open ]], Cell[CellGroupData[{ Cell[200805, 4365, 592, 17, 70, "Input",ExpressionUUID->"4484d3a7-f315-4092-b705-c57a257d5642", CellID->559319098], Cell[201400, 4384, 24310, 560, 70, "Output",ExpressionUUID->"fede88d1-b104-4160-9bf3-434e3f61dbcc", CellID->744582738] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[225783, 4952, 249, 5, 70, "Section",ExpressionUUID->"c269334c-ee15-479f-9ea8-f587546ea706", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[226057, 4961, 1026, 26, 70, "Subsection",ExpressionUUID->"34c32d0b-c837-487f-8242-d4b3048a920e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[227086, 4989, 52, 1, 70, "Text",ExpressionUUID->"14c79eb6-e59a-48e7-8a69-15d61c23086a", CellID->475868307] }, Open ]], Cell[CellGroupData[{ Cell[227175, 4995, 996, 26, 70, "Subsection",ExpressionUUID->"0a448c1f-a48c-4b78-9306-18c1a233e292", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[228174, 5023, 42, 1, 70, "Item",ExpressionUUID->"acbce3a6-1e3d-4305-99e8-01f06de70393", CellID->150886466], Cell[228219, 5026, 42, 1, 70, "Item",ExpressionUUID->"8a93b081-6286-422e-96c8-4d4323b824fe", CellID->20039141], Cell[228264, 5029, 42, 1, 70, "Item",ExpressionUUID->"4591f958-d939-41cb-b84a-d8887b94ab33", CellID->817568425], Cell[228309, 5032, 41, 1, 70, "Item",ExpressionUUID->"d40918e9-b846-405c-bc00-33683be2ed50", CellID->346734003], Cell[228353, 5035, 44, 1, 70, "Item",ExpressionUUID->"8bd59fef-f9a6-4143-aa39-f657f238ef8b", CellID->608207214], Cell[228400, 5038, 46, 1, 70, "Item",ExpressionUUID->"8a1de1b8-f952-4085-b8fc-156d547eba9a", CellID->4342834], Cell[228449, 5041, 44, 1, 70, "Item",ExpressionUUID->"f2ccf78a-2350-4188-adfb-16c9cb340c44", CellID->902247315] }, Open ]], Cell[CellGroupData[{ Cell[228530, 5047, 221, 6, 70, "Subsection",ExpressionUUID->"4cad6806-162c-42f6-9641-3c54a8d5998c", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[228754, 5055, 8394, 254, 70, "Output",ExpressionUUID->"7bb8526a-ed54-4609-bd9f-2921d750f933", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->988164771] }, Open ]], Cell[CellGroupData[{ Cell[237185, 5314, 980, 26, 70, "Subsection",ExpressionUUID->"b8369b11-4ac7-4747-ab7e-144a8abcf845", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[238168, 5342, 522, 8, 70, "Item",ExpressionUUID->"bd9e6468-ab79-498d-955e-e2ed82d9b295", CellTags->{"DefaultContent", "TabNext"}, CellID->768332473] }, Open ]], Cell[CellGroupData[{ Cell[238727, 5355, 1039, 26, 70, "Subsection",ExpressionUUID->"2abd364d-4190-43be-b268-aa5250fafc2f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[239769, 5383, 47, 1, 70, "Item",ExpressionUUID->"16c37c84-ea87-435c-b890-ad703e4b1ebd", CellID->13812411], Cell[239819, 5386, 52, 1, 70, "Item",ExpressionUUID->"5e547e92-c7a1-4263-b8b4-65014e23991f", CellID->868309081], Cell[239874, 5389, 50, 1, 70, "Item",ExpressionUUID->"eba36e37-316b-4f72-8859-ce6b9558b25e", CellID->770824232] }, Open ]], Cell[CellGroupData[{ Cell[239961, 5395, 1084, 26, 70, "Subsection",ExpressionUUID->"8c085780-ee0f-4baf-b424-a2e8ec11e3d7", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[241048, 5423, 516, 8, 70, "Text",ExpressionUUID->"fabc30eb-dde9-4e5c-853f-3c9bd00ca11a", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[241601, 5436, 923, 26, 70, "Subsection",ExpressionUUID->"21719d46-681a-4af5-8f95-c642808e930a", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[242527, 5464, 505, 8, 70, "Item",ExpressionUUID->"a4b638b4-54f3-4f0f-a095-32bafa61151b", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[243069, 5477, 1874, 45, 70, "Subsection",ExpressionUUID->"1a26ea1d-484a-4401-b779-1b74b8a25d1a", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[244968, 5526, 158, 5, 70, "Input",ExpressionUUID->"e86476a9-f5ef-4a9b-a5a1-971b4e76c8f2", CellTags->"DefaultContent", CellID->946203791], Cell[245129, 5533, 122, 4, 70, "Output",ExpressionUUID->"404dee6d-0cb6-487e-b8cd-226b259a9a1a", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[245300, 5543, 955, 25, 70, "Subsection",ExpressionUUID->"a70a49d5-0125-4a78-a25a-e807bd8706e7", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[246280, 5572, 1174, 31, 70, "Subsubsection",ExpressionUUID->"098adac5-63bf-4494-a632-80034c310daf", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[247457, 5605, 89, 2, 70, "Text",ExpressionUUID->"7382d6e3-9f3c-4d49-984c-89515825cbf6", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[247583, 5612, 1113, 29, 70, "Subsubsection",ExpressionUUID->"02a717ec-9df7-4449-8ae1-734307cbd08d", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[248699, 5643, 2098, 62, 70, "Output",ExpressionUUID->"c0df48ce-b18a-4832-979b-8741fbdc7f19", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[250834, 5710, 1280, 33, 70, "Subsubsection",ExpressionUUID->"549bdb88-7554-40ce-83a8-159c3c4d059d", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[252117, 5745, 2149, 63, 70, "Output",ExpressionUUID->"aa64b628-596d-4231-aff3-e012b56fa239", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[254303, 5813, 1913, 46, 70, "Subsubsection",ExpressionUUID->"157f075d-c871-482f-97e2-d894e54ce768", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[256219, 5861, 3991, 117, 70, "Output",ExpressionUUID->"de8391d4-025e-4c61-800f-6cd3d91854f9", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[260247, 5983, 1071, 27, 70, "Subsubsection",ExpressionUUID->"8fdc3d36-4d27-4999-85d2-0fdad5ae611a", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[261321, 6012, 1218, 36, 70, "Output",ExpressionUUID->"0d1b9ec4-4a95-45b6-a0d4-f424d883ad6d", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[262600, 6055, 1155, 28, 70, "Section",ExpressionUUID->"599faf19-c7f0-4de9-a0a3-90f1cc44eb6c", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[263758, 6085, 529, 8, 70, "Text",ExpressionUUID->"4be6eab7-cb3b-4a60-8bb6-0dcd525c6035", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[264324, 6098, 1033, 26, 70, "Section",ExpressionUUID->"c70b65c2-80dc-4eb6-b833-c91b0b7cf6f7", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[265360, 6126, 515, 8, 70, "Text",ExpressionUUID->"c3c6bcaa-b240-4c15-91c7-a4aaf77d1e92", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)