(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 81506, 2221] NotebookOptionsPosition[ 73265, 2026] NotebookOutlinePosition[ 75024, 2078] CellTagsIndexPosition[ 74981, 2075] WindowTitle->ContextModule | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Temporarily use an empty context:", "Text", TaggingRules->{}, CellID->445248503], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/ContextModule"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ContextModule"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ContextModule"], BoxID -> "ContextModule", Selectable->False], "[", "$Context", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.74827188935767*^9, 3.748271893265552*^9}}, CellLabel->"In[2]:=", CellID->336410059], Cell[BoxData["\<\"$3de11701d79f4a56956cb4abb87a7d8d`\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482718952904797`*^9, 3.748272912077329*^9, 3.7482731159064856`*^9, 3.748273806695674*^9}, CellLabel->"Out[2]=", CellID->773629009] }, Open ]], Cell[TextData[{ "The ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$ContextPath", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/$ContextPath", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " is also changed:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.748271906641173*^9, 3.7482719249806423`*^9}}, CellID->930694732], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/ContextModule"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ContextModule"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ContextModule"], BoxID -> "ContextModule", Selectable->False], "[", "$ContextPath", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748271931665435*^9, 3.748271932049426*^9}}, CellLabel->"In[3]:=", CellID->810509238], Cell[BoxData[ RowBox[{"{", "\<\"$9254afbb75e0418db7d4c679786d662e`\"\>", "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.748271934458356*^9, 3.74827291225033*^9, 3.7482731174414434`*^9, 3.7482738068786917`*^9}, CellLabel->"Out[3]=", CellID->359580517] }, Open ]], Cell[TextData[{ "The values of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$Context", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/$Context", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " and ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["$ContextPath", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/$ContextPath", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " are restored after evaluation of ", Cell[BoxData[ StyleBox["ContextModule", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.748271949296946*^9, 3.74827199778154*^9}}, CellID->344158024], Cell[CellGroupData[{ Cell[BoxData["$Context"], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->785776518], Cell[BoxData["\<\"Global`\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.748272015900036*^9, 3.7482729123173256`*^9, 3.748273118968399*^9, 3.7482738069366665`*^9}, CellLabel->"Out[4]=", CellID->485075946] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["$ContextPath"], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482719683423824`*^9, 3.7482719706073384`*^9}, { 3.7482720052973437`*^9, 3.748272018217969*^9}}, CellLabel->"In[5]:=", CellID->75234567], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"CloudPublishMenu`\"\>", ",", "\<\"SystemTools`\"\>", ",", "\<\"ExternalEvaluateLoader`\"\>", ",", "\<\"PacletManager`\"\>", ",", "\<\"System`\"\>", ",", "\<\"Global`\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.748272007558262*^9, 3.7482720190089455`*^9}, { 3.748272886821081*^9, 3.7482729123853254`*^9}, 3.7482731206693735`*^9, 3.7482738069886885`*^9}, CellLabel->"Out[5]=", CellID->350767453] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Applications", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->568056528], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Put", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Put", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " to write an expression into a file with fully qualified symbol names:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.767959318685054*^9, 3.767959322304885*^9}, { 3.7679593842537727`*^9, 3.7679593885623007`*^9}}, CellID->974823637], Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/ContextModule"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ContextModule"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ContextModule"], BoxID -> "ContextModule", Selectable->False], "[", RowBox[{"Put", "[", RowBox[{ RowBox[{"a", "+", "b"}], ",", RowBox[{"file", "=", RowBox[{"CreateFile", "[", "]"}]}]}], "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[6]:=", CellID->157909965], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FilePrint", "[", "file", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[7]:=", CellID->951963384], Cell["Global`a + Global`b", "Print", TaggingRules->{}, CellChangeTimes->{3.7482729282268934`*^9, 3.7482731263702106`*^9, 3.748273813386504*^9}, CellLabel->"During evaluation of In[7]:=", CellID->485973384] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031726], Cell[TextData[{ "Apply ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Compress", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Compress", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " to an expression so that it is not dependent on the current context:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.767958100670993*^9, 3.767958120972568*^9}}, CellID->919989581], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"$ContextPath", "=", RowBox[{"Append", "[", RowBox[{"$ContextPath", ",", "\"\\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"compressed", "=", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/ContextModule"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ContextModule"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ContextModule"], BoxID -> "ContextModule", Selectable->False], "[", RowBox[{"Compress", "[", RowBox[{"MyContext`x", "+", "MyContext`y"}], "]"}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482730252200856`*^9, 3.748273071796749*^9}}, CellLabel->"In[8]:=", CellID->310020784], Cell[BoxData["\<\"1:eJxTTMoPSmNiYGAo5gYSwZXFJam5CQE5pcVgvm+\ lc35eSWpFSUIFGr8SALM6ELc=\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7482729361836424`*^9, {3.7482730596821213`*^9, 3.748273074007687*^9}, 3.748273130709086*^9, 3.7482738134424796`*^9}, CellLabel->"Out[9]=", CellID->991106567] }, Open ]], Cell["\<\ This ensures that contexts are preserved when uncompressed in another session:\ \>", "Text", TaggingRules->{}, CellID->24174860], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudEvaluate", "[", RowBox[{"Uncompress", "[", RowBox[{"compressed", ",", "ToString"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[10]:=", CellID->303606819], Cell[BoxData["\<\"MyContext`x + MyContext`y\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.748272943343435*^9, 3.7482731382538443`*^9, 3.7482738148984566`*^9}, CellLabel->"Out[10]=", CellID->996177064] }, Open ]], Cell[TextData[{ "Without ", Cell[BoxData[ StyleBox["ContextModule", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ", the symbols would take on whatever the current context is when \ uncompressed:" }], "Text", TaggingRules->{}, CellID->652764908], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"compressed", "=", RowBox[{"Compress", "[", RowBox[{"MyContext`x", "+", "MyContext`y"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{3.748273149156531*^9}, CellLabel->"In[11]:=", CellID->996622155], Cell[BoxData["\<\"1:eJxTTMoPSmNiYGAoZgESATmlxcWMQEYFmKwEAFulBaE=\"\>"], \ "Output", TaggingRules->{}, CellChangeTimes->{3.748273157592288*^9, 3.7482738150764327`*^9}, CellLabel->"Out[11]=", CellID->34923885] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudEvaluate", "[", RowBox[{"Uncompress", "[", RowBox[{"compressed", ",", "ToString"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[12]:=", CellID->729384765], Cell[BoxData["\<\"x + y\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.748273160864214*^9, 3.748273815908407*^9}, CellLabel->"Out[12]=", CellID->589708351] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell[TextData[{ Cell[BoxData[ StyleBox["ContextModule", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " always uses an empty context:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.748272124424907*^9, 3.7482721376895437`*^9}, 3.748272631817377*^9}, CellID->595000113], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/ContextModule"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ContextModule"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ContextModule"], BoxID -> "ContextModule", Selectable->False], "[", RowBox[{"Names", "[", "__", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748272139936479*^9, 3.7482721479552307`*^9}, { 3.748272579861843*^9, 3.7482726053791313`*^9}}, CellLabel->"In[13]:=", CellID->288577460], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.748272149221196*^9, 3.7482721815622697`*^9, 3.748272625797552*^9, 3.7482731723228655`*^9, 3.748273823374192*^9}, CellLabel->"Out[13]=", CellID->541997191] }, Open ]], Cell[TextData[{ Cell[BoxData[ StyleBox["ContextModule", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " is similar to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Module", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Module", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " in the sense that symbols created during the evaluation are not \ permanent:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.748273565156617*^9, 3.7482735741243706`*^9}, { 3.748273653125095*^9, 3.7482736785583715`*^9}}, CellID->934826956], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "x", "}"}], ",", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "x", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482734876548405`*^9, 3.7482734976695347`*^9}}, CellLabel->"In[14]:=", CellID->662831196], Cell[BoxData["\<\"MyContext`x$12428\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482735206478767`*^9, 3.748273823552187*^9}, CellLabel->"Out[14]=", CellID->854748567] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NameQ", "[", "%", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482735395983567`*^9, 3.7482735411243086`*^9}}, CellLabel->"In[15]:=", CellID->196213892], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7482735416582775`*^9, 3.748273823609189*^9}, CellLabel->"Out[15]=", CellID->565891670] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/ContextModule"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ContextModule"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ContextModule"], BoxID -> "ContextModule", Selectable->False], "[", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", RowBox[{"Symbol", "[", "\"\\"", "]"}]}], "}"}], ",", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "x", "]"}]}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482736894190345`*^9, 3.748273706949552*^9}}, CellLabel->"In[16]:=", CellID->236424210], Cell[BoxData["\<\"$3b7d1abfcec24fc9b041d2904bc009f9`x\"\>"], "Output", TaggingRules->{}, CellChangeTimes->{3.748273723172069*^9, 3.7482738237001867`*^9}, CellLabel->"Out[16]=", CellID->578077241] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NameQ", "[", "%", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.74827372615998*^9, 3.7482737281409245`*^9}}, CellLabel->"In[17]:=", CellID->554049788], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.748273730191891*^9, 3.7482738237511816`*^9}, CellLabel->"Out[17]=", CellID->537866183] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Possible Issues", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->92483860], Cell["\<\ Any symbols created in the temporary context are removed when the evaluation \ completes:\ \>", "Text", TaggingRules->{}, CellID->977840888], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/ContextModule"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ContextModule"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ContextModule"], BoxID -> "ContextModule", Selectable->False], "[", RowBox[{"Symbol", "[", "\"\\"", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.748272661515529*^9, 3.748272715981945*^9}, 3.7482727511419473`*^9, {3.748272782774022*^9, 3.7482728100352564`*^9}}, CellLabel->"In[18]:=", CellID->249936218], Cell[BoxData[ TagBox[ RowBox[{"Removed", "[", "\<\"x\"\>", "]"}], False, Editable->False]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7482727300525537`*^9, 3.7482727527889085`*^9}, 3.7482727879908986`*^9, 3.748272818451019*^9, 3.748273282783702*^9, 3.7482738341388855`*^9}, CellLabel->"Out[18]=", CellID->532605725] }, Open ]], Cell[TextData[{ "This also restores ", Cell[BoxData["Contexts"], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.748273302260161*^9, 3.7482733076850023`*^9}, 3.767958150774952*^9}, CellID->455935834], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"old", "=", RowBox[{"Contexts", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ContextModule", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://www.wolframcloud.com/obj/resourcesystem/published/\ FunctionRepository/resources/ContextModule"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ContextModule"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ContextModule"], BoxID -> "ContextModule", Selectable->False], "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Symbol", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"new", "=", RowBox[{"Contexts", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Contexts", "[", "]"}], "===", "old"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482732017000227`*^9, 3.74827322818128*^9}}, CellLabel->"In[19]:=", CellID->894664903], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.748273241986892*^9, 3.748273342264016*^9, 3.748273837263819*^9}, CellLabel->"Out[21]=", CellID->928752530] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Complement", "[", RowBox[{"new", ",", "old"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7482732451097803`*^9, 3.748273249521676*^9}}, CellLabel->"In[22]:=", CellID->120233589], Cell[BoxData[ RowBox[{"{", "\<\"$ecdf33373d714d069b245d0ce4f69531`\"\>", "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.748273250094634*^9, 3.7482733451569138`*^9, 3.7482738385747585`*^9}, CellLabel->"Out[22]=", CellID->885443621] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ContextModule | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[626, 23, 168, 7, 70, "Subsection",ExpressionUUID->"3d3d4852-a42f-47ec-bfcd-7d6100f5ee58", CellID->462042388], Cell[797, 32, 88, 2, 70, "Text",ExpressionUUID->"0a867110-bc5e-433f-8f34-ebf4e97bf44f", CellID->445248503], Cell[CellGroupData[{ Cell[910, 38, 7162, 179, 70, "Input",ExpressionUUID->"70b477a5-0a33-41f5-9496-539d37be3a61", CellID->336410059], Cell[8075, 219, 246, 5, 70, "Output",ExpressionUUID->"6b901b82-c85e-4312-a759-0bf8f68cc9cd", CellID->773629009] }, Open ]], Cell[8336, 227, 690, 22, 70, "Text",ExpressionUUID->"c920d2cf-e610-4608-8f2b-8f3e7fa434dd", CellID->930694732], Cell[CellGroupData[{ Cell[9051, 253, 7167, 179, 70, "Input",ExpressionUUID->"b5f256ca-9d81-42b2-8cc1-7bdc2161de7e", CellID->810509238], Cell[16221, 434, 267, 6, 70, "Output",ExpressionUUID->"8b6eb226-6f7f-4b20-8e53-ddbdfa9bd6cd", CellID->359580517] }, Open ]], Cell[16503, 443, 1412, 44, 70, "Text",ExpressionUUID->"5025fbd5-0cb4-42b7-85de-4c33864f90e7", CellID->344158024], Cell[CellGroupData[{ Cell[17940, 491, 96, 3, 70, "Input",ExpressionUUID->"16eb2f4f-83c1-42a6-8b74-65c337bd1f08", CellID->785776518], Cell[18039, 496, 219, 5, 70, "Output",ExpressionUUID->"83a5fe95-24a6-44f8-8a59-6dd889c7d75e", CellID->485075946] }, Open ]], Cell[CellGroupData[{ Cell[18295, 506, 220, 5, 70, "Input",ExpressionUUID->"4ff1a4e0-54e7-4182-9cb4-8af24b05be39", CellID->75234567], Cell[18518, 513, 477, 10, 70, "Output",ExpressionUUID->"3ae1ecdc-d5cf-482d-8c48-172e2799bca6", CellID->350767453] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19044, 529, 166, 7, 70, "Subsection",ExpressionUUID->"d04d3a9f-bfa0-49f1-8a73-663e4033ee31", CellID->568056528], Cell[19213, 538, 776, 23, 70, "Text",ExpressionUUID->"fe419832-ef27-4445-b57a-3c1ff65ea891", CellID->974823637], Cell[19992, 563, 7232, 183, 70, "Input",ExpressionUUID->"bfd1ebb1-db57-4459-ba31-8625a11d84d9", CellID->157909965], Cell[CellGroupData[{ Cell[27249, 750, 127, 4, 70, "Input",ExpressionUUID->"198a2345-b968-4cc1-9749-c49c94a587de", CellID->951963384], Cell[27379, 756, 212, 5, 70, "Print",ExpressionUUID->"ab616a33-3cf1-455b-867d-50a9a2766d14", CellID->485973384] }, Open ]], Cell[CellGroupData[{ Cell[27628, 766, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"bba3ad29-06cf-4254-92fa-1f0868deefae", CellID->224031726], Cell[27775, 772, 734, 22, 70, "Text",ExpressionUUID->"d1d631ef-1921-4bf8-bd8a-9864e52df3a8", CellID->919989581], Cell[CellGroupData[{ Cell[28534, 798, 7661, 190, 70, "Input",ExpressionUUID->"382902ee-b58a-4738-a562-b251fcb612bb", CellID->310020784], Cell[36198, 990, 310, 7, 70, "Output",ExpressionUUID->"cc58905f-246a-4692-81e6-64ae2802d654", CellID->991106567] }, Open ]], Cell[36523, 1000, 140, 4, 70, "Text",ExpressionUUID->"fd868c52-7370-4576-b83b-9dc6a235b25f", CellID->24174860], Cell[CellGroupData[{ Cell[36688, 1008, 206, 6, 70, "Input",ExpressionUUID->"52c78430-3c8f-4c62-aa4e-048f19226697", CellID->303606819], Cell[36897, 1016, 216, 5, 70, "Output",ExpressionUUID->"820718ce-5ed5-4230-a7e9-ffc6fdfdcd94", CellID->996177064] }, Open ]], Cell[37128, 1024, 327, 10, 70, "Text",ExpressionUUID->"98407cf5-14f6-49eb-8c6a-39bbe95be778", CellID->652764908], Cell[CellGroupData[{ Cell[37480, 1038, 242, 7, 70, "Input",ExpressionUUID->"3e62189a-7f83-4c20-a542-350fe0430219", CellID->996622155], Cell[37725, 1047, 211, 5, 70, "Output",ExpressionUUID->"6e1dbd25-9742-435b-8cf3-18a3b3f6c775", CellID->34923885] }, Open ]], Cell[CellGroupData[{ Cell[37973, 1057, 206, 6, 70, "Input",ExpressionUUID->"3cf491f2-396a-4d82-8100-7cde1e03e06b", CellID->729384765], Cell[38182, 1065, 167, 4, 70, "Output",ExpressionUUID->"a1d42777-e0c9-430e-a55b-0f5d10990dd8", CellID->589708351] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[38410, 1076, 178, 7, 70, "Subsection",ExpressionUUID->"b9adea80-8c66-4c42-a98a-ceeef03bbe5f", CellID->754506620], Cell[38591, 1085, 358, 10, 70, "Text",ExpressionUUID->"f86c5188-74c0-4088-a0c0-fc2e228419bf", CellID->595000113], Cell[CellGroupData[{ Cell[38974, 1099, 7243, 181, 70, "Input",ExpressionUUID->"b3bd2b64-bdd2-4575-893e-2b882d0c85d4", CellID->288577460], Cell[46220, 1282, 245, 6, 70, "Output",ExpressionUUID->"8afbb10b-cb68-439e-9b10-3bfbfba34081", CellID->541997191] }, Open ]], Cell[46480, 1291, 964, 28, 70, "Text",ExpressionUUID->"4314e87a-f325-4a9b-8723-7ccef4c906e3", CellID->934826956], Cell[CellGroupData[{ Cell[47469, 1323, 339, 10, 70, "Input",ExpressionUUID->"f411805e-bb81-46db-85fc-5eac317d608b", CellID->662831196], Cell[47811, 1335, 181, 4, 70, "Output",ExpressionUUID->"a4b7736f-a438-462a-8032-58b130542e51", CellID->854748567] }, Open ]], Cell[CellGroupData[{ Cell[48029, 1344, 191, 5, 70, "Input",ExpressionUUID->"fb6f6b5f-8634-4088-9284-685eba73b533", CellID->196213892], Cell[48223, 1351, 161, 4, 70, "Output",ExpressionUUID->"45d56150-397f-4920-ae81-34adc7c357be", CellID->565891670] }, Open ]], Cell[CellGroupData[{ Cell[48421, 1360, 7413, 187, 70, "Input",ExpressionUUID->"9b11c25e-7cd4-405d-b3e7-dc65cc8350e1", CellID->236424210], Cell[55837, 1549, 199, 4, 70, "Output",ExpressionUUID->"dbdbe5ac-790f-4183-8f50-fccbab34795d", CellID->578077241] }, Open ]], Cell[CellGroupData[{ Cell[56073, 1558, 188, 5, 70, "Input",ExpressionUUID->"c2149c51-9523-47ce-9725-6faa7ce3b6f0", CellID->554049788], Cell[56264, 1565, 161, 4, 70, "Output",ExpressionUUID->"76132ab0-52e8-4bb7-8f09-8dc5ee381a24", CellID->537866183] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[56474, 1575, 168, 7, 70, "Subsection",ExpressionUUID->"d16806fb-f121-45ac-9d82-4ef2ea54a5d1", CellID->92483860], Cell[56645, 1584, 152, 5, 70, "Text",ExpressionUUID->"5ab4d990-daaa-481c-8c54-2588b035cb9d", CellID->977840888], Cell[CellGroupData[{ Cell[56822, 1593, 7274, 181, 70, "Input",ExpressionUUID->"9e4fbda9-13fc-4df8-a48d-b02759ae1b26", CellID->249936218], Cell[64099, 1776, 341, 10, 70, "Output",ExpressionUUID->"09ce9c0e-5f0a-4182-8878-9a38c0c8b1aa", CellID->532605725] }, Open ]], Cell[64455, 1789, 267, 9, 70, "Text",ExpressionUUID->"4be3b7cd-7f89-4199-8202-fd2ab6a261fa", CellID->455935834], Cell[CellGroupData[{ Cell[64747, 1802, 7796, 194, 70, "Input",ExpressionUUID->"45ba1d2f-79a4-42f7-9a9a-bcea33a95786", CellID->894664903], Cell[72546, 1998, 183, 5, 70, "Output",ExpressionUUID->"4370c0b9-7be8-45da-9f39-1a44b663abde", CellID->928752530] }, Open ]], Cell[CellGroupData[{ Cell[72766, 2008, 221, 6, 70, "Input",ExpressionUUID->"580349da-5299-41c9-8764-b09866f0091d", CellID->120233589], Cell[72990, 2016, 247, 6, 70, "Output",ExpressionUUID->"71600589-d65f-485c-9b95-3c1b1afbbcbf", CellID->885443621] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)