(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 357896, 7841] NotebookOptionsPosition[ 197408, 4786] NotebookOutlinePosition[ 341454, 7490] CellTagsIndexPosition[ 339645, 7440] WindowTitle->BlendLine | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["BlendLine", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->623230713], Cell["Blend between lines", "Text", CellTags->{"Description", "TemplateCell"}, CellID->391384106], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{"ClearAll", "[", RowBox[{"iGetFractionalPart", ",", "BlendLine"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iGetFractionalPart", "[", RowBox[{"list_List", ",", "\[Alpha]_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"i", ",", "f"}], "}"}], "=", RowBox[{"MixedFractionParts", "[", "\[Alpha]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "f"}], ")"}], RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}]}], "+", RowBox[{"f", " ", RowBox[{"list", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BlendLine", "[", RowBox[{"ls", ":", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"_", "?", "MatrixQ"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"_", "?", "MatrixQ"}], "]"}]}], "}"}]}], "]"}], ":=", RowBox[{"BlendLine", "[", RowBox[{"ls", ",", RowBox[{"1", "/", "2"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"lines", ":", RowBox[{"{", RowBox[{"Repeated", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"_", "?", "MatrixQ"}], "]"}], ",", RowBox[{"{", RowBox[{"3", ",", "\[Infinity]"}], "}"}]}], "]"}], "}"}]}], ",", "\[Alpha]_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"count", ",", "new\[Alpha]", ",", "minmax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "\[Alpha]", "]"}], "===", "List"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"BlendLine", "[", RowBox[{"lines", ",", "#"}], "]"}], "&"}], "/@", "\[Alpha]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"count", "=", RowBox[{"Length", "[", "lines", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"new\[Alpha]", "=", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"count", "-", "1"}], ")"}], "\[Alpha]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"minmax", "=", RowBox[{"{", RowBox[{ RowBox[{"Floor", "[", "new\[Alpha]", "]"}], ",", RowBox[{ RowBox[{"Floor", "[", "new\[Alpha]", "]"}], "+", "1"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"minmax", "[", RowBox[{"[", "1", "]"}], "]"}], "<", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"minmax", "+=", RowBox[{"1", "-", RowBox[{"minmax", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"minmax", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "count"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"minmax", "+=", RowBox[{"count", "-", RowBox[{"minmax", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"lines", "[", RowBox[{"[", "minmax", "]"}], "]"}], ",", RowBox[{"Rescale", "[", RowBox[{"\[Alpha]", ",", RowBox[{ RowBox[{"(", RowBox[{"minmax", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"count", "-", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"l1", ":", RowBox[{"Line", "[", RowBox[{"_", "?", "MatrixQ"}], "]"}]}], ",", RowBox[{"l2", ":", RowBox[{"Line", "[", RowBox[{"_", "?", "MatrixQ"}], "]"}]}]}], "}"}], ",", "\[Alpha]_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "p1", ",", "p2", ",", "newfs", ",", "toadd", ",", "len1", ",", "len2", ",", "newp1", ",", "newp2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"l1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p2", "=", RowBox[{"l2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"len1", "=", RowBox[{"Length", "[", "p1", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"len2", "=", RowBox[{"Length", "[", "p2", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"len1", "\[Equal]", "len2"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ListQ", "[", "\[Alpha]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "i"}], ")"}], "p1"}], "+", RowBox[{"i", " ", "p2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "\[Alpha]"}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "p1"}], "+", RowBox[{"\[Alpha]", " ", "p2"}]}], "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"newfs", "=", RowBox[{"Union", "[", RowBox[{ RowBox[{"Subdivide", "[", RowBox[{"len1", "-", "1"}], "]"}], ",", RowBox[{"Subdivide", "[", RowBox[{"len2", "-", "1"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"toadd", "=", RowBox[{"Complement", "[", RowBox[{"newfs", ",", RowBox[{"Subdivide", "[", RowBox[{"len1", "-", "1"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"toadd", "=", RowBox[{ RowBox[{ RowBox[{"1", "+", RowBox[{"#", RowBox[{"(", RowBox[{"len1", "-", "1"}], ")"}]}]}], "&"}], "/@", "toadd"}]}], ";", "\[IndentingNewLine]", RowBox[{"newp1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "p1", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"iGetFractionalPart", "[", RowBox[{"p1", ",", "#"}], "]"}]}], "}"}], "&"}], "/@", "toadd"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"newp1", "=", RowBox[{ RowBox[{"SortBy", "[", RowBox[{"newp1", ",", "First"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"toadd", "=", RowBox[{"Complement", "[", RowBox[{"newfs", ",", RowBox[{"Subdivide", "[", RowBox[{"len2", "-", "1"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"toadd", "=", RowBox[{ RowBox[{ RowBox[{"1", "+", RowBox[{"#", RowBox[{"(", RowBox[{"len2", "-", "1"}], ")"}]}]}], "&"}], "/@", "toadd"}]}], ";", "\[IndentingNewLine]", RowBox[{"newp2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "p2", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"iGetFractionalPart", "[", RowBox[{"p2", ",", "#"}], "]"}]}], "}"}], "&"}], "/@", "toadd"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"newp2", "=", RowBox[{ RowBox[{"SortBy", "[", RowBox[{"newp2", ",", "First"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ListQ", "[", "\[Alpha]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "i"}], ")"}], "newp1"}], "+", RowBox[{"i", " ", "newp2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "\[Alpha]"}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "newp1"}], "+", RowBox[{"\[Alpha]", " ", "newp2"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{ 3.776180770826598*^9, {3.7761808172224913`*^9, 3.776180940186392*^9}, { 3.776707297999549*^9, 3.776707372688752*^9}, {3.776707413867311*^9, 3.776707427077177*^9}, {3.776708614588173*^9, 3.7767087193893337`*^9}, { 3.776708914303976*^9, 3.776708922968544*^9}, {3.7767089596892433`*^9, 3.776708969102888*^9}, 3.7767090241670847`*^9, {3.776709076823573*^9, 3.77670912494698*^9}, {3.776709167871584*^9, 3.776709169986773*^9}, { 3.776709276278249*^9, 3.776709351477314*^9}, {3.77670939585502*^9, 3.776709417821697*^9}, {3.776709454222022*^9, 3.7767094823828573`*^9}, { 3.7767095167473497`*^9, 3.776709518353149*^9}, {3.776709611381559*^9, 3.776709614132*^9}, {3.776709664885293*^9, 3.776709685678203*^9}, 3.776710296962941*^9}, CellTags->"TabNext", CellLabel->"In[89]:=", CellID->634891897] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BlendLine", "[", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["line", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["line", "TI"], StyleBox["2", "TR"]]}], "}"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->425570468], Cell[TextData[{ "gives the line halfway between ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], StyleBox["1", "TR"]], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->527406243] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["line", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["line", "TI"], StyleBox["2", "TR"]]}], "}"}], ",", StyleBox["\[Alpha]", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->843027773], Cell[TextData[{ "gives the line a fraction ", Cell[BoxData[ StyleBox["\[Alpha]", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " between ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], StyleBox["1", "TR"]], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->35710441] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["line", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["line", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", StyleBox["\[Alpha]", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->42380012], Cell[TextData[{ "gives the line a fraction ", Cell[BoxData[ StyleBox["\[Alpha]", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " between lines ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], "." }], "UsageDescription", CellID->275318896] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["line", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["line", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["\[Alpha]", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["\[Alpha]", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->673052185], Cell[TextData[{ "gives several lines with fractions ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\[Alpha]", "TI"], StyleBox["i", "TI"]], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->465715501] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Line", "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/Line", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], StyleBox["1", "TR"]], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], " should contain a single line." }], "Notes", CellTags->"TabNext", CellID->623947250], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Line", "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/Line", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], StyleBox["1", "TR"]], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["line", "TI"], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], " can be in any dimension." }], "Notes", CellID->870750073] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.28627], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Interpolate halfway between two lines:", "Text", TaggingRules->{}, CellChangeTimes->{{3.776181019389318*^9, 3.77618104181343*^9}, 3.7819860181629877`*^9}, CellID->290158475], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BlendLine", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], ",", RowBox[{"{", RowBox[{"x4", ",", "y4"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.776180886065319*^9, 3.77618091708311*^9}, { 3.7761809581984997`*^9, 3.776181010615596*^9}, {3.7761829878214283`*^9, 3.7761831443632183`*^9}, {3.77670739170308*^9, 3.776707405579771*^9}, { 3.7767075330811453`*^9, 3.776707544535454*^9}, {3.7767083368137417`*^9, 3.7767083427704153`*^9}}, CellLabel->"In[587]:=", CellID->405271033], Cell[BoxData[ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["x1", "2"], "+", FractionBox["x3", "2"]}], ",", RowBox[{ FractionBox["y1", "2"], "+", FractionBox["y3", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["x2", "2"], "+", FractionBox["x4", "2"]}], ",", RowBox[{ FractionBox["y2", "2"], "+", FractionBox["y4", "2"]}]}], "}"}]}], "}"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.776707401515658*^9, 3.776707433617484*^9}, 3.776707544910202*^9, 3.77670809637044*^9, {3.776708338712338*^9, 3.776708343545855*^9}, 3.776709937002678*^9, 3.7767101922579927`*^9, 3.776710305483953*^9}, CellLabel->"Out[587]=", CellID->908549916] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Interpolate a fraction of the way between two lines:", "Text", TaggingRules->{}, CellChangeTimes->{{3.776181019389318*^9, 3.77618104181343*^9}, { 3.776181860722847*^9, 3.776181914702034*^9}, {3.776182815636384*^9, 3.7761828223033657`*^9}, {3.77731361406639*^9, 3.777313635060489*^9}}, CellID->474746486], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0.5"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "Red", ",", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", "0.2"}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.776180886065319*^9, 3.77618091708311*^9}, { 3.7761809581984997`*^9, 3.776181010615596*^9}, {3.776181856352785*^9, 3.776181856980659*^9}, 3.776183045848651*^9, {3.776183135503805*^9, 3.776183150801738*^9}, {3.7767075677438707`*^9, 3.776707568930542*^9}}, CellLabel->"In[588]:=", CellID->150115261], Cell[BoxData[ GraphicsBox[{LineBox[{{0, 0}, {1, 0}, {3, 0.5}}], LineBox[{{-1, 2}, {1, 2}, {3, 1}}], {RGBColor[1, 0, 0], LineBox[{{-0.2, 0.4}, {1., 0.4}, {3.0000000000000004`, 0.6000000000000001}}]}}, ImageSize->{236.80859375, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7761818573967743`*^9, {3.776181904807683*^9, 3.776181915639435*^9}, 3.776182825787434*^9, 3.776183046181629*^9, {3.7761831357879057`*^9, 3.776183151066695*^9}, 3.7761838050224*^9, 3.776707569654139*^9, 3.776708102563385*^9, 3.776708353283252*^9, 3.776709938235922*^9, 3.776710194107748*^9, 3.776710306254925*^9}, CellLabel->"Out[590]=", CellID->650389564] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Interpolate two lines at multiple fractions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.776181937679468*^9, 3.776181945197282*^9}, { 3.7767070022756248`*^9, 3.776707006146012*^9}, {3.776709772272862*^9, 3.7767097801965027`*^9}}, CellID->481862381], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0.5"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "Red", ",", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2", ",", "0.4", ",", "0.6", ",", "0.8"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.77618192274585*^9, 3.776181934435102*^9}, 3.7761831535819817`*^9, {3.776708108372128*^9, 3.776708109422817*^9}}, CellLabel->"In[591]:=", CellID->62689331], Cell[BoxData[ GraphicsBox[{LineBox[{{0, 0}, {1, 0}, {3, 0.5}}], LineBox[{{-1, 2}, {1, 2}, {3, 1}}], {RGBColor[1, 0, 0], LineBox[{{-0.2, 0.4}, {1., 0.4}, {3.0000000000000004`, 0.6000000000000001}}], LineBox[{{-0.4, 0.8}, {1., 0.8}, {3., 0.7}}], LineBox[{{-0.6, 1.2}, {1., 1.2}, {3., 0.8}}], LineBox[{{-0.8, 1.6}, {1., 1.6}, {3., 0.9}}]}}, ImageSize->{231.7890625, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.776181927189089*^9, 3.7761819464452763`*^9}, 3.776182827253397*^9, 3.776183154184094*^9, 3.776183813686101*^9, { 3.776708105527534*^9, 3.77670811021469*^9}, 3.776708354730163*^9, 3.776709939701413*^9, 3.776710199991994*^9, 3.776710307387169*^9}, CellLabel->"Out[593]=", CellID->786447073] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Blend between three lines:", "Text", TaggingRules->{}, CellChangeTimes->{{3.77670978452241*^9, 3.776709790362896*^9}, { 3.781986005341633*^9, 3.7819860061571507`*^9}}, CellID->383097377], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.4"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4.5"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "Red", ",", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"Range", "[", RowBox[{"0.025", ",", "0.975", ",", "0.05"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.776709796077224*^9, 3.776709833792541*^9}, { 3.77670994743814*^9, 3.776710018823168*^9}}, CellLabel->"In[594]:=", CellID->281545707], Cell[BoxData[ GraphicsBox[{LineBox[{{0, 0}, {1, 0.4}}], LineBox[{{1, 2}, {3, 1}}], LineBox[{{4, 4}, {5, 4.5}}], {RGBColor[1, 0, 0], LineBox[{{0.05, 0.1}, {1.1, 0.43}}], LineBox[{{0.15000000000000002`, 0.30000000000000004`}, {1.3, 0.49000000000000005`}}], LineBox[{{0.25, 0.5}, {1.5, 0.55}}], LineBox[{{0.35000000000000003`, 0.7000000000000001}, {1.7, 0.61}}], LineBox[{{0.45, 0.9}, {1.9000000000000001`, 0.67}}], LineBox[{{0.55, 1.1}, {2.1, 0.73}}], LineBox[{{0.6500000000000001, 1.3000000000000003`}, {2.3000000000000003`, 0.79}}], LineBox[{{0.7500000000000001, 1.5000000000000002`}, { 2.5000000000000004`, 0.8500000000000001}}], LineBox[{{0.8500000000000001, 1.7000000000000002`}, {2.7, 0.91}}], LineBox[{{0.9500000000000001, 1.9000000000000001`}, {2.9, 0.9700000000000001}}], LineBox[{{1.1500000000000001`, 2.1}, {3.0999999999999996`, 1.1750000000000003`}}], LineBox[{{1.4500000000000004`, 2.3000000000000003`}, {3.3000000000000007`, 1.5250000000000004`}}], LineBox[{{1.7500000000000007`, 2.5000000000000004`}, {3.5, 1.8750000000000007`}}], LineBox[{{2.0500000000000003`, 2.7}, {3.7, 2.2250000000000005`}}], LineBox[{{2.3500000000000005`, 2.9000000000000004`}, {3.9000000000000004`, 2.5750000000000006`}}], LineBox[{{2.6500000000000004`, 3.1}, {4.1, 2.925}}], LineBox[{{2.95, 3.3000000000000003`}, {4.300000000000001, 3.2750000000000004`}}], LineBox[{{3.250000000000001, 3.5000000000000004`}, {4.5, 3.625000000000001}}], LineBox[{{3.5500000000000003`, 3.7}, {4.699999999999999, 3.975}}], LineBox[{{3.8499999999999996`, 3.9}, {4.9, 4.324999999999999}}]}}, PlotRange->All]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7767097924744368`*^9, 3.776709834116466*^9}, { 3.776709940636413*^9, 3.776710019146689*^9}, 3.776710049997023*^9, 3.776710202894062*^9, 3.776710308715149*^9}, CellLabel->"Out[597]=", CellID->525596927] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Interpolate between two lines in 3D:", "Text", TaggingRules->{}, CellChangeTimes->{{3.776181937679468*^9, 3.776181945197282*^9}, { 3.7767070022756248`*^9, 3.776707006146012*^9}, {3.7767076261967916`*^9, 3.776707633316311*^9}, {3.7773136559855814`*^9, 3.7773136572007027`*^9}}, CellID->679171220], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0.5", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "Red", ",", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"Range", "[", RowBox[{ RowBox[{"1", "/", "10"}], ",", RowBox[{"9", "/", "10"}], ",", RowBox[{"1", "/", "10"}]}], "]"}]}], "]"}]}], "}"}], "]"}]}], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.77618192274585*^9, 3.776181934435102*^9}, 3.7761831535819817`*^9, {3.776707593660063*^9, 3.7767076652359*^9}}, CellLabel->"In[598]:=", CellID->88258638], Cell[BoxData[ Graphics3DBox[{Line3DBox[{{0, 0, 0}, {1, 0, 1}, {3, 0.5, -1}}], Line3DBox[{{-1, 2, -2}, {1, 2, -1}, {3, 1, 2}}], {RGBColor[1, 0, 0], Line3DBox[ NCache[{{Rational[-1, 10], Rational[1, 5], Rational[-1, 5]}, { 1, Rational[1, 5], Rational[4, 5]}, { 3, 0.55, Rational[-7, 10]}}, {{-0.1, 0.2, -0.2}, {1, 0.2, 0.8}, { 3, 0.55, -0.7}}]], Line3DBox[ NCache[{{Rational[-1, 5], Rational[2, 5], Rational[-2, 5]}, { 1, Rational[2, 5], Rational[3, 5]}, { 3, 0.6000000000000001, Rational[-2, 5]}}, {{-0.2, 0.4, -0.4}, { 1, 0.4, 0.6}, {3, 0.6000000000000001, -0.4}}]], Line3DBox[ NCache[{{Rational[-3, 10], Rational[3, 5], Rational[-3, 5]}, { 1, Rational[3, 5], Rational[2, 5]}, { 3, 0.6499999999999999, Rational[-1, 10]}}, {{-0.3, 0.6, -0.6}, { 1, 0.6, 0.4}, {3, 0.6499999999999999, -0.1}}]], Line3DBox[ NCache[{{Rational[-2, 5], Rational[4, 5], Rational[-4, 5]}, { 1, Rational[4, 5], Rational[1, 5]}, {3, 0.7, Rational[1, 5]}}, {{-0.4, 0.8, -0.8}, {1, 0.8, 0.2}, {3, 0.7, 0.2}}]], Line3DBox[ NCache[{{Rational[-1, 2], 1, -1}, {1, 1, 0}, { 3, 0.75, Rational[1, 2]}}, {{-0.5, 1, -1}, {1, 1, 0}, { 3, 0.75, 0.5}}]], Line3DBox[ NCache[{{Rational[-3, 5], Rational[6, 5], Rational[-6, 5]}, { 1, Rational[6, 5], Rational[-1, 5]}, {3, 0.8, Rational[4, 5]}}, {{-0.6, 1.2, -1.2}, {1, 1.2, -0.2}, {3, 0.8, 0.8}}]], Line3DBox[ NCache[{{Rational[-7, 10], Rational[7, 5], Rational[-7, 5]}, { 1, Rational[7, 5], Rational[-2, 5]}, { 3, 0.85, Rational[11, 10]}}, {{-0.7, 1.4, -1.4}, {1, 1.4, -0.4}, { 3, 0.85, 1.1}}]], Line3DBox[ NCache[{{Rational[-4, 5], Rational[8, 5], Rational[-8, 5]}, { 1, Rational[8, 5], Rational[-3, 5]}, {3, 0.9, Rational[7, 5]}}, {{-0.8, 1.6, -1.6}, {1, 1.6, -0.6}, {3, 0.9, 1.4}}]], Line3DBox[ NCache[{{Rational[-9, 10], Rational[9, 5], Rational[-9, 5]}, { 1, Rational[9, 5], Rational[-4, 5]}, { 3, 0.9500000000000001, Rational[17, 10]}}, {{-0.9, 1.8, -1.8}, { 1, 1.8, -0.8}, {3, 0.9500000000000001, 1.7}}]]}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.776710219261642*^9, 3.7767103100516*^9}, CellLabel->"Out[600]=", CellID->832176997] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Interpolate a line in 4D:", "Text", TaggingRules->{}, CellChangeTimes->{{3.77670852898746*^9, 3.77670853480406*^9}}, CellID->391256025], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "2", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "3", ",", "1"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", "0.2"}], "]"}]}], "Input", TaggingRules->{}, CellLabel->"In[601]:=", CellID->897243956], Cell[BoxData[ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2`"}], ",", "0.4`", ",", "0.4`", ",", "0.6000000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6000000000000001`", ",", "1.4000000000000001`", ",", "1.6`", ",", "0.4`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "1.6`", ",", "2.2`", ",", "0.2`"}], "}"}]}], "}"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.776708536934091*^9, 3.776710055223072*^9, 3.776710220943383*^9, 3.7767103111702967`*^9}, CellLabel->"Out[603]=", CellID->138480167] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell["Create a grid:", "Text", TaggingRules->{}, CellChangeTimes->{{3.776182045135973*^9, 3.776182047992437*^9}}, CellID->534770514], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Subdivide", "[", "5", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Subdivide", "[", "8", "]"}]}], "]"}]}], "}"}], "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.776181968121015*^9, 3.776182041161274*^9}, { 3.776708121468255*^9, 3.776708127499214*^9}}, CellLabel->"In[604]:=", CellID->654158792], Cell[BoxData[ GraphicsBox[{{LineBox[{{0, 0}, {0, 10}}], LineBox[{{1, 0}, {1, 10}}], LineBox[{{2, 0}, {2, 10}}], LineBox[{{3, 0}, {3, 10}}], LineBox[{{4, 0}, {4, 10}}], LineBox[{{5, 0}, {5, 10}}]}, { LineBox[{{0, 0}, {5, 0}}], LineBox[NCache[{{0, Rational[5, 4]}, {5, Rational[5, 4]}}, {{0, 1.25}, { 5, 1.25}}]], LineBox[NCache[{{0, Rational[5, 2]}, {5, Rational[5, 2]}}, {{0, 2.5}, { 5, 2.5}}]], LineBox[NCache[{{0, Rational[15, 4]}, {5, Rational[15, 4]}}, {{0, 3.75}, { 5, 3.75}}]], LineBox[{{0, 5}, {5, 5}}], LineBox[NCache[{{0, Rational[25, 4]}, {5, Rational[25, 4]}}, {{0, 6.25}, { 5, 6.25}}]], LineBox[NCache[{{0, Rational[15, 2]}, {5, Rational[15, 2]}}, {{0, 7.5}, { 5, 7.5}}]], LineBox[NCache[{{0, Rational[35, 4]}, {5, Rational[35, 4]}}, {{0, 8.75}, { 5, 8.75}}]], LineBox[{{0, 10}, {5, 10}}]}}, ImageSize->{129.417458129085, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.776182041498322*^9, 3.776183158506435*^9, 3.776183818668386*^9, { 3.776708117392171*^9, 3.776708128305304*^9}, 3.776708357655266*^9, 3.776710056192031*^9, 3.7767102225086*^9, 3.776710312351117*^9}, CellLabel->"Out[604]=", CellID->20923115] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell["Design a fancy curved rooftop design using straight beams:", "Text", TaggingRules->{}, CellChangeTimes->{{3.776181937679468*^9, 3.776181945197282*^9}, { 3.7767070022756248`*^9, 3.776707006146012*^9}, {3.7767076261967916`*^9, 3.776707633316311*^9}, {3.7767078702488527`*^9, 3.7767078788564587`*^9}, { 3.7767081367680893`*^9, 3.776708142229076*^9}, {3.776710228654111*^9, 3.776710238127701*^9}, {3.781986034060509*^9, 3.7819860350649137`*^9}}, CellID->869451264], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"Subdivide", "[", "15", "]"}]}], "]"}], ",", "Red", ",", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], ",", RowBox[{"Subdivide", "[", "15", "]"}]}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.77618192274585*^9, 3.776181934435102*^9}, 3.7761831535819817`*^9, {3.776707593660063*^9, 3.776707857279088*^9}}, CellLabel->"In[605]:=", CellID->147217027], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, 0, 1], Line3DBox[{{0, 0, 1}, {0, 1, 0}}], Line3DBox[ NCache[{{Rational[1, 15], 0, Rational[14, 15]}, { Rational[1, 15], 1, Rational[1, 15]}}, {{ 0.06666666666666667, 0, 0.9333333333333333}, { 0.06666666666666667, 1, 0.06666666666666667}}]], Line3DBox[ NCache[{{Rational[2, 15], 0, Rational[13, 15]}, { Rational[2, 15], 1, Rational[2, 15]}}, {{ 0.13333333333333333`, 0, 0.8666666666666667}, { 0.13333333333333333`, 1, 0.13333333333333333`}}]], Line3DBox[ NCache[{{Rational[1, 5], 0, Rational[4, 5]}, { Rational[1, 5], 1, Rational[1, 5]}}, {{0.2, 0, 0.8}, {0.2, 1, 0.2}}]], Line3DBox[ NCache[{{Rational[4, 15], 0, Rational[11, 15]}, { Rational[4, 15], 1, Rational[4, 15]}}, {{ 0.26666666666666666`, 0, 0.7333333333333333}, { 0.26666666666666666`, 1, 0.26666666666666666`}}]], Line3DBox[ NCache[{{Rational[1, 3], 0, Rational[2, 3]}, { Rational[1, 3], 1, Rational[1, 3]}}, {{ 0.3333333333333333, 0, 0.6666666666666666}, { 0.3333333333333333, 1, 0.3333333333333333}}]], Line3DBox[ NCache[{{Rational[2, 5], 0, Rational[3, 5]}, { Rational[2, 5], 1, Rational[2, 5]}}, {{0.4, 0, 0.6}, {0.4, 1, 0.4}}]], Line3DBox[ NCache[{{Rational[7, 15], 0, Rational[8, 15]}, { Rational[7, 15], 1, Rational[7, 15]}}, {{ 0.4666666666666667, 0, 0.5333333333333333}, { 0.4666666666666667, 1, 0.4666666666666667}}]], Line3DBox[ NCache[{{Rational[8, 15], 0, Rational[7, 15]}, { Rational[8, 15], 1, Rational[8, 15]}}, {{ 0.5333333333333333, 0, 0.4666666666666667}, { 0.5333333333333333, 1, 0.5333333333333333}}]], Line3DBox[ NCache[{{Rational[3, 5], 0, Rational[2, 5]}, { Rational[3, 5], 1, Rational[3, 5]}}, {{0.6, 0, 0.4}, {0.6, 1, 0.6}}]], Line3DBox[ NCache[{{Rational[2, 3], 0, Rational[1, 3]}, { Rational[2, 3], 1, Rational[2, 3]}}, {{ 0.6666666666666666, 0, 0.3333333333333333}, { 0.6666666666666666, 1, 0.6666666666666666}}]], Line3DBox[ NCache[{{Rational[11, 15], 0, Rational[4, 15]}, { Rational[11, 15], 1, Rational[11, 15]}}, {{ 0.7333333333333333, 0, 0.26666666666666666`}, { 0.7333333333333333, 1, 0.7333333333333333}}]], Line3DBox[ NCache[{{Rational[4, 5], 0, Rational[1, 5]}, { Rational[4, 5], 1, Rational[4, 5]}}, {{0.8, 0, 0.2}, {0.8, 1, 0.8}}]], Line3DBox[ NCache[{{Rational[13, 15], 0, Rational[2, 15]}, { Rational[13, 15], 1, Rational[13, 15]}}, {{ 0.8666666666666667, 0, 0.13333333333333333`}, { 0.8666666666666667, 1, 0.8666666666666667}}]], Line3DBox[ NCache[{{Rational[14, 15], 0, Rational[1, 15]}, { Rational[14, 15], 1, Rational[14, 15]}}, {{ 0.9333333333333333, 0, 0.06666666666666667}, { 0.9333333333333333, 1, 0.9333333333333333}}]], Line3DBox[{{1, 0, 0}, {1, 1, 1}}]}, {RGBColor[1, 0, 0], Line3DBox[{{0, 0, 1}, {1, 0, 0}}], Line3DBox[ NCache[{{0, Rational[1, 15], Rational[14, 15]}, { 1, Rational[1, 15], Rational[1, 15]}}, {{ 0, 0.06666666666666667, 0.9333333333333333}, { 1, 0.06666666666666667, 0.06666666666666667}}]], Line3DBox[ NCache[{{0, Rational[2, 15], Rational[13, 15]}, { 1, Rational[2, 15], Rational[2, 15]}}, {{ 0, 0.13333333333333333`, 0.8666666666666667}, { 1, 0.13333333333333333`, 0.13333333333333333`}}]], Line3DBox[ NCache[{{0, Rational[1, 5], Rational[4, 5]}, { 1, Rational[1, 5], Rational[1, 5]}}, {{0, 0.2, 0.8}, {1, 0.2, 0.2}}]], Line3DBox[ NCache[{{0, Rational[4, 15], Rational[11, 15]}, { 1, Rational[4, 15], Rational[4, 15]}}, {{ 0, 0.26666666666666666`, 0.7333333333333333}, { 1, 0.26666666666666666`, 0.26666666666666666`}}]], Line3DBox[ NCache[{{0, Rational[1, 3], Rational[2, 3]}, { 1, Rational[1, 3], Rational[1, 3]}}, {{ 0, 0.3333333333333333, 0.6666666666666666}, { 1, 0.3333333333333333, 0.3333333333333333}}]], Line3DBox[ NCache[{{0, Rational[2, 5], Rational[3, 5]}, { 1, Rational[2, 5], Rational[2, 5]}}, {{0, 0.4, 0.6}, {1, 0.4, 0.4}}]], Line3DBox[ NCache[{{0, Rational[7, 15], Rational[8, 15]}, { 1, Rational[7, 15], Rational[7, 15]}}, {{ 0, 0.4666666666666667, 0.5333333333333333}, { 1, 0.4666666666666667, 0.4666666666666667}}]], Line3DBox[ NCache[{{0, Rational[8, 15], Rational[7, 15]}, { 1, Rational[8, 15], Rational[8, 15]}}, {{ 0, 0.5333333333333333, 0.4666666666666667}, { 1, 0.5333333333333333, 0.5333333333333333}}]], Line3DBox[ NCache[{{0, Rational[3, 5], Rational[2, 5]}, { 1, Rational[3, 5], Rational[3, 5]}}, {{0, 0.6, 0.4}, {1, 0.6, 0.6}}]], Line3DBox[ NCache[{{0, Rational[2, 3], Rational[1, 3]}, { 1, Rational[2, 3], Rational[2, 3]}}, {{ 0, 0.6666666666666666, 0.3333333333333333}, { 1, 0.6666666666666666, 0.6666666666666666}}]], Line3DBox[ NCache[{{0, Rational[11, 15], Rational[4, 15]}, { 1, Rational[11, 15], Rational[11, 15]}}, {{ 0, 0.7333333333333333, 0.26666666666666666`}, { 1, 0.7333333333333333, 0.7333333333333333}}]], Line3DBox[ NCache[{{0, Rational[4, 5], Rational[1, 5]}, { 1, Rational[4, 5], Rational[4, 5]}}, {{0, 0.8, 0.2}, {1, 0.8, 0.8}}]], Line3DBox[ NCache[{{0, Rational[13, 15], Rational[2, 15]}, { 1, Rational[13, 15], Rational[13, 15]}}, {{ 0, 0.8666666666666667, 0.13333333333333333`}, { 1, 0.8666666666666667, 0.8666666666666667}}]], Line3DBox[ NCache[{{0, Rational[14, 15], Rational[1, 15]}, { 1, Rational[14, 15], Rational[14, 15]}}, {{ 0, 0.9333333333333333, 0.06666666666666667}, { 1, 0.9333333333333333, 0.9333333333333333}}]], Line3DBox[{{0, 1, 0}, {1, 1, 1}}]}}, ImageSize->{367.96281594047036`, 372.1962849498112}, ImageSizeRaw->Automatic, ViewPoint->{1.3248214031021301`, -2.85702803076914, 1.2378364517503575`}, ViewVertical->{0.09444366106709774, -0.13643747693872754`, 0.9861365066616474}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.776181927189089*^9, 3.7761819464452763`*^9}, 3.776182827253397*^9, 3.776183154184094*^9, 3.776183813686101*^9, { 3.776707609700058*^9, 3.776707665652646*^9}, 3.776707735589055*^9, { 3.776707793026496*^9, 3.776707806254157*^9}, {3.776707839397018*^9, 3.776707880613859*^9}, {3.776708129947269*^9, 3.776708143628389*^9}, 3.77670835908422*^9, 3.776710057640564*^9, {3.776710224097865*^9, 3.776710240164275*^9}, 3.7767103134760227`*^9}, CellLabel->"Out[609]=", CellID->756783557] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell["\<\ Lines do not need the same number of data points. The resulting line can have \ more points than the original ones:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7761828547468977`*^9, 3.776182875325713*^9}, { 3.77618369194051*^9, 3.776183700898366*^9}, {3.776707019376335*^9, 3.7767070251819153`*^9}, {3.776708163330203*^9, 3.776708175250614*^9}}, CellID->210376108], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p1", "]"}], ",", RowBox[{"Line", "[", "p2", "]"}], ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", "p1", "]"}], ",", RowBox[{"Point", "[", "p2", "]"}], ",", "Red", ",", RowBox[{"BlendLine", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p1", "]"}], ",", RowBox[{"Line", "[", "p2", "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "@@", RowBox[{"BlendLine", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", "p1", "]"}], ",", RowBox[{"Line", "[", "p2", "]"}]}], "}"}], "]"}]}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.776182882620368*^9, 3.776182973956641*^9}, { 3.77618363554585*^9, 3.776183682356204*^9}, {3.7767079023028297`*^9, 3.7767079041860123`*^9}, {3.776708376305183*^9, 3.776708392618664*^9}}, CellLabel->"In[610]:=", CellID->683363147], Cell[BoxData[ GraphicsBox[{LineBox[{{-1, 1}, {0, 2}, {2, 1}}], LineBox[{{-1, 0}, {0, -1}, {1.5, 0.2}, {2, -0.1}}], {PointSize[Large], PointBox[{{-1, 1}, {0, 2}, {2, 1}}], PointBox[{{-1, 0}, {0, -1}, {1.5, 0.2}, {2, -0.1}}], {RGBColor[1, 0, 0], LineBox[NCache[{{-1, Rational[1, 2]}, { Rational[-1, 6], Rational[1, 3]}, {0.375, 0.8}, {1.0833333333333333`, 0.9333333333333333}, {2, 0.45}}, {{-1, 0.5}, {-0.16666666666666666`, 0.3333333333333333}, {0.375, 0.8}, {1.0833333333333333`, 0.9333333333333333}, {2, 0.45}}]], PointBox[NCache[{{-1, Rational[1, 2]}, { Rational[-1, 6], Rational[1, 3]}, {0.375, 0.8}, {1.0833333333333333`, 0.9333333333333333}, {2, 0.45}}, {{-1, 0.5}, {-0.16666666666666666`, 0.3333333333333333}, {0.375, 0.8}, {1.0833333333333333`, 0.9333333333333333}, {2, 0.45}}]]}}}, ImageSize->{197.859375, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7761828841390123`*^9, 3.7761828983572483`*^9}, { 3.776182950622889*^9, 3.776182974418188*^9}, 3.77618316068195*^9, { 3.776183647952291*^9, 3.7761837022860117`*^9}, 3.7761838200222607`*^9, { 3.776707898650364*^9, 3.776707904848276*^9}, {3.776708152594851*^9, 3.776708178912427*^9}, {3.776708360541013*^9, 3.7767083931113873`*^9}, 3.776710059120899*^9, 3.7767102426960583`*^9, 3.776710314816683*^9}, CellLabel->"Out[612]=", CellID->288587336] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell[TextData[{ "Extrapolate beyond the original lines by using numbers outside the range ", Cell[BoxData[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.776181937679468*^9, 3.776181945197282*^9}, { 3.7767070022756248`*^9, 3.776707006146012*^9}, {3.7767075168268337`*^9, 3.776707523094164*^9}, {3.7773137161385965`*^9, 3.7773137406430464`*^9}, 3.8589540546284237`*^9}, CellID->297676702], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0.5"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "Red", ",", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "0.2"}], ",", "0.2", ",", "0.4", ",", "0.6", ",", "0.8", ",", "1.2", ",", "1.4"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.77618192274585*^9, 3.776181934435102*^9}, 3.7761831535819817`*^9, {3.776707493461429*^9, 3.7767075058037767`*^9}, { 3.7767084102505627`*^9, 3.776708414155396*^9}}, CellLabel->"In[613]:=", CellID->795599601], Cell[BoxData[ GraphicsBox[{LineBox[{{0, 0}, {1, 0}, {3, 0.5}}], LineBox[{{-1, 2}, {1, 2}, {3, 1}}], {RGBColor[1, 0, 0], LineBox[{{0.4, -0.8}, {0.9999999999999999, -0.8}, {2.999999999999999, 0.29999999999999993`}}], LineBox[{{0.2, -0.4}, {1., -0.4}, {2.9999999999999996`, 0.39999999999999997`}}], LineBox[{{-0.2, 0.4}, {1., 0.4}, {3.0000000000000004`, 0.6000000000000001}}], LineBox[{{-0.4, 0.8}, {1., 0.8}, {3., 0.7}}], LineBox[{{-0.6, 1.2}, {1., 1.2}, {3., 0.8}}], LineBox[{{-0.8, 1.6}, {1., 1.6}, {3., 0.9}}], LineBox[{{-1.2, 2.4}, {1., 2.4}, {3., 1.1}}], LineBox[{{-1.4, 2.8}, {1., 2.8}, {2.9999999999999996`, 1.2}}]}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7767075104729567`*^9, 3.776707512696741*^9}, 3.7767079082399387`*^9, 3.776708182568169*^9, 3.7767083620261517`*^9, { 3.776708402141693*^9, 3.7767084146750813`*^9}, 3.776710060549073*^9, 3.776710243933004*^9, 3.7767103159663067`*^9}, CellLabel->"Out[615]=", CellID->299460377] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell["Interpolate between an octagon and a hexagon:", "Text", TaggingRules->{}, CellChangeTimes->{{3.776182202055979*^9, 3.776182211167921*^9}, 3.7819860502438583`*^9}, CellID->717728979], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics", "@", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}], "@", RowBox[{"CirclePoints", "[", "8", "]"}]}], "]"}], ",", RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}], "@", RowBox[{"CirclePoints", "[", RowBox[{"0.2", ",", "6"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"Subdivide", "[", "15", "]"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.776182075496907*^9, 3.776182191809639*^9}, { 3.7761827323413982`*^9, 3.776182732646984*^9}, {3.7767079136684303`*^9, 3.776707920523885*^9}}, CellLabel->"In[616]:=", CellID->720749980], Cell[BoxData[ GraphicsBox[{ LineBox[{{0.3826834323650898, -0.9238795325112867}, { 0.9238795325112867, -0.3826834323650898}, { 0.9238795325112867, -0.12756114412169658`}, {0.9238795325112867, 0.3826834323650898}, {0.563082132413822, 0.7434808324625544}, { 0.3826834323650898, 0.9238795325112867}, {-0.3826834323650898, 0.9238795325112867}, {-0.9238795325112867, 0.3826834323650898}, {-0.9238795325112867, 0.12756114412169658`}, {-0.9238795325112867, -0.3826834323650898}, \ {-0.563082132413822, -0.7434808324625544}, {-0.3826834323650898, \ -0.9238795325112867}, {0.3826834323650898, -0.9238795325112867}}], LineBox[{{0.36383787020741715`, -0.8738345690609934}, { 0.8739542303438677, -0.3600579548866986}, { 0.8756208970105342, -0.11905706784691682`}, {0.872287563677201, 0.36294470623264674`}, {0.5322099902529006, 0.7054624490155099}, { 0.36050453687408385`, 0.8738345690609934}, {-0.36383787020741715`, 0.8738345690609934}, {-0.8739542303438677, 0.3600579548866986}, {-0.8756208970105342, 0.11905706784691682`}, {-0.872287563677201, -0.36294470623264674`}, \ {-0.5322099902529006, -0.7054624490155099}, {-0.36050453687408385`, \ -0.8738345690609934}, {0.36383787020741715`, -0.8738345690609934}}], LineBox[{{0.3449923080497445, -0.8237896056107002}, { 0.8240289281764486, -0.3374324774083074}, { 0.8273622615097819, -0.11055299157213704`}, {0.8206955948431153, 0.34320598010020364`}, {0.5013378480919791, 0.6674440655684655}, { 0.3383256413830778, 0.8237896056107002}, {-0.3449923080497445, 0.8237896056107002}, {-0.8240289281764486, 0.3374324774083074}, {-0.8273622615097819, 0.11055299157213704`}, {-0.8206955948431153, -0.34320598010020364`}, \ {-0.5013378480919791, -0.6674440655684655}, {-0.3383256413830778, \ -0.8237896056107002}, {0.3449923080497445, -0.8237896056107002}}], LineBox[{{0.3261467458920719, -0.7737446421604071}, { 0.7741036260090295, -0.31480699992991623`}, { 0.7791036260090295, -0.10204891529735727`}, {0.7691036260090295, 0.32346725396776066`}, {0.47046570593105763`, 0.629425682121421}, { 0.31614674589207187`, 0.7737446421604071}, {-0.3261467458920719, 0.7737446421604071}, {-0.7741036260090295, 0.31480699992991623`}, {-0.7791036260090295, 0.10204891529735727`}, {-0.7691036260090295, -0.3234672539677606}, \ {-0.47046570593105763`, -0.629425682121421}, {-0.31614674589207187`, \ -0.773744642160407}, {0.3261467458920719, -0.7737446421604071}}], LineBox[{{0.3073011837343992, -0.7236996787101136}, { 0.7241783238416102, -0.292181522451525}, { 0.7308449905082769, -0.0935448390225775}, {0.7175116571749436, 0.30372852783531756`}, {0.4395935637701361, 0.5914072986743766}, { 0.2939678504010659, 0.7236996787101136}, {-0.3073011837343992, 0.7236996787101136}, {-0.7241783238416102, 0.292181522451525}, {-0.7308449905082769, 0.0935448390225775}, {-0.7175116571749436, -0.3037285278353175}, \ {-0.4395935637701361, -0.5914072986743766}, {-0.2939678504010659, \ -0.7236996787101135}, {0.3073011837343992, -0.7236996787101136}}], LineBox[{{0.2884556215767265, -0.6736547152598203}, { 0.6742530216741911, -0.2695560449731338}, { 0.6825863550075244, -0.08504076274779772}, {0.6659196883408578, 0.28398980170287447`}, {0.40872142160921465`, 0.5533889152273321}, { 0.27178895491005983`, 0.6736547152598203}, {-0.2884556215767265, 0.6736547152598203}, {-0.6742530216741911, 0.26955604497313385`}, {-0.6825863550075244, 0.08504076274779773}, {-0.6659196883408578, -0.28398980170287447`}, \ {-0.4087214216092147, -0.5533889152273321}, {-0.27178895491005983`, \ -0.6736547152598203}, {0.2884556215767265, -0.6736547152598203}}], LineBox[{{0.26961005941905386`, -0.6236097518095272}, { 0.6243277195067721, -0.24693056749474263`}, { 0.634327719506772, -0.07653668647301796}, {0.6143277195067721, 0.26425107557043137`}, {0.3778492794482932, 0.5153705317802877}, { 0.24961005941905387`, 0.6236097518095272}, {-0.26961005941905386`, 0.6236097518095272}, {-0.6243277195067721, 0.24693056749474263`}, {-0.634327719506772, 0.07653668647301798}, {-0.6143277195067721, -0.26425107557043137`}, \ {-0.3778492794482932, -0.5153705317802877}, {-0.24961005941905387`, \ -0.6236097518095272}, {0.26961005941905386`, -0.6236097518095272}}], LineBox[{{0.2507644972613812, -0.5735647883592339}, { 0.5744024173393529, -0.22430509001635143`}, { 0.5860690840060196, -0.06803261019823818}, {0.5627357506726862, 0.24451234943798833`}, {0.34697713728737173`, 0.47735214833324324`}, { 0.22743116392804788`, 0.5735647883592339}, {-0.2507644972613812, 0.5735647883592339}, {-0.5744024173393529, 0.22430509001635146`}, {-0.5860690840060196, 0.0680326101982382}, {-0.5627357506726863, -0.24451234943798833`}, \ {-0.34697713728737173`, -0.47735214833324324`}, {-0.2274311639280479, \ -0.5735647883592339}, {0.2507644972613812, -0.5735647883592339}}], LineBox[{{0.2319189351037086, -0.5235198249089406}, { 0.5244771151719338, -0.20167961253796027`}, { 0.5378104485052672, -0.05952853392345841}, {0.5111437818386004, 0.22477362330554532`}, {0.3161049951264503, 0.43933376488619885`}, { 0.20525226843704192`, 0.5235198249089406}, {-0.2319189351037086, 0.5235198249089406}, {-0.5244771151719338, 0.2016796125379603}, {-0.5378104485052672, 0.05952853392345842}, {-0.5111437818386005, -0.2247736233055453}, \ {-0.31610499512645035`, -0.4393337648861988}, {-0.20525226843704195`, \ -0.5235198249089406}, {0.2319189351037086, -0.5235198249089406}}], LineBox[{{0.21307337294603595`, -0.47347486145864737`}, { 0.47455181300451477`, -0.17905413505956908`}, { 0.4895518130045147, -0.051024457648678634`}, {0.45955181300451475`, 0.20503489717310225`}, {0.2852328529655288, 0.4013153814391544}, { 0.18307337294603593`, 0.47347486145864737`}, {-0.21307337294603595`, 0.47347486145864737`}, {-0.47455181300451477`, 0.1790541350595691}, {-0.4895518130045147, 0.05102445764867865}, {-0.45955181300451475`, -0.20503489717310222`}, \ {-0.28523285296552886`, -0.40131538143915435`}, {-0.18307337294603596`, \ -0.4734748614586473}, {0.21307337294603595`, -0.47347486145864737`}}], LineBox[{{0.19422781078836326`, -0.423429898008354}, { 0.42462651083709557`, -0.15642865758117788`}, { 0.4412931775037622, -0.04252038137389886}, {0.40795984417042885`, 0.18529617104065915`}, {0.2543607108046073, 0.3632969979921099}, { 0.16089447745502994`, 0.423429898008354}, {-0.19422781078836326`, 0.423429898008354}, {-0.42462651083709557`, 0.15642865758117788`}, {-0.4412931775037622, 0.04252038137389887}, {-0.4079598441704289, -0.18529617104065912`}, \ {-0.25436071080460737`, -0.3632969979921099}, {-0.16089447745502994`, \ -0.42342989800835396`}, {0.19422781078836326`, -0.423429898008354}}], LineBox[{{0.17538224863069063`, -0.37338493455806077`}, { 0.3747012086696765, -0.1338031801027867}, { 0.3930345420030098, -0.03401630509911909}, {0.3563678753363432, 0.1655574449082161}, {0.22348856864368588`, 0.32527861454506546`}, { 0.13871558196402395`, 0.37338493455806077`}, {-0.17538224863069063`, 0.37338493455806077`}, {-0.3747012086696765, 0.1338031801027867}, {-0.3930345420030098, 0.03401630509911911}, {-0.3563678753363432, -0.16555744490821606`}, \ {-0.2234885686436859, -0.32527861454506546`}, {-0.13871558196402398`, \ -0.37338493455806077`}, {0.17538224863069063`, -0.37338493455806077`}}], LineBox[{{0.156536686473018, -0.3233399711077676}, { 0.3247759065022574, -0.11117770262439551`}, { 0.3447759065022574, -0.025512228824339317`}, {0.3047759065022574, 0.14581871877577307`}, {0.19261642648276445`, 0.28726023109802107`}, { 0.11653668647301799`, 0.3233399711077676}, {-0.156536686473018, 0.3233399711077676}, {-0.3247759065022574, 0.11117770262439552`}, {-0.3447759065022574, 0.025512228824339338`}, {-0.3047759065022574, -0.14581871877577302`}, \ {-0.19261642648276447`, -0.287260231098021}, {-0.11653668647301801`, \ -0.3233399711077675}, {0.156536686473018, -0.3233399711077676}}], LineBox[{{0.13769112431534533`, -0.2732950076574743}, { 0.27485060433483827`, -0.0885522251460043}, { 0.29651727100150493`, -0.017008152549559546`}, {0.2531839376681716, 0.12607999264332997`}, {0.16174428432184296`, 0.24924184765097662`}, { 0.09435779098201198, 0.2732950076574743}, {-0.13769112431534533`, 0.2732950076574743}, {-0.27485060433483827`, 0.08855222514600433}, {-0.29651727100150493`, 0.017008152549559567`}, {-0.2531839376681716, -0.12607999264332995`}, \ {-0.161744284321843, -0.24924184765097657`}, {-0.09435779098201202, \ -0.2732950076574742}, {0.13769112431534533`, -0.2732950076574743}}], LineBox[{{0.11884556215767268`, -0.22325004420718098`}, { 0.22492530216741918`, -0.06592674766761311}, { 0.24825863550075244`, -0.008504076274779773}, {0.2015919688340858, 0.10634126651088692`}, {0.1308721421609215, 0.21122346420393218`}, { 0.072178895491006, 0.22325004420718098`}, {-0.11884556215767268`, 0.22325004420718098`}, {-0.22492530216741918`, 0.06592674766761314}, {-0.24825863550075244`, 0.008504076274779795}, {-0.2015919688340858, -0.10634126651088689`}, \ {-0.13087214216092155`, -0.21122346420393212`}, {-0.07217889549100603, \ -0.22325004420718098`}, {0.11884556215767268`, -0.22325004420718098`}}], LineBox[{{0.10000000000000003`, -0.17320508075688773`}, { 0.17500000000000004`, -0.04330127018922193}, {0.2, 0.}, { 0.15000000000000002`, 0.08660254037844387}, {0.10000000000000003`, 0.17320508075688773`}, {0.05000000000000002, 0.17320508075688773`}, {-0.10000000000000003`, 0.17320508075688773`}, {-0.17500000000000004`, 0.04330127018922195}, {-0.2, 2.4492935982947065`*^-17}, {-0.15000000000000005`, -0.08660254037844382}, \ {-0.10000000000000009`, -0.17320508075688767`}, {-0.05000000000000006, \ -0.17320508075688767`}, {0.10000000000000003`, -0.17320508075688773`}}]}, ImageSize->{214.59375, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.776182076492981*^9, 3.776182113751314*^9}, { 3.776182149504649*^9, 3.776182192218048*^9}, 3.776182732882845*^9, 3.776183162151174*^9, 3.77618382643569*^9, 3.776707921258135*^9, 3.776708187054677*^9, 3.776708427860628*^9, 3.776710063016535*^9, 3.77671024565127*^9, 3.776710317502699*^9}, CellLabel->"Out[616]=", CellID->458744831] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell["Interpolate between a circle and a square:", "Text", TaggingRules->{}, CellChangeTimes->{{3.776183201584529*^9, 3.776183213411809*^9}, { 3.776707934773759*^9, 3.77670793606802*^9}}, CellID->330485130], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}], "[", RowBox[{"CirclePoints", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", RowBox[{"Pi", "/", "4"}]}], "}"}], ",", "100"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"Line", "[", RowBox[{ RowBox[{ RowBox[{"Append", "[", RowBox[{"#", ",", RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}], "[", RowBox[{"CirclePoints", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"Pi", "/", "4"}]}], "}"}], ",", "4"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", "i"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "0.5"}], "}"}], ",", "0", ",", "1"}], "}"}], ",", " ", RowBox[{"SaveDefinitions", " ", "\[Rule]", "True"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.776183215326481*^9, 3.7761832927163267`*^9}, { 3.7761833370648737`*^9, 3.776183437892035*^9}, {3.776183739301385*^9, 3.776183762694291*^9}, {3.7767079500333138`*^9, 3.77670796648239*^9}, { 3.7773137601049924`*^9, 3.7773137669406757`*^9}}, CellLabel->"In[94]:=", CellID->137606668], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzs3Qd4FeW69nGT0JsgTWSLYAEVpYlgAdSDolKk2UWKoFK2IJatIsVCsyKC IIhYQJAOKigKVg6CINIVkUDokENJOOFQQtZ3h8m3iDG0kMwza+b/u669L0VY 3Jl35nnvZK01q8JD3Vo8En3WWWc9mU//16LdMzc98US751oW1b/c1fXJTo92 fbjD7V2fevjRh5+45qEY/eJA/d+l+l/qP4cAAAAAAAAAXzt48OC+ffv+BwAA AFmiKqVCddLGteeohISE/wUAAECWqEo5nep47SspKUn/NTExMemo/wMAAECW OG1KtUrlSv+QaelSPdu/f791UgAAAD9QrVK5ylC9nKcXKV0AAADZK1y9wk84 7t6923l60ToaAACA3zhPOKpuqXQdOHDA+fGXdSgAAAB/cl7QpdKlApaQkMAz jAAAADlERUt1S6Xrf/7nf/73f//XOg4AAICfqW45t/aidwEAAOQoehcAAIA7 6F0AAADuoHcBAAC4g94FAADgDnoXAACAO+hdAAAA7qB3AQAAuIPeBQAA4A56 FwAAgDvoXQAAAO6gdwEAABxP7FG/HPV1Os6vOP/11B+N3gUAAHA89C4AAICc tuqoL06B8ztP5THpXQAAAP9E7wIAAMhpzrOH/+xXe9P55389lecc6V0AAADp 0bsAAADc4bxm/nR7l/OnTvzI9C4AAID06F0AAADucO4U8c+udTzO73T+1Ikf md4FAACQHr0LAADAHfQuAAAAd9C7AAAA3MHr6gEAANxB7wIAAHAH900FAABw B70LAADATXwuNgAAgDvoXQAAAG5ynj10XjP/dTrOr5zKc4vp0bsAAACOh94F AAAQiehdAAAA7qB3AQAAuIPeBQAA4A56FwAAgDvoXQAAAO6gdwEAALiD3gUA AOAOehcAAIA76F0AAADuoHcBAAC4g94FAADgDnoXAACAO+hdAAAA7qB3AQAA uIPeBQAA4A56FyLU/hOyTgcAQCboXYgs6ctV0nFQwAAA3kTvQqTIULd0xiYe lZCO8yv6TxkKmHV2AABS0bsQEcKNy6lbe/fujY+P37Fjx7Zt27Zs2bLpKP2D /lW/qP+k3xAuYFQvAIBH0Lvgfekb1+7du9WsNm/evHXrVp23+pUDBw4cOUr/ oH/VL+o/6Tfot+k3p29f1l8HACDo6F3wuHDp2rt3r6qUOlV8fLx+MXRC+g36 bfrN+iP6g1QvAIAX0LvgZU7p2rdv3549e1Sitm/frn89ceNKT79Zf0R/UH9c D0L1AgDYonfBs8Kla9euXVu2bImPjz/1xpWe/qD+uB6E6gUAsEXvgjeFS9fu 3bs3b96sUzRrpcuhP64H0UNRvQAAhuhd8CDnHYjOa7rO5Cdd//ypl/NaL97h CAAwke29a9SoUQ8++KA2uGx5NAST88OuxMTE7du3b9u27cxLl0MPpQfUw/Ij L5yhL07BzKOskwLwlmzvXRdeeOFZZ501bty4bHk0BJDzwyjnZV2bN2/WP2RX 79JD6QGdF3rxIy+cCXoXgKzJ9t6lOdOnTx9tbdnyaAig9D/s2rFjR3aVLoce kB954cz9s2U5n5jwz1+3TgrAW3h9F7zGeWXXnj17Nm3apH/I3t6lB9TD6sGd V3lZf62IVPQuAFmT7b3rySefvOyyy07w+i5tdtu3b9+wYUPs/7cO+P/+OurP P/9ctmzZ6tWrs7d0OfSwenD9Fc7fZf0Vw0PCQ0kDSmPqBM08fbOadRS9C8Cp yPbedc8995x11lmaWsf7DZpmsX9nPWvhISpCa9eu/eOPP5YsWbJ+/fqc6F16 WD24/gr9RfQupJdhNO3YseN4c4zeBSBr3O9d6X/SRe9CBs4Pu37//fdffvll 586dOdG79LB6cP0Vzo+8rL9ieEiG0XSCOZb+ucXjoXcB+Cd6FzzF6V2rV6/+ +eefT+sjgU6dHlYPrr+C3oUM6F0AchrPM8JTwr1r/vz5ycnJOdG79LB6cHoX /ilrzzPyunoAp8793sXr6nECTu9atWrVf//3f+dc79KD66+gdyGDrL2unt4F 4NS537uAE3BuIrF7925tgvrnnOhdelg9uP4KbiWBLKN3Acgaehc8JfyxjOvX r9+1a1dO9C49rB48/EGN1l8xIhK9C0DW0LvgKeHetWnTpi1btuRE79LD6sHp XTgT/+xXx2OdFIC3ZHvvuu+++9S74uLisuXREDTOhwQlJCRs3bo1NjY2J3qX HlYPrr+CjwpCltG7AGQNnxMEr1EXSkxMjI+P//PPP9WOsrd06QH1sHpw/RWU LgCAy+hd8BrVoX379u3evXv9+vVxcXHZ27v0gHpYPbj+CnoXAMBl9C54Tfip xu3bt//xxx/qSNlVuvRQekA9LE8yAgBM0LvgQeEfecXGxv7111/Z1bv0UHpA ftgFALBC74IHpf+R1+rVq7PlA7L1IHooftgFADBE74I3OT/y2rNnz9atW9WX zvCFXvrjehA9lB6QH3YBAKzQu+BZ4WcbN23atGrVqnXr1mWtdOkP6o/rQXiG EQBgi94FL9NpmZiYuGvXLrWm5cuXr169+rRuYq/frD+iP6g/rn/WQ3GeAwAM 0bvgcU712r1799atW3///felS5euWbPmpG9y1G/Qb9Nv1h/RH9S/UroAAObo XfA+nZzOE447duxYv379qlWrFi1atGzZsrVr127fvl2FKvko/YP+Vb+o/6Tf oN+m36w/4jy9yBkOADBH70JESEpK0imakJCwa9culau4uLg1a9asWLFC/Wr+ /Pn/fZT+Qf+qX9R/0m/Qb9Nv1h/RH9Qft/4KAACgdyFiOB+Z7bSvPXv2xMfH q1lt3bp106ZNG4/SP+hf9Yv6T/oNTuPiw68BAN5B70JkCbevxMRENau9R+05 yvln/aLzUi4aFwDAa+hdiFDOM4+Z4llFAIA30bsAAADcQe8CAABwB70LAADA HfQuAAAAd9C7AAAA3EHvAgAAcAe9CwAAwB30LgAAAHfQuwAAANxB7wIAAHAH vQsAAMAd9C4AAAB30LsAAADcQe8CAABwB70LAADAHfQuAAAAd5x67/pvAAAA nBC9CwAAwB3Z27tCAAAA+Ad6FwAAgDvoXQAAAO6gdwEAALiD3gUAAOAOehcA AIA76F0AAADuoHcBAAC4g94FAADgDnoXAACAO+hdAAAA7qB3AQAAuIPeBQAA 4A56FwAAgDvoXQAAAO6gdwEAALiD3gUAAOAOehcAAIA76F0AAADuoHcBAAC4 g94FAADgDnoXAACAO+hdAAAA7qB3AQAAuIPeBQAA4A56FwAAgDvoXQAAAO6g dwEAALiD3gUAAOAOehcAAIA76F0AAADuoHcBAAC4g94FAADgDnoXAACAO+hd AAAA7qB3AQAAuIPeBQAA4A56FwAAgDvoXQAAAO6gdwEAALiD3gUAAOAOehcA AIA76F0AAADuoHcBiEQaR5s3b165cuXCM7ZixYpNmzbt27fP+msC4H/0LgBe kJSUtGXLllWrVmmGzJw585NPPnnnnXf69ev31FNPdejQ4c4777z55ptr1qx5 8cUXlyhRIleuXGflAD1s8eLF9VfoL9Jfp79Uf7UC9O3bd+jQoYqkYIqnkIqq wNbHDEDkoXcBcEdKSsq2bdvmz58/bty4/v37P/LII7fcckulSpVKliyZO3fu 0+1IBQsWLFu2bOXKlWvVqlX7hGqdjB5ED6UHPN0MefLkUXh9CQ0aNNCXoy9q /PjxP//8s75MfbHWxxuAF9G7AGS7HTt2LFy4cMKECQMHDuzYseNtt9126aWX 5suX7wQdpkCBAuedd97ll19+3XXXNWzY8P777+/cuXOPHj1effXVkSNHTpw4 8euvv/7ll1/+/PPPnTt3Hjp0KCdiHz58OD4+fu3atYsWLfrmm2/0l+qvVgDF UBhFUjDFu+yyy8qUKZM/f/4TfDn6YvUl6wvv1KnTK6+8okOh8EqeE7EBRBB6 F4AsS0xMXLx48aRJk1577bUuXbqolqg4qUEdr42ULFny6quvvuuuu55++ulh w4bNmjVr9erVKmkHDx60/lKyQrEVftWqVfpC3nnnHX1R+tJq1qxZokSJ4x2B ggUL6hA1atRIh0sHbfLkyTqACQkJ1l8KAJfQuwCcuu3bt3/55ZcDBgy4++67 L7nkkqioqEzbxTnnnFOjRo2WLVs++eSTQ4YM+eKLL1auXKkBYh3fPfpiV6xY 8fnnn+vLf+KJJ1q0aKEDosOS6eHSYbz44ovV2fr376/Dq4NsHR9ATqF3ATie lJSUtWvXTpo0qUePHg0bNjz33HMzFIa8efNWrVq1WbNmjz/++ODBg2fMmLFs 2bLExETr4N6VkJCgQ6QD9dZbb+mg6dDpAP7zGVgd6ttvv12HXQdfS8CrxQDf oHcBCDt06NDSpUs/+OCDrl271q1bt0iRIhn6QNGiRW+44QYVhg8//FD94fDh w9aR/UCHcfny5R999JEOrA6vDnKGw66F0HJoUbQ0WqAcenkbABfQu4Ag27dv 308//TRkyJCHHnqoevXqefLkybDjly1btlGjRj179pwyZcq6deus8wZFbGys DrgOuw6+liDDomiZtFhaMi3cvHnzuPMYEEHoXUDQ7N+//5tvvnnuueeuueaa DDfCio6OrlSp0j333DNw4MDZs2fz/juP0EJoObQoWhotkJYp/arFxMTUrl1b C/r1119rca3DAjgRehcQBAcPHvzxxx9feOGFevXqpf+hVu7cua+66qoOHToM HTpUF2+gXvoeubRMWiwtWfv27WvUqJH+7mdaXC2xFvqHH36I0HeJAv5G7wL8 Kjk5eeHChQMGDLjlllvS39shOjq6Zs2a//nPf7788kuKlg9oEb/66istqJY1 JiYmvNBadC29ToAFCxboZLCOCSAVvQvwk5SUlN9+++3NN99s3Lhx+lfFR0VF XXnlld26dZs+ffqePXusYyKn7N27d8aMGVpoLXf6u3zoZNApoRNDpwfvjgQM 0bsAH1i9evXQoUNbtmxZvHjx9K/8qVixYseOHSdOnMgrtQJIi66l1wmg0yD9 WaGTRKfKO++8o9PGOiMQOPQuIELt379/6tSprVq1ynBbrfLly7dr127MmDGb N2+2zgiv0MmgU0InxgUXXJD+bClTpoxOoSlTpvCCfMAd9C4gsiQmJo4fP/7O O+9M/znO2j0feOCBUaNGxcbGWgeE1+kk0aly//3367RJ/2IwnVQ6tbjtLZCj 6F1ARNi9e/dHH33UpEmTvHnzhl+yVbt27VdfffX333+3TodIpZPntddeu+aa a8IvBtMJptNMJ5tOOet0gA/RuwAv27lz58iRI2+99dbwvQKio6Pr1as3ePDg TZs2WaeDf+h00kmlUyt8czCdcjrxdPrx4kAgG9G7AA/asmXL0KFDb7zxxvBt AXLlynXzzTcPHz6cD01GjtIJ9u67795yyy3he+rqJNSpqBNSp6V1OiDi0bsA 71i/fv0bb7xx3XXXhZ/0yZMnT6NGjUaPHr1r1y7rdAgWnXI68XT6hW+0q9NS J6dO0Q0bNlinAyIVvQswt2bNmv79+1911VXhFznnz5+/RYsWn3zySUJCgnU6 BJ1OQp2KzZs312kZPkVr1qw5YMCAP//80zodEGHoXYCVxMTEESNGaP8K72WF Cxe+9957J02alJSUZJ0OyEhbgE5OnaI6UcMnrb5f0GnMuyCBU0TvAty3cOHC Dh06FCpUyNm5ihUr1qZNm88+++zAgQPW0YCT04mq07V169ZFixZ1zuGCBQu2 b99eJ7Z1NMDr6F2Aa/bs2TN06NCqVauGf1Zwww03fPLJJ9QtRCidujqBb7zx xvApXaVKFZ3kfBYVcDz0LsAF8+bNa9OmTfjlMaVKlXr66afXrFljnQvIHn/+ +adOaZ3Y4Rcotm7dWqe9dS7Ac+hdQM7RVTNo0KDLL788/HawW265ZeLEiYcO HbKOBmQ/ndiTJk3SSR5+Q+5ll1325ptv6kKwjgZ4Bb0LyHYpKSnffvvtfffd F763fJkyZXr06MGH+CAgdKrrhA9/DpEuBF0O3333nXUuwB69C8hGO3bseOWV Vy655JLwveUbNmw4ffr0w4cPW0cD3KbTXie/LoHwPfB1aegC0WViHQ0wQ+8C zlxKSsrs2bPvvPPO8Kf5nH/++S+88MLGjRutowH2dCHoctBFEf4EIl0sumR0 4VhHA9xG7wLOxMGDB0eOHBn+AVeuXLmaNWs2c+bMI0eOWEcDvEUXhS6Npk2b hj+BSBfOe++9p4vIOhrgHnoXkDWJiYmvvfbaeeed5+wgFSpU6Nev39atW61z AV6ny0QXiy4Z59rRRfT6669z51UEBL0LOF07d+7s2bNnsWLFnF2jWrVq48eP T05Ots4FRBJdMrpwdPmE7x7cq1ev+Ph461xAzqJ3AacuLi7uscceK1CggLNT 1K1bd9asWdahgMimi6hevXrONaWLq2vXrrrQrEMBOYXeBZyKVatWtW7d2nld SlRUVJMmTebPn28dCvAPXVC6rJwbf+lCa9OmjS4661BA9qN3ASf2888/N23a NLwdtGrVauXKldahAH/SxaVLLPwNji69BQsWWIcCshO9Czier776KvzBc/nz 5+/SpcuGDRusQwH+pwtNl1v4c7V0Gc6ePds6FJA96F1ABkeOHJkwYUL16tWd mV+0aNEePXrs3LnTOhcQLLrodOnpAnSuRF2SEydO5A4tiHT0LiDswIEDI0eO vPjii8Mf7vPqq6/y9nbAkC5AXYbhjxy65JJLdJFyyy9ELnoXEDr6gSbDhg0L z3ZVrxEjRqiGWecCkEoXoy7Jiy66KHzLr3feeYeP30IkoncB06ZNq1SpUvhm XJ9++ik34wI8SBemLs/wLb8qVqyoi9c6FHB66F0IsgULFtSpUyc8w6dOnWqd CMDJpf9eSZfwzz//bJ0IOFX0LgTTX3/9dddddzlzu1SpUjxnAUQWXbC6bHXx OlexLmdd1NahgJOjdyFodCZ369Ytd+7czs2xn3/+eV45D0QoXbw9e/Z0PkJC F7UubV3g1qGAE6F3ITh0ig4cOPDss8/WiI6Ojn7ooYe2bNliHQrAmdKFrMtZ F7UubV3gusx1sVuHAjJH70IQHDly5KOPPjr//POdpyRuv/32FStWWIcCkJ10 UevSdq5xXewff/xxSkqKdSggI3oXfO+bb74JvwGqevXqc+bMsU4EIKfoAg/f 9FgXvi5/60TA39C74GPLly+/7bbbnAlcrly5MWPG8P0v4Hu6zD/++GNd8s61 ryGgUWAdCkhD74Ivbd68uV27ds7rPYoWLfrKK6/8H6/3AIJEl7wufOdjhjQK NBA0FqxDAfQu+M2+fft69OjhfKJunjx5Hn/8cd7fBASW8/5ljQLn0+2ff/55 jQjrUAg0ehf85Isvvgg/uXD33XevW7fOOhEAexoFGgjhlxxoUFgnQnDRu+AP 27dvv+eee5y5evXVVy9cuNA6EQBvWbBgQa1atcLfl2loWCdCENG7EOlSUlJG jRpVrFgxzdJChQoNGjToyJEj1qEAeJGGg0aEBoXGhYaGRgfvtYHL6F2IaGvW rLnhhhucb2AbNmwYFxdnnQiA12lQNGrUyJkbGiAaI9aJECD0LkSoQ4cOvfzy y3nz5tXkLF269Pjx460TAYgkn376qUaHBojGiIaJRop1IgQCvQuRaP78+ZUr V9bAjIqKat++/e7du60TAYg8Gh0aIBojGiYaKRos1ongf/QuRJaEhITOnTs7 N+aqWLHi999/b50IQGTTGNEwcb6P69Kli4aMdSL4Gb0LEWTatGlly5bVeMyd O3fPnj0PHDhgnQiAH2iYaKRosGi8aMho1Fgngm/RuxARtmzZ0qJFC+d1sNde e+3KlSutEwHwGw0WjRdnzmjgaOxYJ4IP0bvgcSkpKcOGDStSpIgmof5/6NCh 3CYCQA7ReNGQcQbO2WefPXz4cG40gexF74KXrVq16rrrrnO+/WzWrBkfrwbA BRo1TZs2dSbP9ddfr0FknQj+Qe+CNyUnJ7/00kvOp6qdd955U6ZMsU4EIFg0 djR8nE961TjSULJOBD+gd8GDNm3aVK9ePeftRZ06deLtRQBM7N27t2PHjs6N JjSUNm7caJ0IEY/eBa+ZNm3aOeec4/yYa+7cudZxAATdt99+6/zgS6Np6tSp 1nEQ2ehd8A6dQp06dXJeU9GkSZP4+HjrRACQSuNIQ8mZThpTGlbWiRCp6F3w iJUrV15xxRXOZ3a8/fbb1nEAICONJuezyTSsuJsNsobeBS8YPnx4/vz5Nc0u vfTSpUuXWscBgMxpQF122WUaVhpZGlzWcRB56F2wtXv37ubNmzs/ve/QoUNS UpJ1IgA4EY0pDStnaml88fmwOC30Lhj68ccfzz//fM2uokWLTpw40ToOAJwq jSwNLo0vDTGNMus4iBj0LphITk7u06dPTEyMptZ11123YcMG60QAcHo0uJwb O2uUaaBxgy+cCnoX3BcXF1enTh0Nq+jo6J49ezKsAEQojS8NMY0yDTSNNW7w hZOid8FlkydPLlasmGZU2bJlv/vuO+s4AHCmNMo00DTWNNz4cA2cGL0Lrtm/ f/+jjz7qvBi1adOmOqOsEwFA9tBAu+OOO5z5pkGncWedCB5F74I7li9ffvnl l2si5cuXb+jQodZxACD7abhpxGnQadxp6FnHgRfRu+CCMWPGMIsABEH67zE/ /vhj6zjwHHoXctSRI0eeeeYZ52fvDz/8MD97B+B7GnQad87c+89//qMxaJ0I HkLvQs5JTEx0PtEsd+7c3NgZQKC8++67Gn0agI0bN9YwtI4Dr6B3IYfExsY6 n7dYvHhx3rcIIIA0+jQANQYrV66skWgdB55A70JO+OGHH0qUKOG8oGvdunXW cQDAhgagSpeGoUbi999/bx0H9uhdyHYjR450frreqFGjhIQE6zgAYCkxMbFx 48bOKy5GjBhhHQfG6F3IRsnJyV27dnVeTfr000/zalIACB19h5FGojMbH3vs MT6kI8joXcgue/bsueWWWzRV8ubN+9FHH1nHAQBv0WDUeNSQ1KjUwLSOAxv0 LmSLP/74o2LFiponpUuXnj9/vnUcAPAijUcNSY1KDUyNTes4MEDvwpmbPXt2 0aJFNUmqV6/Ox8ICwAloSGpUamBqbGp4WseB2+hdOENvvfVWTEyMZsidd96Z lJRkHQcAvE6jsmXLlhqbGp4aodZx4Cp6F7Ls0KFDHTp00OiIiorq3bt3SkqK dSIAiAwamBqbGp4aoRqkGqfWieASeheyJj4+vm7dupoYBQoUmDhxonUcAIg8 EyZM0AjVIK1Xr56GqnUcuIHehSxYvnx5+fLlNSv+9a9//frrr9ZxACBSaYRq kGqcVqhQYcWKFdZxkOPoXThdP/zwQ5EiRTQlrrnmmm3btlnHAYDIpkFau3Zt DVWNVg1Y6zjIWfQunJaZM2fmz59f8+Hee+89cOCAdRwA8ANtoBqqGq0asBqz 1nGQg+hdOHUTJkxwPgCoY8eO3IseALKRhqpGq/NxQp9++ql1HOQUehdO0Xvv vRcdHa2Z8Mwzz1hnAQB/0oDVmNWwHTlypHUW5Ah6F07F66+/7nyyWP/+/a2z AICfDRgwwJm3r732mnUWZD96F06qV69ezk26hg0bZp0FAPxPw9a5tVfPnj2t syCb0btwAikpKY899piu/Vy5co0dO9Y6DgAEhUauBq/Gr4Ywd6X2E3oXjic5 OblNmza66vPmzTtjxgzrOAAQLBq8Gr8awq1bt9ZAto6D7EHvQqYOHjzYvHlz Xe+FChWaO3eudRwACCKNXw1hjWINZG7d4w/0LvyTFvqWW27RlV6sWLEFCxZY xwGA4NIQ1ijWQNZY1nC2joMzRe9CBnv27Ln22mt1jZ977rnLly+3jgMAQadR rIGssazhrBFtHQdnhN6F9Hbs2FG1alVd3eXLl1+7dq11HABAKg3kCy64QMNZ I1qD2joOso7ehbC4uLiKFSvqur700ks3bdpkHQcAcIzGsoazRrQGtca1dRxk Eb0LjjVr1px//vm6omvUqLFz507rOACAjDScq1evrkGtca2hbR0HWUHvgixd urRUqVK6luvUqZOQkGAdBwCQub1792pQO282/+STT6zj4LTRu7Bq1aoSJUro Kr7tttv2799vHQcAcCJJSUnOC3GjoqJ++eUX6zg4PfSugIuNjT3vvPN0/TZp 0uTQoUPWcQAAJ6fqVaZMGY1uDXCNces4OA30riDbunXrhRdeqCv3pptu0vJZ xwEAnCoNbY1uDXCNcQ1z6zg4VfSuwNq1a1flypV1zdaqVWvfvn3WcQAAp0ej WwNcY1zDXHu0dRycEnpXMCUmJl599dW6Wq+44goVMOs4AICs0ADXGNcw10jX YLeOg5OjdwWQVurGG2/UdXrRRRfx02kAiGga4xrmGuka7P/HK0Y8j94VNIcP H27cuLGu0LJly65fv946DgDgTGmYa6RrsGu88w4pj6N3BcqRI0fuu+8+XZsl SpRYvXq1dRwAQPbQSHfuCKQhr1FvHQfHRe8KlEcffVRXZZEiRRYvXmydBQCQ nTTYNd415B955BHrLDgueldw/Oc//9H1mD9//h9//NE6CwAg+2m8a8hr1D/9 9NPWWZA5eldA9OvXT1di7ty5Z82aZZ0FAJBTNOQ16jXwNfatsyAT9K4gGDp0 qK7B6OjoiRMnWmcBAOSsCRMmaOBr7Gv4W2dBRvQu3xszZkxUVJQuwFGjRlln AQC4QQPf+QDHjz/+2DoL/obe5W/Tp0/PlSuXrr433njDOgsAwD0a+xr+2gK0 EVhnwTH0Lh+bM2dO3rx5dd317t3bOgsAwG29evXSFqCNQNuBdRakoXf51YIF CwoWLKgrrlu3btZZAAA2unbt6ry+d8SIEdZZkIre5UsbN24sXbq0rrW2bdum pKRYxwEA2NAWULVqVecJx7i4OOs4oHf5UFJSUrVq1XSVNWjQIDk52ToOAMDS wYMHL7jgAm0K2hq0j1vHCTp6l8/oW5uWLVvq+qpYseKePXus4wAA7Gk70Kag raFFixY8CWKL3uUzzqsoixYtumbNGussAACv0KagrUEbhLYJ6yyBRu/ykwkT JuiaiomJ+frrr62zAAC8RVuDNghtE59++ql1luCid/nG4sWLnY/lGjx4sHUW AIAXaYNwPqhXW4Z1loCid/nD1q1by5Ytq6vp4Ycfts4CAPAubRPaLLRlaOOw zhJE9C4f0JGvXbu2rqN69eodOnTIOg4AwLu0TWiz0JZRq1YtbR/WcQKH3uUD DzzwgK6gChUqxMfHW2cBAHidNgttGdo4tH1YZwkcelekGzBggK6dwoULr1ix wjoLACAyaMvQxqHto3///tZZgoXeFdFmzJgRfdRnn31mnQUAEEm0cTg7iLYS 6ywBQu+KXMuXLy9UqJC+Wxk4cKB1FgBA5NH2oU1EW4k2FOssQUHvilDx8fHl y5fX9dKqVSvrLACASKVNRFuJNhReIewOelckOnToUN26dXWlXHPNNQcOHLCO AwCIVNpEeEe8m+hdkahDhw66Rv71r39t27bNOgvgnoMHD+7atSsuLm7lypUL FiyYM2fOtGnTxowZM3z48FdffbV3797PnrJevXrpjwwbNkx/XA/yzTff6AH1 sBs2bNBfob/I+msF3KOtRBuKthVtLtZZ/I/eFXHeeustXR0FChT49ddfrbMA 2SYpKWndunXz5s2bNGnSkCFDevTo0a5du9tuu61q1arlypU755xzcufOfZaL 8uTJo79Uf7UCKIbCPPfcc2+//bbiKaSiKrD1MQOyjTYUbSs687XFWGfxOXpX ZNE3+DExMVFRURMnTrTOApy2Q4cOrVmz5vPPP3/zzTe7d+9+33333XjjjZUq VSpSpMhpdaHLL7+8du3a9evXb9q0aatWrTp27Pj000+/+OKLAzMzIDMvvfSS /oj+oP54s2bN9FB6wMqVKzsdT3/RqeRRbIXXl6Av5IknntAX9cUXX+gL5Mka RKIJEyZoc9EWo43GOouf0bsiyM6dO8uUKaNp37t3b+sswEkcOXIkNjZ29uzZ Q4cO7dq16+23337RRRc5n8mbqXz58pUvX/7aa69t0aJF586dX3755VGjRs2c OXPJkiVxcXHuP/fnPKe5YcMGBVAMhVGkLl26KJ5CKqoCH+9ryZUr18UXX6wv uVu3bvrydRDWr1+vA+JmfiALevXqpRP43HPP1XZjncW36F2RIiUlpWHDhroi 9M01Axxec/jw4WXLlo0ePfqpp55q2rTpZZddlumPjNS7KlSo0KBBg3//+9+v v/762LFj586du3r16j179lh/BVmh2AqvL0FfyGuvvaYvSl+avsDo6Oh/fu15 8+bVYdHB0SHSgVq6dCk/FoPXaHO56aabdLpqu9GmYx3Hn+hdkWLQoEG6FooX L75582brLEDqe6AWLVo0YsSIRx999Oqrr1apyFAzoqKiypYtqxn+yCOPqGLN mDFDFSUgr1fXl6kvVl+yypi+fH2vpEOhA/LPJlazZk0dQB1GHUzemwwv0Baj jUbn55tvvmmdxZ/oXRFhyZIlzk8PuKswrCQlJc2fP3/o0KEPPfRQ1apVM7zK XaXikksuueeee/r37z9p0qRly5bxsvMMdECWLl2qg9OvX797771XhytDE9Mh 1YHV4dVB1qHmAMKKNpqzjr6cUluPdRYfond5nw57xYoVdRX8+9//ts6CYNm4 ceOYMWM6dOhw+eWXZ3juLCYmRr/YqlWrQYMG/fDDD4mJidZhI48Omg6dDuCD Dz5YuXLlDC9+c46wDr6WQAthHRbBou1GJ6G2Hm1A1ln8ht7lfe3atdP5X6VK FR1h6yzwv/Xr13/44Yc66y688MIMP42pVq0aP43JOel/oqhDneEniloOLYqW RgtknRT+d+DAAW06OvF01lln8Rt6l8eNHz/+rKN361q9erV1FvjWX3/99f77 7z/44IPlypVLv9cXLVq0SZMmr7/++i+//MKrj1ymA67DroPfuHFjLUT6ddEy tW7dWkumhbOOCd/SpuPc0UvbkHUWX6F3eVlsbKxzX6ORI0daZ4HfbNmy5b33 3rv//vvLli2bfk8vXrx4s2bNBg0atGTJEt456xFaCC2HFkVLc84556RfLy2f FlFLqQW1jgm/0dZz1tH71Gkzss7iH/Quzzp8+LDzmVl33nmndRb4REpKyuLF i/v06XPVVVelf1F3yZIlW7ZsOWTIkOXLl/PmcY/TAi1btuztt9/Wkmnh0new GjVqaHG1xCwisos2oLOOfhawtiTrLD5B7/Ks5557Tmf7BRdcEKG3NoJ3JCUl zZgx4+GHH3buu+soWLBgs2bNhg0btmrVKuuAyCL1Ky3fO++8o6XUgoYXVwut 5dai8zI8nCFtQM7LD7QlWWfxCXqXN82dOzc6OjomJmbevHnWWRCpNm3aNHz4 8EaNGqW/s7pGaOfOnWfNmsXrtXxGC/rll19qcdO/SE9LrxNAp4FOBuuAiFTa hrQZaUvSxmSdxQ/oXR4UHx/v/FzipZdess6CyLNixYpevXpVq1YtvPlqYNau Xbtv377Lli2zTgc3aKG13Fr09Hf/qF69uk6M5cuXW6dD5NFmpFPovPPO0/Zk nSXi0bs8qHHjxjrDb7jhBl7VjFO3YcOGAQMGXHnlleF9tlChQi1atBg9evSO HTus08GGll4ngE4DnQzhE+OKK67QqaITxjodIoY2I21JOnm0PVlniXj0Lq8Z PHiwzu1zzjmH5wVwKnRhDhs2rE6dOuHXyRcvXrxjx46zZ88OyIfy4FQcOHDg q6++0onhfATMWUc/YkCnjU4enULW6RABtCU576XVJmWdJbLRuzzlt99+cz7n bvr06dZZ4Gm6GMeNG9eoUaPw3TULFChw3333ff7553zaMk5Ap8cXX3yhUyX8 OnydQjqRdDpxZ3Kc2LRp0846+rmiS5cutc4Swehd3pGUlHTppZfqrO7cubN1 FnjU4cOHZ86cef/994c3zVy5cjVs2HDs2LFsmjgtOmF02ujk0SkUfovrAw88 oBOMOwbgeLQ96VTRVsVbZbOM3uUd7du31/l85ZVX/h+fB4R/WLNmTffu3UuU KBF+kuj6669/5513eJkrzpBOIZ1IOp3CT1XrNNPJplPOOho8R9vTFVdcoZNE G5Z1lkhF7/KIzz//XGdy/vz5uZkS0jt8+PDkyZPr168f3hM19Pr378+H9CHb 6aTSqVW5cuVwt9eJp9OPH38hvZUrV2qr0hny2WefWWeJSPQuL9i3b9/555/P 6xWR3qZNm3r16hW+02nBggU7dOjw66+/WueC/+k0e/jhh8PPZesk1KnIO30Q 5rz/S9uWNi/rLJGH3uUFXbt21Tlcq1YtbhyBlJSUr776qmnTpjExMc6uV7ly 5SFDhiQkJFhHQ7DolNOJF/7xl05InZY6OfkQImir0oals+Kxxx6zzhJ56F3m Fi5cGB0dnStXLu5pGXDx8fGvvPLKhRde6GxzefLkue+++3744QfrXAi6H3/8 UaeiTkjnzNQpqhOVFxYGnDYsbVvavLSFWWeJMPQuW4cPH65SpYpG2bPPPmud BWaWLFnywAMPOLcQkQoVKgwYMGDnzp3WuYBjdELqtNTJ6ZylOl110urUtc4F M86HCGsL4xWAp4XeZUtzTOftRRddtH//fussMPDtt982aNAg/DxOkyZNZs2a xdPN8CydnDpFdaKGP4FIJ7BOY+tcMKBt6+KLL9Y50L9/f+sskYTeZWjt2rXO u0LmzJljnQWu0uY1depU5wUSUrhw4SeffDIuLs46F3CqdLo+9dRTOnWdc1gn s05pvmUIGm1ezjvxtZ1ZZ4kY9C5D9evX1xnbtm1b6yBwz8GDB99///1KlSo5 u1XJkiX79u27Z88e61xAVujU1QlcqlQp53zWia3Tmw+oChRtYVp6bWfWQSIG vcvKBx984Gy7fDhaQOzbt++NN94oW7ass0OVL19+6NChPL8MH9BprJNZp7Rz busk16nOHQYCQluYNjKtuzY16yyRgd5lYufOnc6n044dO9Y6C3KclrtXr17F ihVzdqUqVapo3XklKnxGp7RObOeNQqITXqc9b3sMAq27VlybGu8GOhX0LhP3 33+/ztJbb73VOghyljad7t27O6/ik7p1686cOdM6FJCzdJLrVHfO+QIFCugS oH35nrYzLbe2NusgEYDe5b6vvvrKGUexsbHWWZBTEhMTX3jhBedVx1FRUU2a NOHSQKDohNdp73y+lS4EXQ66KKxDIadoO9OmprXWBmedxevoXS5LSkpyXgXx +uuvW2dBjjhw4MCgQYOcFzxIo0aNuCMuAksnvy6B8LtIdGnoArEOhRyhTc25 /aC2OessnkbvctmTTz6pM7NGjRrJycnWWZDNtKYffPBBuXLlnF2mTp06P/30 k3UowJ4uBF0OznWhC0SXCQPQf7Sm1atX1xJrm7PO4mn0Ljf9+uuvMUfx6cb+ M3Xq1Msuuyz8yvkvvvjCOhHgLbooqlat6lwjulh0yVgnQjZjjzsV9C7X6HuB GjVq8L2A/8ydOzd8B9SLLrrok08+4YODgUzp0tAFosskfLdVXT7WoZCdeE7n pOhdrnGe+y5fvjzPffvGkiVLbrnlFmcHKVOmzLBhww4dOmQdCvA6XSa6WM49 91zn2tFFxOc8+gavYT4pepc71q9fz3s9/GTXrl2dOnVyPqKuaNGi/fv3p04D p0WXjC4cXT66iHQpdezYUZeVdShkgy+//NJ5z742PussXkTvcofzjh7ubeID R44cGTFihHPb29y5cz/55JO7d++2DgVEKl0+uoh0KTk33tTFxYc8+oBzj0pt fNZBvIje5YK5c+fqDDz77LO5l2+kW7BgQc2aNZ0nR+rXr7969WrrRIAf6FJy Pq9WdInpQrNOhDOyY8cObXlazTlz5lhn8Rx6V05LSUlxXk4/YMAA6yzIOnXm 9u3bOzeBPP/88ydOnGidCPCbSZMm6eJybjWsy41vVCPawIEDtZTVq1fnfUYZ 0Lty2pgxY5ydWsfHOguyIjk5eciQIc6rUPLkydOjRw9eygXkEF1cusR0oTmv nNSlx9viIpS2PKdFaxO0zuIt9K4cdeDAgQsuuEAn3kcffWSdBVnx008/he84 dPvtt//555/WiQD/04Wmy8257nQBcv/hCKWNz7lTLj92SI/elaNeffVVnXXV qlXjlaIRZ+fOna1atXImf4UKFWbMmGGdCAiW6dOn69JzrsEHH3yQpx0jjjY+ bX9avldeecU6i4fQu3LOrl27nCenvv76a+ssOD0TJ050PmAxX758L7zwAt+s ASZ06ekC1GXofLwjr6uMON98843zlDE3CQmjd+Wcxx9/XOfbrbfeah0Ep0Hf U995553Ot9g333xzbGysdSIg6HQZhm9Q3LJlyx07dlgnwmnQJqiF04ZoHcQr 6F05ZN26dXny5ImOjl62bJl1FpyqCRMmlChRQiOicOHCI0aMsI4D4Bhdkrow dXnqIv3000+t4+BUaRPUVqgNUduidRZPoHflkHvuuUfzoV27dtZBcEr0HbS+ jw5/aklcXJx1IgAZ6cJs0KCBc522aNGCH3xFCm2FWjJti9ZBPIHelRMWLlwY FRWVP3/+zZs3W2fByY0fP975MVeRIkVGjhxpHQfAiegi1aXq3N9eF691HJyc tkJtiNoWtTlaZ7FH78oJ9erV00zo0aOHdRCcxPbt25s3b+58+6zvozdu3Gid CMDJ6VJ1XjUkuoR1IVsnwkloQ9RiaXO0DmKP3pXtpk+f7rz1JiEhwToLTmTc uHHOxyzqe+f33nvPOg6A0zNq1KjwD76ef/75w4cPWyfCcWlDdN4kzj156F3Z Sxf+pZdeqlNr6NCh1llwIn379nW+WdZ3zfyYC4hQ6X/wVaNGDes4OJEhQ4Zo mbRFBrwh07uy1/Dhw3VeXXLJJYcOHbLOguNatmxZ7ty5o6KieNMi4ANPP/20 Bm9MTAzvH/cybYvaHLVS2iits1iid2Wjffv2lS5dWifVlClTrLPguPStVvXq 1bVMXbp0sc4CIHu0b9/e+RTmgP8sxeO0OWqZtFFqu7TOYobelY169eqlM+q6 666zDoITeemll5yP/tH5bJ0FQPbQ5ex8qJAucOssOBFtkVqm3r17WwcxQ+/K Llu3bi1QoIBOp/nz51tnwXEtX748T548UVFR3333nXUWANlJF7UubV3gusyt s+C4tEVqoyxYsKA2TessNuhd2aVDhw7OZ1hYB8FxHT58uEaNGlqmzp07W2cB kP10aTsvsOfZRi9zblKtTdM6iA16V7b4/fffY2JicufOvXbtWussOK6XX37Z eYYxyC8tAHxMl7bzbKMudussOK4///xT26U2TW2d1lkM0LuyRZs2bXSld+rU yToIjmvFihXOM4zffvutdRYAOUUXuPNsoy556yw4Lm2X2jS1dVoHMUDvOnMb N250qntsbKx1FmTu8OHDV111Fd0YCAJnT9clz7ONnrV+/fpcuXJp6wzg7RPp XWeuW7duusYfeOAB6yA4rn79+mmNypcvzzOMgO/pMtfFrkteF751FhxXq1at tEZdu3a1DuI2etcZ0mEpUKBAVFQU76DxrJUrVzrPMM6dO9c6CwA36GLXJZ87 d+45c+ZYZ0HmtGlqjbSBahu1zuIqetcZ6t27txp748aNrYMgc0eOHLn66qu1 Rh07drTOAsA99957ry58bet8eohnaesM4L286F1nYt++feecc45Om3nz5lln QebeffddLVC5cuV4hhEIlO3bt8fExOjy79+/v3UWZE5bpxZI22ig5jO960y8 8cYbOmfq1q1rHQSZ27VrV/HixbVGkydPts4CwG2DBw/W5a8hELRnsiKINlCt kTZT6yDuoXdl2cGDB8uWLasTZubMmdZZkLlHH31UC3TzzTdbBwFgQ5e/hoBG gXUQZE4bqBZIm6m2VOssLqF3ZdmoUaN0tlSpUsU6CDK3ePHi6Ojo3LlzB/PW fABCR29qrSGgUaCBYJ0FmdM2qs1UW6p1EJfQu7LmyJEjFStW1Kkybtw46yzI REpKyjXXXKMFevrpp62zALCkIaBRoIGgsWCdBZnQNqoF0paqjdU6ixvoXVkz adIknScXXnhhcnKydRZkYvTo0Vqg8847L1Av1wTwTxoCGgUaCBoL1lmQCW2j 2ky1QNpYrbO4gd6VNc7Nz4cPH24dBJnYs2dPqVKl+GkkAIfzExWNBQ0H6yzI hDZT5yMGrIO4gd6VBV9//bXOkNKlS+tLts6CTDz22GNaoBtuuME6CACv0EDQ WNBwsA6CTGgz1ZaqBfrmm2+ss+Q4elcW/Nd//ZdOj4EDB1oHQSaWLVsWExOT K1cuPhUXQJgGgsaChoNGhHUWZEJbqjZWba/WQXIcvet0LVy4UOfG2WefnZCQ YJ0FmXDuBtOtWzfrIAC8xfksXe646E3aUrWxaoF++eUX6yw5i951upo3b64T 47nnnrMOgkyMHTvWeQp479691lkAeIvGgvNklgaFdRZk4tlnn9XqaJO1DpKz 6F2n5ffff4+KisqXL9/27dutsyCj/fv3O3ey/fDDD62zAPAiDQfnLp0aF9ZZ kJE2Vm2v2mT9fdNFetdpadu2ra7Zzp07WwdBJl599VXnHTHcpQdApjQcnHej a1xYZ0EmOnXqpNVp166ddZAcRO86dRs3bsydO3dMTExsbKx1FmS0d+9e5zPK Z8+ebZ0FgHc5b0jXuODVCB6k7VWbrLbaTZs2WWfJKfSuU/fMM8/oar3//vut gyATzz//vFbnpptusg4CwOs0KDQuNDSsgyAT2mS1OtpwrYPkFHrXKTp06JDz gsyff/7ZOgsy2r59e8GCBbU6CxYssM4CwOs0KDQuNDR4pa4HaZN13h6lbdc6 S46gd52iKVOm6Ey44oorrIMgE126dAnCu2AAZBfnnekaHdZBkIkrr7xSqzN5 8mTrIDmC3nWKbr31Vp0GgwcPtg6CjGJjY3Pnzh0dHb1q1SrrLAAig8aFhoZG B6/X9aC3335bG662XesgOYLedSo2bNigKzRfvny7d++2zoKMWrVqpSu0bdu2 1kEARBLn/ekaINZBkJG2Wm242na1+VpnyX70rlPRq1cvLk9vWr58ua7NvHnz +vLyBJBzNDQ0OjRANEassyCjBx98UNtuz549rYNkP3rXSSUnJzt34/zxxx+t syCjJk2a8KlAALLG+eQgjRHrIMhIG65zh1ttwdZZshm966Q+++wzrf6ll15q HQQZ6WTT0hQqVGjnzp3WWQBEHo0ODRCNEf/tXD6gbVdLoy3YOkg2o3edVOPG jbX0r7/+unUQZOR8BHafPn2sgwCIVL1799YYqVevnnUQZPTGG29oabQFWwfJ ZvSuE9u8eXNMTEyePHni4+Ots+BvvvnmG12SJUqUSExMtM4CIFJpgGiMaJho pFhnwd9o29Xmqy1YG7F1luxE7zqxl156SdfjPffcYx0EGdWvX19LM2DAAOsg ACKbxoiGiUaKdRBkpM1XS6ON2DpIdqJ3ncCRI0cuuOACLfqcOXOss+BvFi1a pHUpUqQIn7AG4AxpjGiYaKRosFhnwd/MnTtX66KNWNuxdZZsQ+86gS+//FIr ftFFF6WkpFhnwd+0bNnS3x/gBcBNzsfvarBYB8HfaPPVFqyl0XZsnSXb0LtO oEWLFjyT5UFr1qxx7tm1bds26ywA/EDDxLmXl8aLdRb8jfMssLZj6yDZht51 PLoMcx3FB6d6Tfv27XUZPvroo9ZBAPiHRooGi8aLdRD8jbZgn+3F9K7j8V/H 9octW7Y473BZu3atdRYA/qGR4rx7XUPGOgv+xmfPPdG7MuXL55T94amnntK6 3H333dZBAPiNBovGi4aMdRD8jc9ea03vytScOXP89x4KH9izZ0/hwoW1NEuW LLHOAsBvNFg0XjRkNGqss+CY8L0F5s6da50lG9C7MuXLe4b4QN++fbUuDRo0 sA4CwJ80XjRkNGqsg+Bv/HQvTXrXP/n1HrmRbv/+/SVLltSl9+2331pnAeBP Gi8aMqVKldLAsc6CY/z02TH0rn8aPHgwn1DvQUOHDtW61KpVyzoIAD/TkNGo 0cCxDoK/cT4r+a233rIOcqboXf/kfNryp59+ah0ExyQnJ5cvX17rMnXqVOss APxsypQpGjUVKlTQ2LHOgmMmTJigdalTp451kDNF78pg27Zt0dHR+fLl27dv n3UWHDNjxgxdcZdccok/3s8CwLOOHDmiUaOBo7FjnQXHaFPW1qwNOtLvmE3v ymDYsGG63Jo2bWodBH9z2223aV3efPNN6yAA/E+jRgNHY8c6CP5GW7PWRdu0 dZAzQu/KoH79+lrWjz/+2DoIjomNjXV+CLlr1y7rLAD8b/fu3c6PVjR8rLPg GG3N2qC1TVsHOSP0rvT0NebKlSt37tzcvMVTnI+sbdOmjXUQAEHRtm1bjR0N H+sgOEZbszZobdParK2zZB29K73333+fny17zcGDB53bRyxYsMA6C4Cg0MDR 2NHw0QiyzoJjbr/9dq2LNmvrIFlH70qvYcOGWtD33nvPOgiO+eSTT7Qo1atX tw4CIFg0djR8NIKsg+CYUaNGaVHUvqyDZB29K2zv3r3O7VJ9cFs2P6lTp46u spEjR1oHARAsGjv+uHGBn2iDdm6gqi3bOksW0bvCxowZo0vsv/7rv6yD4JgV K1ZoUYoUKaJzzzoLgGDR2NHw0QjSILLOgmO0TWtRtGVbB8kieldYs2bNtJTv vPOOdRAc06VLFy2K/t86CIAgYgR5kLZpLYq2bOsgWUTvcuhLy58/f1RU1Nat W62zIE34m82VK1daZwEQRBo+/Mjda7RNa7PWlh2hi0LvckycOFEX1/XXX28d BMeMGDFCi1K3bl3rIACCy/nkOI0j6yA4Rpu1FkUbt3WQrKB3Oe655x4t4qBB g6yD4Jhq1appUcaNG2cdBEBwaQTxlmqvcT5QQBu3dZCsoHeJkhcqVEiLGBcX Z50FaX755RdungPAXPgWghpK1lmQRpu1VkQbt7Zv6yynjd4l06dP1wpeffXV 1kFwTNeuXbUoTzzxhHUQAEGnQaRxpKFkHQTHaMvWomj7tg5y2uhd8uCDD2r5 Bg4caB0EaZKTk0uXLq1F+fXXX62zAAg6DSKNIw0ljSbrLEijLVuLou3bOshp o3cdOnSoaNGiWr61a9daZ0Ga2bNna0UqVapkHQQAUmkcaShpNFkHQRpt2VoR bd/axK2znB5615dffqm1q1q1qnUQHNOmTRstyksvvWQdBABSaRxpKLVu3do6 CI6pUqWKFkWbuHWQ00Pvat++PVu8p+hEKly4MD+BBOAdf/31l4aSRtP+/fut syDNiy++qEXp0KGDdZDTE/DelZycXKJECS3cqlWrrLMgjXMvtdq1a1sHAYBj NJQi955RvuTc1VabeGS97i7gvevnn3/WqlWsWNE6CI5p2rSpFmXw4MHWQQDg GA0ljSYNKOsgOEbbtxZl/vz51kFOQ8B7V79+/bRknTp1sg6CNLt3786TJ09M TMz27dutswDAMRpKGk0aUBpT1lmQpnPnztrEtZVbBzkNAe9dN998s5Zs0qRJ 1kGQZuTIkVqRBg0aWAcBgIw0mjSg3nvvPesgSDN58mStSP369a2DnIYg964D Bw44n4UdHx9vnQVpbrzxRl1EH374oXUQAMhIo0kDSmPKOgjSqJk4n5GtDd06 y6kKcu/6/vvvuYOEp2zevDk6OlpXUGJionUWAMhIoylfvnwaUxpW1lmQRpu4 tnJt6NZBTlWQe1fv3r21WI8//rh1EKR57bXXtCJ33XWXdRAAyJwGlMaUhpV1 EKTp3r27VkQbunWQUxXk3lW3bl0t1meffWYdBGlq1KgRoZ+3BSAgpk2bpjGl YWUdBGk+//xzrUidOnWsg5yqwPaupKQk531ze/futc6CVJs2bXI+Xz6CnqYH EDQaUBpTGlYaWdZZkCohIcF5n6m2desspySwvcv5BMBatWpZB0Ga4cOHa0Va tGhhHQQATkRjSsNKI8s6CNJoK4+gT88MbO965plntEz6f+sgSNOoUSOtyOjR o62DAMCJfPDBBxpWDRs2tA6CNM8++2wEbeiB7V2RVY99LykpyXmX0I4dO6yz AMCJaExpWGlkRcoTW74XWU9gBbN37d27N7KeDva9GTNm8JmMACLFNddco5Gl wWUdBKnCL9hOSEiwznJywexdn332mS6ZunXrWgdBmocfflgr0rdvX+sgAHBy GlYaWRpc1kGQJoJuUBDM3vX4449H1u0+/C0lJaVMmTJakWXLlllnAYCT07DS yNLg0viyzoJUzg05u3fvbh3k5ILZuyLu9rb+tmjRIi1HuXLlrIP43Lx58yoh MLTc1mecz2lkaXAtXrzYOghSRdAH0ASwd8XHx0fcxzn5W58+fXS9dO7c2TqI z3399ddnITC03NZnnM9pZOk4a3xZB0Gq8Acuq6tYZzmJAPauSZMm6WK5+eab rYMgjXOb+i+//NI6iM85vev666//A76mJaZ3uWDWrFlnceN6L6lfv75WRFu8 dZCTCGDv6tSpk5amX79+1kGQasuWLfoOpWDBgvz4Mac5veuWW26xDoKcpSWm d7lAI0uDS+NLQ8w6C1JpWz8rEp46CWDvuvTSS7U0P//8s3UQpBoxYoSWo1mz ZtZB/I/eFRD0LtdocOlQa4hZB0EqbetaDm3x1kFOImi9a+vWrVqXwoULHz58 2DoLUjVu3FgrMmrUKOsg/kfvCgh6l2s0uHSomzRpYh0EqbSta3PXimijt85y IkHrXWPHjtWiNGrUyDoIUukycT5h1uOXiT/QuwKC3uUa5xt5DTG+kfeIhg0b akU++eQT6yAnErTe5bwD5dVXX7UOglQLFiyIiB8L+wO9KyDoXW6qVKmSjvbC hQutgyCVNnfvv8QraL3ruuuu06LMmTPHOghSvfLKK1qORx991DpIINC7AoLe 5aZHHnmE7+W9Y+7cuVqOa6+91jrIiQSqdx05csR5Vsv79/cICOdnwuPGjbMO Egj0roCgd7lJ40tHW6PMOghS7dq1S8tRsGBBbffWWY4rUL3rjz/+OIv7ontG cnJykSJFtCK8C9sd9K6AoHe5SeNLR1ujTAPNOgtSXXDBBVoRbffWQY4rUL1r /PjxWo6mTZtaB0GqxYsXazkuvvhi6yBBQe8KCHqXyzTEzuIDgzxDW7yWQ9u9 dZDjClTv+s9//qPleOGFF6yDINXrr7+u5Wjfvr11kKCgdwUEvctlGmI64G+8 8YZ1EKTSFq/l0HZvHeS4AtW7GjRooOWYMWOGdRCkatKkiZZjzJgx1kGCgt4V EPQul3388cc64HfccYd1EKTSFu/xQReo3lWyZEktR1xcnHUQpL7HoWjRolqO jRs3WmcJCnpXQNC7XKY9RQe8WLFiXn4td3BoT9FyaLu3DnJcweldmzdv1lqc c8451kGQ6rffftNyVKhQwTpIgNC7AoLe5T6NMh1zjTXrIEiljV7LoU3fOkjm gtO7Pv/8cy1E/fr1rYMg1VtvvaXlaNu2rXWQAKF3BQS9y30aZTrmGmvWQZBK G72WQ5u+dZDMBad3vfTSS1qIp556yjoIUjVv3lzL8cEHH1gHCRB6V0DQu9yn UaZjrrFmHQSptNFrObTpWwfJXHB6V4sWLbz/sU0BkZKSUrx4cS3H+vXrrbME CL0rIOhd7ouNjdUx11jTcLPOgpA2ei2HNn3rIJkLTu9ynn9ftWqVdRCEVq5c yQ1s3UfvCgh6l4nzzz9fh13DzToIQtrovfz64YD0rj179mgV8ufPzy2FveDD Dz/Uctx1113WQYKF3hUQ9C4Td999tw67hpt1EKR+GIq2ey2Htn7rLJkISO/6 7rvvtAS1a9e2DoJUXbt21XIMGDDAOkiw0LsCgt5lYuDAgTrsGm7WQZBK272W Q1u/dZBMBKR3vfnmm1qCjh07WgdBqjp16rAvuI/eFRD0LhPO9aXhZh0EqbTd azkGDRpkHSQTAeldrVu31hKMGDHCOghS75haqFAhLUd8fLx1lmChdwUEvcuE tkgddg037p7qBe+++66WQ1u/dZBMBKR3XXnllVqChQsXWgdB6I8//uBF9Sbo XQFB77KisaYj//vvv1sHQUjbvdZCW791kEwEoXcdOHAgV65cMTEx+/fvt86C tHf4NmvWzDpI4NC7AoLeZUVjjbsVeYS2e2362vpVAKyzZBSE3rVo0SJdC5Ur V7YOglRPPvmkl+9o52P0roCgd1lx7s6tEWcdBKm06Ws5Fi9ebB0koyD0rpEj R+rgt2rVyjoIUt10001ajpkzZ1oHCRx6V0DQu6xorOnIa8RZB0GqBx54QMvx 3nvvWQfJKAi967HHHtPBf/31162DIFXRokW1HNu2bbMOEjj0roCgd1nRWNOR 14izDoJUr732mpZDBcA6SEZB6F2NGjXSwZ8+fbp1EITWrVuntShTpox1kCCi dwUEvcuQhpsOvgaddRCEpk2bprVo3LixdZCMgtC7nCd5ly5dah0EoYkTJ2ot 1IStgwQRvSsg6F2GnG/zJ02aZB0EIW36WosrrrjCOkhGQehdzt2i9u7dax0E oWeffVZr0atXL+sgQUTvCgh6lyENNx18DTrrIAhp03fuqGYdJCPf966dO3fq yBcrVsw6CFI1aNBAyzFt2jTrIEFE7woIepch57ktDTrrIEjlvJzYa/fo9n3v +uWXX3TYq1evbh0EqUqXLq3liIuLsw4SRPSugKB3GdqwYYMOvgaddRCk0tav 5Vi0aJF1kL/xfe9yXlDUokUL6yAIJSQkaC0KFCiQkpJinSWI6F0BQe8ypOGm Eafjr3FnnQWh5s2bay1UA6yD/I3ve9err76qw/7EE09YB0Fo8eLFWosqVapY BwkoeldA0LtsacR583adAdS9e3ethWqAdZC/8X3v6tSpkw7722+/bR0EoXHj xmkt7rzzTusgAUXvCgh6l62WLVvq+I8fP946CELa+rUWnTt3tg7yN77vXbff frsO+2effWYdBKEXX3xRa/Hcc89ZBwkoeldA0LtsacTp+GvcWQdBSFu/1qJh w4bWQf7G973rsssu02FfsWKFdRCkfWrD6NGjrYMEFL0rIOhdtjTi+GQ6j1i+ fLnWQjXAOsjf+L535c+fX4d937591kEQqlWrltZi3rx51kECit4VEPQuWz/9 9JOOv8addRCEEhMTnTdzWQf5G3/3ru3bt+uYFy9e3DoIUhUrVkzLsWPHDusg AUXvCgh6ly2NOG4a6R0qAF7bd/zduxYsWKADXrNmTesgCMXHx2stihQpYh0k uOhdAUHvMqdBpyXQpmkdBKGrrrpKa6EyYB3kGH/3rvHjx/MGOo+YP38+HdgW vSsg6F3mnL1eQ886CEIqAFqLTz/91DrIMf7uXQMGDNABf+qpp6yDIPTRRx9p Le677z7rIMFF7woIepc5DTotgYaedRCEVAC0FgMHDrQOcoy/e9ejjz6qA/7O O+9YB0Ho+eef11r06dPHOkhw0bsCgt5lrnfv3lqCnj17WgdBaOjQoVoLlQHr IMf4u3c5n8I8c+ZM6yAI3X333VqLsWPHWgcJLnpXQNC7zGnQaQk09KyDIPTF F19oLW699VbrIMf4u3dVrFhRB3zVqlXWQRCqVq2a1mLhwoXWQYKL3hUQ9C5z GnRagurVq1sHQUgFQGtRqVIl6yDH+Lh3paSk5M2bVwc8KSnJOgtCZ599ttZi 165d1kGCi94VEPQucxp0WgINPesgCKkAaC3y5cunSmCdJY2Pe9eWLVt0tEuV KmUdBKH9+/drLVSDrYMEGr0rIOhdXqCNXqug0WcdBKGSJUtqLbZu3WodJI2P e5eScNNgj1i3bp3Wonz58tZBAo3eFRD0Li/QuNMqaPRZB0HaR6V457YePu5d 06ZN06Fu2rSpdRCE5s2bp7W49tprrYMEGr0rIOhdXqBxx8eieUSzZs20FlOn TrUOksbHveuDDz7QoW7Tpo11EIQmTZqktWjRooV1kECjdwUEvcsLNO60Chp9 1kEQatu2rdZi9OjR1kHS+Lh3DRo0SIe6W7du1kEQGjJkiNaic+fO1kECjd4V EPQuL+jSpYtW4e2337YOgtDjjz+utXjzzTetg6Txce/q06ePDvULL7xgHQSh Hj16aC1efvll6yCBRu8KCHqXF2jcaRU0+qyDIKQaoLXo3bu3dZA0Pu5d3bp1 06F+6623rIMg1K5dO63FqFGjrIMEGr0rIOhdXqBxp1XQ6LMOgpBqgNaia9eu 1kHS+Lh3tWnTRof6ww8/tA6C0G233cYHB5ijdwUEvcsLNO60Chp91kEQUg3Q WrRu3do6SBof966mTZvqUE+fPt06CEJVq1bVWixZssQ6SKDRuwKC3uUFGnda BY0+6yAIqQZoLe644w7rIGl83Lvq1aunQ/39999bB0GoVKlSnrptXTDRuwKC 3uUFGndahdKlS1sHQUg1QGuhSmAdJI2Pe1eVKlV0qJcuXWodJOgOHz4cfVRy crJ1lkCjdwUEvcsLNO6Yex6hGqArQpXAOkgaH/eucuXK6VBv2LDBOkjQOR/Y dO6551oHCTp6V0DQuzxCQ08LoQFoHSTo4uLitBCqBNZB0vi4dxUpUkSHeu/e vdZBgm7x4sVaiOrVq1sHCTp6V0DQuzxCQ08LoQFoHSToEhIStBCqBNZB0vi1 dx05ciQqKio6Oto7H0EeWLNmzdI5f+utt1oHCTp6V0DQuzzCeR+3BqB1kKBT DVAZUCVQMbDOksqvvWv37t064YsVK2YdBKGJEydqLe666y7rIEFH7woIepdH aOhpISZMmGAdBCGVAa2FioF1kFR+7V2xsbE6yBUqVLAOgtD777/P/QO9gN4V EPQuj3jooYe0EBqA1kEQUhnQWqgYWAdJ5dfe5dw7hdcUecHgwYM9da/gwKJ3 BQS9yyM09LQQGoDWQZD2WjuP3EPSr71r7ty5Osg33XSTdRCE+vXrx+eUeQG9 KyDoXR7hfC5t3759rYMgpDKgtfj222+tg6Tya++aMmWKDnLz5s2tgyD07LPP ai369+9vHSTo6F0BQe/yiAEDBmghNACtgyCkMqC1UDGwDpLKr72L1xR5x7// /W+txZAhQ6yDBB29KyDoXR6hoaeF0AC0DoKQyoB3Xmvn1971xhtv6CB3797d OghCbdu21Vp88MEH1kGCjt4VEPQuj9DQ00K0adPGOghCKgNaCxUD6yCp/Nq7 evXqpYP80ksvWQdBqGXLllqLSZMmWQcJOnpXQNC7PGLy5MlaCA1A6yAIvfji i1oLFQPrIKn82rsee+wxHeS3337bOghCt956q9biq6++sg4SdPSugKB3eYSG HreM9gjnbfUqBtZBUvm1d7Vu3VoH+aOPPrIOgtB1112ntZg3b551kKCjdwUE vcsjNPS0ENdff711EIQ+/PBD7zzn69fe1apVKx3ksWPHWgdBqEqVKlqLZcuW WQcJOnpXQNC7PGLp0qVaCA1A6yAIqQxoLVQMrIOkonchp1144YVai3Xr1lkH CTp6V0DQuzxCQ08LoQFoHQT0LjfQu7yjZMmSWosdO3ZYBwk6eldA0Ls8QkNP C1GqVCnrIKB3uYHe5R0FCxbUWujksQ4SdPSugKB3ecS+ffu0EIUKFbIOAnqX G+hd3kHv8gh6V0DQuzxCQ08LoQFoHQT0LjfQu7yD3uUR9K6AoHd5BL3LO+hd LqB3eQe9yyPoXQFB7/IIepd30LtcQO/yDnqXR9C7AoLe5RH0Lu+gd7mA3uUd 9C6PoHcFBL3LI+hd3kHvcgG9yzvoXR5B7woIepdH0Lu8g97lAnqXd9C7PILe FRD0Lo+gd3kHvcsF9C7voHd5BL0rIOhdHkHv8g56lwvoXd5B7/IIeldA0Ls8 gt7lHfQuF9C7vIPe5RH0roCgd3kEvcs76F0uoHd5B73LI+hdAUHv8gh6l3fQ u1xA7/IOepdH0LsCgt7lEfQu76B3uYDe5R30Lo+gdwUEvcsj6F3eQe9yAb3L OwoXLqy1SExMtA4SdPSugKB3eYSGnhZCA9A6COhdbqB3ece5556rtdi2bZt1 kKCjdwUEvcsjNPS0EBqA1kFA73IDvcs7Lr74Yq3Fn3/+aR0k6OhdAUHv8oi1 a9dqITQArYOA3uUGepd3VK9eXWuxZMkS6yBBR+8KCHqXR2joaSGqVatmHQT0 Lje0bdtWB3n06NHWQRCqW7eu1uLHH3+0DhJ09K6AoHd5hIaeFkID0DoIQh98 8IHWQsXAOkgqv/auxx9/XAf5zTfftA6C0O233661mDlzpnWQoKN3BQS9yyNm zZqlhdAAtA6C0KBBg7QW3bp1sw6Syq+964UXXtBB7t27t3UQhO6++26txYQJ E6yDBB29KyDoXR6hoaeFuOuuu6yDINSnTx+thf7fOkgqv/aut956Swe5a9eu 1kEQeuihh7QW77//vnWQoKN3BQS9yyM09LQQGoDWQRDq1q2b1kLFwDpIKr/2 rg8//FAHuXXr1tZBEFL79c4JH2T0roCgd3kE3/57R5s2bbQWKgbWQVL5tXdN nz5dB/mOO+6wDoLQ888/r7Xo27evdZCgo3cFBL3LIzT0tBAagNZBEGratKnW QsXAOkgqv/au77//Xge5Xr161kEQGjBggNbi2WeftQ4SdPSugKB3eYSGnhZC A9A6CEI33HCD1kLFwDpIKr/2rqVLl+ogV6lSxToIQkOGDNFadOnSxTpI0NG7 AoLe5REaeloIDUDrIAipDGgtVAysg6Tya+/asGGDDnK5cuWsgyDttXZt2rSx DhJ09K6AoHd5hKdeUxRwKgNaCxUD6yCp/Nq7EhISdJCLFCliHQShyZMnay1a tmxpHSTo6F0BQe/yCA09LYQGoHUQhFQGtBZ79+61DpLKr70rJSUlOjo6Kirq yJEj1lmCbvbs2Trhb775ZusgQUfvCgh6l0do6LEQXqAaoDKgSqBiYJ0llV97 lxQrVkzn/O7du62DBN2yZcu0EFdccYV1kKCjdwUEvcsjrrzySu+8pijIVAO0 EKoE1kHS+Lh3VahQQYc6NjbWOkjQ7dixQwtRvHhx6yBBR+8KCHqXR5QoUUIL oQFoHSToVAO0EKoE1kHS+Lh3Va9eXYd6yZIl1kGCLiUlJVeuXFFRUYcOHbLO Emj0roCgd3mBxp2GnkYfr3UxpxqgK0KVwDpIGh/3rptuukmH+ttvv7UOglDZ smW1Fhs3brQOEmj0roCgd3mBxp1WQaPPOghCqgFaC1UC6yBpfNy7mjdvrkM9 depU6yAI1axZU2uxcOFC6yCBRu8KCHqXF2jcaRU0+qyDIDRlyhSthSqBdZA0 Pu5d7dq106EePXq0dRCEGjdu7J3PaAgseldA0Lu8YMaMGVoFjT7rIEj7gHJV AusgaXzcu7p3765D/cYbb1gHQejhhx/WWrz77rvWQQKN3hUQ9C4v0LjTKmj0 WQdBSDVAa6FKYB0kjY9714svvqhD3atXL+sgCPXu3Vtr0adPH+sggUbvCgh6 lxdo3GkVNPqsgyCkGqC1UCWwDpLGx71r8ODBOtSPPfaYdRCEhg8frrV45JFH rIMEGr0rIOhdXqBxp1XQ6LMOgpBqgNbi7bfftg6Sxse966OPPtKhfvDBB62D IDRt2jStRZMmTayDBBq9KyDoXV6gcceLWj1CNUBr8fHHH1sHSePj3uW8rJG9 3gsWLFigtbj66qutgwQavSsg6F1e4LyJW6PPOgjS3tj12WefWQdJ4+PetWjR Ik/dKi3I4uLitBb/+te/rIMEGr0rIOhdXqBxp1XQ6LMOglC1atW0FqoE1kHS +Lh3xcfHe+ojmYLs4MGDWovcuXN75GNJg4neFRD0LnMadBp3WgWNPussCBUt WlRroUpgHSSNj3uXFCxYUEd779691kEQKl68uNZi+/bt1kGCi94VEPQuc9u2 bdMSlChRwjoIQioAWotChQpZBznG373riiuu4OPgPaJWrVpai59++sk6SHDR uwKC3mVOg05LULt2besgCP32229aC5UB6yDH+Lt3cZt072jVqhUfH2CL3hUQ 9C5zGnRaAg096yBIeze9pz44wN+969///n/t3XmczfX///9mhsHYGWRNIWu0 UFlaLGUpUVkqEkLvlCWUrSJrlktIe9Ii2mQpSpYoLpIte9aiEPkifM1vzOZ3 n16+B9MYY5w5j9c5r9v1j8+l9/vzjvu8ns/n4/E4Z855vZ7WBR83bpx1EJy5 jW3//v2tg3gXc5dHMHeZ69evn5ZgyJAh1kFwWgOA2+7kGdpz19ixY3XBe/To YR0Epz/55BOtxYMPPmgdxLuYuzyCucucCp2WQEXPOghOd+/e3W1PDAztuct5 CnmzZs2sg+D06tWrtRZVq1a1DuJdzF0ewdxlToVOS6CiZx0Ep++77z6thYYB 6yBnhfbctWbNGnq9Sxw7dkxrERUVxa0krDB3eQRzly2VOBU6LYGKnnUWnJmB 165dax3krNCeuw4fPqwLnidPHusgSFakSBEtx59//mkdxKOYuzyCucuWSpyu v8qddRAk0wCg5Thy5Ih1kLNCe+467cpr7ll16tTRWnz//ffWQTyKucsjmLts LVq0SNdf5c46CFz63kvIz13Oe4xr1qyxDoLTHTp00Fq89dZb1kE8irnLI5i7 bKnE6fp37NjROgjOfNaoWrVq1kHOE/Jzlws/U+dZI0eO1Fr07t3bOohHMXd5 BHOXLZU4XX+VO+sgcOl360J+7urRo4fbvkPqWdOnT9daaBK2DuJRzF0ewdxl q2nTprzYdwl33ksq5OcuF94zzbM2bNigtahQoYJ1EI9i7vII5i5bKnG6/ip3 1kHg0nunh/zc5cJnBHhWTExMWFhYZGRkQkKCdRYvYu7yCOYuQypuKnEqdCp3 1lng0mcFhvzctW7dOrc9E9PLSpUqpeXYtm2bdRAvYu7yCOYuQypuuvgqdNZB kKxy5cpaDo0B1kHOE/Jz1z///KPLnitXLusgSOZ8zYHHZ5hg7vII5i5Dn376 KZ9idY+cOXNqOTQGWAc5T8jPXZIvXz5d+UOHDlkHwenBgwdrLZ599lnrIF7E 3OURzF2GnnvuOV18FTrrIDitpq+1yJ8/v3WQlLwwd91www26+KtWrbIOgtNf ffWV1qJ+/frWQbyIucsjmLsMqbjp4qvQWQfB6ZUrV2otNABYB0nJC3PX/fff r4v/xRdfWAfB6X379mktChQoYB3Ei5i7PIK5y5CKmy7+3r17rYPg9Oeff661 0ABgHSQlL8xdffr00cUfPny4dRAkc57S+Pvvv1sH8RzmLo9g7rKisqYrX7hw YesgSDZs2DAthwYA6yApeWHumjJlii5+ixYtrIMgWePGjbmpoAnmLo9g7rLi 3B1dJc46CJKp6Ws5NABYB0nJC3PXpk2bdPHLlCljHQTJBg4cqOXQ/7UO4jnM XR7B3GWF4uYqavpajo0bN1oHSckLc1dCQkL27NnDwsKOHTtmnQVnXhI2atTI OojnMHd5BHOXFZU13sx3CbV7NX21/vj4eOssKXlh7pKbb75Zx+HHH3+0DgI+ AmGGucsjmLusqKzx4VWX+OGHH7QWNWrUsA6SCo/MXV26dNESTJgwwToIkvGV HxPMXR7B3GVCBY0va7vH+PHjtRxq/dZBUuGRuevNN9/UErRv3946CJJxixsT zF0ewdxlwrk5YYMGDayDIJnavZZDrd86SCo8MnetWLFCS1CtWjXrIEjGLZ1N MHd5BHOXCedhHCpu1kGQTO1ey6HWbx0kFR6Zu06ePBkeHp41a9ZTp05ZZwGP MLPB3OURzF0mmjZtqsuu4mYdBKfV6NXu1fTV+q2zpMIjc5dUrFhRh2Lt2rXW QXB6165dWotChQpZB/EW5i6PYO4yoYKmy67iZh0Ep9esWaO1UNO3DpI678xd jzzyiBbivffesw6CZMWLF9dybN682TqIhzB3eQRzV+A5d4lUWbMOgmSTJk3S cqjpWwdJnXfmrjFjxmghnn76aesgSOaMwW+88YZ1EA9h7vII5q7Ae/31193c 6L1GjV7LoaZvHSR13pm7Fi5cqIWoXbu2dRAke+edd7QcrVq1sg7iIcxdHsHc FXgqZbrmb7/9tnUQJFOj13Ko6VsHSZ135i7l10LkypUrKSnJOgtOb9u2Tctx 5ZVXWgfxEOYuj2DuCjyVMl1zlTXrIDitFq9Gr+VQ07fOkjrvzF1SsmRJrcX2 7dutgyCZU6m2bt1qHcQrmLs8grkrwFTEeBXpHs6LerV76yAX5Km567777tNy fPbZZ9ZBkKx169a8Mx9IzF0ewdwVYG+99ZYuuAqadRAkc/99ijw1dw0aNEjL 0a9fP+sgSPbGG2/wSdRAYu7yCOauAHv44Yf5lpB79O3bV8uhdm8d5II8NXfN nDlTy9GwYUPrIEi2ZcsWvnkdSMxdHsHcFWDFihXTBVdBsw6CZGrxWo5Zs2ZZ B7kgT81du3fv1nIULlzYOgjO0FpoRXbs2GEdxBOYuzyCuSuQVL5oK67itBW1 e+sgF+SpuUvy58+vFdm/f791ECRr0aKFlmPSpEnWQTyBucsjmLsCyblFp0qZ dRAk27dvn5ajQIEC1kHS4rW5q169elqUuXPnWgdBsokTJ2o5Hn30UesgnsDc 5RHMXYHUtm1bXW2VMusgSDZnzhwthxq9dZC0eG3u6tWrlxblpZdesg6CZBs2 bNBylCpVyjqIJzB3eQRzVyA5tyfauHGjdRAkU3PXcvTu3ds6SFq8Nnc5H62/ 8847rYMgWVJSUsGCBbUiO3futM4S+pi7PIK5K2BUuHSpVcS4HbdL1K1bVysy Y8YM6yBp8drcdeTIkfDw8GzZsimtdRYkc76CPX78eOsgoY+5yyOYuwJmwoQJ utQPPfSQdRAkU1vPnj27WrwavXWWtHht7pIbb7xRJ2XRokXWQZBs6tSpWo4G DRpYBwl9zF0ewdwVMCpcutQqYtZBkExtXcuhFm8d5CI8OHf16dNHSzNw4EDr IEimFyYRERFZs2Y9duyYdZYQx9zlEcxdgXH8+PHIyEiVr8OHD1tnQbLnn3/e /R/uOu3Jueubb77R0tSsWdM6CM64/fbbtSJffPGFdZAQ58xd119//VcIaVpi 5q4AUMnSdVb5sg6CM2rVqhUU9yvw4Nx14sSJLP/SP1hnQbIxY8bosLRr1846 SIhz5i54BHNXZlPJ0nVW+bIOgmS+zn78+HHrLBfhwblLatasqfPyzTffWAdB sl9//VXLER0dnZiYaJ0llP3yyy9N4RlabusdF8pUrFSyVLhUvqyzIFkQ/SbL m3PXwIEDtUB9+vSxDoIzypYtqxUJis0DACpWKlkqXNZBcMazzz6rFRkwYIB1 kIvz5ty1cOFCLdBNN91kHQRn9OzZUyvSr18/6yAAcHEqVipZKlzWQXCGGrpW RM3dOsjFeXPuiomJyZYtm/vv8uEdzvd/q1SpYh0EAC5OxeoK7kfkGkePHnXu zKnmbp3l4rw5d8mdd96pUzNz5kzrIEgWFxeXN29ercjvv/9unQUA0qIypWKl kqXCZZ0FyYLrSTSenbucpzh1797dOgjOaNWq1RU8XhaA67366qsqVipZ1kFw hlr5FcHz5GXPzl1Lly7lF1uuMmXKFK3I3XffbR0EANKiMqVipZJlHQRnOL/2 VVu3DpIunp274uLioqKiwsLCDh48aJ0FybTBIiIiIiMj3X/3FQCe5btNvUqW dRYkUxNXK8+ZM2ew/NrXs3PX6f/3muWzzz6zDoIz7rjjDq3Ihx9+aB0EAFKn AqUypWJlHQRnfPrpp1qRhg0bWgdJLy/PXS+//LIW64knnrAOgjPeeeed4Do+ ALxGBUpl6u2337YOgjPUxLUiaujWQdLLy3PXypUrtVjlypWzDoIzDh8+7LyB zy9/AbiQSpPzcQiehe0eauJq5Wro1kHSy8tzV0JCgnPvgj///NM6C8647777 tCKvvvqqdRAASMn5JqPKlHUQnKH27dzTQw3dOkt6eXnukqZNm2rJPvroI+sg OOOzzz7Titx6663WQQAgJZUmPhXsKs7H7YJrEvb43DVu3DgtWfv27a2D4IyY mJjcuXNrUXbt2mWdBQDOUlFSacqVK1dQ3BTdI9S+tShq5dZBLoHH567169dr yYoXL56UlGSdBWc8+uijWpShQ4daBwGAs1SUVJpUoKyD4Aw1brVvLYpauXWW S+DxuUtKlSqlVfvpp5+sg+CMefPmaUUqVqxoHQQAzlJRUmlSgbIOgjNWrFih FVETtw5yaZi7nnnmGS1cnz59rIPgjISEhMKFC2tR1q5da50FAJKpHKkoqTQF 0ee3Q96zzz6rRenZs6d1kEvD3LVs2TIt3DXXXGMdBGd169aNYRiAe6gcqSip NFkHwVlq3EH0eCAf5q6kpKSiRYvy7oqr/PTTT1qREiVKJCYmWmcB4HUqRM7n iPhEinv88ssvWhG176BrE8xd0rVrVy3fwIEDrYPgLOeFzOLFi62DAPA6FSJ+ LeI2atlaFLVv6yCXjLlLFi1apOWrUKGCdRCc9fzzz2tROnXqZB0EgNepEKkc qShZB8FZatlaFLVv6yCXjLnr9L8f5I6OjtYKbt682ToLzti6datzq5zjx49b ZwHgXSpBKkQqRypK1llwhpq1VkSNOxi/5sDc5XBezgwZMsQ6CM6qW7euFuX1 11+3DgLAu9544w0VojvvvNM6CM5Ss9aiPP7449ZBMoK5y/Htt99qEatWrWod BGd9/vnnWpTrrrvOOggA71IJ4tlAblOtWjUtihq3dZCMYO5yxMXF5cuXT+u4 Y8cO6yw4Q4ty5ZVXalGWLVtmnQWAFzk3GipSpIjKkXUWnKE2rUVRyw7SRWHu 8nEeT/Pyyy9bB8FZzjdW2rRpYx0EgBep+PBtd7dRmw7qBzYxd/nMmjVLS1mj Rg3rIDhrz5494eHh2bJlO3TokHUWAN6isqPioxKkQmSdBWepTatZq2VbB8kg 5i4f5Xe+tMIRc5WmTZtqUUaPHm0dBIC3qOyo+KgEWQfBWWrQzlfd1bKts2QQ c9e5WrVqpQUdN26cdRCcNXfuXC1KmTJlkpKSrLMA8AoVHJUdFR+VIOssOEsN WovSunVr6yAZx9x1rs8++0wLWqdOHesgOCsxMbF06dJal3nz5llnAeAVKjgq Oyo+QfcYmtBWu3Ztrcvnn39uHSTjmLvOpR8we/bs4eHhf/31l3UWnDVy5Egd tGbNmlkHAeAVKjgqOyo+1kFw1v79+9Wgc+TIoWZtnSXjmLtSaN68OffqdJuD Bw9GRkZGRET8+eef1lkAhD6VGhUclR0VH+ssOEutWQ1abdo6yGVh7kphypQp WtZ69epZB8F5HnroIa3Liy++aB0EQOhTqVHBefjhh62D4DxqzVoXtWnrIJeF uSuFf/75x3lrhRsXuMoPP/yg41a0aNFTp05ZZwEQylRkVGpUcFR2rLPgLDVl 501ItWnrLJeFueu/GjdurBM3adIk6yA4j/NgiHfffdc6CIBQpuKvUqOCYx0E 51Hx17o0adLEOsjlYu76r8mTJ2txb7vtNusgOM+0adO0Ltdeey1fLwKQSVRe VGRUalRwrLPgPGrKWhc1aOsgl4u567/0Y+bOnVvr++uvv1pnwVkJCQnXXHON 1mX69OnWWQCEJpUXFZmrr75aBcc6C87aunWr1kWt+cSJE9ZZLhdzV6qeeOIJ LXGvXr2sg+A8b7zxhtalevXq1kEAhCaVFxUZlRrrIDhP7969tS5dunSxDuIH zF2pWr16tZY4OjqaT3G7ivZY4cKFtTQLFy60zgIg1KiwqLyoyPx/QfsMmpCk Rqx2rKVZtWqVdRY/YO66kBtuuEGr/Omnn1oHwXlGjBihdWnQoIF1EAChRoVF 5UVFxjoIzqNGrHVRU7YO4h/MXRfy5ptvciMvFzp69Kjz6bvVq1dbZwEQOpxf c6i8qMhYZ8F56tevH0q//GXuupBjx45FRUWFhYXt3LnTOgvO8+yzz+oMtmzZ 0joIgNChkqLCovJiHQTnUQtWI1Y7VlO2zuIfzF1p6NChg45hv379rIPgPPv3 78+WLVt4ePj27dutswAIBSomKikqLCov1llwHrVgNWK1Y+sgfsPclYbly5dr uYsUKRIfH2+dBefp3Lmzlkb/1zoIgFBASXEnNd8rr7xSS6N2bJ3Fb5i70lal ShWt+JdffmkdBOfhxSkAf+EtdNdS81ULViO2DuJPzF1pmzBhgha9UaNG1kGQ UosWLfgwBoDLx0dGXUvNV0ujRmwdxJ+Yu9J25MiR7Nmz63XQ7t27rbPgPM6X j6Kiov766y/rLACClQqIyoiKyZo1a6yz4Dxqu2q+asFqxNZZ/Im566Latm2r I/nCCy9YB0FKDzzwgJama9eu1kEABCsVEJURFRPrIEhJbVdLoxZsHcTPmLsu 6ocfftDSFy9enMd1uc2WLVsiIiKyZs26a9cu6ywAgo9KhwqIyoiKiXUWnEcN V21XzVct2DqLnzF3pUf58uW1+l9//bV1EKTk3OujTZs21kEABB+VjhC7R0HI +Oqrr7Q0ar7WQfyPuSs9xo4dqw3QtGlT6yBIac+ePc4XkdavX2+dBUAwUdFw vhatMmKdBSmp4artqvlaB/E/5q70OHToUGRkZERExN69e62zIKWePXvqeN57 773WQQAEExUNlQ4VEOsgSEmtVg1XbVfN1zqL/zF3pVOrVq10QocOHWodBCnp YDpPbFy2bJl1FgDBQeXCeRpjSHb2YDdkyBCtTuvWra2DZArmrnRauHChtsFV V12VmJhonQUpDR48WKtz2223WQcBEBzq1KmjoqHSYR0EKanJqtVqddR2rbNk CuaudEpKSrrmmmu0E+bNm2edBSkdP348OjpaqzN37lzrLADcToVC5aJQoUIq HdZZkNK3336r1SlTpozarnWWTMHclX4jR47UZmjYsKF1EKRi3LhxWp1q1aqF 6lEF4BcqESoUKhcqGtZZkAo1Wa2OGq51kMzC3JV+R44cyZUrl/bD2rVrrbMg pdjY2FKlSml1pk6dap0FgHupRKhQqFyoaFhnQUq//PKLVketNsTuUX8u5q5L 0rt3b22JVq1aWQdBKiZPnuy8Ox0XF2edBYAbqTioRKhQqFxYZ0EqWrdurdVR q7UOkomYuy7J3r17nRtK7NixwzoLUkpISKhUqZLO7KhRo6yzAHAjFQeVCBUK nj/iQmqszu0j9u3bZ50lEzF3XarHH39cx7Zz587WQZCKBQsWOO9Rc6c1ACmo mzufFVGhsM6CVHTp0kWr06lTJ+sgmYu561Jt27bNucXx/v37rbMgFQ8++KBO 7kMPPWQdBIC7PPzwwyoOLVq0sA6CVKilOg8f2b59u3WWzMXclQE6tjq8zz77 rHUQpGLPnj1RUVFaoCVLllhnAeAWKggqCyoOPBXIndRStUAtW7a0DpLpmLsy YPXq1c6Njo8ePWqdBakYNmyYFqhKlSrx8fHWWQDYUylQQVBZUHGwzoJUqJk6 jx1Zs2aNdZZMx9yVMXfddRdH2LViY2PLli3L/XkAOJz7+6kscO8Id3JeLN99 993WQQKBuStjvv/+e+d2xzExMdZZkArnftR58uQ5cOCAdRYAllQEVAp4noVr qY2qmWqB1FitswQCc1eG3XzzzdonEydOtA6C1DVt2lQL1K5dO+sgACypCKgU qCBYB0Hq1Ea1QGqp1kEChLkrw2bOnOk8KZsPEbnTrl27smfPHhYW5p09CSAF HX8VAZUCFQTrLEiFGqjzFGy1VOssAcLclWFJSUkVK1bUbvnoo4+ssyB1L774 ohbohhtuSExMtM4CINB08K+//noVAZUC6yxInRqoFkjN1DuP1mXuuhzvv/++ NkzlypW9s2GCS0xMTOnSpbVGr7/+unUWAIGmg6/jryLAB3HdSa1TDVRr9MEH H1hnCRzmrssRFxdXsmRJ7ZmvvvrKOgtSN2PGDC1Q/vz5//rrL+ssAAJHR14H 31O/wAo6s2fP1gKpjXrqobrMXZdp/Pjx2jY1a9a0DoILuueee7RGzZo1sw4C IHB05HXwdfytg+CC1Dq1RhMmTLAOElDMXZfp5MmT0dHR2jk//PCDdRakbu/e vfny5dMaffzxx9ZZAASCDruOfN68eXlUq2s5TxBQA1Ubtc4SUMxdl++ll17S 5mnUqJF1EFyQ80m8AgUK8NtGIOQdOHBAh11HfvLkydZZcEFqmlqjIUOGWAcJ NOauy3f48GHnGfe//PKLdRZcUOPGjbVGzZs3tw4CIHPpmOuw68hbB8EFqV1q jdQ6jxw5Yp0l0Ji7/KJXr14eeaBn8Nq7d2/evHm1TFOnTrXOAiCzTJs2zfkN 459//mmdBRekdqll6t27t3UQA8xdfrFv374cOXKEhYX9/PPP1llwQZMnT9ZJ L1iwIA8PAkKSjrYOuI75e++9Z50FF7Ry5Uq1SzVNtU7rLAaYu/xlwIABOuy3 3367dRCkxflEwf33328dBID/6WjzaVv3U6PUMvXv3986iA3mLn85duyY82TP 2bNnW2fBBf3555/OE3KnTZtmnQWAP33yySc62jrg/IbRzZx7dkVHR6tpWmex wdzlR87DPStUqJCQkGCdBRc0adIk57eNBw8etM4CwD90nJ3fMOqAW2fBBak5 Os/XU7u0zmKGucuP4uLiypUrpx311ltvWWdBWho2bKhleuCBB6yDAPAPHWcd ah1t6yBIi5qjlkmN0lM3qE+Bucu/pk+frk1VpEiREydOWGfBBf3xxx/Obxt7 9+4dGxtrHQdAxukI6yA7v2HU0baOgwtSW1Rz1EqpUVpnscTc5Xe1atXSvnrx xRetgyAtH374YUREhFaqYsWKK1assI4DICN0eJ3fW+k4f/TRR9ZxkBa1RR6r d5q5KxPoCmhr5cyZc//+/dZZkJaff/7ZV7Gfe+45bWDrRADSSwdWx9b36ol7 +LicGqLaohaLIYG5KzM8+OCD2l2dO3e2DoKLiI2N7du3r1O6K1So8NNPP1kn AnBxOqo6sM6LJh1hPi3gfmqIfKrWwdyVGbZv3541a1YVhM2bN1tnwcXplXKl SpVUE8LDw/v06cMbX4Br6XjqkOqo6sDq2K5cudI6ES5OrVANUW1RzdE6iz3m rkzy9NNPqyzcc8891kGQLnq93K9fP+eNr/Llyy9fvtw6EYCUdDB1PJ23ufr3 78/bXMFCrVCrprZoHcQVmLsyyd9//+18Y27x4sXWWZBeeu1cuXJl542v3r17 88YX4BI6jDqSzttcOqSrVq2yToT0UhN0vm2qtmidxRWYuzLP8OHDtdmqV6+e lJRknQXppVfQeh2dJUsW542vJUuWWCcCvE7H8Nprr9WR1MEcMGDAqVOnrBMh vdT+brrpJq2dGqJ1Frdg7so8MTExxYsX136bOnWqdRZcGr2arlKlyhX/euSR R7z58FbAnI6eDqBzEnUkV69ebZ0Il0btT2tXokQJNUTrLG7B3JWp3n//fW25 0qVL8zmEoKPX1EOHDs2RI4dWMFeuXKNHj/byDZaBANNxGzNmjI6eDqCOoQ4j b3MFHTU+tT+toFqhdRYXYe7KVImJiVWrVtWuGzt2rHUWZMTu3bud5484N5pY sGCBdSIg9OmgObeJcO48oGNonQgZocanFVQTVCu0zuIizF2Zbd68edp4+fPn P3LkiHUWZNB3333nfItKWrRowbNIgEyiw6Uj5pw1HTodPetEyCC1PDU+raOa oHUWd2HuCoC77rrLeRSgdRBkXFxc3KhRo5zfekRFRQ0fPpzfHQN+pAOlY6XD 5fxmX8eN3+wHtV69emkp1f6sg7gOc1cA/PLLL+Hh4dmyZeOWccFu7969Dz30 kPNivGzZst988411IiAUzJ07VwfKOVk6Yjpo1olwWXbs2BEZGanGt27dOuss rsPcFRgdO3ZUPalXr551EPjB4sWLndt8SdOmTXkqAZBhW7Zs0SFyTpOOFTc8 DA1qdlpQNT7rIG7E3BUYhw8fLlSokPbh5MmTrbPAD+Lj41955RXn1rgRERHt 27ffs2ePdSggmOjI6OA4D4nQURo3bpyOlXUo+IHzRX61PI0N1lnciLkrYJzb mBQoUIB79oaMAwcOPPXUU1mzZtXKZsuWrUePHiwucFE6Jj179tSR0cHR8dEh 0lGyDgX/0OKqzXHjyjQwdwVSw4YNnftwWgeBP/32229t27Z1nmCSO3fuQYMG HT9+3DoU4EY6GjogOibO07jatGmza9cu61DwJ+c+t2p21kHci7krkH7//Xfn 2zrffvutdRb42YYNG+69917nYyrR0dGvvPIKX3gEfHQcdCh0NJwzosOiI2Md Cn7m3DdJbU7NzjqLezF3BZhzH7nSpUufPHnSOgv8b9myZbfddpvTWUqVKjV5 8uSEhATrUIAlHYH33nuvZMmSzrnQAdExsQ4F/1NTc+5Oz33C08bcFWAqQTfe eKN2Zq9evayzILPMnTu3WrVqTpepWLHi9OnTeTY6PEjbXpvfd+f566+/XkfD OhQyS+/evbXKanC82Ewbc1fgrVmzJuJf+gfrLMgs6jjTpk0rU6aMb/p6//33 uQ8kPEJbXRte2953szsdB159hDD6Wvoxd5no06cPrwu8QN3nzTffvOqqq5zu U6JEiXHjxukcWecCMou2tza577eK2vw6AtwgIrT5fo+j1madJQgwd5nw/R58 zJgx1lmQ6dR0pkyZUqVKFacTFShQ4MUXX+TONggx2tKDBg1y7iEg2vDa9kxc XqBGxueW04+5ywrf+/CapKSkr7/+unbt2k5X0tJ3796du60iBGgbazM7X9YW bXJtdX6r6BG//fabs/Q8/zqdmLsMtWnThvuceNDSpUvvueeesLAwrX6WLFna tWu3adMm61BARmjragNrG2sza0trY2t7W4dCQDn3pVQ7sw4SNJi7DP39998F CxbUjv3444+tsyDQNm7c2LZtW1/Duu+++77//nvrUEB6abs2bdrU9/JBm1lb 2joUAk3NSxtAjYxHdaQfc5ctnmPlcbt373766adz5Mjh/IKmQoUK48ePP3r0 qHUuIHXanNqivltDaOtqA2sbW+eCAbUt57nDH3zwgXWWYMLcZc55bvtjjz1m HQRm9FLxpZdeKlGihK+XdejQYeXKlda5gLNWrVrVsWNH32uE4sWLa9PyLoeX qW1pJ9SvX986SJBh7jK3Y8eO7Nmza/cuXLjQOgssJSQkzJw58+6773Z+dyM3 3XTTpEmT+IoQDGn7aRNqKzp7UptTW3TGjBncA8fj1LCcF4lqYdZZggxzlxuM HDnSubWgrqF1FtjbuXNnnz59nM/+Sd68ebt3775lyxbrXPAWbTltPG0/Zx9q Q2pbanNa54K9mJgY56bQal7WWYIPc5cbxMfHV61aVXu4b9++1lngFrGxsVOm TKlVq9YV/88dd9zxySefMJwjU2mDaZtps/k2njahtiLPeYfPc889p42htsX9 2TKAucslfv7554iIiPDw8MWLF1tngbusX7/+f//7X+7cuZ0mmCdPnvbt2y9Y sIBf9MCPtJ20qTp06KAN5uw0bTltPG0/62hwFzUptSo1LLUt6yxBibnLPQYN GuR8WpXvNuK/jh8//uabb9aoUcP3LsSVV17Zo0cPPn6Py6QtpI2k7eTbWtpm 2mwnTpywjgbXUXtSk9ImUcOyzhKsmLvcQ68369Spo/3crFkz6yxwr+3btw8e PPjaa6/1dcly5cqpBm7bts06GoKJNoy2jTaPbyNpU2lraYNZR4N7qT1pq6hV 8X57hjF3ucqePXvy58+vXf3aa69ZZ4HbrVq16plnnilatKivb1avXv2VV17Z v3+/dTS4l7aHNom2im/baAtpI2k7WUeD26kxacOoSfGAs8vB3OU2X375pTZ2 9uzZN2zYYJ0FQSAxMXHhwoUdOnTwfe8sPDy8Xr16EydO5NGf8NFm0JbQxtD2 8H1PVttGm0dbyDodgoBaknPLo+nTp1tnCW7MXS70xBNPaG9XqlQpJibGOguC RmxsrIb2Bx54IFu2bL63MqpUqdKvXz+dSnqrB2nRtfT9+/fXNvBtCW0PbRJt Fb6fiPRTM1JL0v5Re7LOEvSYu1zIt8O7dOlinQXB559//pkyZUqrVq1874BJ dHR0u3btvvjii2PHjlkHRObSEmuhtdxadN8G0GbQltDG0PawDojgo2bEuwH+ wtzlTryji8sXFxe3aNGinj17li1b1td/s2bN2qBBgwkTJuzatcs6IPxJC6pl 1eJqiX3LraXXBtA20GawDohgpTbEp1/8iLnLtV5//XU+wQh/+fXXX8eMGXP7 7bdHRET4mrJevaopz5w58/Dhw9YBkRFaOC2fFtF5h9yhJdZCa7m16NYBEfR8 3/ZSS7LOEiKYu9yMb+zC744cOTJ16tSHHnooX758vk4dFhZWtWrVbt266YUt Tzp2OS2QlkmLpSXzPcpTtKBaVi2ultg6I0IEdzfKDMxdbqYXs84d6l588UXr LAg18fHxP/zww+DBg+vWrZsjR45zZ7BKlSp17dr1s88+O3DggHVMJPvrr7+0 HE8++eS572td8e9TibV8WkQtJU9sgd+p9WiblShRgrfE/Yi5y+WWLFniPJFB ddU6C0LWqVOnli5dOnTo0AYNGkRFRZ3b2cuXL//EE098/PHHW7du5UuRAaNL rQuuy96lSxctwbkrogXSMmmxfvzxRy2cdVKELDUd5+l1akPWWUIKc5f7vfDC C7ziQMDExcUtX758xIgRDRs2zJUr17kdX/+xTp063bt3/+CDDzZu3Mivv/1I F1OX9MMPP9Tl1UX+75XXcmhRtDR8Qh4BoHajpqO9pwZknSXUMHe5nwpyrVq1 tP/vv/9+6yzwlvj4+J9//nnUqFHNmzcvVarUFefLkSPHLbfc8uSTT7777rtr 1qzhvZdLosuli6ZLpwuoy3jur3odJUuW1GUfPXq0loDfISLAtPe0CWvXrs3L K79j7goKu3fvdj4F/cYbb1hngXepCMyfP3/kyJEtW7YsU6bMuR/qlsjIyBtv vLF9+/YjRoz44osv1q1bd/LkSevIbqHiqQuiyzJ8+HBdIl0oXa5zr54upi6p Lqwu73fffXfo0CHryPAuNRrnmxpqPdZZQhBzV7D4/PPPnXcYNm7caJ0FSPbP P/8sXrx47NixjzzySIUKFXwPoDl3lihevHjdunW7dOkyZsyY2bNnb9myJeTf FouNjdWPOWvWLP3I+sHvvPNOXYQUM+oV/z7OSRdNl04XUJeR25nCJdRinLtH 6mWCdZbQxNwVRDp16nTFv09+4Y7BcCHVh2XLlr3zzjt9+vRp1qxZxYoVz31i 0bnzxtVXX3333XdrJhk0aNCbb76pEeXnn3/+448/gmgki4uLU2DF1jD51ltv 6QfRj6MfqnTp0v+dP6/49+k8lSpV0mXRxdEl0oXS5bL+IYCU1FwqV66sHdu5 c2frLCGLuSuInDx5Ur1MJ+Kxxx6zzgJcXGJi4u+///7dd9+99tprPXr0aNy4 cdmyZbNkyfLfscT3/ljBggX1yuKuu+5q165d3759x48f/+mnny5YsOCnn37S y/Ddu3erEGXqeKY//PDhw/qLNm3atGLFCv3VCjBu3DiFUSQFU7zo6Oj/vn/l ox9QP2aTJk30I+sHnz9/vi4CXwVFUFBz0R5Wo+FDApmHuSu4bNiwIWfOnDoX o0ePts4CZERcXNy2bdvmzJnz5ptvvvjii3pZ3bRp0+rVqxcvXjyNkSyFrFmz 5s+fv1SpUpUqVbr55pvr16/frFmztm3bdkhNx9S0adNG/4r+Rf3r+kP0R+kP PPcJO2lTVAW+6aab7r33Xv0I+kH04+iH0o/G9w0RpMaMGaO9rRbD84AyFXNX 0JkxY4Zea4eHh6vIW2cB/CkpKengwYPr16+fN2/e+++/P2LEiG7durVs2bJB gwa33npr5cqVr7rqqgIFCqT4RLp/6Q/XX6ExTH/dLbfcosFMARRDYRRJwdat W6eQimp9tQB/mjt3rtqKmotajHWWEMfcFYyGDRumBpEnT57NmzdbZwEMxMXF HT58eM+ePToCK1asWLhw4cyZM6dMmTI53fQ/njVrlv5F/ev6Q/RH6Q/krSp4 05YtW9RQ1FaGDh1qnSX0MXcFqYceekhnpEyZMloX6ywAgGClVxxqJWooaivW WTyBuStIxcTEVK9eXSelbt263FMRAJABah9qImolaih8Uz4wmLuC1759+4oV K6bz8r///c86CwAg+Dz55JNqIkWLFlVDsc7iFcxdQW3lypXODe5ee+016ywA gGDy+uuvq32oiaiVWGfxEOauYDdt2jTnW+0LFy60zgIACA6LFi1y7twydepU 6yzewtwVAgYMGKCzU6BAgR07dlhnAQC4nZqFWoYah9qHdRbPYe4KAUlJSc6z 4ytUqMBT3gAAaVCbULNQy1Dj4E50gcfcFRpOnDhRtWpVnaPGjRsnJCRYxwEA uJEahNqEmoVahhqHdRwvYu4KGbt37y5UqJBOU69evayzAADcSA1CbULNQi3D OotHMXeFkqVLlzqPUJk8ebJ1FgCAu6g1OA/DUrOwzuJdzF0h5r333nOO1bJl y6yzAADcQk3BeWGuNmGdxdOYu0LPM888o5NVuHBh3kYGAJz+94MoagpqDWoQ 1lm8jrkr9CQkJDRs2FDnq1q1anxsEgA8zvfFq0aNGvHFK3PMXSHJ9zXhevXq xcbGWscBANhQC6hfvz43GnIP5q5QtWvXLufpjffddx8PzgYAD1Lxb9asmfME RjUF6zhIxtwVwjZt2lSwYEGduDZt2nBzPADwFJX9tm3bOk8zUTuwjoMzmLtC 26pVq3Lnzq1z17VrV+ssAIDAUdlX8VcL4LHXrsLcFfKWLFmSPXt2nb5+/fpZ ZwEABEL//v1V9lX8Fy9ebJ0F52Hu8oI5c+ZkzZpVZ3DUqFHWWQAAmUulXgU/ S5YsX3/9tXUWpMTc5RGffPJJeHi4TuJbb71lnQUAkFlU5FXqVfCnTZtmnQWp YO7yjrfffpvDCAAhTOXdeYmtgm+dBalj7vKU0aNH8+YzAIQkFXaVdxV5lXrr LLgg5i6vGThwIB+2BIAQo5LufIVqwIAB1lmQFuYuD3rqqaf4cjEAhAwVc+eW QSrv1llwEcxdHpSUlPToo49yMz0ACAEbN25UMVdJV2HnFtnux9zlTTw8AgBC wM6dO1XGVcybN2/OI+GCAnOXZ/kelnr11Vfv3bvXOg4A4NKodJcuXVplXMVc Jd06DtKFucvLtKC33nqrzmzFihUPHTpkHQcAkF4q2irdKuAq4yrm1nGQXsxd HnfkyJGqVavq5N500036Z+s4AICLU7lW0VbpVgGndAcX5i4cOHCgXLlyOr/X XXfdX3/9ZR0HAJAWFW3n9bJKt/7ZOg4uDXMXZN++fZUqVdIpLlu27O7du63j AABSpxKtQq1yraKt0m0dB5eMuQsOrW/16tV1lkuUKPHrr79axwEApLR161aV aOeTISra1nGQEcxd8Dl+/Pgdd9yhE12oUKG1a9daxwEAnKWyrOKsEn377bcf O3bMOg4yiLkL54qJibnnnnt0rvPmzbt06VLrOACAZMuWLVNZVnFu0qSJCrV1 HGQccxdSiIuLa926tU53VFTUvHnzrOMAgNepFKsgqyyrOKtEW8fBZWHuwn8l JiZ27txZZzwyMvKLL76wjgMA3qUirFKsgqyyrOJsHQeXi7kLF9KnTx+d9IiI iMmTJ1tnAQAvUvlVEVYpVkG2zgL/YO5CGoYOHarzHhYWNm7cOOssAOAtKrwq vyrCKsXWWeA3zF1I28SJE52DP3jwYOssAOAVKrnOy14VYess8CfmLlzUhx9+ 6LzR3bNnz6SkJOs4ABDKVGZVbJ2Peaj8WseBnzF3IT1mzJiRLVs21YGOHTsm JCRYxwGA0KQC26FDBxVblVwVXus48D/mLqTT/Pnzc+bMqWrQokWLU6dOWccB gFCj0qoCqzKrYrtgwQLrOMgUzF1Iv+XLl+fLl081oVGjRidPnrSOAwChQ0W1 YcOGKrAqsyq21nGQWZi7cEnWrVtXuHBhVYZatWr9/fff1nEAIBSonKqoqrQW KVJEZdY6DjIRcxcu1bZt20qVKqX6cNVVV61fv946DgAENxVSlVMVVZXW7du3 W8dB5mLuQgYcOHCgZs2azocQZs6caR0HAILVrFmzcuXKpXKqoqrSah0HmY65 CxkTGxvbrl075/Yyw4cPt44DAMFnxIgRzg0SVU5VVK3jIBCYu3A5Ro8eHR4e rqLx8MMPawNYxwGA4KCC+cgjj6h4qoSOGjXKOg4Ch7kLl2nOnDl58uRR9ahR o8a+ffus4wCA26lUqmCqbObOnfvrr7+2joOAYu7C5du8efM111yjGlKsWLFV q1ZZxwEA91KRVKlUwVTZ3LRpk3UcBBpzF/xC2+POO+9UJcmRI8cnn3xiHQcA 3EjlUUVSpVIFU2XTOg4MMHfBX+Li4p544okr/jVw4ECe5AgAPiqJzz//vFMh VSpVMK0TwQZzF/xr4sSJWbJkUWG5//77tWGs4wCAPRVDlUQVRpVHFUnrOLDE 3AW/W7BgQf78+VVhqlWrtmfPHus4AGBp9+7dKoYqiSqMPHURzF3IDNu3b69Q oYLqTOHChZctW2YdBwBsqAA6z1ZTSeRe9DjN3IVM888//zjPeI2MjJw8ebJ1 HAAINJU+FUCVwUaNGqkkWseBKzB3IfMkJCT07NnT+Rxpr169EhMTrRMBQCCo +qnoOdXvmWee0X+0TgS3YO5CZps0aZLziq9evXrcWBVAyNu/f7/KnfNu/3vv vWcdB+7C3IUA+PHHH6+88kpVoejoaG7ODCCEqcSp0KncFSlSZOnSpdZx4DrM XQiMgwcPNmrUyHnXvXv37jwBFkCIUVnr0aOHU+VU7lT0rBPBjZi7EDBJSUlj x451fudYrVq1X3/91ToRAPiHCtr111/v/G5RhY4bR+NCmLsQYGvWrClXrpyq U1RU1KRJk6zjAMDlUilTQVNZU3FbvXq1dRy4GnMXAu/EiRPt2rVz3o1v1aoV X68GEKRUvlTEnGqmsqbiZp0IbsfcBStTp07NkyePilXp0qWXL19uHQcALo0K l8qXiphKmQqadRwEB+YuGNq1a9fNN9/sPLNs2LBh3OALQFBQsVLJcp5FqyKm UmadCEGDuQu24uLinnvuubCwMJWvunXr7t271zoRAKRFZerOO+9UyVLh6tu3 r4qYdSIEE+YuuMGCBQucG3wVLFjwq6++so4DAKmbPXu2ypSKlUoWD7lGBjB3 wSX+/vvvJk2aOB9Pffrpp7nBFwBXUY9TaXJqlIqVSpZ1IgQl5i64R1JS0iuv vOLc4Ktq1apbtmyxTgQAyVSOVJSc23ONGzeO23Mhw5i74DZr16699tprnRt8 vf3229ZxAHidCpFze67y5curQFnHQXBj7oILaae1b9/eeT+/fv36O3futE4E wItUfFSCnFrUoUMHlSbrRAh6zF1wrU8//bRQoUIqdzly5Bg5cmR8fLx1IgBe oYLz8ssvq/ioBEVHR6scWSdCiGDugptp1/nubF+tWrWVK1daJwIQ+lRqVHB8 d6FXIbJOhNDB3AX3W7hwYZkyZVQAw8PDe/TowZM4AGQSlRcVGZUaFRyVHe4U Ab9j7kJQiImJ6du3r3N36FKlSs2ZM8c6EYBQo8Ki8uI8QUMFR2XHOhFCEHMX gsi6detq1Kjhe6D2gQMHrBMBCAUqJr7HW6vIqNRYJ0LIYu5CcElMTBw/fnyu XLlUHvPnz//uu+9yIx0AGaYCojKSL18+lRQVlnHjxvGgWGQq5i4Eoz179txz zz3Oi9M77rhj69at1okABB+VDhUQp5KopKiwWCdC6GPuQvD69NNPixQpooKZ LVu2oUOH8nRaAOmkcjFkyBCVDhUQlRFuE4GAYe5CUDty5Mjjjz8eFham4lm5 cuXly5dbJwLgdupTKhcqGiodnTp1UhmxTgQPYe5CCFiyZInzaCFV0a5dux47 dsw6EQA3UnF48sknnVdq5cuXV+mwTgTPYe5CaIiNjX3++eezZs2qclq8ePEp U6bweXsAPioIH3/8cbFixVQiVCheeOEFFQ3rUPAi5i6Ekk2bNtWsWdP5lOyN N964aNEi60QA7KkUqCA4laFWrVoqFNaJ4F3MXQgxiYmJH374YcmSJZ0a27hx 440bN1qHAmBDI1aTJk2calCiRIkPPviAd8Jhi7kLIUm7ceTIkXnz5lWxjYiI ePzxx/ft22cdCkDg6Mh36tRJx19FIE+ePCoI3H8ebsDchRB26NChbt26OR/6 ioqKeuGFF44fP24dCkDmOnHihA67jrzzUS4VAZUC61DAGcxdCHk7duxo0aKF 84uGwoULv/HGG/Hx8dahAPifjrYOuI65c9518HX8rUMB52Hugkf89NNPtWvX dqpx+fLlZ82aZZ0IgD/pUOtoO2dch11H3joRkArmLnjKjBkznDt9yW233bZi xQrrRAAulw6yjrNzrnXAdcytEwEXxNwFr4mPj3/ttdcKFSrkVOlWrVrt2rXL OhSAjNi5c6eOsHOWdah1tPkUAVyOuQvedPz48YEDB+bIkUPlOjIyskePHtrh 1qEApJcOrI6tDq/zrRkdZ741g6DA3AUv27t3b4cOHcLDw1W68+bNO2rUqJMn T1qHApAWHdKXX37ZuUuMDm/Hjh11kK1DAenF3AVs2LChUaNGzq8qoqOjhw4d ynNyARfSwdTx1CF1TquOrQ6vdSjg0jB3AY4FCxb4njGUK1eu3r17c6tVwCV0 GHUkdTCdE6qjunDhQutQQEYwdwHnWrx4ccOGDZ3aHhkZ2blz5+3bt1uHArxL B1DH0Pkcl9x99906pNahgIxj7gL+a+3ata1atXI+96X/27JlyzVr1liHArxF h+7cY6h/1sG0DgVcLuYu4EJ27NihF9rZsmXjhTYQSDpoOm7OudMB1DHktvMI GcxdQNr279/fp0+f3LlzO13glltumTVrVlJSknUuINToWM2cOVNHzDlrOnQ6 ejqA1rkAf2LuAtLj6NGjQ4cO9d1ttVKlSh9++GFcXJx1LiAU6Ch98MEHFStW 9N0BVcdNh846F+B/zF1A+sXExEycOPGqq65yukOpUqUmTJjALb+ADNPx0SHS UXLOlA6XjpgOmnUuILMwdwGXKj4+/qOPPqpcubLvll9Dhgzhll/AJdGR0cHx 3YxLB0rHiqf8IOQxdwEZk5SUNHv27FtvvdXpGjly5HjssceWLVtmnQtwO7WJ 9u3bR0VF+W7GpaPEZybhEcxdwGVasmRJ48aNw8LCfB/9GjduHE97BFI4fPiw joYOiHNSdGR0cHR8rHMBAcXcBfjFb7/9NmDAgKJFi/q+/P7II49w3wng9L/3 hdBx8N2SRcekf//+u3btss4FGGDuAvwoPj5+5syZTZo0cW72KOXKlRs9evTB gwetowGBpm2vza8j4JwFHYrGjRvrgPAhLngZcxeQGf74449BgwaVLFnS6ThZ s2Zt2bLl/Pnz+RALQp42uba6Nry2vbP/dRB0HHQorKMB9pi7gMyTmJg4Z86c Zs2aZcmSxWlAV1999fDhw7kVJEKSNra2tza5s9u17bX5dQR0EKyjAW7B3AUE gPrRsGHDUvSjuXPn0o8QArSNtZlTvL7Qhuf1BfBfzF1AwCQlJX333XctWrQ4 9/cvgwcP3rNnj3U0ICO0dVP8Pl3bm9+nA2lg7gIC7+DBg6NGjfJ93jgsLKxm zZpjx4797bffrKMBF/f7779ru2rT+m6fwvdHgHRi7gKsJCUlLV68+OGHH/bd QFJuvPHG4cOHb9261TodkNK2bdtGjBhx0003+barti73SwEuCXMXYO7kyZPT p0/XAJYnTx5fR6tSpcqgQYM2bNhgnQ5ep02oragN6ducuXPn1nbVpuXhpMCl Yu4C3CM2Nvbrr79u3759gQIFfD2uXLly/fv3X716tXU6eIu2nDae77fhkj9/ /scee+yrr77SRrVOBwQr5i7AheLj47/77rsuXboULlzY1/WuuuqqXr166Yjx oWVkEm0tbTBtM20238bTJtRW1IbkfqfA5WPuAtwsMTFxyZIl3bp1K168uK8P FitW7Omnn168eHFCQoJ1QIQCbaTvv//+qaee0tbybTNtOW08bT/udgL4EXMX EBSSkpKWL1/eu3fv0qVL+zpjoUKFOnfuPHv27KNHj1oHRPD5559/tHm0hbSR fJvq6quv1jbTZuNtVSAzMHcBQWfNmjX9+/e/9tprfb0yPDy8evXqzz333Lx5 83ROrQPCvbQ9tEm0VWrUqBEREeHbQuXLlx8wYIC2lnVAIMQxdwHBa+PGjUOG DLn99tsjIyN9DTRr1qy1a9d+4YUXFi9ezOefcfrf72toM2hL1KlTx3fPXtG2 ue2227SFNm3aZJ0R8ArmLiAExMTELFiwoH///rfccsu5b2Jkz569Xr16w4YN W758OR+K9hQttxZdS68NoG3g2xLaHtok/fr1mz9/PneBAAKPuQsIMcePH58z Z06vXr2uv/563+3EJVeuXI0bNx4zZsyaNWv4pHRI0rKuXr1aS6yF1nL7ll7b QJtBW+Lrr78+duyYdUzA05i7gBB2+PDhL7/88qmnnqpYseIV58ifP3/z5s1f ffXVTZs28fHpoKbl27hx44QJE7SgWtZzV1mLrqXXBtA2sI4J4AzmLsAj/vrr r2nTpnXq1Omaa645tzvnyZPn9ttv79GjxwcffLB+/fq4uDjrpEiLFmjdunXv v/++lkwLd+4zDkSLqyXWQmu5rZMCSAVzF+BBu3fvVuN+9NFHS5YsecX5IiMj b7zxxscff/y1117TcT5x4oR1WK/TEixbtmzixIlaFC3Nud+hcGgRtZRa0D17 9liHBXARzF2Axx08eHDevHkjR45s1arVtddeGx4efm5P13/Uf9m6deuXX375 u+++0//YOm/oc1ZEF1yXXRf/3A/pOR/WKleunBZLS/btt9+yIkBwYe4CcC7f uysdO3ZM9d2VYsWK3XPPPc8///yXX37522+/WecNeklJSbt27Zo+fbouqS7s uXeM970DecMNN2g5tChaGt6BBIIacxeANPg+TdS9e/fbbrstxaeJJCoqqnLl yhoYnnrqqbFjx2p+WL16NR/kTpWqqC7OF198MWbMGF0uXbRKlSrpAqa4pM4n 7nTBddl18fnEHRBKmLsApF9SUtLOnTs1OQwYMKBx48ZFixa94gJy58593XXX 3XfffZofXnnllRkzZvzyyy8eeZ7RkSNH1q5dqx9ZP3i3bt2aNm2qS6ELcqFr pcvYpEmTgQMH6sLq8vINUyCEMXcBuBzHjx9fv379rFmzxo8f37Nnz+bNm1er Vi1v3rwXmjH0/7r++uv1P9P/eMKECfoXly5dunHjxj///DOIfoOmYrh3795N mzYtW7Yswz/77Nmzdel0Aa1/GgCBw9wFIDMcPXr0kt7zcWTJkiU6Orps2bLV q1dv0KBBixYtOnXq1KdPn+HDh7/++utTp06dO3euiszmzZv37dvnx9ut64/S H6g/Vn+4/gr9Rfrr9Jc+++yzCqAYCqNICqZ4Cpn2T+Hl9/oApI25C0AgpfiM k+ax2rVrV65cuXjx4jlz5kx7nvmvyMjIfBeTP036H5z7yMJ0ioqKUmDFVnj9 CHy2DUA6MXcBcI/4+PhDhw7t2LFj1apV8+fP//zzz995553Ro0cPGDCga9eu jzzySJMmTWrWrFmxYsWiRYvmyJHjUuelC9EfVaxYsUqVKtWqVUt/hf4i/XX6 S/VXK4BiKMzKlSu3b9/+999/80F3ABnG3AUgeJ06deroZdMfYv1zAPAK5i4A AIDAYO4CAAAIDOYuAACAwGDuAgAACAzmLgAAgMBg7gIAAAgM5i4AAIDAYO4C AAAIDOYuAACAwGDuAgAACAzmLgAAgMBg7gIAAAgM5i4AAIDAYO4CAAAIDOYu AACAwGDuAgAACAzmLgAAgMBg7gIAAAgM5i4AAIDAYO4CAAAIDOYuAACAwGDu AgAACAzmLgAAgMBg7gIAAAgM5i4AAIDAYO4CAAAIDOYuAACAwGDuAgAACAzm LgAAgMBg7gIAAAgM5i4AAIDAYO4CAAAIDOYuAACAwGDuAgAACAzmLgAAgMBg 7gIAAAgM5i4AAIDAYO4CAAAIjMyYuwAAAHAhzF0AAACB4a+5CwAAAJeDuQsA ACAwnLnr+PHjx44di4mJsY4DAAAQmjRoadzS0BUbG3v06NGTJ09aJwIAAAhN GrQ0bmnoOn369JEjRzSAMXoBAAD4nUYsDVoat5KSkjR3nTp1SjMYn/ICAADw O41YGrQ0bvnu9+W8/aX/ng96AQAA+IXmK2fo0j+kuNWq8987v3Bk+gIAAMgw jVLOrxed97VSvcu98wtHOXbs2P8FAABAhmiUcmaqc3+9mKrY2FiNZ/8HAAAA GeLcMuKyHvoIAAAAAAAAAAAAAAAAAAig/x8sMyhl "], {{0, 452.}, {404., 0}}, {0, 255}, ColorFunction->RGBColor, ImageResolution->144.], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{404., 452.}, PlotRange->{{0, 404.}, {0, 452.}}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.776183285556773*^9, 3.7761832930230093`*^9}, { 3.776183337664554*^9, 3.776183438200733*^9}, {3.776183747473864*^9, 3.7761837630897818`*^9}, 3.776183828400853*^9, {3.7767079454265757`*^9, 3.776707974339549*^9}, {3.776708188774995*^9, 3.776708194921089*^9}, 3.7767084304266*^9, 3.776710064084918*^9, 3.776710247466906*^9, { 3.776710319325035*^9, 3.776710328827832*^9}, {3.777313768240806*^9, 3.77731377838282*^9}}, CellLabel->"Out[96]=", CellID->734285571] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Sander Huisman", "Text", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["blend", "Item", CellID->700802093], Cell["line", "Item", CellID->812858280], Cell["morphing", "Item", CellID->470824620], Cell["morph", "Item", CellID->18604318], Cell["interpolate", "Item", CellID->278996266], Cell["interpolation", "Item", CellID->432240414] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Geometry", {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Just For Fun", {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVj09LAzEQxUGtzUrx7HFP3vZDLNUtFaHSEe9pOm2D2STMn0P89CYIoqcZeL+\ Z995oBliAlIBwu1PJKgMs1xd0n3g8XfPNq2cBs8E0o1CB1Yuy9FOiftIIDx+e1Qb/ZcWn2D/\ 2G7L54h3Xn1vBmbkbVdJcZTeAeaOUkaTA3doKnhN5rORyl9s1n65+3Nrca0A2z0cv9lC3xWQD46/\ QPWHAv0qLnILO8b/h/TYKUqbKNgfoxlhAD4y142qPnJQcvpeMYGob15hvDudeVQ=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992570531] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["Blend", "Item", CellID->179887748], Cell["Line", "Item", CellID->323906795] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["ArcLine", "Item", CellID->417444207], Cell["StyledCurve", "Item", CellID->835955244] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"BlendLine", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "4"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", FractionBox["3", "2"]}], "}"}]}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "i"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "i"}], ",", RowBox[{"2", " ", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", FractionBox["i", "2"]}], ",", RowBox[{"2", " ", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "i"}], ")"}]}], "+", RowBox[{"2", " ", "i"}]}], ",", RowBox[{"1", "+", "i"}]}], "}"}]}], "}"}], "]"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.776182650441297*^9, 3.776182682606057*^9}, { 3.7767082569832153`*^9, 3.7767082765195208`*^9}}, CellLabel->"In[623]:=", CellID->244255618], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"BlendLine", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "4"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", FractionBox["3", "2"]}], "}"}]}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "4"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", FractionBox["3", "2"]}], "}"}]}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000913`3.1109857753662906", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[<| "TestClass" -> None, "TestIndex" -> 7, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`BlendLine[{ Line[{{0, 0}, {1, 0}, {2, 1}}], Line[{{-1, 2}, {2, 2}}]}]], "ExpectedOutput" -> HoldForm[ Line[{{ Rational[-1, 2], 1}, { Rational[3, 4], 1}, {2, Rational[3, 2]}}]], "ActualOutput" -> HoldForm[ Line[{{ Rational[-1, 2], 1}, { Rational[3, 4], 1}, {2, Rational[3, 2]}}]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000913`3.1109857753662906, "Seconds"], "CPUTimeUsed" -> Quantity[0.0009110000000305263, "Seconds"], "MemoryUsed" -> Quantity[840, "Bytes"]|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.7761826693230867`*^9, 3.7761826830603933`*^9}, 3.776183181063262*^9, 3.7761838337490664`*^9, {3.776708254151986*^9, 3.776708277408251*^9}, 3.776710252230359*^9, 3.776710346930901*^9}, CellLabel->"Out[623]=", CellID->693838951], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"BlendLine", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "i"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "i"}], ",", RowBox[{"2", " ", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", FractionBox["i", "2"]}], ",", RowBox[{"2", " ", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "i"}], ")"}]}], "+", RowBox[{"2", " ", "i"}]}], ",", RowBox[{"1", "+", "i"}]}], "}"}]}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "i"}], ",", RowBox[{"2", " ", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", FractionBox["i", "2"]}], ",", RowBox[{"2", " ", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "i"}], ")"}]}], "+", RowBox[{"2", " ", "i"}]}], ",", RowBox[{"1", "+", "i"}]}], "}"}]}], "}"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000802`3.054689366116155", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], TestResultObject[<| "TestClass" -> None, "TestIndex" -> 8, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`BlendLine[{ Line[{{0, 0}, {1, 0}, {2, 1}}], Line[{{-1, 2}, {2, 2}}]}, $CellContext`i]], "ExpectedOutput" -> HoldForm[ Line[{{-$CellContext`i, 2 $CellContext`i}, { 1 + Rational[-1, 2] $CellContext`i, 2 $CellContext`i}, { 2 (1 - $CellContext`i) + 2 $CellContext`i, 1 + $CellContext`i}}]], "ActualOutput" -> HoldForm[ Line[{{-$CellContext`i, 2 $CellContext`i}, { 1 + Rational[-1, 2] $CellContext`i, 2 $CellContext`i}, { 2 (1 - $CellContext`i) + 2 $CellContext`i, 1 + $CellContext`i}}]], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000802`3.054689366116155, "Seconds"], "CPUTimeUsed" -> Quantity[0.000801999999993086, "Seconds"], "MemoryUsed" -> Quantity[1408, "Bytes"]|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.7761826693230867`*^9, 3.7761826830603933`*^9}, 3.776183181063262*^9, 3.7761838337490664`*^9, {3.776708254151986*^9, 3.776708277408251*^9}, 3.776710252230359*^9, 3.776710346945211*^9}, CellLabel->"Out[624]=", CellID->174404615] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your function to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["13.0+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your function is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your function."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your function is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdtqwzAMha3NBbZ9xN7zEV2WQsagpRrsOReVmDq2seRC/\ n721jjpnnykI845kndZAVvgSSIkB8fGcQFpOWB3wf6c0uZTEEMKSCS0gudvbKtrI13DoczeGu6GD91\ CAp0VhiHxA7tjDTm49oJWofSwG7B3EnvvVDOONOueH2hz8sSiP4PIRN2/N/bv9GcY2X8x78tF+\ 5b19q6058ArGNll54gKyI5WG7Q8wWupR+N9WiEFT4trpa7CajWiCgc+mNCjILo+\ BGVVL7hpPdruG0kYifwdJa6Z8EtaulFR+VjAS60YrbF+5HfjfKcmfxZCb/Z0QtLOdvg1GR9/\ 71QXZn4A3oyuQA=="}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your function is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"BlendLine | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.872332345192828`16.340547612974333*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.872332345238985`16.34054761297951*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], WindowToolbars -> {}, DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.92157, 0.34118, 0.10588], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.090909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.62744, 0.62744, 0.62744, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.62744, 0.62744, 0.62744, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.090909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.045818], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dp8u+SYJzFB0kGQJ49MtUnBYIKV/V4UNRis5GHKskYl6AlOnDNUHM0cFaq4I nD/niMKGogx+OB+oO8X6Phtcf/+hrxox/Qxw80HKftZ9sYfZ/7BKZJ37w1f2 MPfB+DD3w/h+SQIRlluE4foh9vDBzYfQHHD7izMmvq2xZ4K7r9CW6/rigr/2 MPfD+DD/wfgw/8P0w8IHZj4s/GD2w8IX5j708AcA2Xetpg== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m8g5n6j32194VhvNZnvdo vPUVdoh2sntxM0feQfiT4/m0q0IOQNnSwtvyDmxCIvbHYoQcMhnyG1lUFRyk eR/oTlAAym/iKVyTjeAf2aiXt/gggt+odqhtubgiXP+k00CLYxXh5mdrf5t+ d7Ii3P5LDPeYOE8pwt33vfTBHMGnig4w98P4j5fOPqJgIArn539oPRlyUBSu /9OGgOxZ5mJw88sKgS5aKwa3XzOm/9DXF2Jw98H4MPfD+DD/wfTD/A8zHxY+ MPth4QdzHyx80cMfAIsMpwk= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq+R1g/G8aMf2HvvI4KP39 VvrgjgAGH6b+c19wicp0IQeBKrPVduICcL6EWjDr4ksCqPLTBeH8211/U7+n CMH5S+7v45tjLAznX773gHvySwS/qdhtyrc2ETj/04aA7FnfReH8RxHi2y8e EIPzNUHOzRCH8x8vnX1E4QOCP+/98mPe5RJw/o9goAoWSTj/6vMs7W/TJR0O X9ZOlVwk4PB2no3OlVsI/jKgcRs+STlonhY4vstCzCFoh1zr64syDkBXssXP EHO4WvFSzbADwa9JNAo1yJKA82H+gfFh/oXxA29JA7Ug+GY2e4OmJQrB+f83 VX/aMEEQzrerjFhhelYAzofFB3r8AgApYdcE "]}]}, { FaceForm[ RGBColor[0.99998, 0.99998, 0.99998, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.98824, 0.41961, 0.20392], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.66667], 0], Thickness[ NCache[2/45, 0.044444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[3216557251994556740] ], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.82745, 0.20784, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.95686, 0.80196, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchjw5tvzu19maOx1UPSQgCsoEiQHGiDHl4/3Zz 6mVTBlwIKAtUg8eQR8f3XQtUAaq8as/zYkrFxwPrf718DEFANlAEKA6UBaoB qsRuyMP7EBPuZTj8fHYfa+gBxYGyEHPg7kE2BOILoBqCEQExB+QvVEOAIQbx BS43oLkH4i9IOMMNAYY8UBDoa4ImQABQJVA9UBeyIcAYBAoCQ49IQ4AqgeqB uoB6IakRyACmBKAgMBaINASoEuR9D0mIIUBAuSFUccl/6oUJVWKHKumEKimW WnmHOrmYSuUJwkkUlmykA4IR8Z+40h4AAyMnLQ== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchNw/sODmxYXeazzp7OQgCsoEiQHFiDHny4P7h 2ozl2my4EFAWqAaPIbeP7t/ooQlUuVqP87yn9MMwtU8p+hAEZANFgOJAWaAa oEqshgDNh5iwx1rwY7Len2wTTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwB hhjEF7jcgOYeiL8g4Qw3BBjyQEGgrwmaAEFAlUD1QF3IhgBjECgIDD0iDQGq BKoH6gLqhaRGIAOYEoCCwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8gQOKCzZyADEFOPElPYAYDEc1A== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4BllAJchr1+//vjx4/fv3//AAJANFAGKE2PI8+fPv3z5 gsfZQFmgGjyGvHr16vfv30CRv9++vFrQ/rAk4Ia3DAQB2UARoDhQFqgGqBKr IUDzISZ8ObP/pp/CZVMGTAQUB8pCzIG7B9kQiC+AarBqR0YQc4Dq0QwBhhjE F7jcgOYeiL8g4Qw3BBjyQAbQ1wRNgCCgSqB6oC5kQ4AxCGQAQ49IQ4AqgeqB uoB6IakRyACmBCADGAtEGgJUCVQP1AUxBAgoN4QqLqFimFAldqiSTqiSYqmV d6iSi6lVnsABhSUbGQCPs+GAmNIeAMvulj0= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.98824, 0.41961, 0.20392], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.99412, 0.7098, 0.60196]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]]), DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; ( DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]), DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your function submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your function submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]]), DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.98824, 0.41961, 0.20392], RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.98824, 0.41961, 0.20392], 2 -> RGBColor[0.92157, 0.34118, 0.10588]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.98824, 0.41961, 0.20392]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222], { FaceForm[{ RGBColor[0.87451, 0.27843, 0.031373], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, {19.051, 27.594}, {23.828, 27.594}, { 23.828, 26.543}, {21.426, 26.309}, {21.375, 26.258}, { 21.375, 24.219}, {21.375, 17.535}, {21.375, 15.602}, { 21.426, 15.547}, {23.828, 15.316}, {23.828, 14.242}}, {{ 24.578, 18.75}, {24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.95686, 0.80196, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHPAkQfuPPftue4ZskMQUA2UAQoTpQhYVJ3 XXgumzLgQkBZoBo8hjwLFLtuzQJSbIbDELA4UA1QJXZDwqSgJhCBgCrh7kE2 BL8vsPsL1RBgiOHzBQ5/QcIZbggw5ElyBgQBdSEbAoxBMgwB6gLqhaRGIAOY EsgwBKgLYggQUG4IVVxCxTChSuxQJZ1QJcVSK+9QJxdTqTyhWslGbhmLHxBT 2gMAMUz3Hw== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyF3/cTOOAvtteRZb8ABQUA2UAQoTowhL0Ol jtrxL9dmw4WAskA1eAy57y++yYgTjwkQBFQDVInVEKD5xJgANwfuHmRD8PsC q7/QDAGGGEkmQBAknOGGAEOeDEOAupANAcYgGYYAdQH1QlIjkAFMCWQYAtQF MQQIKDeEKi6hYphQJXaokk6okmKplXeokoupVZ5Qq2Qju4zFD4gp7QFpR8IT "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCUIlyHvKz2/LG7+eWr737fPIAjIBooAxYkx5E2M 0rets/E4GygLVIPHkHclTn+e3gaK/P76+drsrsN5IRudFCEIyAaKAMWBskA1 QJVYDQGaDzHh5amDm9xUl2uzYSKgOFAWYg7cPciGQHwBVINVOzKCmANUj2YI MMQgvsDlBjT3QPwFCWe4IcCQBzKAviZoAgQBVQLVA3UhGwKMQSADGHpEGgJU CVQP1AXUC0mNQAYwJQAZwFgg0hCgSqB6oC6IIUBAuSFUcQkVw4QqsUOVdEKV FEutvEOVXEyt8oRaJRvZZSx+QExpDwAxBaHa "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.92157, 0.34118, 0.10588], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.92157, 0.34118, 0.10588], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.055556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.308}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.308}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/qw9JZMlWFTg5tfa m8bt6lSB23/2DAiowN0H48PcD+PD/AfTD/M/zHxY+MDsh4UfzH2w8EUPfwD5 N5G6 "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> True], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.88072, 0.61104, 0.14205], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.36842, 0.50678, 0.7098], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.56018, 0.69157, 0.19488], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1053094956087266899; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "FileOpen"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[1053094956087266899]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4898876371082581810; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ If[$VersionNumber >= 13., DefinitionNotebookClient`LocalFileInputDialog[ "Function", ParentCell[ EvaluationCell[]], "Type" -> "Directory"], MessageDialog[ "This feature requires Wolfram Language version 13 or \ later."]]]]], DefinitionNotebookClient`ButtonCodeID[4898876371082581810]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[625, 23, 92, 2, 70, "Title",ExpressionUUID->"bedcb54e-a440-4306-8da3-f815bcf4ca62", CellTags->{"Name", "TemplateCell", "Title"}, CellID->623230713]}, "TemplateCell"->{ Cell[625, 23, 92, 2, 70, "Title",ExpressionUUID->"bedcb54e-a440-4306-8da3-f815bcf4ca62", CellTags->{"Name", "TemplateCell", "Title"}, CellID->623230713], Cell[720, 27, 99, 2, 70, "Text",ExpressionUUID->"7c75abcd-6757-4263-9036-f5c1e87443f7", CellTags->{"Description", "TemplateCell"}, CellID->391384106]}, "Title"->{ Cell[625, 23, 92, 2, 70, "Title",ExpressionUUID->"bedcb54e-a440-4306-8da3-f815bcf4ca62", CellTags->{"Name", "TemplateCell", "Title"}, CellID->623230713]}, "Description"->{ Cell[720, 27, 99, 2, 70, "Text",ExpressionUUID->"7c75abcd-6757-4263-9036-f5c1e87443f7", CellTags->{"Description", "TemplateCell"}, CellID->391384106]}, "Definition"->{ Cell[844, 33, 1206, 29, 70, "Section",ExpressionUUID->"fc3620cb-b95d-48a0-a795-47c9dedd8d8d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[844, 33, 1206, 29, 70, "Section",ExpressionUUID->"fc3620cb-b95d-48a0-a795-47c9dedd8d8d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[844, 33, 1206, 29, 70, "Section",ExpressionUUID->"fc3620cb-b95d-48a0-a795-47c9dedd8d8d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[13571, 373, 1980, 50, 70, "Subsection",ExpressionUUID->"8e8f4a81-d13e-482a-b068-2c6d58684260", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[18859, 571, 1429, 32, 70, "Subsection",ExpressionUUID->"ca786f1a-703a-4479-a6ae-b515f4195823", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[22012, 672, 7025, 152, 70, "Section",ExpressionUUID->"1451b51f-6d52-40b7-b267-623606debb04", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[133793, 3056, 1026, 26, 70, "Subsection",ExpressionUUID->"bed9acaf-5e12-4d3f-8b87-651cfab3436c", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[134909, 3090, 996, 26, 70, "Subsection",ExpressionUUID->"ce86db5d-8648-45f6-883a-66d8ef831792", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[136221, 3139, 221, 6, 70, "Subsection",ExpressionUUID->"87f69271-c020-4f54-af20-c09ca4504683", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[144771, 3402, 980, 26, 70, "Subsection",ExpressionUUID->"7ab12329-1c87-47c2-97be-b4e06e0d5c5c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[145875, 3439, 1039, 26, 70, "Subsection",ExpressionUUID->"d2b34449-919e-46ac-b808-8f8f9f75b800", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[147047, 3476, 1084, 26, 70, "Subsection",ExpressionUUID->"ad19c6de-3578-4df3-966b-3b9fb69c9716", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[148687, 3517, 923, 26, 70, "Subsection",ExpressionUUID->"fe7ffefa-f3d0-4a5b-9a40-5b7848d75ad9", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[150155, 3558, 1874, 45, 70, "Subsection",ExpressionUUID->"b8c4b5a3-e13e-4b98-b677-24c29b2941d0", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[176805, 4191, 955, 25, 70, "Subsection",ExpressionUUID->"c41b639b-8c25-47aa-aa98-881e6e01744b", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[177785, 4220, 1174, 31, 70, "Subsubsection",ExpressionUUID->"19b8f038-2bea-4034-abd4-50e9063602e6", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[179088, 4260, 1113, 29, 70, "Subsubsection",ExpressionUUID->"435d080e-bd63-429c-b41f-7d8384410929", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[182339, 4358, 1280, 33, 70, "Subsubsection",ExpressionUUID->"df31f0d3-e5fe-4e57-9dd6-11beba16b0a9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[185808, 4461, 1913, 46, 70, "Subsubsection",ExpressionUUID->"7739b808-d379-4023-8665-66632bd804d8", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[191752, 4631, 1071, 27, 70, "Subsubsection",ExpressionUUID->"9ee8d20f-7cad-4d38-a71c-ec393e9bf4f1", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[194105, 4703, 1155, 28, 70, "Section",ExpressionUUID->"11b40312-e435-4589-8a25-98109e1cb865", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[195829, 4746, 1033, 26, 70, "Section",ExpressionUUID->"4680224c-dee1-4f47-a7fc-d32140db63d0", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "TabNext"->{ Cell[2053, 64, 11261, 295, 70, "Input",ExpressionUUID->"a8735f6a-8b15-4d7f-beb4-4b83375c3a55", CellTags->"TabNext", CellID->634891897], Cell[20291, 605, 848, 30, 70, "Notes",ExpressionUUID->"c50e6f53-3dc4-43b3-850a-4d0cecd83b5e", CellTags->"TabNext", CellID->623947250], Cell[148134, 3504, 516, 8, 70, "Text",ExpressionUUID->"2f2d3c67-d91e-43f1-ba2e-536934670195", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[149613, 3545, 505, 8, 70, "Item",ExpressionUUID->"70846c4e-9139-46d4-abb9-4c467d00626e", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[195263, 4733, 529, 8, 70, "Text",ExpressionUUID->"3399c657-da47-43ad-960b-681d0e4bb237", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[196865, 4774, 515, 8, 70, "Text",ExpressionUUID->"a6ca882b-bbcd-429f-ac7c-7c6ce0751888", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Documentation"->{ Cell[13351, 364, 195, 5, 70, "Section",ExpressionUUID->"1ed93eaf-d9c3-40b7-920f-596cf72d89c8", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[13351, 364, 195, 5, 70, "Section",ExpressionUUID->"1ed93eaf-d9c3-40b7-920f-596cf72d89c8", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[133519, 3047, 249, 5, 70, "Section",ExpressionUUID->"4b522bf5-96a7-4760-9a93-220df2850197", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[13571, 373, 1980, 50, 70, "Subsection",ExpressionUUID->"8e8f4a81-d13e-482a-b068-2c6d58684260", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[18859, 571, 1429, 32, 70, "Subsection",ExpressionUUID->"ca786f1a-703a-4479-a6ae-b515f4195823", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[18859, 571, 1429, 32, 70, "Subsection",ExpressionUUID->"ca786f1a-703a-4479-a6ae-b515f4195823", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[22012, 672, 7025, 152, 70, "Section",ExpressionUUID->"1451b51f-6d52-40b7-b267-623606debb04", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467]}, "Source & Additional Information"->{ Cell[133519, 3047, 249, 5, 70, "Section",ExpressionUUID->"4b522bf5-96a7-4760-9a93-220df2850197", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[133793, 3056, 1026, 26, 70, "Subsection",ExpressionUUID->"bed9acaf-5e12-4d3f-8b87-651cfab3436c", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[133793, 3056, 1026, 26, 70, "Subsection",ExpressionUUID->"bed9acaf-5e12-4d3f-8b87-651cfab3436c", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[134909, 3090, 996, 26, 70, "Subsection",ExpressionUUID->"ce86db5d-8648-45f6-883a-66d8ef831792", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[136221, 3139, 221, 6, 70, "Subsection",ExpressionUUID->"87f69271-c020-4f54-af20-c09ca4504683", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[136445, 3147, 8289, 250, 70, "Output",ExpressionUUID->"5a264185-283f-4837-b349-cf33eede80b3", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992570531]}, "Categories-Checkboxes"->{ Cell[136445, 3147, 8289, 250, 70, "Output",ExpressionUUID->"5a264185-283f-4837-b349-cf33eede80b3", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992570531]}, "CheckboxCell"->{ Cell[136445, 3147, 8289, 250, 70, "Output",ExpressionUUID->"5a264185-283f-4837-b349-cf33eede80b3", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992570531], Cell[180204, 4291, 2098, 62, 70, "Output",ExpressionUUID->"a498a6c5-7b58-49a9-a2bb-ef044a54694f", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[183622, 4393, 2149, 63, 70, "Output",ExpressionUUID->"e8215abf-c70b-454c-9c36-3d8f533758a9", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[187724, 4509, 3991, 117, 70, "Output",ExpressionUUID->"23b5537a-a77b-43e7-bb3e-f729d102564f", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027], Cell[192826, 4660, 1218, 36, 70, "Output",ExpressionUUID->"711a9458-ba13-4545-a781-630a4a5dbf13", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[144771, 3402, 980, 26, 70, "Subsection",ExpressionUUID->"7ab12329-1c87-47c2-97be-b4e06e0d5c5c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[145875, 3439, 1039, 26, 70, "Subsection",ExpressionUUID->"d2b34449-919e-46ac-b808-8f8f9f75b800", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[147047, 3476, 1084, 26, 70, "Subsection",ExpressionUUID->"ad19c6de-3578-4df3-966b-3b9fb69c9716", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[148134, 3504, 516, 8, 70, "Text",ExpressionUUID->"2f2d3c67-d91e-43f1-ba2e-536934670195", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[149613, 3545, 505, 8, 70, "Item",ExpressionUUID->"70846c4e-9139-46d4-abb9-4c467d00626e", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[178962, 4253, 89, 2, 70, "Text",ExpressionUUID->"a77e1ac7-473b-4fa9-b18e-1847686fecc3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540], Cell[195263, 4733, 529, 8, 70, "Text",ExpressionUUID->"3399c657-da47-43ad-960b-681d0e4bb237", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[196865, 4774, 515, 8, 70, "Text",ExpressionUUID->"a6ca882b-bbcd-429f-ac7c-7c6ce0751888", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[148687, 3517, 923, 26, 70, "Subsection",ExpressionUUID->"fe7ffefa-f3d0-4a5b-9a40-5b7848d75ad9", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[150155, 3558, 1874, 45, 70, "Subsection",ExpressionUUID->"b8c4b5a3-e13e-4b98-b677-24c29b2941d0", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[150155, 3558, 1874, 45, 70, "Subsection",ExpressionUUID->"b8c4b5a3-e13e-4b98-b677-24c29b2941d0", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[176805, 4191, 955, 25, 70, "Subsection",ExpressionUUID->"c41b639b-8c25-47aa-aa98-881e6e01744b", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[177785, 4220, 1174, 31, 70, "Subsubsection",ExpressionUUID->"19b8f038-2bea-4034-abd4-50e9063602e6", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[177785, 4220, 1174, 31, 70, "Subsubsection",ExpressionUUID->"19b8f038-2bea-4034-abd4-50e9063602e6", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[178962, 4253, 89, 2, 70, "Text",ExpressionUUID->"a77e1ac7-473b-4fa9-b18e-1847686fecc3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540]}, "CompatibilityOperatingSystem"->{ Cell[179088, 4260, 1113, 29, 70, "Subsubsection",ExpressionUUID->"435d080e-bd63-429c-b41f-7d8384410929", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[180204, 4291, 2098, 62, 70, "Output",ExpressionUUID->"a498a6c5-7b58-49a9-a2bb-ef044a54694f", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[179088, 4260, 1113, 29, 70, "Subsubsection",ExpressionUUID->"435d080e-bd63-429c-b41f-7d8384410929", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[180204, 4291, 2098, 62, 70, "Output",ExpressionUUID->"a498a6c5-7b58-49a9-a2bb-ef044a54694f", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[182339, 4358, 1280, 33, 70, "Subsubsection",ExpressionUUID->"df31f0d3-e5fe-4e57-9dd6-11beba16b0a9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[183622, 4393, 2149, 63, 70, "Output",ExpressionUUID->"e8215abf-c70b-454c-9c36-3d8f533758a9", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[182339, 4358, 1280, 33, 70, "Subsubsection",ExpressionUUID->"df31f0d3-e5fe-4e57-9dd6-11beba16b0a9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644]}, "CompatibilityFeatures-Checkboxes"->{ Cell[183622, 4393, 2149, 63, 70, "Output",ExpressionUUID->"e8215abf-c70b-454c-9c36-3d8f533758a9", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[185808, 4461, 1913, 46, 70, "Subsubsection",ExpressionUUID->"7739b808-d379-4023-8665-66632bd804d8", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[187724, 4509, 3991, 117, 70, "Output",ExpressionUUID->"23b5537a-a77b-43e7-bb3e-f729d102564f", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Environments"->{ Cell[185808, 4461, 1913, 46, 70, "Subsubsection",ExpressionUUID->"7739b808-d379-4023-8665-66632bd804d8", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[187724, 4509, 3991, 117, 70, "Output",ExpressionUUID->"23b5537a-a77b-43e7-bb3e-f729d102564f", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027]}, "Cloud Support"->{ Cell[191752, 4631, 1071, 27, 70, "Subsubsection",ExpressionUUID->"9ee8d20f-7cad-4d38-a71c-ec393e9bf4f1", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080]}, "CompatibilityCloudSupport"->{ Cell[191752, 4631, 1071, 27, 70, "Subsubsection",ExpressionUUID->"9ee8d20f-7cad-4d38-a71c-ec393e9bf4f1", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[192826, 4660, 1218, 36, 70, "Output",ExpressionUUID->"711a9458-ba13-4545-a781-630a4a5dbf13", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[192826, 4660, 1218, 36, 70, "Output",ExpressionUUID->"711a9458-ba13-4545-a781-630a4a5dbf13", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[194105, 4703, 1155, 28, 70, "Section",ExpressionUUID->"11b40312-e435-4589-8a25-98109e1cb865", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[195829, 4746, 1033, 26, 70, "Section",ExpressionUUID->"4680224c-dee1-4f47-a7fc-d32140db63d0", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 322163, 7136}, {"TemplateCell", 322345, 7140}, {"Title", 322679, 7147}, {"Description", 322860, 7151}, {"Definition", 323037, 7155}, {"Function", 323233, 7159}, {"TemplateCellGroup", 323438, 7163}, {"TabNext", 327286, 7224}, {"Documentation", 328246, 7243}, {"TemplateSection", 328440, 7247}, {"Usage", 328815, 7254}, {"Details & Options", 329010, 7258}, {"Notes", 329214, 7262}, {"Examples", 329421, 7266}, {"Source & Additional Information", 329631, 7270}, {"Contributed By", 329844, 7274}, {"ContributorInformation", 330080, 7278}, {"Keywords", 330302, 7282}, {"Categories", 330494, 7286}, {"Categories-Checkboxes", 330892, 7293}, {"CheckboxCell", 331106, 7297}, {"Related Symbols", 332232, 7313}, {"Related Resource Objects", 332445, 7317}, {"Source/Reference Citation", 332669, 7321}, {"DefaultContent", 332883, 7325}, {"Links", 333716, 7341}, {"Tests", 333900, 7345}, {"VerificationTests", 334118, 7349}, {"Compatibility", 334332, 7353}, {"CompatibilityWolframLanguageVersionRequired", 334562, 7357}, {"Wolfram Language Version", 334835, 7361}, {"ScrapeDefault", 335097, 7365}, {"CompatibilityOperatingSystem", 335301, 7369}, {"Operating System", 335772, 7376}, {"CompatibilityOperatingSystem-Checkboxes", 336037, 7380}, {"CompatibilityFeatures", 336295, 7384}, {"Required Features", 336747, 7391}, {"CompatibilityFeatures-Checkboxes", 336999, 7395}, {"CompatibilityEvaluationEnvironment", 337256, 7399}, {"Environments", 337738, 7406}, {"CompatibilityEvaluationEnvironment-Checkboxes", 338011, 7410}, {"Cloud Support", 338274, 7414}, {"CompatibilityCloudSupport", 338519, 7418}, {"CompatibilityCloudSupport-Checkboxes", 338998, 7425}, {"Author Notes", 339241, 7429}, {"Submission Notes", 339441, 7433} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[625, 23, 92, 2, 70, "Title",ExpressionUUID->"bedcb54e-a440-4306-8da3-f815bcf4ca62", CellTags->{"Name", "TemplateCell", "Title"}, CellID->623230713], Cell[720, 27, 99, 2, 70, "Text",ExpressionUUID->"7c75abcd-6757-4263-9036-f5c1e87443f7", CellTags->{"Description", "TemplateCell"}, CellID->391384106], Cell[CellGroupData[{ Cell[844, 33, 1206, 29, 70, "Section",ExpressionUUID->"fc3620cb-b95d-48a0-a795-47c9dedd8d8d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2053, 64, 11261, 295, 70, "Input",ExpressionUUID->"a8735f6a-8b15-4d7f-beb4-4b83375c3a55", CellTags->"TabNext", CellID->634891897] }, Open ]], Cell[CellGroupData[{ Cell[13351, 364, 195, 5, 70, "Section",ExpressionUUID->"1ed93eaf-d9c3-40b7-920f-596cf72d89c8", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[13571, 373, 1980, 50, 70, "Subsection",ExpressionUUID->"8e8f4a81-d13e-482a-b068-2c6d58684260", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[15576, 427, 309, 11, 70, "UsageInputs",ExpressionUUID->"cce362cf-c697-4531-ab3b-f8c9d416a845", CellID->425570468], Cell[15888, 440, 375, 15, 70, "UsageDescription",ExpressionUUID->"f8cc0172-6663-419d-bacb-b704787e1c3c", CellID->527406243] }, Open ]], Cell[CellGroupData[{ Cell[16300, 460, 367, 13, 70, "UsageInputs",ExpressionUUID->"31872c9f-7147-4fb7-959a-01b932db9aae", CellID->843027773], Cell[16670, 475, 480, 19, 70, "UsageDescription",ExpressionUUID->"92c49095-1e64-49c7-9df5-a15204ebceeb", CellID->35710441] }, Open ]], Cell[CellGroupData[{ Cell[17187, 499, 386, 13, 70, "UsageInputs",ExpressionUUID->"1a87484a-a746-466d-b96d-f49bf5d4d3c3", CellID->42380012], Cell[17576, 514, 330, 13, 70, "UsageDescription",ExpressionUUID->"3529639d-6d57-4acf-8e6f-4aad452158ea", CellID->275318896] }, Open ]], Cell[CellGroupData[{ Cell[17943, 532, 588, 21, 70, "UsageInputs",ExpressionUUID->"e55a65e0-cb6a-4a01-a44f-956afc4abdfa", CellID->673052185], Cell[18534, 555, 276, 10, 70, "UsageDescription",ExpressionUUID->"ced2174b-746a-4da1-810b-c1d88f746427", CellID->465715501] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18859, 571, 1429, 32, 70, "Subsection",ExpressionUUID->"ca786f1a-703a-4479-a6ae-b515f4195823", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[20291, 605, 848, 30, 70, "Notes",ExpressionUUID->"c50e6f53-3dc4-43b3-850a-4d0cecd83b5e", CellTags->"TabNext", CellID->623947250], Cell[21142, 637, 821, 29, 70, "Notes",ExpressionUUID->"2c4d719d-9601-493d-9e7d-d087afa62a54", CellID->870750073] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22012, 672, 7025, 152, 70, "Section",ExpressionUUID->"1451b51f-6d52-40b7-b267-623606debb04", CellTags->{"Examples", "TemplateCellGroup"}, CellID->553094467], Cell[CellGroupData[{ Cell[29062, 828, 75, 2, 70, "Subsection",ExpressionUUID->"ab32eae4-146b-4b00-b5b2-70b60013af4c", CellID->904125756], Cell[29140, 832, 186, 4, 70, "Text",ExpressionUUID->"a444690f-1243-4a47-b5c0-b7860c4f971c", CellID->290158475], Cell[CellGroupData[{ Cell[29351, 840, 902, 26, 70, "Input",ExpressionUUID->"cb37c1a0-f85f-42b3-9923-125188e8377d", CellID->405271033], Cell[30256, 868, 830, 26, 70, "Output",ExpressionUUID->"b4b8d6b3-41af-4e18-afe9-c0a399defdf3", CellID->908549916] }, Open ]], Cell[CellGroupData[{ Cell[31123, 899, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"7d0c27c7-a24e-4824-ad8d-d0c7cf0eea8c", CellID->14107562], Cell[31269, 905, 317, 5, 70, "Text",ExpressionUUID->"e3bf5bdf-1c8e-4f2c-b92e-fb6c743081fb", CellID->474746486], Cell[CellGroupData[{ Cell[31611, 914, 1291, 40, 70, "Input",ExpressionUUID->"1e413ab4-beea-462d-b77d-8d7d31087d5f", CellID->150115261], Cell[32905, 956, 688, 15, 70, "Output",ExpressionUUID->"626367a3-4201-4561-8bc2-1b05eafcb2bb", CellID->650389564] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33654, 978, 66, 2, 70, "Subsection",ExpressionUUID->"7a79b11c-f5f0-4a0d-bf57-92352bcf7d9a", CellID->204653245], Cell[33723, 982, 267, 5, 70, "Text",ExpressionUUID->"afb6a949-75cf-49c3-8bdb-7c39c62f3249", CellID->481862381], Cell[CellGroupData[{ Cell[34015, 991, 1224, 40, 70, "Input",ExpressionUUID->"852ec490-1674-4ac0-b1a4-95f3617d3909", CellID->62689331], Cell[35242, 1033, 761, 15, 70, "Output",ExpressionUUID->"ae6fa9d1-1f80-4b64-8cc1-69d165be7c0b", CellID->786447073] }, Open ]], Cell[CellGroupData[{ Cell[36040, 1053, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"1214cdd4-3941-4ea7-bb41-3a38c541bef0", CellID->14107563], Cell[36186, 1059, 197, 4, 70, "Text",ExpressionUUID->"da6dc8b7-df0d-410a-bf0a-bd4a0bd0ad00", CellID->383097377], Cell[CellGroupData[{ Cell[36408, 1067, 1405, 47, 70, "Input",ExpressionUUID->"89766e98-a504-49a9-aec8-f9edb5d4d578", CellID->281545707], Cell[37816, 1116, 1992, 37, 70, "Output",ExpressionUUID->"9e553673-e821-471f-8d76-3ff004904f3d", CellID->525596927] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39857, 1159, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b7e2a154-a0ed-40b5-b109-d0b11684509d", CellID->14107564], Cell[40003, 1165, 309, 5, 70, "Text",ExpressionUUID->"ff0791cf-0ce0-45a2-8055-9ae5c32d7b31", CellID->679171220], Cell[CellGroupData[{ Cell[40337, 1174, 1435, 46, 70, "Input",ExpressionUUID->"1dd01817-e890-4150-ab51-58e3653e8bd4", CellID->88258638], Cell[41775, 1222, 2321, 48, 70, "Output",ExpressionUUID->"380c2c75-14e8-4428-95a7-05c9a253f6b4", CellID->832176997] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44145, 1276, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"2baf04aa-8cb0-4079-8450-c2a3da688853", CellID->14107565], Cell[44291, 1282, 144, 3, 70, "Text",ExpressionUUID->"9207cb7f-3bba-4401-8dc9-9a8539c36a37", CellID->391256025], Cell[CellGroupData[{ Cell[44460, 1289, 919, 30, 70, "Input",ExpressionUUID->"c0f654a4-d455-44f7-9358-fbfdb640323a", CellID->897243956], Cell[45382, 1321, 630, 19, 70, "Output",ExpressionUUID->"2c03b417-adce-47ec-96f7-6ddc343a9423", CellID->138480167] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[46073, 1347, 73, 2, 70, "Subsection",ExpressionUUID->"0fe4ef74-7c5b-4526-94f1-10d688bd84b6", CellID->605265931], Cell[46149, 1351, 135, 3, 70, "Text",ExpressionUUID->"c57e6e07-2cc7-427d-9128-8f800538d6d3", CellID->534770514], Cell[CellGroupData[{ Cell[46309, 1358, 1551, 48, 70, "Input",ExpressionUUID->"ded120d9-d443-47e7-b22b-50bd5398aebf", CellID->654158792], Cell[47863, 1408, 1238, 24, 70, "Output",ExpressionUUID->"addc464f-8564-4531-a6ae-2a02d9ca1be2", CellID->20923115] }, Open ]], Cell[CellGroupData[{ Cell[49138, 1437, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d61b4358-b1ee-483e-bfac-e24642be4f9a", CellID->14107566], Cell[49284, 1443, 479, 7, 70, "Text",ExpressionUUID->"c794eac6-5633-47ef-8ac5-aaba810f00c1", CellID->869451264], Cell[CellGroupData[{ Cell[49788, 1454, 1799, 59, 70, "Input",ExpressionUUID->"dd061d6f-03b6-46d6-bbee-f8df896e22cf", CellID->147217027], Cell[51590, 1515, 6763, 144, 70, "Output",ExpressionUUID->"01e9fafa-acfa-42c7-8c83-2b623ec87451", CellID->756783557] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[58414, 1666, 85, 2, 70, "Subsection",ExpressionUUID->"0e60beb8-5797-4246-b40a-f098b909dc8b", CellID->232113220], Cell[58502, 1670, 391, 8, 70, "Text",ExpressionUUID->"654cf867-fa15-4649-afdc-aad68517a755", CellID->210376108], Cell[CellGroupData[{ Cell[58918, 1682, 1732, 52, 70, "Input",ExpressionUUID->"4497867a-cb64-4c3a-9128-a11631550544", CellID->683363147], Cell[60653, 1736, 1441, 25, 70, "Output",ExpressionUUID->"7b778fad-ddb2-4bf1-8209-4a163856417c", CellID->288587336] }, Open ]], Cell[CellGroupData[{ Cell[62131, 1766, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"92c6172a-3c05-46dd-8386-e2922a1b0a5c", CellID->14107567], Cell[62277, 1772, 515, 13, 70, "Text",ExpressionUUID->"2780e5e5-0915-45df-b972-27fbd5db885a", CellID->297676702], Cell[CellGroupData[{ Cell[62817, 1789, 1380, 43, 70, "Input",ExpressionUUID->"43ecf9ff-5af7-432d-acf7-3e44d0f51f57", CellID->795599601], Cell[64200, 1834, 1032, 21, 70, "Output",ExpressionUUID->"0f866c88-2130-446a-88d2-24c595e29996", CellID->299460377] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[65293, 1862, 74, 2, 70, "Subsection",ExpressionUUID->"3cccbcd7-7f7b-47e1-9227-b99750e720a8", CellID->461278909], Cell[65370, 1866, 194, 4, 70, "Text",ExpressionUUID->"b0c85ad8-5e87-4a4d-9c79-57fa19ad74bf", CellID->717728979], Cell[CellGroupData[{ Cell[65589, 1874, 958, 27, 70, "Input",ExpressionUUID->"0b20f9a1-615f-4952-adbc-1f6732f0b175", CellID->720749980], Cell[66550, 1903, 10564, 170, 70, "Output",ExpressionUUID->"077426f4-4479-412b-840f-74088cf87060", CellID->458744831] }, Open ]], Cell[CellGroupData[{ Cell[77151, 2078, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d748156c-a29b-41f5-8b31-f317138b4454", CellID->14107568], Cell[77297, 2084, 211, 4, 70, "Text",ExpressionUUID->"b01fca64-509c-4b2c-a577-83615508604d", CellID->330485130], Cell[CellGroupData[{ Cell[77533, 2092, 1660, 50, 70, "Input",ExpressionUUID->"2fffa911-7282-4bd9-a3f5-6fb751145808", CellID->137606668], Cell[79196, 2144, 54250, 895, 70, "Output",ExpressionUUID->"185a637e-b540-418a-9115-2a2e7be1feaa", CellID->734285571] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[133519, 3047, 249, 5, 70, "Section",ExpressionUUID->"4b522bf5-96a7-4760-9a93-220df2850197", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[133793, 3056, 1026, 26, 70, "Subsection",ExpressionUUID->"bed9acaf-5e12-4d3f-8b87-651cfab3436c", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[134822, 3084, 50, 1, 70, "Text",ExpressionUUID->"fb89bfc7-a36d-4bce-ab6c-d4f649d74e85", CellID->130075600] }, Open ]], Cell[CellGroupData[{ Cell[134909, 3090, 996, 26, 70, "Subsection",ExpressionUUID->"ce86db5d-8648-45f6-883a-66d8ef831792", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[135908, 3118, 41, 1, 70, "Item",ExpressionUUID->"094cd44c-e3ef-4abf-9126-5cf1fc6d1a47", CellID->700802093], Cell[135952, 3121, 40, 1, 70, "Item",ExpressionUUID->"0fd4df91-0281-4c0e-b3fe-2a3d84d6c6b0", CellID->812858280], Cell[135995, 3124, 44, 1, 70, "Item",ExpressionUUID->"64659353-0136-433d-91cc-ede088ccf805", CellID->470824620], Cell[136042, 3127, 40, 1, 70, "Item",ExpressionUUID->"80bcaf90-59cf-4697-b7af-dfdbaacde170", CellID->18604318], Cell[136085, 3130, 47, 1, 70, "Item",ExpressionUUID->"2ee8c296-79c0-45ce-98c7-9695407fff0c", CellID->278996266], Cell[136135, 3133, 49, 1, 70, "Item",ExpressionUUID->"99e75148-4f2e-46a9-bc28-88b72c4514e3", CellID->432240414] }, Open ]], Cell[CellGroupData[{ Cell[136221, 3139, 221, 6, 70, "Subsection",ExpressionUUID->"87f69271-c020-4f54-af20-c09ca4504683", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[136445, 3147, 8289, 250, 70, "Output",ExpressionUUID->"5a264185-283f-4837-b349-cf33eede80b3", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->992570531] }, Open ]], Cell[CellGroupData[{ Cell[144771, 3402, 980, 26, 70, "Subsection",ExpressionUUID->"7ab12329-1c87-47c2-97be-b4e06e0d5c5c", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[145754, 3430, 41, 1, 70, "Item",ExpressionUUID->"b4e3eb6d-0057-4cdd-be08-cb31c136a972", CellID->179887748], Cell[145798, 3433, 40, 1, 70, "Item",ExpressionUUID->"44d64282-dfab-45dd-84c7-e5043ab463d9", CellID->323906795] }, Open ]], Cell[CellGroupData[{ Cell[145875, 3439, 1039, 26, 70, "Subsection",ExpressionUUID->"d2b34449-919e-46ac-b808-8f8f9f75b800", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[146917, 3467, 43, 1, 70, "Item",ExpressionUUID->"37be29dd-ea46-4149-831e-8f0d8a73c620", CellID->417444207], Cell[146963, 3470, 47, 1, 70, "Item",ExpressionUUID->"7b0b46c2-714d-45a0-bdd3-aa6a4a8676f7", CellID->835955244] }, Open ]], Cell[CellGroupData[{ Cell[147047, 3476, 1084, 26, 70, "Subsection",ExpressionUUID->"ad19c6de-3578-4df3-966b-3b9fb69c9716", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[148134, 3504, 516, 8, 70, "Text",ExpressionUUID->"2f2d3c67-d91e-43f1-ba2e-536934670195", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[148687, 3517, 923, 26, 70, "Subsection",ExpressionUUID->"fe7ffefa-f3d0-4a5b-9a40-5b7848d75ad9", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[149613, 3545, 505, 8, 70, "Item",ExpressionUUID->"70846c4e-9139-46d4-abb9-4c467d00626e", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[150155, 3558, 1874, 45, 70, "Subsection",ExpressionUUID->"b8c4b5a3-e13e-4b98-b677-24c29b2941d0", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[152054, 3607, 2593, 85, 70, "Input",ExpressionUUID->"60803b4d-2f03-451b-ad00-2d45ef04e71b", CellID->244255618], Cell[154650, 3694, 10654, 237, 70, "Output",ExpressionUUID->"50025bdc-81d0-4c9c-8b1b-4a77f68ab1d4", CellID->693838951], Cell[165307, 3933, 11449, 252, 70, "Output",ExpressionUUID->"d3fd059a-7fcc-419a-8b44-ac9047ef8724", CellID->174404615] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[176805, 4191, 955, 25, 70, "Subsection",ExpressionUUID->"c41b639b-8c25-47aa-aa98-881e6e01744b", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->695575686], Cell[CellGroupData[{ Cell[177785, 4220, 1174, 31, 70, "Subsubsection",ExpressionUUID->"19b8f038-2bea-4034-abd4-50e9063602e6", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[178962, 4253, 89, 2, 70, "Text",ExpressionUUID->"a77e1ac7-473b-4fa9-b18e-1847686fecc3", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->788185540] }, Open ]], Cell[CellGroupData[{ Cell[179088, 4260, 1113, 29, 70, "Subsubsection",ExpressionUUID->"435d080e-bd63-429c-b41f-7d8384410929", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->172929666], Cell[180204, 4291, 2098, 62, 70, "Output",ExpressionUUID->"a498a6c5-7b58-49a9-a2bb-ef044a54694f", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[182339, 4358, 1280, 33, 70, "Subsubsection",ExpressionUUID->"df31f0d3-e5fe-4e57-9dd6-11beba16b0a9", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->304592644], Cell[183622, 4393, 2149, 63, 70, "Output",ExpressionUUID->"e8215abf-c70b-454c-9c36-3d8f533758a9", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[185808, 4461, 1913, 46, 70, "Subsubsection",ExpressionUUID->"7739b808-d379-4023-8665-66632bd804d8", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->684661901], Cell[187724, 4509, 3991, 117, 70, "Output",ExpressionUUID->"23b5537a-a77b-43e7-bb3e-f729d102564f", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->171952027] }, Closed]], Cell[CellGroupData[{ Cell[191752, 4631, 1071, 27, 70, "Subsubsection",ExpressionUUID->"9ee8d20f-7cad-4d38-a71c-ec393e9bf4f1", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->104285080], Cell[192826, 4660, 1218, 36, 70, "Output",ExpressionUUID->"711a9458-ba13-4545-a781-630a4a5dbf13", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[194105, 4703, 1155, 28, 70, "Section",ExpressionUUID->"11b40312-e435-4589-8a25-98109e1cb865", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[195263, 4733, 529, 8, 70, "Text",ExpressionUUID->"3399c657-da47-43ad-960b-681d0e4bb237", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[195829, 4746, 1033, 26, 70, "Section",ExpressionUUID->"4680224c-dee1-4f47-a7fc-d32140db63d0", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[196865, 4774, 515, 8, 70, "Text",ExpressionUUID->"a6ca882b-bbcd-429f-ac7c-7c6ce0751888", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)