(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 316771, 6465] NotebookOptionsPosition[ 182686, 3861] NotebookOutlinePosition[ 304328, 6198] CellTagsIndexPosition[ 303376, 6167] WindowTitle->CausalConnectionGraph | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["CausalConnectionGraph", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->370434827], Cell["\<\ Generate a graph giving the relations between regions of causally equivalent \ events in a causal graph\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->229350146], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Options", "[", "CausalConnectionGraph", "]"}], "=", RowBox[{"Options", "[", "Graph", "]"}]}], ";"}]], "Input", CellLabel->"In[11]:=", CellID->229917060], Cell[BoxData[ RowBox[{ RowBox[{"CausalConnectionGraph", "[", RowBox[{ RowBox[{"cg_", "?", "GraphQ"}], ",", "vi_List", ",", "vf_List", ",", RowBox[{"type", ":", RowBox[{"(", RowBox[{"Automatic", "|", "\"\\"", "|", "Full"}], ")"}], ":", "Automatic"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "g", ",", "gg", ",", "gopts", ",", "rules", ",", "ud", ",", "ul"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"gopts", "=", RowBox[{"FilterRules", "[", RowBox[{ RowBox[{ RowBox[{"{", "opts", "}"}], "~", "Join", "~", RowBox[{"{", RowBox[{ RowBox[{"EdgeStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0.68", ",", "0.3", ",", "0."}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"0.853", ",", "0.65", ",", "0.3"}], "]"}]}]}], "}"}], "~", "Join", "~", RowBox[{"Options", "[", "CausalConnectionGraph", "]"}]}], ",", RowBox[{"Options", "[", "Graph", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ul", "=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"#", "->", RowBox[{"Intersection", "[", RowBox[{"vf", ",", RowBox[{"VertexOutComponent", "[", RowBox[{"cg", ",", "#"}], "]"}]}], "]"}]}], "&"}], "/@", "vi"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"g", "=", RowBox[{"simpleGraph", "[", RowBox[{"Graph", "[", RowBox[{"Flatten", "[", RowBox[{"Outer", "[", RowBox[{"IntersectionRule", ",", "ul", ",", "ul", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"type", ",", RowBox[{"\"\\"", "|", "Full"}]}], "]"}], ",", RowBox[{"Return", "[", RowBox[{ RowBox[{"Graph", "[", RowBox[{"g", ",", "gopts"}], "]"}], ",", "Module"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"rules", "=", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"list", ",", RowBox[{ RowBox[{ RowBox[{"#", "\[Rule]", "list"}], "&"}], "/@", "list"}]}], "]"}], "/@", "#"}], "]"}], "&"}], "[", RowBox[{"ConnectedComponents", "[", "g", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ud", "=", RowBox[{ RowBox[{"Cases", "[", RowBox[{ RowBox[{"EdgeList", "[", "g", "]"}], ",", "_UndirectedEdge"}], "]"}], "/.", "rules"}]}], ";", RowBox[{"gg", "=", RowBox[{"Fold", "[", RowBox[{"VertexContract", ",", "g", ",", RowBox[{"ConnectedComponents", "[", "g", "]"}]}], "]"}]}], ";", RowBox[{"Graph", "[", RowBox[{ RowBox[{"simpleGraph", "[", RowBox[{"Graph", "[", RowBox[{ RowBox[{"Values", "[", "rules", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", RowBox[{"VertexReplace", "[", RowBox[{"gg", ",", "rules"}], "]"}], "]"}], ",", "ud"}], "]"}]}], "]"}], "]"}], ",", "gopts"}], "]"}]}]}], "]"}]}]], "Input",\ CellLabel->"In[12]:=", CellID->605740363], Cell[BoxData[ RowBox[{ RowBox[{"CausalConnectionGraph", "[", RowBox[{"cgf_", ",", RowBox[{"{", RowBox[{"ti0_Integer", ",", "ti1_Integer"}], "}"}], ",", RowBox[{"{", RowBox[{"tf0_Integer", ",", "tf1_Integer"}], "}"}], ",", RowBox[{"type", ":", RowBox[{"(", RowBox[{"Automatic", "|", "\"\\"", "|", "Full"}], ")"}], ":", "Automatic"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"CausalConnectionGraph", "[", RowBox[{ RowBox[{"cgf", "[", "tf1", "]"}], ",", RowBox[{"cglayers", "[", RowBox[{"cgf", ",", RowBox[{"{", RowBox[{"ti0", ",", "ti1"}], "}"}]}], "]"}], ",", RowBox[{"cglayers", "[", RowBox[{"cgf", ",", RowBox[{"{", RowBox[{"tf0", ",", "tf1"}], "}"}]}], "]"}], ",", "type", ",", "opts"}], "]"}]}]], "Input", CellLabel->"In[13]:=", CellID->737658995], Cell[BoxData[ RowBox[{ RowBox[{"CausalConnectionGraph", "[", RowBox[{"cgf_", ",", "ti_Integer", ",", "tf_", ",", RowBox[{"type", ":", RowBox[{"(", RowBox[{"Automatic", "|", "\"\\"", "|", "Full"}], ")"}], ":", "Automatic"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"CausalConnectionGraph", "[", RowBox[{"cgf", ",", RowBox[{"{", RowBox[{"ti", ",", "ti"}], "}"}], ",", "tf", ",", "type", ",", "opts"}], "]"}]}]], "Input", CellLabel->"In[14]:=", CellID->295041708], Cell[BoxData[ RowBox[{ RowBox[{"CausalConnectionGraph", "[", RowBox[{"cgf_", ",", "ti_", ",", "tf_Integer", ",", RowBox[{"type", ":", RowBox[{"(", RowBox[{"Automatic", "|", "\"\\"", "|", "Full"}], ")"}], ":", "Automatic"}], ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"CausalConnectionGraph", "[", RowBox[{"cgf", ",", "ti", ",", RowBox[{"{", RowBox[{"tf", ",", "tf"}], "}"}], ",", "type", ",", "opts"}], "]"}]}]], "Input", CellLabel->"In[15]:=", CellID->274441347], Cell[BoxData[ RowBox[{ RowBox[{"cglayers", "[", RowBox[{"cgf_", ",", RowBox[{"{", RowBox[{"t1_Integer", ",", "t2_Integer"}], "}"}]}], "]"}], ":=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"VertexList", "[", RowBox[{"cgf", "[", "t2", "]"}], "]"}], ",", RowBox[{"VertexList", "[", RowBox[{"cgf", "[", RowBox[{"t1", "-", "1"}], "]"}], "]"}]}], "]"}]}]], "Input", CellLabel->"In[16]:=", CellID->828967063], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"IntersectionRule", "[", RowBox[{ RowBox[{"s1_", "->", "list1_"}], ",", RowBox[{"s2_", "->", "list2_"}]}], "]"}], "/;", RowBox[{"!", RowBox[{"IntersectingQ", "[", RowBox[{"list1", ",", "list2"}], "]"}]}]}], ":=", RowBox[{"{", "}"}]}]], "Input", CellLabel->"In[17]:=", CellID->358748247], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"IntersectionRule", "[", RowBox[{ RowBox[{"s1_", "->", "list1_"}], ",", RowBox[{"s2_", "->", "list2_"}]}], "]"}], "/;", RowBox[{"(", RowBox[{ RowBox[{"SubsetQ", "[", RowBox[{"list1", ",", "list2"}], "]"}], "&&", RowBox[{"!", RowBox[{"SubsetQ", "[", RowBox[{"list2", ",", "list1"}], "]"}]}]}], ")"}]}], ":=", RowBox[{"{", RowBox[{"DirectedEdge", "[", RowBox[{"s1", ",", "s2"}], "]"}], "}"}]}]], "Input", CellLabel->"In[18]:=", CellID->617457160], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"IntersectionRule", "[", RowBox[{ RowBox[{"s1_", "->", "list1_"}], ",", RowBox[{"s2_", "->", "list2_"}]}], "]"}], "/;", RowBox[{"(", RowBox[{ RowBox[{"SubsetQ", "[", RowBox[{"list2", ",", "list1"}], "]"}], "&&", RowBox[{"!", RowBox[{"SubsetQ", "[", RowBox[{"list1", ",", "list2"}], "]"}]}]}], ")"}]}], ":=", RowBox[{"{", RowBox[{"DirectedEdge", "[", RowBox[{"s2", ",", "s1"}], "]"}], "}"}]}]], "Input", CellLabel->"In[19]:=", CellID->747368988], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"IntersectionRule", "[", RowBox[{ RowBox[{"s1_", "->", "list1_"}], ",", RowBox[{"s2_", "->", "list2_"}]}], "]"}], "/;", RowBox[{ RowBox[{"Sort", "[", "list1", "]"}], "===", RowBox[{"Sort", "[", "list2", "]"}]}]}], ":=", RowBox[{"{", RowBox[{ RowBox[{"DirectedEdge", "[", RowBox[{"s1", ",", "s2"}], "]"}], ",", RowBox[{"DirectedEdge", "[", RowBox[{"s2", ",", "s1"}], "]"}]}], "}"}]}]], "Input", CellLabel->"In[20]:=", CellID->605313577], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"IntersectionRule", "[", RowBox[{ RowBox[{"s1_", "->", "list1_"}], ",", RowBox[{"s2_", "->", "list2_"}]}], "]"}], "/;", RowBox[{"(", RowBox[{ RowBox[{"IntersectingQ", "[", RowBox[{"list1", ",", "list2"}], "]"}], "&&", RowBox[{"!", RowBox[{"SubsetQ", "[", RowBox[{"list1", ",", "list2"}], "]"}]}], "&&", RowBox[{"!", RowBox[{"SubsetQ", "[", RowBox[{"list2", ",", "list1"}], "]"}]}]}], ")"}]}], ":=", RowBox[{"{", RowBox[{"UndirectedEdge", "[", RowBox[{"s1", ",", "s2"}], "]"}], "}"}]}]], "Input", CellLabel->"In[21]:=", CellID->162676610], Cell["Working around crash bug in SimpleGraph:", "Text", CellID->62460101], Cell[BoxData[ RowBox[{ RowBox[{"simpleGraph", "[", RowBox[{"graph_", "?", "GraphQ"}], "]"}], ":=", RowBox[{"Graph", "[", RowBox[{ RowBox[{"VertexList", "[", "graph", "]"}], ",", RowBox[{"Union", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"EdgeList", "[", "graph", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"DirectedEdge", "|", "UndirectedEdge"}], ")"}], "[", RowBox[{"v_", ",", "v_"}], "]"}]}], "]"}], "/.", RowBox[{"e_UndirectedEdge", "\[RuleDelayed]", RowBox[{"Sort", "[", "e", "]"}]}]}], "]"}]}], "]"}]}]], "Input", CellLabel->"In[22]:=", CellID->138172125] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CausalConnectionGraph", "[", RowBox[{ StyleBox["cgf", "TI"], ",", StyleBox["ti", "TI"], ",", StyleBox["tf", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->427299616], Cell[TextData[{ "generates a graph of relations between causally equivalent regions that are \ detected at step ", Cell[BoxData[ StyleBox["ti", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the causal graph generated by ", Cell[BoxData[ StyleBox["cgf", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", as determined by outcomes at step ", Cell[BoxData[ StyleBox["tf", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->848980804] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CausalConnectionGraph", "[", RowBox[{ StyleBox["cgf", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["ti", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["ti", "TI"], StyleBox["2", "TR"]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["tf", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["tf", "TI"], StyleBox["2", "TR"]]}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->556503868], Cell[TextData[{ "considers regions detected between steps ", Cell[BoxData[ SubscriptBox[ StyleBox["ti", "TI"], StyleBox["1", "TR"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ SubscriptBox[ StyleBox["ti", "TI"], StyleBox["2", "TR"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", with outcomes determined by looking at steps ", Cell[BoxData[ SubscriptBox[ StyleBox["tf", "TI"], StyleBox["1", "TR"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " through ", Cell[BoxData[ SubscriptBox[ StyleBox["tf", "TI"], StyleBox["2", "TR"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->423280161] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CausalConnectionGraph", "[", RowBox[{ StyleBox["cg", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["vi", "TI"], StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["vf", "TI"], StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->277337279], Cell[TextData[{ "generates the causal connection graph from the causal graph ", Cell[BoxData[ StyleBox["cg", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " by considering causally equivalent regions among the event nodes ", Cell[BoxData[ SubscriptBox[ StyleBox["vi", "TI"], StyleBox["k", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", as determined by looking at the event nodes ", Cell[BoxData[ SubscriptBox[ StyleBox["vf", "TI"], StyleBox["k", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->684118213] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CausalConnectionGraph", "[", RowBox[{ StyleBox["c", "TI"], ",", StyleBox["i", "TI"], ",", StyleBox["f", "TI"], ",", "\"\\""}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->612776363], Cell["\<\ gives the full causal connection graph for every event, not aggregating \ causally equivalent events.\ \>", "UsageDescription", CellID->186745360] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell["\<\ If the future light cone of A contains the future light cone of B, then there \ is a directed edge from A to B in the resulting graph.\ \>", "Notes", CellTags->"TabNext", CellID->628985355], Cell["\<\ If the future light cone of A intersects the future light cone of B, but \ neither contains the other, then there is an undirected edge between A and B \ in the resulting graph.\ \>", "Notes", CellID->129026923], Cell["Typical forms for the causal graph generator include:", "Notes", CellID->261592183], Cell[BoxData[GridBox[{ {Cell[TextData[{ "ResourceFunction[\[OpenCurlyDoubleQuote]SubstitutionSystemCausalGraph\ \[CloseCurlyDoubleQuote]][", Cell[BoxData[ StyleBox["rules", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["init", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", #] &" }], "TableText"], Cell["string substitution system", "TableText"]}, {Cell[TextData[{ "ResourceFunction[\[OpenCurlyDoubleQuote]WolframModel\ \[CloseCurlyDoubleQuote]][", Cell[BoxData[ StyleBox["rules", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["init", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", #, \[OpenCurlyDoubleQuote]CausalGraph\[CloseCurlyDoubleQuote]] &" }], "TableText"], Cell["Wolfram model", "TableText"]} }]], "TableNotes", CellID->633228028], Cell[TextData[{ Cell[BoxData["CausalConnectionGraph"], "InlineFormula", FontFamily->"Source Sans Pro"], " takes the same options as ", 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"], "." }], "Notes", CellID->192202351] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Generate a causal graph:", "Text", CellChangeTimes->{{3.798033049006226*^9, 3.798033052437948*^9}}, CellID->392348587], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ",", "Automatic", ",", "9", ",", "\"\\""}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.797990299368751*^9, 3.7979903377197*^9}, 3.798033032883848*^9, {3.798033078970192*^9, 3.798033103601283*^9}}, CellLabel->"In[4]:=", CellID->977997418], 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, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46}, {{{1, 2}, {1, 2}, {1, 3}, {2, 3}, {2, 4}, {2, 4}, {3, 5}, {3, 5}, { 3, 7}, {4, 6}, {4, 6}, {4, 9}, {5, 8}, {5, 7}, {5, 8}, {6, 10}, {6, 9}, {6, 10}, {7, 11}, {7, 11}, {7, 15}, {8, 12}, {8, 12}, {8, 17}, {9, 13}, {9, 13}, {9, 19}, {10, 14}, {10, 14}, {10, 21}, {11, 18}, {11, 15}, {11, 16}, {12, 16}, {12, 17}, {12, 18}, {13, 22}, {13, 19}, {13, 20}, {14, 20}, {14, 21}, {14, 22}, {15, 23}, {15, 23}, {15, 31}, {16, 24}, {16, 24}, {16, 32}, {17, 25}, {17, 25}, {17, 34}, {18, 26}, {18, 26}, {18, 37}, {19, 27}, {19, 27}, {19, 39}, {20, 28}, {20, 28}, {20, 40}, {21, 29}, {21, 29}, {21, 42}, {22, 30}, {22, 30}, {22, 45}, {23, 33}, {23, 31}, {23, 36}, {24, 35}, {24, 32}, {24, 33}, {25, 38}, {25, 34}, {25, 35}, {26, 36}, {26, 37}, {26, 38}, {27, 41}, {27, 39}, {27, 44}, {28, 43}, {28, 40}, {28, 41}, {29, 46}, {29, 42}, {29, 43}, {30, 44}, {30, 45}, {30, 46}}, Null}, {EdgeStyle -> { Hue[0, 1, 0.56]}, GraphLayout -> { "Dimension" -> 2, "VertexLayout" -> { "LayeredDigraphEmbedding", "VertexLayerPosition" -> {8, 7, 6, 6, 5, 5, 4, 4, 4, 4, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}}, VertexLabels -> {Automatic}, VertexStyle -> { Directive[ Hue[0.11, 1, 0.97], EdgeForm[{ Hue[0.11, 1, 0.97], Opacity[1]}]]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0, 1, 0.56], Opacity[0.7], Arrowheads[0.013385598144811984`], ArrowBox[BezierCurveBox[{{0., 8.}, {0.4243432987007699, 7.58547713953272}, {0.5198051030353099, 7.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{0., 8.}, {0.09546180433453061, 7.4145228604673}, {0.5198051030353099, 7.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQjQoUHGxPFwgd8Ju+fzH30YCy8/IOWa3LhC8fWrHf 2ST/870Z8g6b9Jf266zcvP9e5b/nljHyDkd/Cor9XLV7f+GdIr12SXmHigs9 fenGh/b/iz5z7NgFOYfpQnFB4e+O7e/4wbXxR6Ocg8vhmmvebGf2c23Seyuj K+dgW1jSu2jvhf3tHebVxpdkHeQsLvYvXHZ5/99q1WibQlmHP3av1rH9urp/ 4aT0+PVysg7iAhUv4tlv7Lf/GGWvfFrGoWB1lc3aczf3X5r+/9f0MhkHRsFP q975394f2RY6iVdRxuGiwz1jle47+2/siWFtOSXtcMfK/rpvw939XtaiIb+L pB2U/otMzda/t38zY31dsZS0w7Le+NzaGff2CwvManlzQMoh7ZlcQvPue/vT 00BAyuHwBQkw37Ts46/nvFIOqiLCYP6/DR6SFbskHTo38IL5R8RyDorlSDq8 W8oB5jcuj/58WEnSIfgLM5hvlyy+vv6ehMPu2f/jQfyvnvO/eM6XcFCb8xvM XwFSnirhMOnrdzA/bIawLJeBhAPDii9gPiS+JBwA8GLVDQ== "]], 0.08031358883465894], ArrowBox[{{0.5198051030353099, 7.}, {-0.48019489641831115`, 6.}}, 0.08031358883465894], ArrowBox[BezierCurveBox[{{0.5198051030353099, 7.}, { 2.7090007919811114`, 7.1659044309723265`}, {4.569314986560698, 6.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{0.5198051030353099, 7.}, {2.380119297614884, 5.834095569027667}, {4.569314986560698, 6.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.48019489641831115`, 6.}, {-0.3157541495270815, 5.4999999999039835`}, {-0.48019489700209306`, 5.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.48019489641831115`, 6.}, {-0.6446356438933154, 5.500000000096002}, {-0.48019489700209306`, 5.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzbDiS3zz7nv7GcBAwuHP47DHr18+2L+jferOqnPi DrfNW37ZbHu0f6rKxmkfpog7zPFv+rrl0JP9k68FTU8MFnew0w68Esz/fP/m uVW7z3KKOxw59WGa5JyX+79VajCb7hBz0NJLtGXLfLM/Kjsmb3qcmENp6KLj kmXv9z8qFPv75Y+oQ4DCLalViR/39/SGrfedLOpwvfz04SiNz/vD98m0LlQU dbiq9DOpQfrL/uXT2yafvC/isLSm5h/Xpy/7xTc6+f+eJeLg3Bo67dfqr/uX cgXuMAsWcdho06Ll7/ltv/+SjeeqOUQc3i3i2M1x6tt+8bqUSad2CTv82f7I XV3v+/5/0zOZlbOEHW5UC11cVfp9P/OnA4qtYsIOLe+mh01e8H2/Wk/W2w/7 hRwYBIpvPFj3fX8aGAg55NyrAPNNyj7+es4r5PA8vA7M/7vBQ7Jil6BDcU0z mH9ILOegWI6gA69PB5jftDz682ElQYcdx3rAfLtk8fX19wQcit5MAPO/eM4H IgEHm71TwPwVIOWpAg5iljPA/LAZwrJcBgIODAmzwXxIfAk4AADWAOcD "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{4.569314986560698, 6.}, {5.233755733411167, 5.664440747073681}, {5.569314985895403, 5.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{4.569314986560698, 6.}, {4.904874239045038, 5.335559252926157}, {5.569314985895403, 5.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3TCLsemXm5ADAxhIOCg0Qfgr0988+npe3MEoHcKP XMJjc3eWuMNGTwifZ1sC97YEcYcFmhD+4TkvAhoUxR3+skH49REgDWIOpx4y gPn2LyfbvZws5sC+C8Jn8d/+rN1VzGFTP4R/tpOPVeKTqMPZJAh/1kwQEHWw mPDDdaGnkINHcJ5iiL2ow9WShxOnBgo5bO9eJNn/TMRhqcDu1OtxQg6Pncya vPpFHJYktx5MKxRyOFehGd1mKeJwNddhqXOnkEO5bs0Sp6fCDhb6bwTylgk5 PEjQi6ufJOxwbnkHy7MTQg5swg4dNo7CDlOuizas/iDk8MZ5o1LVRyGHnn2T m/fJCjtM+Nyoa7FYyEFcYHqCRIywA6ffQ7ZvtkIOyaukUzKmCTvYBOXccrov 6FDQq9i37oywgxaD8gq5dkEH650r7r36J+xwMZy1oNNU0OGE7sZQWV0RB6NI YaPmVwIOYq+tPruGizj4sfi+414m4KD80XV7Sq2Ig2rkpiXKGQIOH+0vLayc L+KwLdw59JSBgEPD9fubWvaKQONLwAEAx+quTw== "]], 0.08031358883465894], ArrowBox[{{-0.48019489700209306`, 5.}, {-1.4801948987205833`, 4.}}, 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.48019489700209306`, 5.}, {-0.3157541510124642, 4.4999999996074855`}, {-0.4801948993890619, 4.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.48019489700209306`, 5.}, {-0.6446356453786969, 4.500000000392492}, {-0.4801948993890619, 4.}}], 0.08031358883465894], ArrowBox[{{5.569314985895403, 5.}, {5.185076517975062, 4.}}, 0.08031358883465894], ArrowBox[BezierCurveBox[{{5.569314985895403, 5.}, {6.709000790926492, 4.820740051998359}, {7.519805101591487, 4.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{5.569314985895403, 5.}, {6.380119296560289, 4.17925994800172}, {7.519805101591487, 4.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-1.4801948987205833`, 4.}, {-1.3157541517501337`, 3.499999999930048}, {-1.4801948991458858`, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-1.4801948987205833`, 4.}, {-1.6446356461163427`, 3.50000000006997}, {-1.4801948991458858`, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAAGCb2OCu978AAAAAAAAQQDSfmQvi ofi/dBhz5r2cD0AJS1TmNr35vzhtgvoCKQ9AgGPLaN8A+79H/i08z6QOQJfo /pLbbPy/oMt1qyIQDkBR2u5kKwH+v0fVWUj9ag1Aqjib3s69/786G9oSX7UM QNIBAgBj0QDAeJ32CkjvC0ChnZRkCNgBwAVcrzC4GAtAv28FndfyAsDcVgSE rzEKQOAWTedehwPAPXAP+a+xCUBIw2OOXxMEwOUbT69UKwlA9XRJktmWBMDP WcOmnZ4IQOQr/vLMEQXA+ils34oLCEAZ6IGwOYQFwGuMSVkccgdAkqnUyh/u BcAegVsUUtIGQFFw9kF/TwbAFAiiECwsBkBTPOcVWKgGwE8hHU6qfwVAmg2n Rqr4BsDMzMzMzMwEQGctRkqcQgfAZuzi9c8bBED+5NSWVIgHwPphkTLwdANA XDRTLNPJB8CELdiCLdgCQIMbwQoYBwjABE+35odFAkBxmh4yI0AIwHrGLl7/ vAFAKLFrovR0CMDqkz7pkz4BQKhfqFuMpQjAT7fmh0XKAEDwpdRd6tEIwKww JzoUYABAAITwqA76CMAAAAAAAAAAQOxLxxM= "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.4801948993890619, 4.}, {-0.3157541507429667, 3.5000000004811396`}, {-0.48019489646310376`, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.4801948993890619, 4.}, {-0.6446356451091966, 3.4999999995188302`}, {-0.48019489646310376`, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAAEAlY4O73r8AAAAAAAAQQIXjow5L q9q/kHXV32WcD0DiOiCb3OfVv6bhC+CiJw9AGUaaCDhx0L9ARKMAt6EOQEYK JK66jsS/W52bQaIKDkAswDs0ZFKrv/rs9KJkYg1A+IQVpOmXsD8eM68k/qgM QFoNKe/u0sg/xG/Kxm7eC0BC+CWlKmDVP++iRom2AgtAAra58RMK3z+czCNs 1RUKQHkc+x+t3eE/J7emUa6bCUAf62ndpRDkPy/uImt7GglA8EYpMfQd5j+z cZi4PJIIQOwvORuYBeg/rkEHOvICCEAUppmbkcfpPyVeb++bbAdAZqlKsuBj 6z8Xx9DYOc8GQOU5TF+F2uw/g3wr9ssqBkCQV56ifyvuP2t+f0dSfwVAZgJB fM9W7z/MzMzMzMwEQOMLPM6/M/A/Zuzi9c8bBECLusNZTbTwP/phkTLwdANA KI23YBAt8T+ELdiCLdgCQLuDF+MInvE/BE+35odFAkBEnuPgNgfyP3rGLl7/ vAFAwtwbWppo8j/qkz7pkz4BQDY/wE4zwvI/T7fmh0XKAECgxdC+ARTzP6ww JzoUYABAAHBNqgVe8z8AAAAAAAAAQDTxy1s= "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{5.185076517975062, 4.}, {5.723470563477959, 3.6229863195745655`}, {5.932983114614558, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{5.185076517975062, 4.}, {5.394589069111632, 3.3770136804254784`}, {5.932983114614558, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3XD9/qaWvSIODGAg4MB8q4SpapWIw9GmZa8D5vM7 rPF4nGEyVcShWiyA39+Y36FKWfvZ5loRB7ndf7J+7eZzyMnyqfqRLOKwtmDN vyBLPocmWXdVJg8RBy3z+FMRq3kd9tlIP7+gKeIwjU/0HLcQr4PsiRP7UzhF HN59O8uZk8vjsGi///q9z4QdzD501lbu5XbwUt6w9fZBYYfsXx6aJkzcDgEH s7s9Fwo75LG8ci0M43IIyP7G969J2CG6VG1dxUpOBzfFAIefacIO2r7/Er1+ czgYPa6Qt/YVdrjXXZj4zJvDQWxjwZrDpsIO5YYNa3xmszt86jJ/PklB2OGr rZZz7Us2hyMFZ8+v4BV2iNiYr1phxubQm2SUxvpXyGFBd0CwbROrg29C2qoV 74QczoABiwPX6Wz/sw+FHNLePPp6XprF4QyzK8e6q0IOvxInGn0oYXaYxPXp itcpIYcW3RtNujeYHKLuF21dvF/IgcV/+7N2VyYH9abjK3dsFXKoOqYX938P o8OPT+83dq4Rcng12e7lZDtGhzOGb86KLRFyACs/xeCw1G7P3/g5Qg5rDNSt RBIYHBokExxTpwpB44vBAQA/rrfp "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{7.519805101591487, 4.}, {7.684245847984202, 3.499999999740045}, {7.519805100010558, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{7.519805101591487, 4.}, {7.3553643536179, 3.500000000260016}, {7.519805100010558, 3.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3dBy76S7iJwDAxgIOEz0ViozDpZzEFVR8powh9+B fZ616tE5cg47Z9t1+mjwOzyq1rr+54Ocw6u00L0mi/kcZJ6+677lL++wtDXt mQcvn8Oumx3OcTvlHd59L2TpTON1uKfz599hMQWHo3vLxb+u43GYuGneXe0w BQe16+Xyvc+4Hb7+Xb332SwFB3GXIplAXm4HLn6V+V+eKDhMZknnc1Tmcvix YJqoP5eig3/EpSceyzgdZC2fTszSVXSYHHrh8EwlToeK6/wi7n6KDhF/ElYb z+Bw4KwRm/MkR9FhkU/LbDF2DocLaj81nTsVHfLdrKY45bM7nLu+fW/SYkWH Ay+bpm6/wObA1B8U7rxb0WGaWdz8Um02h1yfk9+eXFB0+KBzZmNNPasDr4DM HPcnig5nwIDFwfnimWcc3xQd0t48+npemsUhvz227BibksOvxIlGH0qYHSYZ nfNqEFNyaNG90aR7g8lh5SW5FDNVJQcW/+3P2l2ZHLal+x96YaTkUHVML+7/ HkaHHR/jU6fbKzm8mmz3crIdo8OGggBfJ28lB7DyUwwOc58oVL0MVXJYY6Bu JZLA4NDge/F1T7wSNL4YHABy+bcU "]], 0.08031358883465894], ArrowBox[{{-1.4801948991458858`, 3.}, {-3.1220982740783256`, 2.}}, 0.08031358883465894], ArrowBox[{{-1.4801948991458858`, 3.}, {-1.480194898390323, 2.}}, 0.08031358883465894], ArrowBox[{{-1.4801948991458858`, 3.}, {-0.4801948976514723, 2.}}, 0.08031358883465894], ArrowBox[{{-0.48019489646310376`, 3.}, {-1.480194898390323, 2.}}, 0.08031358883465894], ArrowBox[{{-0.48019489646310376`, 3.}, {1.2104546215477967`, 2.}}, 0.08031358883465894], ArrowBox[{{-0.48019489646310376`, 3.}, {-0.4801948976514723, 2.}}, 0.08031358883465894], ArrowBox[{{5.932983114614558, 3.}, {4.645894071093039, 2.}}, 0.08031358883465894], ArrowBox[{{5.932983114614558, 3.}, {6.221910142037359, 2.}}, 0.08031358883465894], ArrowBox[{{5.932983114614558, 3.}, {7.519805102733812, 2.}}, 0.08031358883465894], ArrowBox[{{7.519805100010558, 3.}, {6.221910142037359, 2.}}, 0.08031358883465894], ArrowBox[{{7.519805100010558, 3.}, {9.186622018146181, 2.}}, 0.08031358883465894], ArrowBox[{{7.519805100010558, 3.}, {7.519805102733812, 2.}}, 0.08031358883465894], ArrowBox[BezierCurveBox[{{-3.1220982740783256`, 2.}, {-3.1367058363321645`, 1.441114324428623}, {-3.480194892952227, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-3.1220982740783256`, 2.}, {-3.46558733069839, 1.5588856755713685`}, {-3.480194892952227, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzdDyYQXfL44DDBDg8MCDX0CpifPAL8u41bPN/9vr l81JVFDmOrDu35O8Vq9/9q+4Z8zlvMt1QNJvitdei7/2/FxMR+6u5z5go5Fj 58z0x35Rwa0rc2bzHBDpzfESX/7LfrG94gW3BbwHltVMzbNU/2nPX35t6+29 fAfef3u2amXTd/sXYr9ao7/wH/jwO+F/+s6v9tP53RQeLxQ4sKKbOafk9Gd7 TwO/WpnnAgeSVRQnhL/+ZG/UM/GPgYrggWOfp38+9OujfZCywDyFSMED536m T9v284P98q8nE1+3Ch74nqP0MeXCe3sj5v3uE1cJHpgXrG6S2/PW/ov3e3+h 44IHJi2/97VV/bX9m/NRVXm3BQ9czPAwW7/whb1MP+Pxpc8FD8RMT/n64tdT +4bOx6Y7XgseMAaDx/bJKhD+vI3d1+3zH9jzH30E5p/j757SuPy2fUM2hC+e c1As5+A1+53iEL5kxS5Te51L9jtPPgTzV6S/efT1/Gn7hkYIf4rdy8l2Lw/b 89lD+A9eXvuzwWOnfQoThP9P60wnH+sK+4bTD8B8aHwxAACxROHv "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-1.480194898390323, 2.}, {-1.3157541472930276`, 1.5000000012873094`}, {-1.480194890561961, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-1.480194898390323, 2.}, {-1.644635641659254, 1.499999998712694}, {-1.480194890561961, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzbCu5caDdd/3M0CAwwJ+4U9fS37sL7IOf/bK8r/9 0blNtXLRP/f3sJyMOhT8zz4n4nJVVOKv/X7RobFtvn/tJ9uzvlrZ/nv/Vvs/ b83U/9jbBUuc5jn3Z/+hjXt5rjz4ZZ81mUeu2eTf/vKNM3fGVv20F2d49Ihn 9//9l+wmfLn8+bv9Ep8zPFc3MBy4Grlwr5nvN/tafYlE3SmMB+qYzoq0tX2x DypaanCAl+mAR1Oin1r9Z3u3zLg61kqmAyutHW3fZn+yDxVx9vp7lenAfL2c h7d8PtrXFwdPWa7CfEAz+pHVe8UP9sfa+mNYUpkPTGxynxxy7a29lt/3RcLT mQ/8OpggLRH42n7Vya70q7uYD/SVCPBpbnlh7/7Tc5XnBeYDPrPCstv/P7Vn uGuSXXCd+YAxGDy2b5pqCubP29h93T7/gX2FsxmYf46/e0rj8tv2T59B+OI5 B8VyDl6zP1JvDuZLVuwytde5ZC/JZwHmr0h/8+jr+dP2TyZC+FPsXk62e3nY XonbEsx/8PLanw0eO+2vV0L4/7TOdPKxrrBnuAfhQ+OLAQCI0NjJ "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{1.2104546215477967`, 2.}, { 1.5295706077120739`, 1.5508698237375755`}, {1.5198050995101084`, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{1.2104546215477967`, 2.}, { 1.2006891133458295`, 1.4491301762624322`}, {1.5198050995101084`, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzVDgu4o17rM9AwQ4aIeyzeNI+WIvz38+4on5f3ue gNuakTO/2jsFr1BZ4f3PfknCGd/vf7/Zp53pTva2/mv/se0m5+OJP+y7qypF z7H9sf92iClOJvSX/YbYQiuDdb/sN4p4eC12/2N/s7T4UqHhT3ulmpXnyjP/ 2TMdrr87acJ3+6U1k7/6xDI46LlOi558+qu9iNuD8y1zGR2i/mzzKX702f7Z i1mOGmpMDgtzw940/f1kf4v1eMWOeUwON/cbqK3h+GT/Zk5KqSk7swPjZ9df 75g/2suvKzafH8/soMenc3Havff2xZZf9n1dzuxg+8PxUdPUt/bP7J5xWz5g dtBZclZ9kc5r+8p9nnKZHCwOPwTPL/yy+IW97g65b60KLA7LHN0Cqn4/tWfQ SZ3cr8HiYAwGj+0XJ6WA+fM2dl+3z39gf2pJMph/jr97SuPy2/bFn5LAfPGc g2I5B6/Zz/aG8CUrdpna61yyd9uQCOavSH/z6Ov50/ZFChD+FLuXk+1eHrZX mJMA5j94ee3PBo+d9v7KEP4/rTOdfKwr7Bm2xYP50PhiAACCbsji "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.4801948976514723, 2.}, { 0.1842458523403347, 1.6644407481068433`}, {0.5198051079659081, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{-0.4801948976514723, 2.}, {-0.144635642025902, 1.3355592518931605`}, {0.5198051079659081, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzbDAPbF59739DBDgoLFUF8xfPm9j93X7//YW7wTA /KSJRh9Ksv/Zm1Z/TADx9W406d5o+msv7nMezOcpXuTM2PbH/knCKjD/VyJI w2/72TubIPwl/iBkbxkWAVFvc3eWvNhP+0Nm2mC+obqVSMKJ7/Ym0b/jQfw0 MPhmr8p2HMxfDNb+xV6nqgfMf2zRB0Sf7X22e4P5ykog8Mm+bi8LmJ/IvS2B e9sH+5M92+NAfPuXk+1eTn5nr6GaAubv2Q0Cr+3ntXGB+ZYg4x6/sNfeuCoW xAfpTuB+Zn92iQuYbwwGj+0PZNyLAfHBwZP/wN6epQ7MP8ffPaVx+W17n3Jl MF8856BYzsFr9g8PnosG8SUrdpna61yyZ3pSD+avSH/z6Ov50/Yb75qB+VPs QA48bP9q3ecoEP/By2t/NnjstF8fvg3M/6d1ppOPdYU9w426KKT4YgAAKpLu Kg== "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{4.645894071093039, 2.}, {4.74729033304998, 1.4792658354872805`}, {4.519805100640724, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{4.645894071093039, 2.}, {4.418408838683741, 1.520734164512722}, {4.519805100640724, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3SCZ4Jg6VciBAQIczHzvrEuKFXK4X/d2K7flf/sN 5uv23pIWcnASUprpGvDP/s2Nq7lnLwg6qO+au3Kt61/7lwbB+61qBB16yhKe O0v+sV9lr7ZJSU7Qodg9K4jj9C97XVZ/t9ZtAg53dHa/+hX1076o8Wx1kquA w3G14A3SJ7/bf81wXloyld/BxNRocZboN/sum+lTJXv5HJQiIg4/t/9inyve cb2Lh89hWewn4yj3z/ZF5jM+S8/mdZivzPLTxPGT/aw5x1+eseB1YFnVK1Sh +9H+gZvYrrlPeRxufehrUOb5YO9h1pLSt5DHwfEDf1verrf2F7MEX87L4XFY V/9xc5rja/vqJ3vdz7vxOPzqP9Slv/aFvdvizgZ5Ax4HNcVmrpN/n9obLy+Z 3K/B42AMBo/tdxbng/nzNnZft89/YB/ZkwXmn+PvntK4/LY9z8dUMF8856BY zsFr9pcXJoL5khW7TO11LtlvmBcL5q9If/Po6/nT9kueR4L5U+xeTrZ7edh+ XU0YmP/g5bU/Gzx22p+JDQbz/2md6eRjXWHP0B0A5kPjiwEASZnDPw== "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{6.221910142037359, 2.}, {6.535298368384475, 1.548986069529553}, {6.5198051003653745`, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{6.221910142037359, 2.}, { 6.2064168740182515`, 1.4510139304704643`}, {6.5198051003653745`, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQzXCuK9PmsYQDAwQ4nDh35dydAxIO50Rs/LRt/tsn c6RaLZsp4fA3M+bX4Zh/9uerrNfMyJVw6PqfwHIq8a89l1qEyhYbCYeyq545 tt5/7MW5di/6wSbhcOC1mJGc5G/7L2op6mlnxB2ynE6E5pz+ab+oJnjTnx5x h6KbsdfVk37YK3F3Ou/xEHe4teH6toC73+yLLrHcXvJfzGHBCdMvz2y+2lfO KFKzPyfm4HNzursD/xf7v32HdFYuEnPwvMan4Hjrk/3frV/ePqoRc5i0f1bt y7kf7ct5ObPexIg5qE+1TrCM+mCfN/X/gqNOYg5C6x71J8q9s3/ge2NSnp6Y QwlXReb8ytf2Z80m2z+XF3PIszf31Tn2wt40wGC5vriYA4uvgjUHyzN7qVnr T7qLiDkYg8Fje4/sBWD+vI3d1+3zH9hPlpoE5p/j757SuPy2/Y/lLWC+eM5B sZyD1+zLhCvAfMmKXab2OpfsBWJzwPwV6W8efT1/2v5ISyKYP8Xu5WS7l4ft J3eFg/kPXl77s8Fjp31Nnh+Y/0/rTCcf6wr7BgM3MB8aXwwA25DB+Q== "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{9.186622018146181, 2.}, {9.517654304778812, 1.5547888744430485`}, {9.519805097045264, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{9.186622018146181, 2.}, {9.18877281041257, 1.445211125557146}, {9.519805097045264, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3eB78XVPvJIDAwQ4rBNZcv91g5LD7B96TQfM/9v/ vb2eNWaFkoPRT/VTEt7/7PMXf4m9e1XJ4SDj6+scVn/tmbOLXuRzKjt4CVWs nsDyx36XkeZSYWdlh1Na5102rPplP+mXxJQTTcoObt4fFqfr/LTvOeS4te+E ssOu4tsntnV+t1/ZtZgjTUTFQWPJhM1zD321fxFk1+eXpuLQf4c/Reb6Z/vA zxz8GztUHOacCXDp/fLJ3ktH9Sf7chWHiQU9ghcYP9lf+TvJJ/igikPeiUOn n/z7YP86PYhz8nUVh6QVz59Ou/7efnJWsv7xlyoOu9Tt+TgmvrU/xXps3/vv Kg6P+HoEZLVe20+wrNrOw6TqcCP23Juri17YP2dtkJTjUHWYJ8K22Oj3U/sz WdefKHOpOhiDwWP7ObMg/Hkbu6/b5z+w33Acwj/H3z2lcflte65PEL54zkGx nIPX7JdL3gDzJSt2mdrrXLLvtIPwV6S/efT1/Gn7DQkQ/hS7l5PtXh62l2mA 8B+8vPZng8dO+9NzIPx/Wmc6+VhX2B/YBuFD44sBAJKAzqA= "]], 0.08031358883465894], ArrowBox[BezierCurveBox[{{7.519805102733812, 2.}, {8.184245853133572, 1.6644407482410268`}, {8.519805109167123, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[{{7.519805102733812, 2.}, {7.855364358767346, 1.335559251759014}, {8.519805109167123, 1.}}], 0.08031358883465894], ArrowBox[BezierCurveBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQ3aDy6aS7iJwDAwQ4LKr+AuYvn7ex+7r9f/trgt/B /KSJRh9Ksv/ZSz//Cebr3WjSvdH01z7/9x8wn6d4kTNj2x/7a34Mp0D8X4kg Db/t/R4yQ/hL/EHI/tomdjCfx+buLHmxn/b5h7nBfEN1K5GEE9/tpYQFwPw0 MPhm/8daGMxfDNb+xd72BoT/2KIPiD7b33kuCOYrK4HAJ/sbWbxgfiL3tgTu bR/sjRLZwHz7l5PtXk5+Z//mFMS9e3aDwGt7lhUfwHxLkHGPX9hX/ngI5oN0 J3A/s/fZcwHMNwaDx/Z5e/eB+eDgyX9gf/HoWjD/HH/3lMblt+3Lrs4F88Vz DorlHLxmH/amD8yXrNhlaq9zyb6KqxHMX5H+5tHX86ft7+iXgPlT7EAOPGxf F5MB5j94ee3PBo+d9nETYsH8f1pnOvlYV9g3nA5Gji8GAFOuwrU= "]], 0.08031358883465894], ArrowBox[{{-3.480194892952227, 1.}, {-4.480194894643205, 0.}}, 0.08031358883465894], ArrowBox[{{-3.480194892952227, 1.}, {-3.480194892895497, 0.}}, 0.08031358883465894], ArrowBox[{{-3.480194892952227, 1.}, {-1.4801948938142004`, 0.}}, 0.08031358883465894], ArrowBox[{{-1.480194890561961, 1.}, {-2.4801948906931557`, 0.}}, 0.08031358883465894], ArrowBox[{{-1.480194890561961, 1.}, {-3.480194892895497, 0.}}, 0.08031358883465894], ArrowBox[{{-1.480194890561961, 1.}, {0.5198051104613342, 0.}}, 0.08031358883465894], ArrowBox[{{1.5198050995101084`, 1.}, {2.519805098875395, 0.}}, 0.08031358883465894], ArrowBox[{{1.5198050995101084`, 1.}, {0.5198051104613342, 0.}}, 0.08031358883465894], ArrowBox[{{1.5198050995101084`, 1.}, {1.5198051009488154`, 0.}}, 0.08031358883465894], ArrowBox[{{0.5198051079659081, 1.}, {-1.4801948938142004`, 0.}}, 0.08031358883465894], ArrowBox[{{0.5198051079659081, 1.}, {-0.4801948913330989, 0.}}, 0.08031358883465894], ArrowBox[{{0.5198051079659081, 1.}, {1.5198051009488154`, 0.}}, 0.08031358883465894], ArrowBox[{{4.519805100640724, 1.}, {3.519805098433949, 0.}}, 0.08031358883465894], ArrowBox[{{4.519805100640724, 1.}, {4.5198051004216495`, 0.}}, 0.08031358883465894], ArrowBox[{{4.519805100640724, 1.}, {6.519805090064892, 0.}}, 0.08031358883465894], ArrowBox[{{6.5198051003653745`, 1.}, {5.519805092724823, 0.}}, 0.08031358883465894], ArrowBox[{{6.5198051003653745`, 1.}, {4.5198051004216495`, 0.}}, 0.08031358883465894], ArrowBox[{{6.5198051003653745`, 1.}, {8.519805093779155, 0.}}, 0.08031358883465894], ArrowBox[{{9.519805097045264, 1.}, {10.519805098966913`, 0.}}, 0.08031358883465894], ArrowBox[{{9.519805097045264, 1.}, {8.519805093779155, 0.}}, 0.08031358883465894], ArrowBox[{{9.519805097045264, 1.}, {9.519805097990798, 0.}}, 0.08031358883465894], ArrowBox[{{8.519805109167123, 1.}, {6.519805090064892, 0.}}, 0.08031358883465894], ArrowBox[{{8.519805109167123, 1.}, {7.519805093516766, 0.}}, 0.08031358883465894], ArrowBox[{{8.519805109167123, 1.}, {9.519805097990798, 0.}}, 0.08031358883465894]}, {Hue[0.11, 1, 0.97], EdgeForm[{Hue[0.11, 1, 0.97], Opacity[ 1]}], {DiskBox[{0., 8.}, 0.08031358883465894], InsetBox["1", Offset[{0, 2}, {0., 8.08031358883466}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5198051030353099, 7.}, 0.08031358883465894], InsetBox["2", Offset[{0, 2}, {0.5198051030353099, 7.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.48019489641831115, 6.}, 0.08031358883465894], InsetBox["3", Offset[{0, 2}, {-0.48019489641831115, 6.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.569314986560698, 6.}, 0.08031358883465894], InsetBox["4", Offset[{0, 2}, {4.569314986560698, 6.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.48019489700209306, 5.}, 0.08031358883465894], InsetBox["5", Offset[{0, 2}, {-0.48019489700209306, 5.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.569314985895403, 5.}, 0.08031358883465894], InsetBox["6", Offset[{0, 2}, {5.569314985895403, 5.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-1.4801948987205833, 4.}, 0.08031358883465894], InsetBox["7", Offset[{0, 2}, {-1.4801948987205833, 4.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.4801948993890619, 4.}, 0.08031358883465894], InsetBox["8", Offset[{0, 2}, {-0.4801948993890619, 4.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.185076517975062, 4.}, 0.08031358883465894], InsetBox["9", Offset[{0, 2}, {5.185076517975062, 4.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{7.519805101591487, 4.}, 0.08031358883465894], InsetBox["10", Offset[{0, 2}, {7.519805101591487, 4.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-1.4801948991458858, 3.}, 0.08031358883465894], InsetBox["11", Offset[{0, 2}, {-1.4801948991458858, 3.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.48019489646310376, 3.}, 0.08031358883465894], InsetBox["12", Offset[{0, 2}, {-0.48019489646310376, 3.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.932983114614558, 3.}, 0.08031358883465894], InsetBox["13", Offset[{0, 2}, {5.932983114614558, 3.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{7.519805100010558, 3.}, 0.08031358883465894], InsetBox["14", Offset[{0, 2}, {7.519805100010558, 3.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-3.1220982740783256, 2.}, 0.08031358883465894], InsetBox["15", Offset[{0, 2}, {-3.1220982740783256, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-1.480194898390323, 2.}, 0.08031358883465894], InsetBox["16", Offset[{0, 2}, {-1.480194898390323, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.2104546215477967, 2.}, 0.08031358883465894], InsetBox["17", Offset[{0, 2}, {1.2104546215477967, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-0.4801948976514723, 2.}, 0.08031358883465894], InsetBox["18", Offset[{0, 2}, {-0.4801948976514723, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.645894071093039, 2.}, 0.08031358883465894], InsetBox["19", Offset[{0, 2}, {4.645894071093039, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{6.221910142037359, 2.}, 0.08031358883465894], InsetBox["20", Offset[{0, 2}, {6.221910142037359, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{9.186622018146181, 2.}, 0.08031358883465894], InsetBox["21", Offset[{0, 2}, {9.186622018146181, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{7.519805102733812, 2.}, 0.08031358883465894], InsetBox["22", Offset[{0, 2}, {7.519805102733812, 2.080313588834659}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-3.480194892952227, 1.}, 0.08031358883465894], InsetBox["23", Offset[{0, 2}, {-3.480194892952227, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-1.480194890561961, 1.}, 0.08031358883465894], InsetBox["24", Offset[{0, 2}, {-1.480194890561961, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.5198050995101084, 1.}, 0.08031358883465894], InsetBox["25", Offset[{0, 2}, {1.5198050995101084, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5198051079659081, 1.}, 0.08031358883465894], InsetBox["26", Offset[{0, 2}, {0.5198051079659081, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.519805100640724, 1.}, 0.08031358883465894], InsetBox["27", Offset[{0, 2}, {4.519805100640724, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{6.5198051003653745, 1.}, 0.08031358883465894], InsetBox["28", Offset[{0, 2}, {6.5198051003653745, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{9.519805097045264, 1.}, 0.08031358883465894], InsetBox["29", Offset[{0, 2}, {9.519805097045264, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{8.519805109167123, 1.}, 0.08031358883465894], InsetBox["30", Offset[{0, 2}, {8.519805109167123, 1.0803135888346589}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{-4.480194894643205, 0.}, 0.08031358883465894], InsetBox["31", Offset[{0, -2}, {-4.480194894643205, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{-2.4801948906931557, 0.}, 0.08031358883465894], InsetBox["32", Offset[{0, -2}, {-2.4801948906931557, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{-3.480194892895497, 0.}, 0.08031358883465894], InsetBox["33", Offset[{0, -2}, {-3.480194892895497, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{2.519805098875395, 0.}, 0.08031358883465894], InsetBox["34", Offset[{0, -2}, {2.519805098875395, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{0.5198051104613342, 0.}, 0.08031358883465894], InsetBox["35", Offset[{0, -2}, {0.5198051104613342, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{-1.4801948938142004, 0.}, 0.08031358883465894], InsetBox["36", Offset[{0, -2}, {-1.4801948938142004, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{-0.4801948913330989, 0.}, 0.08031358883465894], InsetBox["37", Offset[{0, -2}, {-0.4801948913330989, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{1.5198051009488154, 0.}, 0.08031358883465894], InsetBox["38", Offset[{0, -2}, {1.5198051009488154, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{3.519805098433949, 0.}, 0.08031358883465894], InsetBox["39", Offset[{0, -2}, {3.519805098433949, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{5.519805092724823, 0.}, 0.08031358883465894], InsetBox["40", Offset[{0, -2}, {5.519805092724823, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{4.5198051004216495, 0.}, 0.08031358883465894], InsetBox["41", Offset[{0, -2}, {4.5198051004216495, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{10.519805098966913, 0.}, 0.08031358883465894], InsetBox["42", Offset[{0, -2}, {10.519805098966913, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{8.519805093779155, 0.}, 0.08031358883465894], InsetBox["43", Offset[{0, -2}, {8.519805093779155, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{6.519805090064892, 0.}, 0.08031358883465894], InsetBox["44", Offset[{0, -2}, {6.519805090064892, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{7.519805093516766, 0.}, 0.08031358883465894], InsetBox["45", Offset[{0, -2}, {7.519805093516766, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{9.519805097990798, 0.}, 0.08031358883465894], InsetBox["46", Offset[{0, -2}, {9.519805097990798, -0.08031358883465894}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{424.76953125, Automatic}]], "Output", CellChangeTimes->{{3.797990333718519*^9, 3.797990338695169*^9}, 3.798033037463743*^9, {3.7980330867005167`*^9, 3.798033103976335*^9}}, CellLabel->"Out[4]=", CellID->25524369] }, Open ]], Cell["\<\ Find the causal connection graph for events at step 3 (there are just two \ \"subuniverses\" in this case):\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.798033116186145*^9, 3.7980331380677958`*^9}, 3.798033207920138*^9, {3.798036082447143*^9, 3.798036091107183*^9}}, CellID->302225489], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"CausalConnectionGraph", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ",", "Automatic", ",", "#", ",", "\"\\""}], "]"}], "&"}], ",", "3", ",", "9"}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.798033155450802*^9, 3.798033220783836*^9}}, CellLabel->"In[37]:=", CellID->408094487], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt2wl0VOXZwPEoWFGUQxchghXbAgKloAlkw5BMlkkmk4SlbILsEIsB2UyD QAMCEUXWhKUQdoHYoyxBllAWRQFB1lMWMUREq6CAlkWslOX7nsk9fc9tZvFm 5k4meP6/c08X8tx33ueZe9/l3uQ3/YZ2zLg7KChoZA35j459sy0jRvR98Y+1 5f90fn7koGefHzjA9vwLA58dOCKiXzX5x/XVg4K6yX87/vf/AQCAO8T169fX rl2bk5MzePDgzMzMNWvWeI7/5ptvDhw4UFJS8v3333sI++STT5577jlpMzs7 e8mSJXKWqb022d69e+vXrx+k07NnT5eRxcXFFovloYce0gc3b9781VdfvXDh gnP8li1b9JHBwcFFRUV+zsZLFy9elO4F/S/nOpw5cyYlJSXIPSmOXFHlzipX B82uXbsqK7kKmDZtWrl+Pvjgg8OGDdPHXLlypWnTph6KoLz++uv6Ez/88MP7 77+/XEz79u0rN0VD5DpXPezXr99XX31VLuD27dvSc30iTzzxREFBwXvvvbdu 3bohQ4ZUr15d/ahGjRrHjh0r18Lly5fnzp1bs2ZNLebuu+++evVqZeVnVJ06 dbTu1apV67vvvnMO2Lhxo74Iw4cPv3nzpj7g4MGDcgmpgF69ern8oIyMDBVz 9OhRvyTjLfmu5dvR+hYWFuYypnfv3qr/kZGR5YqgkctDxfzsZz+T2cc5Zvny 5Srm7bffNjkT38gFoPqWmprqHCAZ1a5dW8Vs3rzZZTvXrl1T9RQnT550jlm9 erUKkJqYnIlvZABUfevWrZtzwOnTp1u1anXfffdp976H1cLPf/5z1dTOnTud A+QaUAGLFy82Mw2f6evgbs0gbt269fHHH7///vvuAr744gv9GHLq1CnnGFk5 qID58+ebk4BJ9PdF//79vW5n3Lhxqh25j27cuOEco69Dfn6+D70236VLl1Tf ZPXrRQsy0s6ZM0d/Mbz44osuI/XzzpQpU3zruMnOnj2r+paVlWXwLBk8P//8 8z179sybN08W1foiyP/917/+5fKsrVu3qrDx48ebl4QJdu/erfo2depUg2fp r3C9Nm3aOC/DlOPHj6vIHj16mJSBOWbPnq369qN7TGXWrFku6yCjhAyY7s6S seiuu+7SImWVblIG5ggJCVFZuBzkXZIlpcs6BJUtSt955x13J0ZFRWlhstiQ Vag5Ofhs9OjRqv8RERHGT5Qr/K233iopKZGtRGFhYXJysr4U9957r2w9XJ6o v5CaNGnichlfaWTNIF9oaGio6pJ8Oz4udGVdVK1aNdVgeHi4yzAZYPVX4AMP PJCenh6obfhnn31W7utbtmyZ781mZ2frm3V3d8jdV26Kyc3N9f3TvVCuDmYt cX/44Ydf/vKXqtnp06e7i5S1uhowq04dpEtjxowxpeWEhATVbGZmpssYman1 m/QA1kG+OFn/pKWlyR2hOrNu3TqXwf/+979PnDixYcOGvLy8d99913PLskNR DXbt2tU5QL4CmVBUjIxRMtUan6f8ZNGiRapLDRs2dBnz2muvqRiLxeK5QZl0 VLDLa2zs2LH61mT7ZkIaZtBPeYcOHXIO2LZtmwqQGeHixYvumvr222/1jyJl N+Ec06hRI+2n99xzj4cVV+XTT+hy5TsHyE2kz27kyJHumurVq5d+zJGylAuQ TaiaW2X2NDkT38iCR3V+xIgRLmNkitcn6PxISracM2fO1A99LgeH0tJSFTBw 4EDzk/HBmTNnVN+6d+/uMkYGt1/84hf6u2Po0KEy90n6V69elVVQYmKivggN GjRwueXcv3+/ipk4caKfM6uYc+fOqb516tTJXZjMF/oZXyPTjfM/Vq9e3d36 UH/tGd/bVg65i1XfPL9eWb58+a9+9asgj1q3bn3kyBF3LeifP8g+1w/ZeE8u bNW3Dh06eA6Wog0aNEj/1kYJDg6WIcLzPLhp0yYVX1BQYGoevrp27ZrqW8eO HY2cInulo0eP/u1vf5s0aVJ+fv6OHTvOnz9v5MT169erz1q6dKlvHTeZTIuq b3a73a+ftWLFCvVZK1eu9OtneUE2v1rfYmJi/PpBMjaqOmzfvt2vn+UFtQuu UaPG5cuX/fdBNptN1UGmXf99kHdkWFDdCw8PLyoqkjHf82+5GCcjpyw/ZOUg izQ1ydasWdPlC47AKi4udh7/+/bta0rj+rlScbclDzj9MzqNh3d8FeL8+zCy wwr4RtsdWUUMGTJE/8LaT3Vo3LixuzfmVYfcyDI4LFmyZMGCBXv27DGlTVla SGsLFy6UiVJGiSo4LAAAfsJkmXry5MkNGzbIZDRjxgzZucyePVu2wB988MGV K1cC3bvKUFpampeX17Vr11Q30tLSsrOzZR37U52jz549O2HCBJVvSlJ8kiU8 MbpFQptmCVFNE59qbo0JtSVE21NsWkCfPn08/AbCHWrjxo2yH5TsJE3JN671 o7FP1nF5WEIelsrYrHFaNcaNG+fXTXSlkaFA7n0tKbkALKH1tHzbPfXIn7s3 zR8aumxM5IqxkQuywiYOaNE7+TeWkLpagFTDbkuSs/r37//ll18GOg9fyTCo XQYJUU20BAem/W7NpOiTK1JLVqU5H3vmWXMHtrS2DnZcG60esVlj5XTZLp07 dy7QqXivsLBQK0J8+G8lr6Swh5ePiXSZvnM1+tt/V3abBCcnREsjGRkZZj1U qWTHjx9PT0+32+3xEY0ko44xv94+M95IEbTjxOv2F59ppo0YNqtFSlHVXpoY IcNCZmamdN7a9knJxR5Z7/05icaLoI6RXR13k4yr2jzi4fVK1bR9+3bH5Jic EBsSLEPfupfbelEEOY4tS+lpfUxKYY1uKQ26e4dbZQ0ePFi6LWO+pDCm1++9 K4J2bJ0eJ5WUgSKlbPo4ceJEoJMz6tNPP3VcDLak2CfrxofW3ftXqy91kGNY 58cdl0RMiDRb1V4pevDmm2+WrRbCpPNDOz3uYxHkkHnWMUqEPSbNmvUIuhJo 62dtwbB4VLjvdZC5Q+Zcx3hbdmu4/FPTKkjmeultXOsG0vMdsyowV3o4BqQ6 lhO2xLbS8uHDhwOdoiFdunSR3sq8Lz3/x9IUU+qQ3cMx5CbFRUjLd8r+q127 dtJbGSSl5+7WzxU9cvo0d9TBEiYtFxcXBzpFQzp37qyuh6MmXQ+jdNfDjh07 Ap2iIQMGDCgbHxyb63fzzBkfZHfmGB/K9hpV508ePBs3bpxjvoh0TPpLR0f4 XgS5uWzhjqsrxWaVlr/++utAp2iIts1Mim0tPZcNgu91WP9KTNkuo4G2Bw90 fkaVlJSUrSetMlQmtgo+UJDsYx3+3L2pYz3Z9glpdsaMGYHOrwK0JYR2a0wc 0MKXIuzMT5DFuezXUpIT77gt56ZNm6TPNmuctsXY/Fqsd0X4aEWqtoJKfOoP 0qB3f6MaQDdu3NBmjcToFtrTyH3zk7yow196N9ce0NlTkqW1vXv3BjqzCjtw 4IDjoZw9RXso93RCg91zK/Ao5uOVqS9ntHQ80gwJtiXGSFNV7ZeZjSsoKHCU wpak7TVSI+utzY02UoRDC5OH/LFx2XPdusnxUdJI796979wH+Ldu3ZIvsexR bXJ8REPtefXwLk22To9zV4Eji215Q0PtkfXKnkzWS054Sk7v2rXrp59+Guhs fCIDxeTJk8tuELs1JlRbbGu3icwjS16MWDMpumhy2zfGt5n1fOjgjo1lntUC 4iMaaRNEjx49SktLA52HCW7fvr1q1ar09HRtUZEY3dISWt/d+yzH/BLRSFs/ aw8k75TVo0GnTp0aOXKklp1cG7bEttaYkIQ2zSRruWVkpSEzS3JcpPYQUrsX 1q5dW3X+BMxcskWSEaN9+/bu3neLP/3pT2+99da1a9cC3Vm/kxz37du3cuXK qVOnjh8/fuzYsbm5uQsWLCguLq5Sf/4GAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAMBP2/Xr19euXZuTkzN48ODMzMw1a9YYP/fbb789 V+bq1avlfvTJJ58899xz0mZ2dvaSJUu++eYbU3ttsr1799avXz9Ip2fPngbP lUwffPBB7axOnTqV++mWLVv0zQYHBxcVFZndfXNcvHhRuhf0vwzW4ebNm1FR Ueqsjh07lgsoVwfNrl27/JCHr6ZNm1aun/L9Dhs2zMi5EydO1J/oXIcPP/zw /vvvL9d++/bt/ZCHrywWi+phv379vvrqK4MnSo7Vq1f3XAfN5cuX586dW7Nm TS3s7rvvdh5JAq5OnTpa92rVqvXdd98ZPEsiGzVqVO6LdlcHTUZGhoo8evSo GX03ze3bt+Xb0foWFhZm/ER9UgbrsHz5chX59ttv+9x3M8nXqvqWmppq8CwZ 852L8KN1WL16tYqUmpjRfdNcuXJF9a1bt25GTpEB5KGHHtJOqVGjxquvvmqw DnINqMjFixeblIE59HUwOFempKSoU2bNmrV+/XqDddBfRfPnzzcpA3Po74v+ /fv/aPycOXNUfEJCggwv3tUhPz/fvCRMcOnSJdU3Wf16Dv7oo4/uu+8+Lbh2 7dr//Oc/5R+N12Hjxo0qcsqUKWam4bOzZ8+qvmVlZXmI/M9//hMSEqKCV61a pf278Tps3bpVRY4fP97MNHy2e/du1bepU6d6iBw1apSK1I+oxutw/PhxFdmj Rw/TcjDD7NmzVd887DF37typlhmyI5MNpvqR8TrIWHTXXXdpkU2bNjUzDZ/p L/VTp065jJExpEGDBlqMJPL3v/9d/1PjdRBqUyZVPXjwoGlp+Gb06NEqhYiI CHdhcg2rsCFDhpT7aYXqIPOsCm7SpInxZbw/yJph+PDhoaGhqkvy7bhb6BYW Fup7/v3335cLqFAdrl+/rr8CH3jggfT09EBtwz/77LMgnXvvvXfZsmUuIz// /HOZH7Uw2Vru37/fOaZCdRBy9zVv3lzfgdzcXF9T8kq5OnhY4j799NMq7J57 7slyRb+8fPTRR9W/yyzprtnTp0+rAbPq1EG6NGbMGJeRVqs1yFsvvPCCyzZl plbP8QJbhx9++GHevHlpaWlyR6jOrFu3zjnS9DrIV1CrVi0VI2PUuHHj3M1T lWbRokWqSw0bNnQOSEpK8roOLlenY8eOVQEWi+XWrVv+z9KQ5ORk1bFDhw6V ++mFCxdKfkxeXp5qITY2Vv375cuXnT9OPcKS0eaLL76olBQN0U/okpEXLRif L27cuFGtWjUtUmZPb7vsF++9957KYsSIEV60YLwOpaWlKnLgwIHedtkvzpw5 o/rWvXt3L1owXgdZfqjIiRMnettlvzh37pzqm/PbKCOM10F/7Xne21Y+2Tmq vnn3esW75w+yz/W2y35x9epV1bcOHTp40YL+zZ2sPz1Ebtq0SUUWFBR422W/ uHbtmsFv03f6K2fp0qV+/ayKkrWl6pvdbvfrZ61YsUJ91sqVK/36WV6Qza/W t5iYGL9+kIyNqg7bt2/362d5Qe2Ca9So4XIRaBabzabqIFtO/32Qd2RYUN0L Dw8vKio6cuSI8/MW78gOQvZWsnKQRZraa9esWVPWlqa0b6Li4uIgJ3379jWl cf1cqWRmZprSuOn0z+g0xn8vyDPn34eRHVbAN9ruyCpiyJAh6sm8/+rQuHHj zZs3m9Ky/8iNLIPDkiVLFixYsGfPHlPaPH/+vLS2cOFCmShllKiCwwIA4Cfs 5s2bJ06ckA3s/Pnzp02bNmXKlPz8/MLCwt27d/t1a1B1lJSUzJo1q0uXLqlu pKWlZWVlybrlpzpHf/nll+PHj1f52pLikixhidEtEto0S4hqktjm99aYkOSE aHuKTQvo3bt3FdzV+mjDhg0dOnSQ7CRNyTeu9aOxT9ZxeVhCgqUyNqtFq0ZO Ts6lS5cC3X0TyI41Ly9PSyrJEm4Jrafl2+6pR0b1aJY/rNXrYyNX5kQV/Dns 5YyWfVN+awmpqwUkRDVNsSXJWf369atS74y8M336dO0ySIh8XEvw2fSG615u +/HK1JJVac7H3r9aJ2e0tIY97Lg2Qh+xJcbI6c8888zZs2cDnYr3Vq1apRUh Pvy3kldS2MMrxka6TL/c8cE864DU32m3iQwa0khGRoZZD1Uq2bFjx9LT0+12 e3xEI8nojzG/3jEr3kgRtOPE6/YxPX9fVoqHteGiqr00MUKGhUGDBknnrW2f lFzskfV2zUk0XgR1ZD3dVE6XcVWbR44cORLozCpm27Zt0u2UpPjYkGAZ+mRA 8KIIchxbltLT+piUwhrdUhr07h1uAGVmZkq3ZcyXFP7Su7l3RdCObTPipJIy UMiUK20eP3480MkZdfr0acfFYEuKfbJufGhdmQJ8qYMcw7s0cVwSMSHSbFX7 FXcP3nzzzbLVQph0fmjnx30sghxrc6Mdo0TYY9KsWY+gK8GECRPKbgrHl7h4 VLjvdZC5I6lsRWEvW1lduHAh0CkaInO99DaudQPpeYXmSg+HtpywJbaVlg8f PhzoFA3RtpMy70vP/7E0xZQ6ZPdo5liJxUVIy++8806gUzSkXbt20lsZJKXn J1e4Xj9X9Mjp09xRB0uYtFxcXBzoFA3p3Lmz6dfDKN31sGPHjkCnaMiAAQPK xgfH5vrdPHPGh4FpZeND2V7D+TckqybteYu2wVw6OsL3IsjNZQt3XF3aUurr r78OdIqGvPHGG471Q2xr6fnIrk18r8P6V2LKdhkNpNlevXoFOj+jSkpKytaT VhkqE1sFHyhI9rEO2m5LtmzS7MyZMwOdXwU8++yz6taY0L+FL0WQEUYW57H/ 3V/cWVvOTZs2aQ9jtS3GptdivSuCrCT72x0jZOJTf5AGnf+uqoq7ceOGNmsk RreULNLb1PdutzWml+NRTFyrR+wpydLavn37Ap1Zhcns5ngoZ0/RHsp1i29Q oUcxMkdMHNDC8UgzJFh7Sjlp0qRA5+SlRYsWOUphS5atovZUas2kaCNFOLgw ObNj47LnunWT46OkkT59+ly5ciXQCXnp1q1b8iWWPapNjo9oqD2vHtb58S3T LO4qcGiRbebzoVKxsieT9bSHtN26dTtz5kygs/GJDBSvvPJK2Q1it8aEaott 7TZ5qd8fZFe+elL0upfbrsyJmjEkRK6BhFbBWkB8ROOU5ETtoX1paWmg8zDB 7du3ZWWlbb5k7rNGt7SE1nf3Pssxv0Q21vbX4oUXXjh//nygMzCTfKdZWVla dnJtyNBnjQlJaNNMso6PaJQQ1UTqkxwXqT1p0e6FoqKiqvMnYOY6fPhwbm6u 9q7TnUGDBq1evfoOfWtTIZLj/v37CwsLp02b9tJLL+Xk5EyePHnhwoVbtmy5 o9/fwdn/A/5k6yk= "], {{0, 601.}, {44., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{22., Automatic}, ImageSizeRaw->{44., 601.}, PlotRange->{{0, 44.}, {0, 601.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7985673761059523`*^9}, CellLabel->"Out[37]=", CellID->23710824] }, Open ]], Cell["Find the corresponding result for events at step 5:", "Text", CellChangeTimes->{{3.798033266403006*^9, 3.7980332769266033`*^9}, { 3.8006247445782347`*^9, 3.800624744915038*^9}}, CellID->994918320], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"CausalConnectionGraph", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], "}"}]}], ",", "Automatic", ",", "#", ",", "\"\\""}], "]"}], "&"}], ",", "5", ",", "11"}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.798033155450802*^9, 3.79803324849487*^9}, { 3.798567387117951*^9, 3.798567389969617*^9}}, CellLabel->"In[38]:=", CellID->73934910], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3Qd0FVX+wPGo9OoeVKqAhSbIsgFSCBHSOwGkChGpK21p0qX4V0T6oUMo AQzC4tKLlEX2IHhARIqg9LYgRXoz0vb/exm9jq9MXl7JBPL9nHcs5Df3/e78 3sy9d2ZeeKldj8adnvbx8emTT/7RuG3/kN692w5881n5n6b/6NP57//o2CHm H+91/HvH3gHtnpE/3JrLx2e2/Nvy3/8DAAAAAGTer7/+unz58qFDh3br1q1r 167Lli0zjk9LSzuYTjbMmgzddPz48S5dukjv+vfvn5KScuXKFbMz8q4dO3aU Ll3aRycpKclu5KFDh5o3b16hQoVnnnlGi5T/qFixYosWLQ4fPuztJCNdMmbM GNl8w4YN+g6WKFFi5cqVXk3YRJcvX5YO+vyZbU1/+eWXQYMG5cmTx8eBvHnz ymEuYV7K85///KejtzbWrFmz/9nUVLNt2zYvZWuucePGWfW0cOHCPXv2tApr 3bq1MzuwVatWXsrTzZp+8803BQoUsPpRw4YNvZStuUJCQlQf27Vrd+HCBduY Tz/91KroH3zwwfr16zdu3DhixIhnn31W/9OFCxd6I8/PP//ctZr26dNHNXLj xo1p06YVLFhQ+9HTTz9969Ytb2RrrhdeeEHrYJEiRW7fvm03pnjx4moXVa5c +cyZM/qfnjt37vXXX1cBRYsW9cbE6f79+6edsHv3bqmUSsbX1/fu3btWTXXq 1EkFfP/99x5P1VyPHj1Se8DPz89uzJEjR9QeyJUrl+w025h9+/blzp1bhdmN yQIPHz6MiopSaTz//PNSZduwBQsWqJjVq1dnfZ5eJQem6l18fLzdmHnz5uk/ 9o6aeuONN1RYcnKy11I2IiOC/uP3n//8x27Y0qVLVZjUN4uT9LabN2+q3sl6 xG7M2LFjVUxwcLCjpt5++20V1q9fP6+l7JDVWbdv376OIuXYVGFz587NyiSz gL6mjtakixcvVjGvvvqqo6aCgoJU2IQJE7yWsn0yiAQGBqoEypUr52huIGRl qiJnzpyZlXlmAf25t3379nZjDhw44KPzr3/9yzbmq6++0h8jMh/2cuLW5HDT J7lq1SqDYH1NJ0+enGVJZo3r16+r3nXr1s1RWFhYmAqTiceWLVv0P5WTXvny 5VVAlSpVZK7i9dR1rl27pmbvolGjRsbxa9euVcGjR4/OmiSzzE8//eTMAHTw 4EH9TnvqqadktS4r01GjRrVs2VJdJxQy+/3yyy+zsgti4MCB+gROnTplHL9p 0yYVP3z48KxJMsts375d9U7mQgaRP/zwgyx2fAzJDCrrl3syJZAVscrB0Qii Jx9RFe+9C19mmTJliuqd8b2YtLS0WbNmGdd00qRJ3rve68iYMWNUAnLGOHbs WIabyCxCTjXaJjJSZEGSWUnWm2qHHD161FGYHH1WN24ckQmnQTse9+uvv+oT a926tZMb1qlTR9tEpnZmXSHxhkGDBqm9ERAQ4CjsyJEjxYoV0xcuPj5epo4n Tpw4fvz4ihUrGjRooP9pqVKlsqys+ushUh0ZIJzccOLEiWrDypUrGyx8Hgsy APXq1atmzZr6vWFwiax58+b6k5vsRtuYRYsW5c2bV4UlJCR4swd/CA8PV28a FRXl/IZygOvPUYUKFZJP5uN76+306dP6w0pqMX/+fEfBhw4d0i88ZYbpKFIW Bfpm9+zZ4530/3D58uVcuXKpdzTohV1yMqlWrZo+Z5nJeylVb7OqqfHFMdlR KrJkyZIyU3IUKWtS/S6SZY4Xcv+T2bNnq7fLnz+/nH8y24IMH2qy9CTVVDo1 ePBgR8FDhw5VkYmJicYtd+nSRQV36tTJ04lbi46OVm/XtGnTzG4u67jChQs/ GcepHGvTp0+XIU8/AspUx26w/lajowvCyoQJE1RwTEyMF3L/w61bt/R395Yv X56pzeWDXaRIEbW5zC6GDRuWlTN2L5kzZ47qlKOL83IKVTFBQUHGDfbr108F t2nTxvMZ62zZskW9l4z4d+7cydTm77//vto8JCQkiy9mepX+9PXdd9/ZBugf zcqTJ4/tMwN6+sdgpk2b5rWsLUaOHJnhB9JAhQoVtG3lYD979qw3MjSLfpk2 adIk24CLFy/qRxyDq6OrVq3SR3p7IS+Du3qvzD4qdv/+fXWN2uAu/2Nq69at as/07t3bboz+aRAfBzcyDhw4ILNiFVOpUiXZb/qAtWvXfvK7xYsXu5+5/vlV OZFmattjx46pbTt27Oh+MtnKqVOnVO/eeustuzHnzp37y1/+oi/rO++8s2TJ kkuXLj148EAWsHLw6p/7lbPZt99+a9VI48aNVUDt2rXdTFtGT30+mf2Q7Nq1 S2374YcfuplMdnP+/HnVuyZNmjgKW7RokY89+pmnIiOdbQuerenx48f175jZ m0H6s5Px3ajH0dWrV1XvjEel1atXly1b1m5llWLFiqWkpNjd3LM13bZtm/5z de/evUxtrr9/OmXKFDeTyW5klad6l+HjAbdv35YxV7+sUwoUKNC2bdvLly87 2rZly5YerKm+KFWrVs3s5uvWrVObz5o1y81kshv9wCSHkpNbyeR/48aNU6dO nT59ukx+Tp48+ejRI2c2rFWrlrxRaGioGyl7gH6KbveWxGMtLS1N9S4uLs6r 7yWHufaNFdMfLUhNTVW99tI3QcxVqFAhrXf16tXz3rvIgdyjRw/tjeTo9t4b OUP/xPLmzZvNTcYb1M2UfPny3bhxw0vvkpSUpL1L0aJFr1275qV3cVJMTIyq 6YkTJ8xNxhv0M1J/f/+VK1fu3bvX+BqgC2QCJu2XL19+586dnm3ZSQ8fPjx9 +rSsTGWap+6vFSxY0OrayJNh/fr1tvNYmcR69l3OnTvXrVs3E49Q/VRZ6dq1 q1n5eJv+ORZNhrfVHju23xOXhe0TcHPNEVmldu/eXf+MyhNf04oVK37xxRdm J+V1MtzIYJqSkpKcnPz111+bnY6HXbp0Sfo1e/ZsWbzIqPpEDqMAAABA9vTg wYODBw8uW7Zs8uTJI0aMGD58+MiRI2fMmLFmzZrjx487ebcL2cTJkycnTZrU rFmzeMeSkpLmzJkjqzCzk0UGpEZySKrCxUSFRtWvHVG3WnhgpbCACvLPiODq USH+sdERWkBiYuK0adMe92/ePcE2b97cpEkTqVRcbExk/VqhtcvV/9sLjl5h fi9FhQbExcVpx+y+ffvMTh/W5ESqHXrRoYEhNUtrhUusW2Zg69dm9Km95IO6 yz4KXjw8aHLPWn2aV44NKKUFSN1jIt7QDtj169eb3Qn8YebMmZbDMy42Iug1 rVjtYl/+14fBh1Ljj3yWYPs6uCBu/uDA5qFl04OLR77hq30e1q1bZ3ZXYLFq 1SqtoDJiSo0iapWY09/fbimtXj98Gje6cw3tMyBjrjTSoEGDJ+mXFTymZFXS sGFDKUd4ncrayfaLMfWdKah6fTa0TqRfSdk28o0a0k6rVq2uX79udrdytN69 e0shZHIrRYnyK/nvCaGZKqj2ktE2xLe4tBAdHiytjR8/3uxu5Vzbt2+XEsgk N8TXcqAtGhbkQkG117huvpYpU60X5RyekJBg9VuUkWXee+89qakMhVKO91pU cbmg8pLZVFJkecvBXr+2tDlx4kSzO5cTnTt3TluKhviWCPUtvnVyuDs11c7A 6aubstJss2bNHpe/COZJsnLlSstIGhoghejcsIKbBZXX4YXxjYLLSGsxkfWl ZbtfA4dXffzxx5bpbvqCdOZ7fu7XVF7D2lpO45H1LMvV1NRUs7uY43Tu3Fn2 fKifZRDcNN6V6a7ta/7gQGktvE4Vadnu10LhVc2bN5c9r814986N8UhN142p b7kU7P+ytGzw63nhJYmJibLn6//Nsq50dA0ws68tE8PSp0nlpWWDX6MNL9Fu wcikV6pwYH6sR2oq53Dtlo203KtXL7O7mOO88847lvG01otShW1TIzxS0yX/ Z1nOhAVUlJaHDh1qdhdznEGDBsme167bu3MFSf/SriZFBFeXlmfMmGF2F3Oc lJQU2fOy7pAqDGlTzSM17RD/iuWqb1iQtPxEfnk2m9uzZ4/lYm+UZVYTF1jK /SH1q6kR0pRMpONiYxISEgx+gQa85OHDh0lJSZbTr7/l4JrSq5abNR38dlXL iTeoqrQ5YMAAs/uXQy1cuNDysEp4sOWCnn/JnTOjXC7oF2PqW263+ZaIjQ6X Nrdu3Wp253KoW7duaVcewgMrSVnbRL90YEGcCwX9JjlKu9IbGWy5Ld6lSxee /jXRmjVr0m+hRoXUshSlV7PKBzNZ1u9mR8uHQVuWxsXFSmv79+83u1s53bBh wyyP8kaGatcJ28a+vCvZ2ZPwlolhTeq/qN0Nj42JlHaevN/T9Ti6efOmdj0/ JjJEewo0vk7p2f39fzS8YLh/XqysRiNrl9CeCNUKOmTIkAcPHpjdIVj8/PPP 7777rvYci3YVQl4yRI78e401o+pJ+fRn2qUfBQ9v+7osf357YjCoqixeZNuB Awdm/d+0BQM3btwYPHjwb49th9UJrV1e/9R9bECpxLplov1L/ulR/IBXYyLq aZtMmDCBX1mQDclkdenSpdq1fcupOKJeRHB1mflo1/m1l4y5sp6NfKNGTFSo +jKUo79HG9nElStXkpOTmzZtqr4JFSdio+W0rJ1jldatWy9evNjjv4IMXpKW lrZ169aJEyfKYrNRo0aqjnIU9+jRY8aMGd9+++2T9Bdq5DRyTr5z5861a9c4 JAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAt+ /fXX5cuXDx06tFu3bl27dl22bJmTGx49enTnzp3ffPPNo0ePMvWOd+/ePXDg wL59+37++efM5+tJt27d2r1794kTJx48eGAQdvz48S5dusj+6d+/f0pKypUr V7IsQxfs2LGjdOnSPjpJSUnObHj69OnChQtrm0iXndnk0qVL3bt3L1u27FNP PaXe7rnnnpM/PHz4sHv9yJwvvviiadOmFSpUePrpp7U08uTJU7169enTp//y yy+28Rs2bNDvohIlSqxcuTIrE3be5cuXJT2fP3OmpvKpjoiIUJs4U9OZM2eq z4Ct/Pnzz5gxwxN9ysDt27ffffddR2mIF154QSputZVVTTXbtm3LgoQza9y4 cVZ5ym7v2bOn8VYPHz58++239VtlWNNFixbpj01HpO6e65wdP/300yuvvJJh Grly5Zo3b55+QxlfChQoYBXWsGFDr2brmpCQEJVhu3btLly4kOEmcmpq27at Ve+Ma7pr1y45s6ngIkWK9OrVa8mSJQsWLJA3zZcvn/pR7ty59+/f77n+WZPz rT7tggUL9ujRY/HixXIilelE8eLF9T/duHGj1eY3btyYNm2abKUFyHlbhmPv ZesaOc+o/SwnpQzjv/rqq0qVKtl+sI1rGh8fryJlv3333Xf6n27evLlQoUIq oEOHDu72yoG1a9fqc37ttdcOHjyoD5CjuH79+ipAeiqzR9t2OnXqpGK+//57 L2XrGpmsqhmCn5+fcbB8IGXW5+j8aVBTmdyqreQ/ZJJpGyMDk8pETnHXrl1z t2/26M+6MjGzO3eVD7Z+xjh+/HjbGDm9qIDVq1d7I1WXSf4qNzmUDCJlhlCu XDm71cywpvJJUGGNGjVyFNasWTMVNmHCBLc6Zs/Fixf1CScnJzuKTE1NVWF1 69a1DVi6dKkKkPp6PFV33Lx5U+XWokULg0irgsoIKMOK/iRsUFNfX18VJiOX o7BVq1apsMqVK7vVMXu2bNmi2pcRR6Z5jiLlR3nz5tUiZXy3HTHl2FRNzZ07 1+OpukNfU+P1i76mVatW1QYRZ2p69+5dmUNqMXLiNbjCcP36dXX6FfK/bvbO ytSpU1XjMmgaB8tQq4JlFLb6qUyo1E+9PVHPLP25t3379gaRWk3ln7IkV9MG Z2oqcyoVU6ZMGeN8Xn75ZRX89ddfu9YpR3r37q0a79ixo3Gwv7+/Ch4zZozV T/U1nTx5smfzdJMcCyo3GfUMIlu3bj179ux79+7p/9CZmn722Wcqxu7YpFev Xj0VnJKSksneZGDEiBGqcRm7jYOrVaumggcPHmz1U/38efTo0Z7N000ydVe5 9e3bN7ObO1PTGTNmqJhWrVoZNyifHBXs8WnSsmXLVONSMoNIWQ7ol8xdunSx Cti0aZP66fDhwz2bp5u2b9+uchs7dmxmN3empqNGjVIxnTt3Nm5QAlTwRx99 lNl8jB06dEg1LgP3zp07HUUuWrTIR+ett96yCpBVrfMf1Cw2ZcoUlZvz92IU Z2o6aNAgFSMjmnGDvXr1UsEDBw7MbD7G7t+/r7+499e//lX+xDbszp07L774 or6msbGxVjEyD1Er7ipVqng2TzfpVxlHjx7N7ObO1PT9999XMV27djVusH// /io4w2vOLtAPqSI0NPTMmTP6gJMnT9apU8fnzxISEmybUmFyyNu9imIK/REU EBDgQgvO1FSGaRWT4ZDdp08fFTxgwAAXUjImM3Y5rPT1evbZZzt06DA5ncz8 ixQp4mPD7ipv4sSJKkBW085cVvUeWZPKKa5mzZoqJfmkuXaBy5mafvDBByqm e/fuxg3KgayCR44c6UJKGdq6dau6nuBI0aJFe/Toof7X7opAPh76s1yhQoUa NGhg1q2306dP6/OXDs6fP9+1ppypqf5envESWOhv90ydOtW1rDK0f//+119/ 3VFBn3vuOTmXyppU/YkMH3bbkdFKv+QRcm73Us7GrGrqzqUtZ2o6a9YsFWM7 2bASHR2tglNTU11OLENpaWkyB5PKqmtcPuk3jmXirXVEf43a9pqDcuLECf1N jWxSU0nJdk3tJGdqqr/Karwq/N+fr8ht2LDBtawy5ZdffpFFjaw3Dx8+rL+t JvMilcmKFSvsbisrQavHNsyqqXxEp0+fLjnrhxVHaRtzpqaXLl1SMbKUsLt8 0MguzZ8/vwq+fPmyCyl5xKNHj0qWLKkysXuNWg4N/YRK5ifDhg1zYe3gWXPm zFEpvfrqqy604OR9meeff16FGVzF1V8Zdi2fDEmScnDJSnzJkiUGYTt27FCZ OLpDpF+jhYSEGNzlyWL68cvq2QNnOFlTWQuoMIMVin7V07p168wmkyE5+mTl orUvU32DO0Rt2rRRmTi62l+hQgUtIHfu3GfPnvV4ti7TL7ImTZqU2c2drKn+ bqOcr+yeVOUUrR+bvPTwQGRkpHoLR/fI5EDW3xzcs2ePbYyMIM8884wWIysa b6TqMlmsqT5meOHOlpM1lYGyVKlSKrJGjRpSQX3AxYsXq1evrgJkKmX7BPja tWs/+Z3BjXVjEyZMUO9SrFgx2+NLFpj6j1aTJk3stnPs2LEMD2SznDp1SuVm e6U6Q07W9H9/vuPmkz5IyaB2Nd3SpUutHlpbtGiRbQuNGzdWAbVr185sqpoz Z87oS1a+fPnPP//87t279+7dk9FcJjn6R91kDvnDDz/YbWfXrl0q7MMPP3Qt GS85f/58hp9JA87XVLz55ps+TnB0TdgjNRVyjFu9o5xgZUy0+kMp6Lp16xw1 oj+/uXA/y6vkMFG5ufD4caZqKqdTORCMH9tu2rSpowmkp2oqZD2uf0jGlhyt a9asMWhBf/90ypQp7iTjcbdu3VK5GTzR54gaBKVS//3vf53ZZNWqVVWrVrXd pVWqVDH++knLli09VVOxe/fu4OBgu9WUmXmGX8uSQ1htMmvWLDeT8aw7d+6o 3ORAyLL3vX37toxfMvOUD7lU+dChQ06u72rVquWTfo/MI2nIHGnz5s3T0sk5 WQrt5O0V/SOOVl/BMF1aWprKLS4uzux0MiA7XLupbfqjBfoHgBcuXGhuMrbU TK9evXpm52JEhmN1/2v69OnmJiPzIlVTOdLNTcaWuluUL1++GzdumJ2OQ+pi VNGiRb30zQvnxcTEqJqeOHHC3GRs6eeT/v7+MlHZu3evLNnMzsuaTOF80leU Bs+GeZWM+KdPn5aVae/evdXsvWDBggZ3Jcyyfv162+lf27Ztzc7L2rlz57p1 62biEapfvygZPmFlFv1zLBonv/ufo9h+Tzx37tym31xzRFap3bt3168Zqakt q5pWrFjR9vcDZDcyWMhgmpKSkpyc7PHvqjwBLl26JHtm9uzZsniRUTUbDqMA AABANiez6KtXr164cOHatWvZ5xFEZNadO3c2bdo0evToDh06NGjQIP53DRs2 7Ny586RJk7Zv386K6XEhx+OUKVMaN26s6hgXFxsbExkbHR4bExUXF6f+vEWL FgsWLLh586bZKcMhOa9+9tlnWjWldjHhwRF1q4XWLlf/b8Xr/+0F7RXiWyLM 76WI4OoxkfW1yrZs2dL2t+QhO5Cxsm/fvlo1o0IDQmuXVXUM9S2eWLdM05Cy CUGl1R/KK8z/5ejwYK2yo0aNSktLM7sT+IOcb2XclNLERkeE+b+ilUyKOK6b 78ZxIT98GnfkswTt9f282NWf1BvR8a+qvuF1qsTFxsi28pGQUdjsrsDi+vXr HTt2lKLI6TSkZikpkxyVCwYHHkqNV6W0fR1YEDe5Z61o/5KWA7l2WfkwSAsD Bgxg4mS6R48eDR48+LeC+loK1KnBq9/Njjaopv61dUp4i7BylrLWKiPzKGln 2rRpZvcpp1uxYoXllBsTGVLTci7t27LKj4aHp+1r79yYDvGW03WoX3mZIUtr LnxhDZ5y48aNZs2aSRXCAipKUaQ0+qHT+dfu2dFv1ntRWpD5sLTWqVMnLk2Y Zf78+VKC6LAgKUdcYKlvZzl7yrV9bRofGlZTljzFY6PCpM0tW7aY3bmcSA6l Vq1aWQ5S/5elpjP61Ha5oNpr6DvVLIdq0GvaHNjs/uVEu3fvtkyNokKlEPGB pWQe62ZNv54eGeJbPMS3hLa0sfrKJ7LAnDlzZM9H1vOVmg5rW83NgmqvjgmW yZKczKXlTZs2md3FHGfgwIHps6MKUoXFw4M8UtMJ3X3VTMn07yPkQG3atJE9 H1rLMl/dNjXCIzX9/P/qWq4ZBlSQlocMGWJ2F3OcN998U/a8DH9SBfcH0yO/ z34tNfV7SVru1auX2V3McRITE2XPa/dcjC8DOv/6cmKYdvFBWs7w9zfC45o3 b55+nFou8O6ZG+ORmq4bXV+7X8NyxhRdu3a1jKd+5aUKG8eFeKSm8wYFaHdq pOVPPvnE7C7mOCNHjpQ9Hx70mlRhutsXHLTXkDaWyw6R9WpKy9nw68xPvFWr VsmejwoN0O7FuF9QGZQT65aR1mIiQ6TlvXv3mt3FHOf8+fOWpxpiY2TqG+Jb /D+TwtysqSxy0++llpNmZbDmRqop+vfvL/s/ou7rUoueTSu5U9AfU+PfirAM zVEhftJmdvsdPjnHzp07f7t5mn43/NP3A12u6ah3a2gPPMTFxTZo0ODcuXNm dy7n6tevn2VUDfGzzG1ql3BtArxwSJ30Z5OKx0S8Ia1lt79QLKc5depUo0aN 1AQ4vk7pNaPqZaqg8wcHRtQqkT7d9ZV2kpKSeOLXdOvWrdMezA4PtDztEFaz uCxtDi/M+MrSgQVxH3Worj09qF23T0xM9OrfzQ3npaSkaE/2RtStptUoKbL8 omFBjh5l2T8vdlY/P+15FTnlagvShISEf//732Z3BX9ITU3Vnr6ODgsKrVVG q2xcYKk+zStP6lEz9f3Afw4PWjA4cFw33+5vVozyK/nb49x+5bUH8uUI/fLL L83uBKxt27ZNuwgs5+Go+n7aZUNHrzD/V6LD6mhfn2nbtu2PP/5odvqw7+rV q2PHjlVfZIuNDo8K8ZexMrxOlfDASjKPigyuER0aqD3KKxo3bjxnzpxs+FvI YOXs2bMzZ87UnkBzpH379nK6ls+A2ckiEx49enTs2LG1a9cmJyfLwfvxxx+P Hz9+7ty5GzdudPL3ISMr/T+nsRUR "], {{0, 609.}, {78., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{39., Automatic}, ImageSizeRaw->{78., 609.}, PlotRange->{{0, 78.}, {0, 609.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7985673907801867`*^9}, CellLabel->"Out[38]=", CellID->455735240] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031726], Cell[TextData[{ "Generate the causal connection graph for a \[OpenCurlyDoubleQuote]black \ hole\[CloseCurlyDoubleQuote], where the future of ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "1 contains the future of ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "2, but not the other way around:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.79897715075463*^9, 3.798977162675696*^9}, { 3.798977240237167*^9, 3.798977265977351*^9}, {3.800293914521483*^9, 3.8002939407727413`*^9}}, CellID->413773499], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a1", "\[Rule]", "b1"}], ",", RowBox[{"a1", "\[Rule]", "b2"}], ",", RowBox[{"a2", "\[Rule]", "b2"}]}], "}"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}]], "Input", CellLabel->"In[28]:=", CellID->932462749], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{$CellContext`a1, $CellContext`b1, $CellContext`b2, \ $CellContext`a2}, {{{1, 2}, {1, 3}, {4, 3}}, Null}, { ImageSize -> 100, VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{0., 1.}, {0., 0.}}, 0.01273], ArrowBox[{{0., 1.}, {1., 0.}}, 0.01273], ArrowBox[{{1., 1.}, {1., 0.}}, 0.01273]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0., 1.}, 0.01273], InsetBox["a1", Offset[{2, 2}, {0.01273, 1.01273}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0., 0.}, 0.01273], InsetBox["b1", Offset[{2, 2}, {0.01273, 0.01273}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.01273], InsetBox["b2", Offset[{2, 2}, {1.01273, 0.01273}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 1.}, 0.01273], InsetBox["a2", Offset[{2, 2}, {1.01273, 1.01273}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->100]], "Output", CellChangeTimes->{{3.798977046466969*^9, 3.798977071298914*^9}}, CellLabel->"Out[28]=", CellID->781399318] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CausalConnectionGraph", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.79897705642037*^9, 3.798977067774365*^9}}, CellLabel->"In[29]:=", CellID->326532586], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3QtUVOXaB3DESEux1irzguk53tK0UlAwKG0EhGFQBFFRQxcouLwh4nGp xdKyKCPqE7kJGl4OpJ3zpYFKjGQJgqAIcjRRRD0iisBBkVvcx/PObH3Pbm7M jMzebPz/1pPLmHfv/exX1pr/2te/+q718Dc1MTFZ35v84eGzURQU5LN5zsvk f+YGrF+xPMBvmTjgb37L/YKm+PYkP/Qi//2F/EX+90cAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAARtPc3HzkyJEtW7asXr161apVhw8f5mzTxcXFZ8+e PXfunEwmU/30xo0bK1euJF1t3Lhx79699+/f56wxAACAZwr3YaClpaWoqKig oKCurk7LMIGGgZycHAsLCxMWb29vbjZdUlJibm7ObJTMnuoAqVTKbmzgwIFJ SUnc9AYAAPDs4DIM/Pbbb66uriNGjOjZsyfd3JAhQ+zt7ePi4lSPtwgxDFRV VZE+Tf6Mm3zV1tbm6OhIN6pLvmJkZmZy0B4AAMAzgrMwcO3aNTc3N9VvdjZr a+u8vDz2UkIMA998841Sw+bm5oGBgcbebnt7++LFi9nbVZuvzp079+KLLyp1 OHv2bGO3BwAA8OzgJgyUl5cPGDBAe7hi9OzZMyMjgy4oxDAgEoloq76+vmTf OdhoY2Ojj4+P0kSpzVeMmpqa6OjoPn36MCNNTU21n6gFAAAA3XEQBmQyGfuk FTFq1Kjt27cfPXpUKpWGh4dbWVmxPx02bBj59mevQVhh4LXXXmP67NevX319 PQdbPH369BtvvKEaVrXkK4a/vz8dfOnSJQ5aBQAAeBZwEAZINGJ/6QcGBjY2 NrIHtLW1hYaGssf4+fmprkcQYYCESRL/mCatra2NvTmSM1evXt2jRw/VcKVL vjpw4AAdTOKusbsFAAB4FnATBpycnOiXuEgk0jRs2bJldNjgwYNVBwgiDJCM Spt0dXU16rakUumwYcPUJisd89WPP/5IB5PpNWq3AAAAzwgOwkBra2vfvn11 Oe5UVVXFzgaqZyoFEQZqa2tpk15eXroscvfu3ZMnT0ZFRQUEBHh6enp7e69d u5bsYFFRkfYFlcJV7969o6Oj2ScKO8xXJKbSwfHx8bruJAAAAGjGQRjIycmh mzA3N9e+8qFDh9LBqampSp8KIgywp1T7bZgymWzv3r2DBg3SfPzJxMbGJj09 XdMa2Plq3LhxTHbVK18lJSXRwbGxsYbtMgAAALBxEAby8vJ8fHycnJzGjx8v Fou199O/f3+6tl9++UXpU0GEAfYhwaVLl2oaRpKPtbW1lsmknnvuuZ9++knt Sph8Rf6MiYlpbm5mfmhwvoqIiDB4rwEAAIDiMgx06ObNm3Q9PXr0qK6uVhog iDDw8OFD2uTq1avVjmltbSVpkz1vpqamw4cPt7W1nThx4ssvv6w0q2PHjlX7 ppsPP/xwz549LS0t7B/qla+OHz9OB4eGhhq81wAAAEBxGQY65OfnR1cyevRo 1QGCCANlZWW0yQ0bNqgdQ8Ihe8YWL15MsiV7QFpamqWlJXuM7tfz65WvyIbo 4E8++UTHTQAAAIAWvIcBqqCggN7JaKLhYJogwkBWVhZtMiwsTO0YkkvpGA8P D7VxtKamhv3SoqCgIB0b0CtfXb58mQ5etGiRjpsAAAAALXgPA4yKioqRI0fS xc3MzIqLi1WHCSIMREZG0ibVvib77t277CxaWFioaVWbNm2iw5YsWaJjA3rl q/r6evrsrLFjx+q4CQAAANCC9zDwSHGNvdLhr+DgYLUjBREG2PuiNiU2Njam paXt2rVrg4KWVe3evZuuasGCBTo2oFe+ImxtbZnBpqamSi9/BAAAAAPwHgbq 6urYL+ghHB0d29vbNY3v4mHgo48+ojsyZcoUg9dTUVHxww8/SCQSura5c+fq uKy++So8PJyOHzNmDDcv9AEAAOiueA8DZWVl7JOPBMl7Dx480LJI1wwDtbW1 69atY79FkcQ/3S9Cu3XrFhm8Y8eOFStW2NvbDxkyRPV9N8bLV83NzeyY3bdv 31mzZmVmZuq4OQAAAHjUZcLA5cuXlR4/3mG4etRVw0BJSQl7R3r16rV///4O lyotLV2/fv0rr7xiogPj5SuiuLhY6RbRkJAQHTcHAAAAj7pGGDh16pTSgx3s 7Ow6DFeMLhgGlKZUl2fLb9++3czMTMscktBL/mm4yVePFA8fY+dk3qcUAABA WHgPA4mJic8//zx78Tlz5jQ2Nuq+C10tDChNKent448/1jKefa0am4WFhVgs 3rhx48GDBysrK9nvszZqvsrKyjI3N2d3wvuUAgAACAu/YYB8cSudTwwMDNRy QbuqLhgGmpqaYmJiZs6cyQ6Zmp5jTzJPz5496TASTVeuXHnixImqqiqlkTt3 7qTDPD09dWxG33xFfh/69etHF7Gystq6davamx0AAABAEx7DQEBAADsXkbWF h4fr1XwXDwPfffcd7W3kyJFqx8TFxdEx5J/g+PHjmtbGfuSFh4eHjj3om6+C g4PpeJFIpFfWBQAAACUch4ENGzaww1WfPn2Sk5P17bnrhwFnZ2faYX5+vuqA hQsX0gGurq5aVjVp0iQ60s3NTccG9M1Xo0aNYgabmZnduXNHx60AAACAJpyF gW+//ZYdrvr372/Y06u6fhhgP0Fi586dqgPee+89OmDt2rWa1nPkyBH2jInF Yh0b0Ctftba20uOTlpaWOm4CAAAAtOAmDOTm5rIvjx88ePDVq1cN6FYQYSAj I4Puqdr3BPn7+9MBJC42NDSojsnKynr11VfZUzp16lQdG9ArX12/fp0O9vPz 03ETAAAAoAUHYUAmk7311lv0IxK0zpw5Y1i3gggDt27dok0uXLhQdUBsbCx7 ruzt7a9cuUI/vXbt2vr161Xv1hw3bpyODeiVr0j0pYM/++wz3XcTAAAANOEg DBw+fFjp0zG6+fnnn5WaEUQYuHfvHm1S7XX+9fX17AhkoriF08LC4p133hkw YAD75y+88AL9O5lk1XsK1NIrX7EDtqYXfAMAAIBeOAgDHh4eJgZRfeqpIMLA gwcPaJOzZ89WOyY/P79v377ad3/ChAlXr161s7OjP4mJidGlAb3yVVpaGh0c GRmp994CAACACg7CgFI8051qvhJEGKirq6NNuru7axpWVla2dOlSU1NTpb3u 1avX5MmTExMTmVsjP/30U/rRnDlzdGng7bffZsaTJFxaWqp9cEpKCl3/7t27 9dpTAAAAUIuDMPDSSy8Zlq8OHTqk1IYgwkBDQwNtssOHVlVVVWVnZyckJISG hpL9LSwsbG1t5aZPRnJyMu123759XG4aAACgu0IY6HRNTU20SYlEwnc7HSD/ mrRbkpP5bgcAAKA7QBgwBno6ddq0aXz30oGwsDA6pSdPnuS7HQAAgG4CYaDT jR8/nmmyd+/eNTU1fLejjVgsplN68+ZNvtsBAADoJhAGOh37lkkbG5ukpKSC goI//viD774ea29vLykpyc3NDQoKou/a7tOnD8dnewEAALoxhIFOl5qaaqLC x8eH774eY9+GSa1atYrvvgAAALoPhAFjsLKyUurZ29ub76Yek0qlSr2ZmZkV Fxfz3RcAAEC3gjDQ6erq6tasWcN+okWXndLRo0erPiofAAAAnhLCgJGUlJQk JSXt3bs3Li7O4LcudrrKykrSz549exITE3Nzc7vymVYAAAChQxgAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgS3Pt/YvxG279srf6en5b SxPf7QDXqqury8vLu/jbrgEAAATn+rHIrG2upLJD3C/t31yacai29IqsvZ3v vtRAGOgUra2tUqk0ODjY09PT9QkvL6+QkJCsrCy+uwMAAOgO/qi6k7VtJhOx aOV8Ne/Koc/KziY3VJbw2x4JA6mpqUphYMGCBSQMZGdn89ubEGVmZi5dupTO pMRF7OLsSP6kPwkICPj999/5bhMAAEDwCg9uU8pX7Mr91vva4bCKC2lNDys5 biw9Pd3X11dLGAgMDCwsLOS4K4Fqb2/fs2cPM2/iGdMd7caJrCw+mPgaU9Mn ve74/ttkesmnbm5uR48e5btfAAAAYXv474ta8hW78iL9bxyPqirMamkw7kk6 EgZiY2OfhAGRchiYPJQdBlJSUozaTPcQHR0tz6gSF0e78XQmxTaD5kx7fYb1 IOZ/RZYDZ0yzlEgkZGRycjLfLQMAAAjbhegVOkasJzWzIG6t/ML4G/ntRrgw PiIi4kkYGKc9DDAZDBFLO6lUyhwAtLcZQaZuxuSBX/i/kx7hcO37mUyd+Ea0 +cM3p1sOIJ862L1JIhYJrpcuXeK7cQAAAAG7m31Ez3z1v8oOcf+9Uy+MJ2Hp SRgYLg8D1oO+XD4hgxUGUsNEmxa9KVKEAUe7N5mjWDhRqElDQ8PChQvJLDnY jiUzRjLqb+H2dDLZ9dMXU12mDJbP+dSJZPyaNWtkMhnf7QMAAAhVS331mc9m GRyx2BfGFx7cVpaT1FBxy7BO6uvrvby8FGFgDPminysayj7Mwq7Dn78vtpEf y2KOYgUGBnbunHQbBw8elJ9mdXifOQaYoWE+acSSH8WyHOji7ECWOn36dFVh ZnleKgqFQqFQKAMq56v5mZ+4PH3EonXumw+LDn9dnn+iqbpC9zCQkJBAvtad FWFA8u7gzChHLWGARCyR5QCRPAzIr8XCHYVq+fv7k8mxnzKKTGlE4CQt88nU x4vl52Qd33uLLLVt27YLMSs78bcChUKhUKhnqk6um3R6i5ORVp4X4Xf9WGRV YWaHF8YzNwzaTxlJvuKjgyZ3GAY2LXpTHgbef5ssFRISwk1iEZD79+8rTrY6 fzBxgMOkgQXx4g6n9Jf/m664o3AIWXDevHnIVygUCoVCGVzpH4mMl69YNbMg NuDfafHV1/NUL4yvqKiQhwGxPAw4Thp4cZ9Lh2EgNUzE3FHIPBeLlwzTlV28 eFFxD+YHZJZ8XIZ3OJ9MMSdemUdhpIf58v7LiUKhUCiUUOtTF07y1f/qzOez L+3bdDv9YM3tQubC+Pz8fHkYcJxGvtyXuY7QMQwwdxQyYQBPd1eSk5MjP99q b0emaK3nGzpO6TzRUDKeuQRL+uVi/n85USgUCoUSbGV/4c7XpnO2zy1ODv9N eoyGgXXzxugYBuZMe10RBuSXYJWXl/OdaLoWwyKrq638aWMSsRNZ9tevfXj/ zUShUCgUSqj1qSRzqzPHG2Veengn85/1ZddJGMjNzVWEganky335rJEGnMyq rq7mO9F0LWVlZWRaXMQzyBQ52wwq/Lukw/nMinaUP17MajBZ0N3dPS9K32ej oVAoFAqFelwZH0/n7PzghegVN1PjHlzLbfvzJVilpaU0DLhMGXwlwbXDMJAR 4aAIAxZkQU9PT75iTFfm7e0tv2XA+q9kov4e/G6HUxq6YgLzlFGy1KZNm3B9 OwqFQqFQBpdR7x8kdS5sUdH/f1Wef6K5pkpTEpDJZMyTMKdb/4V8xSduse0w DHy5fILiKaPjyFLBwcFc5hah2LVrF5kcp+lTmIeLXtB6C2FGpIOT4no2EnLJ UseOHbt96vvrxyJRKBQKhUIZUJlbnTK3ijs3UzFXsJee/qHu7jUdnwQeFRUl DwMiG+bhotqfJ5Ae4TBj8kBFGBCRpVJTU42dVYSosrLS3d1dIpEwz8Nf5jpC U8Q6EzNj/vSh9ODVkiVLmpub+W4fAABAqFoaas587tZZsSovcvmNn3fdLzrb 1tyobyfl5eWPw4DifNbyWSM1RazMKMe5itvcmINXvr6+ra2txpicbmD//v3M idfpk4YwR7ESgt9lX4t1aZ/LrvWTJe/KX45DZp65mO3XX3/lu3EAAAABu3c+ 5Skz1dmvF1z955fl+dKmmv88ZTPx8fFMGBApwgAJUYlbbNnXYl3c5xId9CQM 2AyXSFzI+IyMjE6Zim6pvb09ODiYmVXmKBbzrhwSX9fNG7PMdYTjpIHMDx3e fYMJV1FRUXx3DQAAIGwX4/9m6Om/jaUZh+ruFHXii4Db2to2b978OAwojmIx l7urCQO2Y5gwEBsb21lb767q6+uZiCWRSJxENnRin9QAe5sRzg7vuSrs2LGD /Cvw3TIAAICANfynVM/Tf/43UmIeFJ1ta/rDSC3V1dUxEYsJA8zl7n8KA1NG Oju8z4SBiIiIdsXjSUE7Mkv79+93d3dn5o3EV7HjVGd7O7HjNOZRV8T8+fOP HTvGd6cAAACCdzM1ruPTf6FeV//xxb3zP+v1suan0dbWFh8fryEMODM/9PLy SklJ4aafbqOioiI6OnrRokWuf+br63vgwIHa2lq+GwQAABC89pZmkp00nP5z uxi/4fap72tLr8h4OkBUXl4eFRXFPLRBKQwkJCTU19fz0lX3UFpaev78+ays rPz8fDz3HgAAoBNVXEhTilXndy67cTz6/tVs453+05dMJiNhIDc3lwkDFRUc HUMDAAAAMMC/dgeSTJXz1fyr/wi5dz6lqRrHMQAAAAAM1/Sw8vapxJrbhXyd /gMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAeEr/BcjECuM= "], {{0, 44.}, {400., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{200., Automatic}, ImageSizeRaw->{400., 44.}, PlotRange->{{0, 400.}, {0, 44.}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.798977060878339*^9, 3.798977073267035*^9}}, CellLabel->"Out[29]=", CellID->956743912] }, Open ]] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031727] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["Cases with undirected edges:", "Text", CellChangeTimes->{{3.7979745777817907`*^9, 3.7979745897581043`*^9}}, CellID->351228799], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "a"}], ",", RowBox[{"1", "\[Rule]", "b"}], ",", RowBox[{"2", "\[Rule]", "b"}], ",", RowBox[{"2", "\[Rule]", "c"}]}], "}"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.798924951296427*^9, 3.798924951664407*^9}}, CellID->798710134], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ 1, $CellContext`a, $CellContext`b, 2, $CellContext`c}, {{{1, 2}, {1, 3}, {4, 3}, {4, 5}}, Null}, {VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{0., 1.}, {0., 0.}}, 0.02261146496815286], ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{2., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{2., 1.}, {2., 0.}}, 0.02261146496815286]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], InsetBox["1", Offset[{2, 2}, {0.02261146496815286, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0., 0.}, 0.02261146496815286], InsetBox["a", Offset[{2, 2}, {0.02261146496815286, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], InsetBox["b", Offset[{2, 2}, {1.0226114649681528, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{2., 1.}, 0.02261146496815286], InsetBox["2", Offset[{2, 2}, {2.022611464968153, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{2., 0.}, 0.02261146496815286], InsetBox["c", Offset[{2, 2}, {2.022611464968153, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{3.797974599689087*^9, 3.798567264902845*^9, 3.7989249533794045`*^9}, CellID->531288684] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CausalConnectionGraph", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "\"\\"", ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{ 3.797974612267605*^9, {3.79892495547538*^9, 3.7989249558164115`*^9}}, CellID->893111481], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3XtQlXUex3HQtXGmnPzHQHOlVoVUQDncr3IO58LhQKSsrLasRxFQKZEw 12EiFjHL8TZeUTE3NWDNnXF2zDTSNi+riSzq4ormJcvGlhzHImaQFM/u7+Fp TgdEBXb0xzm8X/PJKXoe5/vl/PP7zu/5Pef59LkTs/q4ubnN6y/+mDh9gTYv b3p+ykDxH5Ny5s2emZOZYc55PXNmZl5Yel/xwwzxT9Cv3NyUf/8vAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOd3+/btL7744vTp042NjbJrAQAAANAp Fy9erKqqOnHihM1mk13L/+uzzz5LTEwcPnx4377Kq49VQ4cOjYuLKy0tdYEG AQAAAFf19ddfDxgwQF3DX758WXY53XfhwoXk5GS3BwoJCampqZFdKQAAAID2 WlpaDAaDfenuvLNJfX29h4fHgwcTVd++fQ8fPiy7XgAAAAC/uHv37tSpUx3X 7U46m9hsNscJSxg5cuSSJUs+/PDDysrK1atXBwYGOv5fLy+vhoYG2VUDAAAA UNy6dWv69Ont9hScdDYpKSlx7CI3N1d053hBS0vL0qVLHa/JzMyUVS0AAAAA uyNHjvj4+Nz7vJOTziYmk8neglarvd9lGRkZ9suGDBnyOCsEAAAA0E5jY+Or r77q7u7e4VkMZ5xN7ty589RTT9lbOHPmzP2uvHHjhmOz9fX1j7NOAAAAAHaV lZVeXl4dTiXOO5scP37cXv+AAQMefPGwYcPsF3/88cePp0IAAAAA7bQbTPr3 719SUuL4cJczziY1NTXTp083mUy+vr5ms/nBFw8aNMje7IEDBx5PhQAAAADa cZxNxowZoz7+5OyzSed9+eWX9k7d3d2///572RUBAAAAvZQ6m4g/N2zY8NNP P6k/7D2zSWZmpr1Tb29v2eUAAAAAvVdaWtq77757+/Ztxx/2ktnk9OnTffr0 sXc6Y8YM2RUBAAAAaKM3zCbffffdiBEj7G3269fv4sWLsosCAAAA0IbLzyY/ /vijRqNxfAlAQUGB7KIAAAAAtOfas0ljY6NWq3UcTAwGw927d2XXBQAAAKA9 F55Nvv3224CAAMfBRKPR3Lx5U3ZdAAAAADrgqrPJ2bNn232fC4MJAAAA0JO5 5Gxy8ODBgQMHOg4mkZGRDCYAAABAT+Z6s0l5efkTTzzhOJikpKTcunVLdl0A AAAAHsTFZpPFixe7u7s7Dia5ubkcfgcAAAB6PleaTXJychynkj59+qxevVp2 UQAAAAA6xWVmk/nz5zsOJk8++eTu3btlFwUAAACgs1xjNlm5cqXjYDJo0KCa mhrZRQEAAADoAheYTaqrq/v162fvYsiQIefPn5ddFAAAAICucfbZxGaz+fn5 2VsQQ8qxY8dkFwUAAACgy5x9Ntm1a5dbWy90zr59+2TXDgAAAOAXzj6bTJw4 0a1btm3bJrt2AAAAAL9w9tnEsX5mEwAAAMB5Ofts8vTTT3dvNtmxY4fs2gEA AAD8wt/fX12ru7u7f/PNN7LLAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAncO7cufLy8qKiotmzZ0+bNi0zM3PBggUlJSVHjx5tbm6WXR0A AACAn9lsttra2q1btxYWFs6aNUus3rOysvLz80tLS6uqqu7cuSO7wG4SfR04 cEB0lHh/qampW7ZsaWhokF0sAAAA0Ku1tLTs2bMnPT39Aav3l19+uaKioqmp SXaxXXP9+vV58+apLSSYjcbYIH24jy7YSxc0VBc8LC5shDF6rNkYq14wZcqU Y8eOyS4ZAAAA6KWuXr2anZ398+o9Xm8cr9GHezus3kcaY8aZjVr1AqvVWltb K7vkzqqrq0tLS1OnEkOkb2yAR2zAMx0mLvQ3ZkOMuDIpKWnHjh2yCwcAAAB6 nerq6tTUVHUq0UeMut/SXVm9h41QJ5Tk5OS9e/fKLvzhLl26lJKSIgqO10dp NYNFC/ogz9xJPu/lh1Wu0B7faPz76ri/FkctTPdLjhqq9miI9rdYLOKWsrIy 2eUDAAAAvcjJkyfFoCGW4iZdmFbjKRbnxpDB86eMKisI379SJ1bvn66K+6Ao ssDqawkfoq7ejeM16gZKDx9Pbt68abValda0oep2ydxJPv9Yb7hQkXRv/r0t YVVOoCFI+Q3ow73V8eTIkSOymwAAAAB6hWvXrk2ePFkswsW4oc4d+WmjT5Sa Oly9n/6z+Z2Z43QaZZFviByt7p705Ie7iouLRZFmQ4w6mIjRo8O+HLNvWeyL kc8qDUb5qafjxYAjuw8AAADAxdlstry8POV5p7gI5XmtQI8tC0Ifunrf9Va0 OXSwfffEarX2zKPxZ86cEeVZEszaQOVhraWzxz20NTWfrNAag5Xdk3h9lPgb 1q9fL7sVAAAAwMUdOnSo9YS4ST2Isen1kE6u3sV4ou6eqGdPKioqZLfSAXXT xBij7AfNsAzvZGtqSvKCxV264OcsFsuECRMaGxtldwMAAAC4stzcXLF6N0T5 iXV47iSfLq3e35k5Tj0ar75YuKd974mYJpKTky2WBG2gckZm79LYLnVX977l t7G/Fjdqg721IX7vvTXn8r6NhBBCCCGEkEeRY2VLxKpbGzwmNsBDp/E4vFbf pdX7v94zq0fj1a2Tqqoq2eNIG59//rly0kQfLSr8nW5Yl1pTszw7QNwb4/dM hPczsw0vHC1OJIQQQgghhDyKLEsLFqvuqNHK+ffMpK498qSmwOqrnDqJGSem gNLSUtnjSBsVFRX2A/6LMvy70d2+ZbHi3vFjldnkpWAv6Z8XIYQQQgghrpp5 Fl+x6o7xVWaTNXMf/gKre/NBUWTrY10jxRSQn58vexxpY+3atcrjapFjRIUb 5gV3o7t/bo5XXlw2TplNtGMGS/+8CCGEEEIIcdXM0Hors4m/MpuUF0Z0Y/X+ 6aq41gPjw8QUkJWVJXscaWP58uWiKvV7JLe/Ed6N7uret6gvVRa/pegXPKR/ XoQQQgghhLhqrDEjxKp7fOts8re3Y7qxej++0ajMJkFDxRQwbdo02eNIG+vW rWs95q88dbbutaBudHei1GTfN9Gxb0IIIYQQQsgjS6bOR9k38VNmk7KC7uws 7F+pa9038RJTwKxZs2SPI23s3Lmz9bxJoKjwTatvN7rbvWS8/bxJSuhz0j8v QgghhBBCXDV/fNFPeVqp9bzJ8uyAbqzexUQj7tWHe4spoLCwUPY40kZNTY3y ni6jcp79peih3ejurQx/ca/4/YjfUk78aOmfFyGEEEIIIa6aVdZQ+3u6ppqe 78bqff6UUfZvh9+6davscaSN5ubmlJQUi8WiC1K+pmTnwqgutVa7NSEp8lnl pH+4vz4qeNfGJf85sYcQQgghhBDyKHL2kwpDdIg+Mig2wFMswvct69q3E54o NRlDlG+TT4jXi9mktrZW9jjS3ooVK0RhJm2IKHJynNfZ7ZbOd+f4zZKpqali 0pHdDQAAAODKCgoKlEMZMcqXDGYkDj9fltj51Xt+2mjlga6IUeJvSE9Pt9ls srtp78qVK0lJScrWSbCXKHXB70d3srWdxVFajUdsgIfZGCu62759u+xWAAAA ABd36tQpsfa2JJi1gUPF6v3trLGdXL1vWRAqrtdqPNVNkz179shupWPqt5wk mOK0GmWLR8xTde8/ZPek/M0IY7Bn67NqgeJeq9Xa1NQkuw8AAADA9RUXFytn xg3jYzWe6njy0N2TTa+HxAV6iItNujBxb3Z2dktLi+w+Otbc3DxnzhxRZLw+ Wh1P/mB87n4vTD6+0ahuBokYovzEXRMmTKirq5PdBAAAANArNDQ0pKenK6t3 Xbg6nmQkDr/f2ZPDa/W5k3zU1bt6BD41NfXq1auym3iQ69evp6WlKfOXSacL HqYWP0XvtWTWuO1vhIs55S9/ilz3WlD2SyP1QZ7qZpApNiSx1f79+2WXDwAA APQiV65cESOGunuiPtylvrlreXZAWYGyei8vjFgzNzAzabhOOYUhVu+D4+Mi xPXJycnV1dWyy3+4+vr6V155RXl6zZJgjA3SBg5Re7wnHvrI0QnxBnFlSkrK 4cOHZRcOAAAA9DpiPFF3TywJZmNMgPr4073RajwNUX4JZpO4cvLkySdPnpRd eGc1NTWpr+1SJ5R4fZQxeqw+3CcubERcmLchytekDVX7Up9Su3TpkuySAQAA gF6qoaFBPXuiTijxcZGGaH919a4PF6t3P5MuTCzq1Qvy8vKuXbsmu+QuO3fu 3KJFi5KTkxPvQ0wllZWVPfb4DAAAANB7nDp1qqCgICkp6X6r99zc3EOHDvXA NwZ33g8//HDw4MHNmzcvXrxYNFtUVLRmzZrdu3d/9dVXsksDAAAA0MaNGzf2 79+/adOmRYsWidX7woUL169f/9FHHznjXgkAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB6rf8B5Cb6Jg== "], {{0, 50.}, {538., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538., 50.}, PlotRange->{{0, 538.}, {0, 50.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.797974613059575*^9, 3.798567276512628*^9, 3.7989249570353756`*^9}, CellID->657234658] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031728], Cell["Another example:", "Text", CellChangeTimes->{{3.7989758096068487`*^9, 3.798975821850294*^9}}, CellID->730134774], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graph", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "a"}], ",", RowBox[{"1", "\[Rule]", "b"}], ",", RowBox[{"2", "\[Rule]", "b"}], ",", RowBox[{"2", "\[Rule]", "c"}], ",", RowBox[{"3", "\[Rule]", "b"}], ",", RowBox[{"3", "\[Rule]", "c"}]}], "}"}], ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.798924888381378*^9, 3.7989248901584067`*^9}}, CellID->231566424], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ 1, $CellContext`a, $CellContext`b, 2, $CellContext`c, 3}, {{{1, 2}, {1, 3}, {4, 3}, {4, 5}, {6, 3}, {6, 5}}, Null}, { VertexLabels -> {Automatic}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{0., 1.}, {0., 0.}}, 0.02261146496815286], ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{1., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{1., 1.}, {2., 0.}}, 0.02261146496815286], ArrowBox[{{2., 1.}, {1., 0.}}, 0.02261146496815286], ArrowBox[{{2., 1.}, {2., 0.}}, 0.02261146496815286]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], InsetBox["1", Offset[{2, 2}, {0.02261146496815286, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0., 0.}, 0.02261146496815286], InsetBox["a", Offset[{2, 2}, {0.02261146496815286, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], InsetBox["b", Offset[{2, 2}, {1.0226114649681528, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{1., 1.}, 0.02261146496815286], InsetBox["2", Offset[{2, 2}, {1.0226114649681528, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{2., 0.}, 0.02261146496815286], InsetBox["c", Offset[{2, 2}, {2.022611464968153, 0.02261146496815286}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, {DiskBox[{2., 1.}, 0.02261146496815286], InsetBox["3", Offset[{2, 2}, {2.022611464968153, 1.0226114649681528}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{3.797974659636467*^9, 3.7985672976569033`*^9, 3.7989248933503733`*^9}, CellID->891045156] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CausalConnectionGraph", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "\"\\"", ",", RowBox[{"VertexLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{ 3.797974670775976*^9, {3.7989249032924166`*^9, 3.798924903838376*^9}}, CellID->378527014], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzs3Qtc0+e9P/Bt3eXc9j87l6092znr2f1yurOu9851rbVWrfVaq1arVmtt rbVarbWu1toiIqgIoiCgCIKIIooggghyEciFhBBCQhKSQBIIISGEkIRcSHL+ zy+xjFmDiEl+BD7v1zNf28TwPM/vl1++3/x+z/P9yZpNC9d942tf+9rWvyN/ LFy9feqWLat3vPI98j9efX/r+rfff2vtrPc/fOvtt7Y8teY+8n/++Ztf+9pj 5D/Uf/8/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDT3oNNpMTr6DaRR/8VM Naelz2k1kTY40D84YHbZLIPe5rJbXfYBqjlsbqfd5bS7nQ6qDTo9rkG3a9Dj dnncbqp50T04AAAAAACgAckLSDZhN2otWkVfu8AgYemaKrrqi9Q1ucryDPmV JOnFgy05Ec0ZO3jJGzmH17IPLK/bM6/2i5dD1eaQX/dlm8+IXFAXuYCxdyEj 6hVm1CKGtzH3vcqMXuxtS1gxS5kxS1n7X/O2ZaS3VDv4en3sCvbBFfWxK6l2 aBXV4t7gxK3mxK+h2uE3SeMmrCUD5Ca8xT2yztvebjj6Dmm8xPUNiet5Se/y kjZQ7dh7jckbSeNRf77fmLKJf3yL8PQuyfloedHR9rJ0MnVdnCv65mqjvMHc IRno6SCJG8nC6D7UAAAAAAAh4nG7XTaLvU9n0baZlEJjK0cvqOriFHfU5imv ZyqKk6X5seJzkc2ZnzSmbiaxN4nYSZwfwixjsjcy2yQzImlOU9o2UfZuyYX9 JPVTXj9FDpC24WqPqKZP0WjWtNoMGpItkpyR7hMKAAAAAOD/PB6Pyz5gN+mt OmW/usUo4+qFN0j42sm4qKo8rShJaS2IF+dGNWfu5B/fwktcTyJeRtQi2mNv tMA2ckzr497gJW0QpG8XnflCevEgSTCVFVnkNOjmXetpqetra7J0yW29WpKT ksyU7tMWAAAAAMY7t9Pu6DdY9Wpzh8Qo5/WIaklgqWFeUlWdaSs9IStMEJ/f J8za1ZS2jZf0LolFmdGLa7+YQ3tgjBZubQ45czjxa3jJG5szdrSc3SPNP6S4 mqqqzNawCnT8coOYaVI2W7Rt9j4dyXzpflsAAAAAwL0iiYbNoDFrWvsUfIOY QUI+DbtQVZ3TXnZSXnRUkhcjzN4tOPkR79h7JEpkxSwN7dIMNLTRtrqIucyY pZzDa/mpm5szPxGf29taEE+SZXIyd7Ev65oqeqVsk0pk1SlJZk1Oe7rfeQAA AACTlMfttpv0JDDTN1d31OYpio+JciIak99n7X+N9pASDY2WRrJs9oHl3CPr qIX/WZ+Kz++TFSaQlLzDt/BfUNXbyulXi+19OjxdBgAAADAGgwNmq7bNIGFp 2JdJlCW5sF9w8iNO3Grc7EBDG3Mjbx9uwtrmU39pvRSnqszubiwztQtsvVqs 7gcAAABwDzptBk2fgk9iJHV1jqwwQXh6V0Pieiwev7f4cz5r/zJqJ97Yld69 eVewD75ONe+eveSvWPtfo/byjVnKjF7ibd49fve9Sm35S238+wq1D/DehdSG wJELyKvd3CU4Yq53rQ2W20zARg4uSfwF6dulFw+qKrK0DVf7FI02Qyd5h9J9 kQAAAAAIJI/H4zD3mjskPaLaTsZFRUlKy9nIxtTNJFqmPSQb541kBCSDoNZQ H3uPxI3C7N2SvBhvnY6TquocDbtQxy/vaWGQ5M6ikZEsz2E2hjKYpGox+soy UvUZXVShRtcg6YDb6fDWcLS7HDaq+Wo72q1UqUebZXDA7K3/2O+rBem09HlL QxrJSeKrF0k1U4/dpLf36ahm7Lb1akmzG8mfXWSY3tY50NNh1atJGyB/6lRW nZJq3e0WbZvV2yxahaVLTu2l1srRCSo17MvqG2fbrqVRWxzkRgkzd1LbNSe8 RZI13Izz3+aQDJd/Yis58ZTlGV2cK0YZl0w4FrkAAADAOEfiTxIc9rZyujjF yuunpPmxzRk7uAlr6/bMpzu+or9Rq5ujF3t3nX23KW2bMIuqBkiCZGqBc9UZ DfMStfGsqNYo55k7pSTexhrnELu5L3R3u0kppGpc8q9rWAXe7dqOtxbEk2xa kLGjMfl9zuE3qV0UqFtI9J9U9Db2geX841tIlkfSvS725V4pm8weNhkDAACA UPK4XXZjt0nZrGuq6KjJlRclCrN385I2MKOX0B4shaxRtS1iV/IS15PYrDlz JwnPSPjq3RL2dCfjorbhql54wyjj9qtbqJ2UTD0I2CaeQZuFvBEsWoWpXdDT wuhuLOtk5PsK3JCsXJQTIUjfTu0IF7d6su07TXK3xpRN4nOR5B1Bkm4yOZYu uctmofuIAQAAQBhzWk0WjcwgZmhYBW2lJ8Tn9zWlfVh/aNUE+8aYsXdhfewK 7pF1jTc3a40kgSVVRO96ZkdtXhenWC+oMrZyTErhzdoTqKMHd4+cM4MD/bbe LvKeMioae0S12obSzroL5DRTFB+TXDggOvP5zRo6h1YxJ+hiK+a+V0myJjrz hbz4GBk7mQRzp5RcZ+g+OAAAADBeuJx2q15tlPNIpKSqPN1aEC/M3EkCdRKx 0x7JjKGRvImEdo0pm6jydjkR0osH5VeSlOUZ6prcrvoivaDSIGH1tQssWoXd qCVBEfYmgvGJnJlOS5/N0Emid6OsQS+8oeWWdNSeJyezvCiRqtRz+jP+ia28 xPUks66LXED7W+9eGiPqlYbE9WREZGjkrapvru5Xtzj6DXQfBAAAAAgKX0EQ 8nHvKwgi/2tBkGW0hyVja8zoJd4vYD8nwUwHCWYElSZls93YjVwDJif3oNNh 7h3Qq8nbvLeVoxdUdXGuqG+cay87SS38P79PmPVpY/JG79Nl9L9/R5uzRC7g HlnXnLmTDEFVnaNrqjApheRShhuXAAAAYcFls/gKgnTVF7WXpVMFQdK3c+LX hOkeRCQy4Rxe25yxQ5ofq7ye2cUpJkGXVafE2g2AMXPZrZYueU8LQ8O8pLia Kj4X2ZiyiRmzlPb3++ibr0SLIGMHVaKliirR0tfWhBItAAAA9HL0G4wybkdt HgndG5M3hm1BkDn1sSv4qR+Iz+0lkVIn4+LNp9AtRronGGAScTls1CZ7UnYX +3LbtTRxbhT/+Bb2geV0Xx/uJmeJmFsf94avRIvyeqa24apRzrMZNB7XIN2z CwAAMNEM2iwmpbCLU6woPiZI/zjsNsVi7nuVeqQ8a5esMEFdnaPjl/cp+Agb AMY5t9MxoFcbZdwuzhVleYb0woGmtG31sSvDaucxqkRLU9qHkryY9rJ0b4mW BqzBBwAAGD23a9Da3a4TVJJgQHTmC078Gro/3EfV6vbMI10VpG+XXNhPxQD1 RQYJy6ptw/ahABMMuUbZDJo+RaO24aqqIkt68SD1BGnc6jB6gpR98HVh1q72 spPkSmvVKfFIGAAAwBB7n65Xyu6oySVRPS9pwzj/fGftX9aY/L4oJ0JefKyj Ns+3rw7WqAIAuQjYerWmdkF3Y5mqMrv1Ulzzqb+ERQFWRuSCxpRNpMMa5qW+ tibcWAEAgMljcKDfpGzWsC/Li442pW0bn5vnMPYu5B5ZJ8zc2VoQr6o8rW0o Ncp5Vr3ahWLlAHCXPB6P3aQ3KYW6pgr1jbOywgRh1qfjfLvy+kOrhNm728sz 9M3V5NKH714AAGBicA86LV1yHf9627U0YdYu8nlH+2fuUPMVBGlK+1B8fl9b 6QkNq8AgZlg0MnxnCACh4TD39qvF3h3Oz8uLEkXZuxsS14/DzT1IGsVP/UBW eFjDLjQpm/GoKgAAhAWPx2Pr7eppYairc0jAz0tcPx4e0KIKgiRtEGbv9hUE 8VYKQEEQABi/nFaTWdPaI6rtZFyUFx9ryYngHXtvXN1l5sSvIb1SVWSRTlI7 e3g8dM8ZAAAA9QHap+BrWAWywsP841uY9H3dR5UqSxgqCHIKBUEAYOJx2SwW rYIq0cIqUFxNbTlLlWhh7X+N9lSFXPz5J7bKLh/pqi8yqUQuu5XuqQIAgInP 7bSbO6XdvGvkM1GYuZPG/f/r9sxrSFwvPr9PXZ1DPqbtxm665wYAgDYu+4Cv RIvGV6Ll/D6qRMvB12nMVjiH3xSfi1RVZRvE5BKtpXuGAAAg7Hnc7oGejh5R jarydMvZSO6RdTTu6n9zYWZZuo5/3aJVuFEZBADgTtxOh/VmiZZiZXmGODeK c3gtLVdy5r5Xm9K2yYsSuzhX+tVil8NG99wAQIgYDAYOhyOVSgcG8CgL3B1v sfWGTsZFaf4hfupmGveQYcUs9X6KHdWwL5uUzYNYdwkAECBup71f3UJyBO9m iR/StIxlDvfIOpIrqatzeiUse5+O7lkBgAArKSmZOnXq97///a8N89BDD0VH R+v1erp7B+ORyz5APp603BJ58bHmjB00PrHMiFzAO/ae9MKBjprcXikbH1IA AKFkM2h6RLXKiixRToS33C0dN1aiFwvSt5PPI23DVXOnFBu2A4Sv9vb2l156 6Wv+kYTl4sWLdHcTaOZxu6w6pb65Wnn9VAv59Dn8Jn0PaM0hn32iM19QO+cL qrwlibFzPgDAeOGyD5iUwi72ZVlhAl2bnNRFzG04+o7kfLT6xrleab3dhG9Z AcJDf3//b37zmxESkyGZmZl0dxZCyltsvb6j9rzkwoHG5I2MyAU0ZSJUIXVB +seK4mNdnOJ+dQs2zgIACCMej2egp0MvvKG8fkp05vP6uDdo+ShhxiwVZOxQ lKR0866ZNTL3oJPuiQGAW5HLxfz584cnIA8//HBqamp1dXV+fv7GjRu/+c1v Dv3V3/3d3zU3N9PdZQiWQZuF+pqrvkhelCg4+REzegldmQhj78LGlE3S/NjO ugtGGdfRb6B7bgAAIJCoT5x2gYZV0FoQT9fixLo983hJ70ou7O+oPY/PGghf TqdTIpE0NjaazWa6+xIARUVFwxOTDz74wOX6m1pyXC73u9/97tAPrFy5kq6u QsDZDBpdU0V72UlR9m66vsWq9d525ya81XI2UklV4Kqx6tV4QAsAYFIhl32r TqUXVLWXpQvJR1LsSlo+j9gHlgszd7aVntDxy7GdI4xzFRUVL7/88s9+9rP7 7rtvKFD/z//8z2nTpqWkpIRvMdNVq1YNDefpp5++JTHxSU1NHfqZb3/72w6H I/T9hIAgF3+LRqZhXhLnRtG4az25+DdnfqIoSdE2lGK5IgAAfNXgQL9R0ejd 9TGWR9NDxXV75lO7rFw8SN3El/McZiPdswJAkUql8+bNG3khxhNPPMHlcunu 6V0jWcb3vve9oVEUFxff9sesVus3vvGNoR8Ti8Uh7ifcC5fD1qfgqyqzmzN3 MuhYjUh+Kf/4ltaCeJITkQ8ap6WP7ikBAIAwQ91Y6W7XNVW0XUsTZn3KPriC lu/W6mNXCE/vai87qRdUkv7gLj+Enlarvf/++++4SJy47777qqur6e7v3VEo FI899tjf//3f+9aSjFDN5F/+5V+GRlpVVRXKTsIYkPjfIGa0lR4nSUHdnnmh /ZZpXsPRd8S5UaqqM6QPNoOG7skAAIAJiHzSGWUNHbV5kgsHeEkb6vbMD32q woxeLDz9WUdNrkklwgNgEAIej2f69OnDE5Bf/OIX+/btKywsvHr1anx8/KOP Pjr8bx988EGTyUR3r++a2+2WSCQ3btzw9wMdHR3Dh9na2hrK7sEokSygu7Gs tSCee+Tt0H6JtFJ4epfv6VxsewIAALQgqYFFqyCfRG2lx5szP2EfWB7iPIUR 9Urzqb+oqrL7FHw8qwxBkpiYODwm37x5s81mG/4DLpcrJiZm+M+89dZbdPU2 eD777LOhAX7ve98bHMQ3A+PCzcUjrAJxblR9bIjubjOjFzelbZNdPtLFvtzX LhgcmAg7QgAAwMTj6Df0tnLUNbmSvJiGxPWhfIqgbs988lmpLM8gHcCm9xBA M2bMGIrJp06d6u/H1q5dO/RjP/zhD0PZw2DzeDxHjx4dnnzt2LGD7k5Nam6n nVo8UnUmNItHqGWASRvIVV1945xBwrIbu+meAAAAgLFwDzotGlk375qiJKU5 YwczZmmI8pSIufzUzYqrqT0tDKc1/J6ugfFjcHDwn/7pn4ZicoFA4O8ne3p6 hkfvWq02lP0MOIfDoVKp6urqkpKSHnrooeFDI//TaMQmFaH25eKREyFYPMKJ XyPM3t1elq4XVFq0bXh6FgAAJiq7Sd8rZatvnBWf38c98jZJIoKfqszhJW2Q FyXqm6tRTgXuFpPJHIrJv/vd7478wz/+8Y+HfrikpCQ0PQySS5cufe12pkyZ Eu5pVxihFo/wrskKDwd58cichsT11ANanCsmlchlt9I9bgAAAHq4nHZzp1Tb cFVRfEyQvj0EBYi5R9a1FsTr+OW2XsRXcGdcLnf16tUzZsx46KGHZs2aNfIP f//73x+K4cvKykLTwyCJj4+/bW7y2WefdXR00N27CStki0cYkQua0j5su5Zm EDMHB/rpHjcAAMA4ZTd2k89KVdUZ8bm9JI+o/WJO8D6d6+PekFw4oOWWWPVq uscNYU+hUAwF8F//+tfD/amnDz744La5CfH//t//q6iooLuDE4fbaTcqGslF T5j1KXPfq8G74vk2OVRV55jaBW4nSmcCAADcNZfD1q9u6eJckRclBvUpa/bB 18W5URp2oUWrCN/q3kCjt956ayh6/+Uvf0l3d+6VUCg8f/68VCptbm4+c+bM zJkzh6cn3/nOd8KujMu4ErLFI/WHVknOR1NXti45rmwAAACBRX3BKOcpr2cK 0rfXBa1sPStmqejMFx21eeZOKUo9wmg0NjYOr5n+5ptv0t2jwEtLS7vvvvuG xvjkk0/S3aMw46s8Iis83HD0neAlI9QKu8T1ssIEHf+63YgnVwEAAELE4xo0 KZtV1TnCrE+Dt4smeWXy+tRTEMpmDzargdvp7u7++c9/PhS0f+tb35qodQm3 b98+/O4Jnuwa2fDFI+yDQVw8UrdnPv/EViweAQAAGCdIDGDukHTU5onOfMEK 2k7FdZELBOkfqyqyjHKeG6Uewau/v/+RRx4ZHrHv3LmT7k4Fi91u/7d/+7eh kcbGxtLdo3HH9WXlkZAsHtmFxSMAAADjnMfjsWgVX35X+XrQvqicxz++pb3s ZK+UPWiz0D1ooIfZbJ46derwxGT69OnuCf0c4AsvvDA02A0bNtDdnXHBaTWF bPGI+Pw+LB4BAAAIX1a9uotTLL1woD7ujWDlKRFzeckbFcXJPaJap6WP7hFD iGg0mj/84Q/DE5NHHnmkt7eX7n7dNZvNJhKJLl++fPjw4crKypF/eMWKFUPj XbJkSWh6OA7ZeruweAQAAADuha1Xq+OXtxbEcxPeCl44wfNWMdMLKu0mPd0j hmARCoUPPvjgBEhMiP379w+NYurUqSP/8FNPPTX0w5988kloejgeUA+OhnLx SOkJg5jptJroHjcAAACEgqPfoG+ulhcl8pI2BK+KCjdhrTT/UDfvms2goXvE EDCVlZXf+973hicmU6ZMCdPEhCgrKxsayH333dfT0+PvJ8kY/+Ef/mHoh4uK ikLZz9CjFo+0NYVs8Ygai0cAAADgy8fFFVdT+ambg/e4OFVoIC+mi3PFqlPS PWIYu9OnT3/7298enpi88sorNpuN7n6Nnd1uH55xbN261d9Prly5cujHvv71 r4dvOjYCcjXoaQnh4hFWAbV4ZEKvUQIAAIAxc9kHjK2c9rL0prRtdXvmByks Ye1fJj4XqWFeMmtkCEvCSGRkJInJhycmmzdvngCL3+fOnTs86SguLr7lBzwe T1xc3PCBT6TFJrbeLh2/PPiLR17+cvFIORaPAAAAwN36cjvQbEHGDkbUK0EK V5jRi0XZu9U1uf3qFo/bRfegwa/3339/eHD+jW98Iz4+nu5OBYZSqfzXf/3X 4U92bdq0SaFQkJTEbDbX1NRMnz59+NgffPBBo9FId6/via1X28W+HLLKIz0t DCweAQAAgEBxuwZNKlFHTa7w9GckmwhSJEMyoObMT1SV2X1tTXjsfFzZtm3b 8OD8H//xHwsKCujuVCBdvnz5lltCxHe+852v/p/f/OY3SbZCd3/HwuN2m5TC 9rJ07yqzYOUjQ4tH8C4GAACAEPDu2NPaybjYcnYPa/9rwcpTIhcITn7UXp5h lHFd9gG6Bz2pxcbGDg/Ov//973O5XLo7FXinTp3693//96+N6PHHH29sbKS7 p3dncKBfJ6iUXjgQvMKs9bErfYtH8JQmAAAA0Mva3a5hX5acjw7ewyF1e+Y1 pm72bStKAi26Rzy51NfXf+tb3xoKzn/4wx+KxWK6OxUsvb2969ev/+Y3v/nV rOSBBx6Ii4sLo8U1Vp1SfeOcIH17XcTcYLwrhxaP2Hq76B4rAAAAwG3YDBpt Q6k0P5YTvyZIeQpVji1pg6I42SjnuV2DdI94gvN4PL/73e+G4nOSpNTV1dHd qaBzOBwCgeDs2bN79uxJSEi4fv26Tqeju1Oj4nY6els58itJnLjVQfiK4Gbl ESweAQAAgLBj79PpmipkhQncI28HKU9hRi8Wn99HfgtupgTJhQsXbrl98OvR +epWVxA8dpO+i1PckhMR8D0rhi8ecTntdA8UAAAAIAAcZmOPqEZefKwxeWMw Sj3W7ZknSP+4s+6CzdBJ91gnlIULF468/sKfjIwMuvs+wXk8nn51i/J6Jo96 TwXy3YTFIwAAADB5uGyWXgkreMXduEfWtV1LMymbEVbdu1/96lfITcaVQZtF L7whzY9l7V8WwHdNw9F3sHgEAAAAJjmXw2aUNSivn6JW7EYuCGySwtr/mvTi wR5RDbb5GrN//ud/HltukpOTQ3ffJxSrXt1Zd0GQ/nEA0/n62BXS/EM9olos HgEAAAC4hXvQ2dcuUFfnCDN3MqMWBTBJqdszvzlzp4ZdaDd2B7bPJFw0SFiB fU0AH49rkGTuipIUbsLawL0d5jSmbFJVZJk7JHSPDwAAACA8eNyufrW4ozZP dOZzZvSSAOYpvGPvKa9nBiow66ovIq8pyomw94XHPk4w/jn6DdqGUvG5SEbg MnTmvlfJWaptuOow99I9PgAAAIAw5vF4LF1yDatAfG4v+8DyAD7QIis83Cth 3cvuQ0YZ1/dqJIwkmRRWuMCYmTulqsrTjSmbApiJcw6vlRcfM8oasNs2AAAA QDBYu9vVN87yT2wN1H5fjL0LRWc+13JLHP2Gu+6MXv03N2WSNpiUwmCMGiYk l32gR1TbWhDPPvh6oPIR3551JFO26lR0jw8AAABgsnCYjdqGUlFOROAWp8zh p36grs6xaBWj7IN70PmVFGmOrPAw6q3ACGwGjYZ5SZi5s27P/EClJOwDyyUX DuibqwdtFrrHBwAAADB5kQShV8qWXT5Sf2hVwB6GiVstv5JklDd47vQwzG0f M2PtX9bNuxaa4UNY8LhdfQp+W+lx7pF1gTpLa73rp9rLM0wqkcfjoXuIAAAA APA3zJpWZUVWY/L7gYr9mPteFedG6fjl/vZZ5SVt8PdvBenbrTpliGcAxhWH 2djdWEZOIWb04oCdk1GLRGc+7+JccZh66B4fAAAAANyZ3aTvqi8SZu0KVNmU uoi5gpMfddTmDejVw3+RIP3jkf7VnnntZSfd97DcHsKRWSNTV+fwj28J1Koo 0jjxa+RFib3Sevegk+7xAQAAAMBYuBy2HlGtNP9QAPf4okrPlx43tQs8brco e/doospelEGZ6MiZZhAzZYWH62NXBupMI7ltU9o2dU2uRdtG9/gAAAAAIGA8 Ho9JJWovS29IXB+o0JEZs7Tms1k1n88ezQ+jDMqEZDdqNezCAN6h851XkrwY XVPF4ICZ7vEBAAAAQHDZDJpORr4gY0fdnnn3GEZe3/b0XcScN8uguOieALgn Hre7r13QXnYygHluLbUH9bvkNU3KZhTKAQAAAJiEBm0WnaBSkhcz5urzY8hu UAYlgNra2q5evXry5MmEhIT4+Pjjx49fvnxZLBa7gxDeO60mXVMFOVtYMUsD lY8w9i4UZu3qYl+2G7sD3mEAAAAACEfUN+EKvqIkhXN4bbBzE2+b01oQ72/v L7gjg8GQkZGxatWql/1YunRpYmKiWq2+82vdiUXbpr5xriltW13E3EClJPWH VskKEwxipgv7JAAAAACAf1adUl2TO5pYlHlv35+z9i/TNpTSPdww43A4Tp06 tWDBAl8O8tLM6TOef+rFZ34/fcr/UO2Z/50x9YmXZkzz/e3cuXPj4+P7+++6 FKbb6eiVsuVFifVxbwQqHyGnE//EVqq4Z5c8GDMDAAAAABOY09LXzbvWcjaS 4af0fED2/hKc/Mja3U73WMNDR0fHhg0bSNIxe/bsmc8/Pe3Jnz73hx/ctj3/ +IMznnt89uyXyA+vWrVKKBzVQ3T2Pl0X54owezdj78JApSTM6CUjl8gBAAAA ABg9j2uwt5Vzy7fo1TunVf1lamC+Ud8zr+1aWpDKoDidzv7+frs97J8dkkql y5Yto+6VzJg2lJXMevI/Plj860MbH0n7+MmTO55K2PToR8t+M2fKj77MUH48 a/qz5J8sWLCAwWDc9mU9brdJJVKWZ/COvReofKSW2mj67bbSE30KPrY+AAAA AIAgMWtkqspsfsqmq+t/Pcrdg0fZOHGre1puHz/fLaVSmZ2dvWPHDl8w7/Pq q69u2bLlxIkTIpEoIL8llDo6OnxjmfnCM1Mf+SHJO+ZO+VHytieaT82WZs+5 pYmzXj6964+Lp/6YylAeeWDG1Cd96Qmfzx96QZfNohdUSS4cYO1/LVBHkBG5 oDlzp4Z5ydbbReNcAQAAAMCk0ll3oeazWQFMTIaa6MwX91IGhYTf27dvH74q fPbsl2bPmjH7pVnD/8/169dXVlYGcEKCyuFw+B7lIonJc3+4n2QcW5f8uin9 pa9mJcNbS9bLUet+77uBMuO5x8k/X758ucFg6KjNE6Rvv/fto4ca++CK1oL4 npY6l32A7qkCAAAAgMnFrJExAldo76uNGbVIXZN7t88CWSyWmJiYm/nISzNn TH3ihad/OfXRHw0twZj6yA+nPfXzF5999KVZL/p+jGQxWq02SLMUQBkZGb5H uXx3TKLefnjkrGR4S/v4Se/w7581/c/kRfbu3ctL3hiIwzSnMXWzqirb3Cml e3oAAAAAYJJy2a13u8/w2Bov6V2TsnmUvers7Fy7dq03K5n14jO/n/rIfwyl JNMfe+DlP/5oxhP/MWyp+P3Tp/zWl6EsXbp0+JNO45DBYFiwYMHs2bOnPfET 0vkPl/5m9ImJr+1/9w9UavbYf/puHpWd3Df2tHHfqy1nI7UNpU6Lke6JAQAA AIDJriUnIgSJyVBrvRR3x/2dOjo6li9fTqLuWTOmPf/4j30JyLvzf5H+l6cY SS8Oheic1Jlnd0/Z9tpvpj16v+82yswXnvEtxGhoaAjN7I3ByZMnqae5nn/a t8bkjo9y3batmknlNS/++Q/kpT7dtulujwI34S1FSYpRznO7BumeDwAAAAAA ivJ6ZigTE19j7X9N23DVX5csFsubb7755SJx6ubIyhk/uRz97AiBelXCC+8t /KXvBsqM557wLZNXqVShnMnR8xVY9G3MlbztiTEkJqRdivozlY49+qPZs2fP mzevYs/iO0573Z55gowdnYyLVn0ACjgCAAAAAARQj6gm9InJUGtK22bRtn21 V1FRUd47Js/7EpPty38rvN3WVV9tB997ZOoj95P0ZOa0KeQVNmzY4HKNu91u FQqFr8Cib7vg2+7KNcq2fPp/kxfx3So6Hfmev3lmH1guzY/VC2+47Fa6Rw8A AAAAcBuWLjnTTwXGkDWqDErpCZfDNtSrhoYG3xqT5x/7LxJ473j9t3cVrids fsz7cNd/+AqpX7hwgcYZvq3i4mLSsRlTnyL9/GDxr8ecmJAW/c7D1GNdz/ye vGDs5x/dMreNye8rr2f2q8Uej4fuQQMAAAAA+EXiVcXVVFFOhDBrV/OpvzSl bWtM3cxL2sA9so4Tv6Y+dgUrZinJXAK4Le0IjRO32iC+WQZl69atJNKe/sz/ kqh71cyfiDLv+rbCR8t+Q/7ttKd+4dtid7yVaDxx4gTpGEkoSCfj3n/0XnKT nN1TyIu88PSvyAvu2vkJOVjkkLXkRGi5JQ5TD90DBQAAAAAIMI/b7XLaXTaL 02K09+lshk6rTmnRyPrVLX1tTUYZ1yBm6oU3dPzr2obSrvqiTka+uiZXVZnd Xp7RVnpCUXxMVpggzY+V5MWIz0WKsnc3Z34iOPkRP/WDxuSNDUff4Rx+sz52 JWv/a+QHRLx66qbJrBlTH3mARN3F+58bQ8TOSZ3p28Jr1ovPkVcrLy+newr/ Rnx8PJV8Tfkt6eHJHU/dS25C5ofKwp78KXnBbdu29avF7kEn3eMDAAAAAJgI 0tPTqXsKz1HPZW185ZdjDtr3eR92mj7lf8ir7d69m+5h/Y1Dhw6RXr3gzU0y Pnn6XnKTkgNTh3KTDz/8kO6RAQAAAABMHFu2bKE2sHrqFyTkPr3rj2MO2qsS XvDtYeXbsMvtdtM9sr9KSUkZemgtYfNj95Kb5H7xJ+/Ta7+knunatYvukQEA AAAATByLFi0iYbZvey5O6sx7idvnTqHKx780czp5wa6uLrpH9lcFBQXetfBP kO59vPzuVvrf0g5tfIS6PfTM/5IXTEpKontkAAAAAAATRH9/v3exyUwSb89+ +of3ErST9tacn1FLTqb/mbxmU1MT3YP7K5FI5NshmXRv3p/+U5z18pjHuPZl aowzp/2RvOC1a9foHhkAAAAAwASh0+mGCn+88ux/3WNusmnRr7xxO1XohM1m 0z24v3K5XEuWLCG9ev7xB0kPz3w2ZWwDvB4/zbdb8uyXZs2ZM6etmdOvFlu6 5Fad0mbQ2E16p6XPZbe6B53YQxgAAAAAYJQGB/p1gko5s4TKTWa9SELuuVN+ dI+5ybvzqUUrs7x1CRsbG+ke4t9ISEigHut67nHSw6XTHhzbrZP3Fv6SeqDr T78jL/Xxxx87rSZpfqz/OjLzGVGLWPtfq49dyTn8ZsPRdxqTN/KPbxGkb2/O /ESUvVt8LlKSF0NeQVaYIC8+1lZ6or08Q1WZra7J7WTkd9UXaRtKdU0VPaIa g5hplHH72pr61S0WjexmKtSnc1qMLpvF5bR7xtPqHgAAAACA0SBhbUfteRIe 10XMJfFzQ/KmefPmzZ49e+ojD0x95P7mjJfuJTdZPPXH1HoTbwXGtrY2usf6 N1Qq1Zw5c2bPfslXXzL6nYfvdnTpf3nqZonJWS+SATIYN6vD9LULeEnv0ltP 01dSkxm1qLuxjN55BgAAAAAYgdvp6G3lyK8kceJWfyWmnbNu7Rpqn64nfkIC 70tRfx5zYsJJnXnzeafZs0m+43A46B73rXw7Cc+a/ufn/nA/6SrJNUY/usvR z05/jKr/MmPqk77KJsNf2eN2ddTkktSA3vSEHGK65hYAAAAAYAT2Pl0Xp7gl J4IR9coIAe3e7RuGaqbveuOhMecmydue8BZMpzbX3bp1K92jvw2TybRixYqh DbumPnL/wfceGeUdE19iMvUxqqzJwoUL29vbv/r6dmO36MwXdCUmgowdeLIL AAAAAMYPEp32q1uU1zN5yRtHGdPm7l1PLTmZQa3yfvHxB5jHXhxDYiLKnP3K s/81tIFVbm4u3TNxewKBYMGCBV8uPKHunqx+6aeXo5/1N66K+GkbX6HWmJD2 zEM/mPLrB2bNeHHk7bkMYsbt7k8Ft3EOv+m0mkI2jQAAAAAA/rhsFr3whjQ/ lrV/2d2GtXVRr65auZIqm/40tcvW9jGV/0jY9Cj5t88//uPZs2eT4N9gMNA9 JX7V1tbOnz+ferjrhWemPvojX96x4sX/3v/uH859/qeSA1NLD049H/FM/PuP vjXnZ1MfofKX5x7+wZ9++4M//pJqCdtW3PFXuBy2ttITdXvmhSYxYUS9YtW2 BX/mAAAAAAD8surVnXUXBBk77jEMzjl+2LuT8AtTH6GeXErZ9sRdJSaF+56d 9igVw8984U/kdY4cOUL3xNwBj8dbtmwZVdjlpVkv/vnhqY/+0Jeh3KY9/IM/ /+4HU35FZSXP/uaBuFVPkunqaakbzW+xaNua0raFIDfp5qHMCgAAAADQwOMa NMoaFCUpnMNvBiq4lV059t5775FYfebzT5OAnCQao18nfjn62dlPU7H9i888 TF5h6dKlfX19dE/SnfX09ERERLzsNXs2Scv+9OIzv3/h6V9Oe/Kn0574ybSn fvH84z+n7pX86ubtktem/DRvy/O+6eIlbRj9yg5tw1XW/teCl5hI82ODOlEA AAAAALdw9Bu0DaXic5EB3AyKue9VUU4ECZ6dFmNbW9vChQtnvvDcM/9z85bB F2/+L//krBGykpasl49+8NgL3kXiL/zx17NnzyZxfm1tLd1TdReam5u/+OKL efPmvfwVZDjP/O5BkpUs/9PPkt+acsvUddSeH/1v8ZZBORTwrOTGZzMZkfMH rf3Bmx8AAAAAAB+Px2PulCorshpTNwcwpuUcXqsoSTHKuG7X4PBfR9KK5x7+ GYnG//Tbm+nJy3/80eFNj7JTZtySlTSmzUr7+ElfNRPvHZPf+xKTM2fO0DVX 98JkMlVWVqakpOzevfvDDz/csmXLp59+mpiYmJeeWPTxjNvOIWv/ssEB8939 FqUwsGVQrm99smrHn0mCKc6N0vGvYy08AAAAAAScyz7QI6ptLYhnH3w9UHFs 3Z55gvSPO2rzrDqVv9+r5ZYcXfP0n3/zAElPpvz6B8/+/q/LLpY8/+ONr/xy 22u/2fTqr5ZP/+/nfSvE//CD5x/7r5nTpvhuNGRnZ4dylkJDVpjgb0plhYfv 9tU8bpc6cGVQaj6b+TeHOGKuIH07dYj16mBMBQAAAABMHjaDRsO8JMzcWbdn fqBSEvaB5ZILB/TN1S67deTf7nLY6mNXkn+S/f5zs//wX75FFn/6DbUS/LmH v7JC/JEHpj318xnPP+W7XbJkyZIbN26EZpZCzN6nY+xd6C/dsxk6x/aaLTkR ATi+n/v9K27CW22lJ0ztAlQ8AQAAAIBRcrsG+xT8ttLj3CPrApWPkMY79l57 eYZJJfJ4PKPsiaL42NA/r9g1a+fC30/9n//wZSjPPvzzWTOenzltysznnyZ/ znpx6uyXZvnulcybNy8uLs5oNAZ1lujVUZvnb56F2bvH/LI9LfdUBoUTv2Y0 P8aKWSodXXIKAAAAAJOTw2zsbiwT50YxoxcHKh9hRi0Snfm8i3PFYeq52/7Y ersYkQtuecFrn8yMXvb48md+PmfWjFvWic+ZM2fjxo3Z2dk6nS4Y8zOuuJz2 +kOr/E17j2jsa//dTnvbtbSx7f/Mjl1xVz9Pfoswc6eGVWA3agM4OQAAAAAQ pswambo6h398S+0XcwKVknDi18iLEnul9e5B55g7Jjz9mb/XV5Zn2O12uVzO YrGqq6uZTKZYLLZYLAGclvHPIGb4m5+GxPX3+NyUtbtdcPKjuz3u1Tunjfmc 4SVtaC/P6Fe3jP62GgAAAABMAC6HzSBmygoTfKs5AtLq9sxrStvWUZNrCUQ1 8B5Rrd8v5w8sx7NAPt6M8vazRA7Evb++tqGUtX/ZKE+Aqr9MrfjwqXs/kcjx bS2I72lhuJ32ex8CAAAAAIxPdqNWwy4UZu366rNSY27MmKWSvBhdU8Xd7l47 Ao/bzUtc7+836purA/WLwl2/usXfLLH2v+ayBeBGktNqIpnCaO6p3dj1oih7 N8lP6yLmBibbjVxAXnBsDwQCAAAAwDhE4vy+dkF72ckRov0xNF7Su+Q1TUph MPZcUlfn+Pu9jSmbAv7rwprs8hF/c0VyikD9Fm8ZlA13PCu0DaX/501nunnX xOciGYGryMlP3ayqzDZrZIEaEQAAAACEDIkPdU0VkrwYZvSSQMWHjL0LhVm7 utiX7X1BXGxOej5Cn00qUfB+dThymHoYUa/c/r7DnnkBrCricbs6avNGLoOi YV76m3/iGjS2cuRFifVxbwTqJKw/tIpaytTKuZelTAAAAAAQAhZtm/rGuQA+ V+OLBmWFCQYx0xWS5/9JPuWvJ7LLR0LQgbDTWXfB34wJT38W2N9F0lKR/zIo yuuZ/v6hWSNTVWXzUzcHLFOOWtRyNrKbd81p6QvsGAEAAABgzEjK0CtlB/bb aZLa8E9sVVfnWLrkoRwLiWD9LW1gRi1y9BtC2Zlwcaf9hGsC/htJonrbUiYk h73jvyUHsYtzRZS921/5yDGcqyQZV9fkWnXKgI8UAAAAAEbD3qcjMZ4wcDEe Ff9HLxHnRun45U6riZZBjbBvrYZVQEuXwgJJFvzNG++e9xO+LbfT3l528pYy KM2ZO+/qFQxiRmtBPPvg64E6gTmH1ypKUvoUfI/bFfAhAwAAAMBwJMg0qUTK 8gzesfcCFc6Rxj3ydlvpCW9EF/ggdvS03BL/MeebHtcgjX0b//gntvqbPfWN s0H6pVadUpC+fdiJtG4ML+LxePrVLe3krB7FcvvRZ9nU9nH860FdGwUAAAAw CblsFr2gSnLhAGv/a4EK3hiRC4RZn2pYBbbeLrrHR7nDg0ktdXR3cLwzd0j8 BuoxSwO4w/NXdfOu+cqgkJPqHisnUttcswqaMz+p2zM/UKc6J36NND9W21Bq M2gCNWQAAACAycaqU3bU5gnSt9/y5My9NPbBFd7CdnUuh43u8f0NRUmKvz63 nN1Dd+/Cg7wo0d8cSvMPBfVXDw70+8qgBOo+hctu1TdXSy8cIIlVoE5+3/kv OR/dVV+ExSkAAAAAd+QedBplXEXxMc7hNwMXks1pTN2sqso2d0rpHt/t2Y3d dX7KQVIb4SKMHB1Hv8HfHr/eaVQFuwMmpXAgcLsW+1DPMbYL2kqPc4+sC2CS UustT0nS3k7GRbOmld6nGQEAAADGDxIXmTUyDaugJSdi5PoRd9WY+179cpNV I91DvAPST3+jaC/PoLt34YRE2v5mUnh6F929u1ck8aHuJJ78KIBbZN98s0Qv Fp7+rKMm16QSubGyCQAAACYZl9Pe19akrs4hESNJIgIYZXET3lKUpBjlvHAJ sUbYY4q1/zWXzUJ3B8OJ2+kYYStpfXM13R0MDKq0KL9cnBsV2PeOrzGiXmk+ 9RdVVXafgh+amj4AAAAAoUcCqp4WRlvpCf6JrQFcQlJLPbEzX5Cxo5NxMYB1 wEPD43aPsDuTrqmC7g6GH4OE5TdvPfL2BHt4iSo9L2+QX0nixK0OeJLie2c1 pW1Tlmf0tnJc9gG6hwsAAABwT+xGrY5fLitM4CWuD3jgxD6wXJofqxfecNmt dA90jDpqcv2NrjF54z1u+jRpkXDa36yqqnPo7l2wWLQKdXUOP/UDf+U77zVP iZjLT92suJpqEDPoKgAEAAAAcFc8brelS65hFYjP72MfXBGMGKkx+X3l9cx+ tTjcQ/fBgX6W/12Y+toFdHcwXJk7pf5mlUXtJ9xPdweDy9Fv6OZdk+YfCuiG Ere0ObykDfKiRH1zNfl1dI8YAAAA4K9cTrupXUAtHsn6lBm9OBixEDNqUUtO hJZbMpECIenFg/7G21oQT3fvwpv8SpK/uZXmx9Ldu9BxmHr0gkrZ5SPBuHE5 1LhH1pEzVscvt/Vq6R4xAAAATEZOq8kgZn65eCRgdeJuaZzDbyqKj/W2ctyD TrpHHGAWbZu/3ZYYUa+gnPc9utN+wpNxW2anpa9HVKsoTuYlbwz4Tl9DrT7u DcmFA1puSdgt/gIAAIDw4l08cj1Ii0eGh46C9O0dtecndgApSP/Y3wx0Mi7S 3buJQMO85G+GmzN30t07mg3aLL1Sdtu1NP7xLYHdmGJ4Yx9YLs6N0rAKrNq2 cH8CEwAAAGh3c/EIuzB4i0e+zEfmkxiprfSEQcyYDLvmdvOu+ZsKTtxqt9NB dwcnAvegkxO/xt886wVVdHdwvHA77UY5T1WRJUjf7q8G6L03VsxS0ZkvOmrz zB2SCbZbGgAAAASPb/GIyld5JDiLR3yNKveW9amq6sxkK6NAUo8RdnzVC2/Q 3cGJo1da72+euUfWedwuujs47nhcgyZls8q7dowRuEKotzTyytR7vzqH/C5P mNQhAgAAgJC5uXjkWlpQF4+QVh+70veMh0Ujm7TfnbaVnvA3P6Izn9Pdu4lG cPIjf7NN8mK6ezeukXeouUPSUZsnOvPFCBvK3WOri1wgSP9YVZFllPNcDhvd gwYAAAB6hGbxCGkNR9+RFR7ubiyzGTR0D5p+9j4dY+/C2wdpEXMt2ja6OzjR kCzYX70PZvQS1OkYJY/HY9W2UXuD50axD74erDxlzzzq2c5rab1S9uAkeLYT AABgMhtaPCI5H10fuzJ4ycjwxSOI/W4hPr/P37y1l52ku3cTk7z4mL85l1w4 QHfvwpJVr9ZyS6QXDtTHvRGsy0jEXF7yRkVxco+o1mnpo3vEAAAAEABup+Pm 4pEsLB6h3wjLH5iToCYgXRzmXn9LJ0gAbO1up7uD4c3Wq9Xxy1sL4rlH1gXv CsNLXC+7fEQvqLSb9HSPGAAAAO7C0OKRprQPg7p4hH1wBRaPjJ7H42lM3uhv Mrsby+ju4ERGzlJ/M9+c+QndvZs4HP0GfXO1vCiRl7TB36N09964CWul+Ye6 edfwmCgAAMD4NLR4pCHIi0e4R97G4pGx6ajN8/udcNIGJHdB5XENjrifcCXd HZyABgf6DWKG4moqP3Vz8Eqo1MeulOTFdHGuTOxySAAAAONcCBePzMPikXvn sllY+1/zN8l9Cj7dHZz4els5/r+Hfwv7CQeVyz5A5r+9LL0pbVvwbuay9i8T n4vsZOSbcScXAAAg+EK3eGTfq82ZO7F4JIBaL8X5m21pfizdvZssBOnb/R0F VVU23b2bLMglhVxYyIQ3n/oLI+qVYF3EoheLsnera3L71S1IPAEAAAIFi0cm AKtO6e+ZlrrIBXZjN90dnCzMI+0nvBi3BUPP7Ro0qUQdNbnC058F7/sW8i7j p34gKzysYRealM2DA2a6xw0AABBOvPvehGjxSGtBPBaPBFtz5if+DkFH7Xm6 eze5KEpS/B0LKfYTphVV6lHT2sm42HJ2zwgPQAakceLXtOREqCqyekS15Orn 8XjoHj0AAMA4Qj4ZLVrFzcUjh1YF7xP5y8Ujx7F4JGRImunvcJBjjUfmQsxh NjL3vXr7dwdqX44nVp1Sw74c7PV0vsaIeoVcGGWXj3TVF5lUIpfdSvfoAQAA QsrttJs1rd28ayRNaM78JBSLRyqzsXgk9KjtoQ6/6e/QGCQsujs4GXWxL/s7 IoKMHXT3Dm7DZtBoG0ql+bEjbLYW2MZNWCs+F6mqyjaIGXajlu4JAAAACCSP 220zdPaIasknnfjcXm+FsmDt/O9rNxePMC9h8Qi92svS/YbBJz+iu3eTFEkY SeTp77jo+Nfp7iCMxN6n0zVVUI+8Hn0nNHlKrfcbnqa0bfKixC5Ocb9a7HLY 6J4GAACAu+Aw9xplDZ2Mi9L8Q42pm+siF4Tiiz7f4hHUIxs3HKYepp9y5CQ5 tXTJ6e7g5NUjqvX3PuIcXut2DdLdQRgVh9nYI6qRFx/zVjUN7hc+t7x/uUfW iXOj1NU5vRIWSZfongkAAIC/ctkH+tVibcNVRXGyIGNHsFdxDrWhxSM9LXVO Sx/d0wC3asmJ8HfsyFGju3eTnTB7t7+jo6zIort3cNdcNgtJE9pKT5CrYvBK PfprzOjFgvTtJEsiHwTmTimengUAgJDxuF1WnUrfXK28ninKiRjh4ZCgfAJ+ uXjEqGh04+NvHDOpRP7DmCXYiIB2Fq1ipP2EkeyHM5fDZpQ1kEs0yRcYfu9d BrHVRcxtOPqO5Hy0+sa5XikbN1YAACCAyMdKr7S+o/a85MKBxuSNQS0ycttW H3tz8YhZ04rFI2HB4/E0pmzyd0C1DVfp7iBQFFdT/R0jSV4M3b2DwCBvRqte rRfeUF4/JTrzeX3cG6FPVUhjxiwVZOxQlKR0866ZNTL3oJPuiQEAgPDgsllM SmEX54q8KFGQvj2oO2iN0LB4JKx1MvL9HVle4nokmOOE09Ln/w0+x6JV0N1B CIpBcpFvF2hYBeQay0/dHLza9CO0uj3zeEnvSi7s76g9b5RxHf0GumcFAADG BY9r0KJt0wsq28vShdm7OXGraclEarF4ZAJx2a3sA8v9HWijrIHuDsJfddUX +TtSgvSP6e4dhILH7bbqlHpBFfUpcPqzEJRTuW1j7V8mzNzZVnpCx79u1bZh QwYAgEnC1qvtlbDUN85K8mJ4Se+GfsnkUCPha3PmJ4qSFGrtZIfE7XTQPTcQ GLLCBH8HHZXHxxs3VYBmhP2Ey+nuINBgcKDfqGj0brQYy0veGJqNFm9p1I2V Y+9JLx7srLtglPMcZiPdswIAAAHgtJqoe/fsQhIuNqV96K8edAgaI2oRP/WD 1oL4TkZ+n6IRS6EnqgG92l/Cy4hcYOvtoruDcCuDmOHvbcs5/KYHX19PetSN le52XVNF27U0Ydan7IOv0/IhUh+7Qnh6V3vZSb2g0qpTetwuuicGAADuwO10 WDQyHb+8rfQEuYbTdWu+1vuVF/fI2+LcKFVldk9LHdaMTB4kdPF3VqhvnKW7 d3B7ojNf+DtqyuuZdPcOxh2npc8oa+iozZNcOMBL2hD6DVJqvd91NCa/L80/ 5P2+i4/vuwAAaOfxeEjMTyJ/Ev+TLIDkAnURc+lKRkgeRLIh76PC5VQpdnzX OinpBJUjnCGoJT1uWbRt/q4ezH2vOi14nAZG4qbWLSq8X4sdb878ZITlZsH9 GDq0SpS9W1meoW+utupU2HMDACDYHGZjH/UMcL53c5UPaNlc5Wa4Er24Ke1D WWGChl1oahcMDpjpnhug38grFwxiBt0dhJG0lZ7wd+wk56Pp7h2EGUe/obeV o67JleTFNCSup2VhI2PvwsbUzeTjUsMq6GsXuGwWumcFACC8uRw2c4eEKrZe kkLjN1G11ANa86nNHvNi1DfO9kpYtl4t3XMD45Hyeqa/U4h/YivdvYM7cFpN I+wnbNbI6O4ghDGPa5CcQt28a9THWcYO1v7XaPksqz+0SpD+sTQ/VlmRRTpj VDTaertwlx8A4LY8bveAtzyWqiKr5ewe7/fPty/ZHILGiVstzN7dXpZOLTns bseSQ7gjh7nXf/npOeZOKd0dhDvr4lzxd00QpG+nu3cwodhN+l4pm9ox8nw0 vQ8kkwsUyVma0rZJLxxoL88g7wKjjDvQ0+Fy2umeJACA0HHZLFZtm0HC6qjN k+bHNia/T8smjb5GletN3y6/kkSuySal0GW30j09EH5azkb6O8EUxcl09w5G xeN2cRPe8nccu3nX6O4gTFhup8PcKaWeEyg+5q35u4S+VOWvrT52Bf/4FpI9 tZed7Kov6pXWW3VKl32A7tkCABgjj2vQZtD0tTXp+OXq6hxZYYIwa1dD4nr/ Xy+HotVRe5tslFw4QFXjbeXYTXq65wnCXr9a7DfzjV6MwgRhxCBm+juUnPg1 ePoFQsZu7CZno6rqjPjcXm/KTNuDBF9trP3L+KmbScfaSo9rWAWkn1Zt2yDW swDAuOG0GM2d0h5RbSfjouJqKrle8VM/qI9dMT6upXO4CWtFORHK65nYugSC hJzw/s7ALs4VunsHd4dcLvwdzfbyDLp7B5OUy2HrV7eQ64m8KLEpbRuNtbpG aMzoxY3JG8k7SFGcTOIBEhVYNDJsbgwAQeKyD1h1yt5WjpZbQuJ8aX6sIGMH 5/BaBn3PYt22sQ8sJx0jF0Ztw9V+tRi7tkKwadiF/s5G7pF1WKwUdqzd7f4e /mdELXKYe+nuIADF1tvl3UL/tHeF5pvj48tAPzlL1CJe0rvC7N0kseqozdM3 V5s7JNiaGwBGg8RRdmO3SSnUCyo7anLJZUR05nPesffGybOvtwsVXmlM3ewt PnXRKGtA2AAhRnL2EYpEG1s5dHcQxmKE/YTFuVF09w7gNsi1iHx2a9iXZYUJ /ONbmLQ+Oz3KVhe5gHvkbeHpXaTP6hvnSOBhUokcph6Px0P3dAJAqDmtJrNG 1tPC0LAK2q6lSc5HN6V9WH9oFa1bhYziOhYxl3tknfjcXlVVdo+o1mboxBUM 6EXyd3+nK4pihC/vfsL+vpCZY8F+wjDueWsTd/aIapTXM0VnvuDEr6H9E/wu Puv3zOccXtuc+UlrQbyq6oyOX97XLrAbu/FINkC4czntAz0dRjmvm3eNBPPk PS7M3Mk98jaNJQvvtrEPrmjO3NlWepwMwaxpdTsddE8qwF+Rj37yGervs5X8 Ld0dhLHTckv8XZea0rbR3TuAu+ayD1i0bb0SloZd2FZ6Qpwb1Zi6mcbCYWPK WeaRJGuoRIu2oZQq0WLQuLFJBcB44nG7HaaefnWLvrm6ozZPXnys5eyexpRN rP3LaL+M3G1jRC3in9hKFVtnFfQp+FhAB+OcKHu3v5NZVZlNd+/gnlD7CR9Z 5+/4kqCI7g4CBIbLabfqVMZWThfnirI8Q5IXQz6I2QfHyW42o2w3S7RILuz3 lmgpNsobrHo1vs8ECCqXzUJ94yFld9UXkauH9MIBQfp2Tvyauj3z6L4mjKUx IhdwE9Y2Z+yQ5seqqnMMYqbdiGLrEE70whv+Tu/62BUoATABGCQsf4eYXHvd g066OwgQRN4qAJ1GWYO24ary+ikJiTpOfsSJWx1eUQf74Ov841vE5/e1l53U sC+jRAvA3aIuBb1dvoIgqi8LgvCS3h2fuwWOos2hLgupH7ScjVSUpHh3FKwx d0iwYh3C3chfqpPznO4OQmCIz/ktqdlelk537wBo4N0zR9un4FOPi1eeluYf as7YwU1YG145C+kt+8BychknmYvw9C7J+WjZ5SMkf1HX5HZxruibq40ybr9a bNWrScSCwkYw4bmddke/4cuCIPlUQZDcKPLuGDcFQe66MaIWNSSu9221oao6 091YRq5a1COg+F4RJihVVba/twNJxunuHQSMVaf0F3ExoxaRKzndHQQYLzxu t71PZ1I26/jXvdWWD3uXuK6rG2eFBsbWyCjYB1fwEtc3pW0TZe+WXNgvL0ps L8/oqM3TNlztEdUY5TwS15HIx2k1Yet4oBGJvZ2WPnIqWjQyEo33tDDIW1LD LlTfOEuyb3nRUXL2CrN3C9K3NyZv5MSvYcYsDa8vFv7mjblnHiduteDkR9Tz nN57owYJy6JVDA6Y6T4OACHlMBuZ0Yv9vVP61WK6OwiBRC53/o61+NxeunsH EAZIFk+tihVUeWsTHKUeCElcHxa7HI+5MaIW1R9axUvaQCJA0ZkvpBcPyouP qSqyOhkXu3nXelrqSNBo1sjsRq3LZsH+Y3BbbtcgSXXJSUKC7b52AYm6dU0V XfVF6ppcZXmG/EoSOa9aciKaM3Y0Jr/PObyWfWC5v/15wr2x9r9GxthC1XU9 RtVIElSZVCK7SY/3DoCP+Pw+f28feVEi3b2DABsc6GfFLPV3xM2dUro7CBCu nJY+7zMkNSTYICEHVU8tacMI3/xM3DaHjJoTv6YxeSOJM1vO7pHmH1KUpKiq sjWsAh2/3CBmktDUqm2z9+mwWCYckRCaJKHk8Fm0bSal0NjKIdF1F6eYnPnK 65mK4mRpfqz4XGRz5ieNqZu5R9axD77O2LuQ7tMy1I0MmYyd2jz8Upyq8rS2 4apR5tvUwk73AQQY18gnqb9nL5n7XsVaqgmJXCH9XUuxnzBAwA0OmM0amUHM oJ57L0mhdh9Nfn+ErwgmW6uLmMuMWcpNWNuYsokEcuJze1sL4ttKT6irc7rY l3VNFb1SNgmArTqlw9SDuC6wPB4PSQ/tJj2Z3n51i1HG1QtvkM+ITsZFEk6T 05UcC3FuVHPmTv7xLbzE9fWxKxkT+hbhGM5eMif8E1vF5/eRk5Zk3+Sdbta0 Oi19dB9bgHBF3lD+3nHkQ4Hu3kFQeNxu7pG3/R138qlEdwcBJgVfiRbDsBIt /NQPwqtECz3R4NDC/9QPhFmfkphQVphALfy/cbajNo+0zroLJLT2tnwN8xLV WAVUYxeSzzUN+3JXfVEX58qXrVjLLSHXPW8r7eZdu9kay3T8ch3/OtWaKvSC StJ01J9V+uZqqglv9IhqekS1N1tLHQlKe1oYBjGzV8IyeBvJqnql9cZWTm8r h4T9RnmDUeZtcl6fotGoaOxT8Pvamkztgj5vMymbSRZGNZWIZAreJibN3CEx d0qppmm1aGQk1bV0yammVVi1beQssna3k+TC21TkT/Lz5FeQXpGBkOGrKrPJ CUZmicyVMGtXU9o2XtK79XFveG/qheXC8NA3Mle8pA3C7N3yoqPqG+fIKUGO l61Xi9VYAIFFLsv+3obchLdQ/2sCI5+V/g49+cBCGQUAGvlKtPR6S7S0l6VL 8mKa0j4MtxItaGjh1+r2zOcmrKXKoV48qLx+irwByWcltukGCBmXw1Yfu9Lf O7RXwqK7gxBc4nN7/R399rKTdPcOAG51s0SLnOct0ZIp8RWGi1vNmBBbh6Gh hayxD77emLr51oIg/QaPx0P3uxxgUpMXH/P3tsV+TZOBVafCfsIAE4N70Okw 95I3NbVkoJWjE1RS2x/dONd2LY16kse3XiD1A+6Rdaz9yybq3kdoaEONsXch SUC+LAhy2FcQxKhoREEQgHHL1tvl76s2Eq9a9Wq6Owih0F6W7u/CLj4XSXfv ACBYXA6bw9Rj7W43KYXUVq6+ghHVOW2lx1sL4lvORjaf+ktjyibO4TdZMUvr IubSHmqiTdpGYhWSUHMOr21Mfl+Q/nFLToTkwgF5UaKyPKOjJpfk4NRuCRJW X7vA0iUnsQ0q8gCEKfLu9ncdUFVk0d07CJHBATNzhP2EOyR0dxAAxgWX3erd MFZhahf0tDC6G8uoFdZV2YqSFGl+rCgnggSNVOW7uNVYXo3mr9XtmUdSXU78 Gt6x9wTp24XZuyV5MfKio+1lJ1XVOSQ71vHLydnlrZXTajNoHGYjFj8CTBI9 LXX+Lh3sA8vJZxDdHYTQ0TaU+jsZ+Ce20t07AAg/Hrd7cMBMldjTyIyKxh5R LbnOUHvSVmQpio9JLhwQnflccPIjXtKG+kOrJnbNyonbqBI29XFv8JLebUrb JszaJTkfLStMaCs9oao6Q/JWqiKnqNYo55k7pVa92tFvwObPAOAP+dTgJa73 d8HRC6ro7iCE1MjnQxenmO4OAsAE53G7nFaTzaAhcaxR1kDV1+CWdNTmtZdn yIsSJXkxwtOfNaV96C2usaIOC/8D3RhRi+pjV5Lp5R/f0py5U5wb1VoQr7ia qqo8TTJKbcNVckSMMm6/usVXYgabVgFAYKmqc/xdoBpTNtHdO6AB+dDxd0rU H1rlwpddADCeuAedTovRqleTaLn3ZkXyKx01uSSXaS87SVrbtbS20hPedpzE 2IqSlJutOFle/P/Zu8//pu50Ufv/4AFCqIEAMyEkwzBMymSYZDKTQ7CNccEU E3oNxJhO6L1bkm25IffebWRbsiyrr6V57Dw5JztzdAswtm9p6fp+/CrsF9fe 2/qVZenWwc7bBztuHZi69fyfnx/ab+xrv178y8/eqWP5rz8/7269uqv1atH0 z5WdLZcLW3/5ablcMHVdmv65mNd8ccfUSf7Xn/Pbm87lNJ/PaTqX3Via1VSa 1Xh22y8/3zeUbG0s2Tp1w2o4813DT981nPn31M/ULaDh9L/qT39b/+M/Xae+ qT/1jevk17/8/GP658SWl8f//svPV3XH/jb9c/TL6Z8jX9Qe+bzuyOdT+3Xt ob9O/dQc2lx7aHPNwb/UHNj0y8+fp36m/md++RbLnKn4qf+tex6dnrrrDTlv T/3fytvm9PU0TA53hcfdRmgybpra//8EkNGiAZ8jb4V0EPX1NmoHQsfUxir9 Vkzt79p1AAAAsKCWywXSEbT9erF2HdQERvqkecL23CVh34h2IAAAACzFP9gu jU/h+yzQ/fCUdG9tLM3SrgMAAICluE5skQ6fg46fteugzAhNlhd8IP2GTPQ1 aQcCAADAIoar70rHTufe9XEjph0Ifa9q7ku/JHVHv9SuAwAAgBUY0XDlrnXS sXO0yaYdiJQQN83qZPOEb2kHAgAAIO113j3CRwnwJrzt1cwTBgAAwBwJeYal L6uyZS8KuHu0A5FaWi7myfOEj2rXAQAAII01ncuRjpo9D09p1yHlhMYGxHnC 298Pj7u1AwEAAJCWPC3l0sWkvGCVEZrUDkQq6nl0WnwT4Nlt2nUAAABIP3HT rDmwSTpkuuseaQciRcWm5wmvkn5zfL2N2oEAAABIM30vLkjHy9pDm+PxuHYg Upe77qH4y3Pkc+06AAAApJNYcMKRv1I6Xo53u7QDkdKS/9FtsOKGdiAAAADS RuvVIulg2XZtj3Yd0sB4Z604T7horck8YQAAALyBwHCXLWth4lFLuUsYtYQ3 1HIpX7qedN45rF0HAACANOA6+bV0pBywXdauQ9oIjQ3ast9L+Itky1nMJRcA AADJvaq5L11MnHs+MqMR7UCkk57HZ6Rfp4aSrdp1AAAASF1TVw/n7j9Kh0lv m1M7EGnGCAcqCleL84R7GrQDAQAAkKK67h+XjpGuk19r1yEtueseSb9UdcwT BgAAQCLhcbd9+/uJPx2QtXByuEs7EGkpHo/XHPyLPE/4unYgAAAAUk7zxR3S AbLr/nHtOqSx8c466VerYucaIxLSDgQAAEAK8bY5pdOjI39lLDihHYj01nq5 UJwnfPuQdh0AAABSRTwerz20WTo6vqq5rx2ItJd8nnDIM6wdCAAAgJQwYLss XUxqDmyKm6Z2IKyg92mJ9GvWfCFXuw4AAAD6jNBkecEH0qFxvLNOOxAWYYSD SeYJe5hQDQAAkPHaru2RjoutV4u062ApI64n0i9b7aG/xuNx7UAAAACoCbh7 bNmLpE8BhL2vtANhKck/2TRYfk07EAAAAGrqT38rHRT7XlzQroMFjXe9lOcJ f2iEg9qBAAAAUJDkC7srd60zomHtQFhT65Wd8jzhg9p1AAAAmG9mLOrcu178 YHJLuXYgLCvsHbbnLE74i2effich84QBAAAyS8/DU9LFxHVii3YdLK736Vnp 16/pXI52HQAAAOZPxDfqyF0qHA4XTA51aAfC4qbnCe/8UPyzXWuldiAAAADm SWNplviG/7tHtOuQEUZcT+V5wpuZJwwAAJAJfD0N0pnQkbciGvBpByIj/DJP +K/Sr+KA/ap2IAAAAObW9IHw8GfSgXC4+q52IDLIeLdLnCdcuJp5wgAAANY2 6PhZOg3W7N8YN03tQGSW1qtF0i9kx8392nUAAACYK0Y4UFG4WjoKeturtQOR cUKeYZs8TzjkGdIOBAAAwJxov14sXUxaLhdo1yFD9T4rlecJZ2vXAQAAYPYF R/ps2Yt4QI1UY0RClUVrpOvJGF8DCgAAYDkNZ/4tHf96n5Vq1yGjjdQ/Ez8G dfAvzBMGAACwkiTfJVFZtNaIhLQDkenqjnwuzxO+ol0HAACA2WEaMefej6WD 32iTTTsQSPa1O7/MEw5oBwIAAGAW9D4+I536Xh7/SrsO+FXbz7vlecI/aNcB AADgXUX8HnvuUuHIt8A/0KodCPwqPO6W5gnbst8LjQ1qBwIAAOCdNJ/fLj6L vn1Quw74nb7n58V5wqVZ2nUAAACYuYm+Zumk58hbHvF7tQOB3zGj4cqiteI8 4WaHdiAAAABmqO7IF9Ixb8h5S7sOSGC08YU4T/jAprhpagcCAADgrQ1V3JDO eFX7PombhnYgkFhtknnCtsvadQAAAHg7RjiY5Lu2vW1O7UBA5OttlH51ywtW xUKT2oEAAAB4Cx0390unu+aLO7TrgNdou7ZH+gVuv16sXQcAAIA3FRobsGW/ J89iHdAOBF4jPO62b39f+B1exO8wAABAumgs2So9c+59WqJdB7yRvhcXpF/j xrPfa9cBAADg9ZKMOaosWmOEg9qBwBuZnie8a508T9iuHQgAAIBk4qZRte8T 6Tg30vBcOxB4C6ONZfI84T8zTxgAACCV9T4pkc5ydUe+0K4D3lrd0S+lX+n+ skvadQAAAEgs4vc68pZLB7mJvmbtQOCtTfQ1yfOEPzCYJwwAAJCSWi7mSae4 jpv7teuAGWq/Xsw8YQAAgDTiH2gt27Yg4fnNsWNZxO/RDgRmKOwbsecukeYJ B0b6tAMBAADwO3XH/iY9Wx6suK5dB7yT/rJL4jzhkq3adQAAAPjNkPOWdHKr Kt5gGjHtQOCdGEnnCY82lmkHAgAAYJoRCVUWrZWObZ6Wcu1AYBaMNdvFecL7 NzJPGAAAIBV03j4kndmazuVo1wGzJskbF/teXNCuAwAAyHQhz5A9ZzEfE0Ym 8Pe3SHcTR/7KWNCvHQgAAJDRmkqzpNNaz6PT2nXALGu/sU/6hW+7tke7DgAA IHMleQd+ReFqIxzQDgRmWWRizJG7VPpDYZA/FAIAAGiIm2bN/o3S3cTteqId CMyJAdtl6de+4cx32nUAAACZqO/5OemEVnv4s3g8rh0IzAkzGqnc/Qd5nvAL 7UAAAIDMEg34HHkrpOOZr7dROxCYQ2PNDumXv/qHPzFPGAAAYD61Xi6Uzmbt 14u164A59/L438V5ws/Pa9cBAABkCv9ge9m2BYknqeYujUyMaQcCc84/0Cq9 Csqn5wlPaAcCAABkBNeJLdIT4wH7Ve06YJ503NwvzhP+ebd2HQAAgPUNV9+V zmPOvevjRkw7EJgnyecJB9w92oEAAABWZkTDlbvWiROKmmzagcC8GrBfkecJ /1u7DgAAwMq67h2VTmJNpVnadcB8M2NR556PpBfFSP0z7UAAAABrCnmGbTmL eQcL8D+NtZRLd5OqfZ/ETUM7EAAAwIKazuVIZ7DuBye16wA1SeYJ9z4r1a4D AACwmiQPh8sLVhmhSe1AQI1/sE2cqp23IhrwaQcCAABYR9w0aw5sku4m7rpH 2oGAsiTzhFuvFmnXAQAAWEd/2UXp3FV7aHM8HtcOBJRF/B67NE84a2HgVbd2 IAAAgBXEghOO/JXS3WS826UdCKSEQcfP4jzh0//SrgMAALCC1qtF0omLL78G /q/XzBN2PdUOBAAASG+B4S5b1sKEZy177pLwuFs7EEghntZK5gkDAADMEdfJ r6WzVn/ZJe06IOW4Tv5DnCf89Kx2HQAAQLp6VftAOmU593xkRiPagUDK8Q+2 y/OElzNPGAAAYAamrh7O3X+U7iae1krtQCBFdd4+KM4TvrJTuw4AACD9dD84 IZ2vXCe/1q4DUld00uvYsUyaJzw53KUdCAAAkE7C42577hIOV8DMDJZfk672 9T/+U7sOAAAgnTSe/V46WXXdO6ZdB6S6uBFz7l0vzxN+oh0IAACQHsa7XdKZ ypG/Mhac0A4E0oCnzSmOktj7sWnEtAMBAABSXTwerz20WTpTvaq5rx0IpI0k I7h7n5Zo1wEAAKS6AfsV6TRVc2BT3DS1A4G0MTncKX116fQ84clx7UAAAIDU ZYQmyws+kO4m45112oFAmum8fUicJ3y5ULsOAAAgdbVd28P3MgCzKOL3OvKW yyPvOrUDAQAAUlHA3WPLXpT4EJWzOOx9pR0IpKXBiuviPOFT32jXAQAApKL6 099KJ6j+Fxe064B0ZU7PE/5YenG56x5pBwIAAKQW98vH0tmpctc6IxrWDgTS 2FizXXp9VRV/HGeeMAAAwP9hxqJJvidurNmhHQikvYaSrdJLrOfxGe06AACA VNH98JR0anKd2KJdB1hBYLhLnCe8Y1nE79UOBAAA0BfxjTpyl4pzhIY6tAMB i+i8c1h6CNByKV+7DgAAQF/TuWzpvDR1lNKuA6wjOjkuzRMu27bAP9iuHQgA AKDJ19MgXUwceSuiAZ92IGApgxU3xPdPnvyHdh0AAICaeDxee/gz6aQ0XHVH OxCwGtOIVRVvkOcJP9QOBAAA0DFYfk06I9Xs3xg3Te1AwILGmh3S68655yPm CQMAgAxkhAMVhaulM5K3vVo7ELCsxrPbxHnCj05r1wEAAMy39hv7GBkEqAi8 6k46T9ijHQgAADB/giN9tuxFCY9G9pzFIc+QdiBgcV33jooPBy7madcBAADM n4Yz/5bORX3PSrXrAOuLBnyOvBXSPOFJ5gkDAIDMMFL/TLqYVBatNSIh7UAg Iww5b4nzhE9s0a4DAACYc8lHmI42lmkHApkibhpV+z6RXoyvau5rBwIAAMyt nsdnpLPQy+NfadcBmWWspTzJPGEzFtUOBAAAmCsRv8eeu1R6i7t/oFU7EMg4 jaVZ0vWk++Ep7ToAAIC50nwhVzoFdd4+qF0HZKKAu0ccmpe7NDIxph0IAAAw +yb6mqWLiSNvecTv1Q4EMlTXvWPSa7P5Qq52HQAAwOyrO/KFdP4ZqrypXQdk rlhwojx/JW+2BAAAGWKw4oZ0Mana90ncNLQDgYw25LwtD6n4u3YdAADArDHC wcqiNdLJx9vm1A4EMt0v84Q/lV6kw9X3tAMBAABmR8etA7ybHUhxntZKcZ7w 7j+a0Yh2IAAAwLsKjQ3Yst9LeOCZ+u9T/6odCOBXzedzxHnCD05q1wEAALyr xpKt0mmn98lP2nUAfhNw90rzhB3MEwYAAGlutLFMuphUFq0xwkHtQAC/0/3g hPgOzPPbtesAAABm6JdP134inXNG6p9pBwL4b7Gg3yHOE/5f/v4W7UAAAICZ 6H16Vjrh1B35QrsOQGLD1XfFV+6xv2nXAQAAvLWI3+vIWy6dcCb6mrUDASQW N82a/RvlecJ3tQMBAADeTsulfOls03HzB+06AMl42pziJ8V2/8GIhrUDAQAA 3pR/oLVs24LE0352LIv4PdqBAF6j+fx2eZ7wCe06AACAN1V37G/SqWaw/Jp2 HYDXC4z0SfOE7blLIr5R7UAAAIDXG3Leli4mVcUbTCOmHQjgjXQ/OCnPE87R rgMAAHgNIxKqLFornWc8LeXagQDelBGaLC/4QJ5o0aQdCAAAkEznncM8aAUs Y7j6njhP+OiX2nUAAACikGfInrM44THGlr0oMNKnHQjg7cRNs1qeJzzkvK0d CAAAkFhTaZZ0hul59KN2HYCZ8HZUi/OEd61jnjAAAEhBo0126QBTUbjaCAe0 AwHMUPOFXOnV3XXvmHYdAADA7yT/IukR1xPtQAAzFxztF+cJb38/PO7WDgQA APhN3/Pz0sWk9vBn8XhcOxDAO+l+eEp6jTeWZmnXAQAA/Coa8DnyVkjnFl9v o3YggHcVm54nvIp5wgAAIMW1XC6UTizt1/dq1wGYHa9q7ovzhI98oV0HAADw H/9guy1rYcLjiiN3acQ3qh0IYHZMf6zswCZ5nvAt7UAAAJDpXCe2SGeVAfsV 7ToAs8nbUSPOEy5aazJPGAAA6EnyndHOvevNWFQ7EMAsa7mYJ88TPqpdBwAA MpQRDVfuWiedUkabbNqBAGZfaGzQlv0e84QBAEBK6bp3TJwpenabdh2AudLz 6DSvfQAAkDpCnmFbzuKEhxNb9qKAu0c7EMBcMcKBisLV4tjwngbtQAAAkFma zuVIJ5PuBye06wDMLXfdQ3me8OfadQAAIIN4WiukY0l5wSojNKkdCGBuvWae cOVN7UAAAJARkp9J3HUPtQMBzAdvZ620DlTsXGNEQtqBAADA+vrLLkkHktpD m+PxuHYggHnScilfWg067xzWrgMAABYXC0448ldKp5Hxbpd2IID5k2SesC1n cdj7SjsQAABYWevVXdLFZOqftOsAzLeex2ekNaGhZKt2HQAAsKzAcJcta2HC Q4g9dwnfuQZkICMcTDpPuF47EAAAWJPr5NfSCaS/7JJ2HQAd7rpH8mfQ/spn 0AAAwKxL8nUGzj0fmdGIdiAAHVO3j9pDm8V5whU3tAMBAIClTF09nLv/KJ09 PK0V2oEANI13vZTWh8qiNUY4qB0IAACso/vBCengUX/qG+06APpaLxcyTxgA AMy18Ljbnrsk8ZjQrIWTw13agQD0hTxD9pzFiWdlTM8THtYOBAAAVtB4dpv0 OLTr3jHtOgCpovdpibRWNJ3L0a4DAABpb7zbJR02HPkrY8EJ7UAAqWJ6nvDO D8UPprU5tQMBAEAaSz5+Z7j6nnYggNQy4noirRg1hzYzTxgAAMzYgP2KeMw4 sClumtqBAFLLLw80/iqtG4Pl17QDAQBAWjJCk+UFq6QzxnhnnXYggFSU5I2g FTs/ZJ4wAACYgfbre6UDRsvlQu06AKmr9cpOafXouH1Quw4AAKSZgLvHlr0o 8dzg6XGgr7QDAaSukGfYJs8TDnmGtAMBAEA6qT/9rfTYs+/5ee06AKmu9+lZ eZ5wtnYdAABIG0km7VTuWmdEw9qBAFKdEQ5WFq0R5wm3VmoHAgCANGDGos69 66UTxWiTXTsQQHoYcT0VB/0d/AvzhAEAwGv1PPpROk64TmzRrgOQTmoPfybO E3b8rF0HAABSWsQ36shdmvgj8FkL/YPt2oEA0omvp0GcJ1y42ggHtAMBAEDq aj6fIx0kOu8c1q4DkH5arxaJ84RvHdCuAwAAKSrJE05H3opowKcdCCD9hL2v pHnCtuz3QmOD2oEAACDlxOPxJO8MH3Le1g4EkK56n5WK84RLs7TrAABAyhks vyZO1Nm/MW6a2oEA0pURCVXsFOcJj7WUawcCAIAUYoQDFYWrpZODt71aOxBA ehupfyY+/TiwiacfAADg/+q4+YN0bGi5lK9dB8AKao98Lq0zA/Yr2nUAACAl BEf6bNmLEh4Y7DmLQ54h7UAAVuDrbZTuJuUFq2KhSe1AAACgr+HMv6UDQ+/T s9p1AKyj9eoucZ7wzf3adQAAQFmSN4FXFq01IiHtQADWER5327e/L88THtAO BAAAakwjVlW8QbqbjDaWaQcCsJq+5+elNafx7PfadQAAQE3vk5+kQ8LL419p 1wGwIDMarty1Tpwn3OzQDgQAAAoifo9jxzLhhLDAP9CqHQjAmkYbX8jzhP/M PGEAADJQ84Vc8UOptw5o1wGwsrqjX4rzhG2XtesAAMC8muhrlg4GjrzlEb9X OxCAlU30NcnzhD8wmCcMAEAmqTvyhXQwGKy4oV0HwPraru2RVqH2G/u06wAA wDwZqrwpHQmq9n0aNw3tQADWF/aN2HOXCPOEFwVG+rQDAQDAnDPCwcqiNdLd xNvm1A4EkCn6XlwQ5wmXbNWuAwAAc67z9kHpMNB8IVe7DkAGMV4zT9iuHQgA AOZQaGzAlv2e8CYKvpQZwHwbbSwT5wnv38g8YQAALKyxZKt0DOh5fEa7DkAm qjv2N2ld6i+7pF0HAADmRJLnk5VFa4xwUDsQQCZKNtI8f2Us6NcOBAAAsyxu GlX7PpEOACP1z7QDAWSu9ut7xXnC14u16wAAwCzre1Yqbf11R77QrgOQ0SK+ UUfuUmmecJB5wgAAWEjE73XkLZfuJhN9zdqBADJdf9lFaY1qOPOddh0AAJg1 LZfyxfdL8P3LAFKAGY1U7v6DtFKNNpZpBwIAgFngH2gt27Yg8edMdyyL+D3a gQAwbazZLt1Nqn/4E/OEAQCwgCTzOQfLr2nXAcBvXh7/Slqv+l5c0K4DAADv ZLjqjrTRVxVvMI2YdiAA/CbJ33nLp+cJT2gHAgCAGTIiocqitdLdxNNSrh0I AP+t/XqxtGq1XdujXQcAAGao885haYtvOpetXQcACUQmxpLMEw64e7QDAQDA Wwt5huw5i/m+AABpp7/skjxP+N/adQAA4K01lWZJm3v3w1PadQAgMqMR556P 5HnCL7QDAQDAWxhrdkjbekXhaiMc0A4EgGSSLGJV+z6Jm4Z2IAAAeCNx06zZ v1Ha1t0vH2sHAsDrvTz+d3Ge8PPz2nUAAOCN9L+4IG3otYc/i8fj2oEA8Hr+ wTbxe2PzVkQDPu1AAADwGlP79dSuLd1NfL2N2oEA8KY6bv4gzhP+ebd2HQAA eI3WKzv5agAA1hDxe+zMEwYAID35B9ttWQsTvwUid2nEN6odCABvZ8B+RZwn fPpf2nUAAEDkOrFF2sSn9nftOgB4a2YsmmSe8Ej9M+1AAACQwKua+9L27dy7 fmp/1w4EgJnwtJQzTxgAgDRiRMOVu9ZJ2/dok007EABmznXyH9L61vusVLsO AAD8Tte9Y9LG3Xj2e+06AHgnk4Pt8jzh5cwTBgAgdYQ8w7acxYyyAWBhHTf3 S09gWq8WadcBAIBfNZ3Lkbbs7gcntOsAYBZEJ72OHcsSP4TJWjg53KUdCAAA /uNprZQuJuUFq4zQpHYgAMyOAftVabmr//Gf2nUAAGS6uGnWHNgkbdavah9o BwLArIkbMefe9eI8YddT7UAAADJaf9klaZuuPbQ5Ho9rBwLAbPK0VojzhIs3 mEZMOxAAgAwVC0448ldK2/R4t0s7EABmn+vk1+I84adntesAAMhQbT/vZmoN gEwzOdRhy1oozhOeHNcOBAAg4wSGu6Td2Z67JDzu1g4EgLnSefug+GTmyk7t OgAAMk6SdzX0l13UrgOAORTxex15y+V5wp3agQAAZBB33SPpYuLc85EZjWgH AsDcGiy/Js4TPvWNdh0AAJli6uoxdQGRNuWxlnLtQACYc7/ME/5Ynif8RDsQ AICM0P3gJE8LAcDb5pTnCX8cZ54wAABzLDzutucukd9l3aUdCADzx3XqG3me cIl2HQAAFtdUmiVtxF33jmrXAcC8SjKx0JG3POL3agcCAGBZ490u6WLiyF8Z C05oBwLAfOu8fUicJ3y5ULsOAABriptm7aHN0hY8XH1XOxAAFEQnx6V5wmXb FkwOdWgHAgBgQQP2q9LFpObApqmbi3YgAOgYrLguLY+uk//QrgMAwGqM0GR5 wSpp8x3vrNMOBAA1phGrKt4grZDuukfagQAAWEr79WLeUA0AktEmu7RIOveu Z54wAACzJeDusWUvSrjn2re/H/a+0g4EAH0NJVul60nP4zPadQAAWET96W+l Dbfv+TntOgBICZNJ5gnvWBbxe7QDAQBIe27XE+liUrlrnRENawcCQKrovHNY WjBbLuVr1wEAkN7MWNS5d7201Y4127UDASCFRAM+R94KcZ7wYLt2IAAAaazn 0WlxMOaJLdp1AJByBitusGwCADDrIr5RR+7ShDusLWuhnweAAPD/iJtG1b5P mCcMAMDsajqXI22vnbcPadcBQIrytJSL84T3fGTGotqBAACkGV9Pg7S3OvJW RAM+7UAASF2NZ7eJ84QfndauAwAgncTj8drDn0kb65DzlnYgAKS0ZF8Llbs0 MjGmHQgAQNoYrLguXUxq9m+Mm6Z2IACkuq57R8V5whfztOsAAEgPRjhQUbha 2lK97dXagQCQBqIBX3n+SmmesH+gVTsQAIA00HFzP8/6AODdDTlvScvpy+N/ 164DACDVBUf6xPdI5ywOeYa0AwEgbfwyT/hT6XryqvaBdiAAACmt4cy/pW20 90mJdh0ApBlPa4U4T3j3H81oRDsQAIAUNdLwXNpDK4vWGpGQdiAApJ/G0ixp ae1+eEq7DgCAVBQ3YlXFG6QNdLTxhXYgAKSlgLtXeq+sg3nCAAAk0vu0RP7M 5lfadQCQxrruHZMW2OYLudp1AACklsjEmGPHMmZdAsBciAUnHEnmCfe3aAcC AJBCmi/ukJ7pddzcr10HAGlvyHmbv00DAPBaE33N0o7pyFse8Xu1AwEg7cVN s/qHP4nzhGvuawcCAJAS6o58IW2XQxU3tOsAwCI8bU5xFuLuPxjRsHYgAADK knxtcdW+T+OmoR0IANbRfD5HWnJ7mCcMAMhsRjhYWbRG2ii9bU7tQACwlOBI nzRP2J67JOIb1Q4EAEBNx+2D4ljL89u16wDAgrofnGDhBQDgv4TGBmzZ7yXc H6f++9S/agcCgAXFgv7ygg+k68lEX7N2IAAAChpLtkqbY+/jM9p1AGBZw9V3 peW37uiX2nUAAMy30SabOC6maI0RDmoHAoBlTc8T3r9RWoSnbi7agQAAzJ+4 aVTt+0TaFkdcT7UDAcDivB3V4gOiXeuYJwwAyBy9z0p5OwEA6Go+v11airsf nNCuAwBgPkT8XkfecmFDXMDHMAFgfgRH+5PMEw6Pu7UDAQCYcy2XC6Qnde3X i7XrACCDdD84Kc8TztGuAwBgbvkHWsu2LUi4Dzp2LIv4PdqBAJBBjNBkecEq eZ5wk3YgAABzqO7Y36RNcNDxs3YdAGSc4ep74gcAj3yhXQcAwFxJMlG/qniD acS0AwEg48RNs+bAJnGecNUd7UAAAGafEQlVFq2Vtj9PS7l2IABkKG9HjThP uGityTxhAIDldN49Iu19jaVZ2nUAkNGaL+RKS3TX/ePadQAAzKaQZ8ieszjh rmfLXhQc6dMOBICMFhobsGW/l3ie8Pb3mScMALCSptIs6Ylcz8NT2nUAgP90 PzwlLdRN57K16wAAmB2elnJpv6soXG2EA9qBAID/xEKTU2uytFz7ehq0AwEA eFfTE2D2b5Q2O3fdI+1AAMCvXtXcl5br2iOfa9cBAPCu+l5cEHe6w5/F43Ht QADAr5LPEx5y3tIOBABg5qIBnyNvhfgOgd5G7UAAwO94O2vFd+HuXGNEQtqB AADMUOvVImmPa7u2R7sOAJBA88Ud4jzhe8e06wAAmAn/YLsta2HC3c2RuzTi G9UOBAAkEBoblOYJ23IWh72vtAMBAHhrrhNbpCdvA7bL2nUAAFHPo9PiPGG+ LRcAkG6SDHtx7l1vxqLagQAAkREOJJ0nXK8dCADAmzKj4cpd66RNzdvm1A4E ALyGu+4hUxYBABbQdf+4tKPVn/5Wuw4A8HpTt4/aQ5vFecKVN7UDAQB4vZBn 2JazOPGHKLMXBdw92oEAgDcy3lkn3U0qi9YY4aB2IAAAr9F0LkccPnn/uHYd AOAttFzKl5b0zrtHtOsAAEjG2+aUdrHyglVGaFI7EADwFkKeIbv0p/DpecLD 2oEAACQWN82aA5uku8mrmvvagQCAt9bz+Iy0sDee/V67DgCAxAZsl8WhLoc2 M9QFANKREQ5W7PxQnCfc7dIOBADgv8WCE478ldLmNc7mBQBpy133SFrea3j0 BABIPW3X9kg7V+vVIu06AMDMTd0+apLME664oR0IAMBvAsNdtqyFCfcse+6S 8LhbOxAA8E583S7pblKx80PmCQMAUofr5NfSntX34oJ2HQBgFrRcLhDnCd85 rF0HAMC0JO9Ddu75yIxGtAMBALMg7BW/WteeszjkGdIOBABkuqmrx9QFRLqb eFrKtQMBALOm98lP0oLffD5Huw4AkOl6Hp6S9qn6U99o1wEAZpMRDlYWrRGf R7U5tQMBAJkrPO625y5JuEPZshYGhru0AwEAs2zE9US6m/BVVgAARY2lWeLn Iu8e0a4DAMy+qdtH7eHPpMV/sPyadiAAIBONy/MkHfkrY8EJ7UAAwJzw9dSL 84QLVxvhgHYgACCzxE2zVv4eruHqu9qBAIA51HK5UNoCOm4f1K4DAGSWQcfP 0q5Uc2DT1M1FOxAAMIfC3lfSPGFb9nuhsUHtQABApjBCk+UFq6S7ibezVjsQ ADDnep+USBtBY2mWdh0AIFO0Xy+W9qOWywXadQCA+WBEQhU75XnCrZXagQAA 6wu4e2zZixLuRPbt74c8w9qBAIB5MuJ6yvt7AQCK6k9/K+1Evc9KtesAAPOq 9sjn4jxhx8/adQAAK0vyiKxy1zojGtYOBADMK19PQ5J5wrHQpHYgAMCazFjU uXe9tAeNNtm0AwEAClqvFonzhG8d0K4DAFhT7+Mz0u7jOrFFuw4AoCM87rZv f1+eJzygHQgAsJqIb9SRuzTx1pO10D/Yrh0IAFDT96xUnCd8dpt2HQDAaprP bxf/ZM9XAANAZjOj4cpd66RtYqylXDsQAGAdST7q6MhbEQ34tAMBAMpG6p/J 84T/zDxhAMCsiMfjtYc/k3acIect7UAAQEqoO/qltFkM2K9o1wEArGCo4ob4 KGz/Rh6FAQD+fxN9TdJ+UV6wymCeMADg3RjhQEXhammv8bZXawcCAFJI69Vd 4ocTb+7XrgMApLeprUTaZZov7tCuAwCklrBvxJ67RJgnvCg42q8dCABIV8GR vqmtJOEWY89ZHPIMaQcCAFJO3/Nz0kOthpKt2nUAgHTV8NN30v7S+7REuw4A kIqM5POEmx3agQCA9DPa+ELaWSqL1hqRkHYgACBFjTQ8l3aQaoaoAADeUtyI VRVvkHaWqU1HOxAAkNKSzRO2XdauAwCkk94nJdKe8vL4V9p1AIBUN9HXLM8T /iAW9GsHAgDSQ2RizLFjmbCnLPAPtGoHAgDSQNu1PdL1pP3GPu06AEB6aLmY x3R6AMA7ivhGHblLxXnCI33agQCAVJfkr/COvOURv1c7EACQNvpfXBDnCf/0 v7XrAACpru7IF9I+MlhxXbsOAJBOpucJ7/6DPE/Yrh0IAEhdQ85b0g5Ste/T uGloBwIA0sxoY5k4T/iHPzFPGACQkBEOVhatkXYQb5tTOxAAkJZeHv9K2lz6 yy5p1wEAUlHn7UPS3tF0Lke7DgCQrvwDrWXbFiT+JGP+ylhwQjsQAJBaQmMD tuz3hGkq7039q3YgACCNtV/fK84Tvl6sXQcASC2NJVulXaPn0WntOgBAepv+ 5ix5nnDA3aMdCABIFWPNduliUlm0xggHtQMBAGmvv+yiPE/4O+06AEBKiJtG 1b5PpP3C7XqiHQgAsAIzGnHu/qO03Yw2lmkHAgD09T0/J+0UdUe/1K4DAFjH aJONSfUAAEnE73XkLRd2igUTfc3agQAAS3l5/O/S9aTvxQXtOgCAptbLhQxO AQDMmyTzhMvzV0YDPu1AAICOZAPndyyL+D3agQAAC2q/Xiw9Fmu7tke7DgCg o+7Y36TdYcB+VbsOAGBNkYkxO/OEAQD/w3D1XfEDicUbTCOmHQgAsKz+skvS HlR/+l/adQCAeWVEQpVFa6V9wdNSrh0IALAyMxZ17vmIecIAgCld945KO0JT aZZ2HQDA+kabxK/9rdr3CfOEASBDhDxD9pzF0ht9gyN92oEAgIzgOvkPcZ7w 8/PadQCA+dBUmiXtBd0PTmrXAQAyxeRguzguMm8F84QBwPLGWsqli0lF4Woj HNAOBABkkI6bP4jzhH/erV0HAJhDcdOs2b9R2gXcdY+0AwEAmSU66XXsWJb4 bcZZCyeHu7QDAQBzpb/sonQxqT38WTwe1w4EAGScAfsVeZ7wt9p1AIA5EQ34 HHkrpPXf19uoHQgAyERxI+bcu17ankYanmsHAgBmX+vVIt7TCwBIQR75s5B8 HTAAWI9/sN2WtTDxLJTcpRHfqHYgACCjuU5+LV1Pep+VatcBAGaT68QWac3v L7ukXQcAyHSTQx3iM7S85dHJce1AAMDseFX7QLqYOPeuN2NR7UAAAP7TcXO/ tFu1Xi3SrgMAzAIzGq7ctU5a7T2tldqBAABMi/i9jrzl0jzhAPOEASD9dT84 wWxGAEBaGLBflfYs16lvtOsAAO8k5Bm25SxO/Awqe1HA3aMdCADAb+JGrKr4 Y3GecP0z7UAAwMw1nv1eWuG77h3TrgMA4L95Wivkz0h+HGeeMACkJ29nrbS8 lxesMkKT2oEAACRQf+obaf/qY54wAKShuGnWHNgkre2vau5rBwIAkNjkcGeS ecIRv1c7EADwdgbsV6SLSe2hzVM3F+1AAABEnbcPivOEr+zUrgMAvIVYcMKR v1Ja1ce7XdqBAAAkE50cTzJPeHKoQzsQAPCm2q7t4XETACCtDZZfE+cJn/xa uw4A8EYCw13S23TtuUvC427tQAAAXs+cnie8QbqeuF1PtAMBAK/nOvm1tJL3 v7igXQcAwJvytjnlecLrmScMACnO/fKxuIzv+ciMRrQDAQB4C/U//lPa13qf lGjXAQBEU1ePqQuItIaPNTu0AwEAeDuT8huVHTuWRSeZJwwAKar74SnpYlJ/ 6hvtOgAAZqLz9iFxwMvlQu06AEAC4XG3PXeJNG4xMNylHQgAwExEAz5H3grh erJgcrBdOxAA8N+azmVLj5U67xzWrgMAYOYGK67L84T/oV0HAPid8W6XtGg7 8lfGghPagQAAzNz0POF9n4jzhF8+1g4EAPwqbpq1hzZLK/Zw1R3tQAAA3pWn pTzZIMpYVDsQADAtyTfn1hzYNHVz0Q4EAGAWNJRslecJ/6RdBwD4jxGaLC9Y Ja3V3s5a7UAAAGZHwN1jy16UcL+z5y6NTIxpBwJApmu/sU+6mLRcyteuAwBg NnXeOSzuepcLtOsAIKMle4K0/f2QZ1g7EACA2RQN+MrzV0rzhP0DrdqBAJC5 6k9/Kz0+6ntWql0HAMDsG6y4Ie19L4//XbsOADLUSP0zaXGu3P0HIxrWDgQA YPbFTaNq36fiPOG6R9qBAJBxzFjUuXe9tDKPNpZpBwIAMFc8rRXJ5glHI9qB AJBZeh6fkZZl14kt2nUAAMytxrPfi/OEH5/RrgOADBLxjTpylyZckG1ZC/2D 7dqBAADMrSTTYBzMEwaAedR8IVd6WNR5+6B2HQAA86Hr3lGm6AOALl9Pg7QU O/JWRAM+7UAAAOZDLDjhYJ4wAOiJx+O1hz+T7iZDlTe1AwEAmD9DzlvyPOGv tOsAwOKSDHWv2b8xbpragQAAzJ+pja/6hz9JO+Or2gfagQBgWbHQZEXhamkF 9rZXawcCADDfvG1OaWfk274AYO503DogLb/NF3K16wAA0NFUmiXtjz2PftSu AwALCo70ScMS7TmLQ54h7UAAAHQk2SKn5wn7RrUDAcBqGn76Tnoo1PvkJ+06 AAA0dd07Jr614OIO7ToAsJTRxjLxzbRFa41ISDsQAABNsaC/vOADaa+c6GvW DgQAi4gbsariDdJ6O1L/TDsQAAB9Q87b0l5Zd/RL7ToAsIjep2cZ3g4AQHLT 84T3bxTnCdfc1w4EgLQXmRhz7FgmrLR86S0AAL/xtleJb4HetY55wgDwjlou 5UvLbMfNH7TrAABILU3nssV5wg9PadcBQBqb6Gsu27Yg8VDEvOURv1c7EACA 1BJIMnI/d0nYN6IdCADpqu7IF9LDn8Hya9p1AACkoq77x8V5wnxVMQDMSJJ5 I1X7Po2bhnYgAACpyAhNlheskucJN2kHAkCaMcLByqI10rrqbXNqBwIAkLqG q+8yTxgAZkvnncPi36PP52jXAQCQ0uKmWXPgz9JOOnVz0Q4EgLQRGhuwZb+X cDmd+u9T/6odCABAqvO2VyeZJ2wyTxgA3kxjyVZx/uGjH7XrAABID03ncqT9 tPvBCe06AEgDo0128TlP0RojHNQOBAAgPSR5H4J9+/vhcbd2IACktLhpVO37 RLqbjLieaAcCAJBOuh+ckHbVpnN8fhMAkul7fp65IgAAzJZYaLKicLW0t/p6 GrQDASBFRfxeR95yYf1cMNHXrB0IAED6Ga6+J91Nao98rl0HACmq5XKhtHi2 X9+rXQcAQFr6ZZ7wJnGecNUd7UAASDn+gdaybQsSLpuOHcsifo92IAAA6Wq8 s1aeM7PWiIS0AwEgtbw8/pW0bA7Yr2jXAQCQ3pov5Er7bNf949p1AJBCkrwV tqp4g2nEtAMBAEhvobFB8XuNcxaHva+0AwEgJRiRUGXRWulu4mkp1w4EAMAK eh6ekucJZ2vXAUBK6Lp3TFoqG89u064DAMAijHAg6Tzheu1AAFAW8gzZcxYn /hNz9qLgSJ92IAAA1vGq5r44T/jwZ/F4XDsQADQ1lWZJi2T3gxPadQAAWErc NGsPbZZ23iHnLe1AAFDjaa2QlseKwtVGOKAdCACA1Yx31snzhNcY4aB2IAAo mP4qqP0bpeXRXfdQOxAAAGtqvrhDnCd875h2HQAo6C+7xFteAQCYf8k+7Jmz OOQZ1g4EgHkVDfgceSvkUSEN2oEAAFhZz6MfxXnCpVnadQAwr1qv7pKWxKl/ 0q4DAMDijHCwYueH4kPCbpd2IADME/9guy1rYcLF0JG7NOIb1Q4EAMD6XtU+ EN9cfeivvLkaQIZwndgiLYb9ZZe06wAAyAhTt4+aJPOEK29qBwLAnHPXPZSW Qefe9WYsqh0IAECm8HW7xGH+Oz9knjAAazOj4cpd66Rl0NNaoR0IAEBmabmU L+3LnXePaNcBwBzqfnBCWgDrT3+rXQcAQMYJe4dtwjxh+/Q84SHtQACYEyGP uPrZshcF3D3agQAAZKLex2ekJ4eNZ7/XrgOAOdF4dpu09PEttAAAaDHCwcqi NdIePd71UjsQAGaZt7NWWvTKC1YZoUntQAAAMpe77pE8T3gz84QBWEncNGsO bJIWveHqe9qBAABktKnbR+3hz8R5whU3tAMBYNYM2K8kexpjmtqBAABkOl9P vThPuHC1EQ5oBwLALIgFJxz5K8V3sXa7tAMBAMC0lssF4jzhO4e16wBgFrRf 3ystdC2XC7XrAADAr8LeV8nmCY8NagcCwDsJDHfZshYmXuVyl4TH3dqBAADg N71PfhLnCZds1a4DgHfiOvm1tMT1PT+vXQcAAH7HiIQqdorzhL2dtdqBADBD I64n0uLm3PORGY1oBwIAgP/mfvlY2r5rDmxigg2AdDR19Zi6gEiL22iTXTsQ AAAkVnvkc2kHHyy/pl0HAG+t59GP0rJWf+ob7ToAACDy9TQkmScc4xuTAaSV 8Ljbnrsk4Zpmy14UGO7SDgQAAMm0XC6Uricdtw9q1wHAW2g+n8OAdAAA0tf0 Y8bt7wuPGd8LjQ1oBwLAGxnvdkkXE0f+ylhwQjsQAAC8Xu+TEnGe8Nlt2nUA 8Hpx06w9tFlayoact7UDAQDAGzGj4cqiteI84TandiAAvMZg+TUGDwIAYA1u +esA2NYBpDgjNFlesEp8wMIXNgEAkG7qjnwhzhN2/KxdBwCijps/SMtXy6V8 7ToAAPDWJvqapM29vGCVwTxhACkp4O6xZS9KuHbZt78f8gxrBwIAgJlovVok zhO+dUC7DgASqD/9rbRw9T49q10HAABmKPnXlgVH+7UDAeB3RuqfSReTyt1/ MKJh7UAAADBzfc9KpY2+oWSrdh0A/MaMRZ1710tL1mhjmXYgAAB4J9PzhHet k/Z6T2uFdiAA/Kr3yU/SYuU6sUW7DgAAzIIk75Go3r+RecIAUkHEN+rIXZr4 PahZC/2D7dqBAABgdtQd/VK6ngzYr2jXAcB/mi/kMrsDAIBMkHSe8AexoF87 EEBG8/U0SGuUI29FNODTDgQAALOp9eou8Znkzf3adQAyVzwerz38mbRADVbc 0A4EAACzLOIbTTZPeKRPOxBAhhqqvMln4gAAyDR9z8+J84R/+t/adQAyUSw0 WVG4WlqavO3V2oEAAGBOGNFw5e4/iPOEW8q1AwFknM7bB6VFqflCrnYdAACY QyMNz6VjQA3vnQAwv4IjfbbsRQlXJHvO4pBnSDsQAADMrZfHv2KeMIBU0PDT d9Jy1PP4jHYdAACYc/7+lrJtCxLP6sxfGQtOaAcCyAijjWXSxaSyaK0RCWkH AgCA+dB2bY90JGi/sU+7DoD1xY1YVfEGaSEaqX+mHQgAAOZJZGLMkbtUmicc cPdqBwKwuL5npdLF5OXxr7TrAADAvOp/cUGeJ/yddh0AK5t+PLJjmbAELfAP tGoHAgCAeWVGI87df5SuJ6NNdu1AAJbVcimft5UCAID/KckHUav2fRo3De1A ABY00dckjuPIWx7xe7UDAQCAjpfH/y5dT/rLLmnXAbCguiNfSMvOYPk17ToA AKDGP9AqPcAsz18ZDfi0AwFYynDVHf5cCwAAJO3X94pv/L5erF0HwDqMcLCy aI204HjbnNqBAABAWWRizJ5snnCPdiAAi+i8c1i6mDSdy9auAwAAKaG/7KJ0 YKg//S/tOgBWEBobsGW/JzwGeW/qX7UDAQBASjBjUeeej+R5wjbtQABpr7Fk q7TIdD88pV0HAABSyNQFRP6A6id8QBXAuxhrdkgrTGXRGiMc1A4EAACpxXVi izxP+KJ2HYB0ZRqxqn2fSMuL++Vj7UAAAJByJgfb5S9EW8E8YQAz0//ignQx qTv6pXYdAABIUe3Xi+V5wnu16wCkn4jf68hbLiwsCyb6mrUDAQBAior4PY4d y6R5wpPDXdqBANJM65Wd0hOPtmt7tOsAAEBK6y+7JM8T/la7DkA68Q+0iu8U 3bEs4vdoBwIAgJQ2PU9473pxnnBjmXYggLTx8vhX0mIyYL+iXQcAANLAaJNd nCdcvME0YtqBANLAq5r7SVaSOCsJAAB4M66T/xDnCb+4oF0HINUZkVBl0Vpp GfG0lGsHAgCAtOEfbLdlLRTmCS+PTo5rBwJIaV33jkkXk8az32vXAQCANNNx 8wem6wCYgdDYoD1nsTTxLzjSpx0IAADSTHRS/FYCW9bCAPOEAQiaSrOkJxvd D05o1wEAgLQ0YL8iHTBcp77RrgOQijytldK6UVG42ggHtAMBAEBaihuxquKP pWPGSMNz7UAAqSVumjX7N0qLxqvaB9qBAAAgjXlayqVjhnPvx0wBBfA/Jfny 1trDn8Xjce1AAACQ3upPfSMdNvqen9OuA5AqogGfI2+FtFz4ehq0AwEAQNqb HO5MMk844vdqBwJICW0/75YuJq1Xi7TrAACARXTc3C8fOXZp1wHQl+xLkXKX Rnyj2oEAAMAiopPjSeYJTw51aAcCUOY6sUV6gtFfdlG7DgAAWMqA/ao4T/jk 19p1ADS56x7JQzPWm7GodiAAALAUc3qe8AZxnnD9M+1AADrMaLhy1zppcRhr KdcOBAAAFuRprZCOH1XFzBMGMlT3g5PSylB/+lvtOgAAYFn1P/5TnCf8rFS7 DsB8C3mG7dvfT/xhtOxFAXePdiAAALCsyeEucRTPjmXRSeYJA5mlqTRLel7R de+odh0AALC4jlsH+AoDAFO8nbXSalBesMoITWoHAgAAi0v61c8LJgfbtQMB zIe4adYc2CTdTYar72oHAgCAjDBYfk2eJ/wP7ToA8yHJXPHaQ5unbi7agQAA ICNMzxPe94l0LHG7nmgHAphbseCEI3+ltAiMd7u0AwEAQAbxtjmlY4lzz0d8 1Rpgbe3Xi8XPnV0u1K4DAAAZp+H0v6TDSe+TEu06AHMlIM/rs+cuCY+7tQMB AEDGCbzqtmUvEs4nSyN+j3YggDnhOvm19Fyi7/k57ToAAJChOm4flI4oLbyv A7Ait+tJsvdzRiPagQAAIEMlnyfsH2zTDgQwm6auHlMXEOluMtZs1w4EAAAZ bbDiunRQeXn879p1AGZTz6PT0uu9/tQ32nUAACDTxU2jat+n4jzhl4+1AwHM jvC42567JOEr3Za9KDDcpR0IAADwH09rBe8/Byyv6VyO9ErvvH1Iuw4AAOBX jSVb5XnCP2nXAXhX490u6TXuyF8ZC05oBwIAAPwq4O5JNk94Ykw7EMDMxU2z 9tBm6W4y5LylHQgAAPA7nXcOy/OEC7TrAMxckpEXNQc2Td1ctAMBAAB+Jxac KM9fKc4THmjVDgQwE0ZosrxglXQ38XbWagcCAAAkMFRxg3nCgMV03Nwv/kn0 Yp52HQAAQGJx06j+4U/iPOG6R9qBAN5Oso+SbX8/5BnWDgQAABB525ziPOHd f2SeMJBe6k9/K4/gK9GuAwAAeI3Gs9+Lh5nHZ7TrALypkYbn0mu5cvcfzGhY OxAAAOA1Au5e6U0gjtylEd+odiCA1zNjUefe9dLdZLTxhXYgAADAG+m8e0T8 8OylfO06AK/X+7REehW7TmzRrgMAAHhTsaDfIc8Tnuhr1g4EkEzEN+rIXZrw JWzLWugfbNcOBAAAeAtDlTelh651x/6mXQcgmeaLO6TXb8fN/dp1AAAAbydu mtX7N0rHm1e1D7QDASTm62mQXrmOvBXRgE87EAAA4K1526vEIT+71hkM+QFS Tzwerz38mfTKHaq4oR0IAAAwQ02lWdIhp+fRj9p1AP7bkPOW9Jqt3r8xbpra gQAAADMUGOkTv1Q6d0nYN6IdCOA3sdBkReFq6W7iba/WDgQAAHgnXfeOSUed 5os7tOsA/Kbj9kHx1Xp+u3YdAADAuzJCk+UFH0gHnom+Ju1AANOCSf7KmbM4 5BnSDgQAAJgFSd7BXnf0S+06ANMafvpOep32Pj6jXQcAADA74qZZc+DP4jzh mvvagUCmG22yiVP1itYakZB2IAAAwKzxtlcnmSdsMk8Y0BM3YlXFG6RX6Ijr qXYgAADALGs6ly3OE354SrsOyFy9z0ql1+bL419p1wEAAMy+4Gi/Lfu9xJ+0 3f5+eNytHQhkosjEmGPHMuFussA/0KodCAAAMCe67h8XJ5ReyNWuAzJRy+UC 6VXZfr1Yuw4AAGCuJP9mN19vo3YgkFkm+prKti1I+Hp05C2P+L3agQAAAHNo uOqOdDepPfK5dh2QWeqOfCG9HgcdP2vXAQAAzK1f5glvko5Dw9V3tQOBTDH1 cpNeiVX7Po2bhnYgAADAnBvvrOWbFABdRjhYWbRGeiV625zagQAAAPOk6VyO dCjqfnBCuw6wvs67R6TXYGNplnYdAADA/AmNDSabJ+x9pR0IWFlobEB6AU79 96l/1Q4EAACYV90PTkiPbZvO5WjXAVbWWLJVevXxRagAACADGeFAsnnCPQ3a gYA1eVrK5Q98rTHCQe1AAAAABUnGBNUd+Twej2sHAlZjGrGqfZ9Irzt33SPt QAAAAB3T84QP/kWcJ1x1RzsQsJq+FxfEBwJHv9SuAwAA0DTeWSedlCp28vYS YDZF/F5H3nLhFbdgoq9ZOxAAAEBZ84Vc6XrSdf+4dh1gHa1Xi6TXWtu1Pdp1 AAAA+kJjg/acxYnHmeYsDnmGtQMBK/APtJZtW5DwhebYsSzi92gHAgAApISe h6fkecLZ2nWAFbw8/pX0KhuwXdauAwAASBVGOFix80Pp4DTe7dIOBNLbq5r7 0uurqnhD3IhpBwIAAKSQJGen2kN/ZZ4wMGNGJFRZtFZ6fXnbnNqBAAAAqWXq 9lFzaLN0fBpy3tIOBNJV1/3j0iur4afvtOsAAABSka/bJc8T/pB5wsAMJJs1 kb0oONKnHQgAAJCimi/uEOcJ3zumXQekn6bSLGZ0AwAAzEDYO2wTnvHap+cJ D2kHAunE2+YU/xZZuNoIB7QDAQAAUlrPox/FecKlWdp1QNqIm0bN/o3Sq+lV zX3tQAAAgFRnhIOVRWvEecJdL7UDgfQwYLssvY7qjnzO7DsAAIA38ar2gTxP eDNnKuC1ogGfI2+F9Dry9TRoBwIAAKSHqdtH7eHPmCcMzFjbtT3SK6j1apF2 HQAAQDoZTzJPmM/wAkn5B9ttWQsTvnwcuUsjvlHtQAAAgDTTcilfup503j2i XQekLteJLdJrp+/FBe06AACA9BPyJJ0nPDaoHQikInfdI+liUlX8sRmLagcC AACkpd7HZ6RTVuPZ77XrgJRjRsOVu9ZJrxpPS7l2IAAAQLoyIqGKneI8YW9n rXYgkFp6Hp6SXi/1p7/VrgMAAEhvSd6gUnPwL3HT1A4EUkXIM2zf/n7CF4st e1HA3aMdCAAAkN7i8Xjdkc+l68lgxQ3tQCBVNJZmMT4CAABgTvl6GpgnDCTn 7ayVXiblBauM0KR2IAAAgEW0XC4QHwjfOaxdByiLm2bNgU3Sa2S4+q52IAAA gHWEx93yG+nfC40NaAcCmgYdP0sXk9pDm/lYFgAAwOzqffKTOE+4ZKt2HaAm Fpxw5K+UXh3j3S7tQAAAAKsxIqHKorXiPOGOGu1AQEf79WLpddFyuUC7DgAA wJrcLx+L84QPbOKNK8hAgeEuW9bChC8Ke+6S8LhbOxAAAMCy6o58Ic8Tvq5d B8w318mvpVdE77NS7ToAAAAr8/U2JhmUGmNQKjLJiOup9HJw7vnIjEa0AwEA ACyu5XKhOE/49iHtOmCeTF09pi4g0mthtMmmHQgAAGB90/OEc5dI84SDo/3a gcB86H18RrqY1J/6RrsOAAAgU/Q+KZFOZQ3ME0YGSHpDXxQY7tIOBAAAyBRm NFy5a504T7jNqR0IzK3m89ul3/+O2we16wAA+P/au/PoqOo87+M65zlznjnz /DNnzmgvTmvP9Gm72x67223aBWWRNYQAgqgIKiotIm4tqK1DKwTCGpYguwRk l1VWRUQEsu9kD9kqRRYqeyqVpVJVPjfEQcR8i+zfWt6vk9Onj6nc+txb94/f l7r3cwH/Ykk9LfcJv0yfMHxYTWGqdPJHL3qipaFOOyAAAIDfSdn4ptgnHHNI Ox3QK4y5O3ndDOnML40/ph0QAADAH9WZM+U+4Scd9AnDF5XGHpG/MeQJpAAA AGpyDobKfcJcdQ9fY0zcMYufEu+0yk/WDggAAOC/mmrL3bQVNZSbtQMCPSnv 6GppMMnau0A7HQAAgL8zn9kl9glv/7t2OqDH2CwmY+Ju91SPmj+2sapMOyAA AIC/c9ib4pY/K40nVTmx2gGBnpG29T3pPC/6Zod2OgAAALQqTzsj3h28ehp3 B8MHVGSck05yYzZ32pu0AwIAAOA75ze9Ja3ciqMOaqcDusXZYo9f+bx0hpen n9UOCAAAgO9ZL2ZHzAlsd+V2+Wl0Vu2AQNcVnd4hDSap4bO00wEAAOBaOQeX Seu3vKOrtdMBXdRcWxEdMq79Mrq5o6wludoBAQAAcC13S7jgIJulSDsg0BXZ excydAMAAHgd89ndcp/wbO10QKfVmtKlUzp64QS7rVY7IAAAANrntDfHL39O 7BPOjtEOCHSCy+VKXv+adD6XxB7WDggAAAB3ytPPSmu5xI9ecjkd2gGBjiqN PyaezJRjAwAAeIPzm2bKfcIHtNMBHdLSWB+7ZKJ0JlfnJmoHBAAAwPVZi3Ok PuGYRU9wiT68Qv7xddJgkrl7nnY6AAAAdNSFz5bL1UYfaacDrqOh3BwZHNTu CRw1b0xjVal2QAAAAHRUc11llLs+YZN2QMCd9O2zpeHadGqrdjoAAAB0zsVz e6TVXdrW97XTAaLKrCjp1I0LnexobtQOCAAAgM5p7RNeMUVa41VkRmkHBNrh crQkhL0onbeW1NPaAQEAANAVFRkR0hovYdVU+oThgdw8P/T8pre00wEAAKDr UsNnSSu9ixH7tNMBP9BcVxm9YLxwxgZai3O0AwIAAKDrrCUXpD7h6IUT6BOG R8nZv0QapXMPh2mnAwAAQHddOLSC9R48X505U56jH2+2VmsHBAAAQHc1W6uk 62Ra+4QvFWoHBFqlbHhDGqKLow5qpwMAAEDPuBixV+4Tfk87HfBtWeIXcm/D X+htAAAA8BnOFnv8yuflPuFI7YDwa46mhrjQSdL5WX0hXjsgAAAAepIxgLjp E3Y6WrQDwn8VnNgonZyZu+ZqpwMAAEDPS938ttwnvFc7HfxUY2VxZPBo4X6o 0cZvtQMCAACg51lLciPnjpJ6kOz1NdoB4Y8ydnwgjcyFJzdrpwMAAEBvyT0c JvcJr9ROB79TmR0jnZBxoZMcTQ3aAQEAANBb7PXV0Qsfb//6mbmjbGUF2gHh R5yOloRVU6XZxJJySjsgAAAAetfFiH1in/Anf9NOBz/ipto6ZeOb2ukAAADQ 61yOloSwF8Q+4YwI7YDwC26+wouYE1hnztIOCAAAgL5QkRklzSbxK19w0SeM 3pdzMFQ6CS98tlw7HQAAAPpO2pZ3xT7hc3u008HHWYtzIuYEtl8Zt2B8s7VK OyAAAAD6Tn1Zvps+4WZrtXZA+LLzm94SR+OIfdrpAAAA0Ndyj6wSL6o5tEI7 HXzWpeST0omXEPYilxQCAAD4oWaruz7h+tI87YDwQY7mxrjQydJsUpUTpx0Q AAAAOooj94t9wlve1U4HH1R4Mlw65dK3z9ZOBwAAADVOR0v8SrFPuDz9rHZA +JTGypKoeWPa/6ouOKih3KwdEAAAAJqqsmPki//pE0ZPytj5oXSyFZz4WDsd AAAA9KV98jdpxWg+u1s7HXxEdV6idJrFLpnoaLJpBwQAAIA+W1mB2Ce8YLy9 nj5hdJfL6UhaPU2aTS4lfakdEAAAAJ4i7+hqad2Yc3CZdjp4veKoA9IJlrLh dZfLpR0QAAAAnsJeX+OmT9hakqsdEF7MbquNXjhBmk1qTenaAQEAAOBZ3PzL durmt7XTwYtdOLRC/FbuwFLtdAAAAPA4TkdLwqqpYp9w2hntgPBK1pJc8W6m kHHNtRXaAQEAAOCJKuU+4fgVU5wtdu2A8D6p4bOkk+riuT3a6QAAAOC50re+ L/YJn9mlnQ5exnL+a+l0Sgh7gWkXAAAAbtguFUYGB0l9ws3WKu2A8BpOe1Pc smek2aQyK1o7IAAAADxd3rE1cp9wqHY6eI3Cr7ZIJ1La1ve00wEAAMALuG18 DbSWXNAOCC/QWFUWNX9s+63UwUE2i0k7IAAAALxDSfRnYp9w+CztdPACmbuD pVMo//P12ukAAADgNVxOh5s+YUvqae2A8GjV+cnSyROz+ClHY712QAAAAHiT qpw4d33C9mbtgPBQLqczac106eQpS/hcOyAAAAC8T/q2/5FWmEWnd2ing4cq iTkknTbJ62YYk4t2QAAAAHgfm8Uk9QlHhYxrrqvUDgiP09JQF73oCWk2qSlM 1Q4IAAAAb5V3fK20zszev0Q7HTxO7pFV4gmzb5F2OgAAAHixloa6GPGfwQOt xTnaAeFBbGUFkXNHCV+0PdZUY9EOCAAAAO/m5vaB85tmaqeDB0nd/I50qpjP 7NJOBwAAAK/ncjoSP3pJ7BM+/7V2QHiE8rQzFLsBAACgt7nrE17+HMtOGOeA MYBIJ0lFRoR2QAAAAPiOjB0fyH3C27XTQZnp623S6ZG25V3tdAAAAPApNkuR 1CccHTKuubZCOyDUNNVYokIea/fcMM4ZW1mBdkAAAAD4mvzP18t9wou100FN 1p4Q6cTIP75WOx0AAAB8UEuDVX6sXqD1YrZ2QCioLUyVBhPjbGlpqNMOCAAA AN9UGntEWoimfPxX7XToay6nM3ndDOmUKI07qh0QAAAAPstYiyatnib2Caec 0g6IPlUiz6pJa6YbZ4t2QAAAAPiyqgvx0nI0bvmzDnuTdkD0EUdjfczip6ST oTo/WTsgAAAAfF/Gzg/FPuGvt2mnQx/JO7ZGOg2y9oRopwMAAIBfsJWbpT7h qJDHmmrLtQOi19ksJvEcmD+2sapMOyAAAAD8Rf4XG8Q+4X2LtNOh16VtfU/8 7oxncQIAAKAPXb7X4ElpdVpnztQOiF5UkRHh5p4jJ/ccAQAAoG+Vxh0V+4Q3 vqmdDr3F2WKPX/m89NGXp53RDggAAAC/09onvOZluU/4K+2A6BVF3+yUPvTU 8Fna6QAAAOCnqvMSxWt7lj3DtT2+p7m2IjpkXLufeOTcUdaSXO2AAAAA8F+Z u+ZK44np1Cfa6dDDsvctkj7uvKMfaacDAACAX2uouBgZPFrsE66xaAdEj6k1 pUuDSfTCCXZbrXZAAAAA+LuCEx9LS9asvQu006FnuFyu5PWvSR90Scwh7YAA AADAty2tfcJPSavW2qIM7YDoAaXxx6WPOHH1NJfTqR0QAAAAaFUaf0zsE97w hnY6dJcxfsYumSh9xNW5idoBAQAAgO9c7hOeLq1dLyV9qR0Q3ZL/+Xrxsr1P 52mnAwAAAH6gOi9J7BMOnexobtQOiC5qKDdHBge13xs8b0xjVal2QAAAAOBa mbuDxT7hr7Zop0MXpW+fTU00AAAAvEtjZYnYJzx/bFP1Je2A6LSKzCi+DgMA AIA3Kvhyk3hjwp4Q7XToHJejJSHsRekDLU89rR0QAAAAEDmabG4KnWpN6doB 0Qnms59KH+X5TW9ppwMAAACuoyzhc7lP+HWXy6UdEB3SXFcZvWC88FEGWotz tAMCAAAA19HaJ7z2FWk8KUs8oR0QHZK9f4n0IeYeXqmdDgAAAOiQ6vxkaVkb u3SSo6lBOyCuo86cGTEnsN1PMHrh483Wau2AAAAAQEdl7p4njSeFJzdrp8N1 pGx4Q/r4iqMOaKcDAAAAOqGxsiRq3ph2F7eXH9hXph0QorLEE9JgkrDqLy6n QzsgAAAA0DmFJ8OlJW7m7nna6dA+R1NDXOgk6YOrvhCvHRAAAADoNGOVG7v0 aWmVW1OYqh0Q7Sg48bH0kWXsnKOdDgAAAOiissQvpIVu8rpX6RP2NI2VxZHB o9u/Ei94tPFb7YAAAABAFxnTR9K6GXKf8BfaAfEDGTs+kBsMwrXTAQAAAN1S U3BeWu7GhdIn7EGqcmL5pAAAAODbsvaE8K/xHs7paElYNVX6mCwpX2kHBAAA AHpAU3WZmz5h47faAfHtxYh90mCSsvFN7XQAAABAjzF9tUXuEw7WTufv7PXV 0QsfFz6gwDpzlnZAAAAAoMe4f2pGTcF57YB+LefgMumjMX6lnQ4AAADoYZeS vpQWwEnrZtAnrMVanBMxJ7DdzyV6wfhma5V2QAAAAKCHGdNH8rpXpfGkNP64 dkA/dX7TW9KHcjFin3Y6AAAAoFfUFKZKy+DYpU/TUtv3LClfSZ9IQtiLLkeL dkAAAACgt2TtXSAthgtOfKydzr84mhvjQidLH0dVTqx2QAAAAKAXNVaVRQp9 wlHzxjRWlmgH9COFJ8OlwSR9+2ztdAAAAECvM536RFoSZ+yaq53OXxhjoPjQ meCghnKzdkAAAACg1zmaGmKXin3C1fnJ2gH9QsbOOVxcBwAAAFxKPin2Ca99 xeV0agf0cdV5iWIpwZKJjiabdkAAAACgj7hcrpQNr8t9wse0A/oyl9ORtHqa dPDLEk9oBwQAAAD6VK0pnX+6V1EcdUA68sbAyEMwAQAA4Iey9y6Ub3nYqJ3O N9lttdELJ0iH3RgYtQMCAAAACpqqL0XNHytURY2mT7g35B5eKQ0m2fuXaKcD AAAA1BR9vU3sE945Rzudr7GW5EbOHdXu0Y4OGddcW6EdEAAAAFDj/tHk1XlJ 2gF9Smr4LOlQm89+qp0OAAAAUGZJOSX2Ca+ZTp9wTylPPS0d54SwF5wtdu2A AAAAgL6UDW9Iy+aS2CPa6XyB094Ut+wZ6SBXZEZpBwQAAAA8Qm1RhrRsjln8 VEtjvXZAr2c69Yl0hNO2vqedDgAAAPAg2fsWSYvn/M/Xa6fzbo1VZXIfWpDN YtIOCAAAAHiQphpLVMhjUp9wQ8VF7YBeLOvTecx9AAAAQMcVnd4uLaHTd3yg nc5bVecnu7lezsH1cgAAAMCPuL9fuzovUTug93E5nUlrpkuHtDT+uHZAAAAA wENZzn8t9wm/TJ9wZ5XEHBKP57oZHE8AAADAjZSNb8p9woe103mTloa66EVP SAezpjBVOyAAAADg0erMmfL9EU9yf0TH5R39SDqS2fsWaacDAAAAvEDO/iVi r9TxddrpvIOtrCAyOKjdYxgV8lhTjUU7IAAAAOAFmmrL5T7hIFu5WTugF0jd /I403xV9s1M7HQAAAOA1ir7ZIS2tM+gTvp7ytDPS0YtfMcVpb9YOCAAAAHgN h70pbvmzYp/whXjtgJ7LGD2MAUQ6dBUZEdoBAQAAAC9jST0t9t+unkb/rcTN IyzTtryrnQ4AAADwSikf/1XsE445pJ3OEzXVWNzdqlNWoB0QAAAA8Ep15qyI OYHtrrSjFz3R0mDVDuhxsvaESNNc3rE12ukAAAAAL5ZzYKncJ7xWO51nqS1M lY7V5VGuTjsgAAAA4MWaayuiQ8aJFylZirQDegqX05m8boZ4CVzsEe2AAAAA gNcr+mantORO3zZbO52nKI07KlYHrJlOdQAAAADQfa2luMufkxbeVTmx2gH1 ORrrYxY/JVYu5ydrBwQAAAB8hJuHCSZ+9JLL6dAOqCz/+Frp+GTtCdFOBwAA APiU85tmSsvv4qiD2uk02SymyOCgdo9M1PyxjVVl2gEBAAAAn2ItzpH6hGP8 u4Qqbet70tRm+nqbdjoAAADAB+UcDBUf3nF0tXY6HRUZEdIxiVv+rNPepB0Q AAAA8EHNdZVR7vqETdoB+5qzxR6/8nlpNilPO6MdEAAAAPBZRWd2yX3C/6Od rq+Z5aORGj5LOx0AAADgy1r7hFdMEfuEs2O0A/Ydd0+lnDvKWpKrHRAAAADw cW76hBNWTfWfPuHsfYuk45B7ZJV2OgAAAMAvpIbPkvuED2in6wu1pnTpCEQv nGC31WoHBAAAAPyCteSC1CfsDytzl8uVvP41aTYpiTmkHRAAAADwIxc+Wy73 CX+kna53lSV8Lu174uppLqdTOyAAAADgR5qtVdELxot9wpcKtQP2lpbG+tgl E6XZpDo3UTsgAAAA4HfMZz8V+4S3vq+drrfkf75e2uvM3cHa6QAAAAB/1Prk QblPuCIzSjtgz2soN0cGB7X/bdG8MY1VpdoBAQAAAD9VkXHOTZ+w09GiHbCH pW+fLe1v4VdbtNMBAAAAfi1189vScv1ixD7tdD2pMita2tO40MmO5kbtgAAA AIBfs5bkRs4dJfQJP26vr9EO2DNcjpaEsBel2cRy/mvtgAAAAAC+vXBohbRo zz0cpp2uZ1w8t0fax/Ob3tJOBwAAAKCVvb5a7BOeO8pWVqAdsLua6yqlHYyY E2gtztEOCAAAAOA7ZvlrhbRP/qadrrtyDiyV9u7CoRXa6QAAAAB87/LtGC/I fcKR2gG7rs6cGTEnULqhptlarR0QAAAAwA9UZESIfcJhL3pvn3DKhjek/SqO OqCdDgAAAEA70ra8K/cJ79VO1xWXkr4UB65Vf3E5HdoBAQAAALSjvjTPTZ+w 113+lJWWuvm14RunPnTuw4Af71H1hXjtgAAAAABEuYfD5D7hldrpOsFkMv3z P/3fGy779PUB1+xLxs4PtQMCAAAAcKfZWh298HGpT7i+LF87YIc4HI6B/fvd 8L+umU0ig0c3VhZrZwQAAABwHRcj9ol9wlve1U53fU6nc/LkyTdc5ZrZpPBk uHZGAAAAANfncrTEr5T7hDMitAO609jY+Nxzz93wQ1fPJnGhkxxNDdoxAQAA AHRIZVaU3Cf8gstT+4TPnj17++233/AjV88ml5JPascEAAAA0AmpbvqEz+3R Tnctq9X6yiuv3HjjjT8eTK6eTVI2vqmdFAAAAEDn2MoK3PQJ2+s9qE/4iy++ uPXWW9udSn44mwTWmbO0wwIAAADotNwjq6SvTi4cWqGd7nvXDCb/+H/+4a8j f/+Lf/3na2aTnIOh2kkBAAAAdIW9vsZNn7C1JFc74Heunk1++W//b+v0h42E 18wm0QvGN1urtJMCAAAA6KLiyP3SVyepm9/WTvedttnE+N/3Jz16evaItnjX zCYXI/ZqxwQAAADQdU5HS8KqqXKf8DntgK2efvrpjRs3FsefuDrb1bPJZ3+f 4LHdYgAAAAA6qDIrWppN4lc+72yxawds5WhujAudLM0mCSf3awcEAAAA0APS tr4njSfms7u107UqPLn5mmBXzyZ5eXnaAQEAAAD0ANulwsjgoPb7hD3gHvPG ypKoeWOYTQAAAAB/kHd0tfTVSc7BZbrZMnfN/XEqZhMAAADAJ9lttdELJwjj SaC15IJWsOq8xHZTMZsAAAAAvqo46oDYJxw+SyWSy+lIWj2N2QQAAADwK8Yg 4KZPuDztTN9HKo46KOW59eZ/YTYBAAAAfFVldozYJ7xiitPe3Jdh3F5mNvJX /3EbswkAAADgw9K2vi/2CZ/Z1ZdJcg+Hibfn719y++23M5sAAAAAPsxmMUl9 wlEh45rrKvsmhrUkN3LuqPZrjY0YtRXMJgAAAIDPyzu2Ru4TDu2bDKnhs8Sv by4/DpLZBAAAAPB5dlttzKInxD7h4pzeDmBJPS0NJglhLzhb7N8ymwAAAAD+ oST6M2k6OL9pZq++tdPeFLfsGendK7Oi2l7GbAIAAAD4A5fTkfjRS2KfcOo3 vffWplNbpfdN2/relZcxmwAAAAB+oionTuwTXv5cL/UJN1aVRc0f2+6bRgYH 2SymK69kNgEAAAD8R/r22dJ4UvTNzt54x8zd86R3zD++7upXMpsAAAAA/sNm KZL6hKN7oU+4Oj9ZGkxiFj/laKy/+sXMJgAAAIBfyTu+VpoXsvcv6cE3cjmd SWumS+9VGn/smtffeeedbYPJjTfeaDabezAJAAAAAA/U0lAX7aZP+GJ2T71R SexhaTBJWjfDmFx66o0AAAAAeKmSmENyn/BbPfIWbiegkTWFqT3yLgAAAAC8 WuvVVqunyX3Cp7v/FnlHV4tXju1d2P3tAwAAAPANVRfipdkhbvmzDntTdzZu KyuQ7riPCnmsqcbSU3sBAAAAwAekb/+73Ce8oztbTt38jrjl093aMgAAAADf 01BudvftRm151zZbnn5WGkziV0zppSc8AgAAAPBq+Z+vl/uEF3dhg8boYQwg 0jYrMs71+C4AAAAA8AEtDdaYxU9Ko0SdObOzGyz6Zoe0tbQt7/bGLgAAAADw DaWxR6RpImXjm53aVFONJSrksXY3FRkcZCsr6J09AAAAAOALLj+9/WVpPLGk nOr4prL2LpC2k3d0de/tAgAAAADfUJ2XKPYJL3vG2bE+4drCVGkj0YueaGmo 6+29AAAAAOADMnZ+KE0Wpq+3XffPXU5n8roZ0hZKY4/0wS4AAAAA8AENFRcj g0eLfcLXe1piafwxaTBJWjPdmFz6Zi8AAAAA+ID8LzaIfcL7Frn5Q0djfczi p6S/rc5P7rNdAAAAAOAD3I8YtUUZ0h/mHV8r/VXWp/P7chcAAAAA+IbSuKNi n/CGN4wXWK3WvLy8tLS0zMzMkpISp9Nps5jEh8vPH9tYVaa9TwAAAAC8z+U+ 4enXjBjnPgwIn9bvteG/ezJo6MgfGjNmzJSR9wdPuPv4O0N+PJsUdeAmegAA AABoV3Ve0tXzxZrnHxhz760P/Pom4+eh390yYtiQ4UMGDh/88PAh/UcMGzzk kQfaftXvNze/PvyO4+9+P6HELX+2g+XDAAAAANCujJ1zjOHixN+GThnw67bR 48Hbb+r3+5se+cNN/f/0w58/3vzwfxkzy01tLxt4x09XPvvnttmkPPUb7f0A AAAA4N0aK4sPzhw64k+3tE0lxvRxZRgZcu9PJg6+beqoX70w8j/H9Lvl+yHl D99PKO8E3ZkaPkt7JwAAAAB4vZKSkqCBf24dTH7TOnQYo8fAu25+e+LvDi94 JGNrQM6OwCs/seuHrpt53/gBv2ibUB7+fduXLDcvXzhXeycAAAAAeLeGhoap U6eOGD6s3x0/7f/H1onjhZH/eWrFoKtHkmt+jIFlzV/vHXLvT4wXP3LnTQPu vWPkyJFHjvAseAAAAABdt3LlSmOyGDF0UP+7WmeN9ybfcc13JdLPF0sHBD3U epXXow/8tq3Cy2w2a+8NAAAAAK+Uk5MTGBgYEDBi4L23GlPGzCd/25Gp5MrP V8sHDb3vp8YfDh3w38Z4Mnv2bO0dAgAAAOCV5s6da8wUQx65y5gvnnz01rRP OvSNydU/W9+/3/jbAXf/LGDEMGNTxrCjvU8AAAAAvExVVVVQUFBAwIgBd//c mC/2zHmos4NJ28+UEf/R2uj1yF3GbBIWFqa9WwAAAAC8zLFjx4xpYtigB4zJ YvKwX3ZtMDF+9gf3a632uvdWY2sTJ07U3i0AAAAAXmbRokXGNDH4wTuMySLs 9Xu6PJtkbRsZcP/PjI2MGDbY2KDJZNLeMwAAAADeZMaMGcYoMei+XxpjxfHF /bs8mxg/Mx77tbGRYYMeNDZ49uxZ7T0DAAAA4E0mTpxojBJtN5vEbxjWndlk zvN3trZ19b/X2OChQ4e09wwAAACANxk/fnzrbHJXawlw6uYR3ZlNFr70xyu3 w+/Zs0d7zwAAAAB4k6effvrK9yZx64d2Zzb5cMp/8b0JAAAAgK557bXXrtxv cnRRt+43mT72+/tNIiIitPcMAAAAgDdZunRpa0/XQ783xoplM+7q8mCSuW3k 8P9uvTBsxPAhxgbNZrP2ngEAAADwJidOnLj8fJOHjLHiqcG3dXk22f3Bg63P N7nvNmNrkyZN0t4tAAAAAF6mtrZ29OjRAQEBA+65xRguts9+oAuDSfb2kZOG 3HblZpO1a9dq7xYAAAAA79P2+EVjrDCGi3H9/z0lfHhnZ5MNs+4z/nbA3T8P GDE8MDCwoKBAe58AAAAAeB+TyRQUFBQQENB2R/wrY3+dtW1kxweTY4v7D77n J613wQ+835hx5s2bp71DAAAAALzVhg0bjLFixLDBbWXCbzz+m7QtHXrWycH5 Dwfc/zPjTwb3u9PYwrhx4y5duqS9NwAAAAC8ld1uf/XVV43hYviQ/gPubp01 Jg6+7cjCR9xMJec3j1jy8p8G3X2z8eJHH/htQECA8eenTp3S3hUAAAAA3q2i omLKlCmXvz15dOC9txoTR9v1Xbs+eDB50w/uQDm1YtDSV+4a9eDP214z5OE/ tQ0m27Zt094JAAAAAL7AYrFMmzbNmDICRgwf0u8PA+76Sdv0YfyM7nfLxMG3 TRj4iyH3/fTKfxx03y+HD37YeH1gYODu3bu14wMAAADwHQ0NDaGhoSMvCxg+ dEj/ewb9+VdXDymtDzG5598HP3jH8Ef7tb1s0qRJcXFx2sEBAAAA+KCUlJSZ M2eO/F8BAa1fpAwfOnDE0EHG/7vy38ePHx8eHm6z2bTzAgAAAPBlubm5mzZt evXVV0ePHj3yKhMnTgwODj5x4gRTCQAAAIC+5HQ6LRaLyWQqLi62Wq3acQAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4 iv8PWr1qzA== "], {{0, 543.}, {538., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->{269., Automatic}, ImageSizeRaw->{538., 543.}, PlotRange->{{0, 538.}, {0, 543.}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.797974671247343*^9, 3.79856729946168*^9, 3.7989249051604204`*^9}, CellID->189474592] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell["Stephen Wolfram with Jonathan Gorard and Max Piskunov", "Text", CellID->570291023] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell["causal graph", "Item", CellID->526284417], Cell["wolfram model", "Item", CellID->350970808], Cell["fundamental physics", "Item", CellID->357820599] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell["Graphs & Networks", "Item", CellID->197113425], Cell["Wolfram Physics Project", "Item", CellID->254453] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell["SymbolName (documented Wolfram Language symbol)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->332817449] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell["SubstitutionSystemCausalGraph", "Item", CellID->437467845], Cell["WolframModel", "Item", CellID->13812411] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->515049506] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell["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->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"CausalConnectionGraph | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.847363845693637`16.33773824869395*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.847363845740114`16.3377382486992*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.5.0", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]])& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]])& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[ RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[637, 23, 104, 2, 70, "Title",ExpressionUUID->"44b3aa19-3bee-4b4f-a0cb-362edb6ecc44", CellTags->{"Name", "TemplateCell", "Title"}, CellID->370434827]}, "TemplateCell"->{ Cell[637, 23, 104, 2, 70, "Title",ExpressionUUID->"44b3aa19-3bee-4b4f-a0cb-362edb6ecc44", CellTags->{"Name", "TemplateCell", "Title"}, CellID->370434827], Cell[744, 27, 191, 5, 70, "Text",ExpressionUUID->"71045131-2f85-45a9-9267-fd845f762192", CellTags->{"Description", "TemplateCell"}, CellID->229350146]}, "Title"->{ Cell[637, 23, 104, 2, 70, "Title",ExpressionUUID->"44b3aa19-3bee-4b4f-a0cb-362edb6ecc44", CellTags->{"Name", "TemplateCell", "Title"}, CellID->370434827]}, "Description"->{ Cell[744, 27, 191, 5, 70, "Text",ExpressionUUID->"71045131-2f85-45a9-9267-fd845f762192", CellTags->{"Description", "TemplateCell"}, CellID->229350146]}, "Definition"->{ Cell[960, 36, 1104, 27, 70, "Section",ExpressionUUID->"29d64078-e7c7-409d-a7ef-0611d2af9a10", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[960, 36, 1104, 27, 70, "Section",ExpressionUUID->"29d64078-e7c7-409d-a7ef-0611d2af9a10", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[960, 36, 1104, 27, 70, "Section",ExpressionUUID->"29d64078-e7c7-409d-a7ef-0611d2af9a10", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[12318, 390, 1880, 48, 70, "Subsection",ExpressionUUID->"e11bbd8f-19cb-409b-bd3f-1972d51f560d", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[17901, 588, 1329, 30, 70, "Subsection",ExpressionUUID->"68cec3e0-2aec-4186-a0fa-cd47a6777e59", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[21413, 692, 6926, 150, 70, "Section",ExpressionUUID->"02b78add-fc8e-42ee-a972-112d952821c5", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[169764, 3479, 918, 24, 70, "Subsection",ExpressionUUID->"92f95151-b6c0-41b6-99ba-3a8d6bca375d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[170811, 3511, 893, 24, 70, "Subsection",ExpressionUUID->"1632d3dc-4165-4444-96d2-48b1867bd15b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[171902, 3549, 167, 5, 70, "Subsection",ExpressionUUID->"44046e00-e95c-49b6-a357-2576379e45cf", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[172221, 3565, 870, 24, 70, "Subsection",ExpressionUUID->"f4bb3d94-0be9-4173-932f-8cc6127dc39a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[173633, 3604, 919, 24, 70, "Subsection",ExpressionUUID->"50dff173-23fe-4c8f-9694-9ce7f76cd219", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[174707, 3639, 971, 25, 70, "Subsection",ExpressionUUID->"a93e2981-c4dc-4158-ac74-caad83fd2c73", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[176213, 3679, 823, 24, 70, "Subsection",ExpressionUUID->"17a21529-9a37-43c8-a18b-bf7c4d6e218c", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[177561, 3718, 1762, 43, 70, "Subsection",ExpressionUUID->"e9b253b0-4daf-4f59-bd76-21d0d982e7de", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[179634, 3781, 1048, 26, 70, "Section",ExpressionUUID->"f0ba5624-b08f-4bbe-9b20-36668257e585", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[181231, 3822, 929, 25, 70, "Section",ExpressionUUID->"0332c267-1aa6-42ff-b73e-363b701fce96", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "Documentation"->{ Cell[12156, 382, 137, 4, 70, "Section",ExpressionUUID->"5bbd17b7-f151-44b0-ad46-f8163af2f80b", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[12156, 382, 137, 4, 70, "Section",ExpressionUUID->"5bbd17b7-f151-44b0-ad46-f8163af2f80b", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[169565, 3471, 174, 4, 70, "Section",ExpressionUUID->"150b0b6f-7a58-43be-8d4f-81618aa1fbc3", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[12318, 390, 1880, 48, 70, "Subsection",ExpressionUUID->"e11bbd8f-19cb-409b-bd3f-1972d51f560d", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[17901, 588, 1329, 30, 70, "Subsection",ExpressionUUID->"68cec3e0-2aec-4186-a0fa-cd47a6777e59", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[17901, 588, 1329, 30, 70, "Subsection",ExpressionUUID->"68cec3e0-2aec-4186-a0fa-cd47a6777e59", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "TabNext"->{ Cell[19233, 620, 201, 5, 70, "Notes",ExpressionUUID->"eef410f3-b35e-4828-8307-c179d7f458db", CellTags->"TabNext", CellID->628985355], Cell[173094, 3591, 502, 8, 70, "Item",ExpressionUUID->"54c2d739-4e22-4c18-a136-af81e101408f", CellTags->"TabNext", CellID->332817449], Cell[175681, 3666, 495, 8, 70, "Text",ExpressionUUID->"d034dae5-4cca-4774-b548-0089bf44a398", CellTags->"TabNext", CellID->91842863], Cell[177039, 3705, 485, 8, 70, "Item",ExpressionUUID->"c5c4c6d8-9420-47c8-9334-73335c1e6b51", CellTags->"TabNext", CellID->515049506], Cell[180685, 3809, 509, 8, 70, "Text",ExpressionUUID->"78021a1d-3096-4c5c-a3d2-ef512945a245", CellTags->"TabNext", CellID->991784503], Cell[182163, 3849, 495, 8, 70, "Text",ExpressionUUID->"3f58b5a8-bac1-4732-a0cc-55d577b4f47b", CellTags->"TabNext", CellID->932041030]}, "Examples"->{ Cell[21413, 692, 6926, 150, 70, "Section",ExpressionUUID->"02b78add-fc8e-42ee-a972-112d952821c5", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[169565, 3471, 174, 4, 70, "Section",ExpressionUUID->"150b0b6f-7a58-43be-8d4f-81618aa1fbc3", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[169764, 3479, 918, 24, 70, "Subsection",ExpressionUUID->"92f95151-b6c0-41b6-99ba-3a8d6bca375d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[169764, 3479, 918, 24, 70, "Subsection",ExpressionUUID->"92f95151-b6c0-41b6-99ba-3a8d6bca375d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[170811, 3511, 893, 24, 70, "Subsection",ExpressionUUID->"1632d3dc-4165-4444-96d2-48b1867bd15b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[171902, 3549, 167, 5, 70, "Subsection",ExpressionUUID->"44046e00-e95c-49b6-a357-2576379e45cf", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[172221, 3565, 870, 24, 70, "Subsection",ExpressionUUID->"f4bb3d94-0be9-4173-932f-8cc6127dc39a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[173633, 3604, 919, 24, 70, "Subsection",ExpressionUUID->"50dff173-23fe-4c8f-9694-9ce7f76cd219", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[174707, 3639, 971, 25, 70, "Subsection",ExpressionUUID->"a93e2981-c4dc-4158-ac74-caad83fd2c73", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[176213, 3679, 823, 24, 70, "Subsection",ExpressionUUID->"17a21529-9a37-43c8-a18b-bf7c4d6e218c", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[177561, 3718, 1762, 43, 70, "Subsection",ExpressionUUID->"e9b253b0-4daf-4f59-bd76-21d0d982e7de", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[177561, 3718, 1762, 43, 70, "Subsection",ExpressionUUID->"e9b253b0-4daf-4f59-bd76-21d0d982e7de", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[179634, 3781, 1048, 26, 70, "Section",ExpressionUUID->"f0ba5624-b08f-4bbe-9b20-36668257e585", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[181231, 3822, 929, 25, 70, "Section",ExpressionUUID->"0332c267-1aa6-42ff-b73e-363b701fce96", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 294553, 5996}, {"TemplateCell", 294736, 6000}, {"Title", 295072, 6007}, {"Description", 295254, 6011}, {"Definition", 295432, 6015}, {"Function", 295629, 6019}, {"TemplateCellGroup", 295835, 6023}, {"Documentation", 298404, 6066}, {"TemplateSection", 298597, 6070}, {"Usage", 298971, 6077}, {"Details & Options", 299166, 6081}, {"Notes", 299370, 6085}, {"TabNext", 299576, 6089}, {"Examples", 300448, 6108}, {"Source & Additional Information", 300658, 6112}, {"Contributed By", 300871, 6116}, {"ContributorInformation", 301107, 6120}, {"Keywords", 301329, 6124}, {"Categories", 301521, 6128}, {"Related Symbols", 301719, 6132}, {"Related Resource Objects", 301932, 6136}, {"Source/Reference Citation", 302154, 6140}, {"Links", 302358, 6144}, {"Tests", 302542, 6148}, {"VerificationTests", 302760, 6152}, {"Author Notes", 302973, 6156}, {"Submission Notes", 303173, 6160} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[637, 23, 104, 2, 70, "Title",ExpressionUUID->"44b3aa19-3bee-4b4f-a0cb-362edb6ecc44", CellTags->{"Name", "TemplateCell", "Title"}, CellID->370434827], Cell[744, 27, 191, 5, 70, "Text",ExpressionUUID->"71045131-2f85-45a9-9267-fd845f762192", CellTags->{"Description", "TemplateCell"}, CellID->229350146], Cell[CellGroupData[{ Cell[960, 36, 1104, 27, 70, "Section",ExpressionUUID->"29d64078-e7c7-409d-a7ef-0611d2af9a10", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[2067, 65, 205, 6, 70, "Input",ExpressionUUID->"99282590-0d08-45a1-96ee-08beefa54e32", CellID->229917060], Cell[2275, 73, 3782, 103, 70, "Input",ExpressionUUID->"fe79ff9a-ad18-453c-bc33-b63f0684ebd3", CellID->605740363], Cell[6060, 178, 940, 27, 70, "Input",ExpressionUUID->"268cb8e3-e672-4bc8-920c-e05e19ea6c99", CellID->737658995], Cell[7003, 207, 582, 16, 70, "Input",ExpressionUUID->"8cd2839f-acac-4a13-878b-f79959a4f107", CellID->295041708], Cell[7588, 225, 582, 16, 70, "Input",ExpressionUUID->"fc03fd58-f2cf-40ae-b8c3-5bbde6b1c2d3", CellID->274441347], Cell[8173, 243, 459, 14, 70, "Input",ExpressionUUID->"b2b246d8-f483-44e1-9662-86e6ddc9bc29", CellID->828967063], Cell[8635, 259, 368, 12, 70, "Input",ExpressionUUID->"294dd1aa-4c42-4456-9a7e-112b49d0681b", CellID->358748247], Cell[9006, 273, 562, 18, 70, "Input",ExpressionUUID->"c91b79a5-22a2-48a9-871b-516e921b622c", CellID->617457160], Cell[9571, 293, 562, 18, 70, "Input",ExpressionUUID->"d3edd0ec-3338-4bec-80d7-7d215c81037a", CellID->747368988], Cell[10136, 313, 540, 17, 70, "Input",ExpressionUUID->"45f27e38-c880-44f0-a8ad-83cb5b61c3ad", CellID->605313577], Cell[10679, 332, 676, 21, 70, "Input",ExpressionUUID->"c5ba71c6-1ef9-45ed-b182-c243b6dff393", CellID->162676610], Cell[11358, 355, 75, 1, 70, "Text",ExpressionUUID->"999bd6c6-9220-454f-871a-b3d9e22b7972", CellID->62460101], Cell[11436, 358, 683, 19, 70, "Input",ExpressionUUID->"3b79d84f-ec11-4b35-8cbe-f74e0c64ea71", CellID->138172125] }, Open ]], Cell[CellGroupData[{ Cell[12156, 382, 137, 4, 70, "Section",ExpressionUUID->"5bbd17b7-f151-44b0-ad46-f8163af2f80b", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[12318, 390, 1880, 48, 70, "Subsection",ExpressionUUID->"e11bbd8f-19cb-409b-bd3f-1972d51f560d", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[14223, 442, 229, 7, 70, "UsageInputs",ExpressionUUID->"394b4b04-380a-477e-ae7a-05438c9ecf37", CellID->427299616], Cell[14455, 451, 518, 16, 70, "UsageDescription",ExpressionUUID->"a316e288-8e98-40ff-b3b3-74be566aaefc", CellID->848980804] }, Open ]], Cell[CellGroupData[{ Cell[15010, 472, 573, 21, 70, "UsageInputs",ExpressionUUID->"db26c179-3ac5-4ec0-ac2f-98562ff3f316", CellID->556503868], Cell[15586, 495, 722, 27, 70, "UsageDescription",ExpressionUUID->"6eae94a9-5bcd-4409-aad6-328a3dd98929", CellID->423280161] }, Open ]], Cell[CellGroupData[{ Cell[16345, 527, 451, 16, 70, "UsageInputs",ExpressionUUID->"16ccbe13-8241-4f65-9cb3-267090ad9526", CellID->277337279], Cell[16799, 545, 610, 19, 70, "UsageDescription",ExpressionUUID->"c2c9669c-1266-42d8-be8d-fab3fb8b9c9e", CellID->684118213] }, Open ]], Cell[CellGroupData[{ Cell[17446, 569, 246, 7, 70, "UsageInputs",ExpressionUUID->"c4f09533-564e-4758-b97b-b2c1442bfecf", CellID->612776363], Cell[17695, 578, 157, 4, 70, "UsageDescription",ExpressionUUID->"32f6cbff-a04a-483a-a2ac-c6e5bee3244d", CellID->186745360] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17901, 588, 1329, 30, 70, "Subsection",ExpressionUUID->"68cec3e0-2aec-4186-a0fa-cd47a6777e59", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[19233, 620, 201, 5, 70, "Notes",ExpressionUUID->"eef410f3-b35e-4828-8307-c179d7f458db", CellTags->"TabNext", CellID->628985355], Cell[19437, 627, 222, 5, 70, "Notes",ExpressionUUID->"0e71b7b3-97c9-4e65-97ff-ab00ee6009e8", CellID->129026923], Cell[19662, 634, 90, 1, 70, "Notes",ExpressionUUID->"7a459444-01a0-4dd0-a3dd-799229520011", CellID->261592183], Cell[19755, 637, 960, 26, 70, "TableNotes",ExpressionUUID->"cfd6e5fe-241e-4143-a18b-17fba7eb588f", CellID->633228028], Cell[20718, 665, 646, 21, 70, "Notes",ExpressionUUID->"98e94792-8303-4a70-a793-9498c66f1307", CellID->192202351] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21413, 692, 6926, 150, 70, "Section",ExpressionUUID->"02b78add-fc8e-42ee-a972-112d952821c5", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[28364, 846, 56, 1, 70, "Subsection",ExpressionUUID->"456dbeab-d1e3-4f63-8df4-46a304e65061", CellID->462042388], Cell[28423, 849, 126, 2, 70, "Text",ExpressionUUID->"4be40796-7aaf-40c7-94a4-8fe1380f63c6", CellID->392348587], Cell[CellGroupData[{ Cell[28574, 855, 933, 26, 70, "Input",ExpressionUUID->"4d31f2c8-f466-4f29-bb67-96fd273630cb", CellID->977997418], Cell[29510, 883, 33463, 639, 70, "Output",ExpressionUUID->"d50f76ba-519d-4d6e-8569-5b47a25c67d4", CellID->25524369] }, Open ]], Cell[62988, 1525, 310, 7, 70, "Text",ExpressionUUID->"a7967989-769f-4225-9fb9-318a55e1b1c7", CellID->302225489], Cell[CellGroupData[{ Cell[63323, 1536, 1032, 29, 70, "Input",ExpressionUUID->"201d15e8-4261-4dbb-9082-1abdcf810deb", CellID->408094487], Cell[64358, 1567, 8455, 146, 70, "Output",ExpressionUUID->"4c0b7a9c-b260-4843-8747-279cb331592b", CellID->23710824] }, Open ]], Cell[72828, 1716, 206, 3, 70, "Text",ExpressionUUID->"22d4610d-ee62-46af-ac77-3b133f1d8ce4", CellID->994918320], Cell[CellGroupData[{ Cell[73059, 1723, 1080, 30, 70, "Input",ExpressionUUID->"96b4234a-78bb-47b0-bc22-560f0d6ab4d1", CellID->73934910], Cell[74142, 1755, 11518, 196, 70, "Output",ExpressionUUID->"5b86d113-a603-4739-83ba-757716e239c4", CellID->455735240] }, Open ]], Cell[CellGroupData[{ Cell[85697, 1956, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"007d59d1-2b7d-48f3-a0db-654a01fe6039", CellID->224031726], Cell[85825, 1961, 606, 16, 70, "Text",ExpressionUUID->"8356ea81-6264-4fcc-ab10-5cbbf312b047", CellID->413773499], Cell[CellGroupData[{ Cell[86456, 1981, 385, 11, 70, "Input",ExpressionUUID->"8db5f846-3f1c-4fd3-82fc-65cf282f7fa8", CellID->932462749], Cell[86844, 1994, 1572, 31, 70, "Output",ExpressionUUID->"0976607f-cbef-4fdb-9d0e-9a714578c843", CellID->781399318] }, Open ]], Cell[CellGroupData[{ Cell[88453, 2030, 427, 11, 70, "Input",ExpressionUUID->"0f7b4047-1565-4fe1-85d8-077e23d1e281", CellID->326532586], Cell[88883, 2043, 7259, 126, 70, "Output",ExpressionUUID->"77b9692c-4405-4d4c-a793-1c0b2fa3bd7f", CellID->956743912] }, Open ]] }, Open ]], Cell[96169, 2173, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"8dfed4c5-214c-4148-a7a9-7d1033c520f7", CellID->224031727] }, Open ]], Cell[CellGroupData[{ Cell[96331, 2181, 47, 1, 70, "Subsection",ExpressionUUID->"e424127a-c244-401f-acba-aaf2490d6163", CellID->964056545], Cell[96381, 2184, 134, 2, 70, "Text",ExpressionUUID->"33fd12d6-0d77-4196-a690-982203a6ebc8", CellID->351228799], Cell[CellGroupData[{ Cell[96540, 2190, 413, 11, 70, "Input",ExpressionUUID->"79427ed7-0624-484a-abdc-4653752547bf", CellID->798710134], Cell[96956, 2203, 2059, 43, 70, "Output",ExpressionUUID->"2d272245-768b-499e-bb8b-e2019165e8ab", CellID->531288684] }, Open ]], Cell[CellGroupData[{ Cell[99052, 2251, 407, 10, 70, "Input",ExpressionUUID->"9c6840b6-5753-465d-b75e-6c912eb2c8bf", CellID->893111481], Cell[99462, 2263, 5227, 93, 70, "Output",ExpressionUUID->"6f09cc4c-17f9-46a0-9198-fb9941ae5b5f", CellID->657234658] }, Open ]], Cell[CellGroupData[{ Cell[104726, 2361, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"6291e56c-a81b-4603-a9f3-6c8339cbe1cb", CellID->224031728], Cell[104854, 2366, 120, 2, 70, "Text",ExpressionUUID->"0d460abd-33b1-4bdf-9762-529e996432db", CellID->730134774], Cell[CellGroupData[{ Cell[104999, 2372, 499, 13, 70, "Input",ExpressionUUID->"6c254585-3ef7-4fe7-8f66-f27e7c9d21c1", CellID->231566424], Cell[105501, 2387, 2412, 50, 70, "Output",ExpressionUUID->"cb5c6d7d-da30-4671-aea9-a95a4d74bb1e", CellID->891045156] }, Open ]], Cell[CellGroupData[{ Cell[107950, 2442, 418, 10, 70, "Input",ExpressionUUID->"b0032170-fb57-4050-b808-6d9713bd9626", CellID->378527014], Cell[108371, 2454, 61121, 1009, 70, "Output",ExpressionUUID->"8032b22a-9a99-4f60-8117-2c95047a4e20", CellID->189474592] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[169565, 3471, 174, 4, 70, "Section",ExpressionUUID->"150b0b6f-7a58-43be-8d4f-81618aa1fbc3", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[169764, 3479, 918, 24, 70, "Subsection",ExpressionUUID->"92f95151-b6c0-41b6-99ba-3a8d6bca375d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[170685, 3505, 89, 1, 70, "Text",ExpressionUUID->"7f696536-ceeb-47fd-aaf3-a021fc57d293", CellID->570291023] }, Open ]], Cell[CellGroupData[{ Cell[170811, 3511, 893, 24, 70, "Subsection",ExpressionUUID->"1632d3dc-4165-4444-96d2-48b1867bd15b", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[171707, 3537, 48, 1, 70, "Item",ExpressionUUID->"83eafe62-498b-4a5e-90a7-8ef2afcc2fc2", CellID->526284417], Cell[171758, 3540, 49, 1, 70, "Item",ExpressionUUID->"6ce2e016-71ef-4f3d-94bf-67f3f51970b5", CellID->350970808], Cell[171810, 3543, 55, 1, 70, "Item",ExpressionUUID->"94a95094-9549-47bd-83e9-867216d5a8ee", CellID->357820599] }, Open ]], Cell[CellGroupData[{ Cell[171902, 3549, 167, 5, 70, "Subsection",ExpressionUUID->"44046e00-e95c-49b6-a357-2576379e45cf", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[172072, 3556, 53, 1, 70, "Item",ExpressionUUID->"acee0ee1-a45c-4fea-b2a6-f5c6f3cdde08", CellID->197113425], Cell[172128, 3559, 56, 1, 70, "Item",ExpressionUUID->"bd988317-1f76-4aa0-9aaa-71f3bc52faad", CellID->254453] }, Open ]], Cell[CellGroupData[{ Cell[172221, 3565, 870, 24, 70, "Subsection",ExpressionUUID->"f4bb3d94-0be9-4173-932f-8cc6127dc39a", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[173094, 3591, 502, 8, 70, "Item",ExpressionUUID->"54c2d739-4e22-4c18-a136-af81e101408f", CellTags->"TabNext", CellID->332817449] }, Open ]], Cell[CellGroupData[{ Cell[173633, 3604, 919, 24, 70, "Subsection",ExpressionUUID->"50dff173-23fe-4c8f-9694-9ce7f76cd219", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[174555, 3630, 65, 1, 70, "Item",ExpressionUUID->"9ed649dc-7f99-4fb8-ad0e-b6aacca16e6e", CellID->437467845], Cell[174623, 3633, 47, 1, 70, "Item",ExpressionUUID->"c2a2e36d-1711-41ca-aef1-35919d23d037", CellID->13812411] }, Open ]], Cell[CellGroupData[{ Cell[174707, 3639, 971, 25, 70, "Subsection",ExpressionUUID->"a93e2981-c4dc-4158-ac74-caad83fd2c73", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[175681, 3666, 495, 8, 70, "Text",ExpressionUUID->"d034dae5-4cca-4774-b548-0089bf44a398", CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[176213, 3679, 823, 24, 70, "Subsection",ExpressionUUID->"17a21529-9a37-43c8-a18b-bf7c4d6e218c", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[177039, 3705, 485, 8, 70, "Item",ExpressionUUID->"c5c4c6d8-9420-47c8-9334-73335c1e6b51", CellTags->"TabNext", CellID->515049506] }, Open ]], Cell[CellGroupData[{ Cell[177561, 3718, 1762, 43, 70, "Subsection",ExpressionUUID->"e9b253b0-4daf-4f59-bd76-21d0d982e7de", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[179348, 3765, 129, 4, 70, "Input",ExpressionUUID->"2ace0080-cdad-4b10-905b-2ee0c550b28f", CellID->667877521], Cell[179480, 3771, 93, 3, 70, "Output",ExpressionUUID->"fe8ccd67-3d24-42c3-b291-4d9cd2912a3b", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[179634, 3781, 1048, 26, 70, "Section",ExpressionUUID->"f0ba5624-b08f-4bbe-9b20-36668257e585", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[180685, 3809, 509, 8, 70, "Text",ExpressionUUID->"78021a1d-3096-4c5c-a3d2-ef512945a245", CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[181231, 3822, 929, 25, 70, "Section",ExpressionUUID->"0332c267-1aa6-42ff-b73e-363b701fce96", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[182163, 3849, 495, 8, 70, "Text",ExpressionUUID->"3f58b5a8-bac1-4732-a0cc-55d577b4f47b", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)