(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 109563, 2436] NotebookOptionsPosition[ 52092, 1212] NotebookOutlinePosition[ 102654, 2268] CellTagsIndexPosition[ 102051, 2247] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["OpenStreamQ", "Title", CellChangeTimes->{3.755978973977756*^9}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["Test if a stream is open.", "Text", CellChangeTimes->{{3.7560556135700407`*^9, 3.7560556194217997`*^9}}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[{ RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"GeneralUtilities`OpenStreamQ", ",", "`OpenStreamQ"}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.7559641199914627`*^9, 3.75596411999396*^9}, 3.755964431477751*^9}, CellLabel->"In[26]:=", CellID->1396040421] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OpenStreamQ", "[", StyleBox["stream", FontSlant->"Italic"], "]"}]], "UsageInputs", CellChangeTimes->{ 3.755978977119618*^9, {3.756055291861216*^9, 3.756055292970736*^9}}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "returns True if ", StyleBox["stream", FontSlant->"Italic"], " is opened and False otherwise." }], "UsageDescription", CellChangeTimes->{{3.7560551193546762`*^9, 3.756055138680764*^9}, 3.757963629674625*^9}, CellTags->"TabNext", CellID->231889230] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell["Additional information about usage and options.", "Notes", CellTags->"TabNext", CellID->521904482] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Test if a stream is open:", "Text", CellChangeTimes->{{3.7560554169098186`*^9, 3.756055421746825*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"str", "=", RowBox[{"StringToStream", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.756055451540413*^9, 3.756055458129877*^9}}, CellLabel->"In[32]:=", CellID->1222518730], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InputStream", "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[{ Thickness[0.0016806722689075631`], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}]}, FaceForm[{ GrayLevel[0.93], Opacity[1.]}], StripOnInput -> False], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}, CurveClosed -> {1}]}, JoinForm[{"Miter", 10.}], RGBColor[0.699951, 0.699951, 0.699951, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{22.478099999999998`, 1.0035199999999997`}, {23.478899999999996`, 1.0035199999999997`}, {24.321099999999998`, 1.0035199999999997`}, {25.003899999999998`, 1.6863299999999997`}, {25.003899999999998`, 2.5285199999999994`}, {25.003899999999998`, 23.474999999999998`}, {25.003899999999998`, 24.317199999999996`}, {24.321099999999998`, 24.999999999999996`}, {23.478899999999996`, 24.999999999999996`}, {22.478099999999998`, 24.999999999999996`}, {22.478099999999998`, 24.999999999999993`}, {20.4805, 22.421099999999996`}, { 20.4805, 13.0039}, {20.4805, 3.5867199999999992`}, { 22.478099999999998`, 1.0035199999999997`}, { 22.478099999999998`, 1.0035199999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}}}, {{{3.50586, 12.9016}, {8.26328, 16.8398}, {8.26328, 14.856599999999998`}, { 6.0230500000000005`, 12.947299999999997`}, {8.26328, 10.946100000000001`}, {8.26328, 8.96289}, {3.50586, 12.9016}}}]}, 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}}}, {{{16.801199999999998`, 12.8969}, {16.801199999999998`, 12.335499999999998`}, {17.256200000000003`, 11.880899999999999`}, {17.817599999999995`, 11.880899999999999`}, {18.378899999999998`, 11.880899999999999`}, {18.834, 12.335499999999998`}, {18.834, 12.8969}, {18.834, 13.458200000000003`}, { 18.378899999999998`, 13.9133}, {17.817599999999995`, 13.9133}, {17.256200000000003`, 13.9133}, { 16.801199999999998`, 13.458200000000003`}, { 16.801199999999998`, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{13.3812, 12.8969}, {13.3812, 12.335499999999998`}, { 13.836300000000001`, 11.880899999999999`}, { 14.397699999999999`, 11.880899999999999`}, { 14.958999999999998`, 11.880899999999999`}, { 15.413699999999999`, 12.335499999999998`}, { 15.413699999999999`, 12.8969}, {15.413699999999999`, 13.458200000000003`}, {14.958999999999998`, 13.9133}, { 14.397699999999999`, 13.9133}, {13.836300000000001`, 13.9133}, {13.3812, 13.458200000000003`}, {13.3812, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{9.961329999999998, 12.8969}, {9.961329999999998, 12.335499999999998`}, {10.4164, 11.880899999999999`}, { 10.977699999999999`, 11.880899999999999`}, { 11.538699999999999`, 11.880899999999999`}, {11.9938, 12.335499999999998`}, {11.9938, 12.8969}, {11.9938, 13.458200000000003`}, {11.538699999999999`, 13.9133}, { 10.977699999999999`, 13.9133}, {10.4164, 13.9133}, { 9.961329999999998, 13.458200000000003`}, {9.961329999999998, 12.8969}}}]}, FaceForm[ RGBColor[ 0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`, 1.]], StripOnInput -> False]}, Background -> GrayLevel[0.5], Axes -> False, AspectRatio -> 1, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]]], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ StyleBox[ PaneBox[ "\"String\"", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Unique ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "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[{ Thickness[0.0016806722689075631`], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}]}, FaceForm[{ GrayLevel[0.93], Opacity[1.]}], StripOnInput -> False], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}, CurveClosed -> {1}]}, JoinForm[{"Miter", 10.}], RGBColor[0.699951, 0.699951, 0.699951, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{22.478099999999998`, 1.0035199999999997`}, {23.478899999999996`, 1.0035199999999997`}, {24.321099999999998`, 1.0035199999999997`}, {25.003899999999998`, 1.6863299999999997`}, {25.003899999999998`, 2.5285199999999994`}, {25.003899999999998`, 23.474999999999998`}, {25.003899999999998`, 24.317199999999996`}, {24.321099999999998`, 24.999999999999996`}, {23.478899999999996`, 24.999999999999996`}, {22.478099999999998`, 24.999999999999996`}, {22.478099999999998`, 24.999999999999993`}, {20.4805, 22.421099999999996`}, { 20.4805, 13.0039}, {20.4805, 3.5867199999999992`}, { 22.478099999999998`, 1.0035199999999997`}, { 22.478099999999998`, 1.0035199999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}}}, {{{3.50586, 12.9016}, {8.26328, 16.8398}, {8.26328, 14.856599999999998`}, { 6.0230500000000005`, 12.947299999999997`}, {8.26328, 10.946100000000001`}, {8.26328, 8.96289}, {3.50586, 12.9016}}}]}, 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}}}, {{{16.801199999999998`, 12.8969}, {16.801199999999998`, 12.335499999999998`}, {17.256200000000003`, 11.880899999999999`}, {17.817599999999995`, 11.880899999999999`}, {18.378899999999998`, 11.880899999999999`}, {18.834, 12.335499999999998`}, {18.834, 12.8969}, {18.834, 13.458200000000003`}, { 18.378899999999998`, 13.9133}, {17.817599999999995`, 13.9133}, {17.256200000000003`, 13.9133}, { 16.801199999999998`, 13.458200000000003`}, { 16.801199999999998`, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{13.3812, 12.8969}, {13.3812, 12.335499999999998`}, { 13.836300000000001`, 11.880899999999999`}, { 14.397699999999999`, 11.880899999999999`}, { 14.958999999999998`, 11.880899999999999`}, { 15.413699999999999`, 12.335499999999998`}, { 15.413699999999999`, 12.8969}, {15.413699999999999`, 13.458200000000003`}, {14.958999999999998`, 13.9133}, { 14.397699999999999`, 13.9133}, {13.836300000000001`, 13.9133}, {13.3812, 13.458200000000003`}, {13.3812, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{9.961329999999998, 12.8969}, {9.961329999999998, 12.335499999999998`}, {10.4164, 11.880899999999999`}, { 10.977699999999999`, 11.880899999999999`}, { 11.538699999999999`, 11.880899999999999`}, {11.9938, 12.335499999999998`}, {11.9938, 12.8969}, {11.9938, 13.458200000000003`}, {11.538699999999999`, 13.9133}, { 10.977699999999999`, 13.9133}, {10.4164, 13.9133}, { 9.961329999999998, 13.458200000000003`}, {9.961329999999998, 12.8969}}}]}, FaceForm[ RGBColor[ 0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`, 1.]], StripOnInput -> False]}, Background -> GrayLevel[0.5], Axes -> False, AspectRatio -> 1, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]]], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ "String", ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Unique ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Binary: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Open: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[Options[ InputStream[String, 3]] =!= {}, StandardForm], UpdateInterval -> 1], "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:>{}], "]"}], InputStream[String, 3], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7560553978414717`*^9, 3.756055459128352*^9}, CellLabel->"Out[32]=", CellID->504600238] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OpenStreamQ", "[", "str", "]"}]], "Input", CellChangeTimes->{{3.756055399919058*^9, 3.756055405218755*^9}}, CellLabel->"In[33]:=", CellID->1703787068], Cell[BoxData["True"], "Output", CellChangeTimes->{3.756055405784092*^9, 3.7560554609709053`*^9}, CellLabel->"Out[33]=", CellID->888371999] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Close", "[", "str", "]"}]], "Input", CellLabel->"In[34]:=", CellID->582078707], Cell[BoxData["String"], "Output", CellChangeTimes->{{3.756055443235777*^9, 3.7560554636862926`*^9}}, CellLabel->"Out[34]=", CellID->1145555257] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OpenStreamQ", "[", "str", "]"}]], "Input", CellLabel->"In[31]:=", CellID->1208816464], Cell[BoxData["False"], "Output", CellChangeTimes->{3.756055443323126*^9}, CellLabel->"Out[31]=", CellID->1470677302] }, Open ]], Cell["Open another stream:", "Text", CellChangeTimes->{{3.7560554169098186`*^9, 3.756055421746825*^9}, { 3.75605557651597*^9, 3.756055600712933*^9}}, CellID->581141060], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stmp", "=", RowBox[{"OpenWrite", "[", "\"\\"", "]"}]}]], "Input", CellLabel->"In[35]:=", CellID->490529724], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["OutputStream", "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[{ Thickness[0.0016806722689075631`], { FaceForm[{ GrayLevel[0.93], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}]}, { RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], JoinForm[{ElisionsDump`Miter, 10.}], JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}]}, { FaceForm[{ RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 1.0035199999999997`}, {2.5250000000000004`, 1.0035199999999997`}, {1.6828099999999997`, 1.0035199999999997`}, {0.9999999999999999, 1.6863299999999997`}, {0.9999999999999999, 2.5285199999999994`}, {0.9999999999999999, 23.474999999999998`}, {0.9999999999999999, 24.317199999999996`}, {1.6828099999999997`, 24.999999999999996`}, {2.5250000000000004`, 24.999999999999996`}, {3.52539, 24.999999999999996`}, { 3.52539, 24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {5.523440000000001, 13.0039}, { 5.523440000000001, 3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 1.0035199999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, { 17.740599999999997`, 16.8398}, {17.740599999999997`, 14.856599999999998`}, {19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 10.946100000000001`}, {17.740599999999997`, 8.96289}, { 22.4977, 12.9016}}}]}, { FaceForm[{ RGBColor[ 0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{9.202339999999998, 12.8969}, {9.202339999999998, 12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {8.186329999999998, 11.880899999999999`}, {7.624999999999999, 11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {7.169920000000001, 12.8969}, { 7.169920000000001, 13.458200000000003`}, {7.624999999999999, 13.9133}, {8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {9.202339999999998, 13.458200000000003`}, { 9.202339999999998, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{12.6227, 12.8969}, {12.6227, 12.335499999999998`}, { 12.167599999999998`, 11.880899999999999`}, { 11.606200000000001`, 11.880899999999999`}, {11.0449, 11.880899999999999`}, {10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 12.8969}, { 10.589799999999999`, 13.458200000000003`}, {11.0449, 13.9133}, {11.606200000000001`, 13.9133}, { 12.167599999999998`, 13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{16.042600000000004`, 12.8969}, {16.042600000000004`, 12.335499999999998`}, {15.587499999999999`, 11.880899999999999`}, {15.026199999999998`, 11.880899999999999`}, {14.464799999999997`, 11.880899999999999`}, {14.010199999999998`, 12.335499999999998`}, {14.010199999999998`, 12.8969}, { 14.010199999999998`, 13.458200000000003`}, { 14.464799999999997`, 13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 13.9133}, { 16.042600000000004`, 13.458200000000003`}, { 16.042600000000004`, 12.8969}}}]}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.5], Frame -> True, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ StyleBox[ PaneBox[ "\"tmp\"", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Unique ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "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[{ Thickness[0.0016806722689075631`], { FaceForm[{ GrayLevel[0.93], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}]}, { RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], JoinForm[{ElisionsDump`Miter, 10.}], JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{ 25.499999999999996`, 2.5}, {25.499999999999996`, 1.3953100000000003`}, {24.604699999999998`, 0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 0.49999999999999994`}, {1.3953100000000003`, 0.49999999999999994`}, {0.49999999999999994`, 1.3953100000000003`}, {0.49999999999999994`, 2.5}, { 0.49999999999999994`, 23.5}, {0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`, 25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 25.499999999999996`}, {24.604699999999998`, 25.499999999999996`}, {25.499999999999996`, 24.604699999999998`}, {25.499999999999996`, 23.5}, { 25.499999999999996`, 2.5}}}]}, { FaceForm[{ RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, { 0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 1.0035199999999997`}, {2.5250000000000004`, 1.0035199999999997`}, {1.6828099999999997`, 1.0035199999999997`}, {0.9999999999999999, 1.6863299999999997`}, {0.9999999999999999, 2.5285199999999994`}, {0.9999999999999999, 23.474999999999998`}, {0.9999999999999999, 24.317199999999996`}, {1.6828099999999997`, 24.999999999999996`}, {2.5250000000000004`, 24.999999999999996`}, {3.52539, 24.999999999999996`}, { 3.52539, 24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {5.523440000000001, 13.0039}, { 5.523440000000001, 3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 1.0035199999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, { 17.740599999999997`, 16.8398}, {17.740599999999997`, 14.856599999999998`}, {19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 10.946100000000001`}, {17.740599999999997`, 8.96289}, { 22.4977, 12.9016}}}]}, { FaceForm[{ RGBColor[ 0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{9.202339999999998, 12.8969}, {9.202339999999998, 12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {8.186329999999998, 11.880899999999999`}, {7.624999999999999, 11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {7.169920000000001, 12.8969}, { 7.169920000000001, 13.458200000000003`}, {7.624999999999999, 13.9133}, {8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {9.202339999999998, 13.458200000000003`}, { 9.202339999999998, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{12.6227, 12.8969}, {12.6227, 12.335499999999998`}, { 12.167599999999998`, 11.880899999999999`}, { 11.606200000000001`, 11.880899999999999`}, {11.0449, 11.880899999999999`}, {10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 12.8969}, { 10.589799999999999`, 13.458200000000003`}, {11.0449, 13.9133}, {11.606200000000001`, 13.9133}, { 12.167599999999998`, 13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{16.042600000000004`, 12.8969}, {16.042600000000004`, 12.335499999999998`}, {15.587499999999999`, 11.880899999999999`}, {15.026199999999998`, 11.880899999999999`}, {14.464799999999997`, 11.880899999999999`}, {14.010199999999998`, 12.335499999999998`}, {14.010199999999998`, 12.8969}, { 14.010199999999998`, 13.458200000000003`}, { 14.464799999999997`, 13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 13.9133}, { 16.042600000000004`, 13.458200000000003`}, { 16.042600000000004`, 12.8969}}}]}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.5], Frame -> True, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ "\"tmp\"", ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Unique ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Binary: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Open: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicBox[ ToBoxes[Options[ OutputStream["tmp", 3]] =!= {}, StandardForm], UpdateInterval -> 1], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Encoding: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["Automatic", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Format: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["InputForm", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Page width: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["78", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Number marks: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["Automatic", "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:>{}], "]"}], OutputStream["tmp", 3], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7560555608436728`*^9}, CellLabel->"Out[35]=", CellID->1304333902] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OpenStreamQ", "[", "stmp", "]"}]], "Input", CellChangeTimes->{{3.756055399919058*^9, 3.756055405218755*^9}, 3.756055555703779*^9}, CellLabel->"In[36]:=", CellID->143350435], Cell[BoxData["True"], "Output", CellChangeTimes->{3.756055405784092*^9, 3.7560554609709053`*^9, 3.756055560987771*^9}, CellLabel->"Out[36]=", CellID->426822338] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Close", "[", "stmp", "]"}]], "Input", CellChangeTimes->{3.756055556848516*^9}, CellLabel->"In[37]:=", CellID->320534962], Cell[BoxData["\<\"tmp\"\>"], "Output", CellChangeTimes->{{3.756055443235777*^9, 3.7560554636862926`*^9}, 3.756055561073433*^9}, CellLabel->"Out[37]=", CellID->1007653786] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["Taliesin Beynon (Wolfram Research)", "Text", CellChangeTimes->{3.7560557397490597`*^9}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["open pipe", "Item", CellChangeTimes->{{3.756055804700506*^9, 3.756055806588789*^9}}, CellTags->"TabNext", CellID->123227828], Cell["open file", "Item", CellChangeTimes->{{3.756055821695375*^9, 3.7560558231246147`*^9}}, CellID->1829167840], Cell["write to stream", "Item", CellChangeTimes->{{3.75605581307946*^9, 3.756055818445795*^9}}, CellID->921318038], Cell["test stream", "Item", CellChangeTimes->{{3.75605583200213*^9, 3.756055834029051*^9}}, CellID->1141233865] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->911170439], Cell["SymbolName (documented Wolfram Language symbol)", "Item", CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell["Source, reference or citation information", "Text", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell["Link to other related material", "Item", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell["Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Notes", CellID->694045252] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.10"}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, 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[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], 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]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 123, 3, 70, "Title",ExpressionUUID->"fabec5da-81dd-4f96-b6af-46009fce452e", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 123, 3, 70, "Title",ExpressionUUID->"fabec5da-81dd-4f96-b6af-46009fce452e", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[706, 27, 170, 3, 70, "Text",ExpressionUUID->"77100581-c815-4207-a05b-57cb3fc16ec4", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[3177, 104, 245, 7, 70, "UsageInputs",ExpressionUUID->"32cdd393-08e6-4a6c-9e36-cbf7b86c671f", CellTags->"TabNext", CellID->157543866], Cell[3425, 113, 275, 9, 70, "UsageDescription",ExpressionUUID->"0ce9ba52-d054-428c-8517-cc5e66da180a", CellTags->"TabNext", CellID->231889230], Cell[4566, 150, 106, 2, 70, "Notes",ExpressionUUID->"95e6aa28-cef2-4ae5-af26-55030d6a03de", CellTags->"TabNext", CellID->521904482], Cell[46272, 1008, 136, 3, 70, "Text",ExpressionUUID->"bbc69d51-ff38-4bdc-ac44-c3eeb96d27cb", CellTags->"TabNext", CellID->832483124], Cell[47095, 1038, 133, 3, 70, "Item",ExpressionUUID->"cfe68ae5-dba3-4821-a64c-59b5b576c8bc", CellTags->"TabNext", CellID->123227828], Cell[48294, 1079, 104, 2, 70, "Item",ExpressionUUID->"b9ff4964-b8ae-4032-b097-610def677425", CellTags->"TabNext", CellID->79477165], Cell[49140, 1106, 111, 2, 70, "Item",ExpressionUUID->"4f198c11-a584-4330-9809-8307dba77009", CellTags->"TabNext", CellID->960273585], Cell[50046, 1134, 99, 2, 70, "Text",ExpressionUUID->"6d6c04a0-e091-4017-9bb4-167cf98a9ae3", CellTags->"TabNext", CellID->343081869], Cell[50782, 1160, 88, 2, 70, "Item",ExpressionUUID->"935ef173-75d6-436e-a9d4-a57b51c4b99c", CellTags->"TabNext", CellID->485448166]}, "Description"->{ Cell[706, 27, 170, 3, 70, "Text",ExpressionUUID->"77100581-c815-4207-a05b-57cb3fc16ec4", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[901, 34, 877, 21, 70, "Section",ExpressionUUID->"20fa6ded-1f41-44df-8806-50d4afce7a17", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[2245, 73, 99, 3, 70, "Section",ExpressionUUID->"cc00dc9d-c4f6-4f50-9765-899a9e24b6b4", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[2369, 80, 783, 20, 70, "Subsection",ExpressionUUID->"5c56cf54-5bf7-4031-95cf-6d56adc065e1", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[3749, 128, 814, 20, 70, "Subsection",ExpressionUUID->"c1236bc4-b324-4f91-ab83-6237b4fa75d5", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[4721, 158, 913, 21, 70, "Section",ExpressionUUID->"436a3bf5-5f73-4991-b142-924bdcd2b80f", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[45437, 981, 135, 3, 70, "Section",ExpressionUUID->"031476f5-9236-4c38-9253-288acc131388", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[45597, 988, 672, 18, 70, "Subsection",ExpressionUUID->"f8064490-309d-43fc-9158-e27317d5bf8e", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[46445, 1016, 625, 18, 70, "Subsection",ExpressionUUID->"93491588-aa3a-46d2-9410-4f8ba4f7e5ee", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[47629, 1059, 662, 18, 70, "Subsection",ExpressionUUID->"753f945f-6a30-4551-bc1a-704c72a84ae2", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[48435, 1086, 702, 18, 70, "Subsection",ExpressionUUID->"5136d670-538f-4873-890f-cfa69de31051", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[49288, 1113, 755, 19, 70, "Subsection",ExpressionUUID->"af35c4f8-d710-4e0e-ae59-fa4c007d3f6d", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[50182, 1141, 597, 17, 70, "Subsection",ExpressionUUID->"4a25d40f-bf00-41e5-b7b8-289901383c8e", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[50907, 1167, 767, 20, 70, "Subsection",ExpressionUUID->"d738fe36-5895-4ca3-8946-1f05b23a3dc2", CellTags->"Tests", CellID->16051757]}, "Notes"->{ Cell[51963, 1205, 113, 4, 70, "Section",ExpressionUUID->"83130d56-a5de-4340-8354-b33dcebd33b8", CellTags->"Notes", CellID->694045252]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 97661, 2146}, {"TabNext", 97826, 2150}, {"Description", 99439, 2184}, {"Definition", 99612, 2188}, {"Documentation", 99778, 2192}, {"Usage", 99938, 2196}, {"Details & Options", 100107, 2200}, {"Examples", 100279, 2204}, {"Source & Additional Information", 100463, 2208}, {"Contributed By", 100653, 2212}, {"Keywords", 100824, 2216}, {"Related Symbols", 100997, 2220}, {"Related Resource Objects", 101186, 2224}, {"Source/Reference Citation", 101385, 2228}, {"Links", 101565, 2232}, {"Tests", 101725, 2236}, {"Notes", 101884, 2240} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 123, 3, 70, "Title",ExpressionUUID->"fabec5da-81dd-4f96-b6af-46009fce452e", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[706, 27, 170, 3, 70, "Text",ExpressionUUID->"77100581-c815-4207-a05b-57cb3fc16ec4", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[901, 34, 877, 21, 70, "Section",ExpressionUUID->"20fa6ded-1f41-44df-8806-50d4afce7a17", CellTags->"Definition", CellID->608264297], Cell[1781, 57, 427, 11, 70, "Input",ExpressionUUID->"49aca97c-96d7-4500-8af0-b69de0a28bfb", CellID->1396040421] }, Open ]], Cell[CellGroupData[{ Cell[2245, 73, 99, 3, 70, "Section",ExpressionUUID->"cc00dc9d-c4f6-4f50-9765-899a9e24b6b4", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[2369, 80, 783, 20, 70, "Subsection",ExpressionUUID->"5c56cf54-5bf7-4031-95cf-6d56adc065e1", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[3177, 104, 245, 7, 70, "UsageInputs",ExpressionUUID->"32cdd393-08e6-4a6c-9e36-cbf7b86c671f", CellTags->"TabNext", CellID->157543866], Cell[3425, 113, 275, 9, 70, "UsageDescription",ExpressionUUID->"0ce9ba52-d054-428c-8517-cc5e66da180a", CellTags->"TabNext", CellID->231889230] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3749, 128, 814, 20, 70, "Subsection",ExpressionUUID->"c1236bc4-b324-4f91-ab83-6237b4fa75d5", CellTags->"Details & Options", CellID->29639701], Cell[4566, 150, 106, 2, 70, "Notes",ExpressionUUID->"95e6aa28-cef2-4ae5-af26-55030d6a03de", CellTags->"TabNext", CellID->521904482] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4721, 158, 913, 21, 70, "Section",ExpressionUUID->"436a3bf5-5f73-4991-b142-924bdcd2b80f", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[5659, 183, 56, 1, 70, "Subsection",ExpressionUUID->"3d18dc63-a919-4088-b1c9-c3a4a3acfec0", CellID->462042388], Cell[5718, 186, 128, 2, 70, "Text",ExpressionUUID->"9bfb4ee7-0e69-447d-8fe8-b6210cb57d86", CellID->13078159], Cell[CellGroupData[{ Cell[5871, 192, 221, 5, 70, "Input",ExpressionUUID->"6e429c00-4f61-4f1e-b187-29c69e692403", CellID->1222518730], Cell[6095, 199, 18396, 338, 70, "Output",ExpressionUUID->"b7b06abc-6841-4580-8d24-9ecaf1cb7b65", CellID->504600238] }, Open ]], Cell[CellGroupData[{ Cell[24528, 542, 177, 4, 70, "Input",ExpressionUUID->"ee8895f6-d286-4a5a-9518-2f10c94f6522", CellID->1703787068], Cell[24708, 548, 141, 3, 70, "Output",ExpressionUUID->"29f826a2-3aca-4e40-8efd-866d11404db3", CellID->888371999] }, Open ]], Cell[CellGroupData[{ Cell[24886, 556, 104, 3, 70, "Input",ExpressionUUID->"99f6cf9c-3dfa-48b7-a5c8-3e9e26423951", CellID->582078707], Cell[24993, 561, 146, 3, 70, "Output",ExpressionUUID->"5390086c-9b74-424a-80bb-6e54143ceca3", CellID->1145555257] }, Open ]], Cell[CellGroupData[{ Cell[25176, 569, 111, 3, 70, "Input",ExpressionUUID->"a5e6fa28-b26b-4884-8745-2c233720ff0f", CellID->1208816464], Cell[25290, 574, 119, 3, 70, "Output",ExpressionUUID->"11797d99-b360-4cbd-a0ac-7761db009f9e", CellID->1470677302] }, Open ]], Cell[25424, 580, 172, 3, 70, "Text",ExpressionUUID->"f6f33bb2-8616-4a39-bbeb-ac170e6e69ab", CellID->581141060], Cell[CellGroupData[{ Cell[25621, 587, 142, 4, 70, "Input",ExpressionUUID->"499342f3-cf1b-42ac-a1f9-bb56f5f26e9b", CellID->490529724], Cell[25766, 593, 18837, 350, 70, "Output",ExpressionUUID->"6ecd0216-215b-4168-b846-8e1d72d9ab35", CellID->1304333902] }, Open ]], Cell[CellGroupData[{ Cell[44640, 948, 203, 5, 70, "Input",ExpressionUUID->"b367c429-e965-4dac-a172-401fd3835673", CellID->143350435], Cell[44846, 955, 166, 4, 70, "Output",ExpressionUUID->"42933352-f936-4cc4-930e-4cbd0ce7a0c6", CellID->426822338] }, Open ]], Cell[CellGroupData[{ Cell[45049, 964, 147, 4, 70, "Input",ExpressionUUID->"040fb1ee-3f1c-4ea3-b76d-90aafc92c2a7", CellID->320534962], Cell[45199, 970, 177, 4, 70, "Output",ExpressionUUID->"1b1f5747-55dc-4ec1-b64c-43c4e6dde0a3", CellID->1007653786] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45437, 981, 135, 3, 70, "Section",ExpressionUUID->"031476f5-9236-4c38-9253-288acc131388", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[45597, 988, 672, 18, 70, "Subsection",ExpressionUUID->"f8064490-309d-43fc-9158-e27317d5bf8e", CellTags->"Contributed By", CellID->757508554], Cell[46272, 1008, 136, 3, 70, "Text",ExpressionUUID->"bbc69d51-ff38-4bdc-ac44-c3eeb96d27cb", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[46445, 1016, 625, 18, 70, "Subsection",ExpressionUUID->"93491588-aa3a-46d2-9410-4f8ba4f7e5ee", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[47095, 1038, 133, 3, 70, "Item",ExpressionUUID->"cfe68ae5-dba3-4821-a64c-59b5b576c8bc", CellTags->"TabNext", CellID->123227828], Cell[47231, 1043, 114, 2, 70, "Item",ExpressionUUID->"a3351e91-672e-4f4f-a947-5782d90ebb9a", CellID->1829167840], Cell[47348, 1047, 116, 2, 70, "Item",ExpressionUUID->"3525f8b5-a73d-4321-8005-f42059ab73f3", CellID->921318038], Cell[47467, 1051, 113, 2, 70, "Item",ExpressionUUID->"7e94f00e-85a7-4a7f-8393-74da17593d4a", CellID->1141233865] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47629, 1059, 662, 18, 70, "Subsection",ExpressionUUID->"753f945f-6a30-4551-bc1a-704c72a84ae2", CellTags->"Related Symbols", CellID->911170439], Cell[48294, 1079, 104, 2, 70, "Item",ExpressionUUID->"b9ff4964-b8ae-4032-b097-610def677425", CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[CellGroupData[{ Cell[48435, 1086, 702, 18, 70, "Subsection",ExpressionUUID->"5136d670-538f-4873-890f-cfa69de31051", CellTags->"Related Resource Objects", CellID->217060377], Cell[49140, 1106, 111, 2, 70, "Item",ExpressionUUID->"4f198c11-a584-4330-9809-8307dba77009", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[49288, 1113, 755, 19, 70, "Subsection",ExpressionUUID->"af35c4f8-d710-4e0e-ae59-fa4c007d3f6d", CellTags->"Source/Reference Citation", CellID->967310595], Cell[50046, 1134, 99, 2, 70, "Text",ExpressionUUID->"6d6c04a0-e091-4017-9bb4-167cf98a9ae3", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[50182, 1141, 597, 17, 70, "Subsection",ExpressionUUID->"4a25d40f-bf00-41e5-b7b8-289901383c8e", CellTags->"Links", CellID->593846556], Cell[50782, 1160, 88, 2, 70, "Item",ExpressionUUID->"935ef173-75d6-436e-a9d4-a57b51c4b99c", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[50907, 1167, 767, 20, 70, "Subsection",ExpressionUUID->"d738fe36-5895-4ca3-8946-1f05b23a3dc2", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[51699, 1191, 129, 4, 70, "Input",ExpressionUUID->"2ff8e49a-b100-4987-8b97-e9f817cedcf7", CellID->667877521], Cell[51831, 1197, 93, 3, 70, "Output",ExpressionUUID->"11b2ccac-52a6-41bb-ab95-4970c3331790", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[51963, 1205, 113, 4, 70, "Section",ExpressionUUID->"83130d56-a5de-4340-8354-b33dcebd33b8", CellTags->"Notes", CellID->694045252] }, Open ]] } ] *) (* End of internal cache information *)