(* 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[ 237056, 6021] NotebookOptionsPosition[ 222220, 5682] NotebookOutlinePosition[ 223979, 5734] CellTagsIndexPosition[ 223936, 5731] WindowTitle->SameInstanceQ | 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[TextData[{ "Two expressions that are identical are considered ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SameQ", "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/SameQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797257018023148*^9, 3.797257040814414*^9}, { 3.79725707633311*^9, 3.797257086069106*^9}, 3.798300225502067*^9}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "1"}], "|>"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", "1"}], "|>"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"a", "===", "b"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.79725704938314*^9, 3.797257098054433*^9}}, CellLabel->"In[66]:=", CellID->443871870], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.797257093097124*^9, 3.79725709840184*^9}, 3.797616223144246*^9, 3.797957152909923*^9}, CellLabel->"Out[68]=", CellID->1477344934] }, Open ]], Cell["However, they are different instances of the same data:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7972571023803997`*^9, 3.797257126859617*^9}, 3.800792727577568*^9}, CellID->435776021], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7972571287655478`*^9, 3.797257131259576*^9}}, CellLabel->"In[69]:=", CellID->144103474], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.797257132006575*^9, 3.797616225231163*^9, 3.7979571535222282`*^9}, CellLabel->"Out[69]=", CellID->1821646164] }, Open ]], Cell[TextData[{ "By contrast, the value for ", Cell[BoxData[ StyleBox["c", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the below is literally the same value for ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", since both reference the same memory location:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7979588166685624`*^9, 3.7979588636171503`*^9}, { 3.798300335581997*^9, 3.798300339315659*^9}, {3.857043329566597*^9, 3.857043349974511*^9}}, CellID->1784912763], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"c", "=", "a"}], ";"}], "\[IndentingNewLine]", 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"a", ",", "c"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.797257136470028*^9, 3.797257143243126*^9}}, CellLabel->"In[70]:=", CellID->557811191], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.797257143957801*^9, 3.797616238455768*^9, 3.797957154166215*^9}, CellLabel->"Out[71]=", CellID->1448620180] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellChangeTimes->{{3.7979579670031633`*^9, 3.7979579682841415`*^9}}, CellID->12317119], Cell[TextData[{ Cell[BoxData[ StyleBox["SameInstanceQ", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " can accept any number of arguments:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7979580064539895`*^9, 3.7979580169956727`*^9}, { 3.797958105848996*^9, 3.7979581294572873`*^9}}, CellID->32547996], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", "x", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797958000044188*^9, 3.797958003688077*^9}, { 3.797958048034738*^9, 3.797958051668628*^9}}, CellLabel->"In[1]:=", CellID->414119342], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{{3.797958022038522*^9, 3.7979580564464846`*^9}}, CellLabel->"Out[1]=", CellID->181026591] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"x", ",", "x", ",", "x", ",", "x", ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797958028431329*^9, 3.797958028624323*^9}, { 3.7979580802227664`*^9, 3.7979580816087236`*^9}}, CellLabel->"In[2]:=", CellID->12079408], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.797958029962283*^9, 3.797958035262121*^9}, 3.7979580828546886`*^9}, CellLabel->"Out[2]=", CellID->51414387] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Properties and Relations", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->754506620], Cell[TextData[{ Cell[BoxData[ StyleBox["SameInstanceQ", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " always returns ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " for a single argument:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797958138756011*^9, 3.797958169683053*^9}}, CellID->33516309], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", "x", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979581755298777`*^9, 3.7979581779298224`*^9}}, CellLabel->"In[1]:=", CellID->264222624], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7979581789347897`*^9, 3.79795828311465*^9}, CellLabel->"Out[1]=", CellID->586741288] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"f", "[", "x", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979581795717716`*^9, 3.7979581821736927`*^9}}, CellLabel->"In[2]:=", CellID->42290330], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7979581826816607`*^9, 3.797958283295644*^9}, CellLabel->"Out[2]=", CellID->46915398] }, Open ]], Cell[TextData[{ "Compare to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SameQ", "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/SameQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7979581977382245`*^9, 3.7979582001941495`*^9}, 3.797958278749796*^9}, CellID->148111032], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SameQ", "[", "x", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979581755298777`*^9, 3.7979581779298224`*^9}, 3.7979582086078963`*^9}, CellLabel->"In[3]:=", CellID->26284278], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7979581789347897`*^9, 3.7979582132197576`*^9, 3.7979582835176373`*^9}, CellLabel->"Out[3]=", CellID->236986688] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SameQ", "[", RowBox[{"f", "[", "x", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979581795717716`*^9, 3.7979582099228563`*^9}}, CellLabel->"In[4]:=", CellID->424558651], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7979581826816607`*^9, 3.797958213575748*^9, 3.797958283692631*^9}, CellLabel->"Out[4]=", CellID->214586196] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->543106620], Cell[TextData[{ Cell[BoxData[ RowBox[{ StyleBox["SameInstanceQ", "InlineResourceFunction"], "[", "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is defined to be ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "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/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.79795822547637*^9, 3.797958255017479*^9}}, CellID->759953339], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797958258669387*^9, 3.797958260272337*^9}}, CellLabel->"In[1]:=", CellID->138026344], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7979582611593113`*^9, 3.7979582840716043`*^9}}, CellLabel->"Out[1]=", CellID->21227647] }, Open ]], Cell[TextData[{ "This matches the behavior of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SameQ", "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/SameQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797958263725237*^9, 3.797958274900898*^9}, { 3.797961077767996*^9, 3.797961083147834*^9}}, CellID->98203106], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SameQ", "[", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797958267408122*^9, 3.797958268764081*^9}}, CellLabel->"In[2]:=", CellID->315713], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.797958269131071*^9, 3.797958284244616*^9}}, CellLabel->"Out[2]=", CellID->396026027] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->17507663], Cell["\<\ Memory is typically allocated for each new expression that is created, even \ if it shares the same value as an existing expression:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7979584516805677`*^9, 3.7979585204264936`*^9}, { 3.7979603919462595`*^9, 3.797960393748205*^9}, {3.7983002789620667`*^9, 3.798300280108882*^9}}, CellID->68607796], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"a", ",", "b"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"MaxMemoryUsed", "[", RowBox[{ RowBox[{"a", "=", RowBox[{"Range", "[", "100", "]"}]}], ";", " ", RowBox[{"b", "=", RowBox[{"Range", "[", "100", "]"}]}], ";", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979583313941927`*^9, 3.797958346279744*^9}, { 3.797958395023258*^9, 3.7979584009510975`*^9}, {3.7979585434737988`*^9, 3.7979585474926777`*^9}}, CellLabel->"In[1]:=", CellID->240159039], Cell[BoxData["1928"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7979583762388415`*^9, {3.797958406427932*^9, 3.7979584281132812`*^9}, { 3.7979585329311275`*^9, 3.797958560520286*^9}, 3.7979587294311953`*^9}, CellLabel->"Out[2]=", CellID->174143579] }, Open ]], Cell[TextData[{ "In this case, ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ StyleBox["b", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " have identical values:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797958712065717*^9, 3.7979587202964697`*^9}, { 3.798300324924016*^9, 3.798300327808996*^9}}, CellID->661622362], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SameQ", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979587233613772`*^9, 3.797958725193304*^9}}, CellLabel->"In[3]:=", CellID->2410894], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.79795872961919*^9}, CellLabel->"Out[3]=", CellID->67526118] }, Open ]], Cell["\<\ However, their values are stored separately in memory, since each expression \ was created separately:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7979587331240654`*^9, 3.7979587567583694`*^9}}, CellID->395565645], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979584436568117`*^9, 3.7979584463417287`*^9}}, CellLabel->"In[4]:=", CellID->178606538], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7979584469917097`*^9, 3.7979585669351053`*^9, 3.7979587678330183`*^9}, CellLabel->"Out[4]=", CellID->182437437] }, Open ]], Cell["\<\ Reusing expressions that are already created can save memory:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7979586243373446`*^9, 3.7979586348750267`*^9}, { 3.7979587931242733`*^9, 3.797958795768176*^9}}, CellID->137385255], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"a", ",", "b"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"MaxMemoryUsed", "[", RowBox[{ RowBox[{"a", "=", RowBox[{"Range", "[", "100", "]"}]}], ";", " ", RowBox[{"b", "=", "a"}], ";", " ", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979583853795657`*^9, 3.7979584139677043`*^9}, { 3.797958621041463*^9, 3.797958621582428*^9}}, CellLabel->"In[5]:=", CellID->73559770], Cell[BoxData["992"], "Output", TaggingRules->{}, CellChangeTimes->{3.7979588012760267`*^9}, CellLabel->"Out[6]=", CellID->391014421] }, Open ]], Cell[TextData[{ "The value for ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is literally the same value for ", Cell[BoxData[ StyleBox["b", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", since both reference the same memory location:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7979588166685624`*^9, 3.7979588636171503`*^9}, { 3.798300335581997*^9, 3.798300339315659*^9}}, CellID->385709283], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.797958873919837*^9}, CellLabel->"In[7]:=", CellID->377910746], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.797958875660783*^9}, CellLabel->"Out[7]=", CellID->164700289] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->5152320], Cell["\<\ Many simple expressions are already preallocated in the kernel:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.79795908173757*^9, 3.797959111749668*^9}, 3.7983003643712177`*^9}, CellID->474971402], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"123", ",", "123"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79795915752829*^9, 3.797959162326142*^9}}, CellLabel->"In[1]:=", CellID->765854075], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.797959163582103*^9, 3.79795926682699*^9, 3.797959302083927*^9}, CellLabel->"Out[1]=", CellID->307767421] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{ RowBox[{"<|", "|>"}], ",", RowBox[{"<|", "|>"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979592680369544`*^9, 3.797959273317778*^9}}, CellLabel->"In[2]:=", CellID->255647933], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7979592738527613`*^9, 3.797959302285922*^9}}, CellLabel->"Out[2]=", CellID->8556512] }, Open ]], Cell["These are not necessarily atomic values:", "Text", TaggingRules->{}, CellChangeTimes->{{3.797959253540374*^9, 3.79795925923822*^9}}, CellID->572622615], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959115237565*^9, 3.797959118640459*^9}}, CellLabel->"In[3]:=", CellID->66596444], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.797959126070235*^9, 3.7979592670649853`*^9, 3.7979593025249133`*^9}, CellLabel->"Out[3]=", CellID->432290814] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->144969628], Cell[TextData[{ "Atomic expressions that are ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SameQ", "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/SameQ", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " are not necessarily ", Cell[BoxData[ StyleBox["SameInstanceQ", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797959333548979*^9, 3.797959361858124*^9}}, CellID->260479035], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AtomQ", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959368191916*^9, 3.7979593715068398`*^9}}, CellLabel->"In[1]:=", CellID->108358043], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.797959372575802*^9, 3.797959386626378*^9}}, CellLabel->"Out[1]=", CellID->432867691] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SameQ", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959374736736*^9, 3.797959381030551*^9}}, CellLabel->"In[2]:=", CellID->621999964], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.797959381824507*^9, 3.797959386833355*^9}}, CellLabel->"Out[2]=", CellID->78020790] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959189348329*^9, 3.7979591931392126`*^9}}, CellLabel->"In[3]:=", CellID->11208537], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.797959195699135*^9, 3.7979593870223675`*^9}, CellLabel->"Out[3]=", CellID->60989760] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Possible Issues", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->92483860], Cell[TextData[{ "Having all of the corresponding parts of expressions be ", Cell[BoxData[ StyleBox["SameInstanceQ", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " does not imply the parent expressions are ", Cell[BoxData[ StyleBox["SameInstanceQ", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.797960897365905*^9, 3.7979609629204583`*^9}, { 3.797961012637966*^9, 3.7979610148588743`*^9}, {3.798300411395833*^9, 3.798300411644236*^9}}, CellID->35010703], Cell[BoxData[{ RowBox[{ RowBox[{"expr1", "=", RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", RowBox[{"{", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"expr2", "=", RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", RowBox[{"{", "}"}]}], "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.797960616367497*^9, 3.797960660748155*^9}, { 3.7979607596525965`*^9, 3.7979607666643825`*^9}}, CellLabel->"In[1]:=", CellID->168867505], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s1", "=", RowBox[{"Cases", "[", RowBox[{"expr1", ",", "_", ",", "Infinity", ",", RowBox[{"Heads", "\[Rule]", "True"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979607025408945`*^9, 3.797960710396082*^9}, { 3.797960790479664*^9, 3.797960799735385*^9}, {3.79796084767142*^9, 3.7979608542102222`*^9}}, CellLabel->"In[3]:=", CellID->649913668], Cell[BoxData[ RowBox[{"{", RowBox[{"f", ",", "x", ",", "y", ",", "List", ",", RowBox[{"{", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7979607110290437`*^9, {3.7979607693512845`*^9, 3.7979608133269753`*^9}, { 3.7979608550011816`*^9, 3.7979608648619013`*^9}, 3.7979609751100936`*^9}, CellLabel->"Out[3]=", CellID->483034696] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s2", "=", RowBox[{"Cases", "[", RowBox[{"expr2", ",", "_", ",", "Infinity", ",", RowBox[{"Heads", "\[Rule]", "True"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979608059051995`*^9, 3.7979608108750496`*^9}, { 3.797960860020046*^9, 3.797960861714999*^9}}, CellLabel->"In[4]:=", CellID->404762954], Cell[BoxData[ RowBox[{"{", RowBox[{"f", ",", "x", ",", "y", ",", "List", ",", RowBox[{"{", "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.797960809259099*^9, 3.7979608136159673`*^9}, 3.797960865116893*^9, 3.7979609753500834`*^9}, CellLabel->"Out[4]=", CellID->410777385] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "@@@", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"s1", ",", "s2"}], "}"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979608161558895`*^9, 3.7979608280199947`*^9}}, CellLabel->"In[5]:=", CellID->29242241], Cell[BoxData[ RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7979608296429634`*^9, 3.797960872147664*^9, 3.797960975570076*^9}, CellLabel->"Out[5]=", CellID->225923595] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"expr1", ",", "expr2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979608745905952`*^9, 3.7979608805954256`*^9}}, CellLabel->"In[6]:=", CellID->283086224], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.797960881345403*^9, 3.797960975782072*^9}, CellLabel->"Out[6]=", CellID->236541438] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->227582728], Cell["\<\ Small integers are already created in memory, so they are always the same \ instance:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.797959490647436*^9, 3.7979595104498377`*^9}, { 3.797959542100887*^9, 3.797959549444661*^9}, {3.7979611205727053`*^9, 3.7979611360792212`*^9}}, CellID->922207991], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"123", ",", "123"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979599476916575`*^9, 3.7979599514505405`*^9}}, CellLabel->"In[1]:=", CellID->12324837], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7979599523555145`*^9, 3.797959962313197*^9}, 3.797960018858508*^9, 3.7979600721169024`*^9, 3.7979601098397655`*^9}, CellLabel->"Out[1]=", CellID->445541138] }, Open ]], Cell["Larger integers are created as needed:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7979611413930607`*^9, 3.79796115832255*^9}}, CellID->41901462], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"1234", ",", "1234"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959953112494*^9, 3.797959957696357*^9}}, CellLabel->"In[2]:=", CellID->207459490], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7979599583163376`*^9, 3.7979599625221906`*^9}, 3.797960019086502*^9, 3.797960072320897*^9, 3.797960110041766*^9}, CellLabel->"Out[2]=", CellID->481261786] }, Open ]], Cell["\<\ Find the range of small integers that are preallocated in memory:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7979600834615602`*^9, 3.797960104472928*^9}, { 3.797961175662027*^9, 3.7979611769069896`*^9}, 3.798300451129902*^9}, CellID->78954980], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"Boole", "[", 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{ RowBox[{"i", "+", "1", "-", "1"}], ",", RowBox[{"i", "+", "1", "-", "1"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "2000"}], ",", "2000"}], "}"}]}], "]"}], ",", RowBox[{"Filling", "\[Rule]", "Bottom"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959516678651*^9, 3.797959584181618*^9}, { 3.797959643316834*^9, 3.7979596564234395`*^9}, {3.7979596983871727`*^9, 3.797959715295663*^9}, {3.7979599867294784`*^9, 3.797960049003583*^9}}, CellLabel->"In[3]:=", CellID->359815627], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJxl3bFzBPEjP/ydZ1JckWKLFFdk5tnHZMyNyZhFcAjfRXAIDsEhWF/BIXwP wSFYBIdgERyCLVJckeKKFFdk5rdFiitSXJHiihRbpLgixRUprkjxm+c3P8/z 7OvZ5jOvee/7856d+wPu//ril37o5/+PIAi+7f8Mgv/7/F9P8l9l8P99DnEb H+AY7+MW3sMR3sVNvINDvI0beAsH+PM/697gD7zG73iF33CFX/ESv+AFfsZz /IRL/Ihn+AFP8T2e4Dtc4Fs8xjc4x9d4hK9whi/xEF/gAT7HfXyGU3yKe/gE d/Ex7uAjnOBD3MYHOMb7uIX3cIR3cRPv4BBv4wbewgH+/I+6N/gDr/E7XuE3 XOFXvMQveIGf8Rw/4RI/4hl+wFN8jyf4Dhf4Fo/xDc7xNR7hK5zhSzzEF3iA z3Efn+EUn+IePsFdfIw7+Agn+BC38QGO8T5u4T0c4V3cxDs4xNu4gbdwgD9v 697gD7zG73iF33CFX/ESv+AFfsZz/IRL/Ihn+AFP8T2e4Dtc4Fs8xjc4x9d4 hK9whi/xEF/gAT7HfXyGU3yKe/gEd/Ex7uAjnOBD3MYHOMb7uIX3cIR3cRPv 4BBv4wbewgH+/Pe6N/gDr/E7XuE3XOFXvMQveIGf8Rw/4RI/4hl+wFN8jyf4 Dhf4Fo/xDc7xNR7hK5zhSzzEF3iAz3Efn+EUn+IePsFdfIw7+Agn+BC38QGO 8T5u4T0c4V3cxDs4xNu4gbdwgD//re4N/sBr/I5X+A1X+BUv8Qte4Gc8x0+4 xI94hh/wFN/jCb7DBb7FY3yDc3yNR/gKZ/gSD/EFHuBz3MdnOMWnuIdPcBcf 4w4+wgk+xG18gGO8j1t4D0d4FzfxDg7xNm7gLRzgz3+te4M/8Bq/4xV+wxV+ xUv8ghf4Gc/xEy7xI57hBzzF93iC73CBb/EY3+AcX+MRvsIZvsRDfIEH+Bz3 8RlO8Snu4RPcxce4g49wgg9xGx/gGO/jFt7DEd7FTbyDQ7yNG3gLB/hzXPcG f+A1fscr/IYr/IqX+AUv8DOe4ydc4kc8ww94iu/xBN/hAt/iMb7BOb7GI3yF M3yJh/gCD/A57uMznOJT3MMnuIuPcQcf4QQf4jY+wDHexy28hyO8i5t4B4d4 GzfwFg7w57/UvcEfeI3f8Qq/4Qq/4iV+wQv8jOf4CZf4Ec/wA57iezzBd7jA t3iMb3COr/EIX+EMX+IhvsADfI77+Ayn+BT38Anu4mPcwUc4wYe4jQ9wjPdx C+/hCO/iJt7BId7GDbyFA/z5z3Vv8Ade43e8wm+4wq94iV/wAj/jOX7CJX7E M/yAp/geT/AdLvAtHuMbnONrPMJXOMOXeIgv8ACf4z4+wyk+xT18grv4GHfw EU7wIW7jAxzjfdzCezjCu7iJd3CIt3EDb+EAf/5T3Rv8gdf4Ha/wG67wK17i F7zAz3iOn3CJH/EMP+ApvscTfIcLfIvH+Abn+BqP8BXO8CUe4gs8wOe4j89w ik9xD5/gLj7GHXyEE3yI2/gAx3gft/AejvAubuIdHOJt3MBbOMCfN3Vv8Ade 43e8wm+4wq94iV/wAj/jOX7CJX7EM/yAp/geT/AdLvAtHuMbnONrPMJXOMOX eIgv8ACf4z4+wyk+xT18grv4GHfwEU7wIW7jAxzjfdzCezjCu7iJd3CIt3ED b+EAf/5j3Rv8gdf4Ha/wG67wK17iF7zAz3iOn3CJH/EMP+ApvscTfIcLfIvH +Abn+BqP8BXO8CUe4gs8wOe4j89wik9xD5/gLj7GHXyEE3yI2/gAx3gft/Ae jvAubuIdHOJt3MBbOMCf/1D3Bn/gNX7HK/yGK/yKl/gFL/AznuMnXOJHPMMP eIrv8QTf4QLf4jG+wTm+xiN8hTN8iYf4Ag/wOe7jM5ziU9zDJ7iLj3EHH+EE H+I2PsAx3sctvIcjvIubeAeHeBs38BYO8Off173BH3iN3/EKv+EKv+IlfsEL /Izn+AmX+BHP8AOe4ns8wXe4wLd4jG9wjq/xCF/hDF/iIb7AA3yO+/gMp/gU 9/AJ7uJj3MFHOMGHuI0PcIz3cQvv4Qjv4ibewSHexg28hQP8mde9wR94jd/x Cr/hCr/iJX7BC/yM5/gJl/gRz/ADnuJ7PMF3uMC3eIxvcI6v8Qhf4Qxf4iG+ wAN8jvv4DKf4FPfwCe7iY9zBRzjBh7iND3CM93EL7+EI7+Im3sEh3sYNvIWD //b6C//r2Pxd3Wu8whVe4gWe4xLP8BRPcIHHOMcjnOEhHuA+TnEPd3EHJ7iN Y9zCEW7iEDdwgDd/W/car3CFl3iB57jEMzzFE1zgMc7xCGd4iAe4j1Pcw13c wQlu4xi3cISbOMQNHODN39S9xitc4SVe4Dku8QxP8QQXeIxzPMIZHuIB7uMU 93AXd3CC2zjGLRzhJg5xAwd4c133Gq9whZd4gee4xDM8xRNc4DHO8QhneIgH uI9T3MNd3MEJbuMYt3CEmzjEDRzgzV/XvcYrXOElXuA5LvEMT/EEF3iMczzC GR7iAe7jFPdwF3dwgts4xi0c4SYOcQMHePNXda/xCld4iRd4jks8w1M8wQUe 4xyPcIaHeID7OMU93MUdnOA2jnELR7iJQ9zAAd78Zd1rvMIVXuIFnuMSz/AU T3CBxzjHI5zhIR7gPk5xD3dxBye4jWPcwhFu4hA3cIA3o7rXeIUrvMQLPMcl nuEpnuACj3GORzjDQzzAfZziHu7iDk5wG8e4hSPcxCFu4ABv/qLuNV7hCi/x As9xiWd4iie4wGOc4xHO8BAPcB+nuIe7uIMT3MYxbuEIN3GIGzjAmz+ve41X uMJLvMBzXOIZnuIJLvAY53iEMzzEA9zHKe7hLu7gBLdxjFs4wk0c4gYO8ObP 6l7jFa7wEi/wHJd4hqd4ggs8xjke4QwP8QD3cYp7uIs7OMFtHOMWjnATh7iB A7y5qnuNV7jCS7zAc1ziGZ7iCS7wGOd4hDM8xAPcxynu4S7u4AS3cYxbOMJN HOIGDvDmT+te4xWu8BIv8ByXeIaneIILPMY5HuEMD/EA93GKe7iLOzjBbRzj Fo5wE4e4gQO8+ZO613iFK7zECzzHJZ7hKZ7gAo9xjkc4w0M8wH2c4h7u4g5O cBvHuIUj3MQhbuAAb/647jVe4Qov8QLPcYlneIonuMBjnOMRzvAQD3Afp7iH u7iDE9zGMW7hCDdxiBs4wJus7jVe4Qov8QLPcYlneIonuMBjnOMRzvAQD3Af p7iHu7iDE9zGMW7hCDdxiBs48Pf+o7orvMAlnuIC5zjDA5ziLk5wjCMc4gCv /7DuCi9wiae4wDnO8ACnuIsTHOMIhzjA6z+ou8ILXOIpLnCOMzzAKe7iBMc4 wiEO8Pqy7govcImnuMA5zvAAp7iLExzjCIc4wOvfr7vCC1ziKS5wjjM8wCnu 4gTHOMIhDvD69+qu8AKXeIoLnOMMD3CKuzjBMY5wiAO8/t26K7zAJZ7iAuc4 wwOc4i5OcIwjHOIAr4d1V3iBSzzFBc5xhgc4xV2c4BhHOMQBXv9O3RVe4BJP cYFznOEBTnEXJzjGEQ5xgNe/XXeFF7jEU1zgHGd4gFPcxQmOcYRDHOD1b9Vd 4QUu8RQXOMcZHuAUd3GCYxzhEAd4fVF3hRe4xFNc4BxneIBT3MUJjnGEQxzg 9W/WXeEFLvEUFzjHGR7gFHdxgmMc4RAHeP0bdVd4gUs8xQXOcYYHOMVdnOAY RzjEAV7/et0VXuAST3GBc5zhAU5xFyc4xhEOcYDXg7orvMAlnuIC5zjDA5zi Lk5wjCMc4sDv/RLfhwuc4RQnOMIBrn6NfVzgDKc4wREOcPWr7OMCZzjFCY5w gKtz9nGBM5ziBEc4wNWvsI8LnOEUJzjCAa5+mX1c4AynOMERDnD1S+zjAmc4 xQmOcICrPvu4wBlOcYIjHODqF9nHBc5wihMc4QBXv8A+LnCGU5zgCAe4+nn2 cYEznOIERzjA1Rn7uMAZTnGCIxzg6ufYxwXOcIoTHOEAV19kHxc4wylOcIQD XP0s+7jAGU5xgiMc4CplHxc4wylOcIQD936G+3GCA1z+NH2c4ACXP0UfJzjA 5Sl9nOAAlz9JHyc4wOVP0McJDnD54/RxggNc9ujjBAe4/DH6OMEBLn+UPk5w gMsfoY8THODyhD5OcIDLH6aPExzg8ofo4wQHuPxB+jjBAS679HGCA9//AXKc fT85zr6PHGfH5Dj7XnKcfQ85zr6bHGcdcpx9FznOvpMcZ99BjrMjcpx9OznO vo0cZ99KjrOEXH8Bfwv+ZnyIvwl/I/4G3MZfj78Ofy0+wF+Dvxp/FY7xV+J9 /BW4hb8c7+EvwxHexU28g0PcwAFe/w/ygJwzSLgfh3gHN/EujvCX4T385biF vwLv46/EMf4q/NX4a/AB/lr8dfjrcRt/A/5G/E34EH8z/hb8BZzUneHgW8lx 8G3kOPh2chwckePgO8hx8J3kOPguchx0yHHw3eQ4+B5yHHwvOQ6OyXHwfeQ4 +H5yHPwAOQ66dSc4wyUOfpA+znCJgx+ijzNc4uCH6eMMlzg4oY8zXOLgR+jj DJc4+FH6OMMlDn6MPs5wiYMefZzhEgc/Th9nuMTBT9DHGS5x8JP0cYZLHJzS xxkucfBT9HGGSxz8NH2c4RIHP0MfZ7jEQVp3hBOc4gwXuMQVDn6WfZzgFGe4 wCWucPBF9nGCU5zhApe4wsHPsY8TnOIMF7jEFQ7O2McJTnGGC1ziCgc/zz5O cIozXOASVzj4BfZxglOc4QKXuMLBL7KPE5ziDBe4xBUO+uzjBKc4wwUucYWD X2IfJzjFGS5wiSsc/DL7OMEpznCBS1zh4FfYxwlOcYYLXOIKB+fs4wSnOMMF LnGFg19lHyc4xRkucIkrHPwa+zjBKc5wgUtc4eBL7OMEpzjDBS5xhYNB3SGO cIwT3MUpHuAM57jAU1ziBa7wGge/XneIIxzjBHdxigc4wzku8BSXeIErvMbB b9Qd4gjHOMFdnOIBznCOCzzFJV7gCq9x8Jt1hzjCMU5wF6d4gDOc4wJPcYkX uMJrHFzUHeIIxzjBXZziAc5wjgs8xSVe4AqvcfBbdYc4wjFOcBeneIAznOMC T3GJF7jCaxz8dt0hjnCME9zFKR7gDOe4wFNc4gWu8BoHv1N3iCMc4wR3cYoH OMM5LvAUl3iBK7zGwbDuEEc4xgnu4hQPcIZzXOApLvECV3iNg9+tO8QRjnGC uzjFA5zhHBd4iku8wBVe4+D36g5xhGOc4C5O8QBnOMcFnuISL3CF1zj4/bpD HOEYJ7iLUzzAGc5xgae4xAtc4TUOLusOcYRjnOAuTvEAZzjHBZ7iEi9whdc4 +IO6QxzhGCe4i1M8wBnOcYGnuMQLXOE1Dv6w7hBHOMYJ7uIUD3CGc1zgKS7x Ald4jYM/qjvEEY5xgrs4xQOc4RwXeIpLvMAVXuMgq7uBQ9zEEW7hGLdxgju4 i3s4xX08wEOc4RHO8RgXeIKneIZLPMcLvMQVXuE13uDgj+tu4BA3cYRbOMZt nOAO7uIeTnEfD/AQZ3iEczzGBZ7gKZ7hEs/xAi9xhVd4jTc4+JO6GzjETRzh Fo5xGye4g7u4h1PcxwM8xBke4RyPcYEneIpnuMRzvMBLXOEVXuMNDv607gYO cRNHuIVj3MYJ7uAu7uEU9/EAD3GGRzjHY1zgCZ7iGS7xHC/wEld4hdd4g4Or uhs4xE0c4RaOcRsnuIO7uIdT3McDPMQZHuEcj3GBJ3iKZ7jEc7zAS1zhFV7j DQ7+rO4GDnETR7iFY9zGCe7gLu7hFPfxAA9xhkc4x2Nc4Ame4hku8Rwv8BJX eIXXeIODP6+7gUPcxBFu4Ri3cYI7uIt7OMV9PMBDnOERzvEYF3iCp3iGSzzH C7zEFV7hNd7g4C/qbuAQN3GEWzjGbZzgDu7iHk5xHw/wEGd4hHM8xgWe4Cme 4RLP8QIvcYVXeI03OBjV3cAhbuIIt3CM2zjBHdzFPZziPh7gIc7wCOd4jAs8 wVM8wyWe4wVe4gqv8BpvcPCXdTdwiJs4wi0c4zZOcAd3cQ+nuI8HeIgzPMI5 HuMCT/AUz3CJ53iBl7jCK7zGGxz8Vd0NHOImjnALx7iNE9zBXdzDKe7jAR7i DI9wjse4wBM8xTNc4jle4CWu8Aqv8QYHf113A4e4iSPcwjFu4wR3cBf3cIr7 eICHOMMjnOMxLvAET/EMl3iOF3iJK7zCa7zBwXXdDRziJo5wC8e4jRPcwV3c wynu4wEe4gyPcI7HuMATPMUzXOI5XuAlrvAKr/EGB39TdwOHuIkj3MIxbuME d3AX93CK+3iAhzjDI5zjMS7wBE/xDJd4jhd4iSu8wmu8wcHf1t3AIW7iCLdw jNs4wR3cxT2c4j4e4CHO8AjneIwLPMFTPMMlnuMFXuIKr/Aab3Dwd3U3cIib OMItHOM2TnAHd3EPp7iPB3iIMzzCOR7jAk/wFM9wied4gZe4wiu8xhsc5HVv /bf/99PA2zjEO7iJd3GE93AL7+MYH+A2PsQJPsIdfIy7+AT38ClO8Rnu43M8 wBd4iC9xhq/wCF/jHN/gMb7FBb7DE3yPp/gBz/AjLvETnuNnvMAveIlfcYXf 8Aq/4zX+wBv8iYO/r3sLN/A2DvEObuJdHOE93ML7OMYHuI0PcYKPcAcf4y4+ wT18ilN8hvv4HA/wBR7iS5zhKzzC1zjHN3iMb3GB7/AE3+MpfsAz/IhL/ITn +Bkv8Ate4ldc4Te8wu94jT/wBn/i4B/q3sINvI1DvIObeBdHeA+38D6O8QFu 40Oc4CPcwce4i09wD5/iFJ/hPj7HA3yBh/gSZ/gKj/A1zvENHuNbXOA7PMH3 eIof8Aw/4hI/4Tl+xgv8gpf4FVf4Da/wO17jD7zBnzj4x7q3cANv4xDv4Cbe xRHewy28j2N8gNv4ECf4CHfwMe7iE9zDpzjFZ7iPz/EAX+AhvsQZvsIjfI1z fIPH+BYX+A5P8D2e4gc8w4+4xE94jp/xAr/gJX7FFX7DK/yO1/gDb/AnDm7q 3sINvI1DvIObeBdHeA+38D6O8QFu40Oc4CPcwce4i09wD5/iFJ/hPj7HA3yB h/gSZ/gKj/A1zvENHuNbXOA7PMH3eIof8Aw/4hI/4Tl+xgv8gpf4FVf4Da/w O17jD7zBnzj4p7q3cANv4xDv4CbexRHewy28j2N8gNv4ECf4CHfwMe7iE9zD pzjFZ7iPz/EAX+AhvsQZvsIjfI1zfIPH+BYX+A5P8D2e4gc8w4+4xE94jp/x Ar/gJX7FFX7DK/yO1/gDb/AnDv657i3cwNs4xDu4iXdxhPdwC+/jGB/gNj7E CT7CHXyMu/gE9/ApTvEZ7uNzPMAXeIgvcYav8Ahf4xzf4DG+xQW+wxN8j6f4 Ac/wIy7xE57jZ7zAL3iJX3GF3/AKv+M1/sAb/ImDf6l7CzfwNg7xDm7iXRzh PdzC+zjGB7iND3GCj3AHH+MuPsE9fIpTfIb7+BwP8AUe4kuc4Ss8wtc4xzd4 jG9xge/wBN/jKX7AM/yIS/yE5/gZL/ALXuJXXOE3vMLveI0/8AZ/4mBc9xZu 4G0c4h3cxLs4wnu4hfdxjA9wGx/iBB/hDj7GXXyCe/gUp/gM9/E5HuALPMSX OMNXeISvcY5v8Bjf4gLf4Qm+x1P8gGf4EZf4Cc/xM17gF7zEr7jCb3iF3/Ea f+AN/sTBv9a9hRt4G4d4BzfxLo7wHm7hfRzjA9zGhzjBR7iDj3EXn+AePsUp PsN9fI4H+AIP8SXO8BUe4Wuc4xs8xre4wHd4gu/xFD/gGX7EJX7Cc/yMF/gF L/ErrvAbXuF3vMYfeIM/cfBvdW/hBt7GId7BTbyLI7yHW3gfx/gAt/EhTvAR 7uBj3MUnuIdPcYrPcB+f4wG+wEN8iTN8hUf4Guf4Bo/xLS7wHZ7gezzFD3iG H3GJn/AcP+MFfsFL/Ior/IZX+B2v8Qfe4E8c/HvdW7iBt3GId3AT7+II7+EW 3scxPsBtfIgTfIQ7+Bh38Qnu4VOc4jPcx+d4gC/wEF/iDF/hEb7GOb7BY3yL C3yHJ/geT/EDnuFHXOInPMfPeIFf8BK/4gq/4RV+x2v8gTf4Ewe3dW/hBt7G Id7BTbyLI7yHW3gfx/gAt/EhTvAR7uBj3MUnuIdPcYrPcB+f4wG+wEN8iTN8 hUf4Guf4Bo/xLS7wHZ7gezzFD3iGH3GJn/AcP+MFfsFL/Ior/IZX+B2v8Qfe 4E8c/EfdW7iBt3GId3AT7+II7+EW3scxPsBtfIgTfIQ7+Bh38Qnu4VOc4jPc x+d4gC/wEF/iDF/hEb7GOb7BY3yLC3yHJ/geT/EDnuFHXOInPMfPeIFf8BK/ 4gq/4RV+x2v8gTf4Ewf/WfcWbuBtHOId3MS7OMJ7uIX3cYwPcBsf4gQf4Q4+ xl18gnv4FKf4DPfxOR7gCzzElzjDV3iEr3GOb/AY3+IC3+EJvsdT/IBn+BGX +AnP8TNe4Be8xK+4wm94hd/xGn/gDf7EwX/VvYUbeBuHeAc38S6O8B5u4X0c 4wPcxoc4+f+55P262/gAx3gft/AejvAubuIdHOJt3MBbOMCf/1n3Bn/gNX7H K/yGK/yKl/gFL/AznuMnXOJHPMMPeIrv8QTf4QLf4jG+wTm+xiN8hTN8iYf4 Ag/wOe7jM5ziU9zDJ7iLj3EHH+EEH+I2PsAx3sctvIcjvIubeAeHeBs38BYO 8Od/1L3BH3iN3/EKv+EKv+IlfsEL/Izn+AmX+BHP8AOe4ns8wXe4wLd4jG9w jq/xCF/hDF/iIb7AA3yO+/gMp/gU9/AJ7uJj3MFHOMGHuI0PcIz3cQvv4Qjv 4ibewSHexg28hQP8eVv3Bn/gNX7HK/yGK/yKl/gFL/AznuMnXOJHPMMPeIrv 8QTf4QLf4jG+wTm+xiN8hTN8iYf4Ag/wOe7jM5ziU9zDJ7iLj3EHH+EEH+I2 PsAx3sctvIcjvIubeAeHeBs38BYO8Oe/173BH3iN3/EKv+EKv+IlfsEL/Izn +AmX+BHP8AOe4ns8wXe4wLd4jG9wjq/xCF/hDF/iIb7AA3yO+/gMp/gU9/AJ 7uJj3MFHOMGHuI0PcIz3cQvv4Qjv4ibewSHexg28hQP8+W91b/AHXuN3vMJv uMKveIlf8AI/4zl+wiV+xDP8gKf4Hk/wHS7wLR7jG5zjazzCVzjDl3iIL/AA n+M+PsMpPsU9fIK7+Bh38BFO8CFu4wMc433cwns4wru4iXdwiLdxA2/hAH/+ a90b/IHX+B2v8Buu8Cte4he8wM94jp9wiR/xDD/gKb7HE3yHC3yLx/gG5/ga j/AVzvAlHuILPMDnuI/PcIpPcQ+f4C4+xh18hBN8iNv4AMd4H7fwHo7wLm7i HRzibdzAWzjAn+O6N/gDr/E7XuE3XOFXvMQveIGf8Rw/4RI/4hl+wFN8jyf4 Dhf4Fo/xDc7xNR7hK5zhSzzEF3iAz3Efn+EUn+IePsFdfIw7+Agn+BC38QGO 8T5u4T0c4V3cxDs4xNu4gbdwgD//pe4N/sBr/I5X+A1X+BUv8Qte4Gc8x0+4 xI94hh/wFN/jCb7DBb7FY3yDc3yNR/gKZ/gSD/EFHuBz3MdnOMWnuIdPcBcf 4w4+wgk+xG18gGO8j1t4D0d4FzfxDg7xNm7gLRzgz3+ue4M/8Bq/4xV+wxV+ xUv8ghf4Gc/xEy7xI57hBzzF93iC73CBb/EY3+AcX+MRvsIZvsRDfIEH+Bz3 8RlO8Snu4RPcxce4g49wgg9xGx/gGO/jFt7DEd7FTbyDQ7yNG3gLB/jzn+re 4A+8xu94hd9whV/xEr/gBX7Gc/yES/yIZ/gBT/E9nuA7XOBbPMY3OMfXeISv cIYv8RBf4AE+x318hlN8inv4BHfxMe7gI5zgQ9zGBzjG+7iF93CEd3ET7+AQ b+MG3sIB/rype4M/8Bq/4xV+wxV+xUv8ghf4Gc/xEy7xI57hBzzF93iC73CB b/EY3+AcX+MRvsIZvsRDfIEH+Bz38RlO8Snu4RPcxce4g49wgg9xGx/gGO/j Ft7DEd7FTbyDQ7yNG3gLB/jzH+ve4A+8xu94hd9whV/xEr/gBX7Gc/yES/yI Z/gBT/E9nuA7XOBbPMY3OMfXeISvcIYv8RBf4AE+x318hlN8inv4BHfxMe7g I5zgQ9zGBzjG+7iF93CEd3ET7+AQb+MG3sIB/vyHujf4A6/xO17hN1zhV7zE L3iBn/EcP+ESP+IZfsBTfI8n+A4X+BaP8Q3O8TUe4Suc4Us8xBd4gM9xH5/h FJ/iHj7BXXyMO/gIJ/gQt/EBjvE+buE9HOFd3MQ7OMTbuIG3cIA//77uDf7A a/yOV/gNV/gVL/ELXuBnPMdPuMSPeIYf8BTf4wm+wwW+xWN8g3N8jUf4Cmf4 Eg/xBR7gc9zHZzjFp7iHT3AXH+MOPsIJPsRtfIBjvI9beA9HeBc38Q4O8TZu 4C0c4M+87g3+wGv8jlf4DVf4FS/xC17gZzzHT7jEj3iGH/AU3+MJvsMFvsVj fINzfI1H+Apn+BIP8QUe4HPcx2c4xae4h09wFx/jDj7CCT7EbXyAY7yPW3gP R3gXN/EODvE2buAtHPy3/5//i657jVe4wku8wHNc4hme4gku8BjneIQzPMQD 3Mcp7uEu7uAEt3GMWzjCTRziBg7w5m/rXuMVrvASL/Acl3iGp3iCCzzGOR7h DA/xAPdxinu4izs4wW0c4xaOcBOHuIEDvPmbutd4hSu8xAs8xyWe4Sme4AKP cY5HOMNDPMB9nOIe7uIOTnAbx7iFI9zEIW7gAG+u617jFa7wEi/wHJd4hqd4 ggs8xjke4QwP8QD3cYp7uIs7OMFtHOMWjnATh7iBA7z567rXeIUrvMQLPMcl nuEpnuACj3GORzjDQzzAfZziHu7iDk5wG8e4hSPcxCFu4ABv/qruNV7hCi/x As9xiWd4iie4wGOc4xHO8BAPcB+nuIe7uIMT3MYxbuEIN3GIGzjAm7+se41X uMJLvMBzXOIZnuIJLvAY53iEMzzEA9zHKe7hLu7gBLdxjFs4wk0c4gYO8GZU 9xqvcIWXeIHnuMQzPMUTXOAxzvEIZ3iIB7iPU9zDXdzBCW7jGLdwhJs4xA0c 4M1f1L3GK1zhJV7gOS7xDE/xBBd4jHM8whke4gHu4xT3cBd3cILbOMYtHOEm DnEDB3jz53Wv8QpXeIkXeI5LPMNTPMEFHuMcj3CGh3iA+zjFPdzFHZzgNo5x C0e4iUPcwAHe/Fnda7zCFV7iBZ7jEs/wFE9wgcc4xyOc4SEe4D5OcQ93cQcn uI1j3MIRbuIQN3CAN1d1r/EKV3iJF3iOSzzDUzzBBR7jHI9whod4gPs4xT3c xR2c4DaOcQtHuIlD3MAB3vxp3Wu8whVe4gWe4xLP8BRPcIHHOMcjnOEhHuA+ TnEPd3EHJ7iNY9zCEW7iEDdwgDd/Uvcar3CFl3iB57jEMzzFE1zgMc7xCGd4 iAe4j1Pcw13cwQlu4xi3cISbOMQNHODNH9e9xitc4SVe4Dku8QxP8QQXeIxz PMIZHuIB7uMU93AXd3CC2zjGLRzhJg5xAwd4k9W9xitc4SVe4Dku8QxP8QQX eIxzPMIZHuIB7uMU93AXd3CC2zjGLRzhJg5xAwf+3n9Ud4UXuMRTXOAcZ3iA U9zFCY5xhEMc4PUf1l3hBS7xFBc4xxke4BR3cYJjHOEQB3j9B3VXeIFLPMUF znGGBzjFXZzgGEc4xAFeX9Zd4QUu8RQXOMcZHuAUd3GCYxzhEAd4/ft1V3iB SzzFBc5xhgc4xV2c4BhHOMQBXv9e3RVe4BJPcYFznOEBTnEXJzjGEQ5xgNe/ W3eFF7jEU1zgHGd4gFPcxQmOcYRDHOD1sO4KL3CJp7jAOc7wAKe4ixMc4wiH OMDr36m7wgtc4ikucI4zPMAp7uIExzjCIQ7w+rfrrvACl3iKC5zjDA9wirs4 wTGOcIgDvP6tuiu8wCWe4gLnOMMDnOIuTnCMIxziAK8v6q7wApd4iguc4wwP cIq7OMExjnCIA7z+zborvMAlnuIC5zjDA5ziLk5wjCMc4gCvf6PuCi9wiae4 wDnO8ACnuIsTHOMIhzjA61+vu8ILXOIpLnCOMzzAKe7iBMc4wiEO8HpQd4UX uMRTXOAcZ3iAU9zFCY5xhEMc+L1f4vtwgTOc4gRHOMDVr7GPC5zhFCc4wgGu fpV9XOAMpzjBEQ5wdc4+LnCGU5zgCAe4+hX2cYEznOIERzjA1S+zjwuc4RQn OMIBrn6JfVzgDKc4wREOcNVnHxc4wylOcIQDXP0i+7jAGU5xgiMc4OoX2McF znCKExzhAFc/zz4ucIZTnOAIB7g6Yx8XOMMpTnCEA1z9HPu4wBlOcYIjHODq i+zjAmc4xQmOcICrn2UfFzjDKU5whANcpezjAmc4xQmOcODez3A/TnCAy5+m jxMc4PKn6OMEB7g8pY8THODyJ+njBAe4/An6OMEBLn+cPk5wgMsefZzgAJc/ Rh8nOMDlj9LHCQ5w+SP0cYIDXJ7QxwkOcPnD9HGCA1z+EH2c4ACXP0gfJzjA ZZc+TnDg+z9AjrPvJ8fZ95Hj7JgcZ99LjrPvIcfZd5PjrEOOs+8ix9l3kuPs O8hxdkSOs28nx9m3kePsW8lxlpDrL+Bvwd+MD/E34W/E34Db+Ovx1+GvxQf4 a/BX46/CMf5KvI+/Arfwl+M9/GU4wru4iXdwiBs4wOv/QR6QcwYJ9+MQ7+Am 3sUR/jK8h78ct/BX4H38lTjGX4W/Gn8NPsBfi78Ofz1u42/A34i/CR/ib8bf gr+Ak7ozHHwrOQ6+jRwH306OgyNyHHwHOQ6+kxwH30WOgw45Dr6bHAffQ46D 7yXHwTE5Dr6PHAffT46DHyDHQbfuBGe4xMEP0scZLnHwQ/Rxhksc/DB9nOES Byf0cYZLHPwIfZzhEgc/Sh9nuMTBj9HHGS5x0KOPM1zi4Mfp4wyXOPgJ+jjD JQ5+kj7OcImDU/o4wyUOfoo+znCJg5+mjzNc4uBn6OMMlzhI645wglOc4QKX uMLBz7KPE5ziDBe4xBUOvsg+TnCKM1zgElc4+Dn2cYJTnOECl7jCwRn7OMEp znCBS1zh4OfZxwlOcYYLXOIKB7/APk5wijNc4BJXOPhF9nGCU5zhApe4wkGf fZzgFGe4wCWucPBL7OMEpzjDBS5xhYNfZh8nOMUZLnCJKxz8Cvs4wSnOcIFL XOHgnH2c4BRnuMAlrnDwq+zjBKc4wwUucYWDX2MfJzjFGS5wiSscfIl9nOAU Z7jAJa5wMKg7xBGOcYK7OMUDnOEcF3iKS7zAFV7j4NfrDnGEY5zgLk7xAGc4 xwWe4hIvcIXXOPiNukMc4RgnuItTPMAZznGBp7jEC1zhNQ5+s+4QRzjGCe7i FA9whnNc4Cku8QJXeI2Di7pDHOEYJ7iLUzzAGc5xgae4xAtc4TUOfqvuEEc4 xgnu4hQPcIZzXOApLvECV3iNg9+uO8QRjnGCuzjFA5zhHBd4iku8wBVe4+B3 6g5xhGOc4C5O8QBnOMcFnuISL3CF1zgY1h3iCMc4wV2c4gHOcI4LPMUlXuAK r3Hwu3WHOMIxTnAXp3iAM5zjAk9xiRe4wmsc/F7dIY5wjBPcxSke4AznuMBT XOIFrvAaB79fd4gjHOMEd3GKBzjDOS7wFJd4gSu8xsFl3SGOcIwT3MUpHuAM 57jAU1ziBa7wGgd/UHeIIxzjBHdxigc4wzku8BSXeIErvMbBH9Yd4gjHOMFd nOIBznCOCzzFJV7gCq9x8Ed1hzjCMU5wF6d4gDOc4wJPcYkXuMJrHGR1N3CI mzjCLRzjNk5wB3dxD6e4jwd4iDM8wjke4wJP8BTPcInneIGXuMIrvMYbHPxx 3Q0c4iaOcAvHuI0T3MFd3MMp7uMBHuIMj3COx7jAEzzFM1ziOV7gJa7wCq/x Bgd/UncDh7iJI9zCMW7jBHdwF/dwivt4gIc4wyOc4zEu8ARP8QyXeI4XeIkr vMJrvMHBn9bdwCFu4gi3cIzbOMEd3MU9nOI+HuAhzvAI53iMCzzBUzzDJZ7j BV7iCq/wGm9wcFV3A4e4iSPcwjFu4wR3cBf3cIr7eICHOMMjnOMxLvAET/EM l3iOF3iJK7zCa7zBwZ/V3cAhbuIIt3CM2zjBHdzFPZziPh7gIc7wCOd4jAs8 wVM8wyWe4wVe4gqv8BpvcPDndTdwiJs4wi0c4zZOcAd3cQ+nuI8HeIgzPMI5 HuMCT/AUz3CJ53iBl7jCK7zGGxz8Rd0NHOImjnALx7iNE9zBXdzDKe7jAR7i DI9wjse4wBM8xTNc4jle4CWu8Aqv8QYHo7obOMRNHOEWjnEbJ7iDu7iHU9zH AzzEGR7hHI9xgSd4ime4xHO8wEtc4RVe4w0O/rLuBg5xE0e4hWPcxgnu4C7u 4RT38QAPcYZHOMdjXOAJnuIZLvEcL/ASV3iF13iDg7+qu4FD3MQRbuEYt3GC O7iLezjFfTzAQ5zhEc7xGBd4gqd4hks8xwu8xBVe4TXe4OCv627gEDdxhFs4 xm2c4A7u4h5OcR8P8BBneIRzPMYFnuApnuESz/ECL3GFV3iNNzi4rruBQ9zE EW7hGLdxgju4i3s4xX08wEOc4RHO8RgXeIKneIZLPMcLvMQVXuE13uDgb+pu 4BA3cYRbOMZtnOAO7uIeTnEfD/AQZ3iEczzGBZ7gKZ7hEs/xAi9xhVd4jTc4 +Nu6GzjETRzhFo5xGye4g7u4h1PcxwM8xBke4RyPcYEneIpnuMRzvMBLXOEV XuMNDv6u7gYOcRNHuIVj3MYJ7uAu7uEU9/EAD3GGRzjHY1zgCZ7iGS7xHC/w Eld4hdd4g4O87q3/9v9+Gngbh3gHN/EujvAebuF9HOMD3MaHOMFHuIOPcRef 4B4+xSk+w318jgf4Ag/xJc7wFR7ha5zjGzzGt7jAd3iC7/EUP+AZfsQlfsJz /IwX+AUv8Suu8Bte4Xe8xh94gz9x8Pd1b+EG3sYh3sFNvIsjvIdbeB/H+AC3 8SFO8BHu4GPcxSe4h09xis9wH5/jAb7AQ3yJM3yFR/ga5/gGj/EtLvAdnuB7 PMUPeIYfcYmf8Bw/4wV+wUv8iiv8hlf4Ha/xB97gTxz8Q91buIG3cYh3cBPv 4gjv4RbexzE+wG18iBN8hDv4GHfxCe7hU5ziM9zH53iAL/AQX+IMX+ERvsY5 vsFjfIsLfIcn+B5P8QOe4Udc4ic8x894gV/wEr/iCr/hFX7Ha/yBN/gTB/9Y 9xZu4G0c4h3cxLs4wnu4hfdxjA9wGx/iBB/hDj7GXXyCe/gUp/gM9/E5HuAL PMSXOMNXeISvcY5v8Bjf4gLf4Qm+x1P8gGf4EZf4Cc/xM17gF7zEr7jCb3iF 3/Eaf+AN/sTBTd1buIG3cYh3cBPv4gjv4RbexzE+wG18iBN8hDv4GHfxCe7h U5ziM9zH53iAL/AQX+IMX+ERvsY5vsFjfIsLfIcn+B5P8QOe4Udc4ic8x894 gV/wEr/iCr/hFX7Ha/yBN/gTB/9U9xZu4G0c4h3cxLs4wnu4hfdxjA9wGx/i BB/hDj7GXXyCe/gUp/gM9/E5HuALPMSXOMNXeISvcY5v8Bjf4gLf4Qm+x1P8 gGf4EZf4Cc/xM17gF7zEr7jCb3iF3/Eaf+AN/sTBP9e9hRt4G4d4BzfxLo7w Hm7hfRzjA9zGhzjBR7iDj3EXn+AePsUpPsN9fI4H+AIP8SXO8BUe4Wuc4xs8 xre4wHd4gu/xFD/gGX7EJX7Cc/yMF/gFL/ErrvAbXuF3vMYfeIM/cfAvdW/h Bt7GId7BTbyLI7yHW3gfx/gAt/EhTvAR7uBj3MUnuIdPcYrPcB+f4wG+wEN8 iTN8hUf4Guf4Bo/xLS7wHZ7gezzFD3iGH3GJn/AcP+MFfsFL/Ior/IZX+B2v 8Qfe4E8cjOvewg28jUO8g5t4F0d4D7fwPo7xAW7jQ5zgI9zBx7iLT3APn+IU n+E+PscDfIGH+BJn+AqP8DXO8Q0e41tc4Ds8wfd4ih/wDD/iEj/hOX7GC/yC l/gVV/gNr/A7XuMPvMGfOPjXurdwA2/jEO/gJt7FEd7DLbyPY3yA2/gQJ/gI d/Ax7uIT3MOnOMVnuI/P8QBf4CG+xBm+wiN8jXN8g8f4Fhf4Dk/wPZ7iBzzD j7jET3iOn/ECv+AlfsUVfsMr/I7X+ANv8CcO/q3uLdzA2zjEO7iJd3GE93AL 7+MYH+A2PsQJPsIdfIy7+AT38ClO8Rnu43M8wBd4iC9xhq/wCF/jHN/gMb7F Bb7DE3yPp/gBz/AjLvETnuNnvMAveIlfcYXf8Aq/4zX+wBv8iYN/r3sLN/A2 DvEObuJdHOE93ML7OMYHuI0PcYKPcAcf4y4+wT18ilN8hvv4HA/wBR7iS5zh KzzC1zjHN3iMb3GB7/AE3+MpfsAz/IhL/ITn+Bkv8Ate4ldc4Te8wu94jT/w Bn/i4LbuLdzA2zjEO7iJd3GE93AL7+MYH+A2PsQJPsIdfIy7+AT38ClO8Rnu 43M8wBd4iC9xhq/wCF/jHN/gMb7FBb7DE3yPp/gBz/AjLvETnuNnvMAveIlf cYXf8Aq/4zX+wBv8iYP/qHsLN/A2DvEObuJdHOE93ML7OMYHuI0PcYKPcAcf 4y4+wT18ilN8hvv4HA/wBR7iS5zhKzzC1zjHN3iMb3GB7/AE3+MpfsAz/IhL /ITn+Bkv8Ate4ldc4Te8wu94jT/wBn/i4D/r3sINvI1DvIObeBdHeA+38D6O 8QFu40Oc4CPcwce4i09wD5/iFJ/hPj7HA3yBh/gSZ/gKj/A1zvENHuNbXOA7 PMH3eIof8Aw/4hI/4Tl+xgv8gpf4FVf4Da/wO17jD7zBnzj4r7q3cANv4xDv 4CbexRHewy28j2N8gNv4ECf/r/8n9NWiNA== "], {{{}, {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwl2dOyIAqQRcHTtm3btm3bts3btm3btm3bts3pyYl5yE9YEbWjEjXuULl9 4ICAgEAECRkQcCFIQMClMAEBF7nAec5xljOc5hQnOcFxjnGUIxzmEAc5wH72 sZc97GYXO9nBdraxlS1sZhMb2cB61rGWNaxmFStZwXKWsZQlLGYRC1nAfOYx lznMZhYzmcF0pjGVKUxmEhOZwHjGMZYxjGYUIxnBcIYxlCEMZhADGcB/9Kcf felDb3rRkx50pxtd6UJnOtGRDrSnHW1pQ2ta0ZIWNKcZTWlCYxrRkAbUpx51 qUNtalGTGlSnGlWpQmUqUZEKlKccZSlDaUpRkhIUpxhFKUJhClGQAuQnH3nJ Q25ykZMcZCcbWclCZjKRkQykJx1pSUNqUpGSFCQnGUlJQmISkZAExCcecYlD bGIRkxhEJxpRiUJkIhGRCIQnHGEJQ2hCEZIQBCcYQQlCYAIRwL/QAQH/w1/+ 8Jtf/OQH3/nGV77wmU985APvecdb3vCaV7zkBc95xlOe8JhHPOQB97nHXe5w m1vc5AbXucZVrnCZS1zkAuc5x1nOcJpTnOQExznGUY5wmEMc5AD72cde9rCb XexkB9vZxla2sJlNbGQD61nHWtawmlWsZAXLWcZSlrCYRSxkAfOZx1zmMJtZ zGQG05nGVKYwmUlMZALjGcdYxjCaUYxkBMMZxlCGMJhBDGQA/9GffvSlD73p RU960J1udKULnelERzrQnna0pQ2taUVLWtCcZjSlCY1pREMaUJ961KUOtalF TWpQnWpUpQqVqURFKlCecpSlDKUpRUlKUJxiFKUIhSlEQQqQn3zkJQ+5yUVO cpCdbGQlC5nJREYykJ50pCUNqUlFSlKQnGQkJQmJSURCEhCfeMQlDrGJRUxi EJ1oRCUKkYlERCIQnnCEJQyhCUVIQhCcYAQlCIEJRAD/Qumfv/zhN7/4yQ++ 842vfOEzn/jIB97zjre84TWveMkLnvOMpzzhMY94yAPuc4+73OE2t7jJDa5z jatc4TKXuMgFznOOs5zhNKc4yQmOc4yjHOEwhzjIAfazj73sYTe72MkOtrON rWxhM5vYyAbWs461rGE1q1jJCpazjKUsYTGLWMgC5jOPucxhNrOYyQymM42p TGEyk5jIBMYzjrGMYTSjGMkIhjOMoQxhMIMYyAD+oz/96EsfetOLnvSgO93o Shc604mOdKA97WhLG1rTipa0oDnNaEoTGtOIhjSgPvWoSx1qU4ua1KA61ahK FSpTiYpUoDzlKEsZSlOKkpSgOMUoShEKU4iCFCA/+chLHnKTi5zkIDvZyEoW MpOJjGQgPelISxpSk4qUpCA5yUhKEhKTiIQkID7xiEscYhOLmMQgOtGIShQi E4mIRCA84QhLGEITipCEIDjBCEoQAhOIAP65qf+Hv/zhN7/4yQ++842vfOEz n/jIB97zjre84TWveMkLnvOMpzzhMY94yAPuc4+73OE2t7jJDa5zjatc4TKX uPh/W4DznOMsZzjNKU5yguMc4yhHOMwhDnKA/exjL3vYzS52soPtbGMrW9jM JjaygfWsYy1rWM0qVrKC5SxjKUtYzCIWsoD5zGMuc5jNLGYyg+lMYypTmMwk JjKB8YxjLGMYzShGMoLhDGMoQxjMIAYygP/oTz/60ofe9KInPehON7rShc50 oiMdaE872tKG1rSiJS1oTjOa0oTGNKIhDahPPepSh9rUoiY1qE41qlKFylSi IhUoTznKUobSlKIkJShOMYpShMIUoiAFyE8+8pKH3OQiJznITjaykoXMZCIj GUhPOtKShtSkIiUpSE4ykpKExCQiIQmITzziEofYxCImMYhONKIShchEIiIR CE84whKG0IQiJCEITjCChvz/DR2YQATwL4T++csffvOLn/zgO9/4yhc+84mP fOA973jLG17zipe84DnPeMoTHvOIhzzgPve4yx1uc4ub3OA617jKFS5ziYtc 4DznOMsZTnOKk5zgOMc4yhEOc4iDHGA/+9jLHnazi53sYDvb2MoWNrOJjWxg PetYyxpWs4qVrGA5y1jKEhaziIUsYD7zmMscZjOLmcxgOtOYyhQmM4mJTGA8 4xjLGEYzipGMYDjDGMoQBjOIgQzgP/rTj770oTe96EkPutONrnShM53oSAfa 0462tKE1rWhJC5rTjKY0oTGNaEgD6lOPutShNrWoSQ2qU42qVKEylahIBcpT jrKUoTSlKEkJilOMohShMIUoSAHyk4+85CE3uchJDrKTjaxkITOZyEgG0pOO tKQhNalISQqSk4ykJCExiUhIAuITj7jEITaxiEkMohONqEQhMpGISATCE46w hCE0oQhJCIITjKAEITCBCOBfcP3zlz/85hc/+cF3vvGVL3zmEx/5wHve8ZY3 vOYVL3nBc57xlCc85hEPecB97nGXO9zmFje5wXWucZUrXOYSF7nAec5xljOc 5hQnOcFxjnGUIxzmEAc5wH72sZc97GYXO9nBdraxlS1sZhMb2cB61rGWNaxm FStZwXKWsZQlLGYRC1nAfOYxlznMZhYzmcF0pjGVKUxmEhOZwHjGMZYxjGYU IxnBcIYxlCEMZhADGcB/9KcffelDb3rRkx50pxtd6UJnOtGRDrSnHW1pQ2ta 0ZIWNKcZTWlCYxrRkAbUpx51qUNtalGTGlSnGlWpQmUqUZEKlKccZSlDaUpR khIUpxhFKUJhClGQAuQnH3nJQ25ykZMcZCcbWclCZjKRkQykJx1pSUNqUpGS FCQnGUlJQmISkZAExCcecYlDbGIRkxhEJxpRiUJkIhGRCIQnHGEJQ2hCEZIQ BCcYQQlCYAIRwL9g+ucvf/jNL37yg+984ytf+MwnPvKB97zjLW94zSte8oLn POMpT3jMIx7ygPvc4y53uM0tbnKD61zjKle4zCUucoHznOMsZzjNKU5yguMc 4yhHOMwhDnKA/exjL3vYzS52soPtbGMrW9jMJjaygfWsYy1rWM0qVrKC5Sxj KUtYzCIWsoD5zGMuc5jNLGYyg+lMYypTmMwkJjKB8YxjLGMYzShGMoLhDGMo QxjMIAYygP/oTz/60ofe9KInPehON7rShc50oiMdaE872tKG1rSiJS1oTjOa 0oTGNKIhDahPPepSh9rUoiY1qE41qlKFylSiIhUoTznKUobSlKIkJShOMYpS hMIUoiAFyE8+8pKH3OQiJznITjaykoXMZCIjGUhPOtKShtSkIiUpSE4ykpKE xCQiIQmITzziEofYxCImMYhONKIShchEIiIRCE84whKG0IQiJCEITjCCEoTA BCKAf0H1z1/+8Jtf/OQH3/nGV77wmU985APvecdb3vCaV7zkBc95xlOe8JhH POQB97nHXe5wm1vc5AbXucZVrnCZS1zkAuc5x1nOcJpTnOQExznGUY5wmEMc 5AD72cde9rCbXexkB9vZxla2sJlNbGQD61nHWtawmlWsZAXLWcZSlrCYRSxk AfOZx1zmMJtZzGQG05nGVKYwmUlMZALjGcdYxjCaUYxkBMMZxlCGMJhBDGQA /9GffvSlD73pRU960J1udKULnelERzrQnna0pQ2taUVLWtCcZjSlCY1pREMa UJ961KUOtalFTWpQnWpUpQqVqURFKlCecpSlDKUpRUlKUJxiFKUIhSlEQQqQ n3zkJQ+5yUVOcpCdbGQlC5nJREYykJ50pCUNqUlFSlKQnGQkJQmJSURCEhCf eMQlDrGJRUxiEJ1oRCUKkYlERCIQnnCEJQyhCUVIQhCcYAQlCIEJRAD/guif v/zhN7/4yQ++842vfOEzn/jIB97zjre84TWveMkLnvOMpzzhMY94yAPuc4+7 3OE2t7jJDa5zjatc4fL//f+5yP8CvMM7EQ== "]]]}, {}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.006944444444444445], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl20MUIMqSBcDftm3btm3btm3btm3btm3b9uuJPrOIU6talrJuJmjYrmLb AP/73/8WhPvf//6NAQlEYIIQlGAEJwQhCUVowhAWU/8XnghEJBKRiUJUohGd GMQkFrGJQ1ziEZ8EJCQRiUlCUpKRnBSkJBWpSUNa0pGeDGQkE5nJQlaykZ0c 5CQXuclDXvKRnwIUpBCFKUJRilGcEpSkFKUpQ1nKUZ4KVKQSlalCVapRnRrU pBa1qUNd6lGfBjSkEY1pQlOa0ZwWtKQVrWlDW9rRng50pBOd6UJXutGdHvSk F73pQ1/60Z8BDGQQgxnCUIYxnBGMZBSjGcNYxjGeCUxkEpOZwlSmMZ0ZzGQW s5nDXOYxnwUsZBGLWcJSlrGcFaxkFatZw1rWsZ4NbGQTm9nCVraxnR3sZBe7 2cNe9rGfAxzkEIc5wlGOcZwTnOQUpznDWc5xngtc5BKXucJVrnGdG9zkFre5 w13ucZ8HPOQRj3nCU57xnBe85BWvecNb3vGeD3zkE5/5wle+8Z0f/OQXv/nD f/zl3+IPQEACEZggBCUYwQlBSEIRmjCEJRzhiUBEIhGZKEQlGtGJQUxiEZs4 xCUe8UlAQhKRmCQkJRnJSUFKUpGaNKQlHenJQEYykZksZCUb2clBTnKRmzzk JR/5KUBBClGYIhSlGMUpQUlKUZoylKUc5alARSpRmSpUpRrVqUFNalGbOtSl HvVpQEMa0ZgmNKUZzWlBS1rRmjb827zb0Z4OdKQTnelCV7rRnR70pBe96UNf +tGfAQxkEIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZw1zm MZ8FLGQRi1nCUpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvax nwMc5BCHOcJRjnGcE5zkFKc5w1nOcZ4LXOQSl7nCVa5xnRvc5Ba3ucNd7nGf BzzkEY95wlOe8ZwXvOQVr3nDW97xng985BOf+cJXvvGdH/zkF7/5w3/85d/B H4CABCIwQQhKMIITgpCEIjRhCEs4whOBiEQiMlGISjSiE4OYxCI2cYhLPOKT gIQkIjFJSEoykpOClKQiNWlISzrSk4GMZCIzWchKNrKTg5zkIjd5yEs+8lOA ghSiMEUoSjGKU4KSlKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSz3q04CG NKIxTWhKM5rTgpa0ojVtaEs72tOBjnSiM13oSje604Oe9KI3fehLP/ozgIEM YjBDGMowhjOCkYxiNGMYyzjGM4GJTGIyU5jKNKYzg5nMYjZzmMs85rOAhSxi MUtYyjKWs4KVrGI1a1jLOtazgY1sYjNb2Mo2trODnexiN3vYyz72c4CDHOIw RzjKMY5zgpOc4jRnOMs5znOBi1ziMle4yjWuc4Ob3OI2d7jLPe7zgIc84jFP eMoznvOCl7ziNW94yzve84GPfOIzX/jKN77zg5/84jd/+I+//Lv0ByAggQhM EIISjOCEICShCE0YwhKO8EQgIpGITBSiEo3oxCAmsYhNHOISj/gkICGJSEwS kpKM5KQgJalITRrSko70ZCAjmchMFrKSjezkICe5yE0e8pKP/BSgIIUoTBGK UozilKAkpShNGcpSjvJUoCKVqEwVqlKN6tSgJrWoTR3qUo/6NKAhjWhME5rS jOa0oCWtaE0b2tKO9nSgI53oTBe60o3u9KAnvehNH/rSj/4MYCCDGMwQhjKM 4YxgJKMYzRjGMo7xTGAik5jMFKYyjenMYCazmM0c5jKP+SxgIYtYzBKWsozl rGAlq1jNGtayjvVsYCOb2MwWtrKN7exgJ7vYzR72so/9HOAghzjMEY5yjOOc 4CSnOM0ZznKO81zgIpe4zBWuco3r3OAmt7jNHe5yj/s84CGPeMwTnvKM57zg Ja94zRve8o73fOAjn/jMF77yje/84Ce/+M0f/uMv/x78AQhIIAIThKAEIzgh CEkoQhOGsIQjPBGISCQiE4WoRCM6MYhJLGITh7jEIz4JSEgiEpOEpCQjOSlI SSpSk4a0pCM9GchIJjKThaxkIzs5yEkucpOHvOQjPwUoSCEKU4SiFKM4JShJ KUpThrKUozwVqEglKlOFqlSjOjWoSS1qU4e61KM+DWhIIxrThKY0ozktaEkr WtOGtrSjPR3oSCc604WudKM7PehJL3rTh770oz8DGMggBjOEoQxjOCMYyShG M4axjGM8E5jIJCYzhalMYzozmMksZjOHucxjPgtYyCIWs4SlLGM5K1jJKlaz hrWsYz0b2MgmNrOFrWxjOzvYyS52s4e97GM/BzjIIQ5zhKMc4zgnOMkpTnOG s5zjPBe4yCUuc4WrXOM6N7jJLW5zh7vc4z4PeMgjHvOEpzzjOS94ySte84a3 vOM9H/jIJz7zha984zs/+MkvfvOH//jLv2JfAAISiMAEISjBCE4IQhKK0IQh LOEITwQiEonIRCEq0YhODGISi9jEIS7xiE8CEpKIxCQhKclITgpSkorUpCEt 6UhPBjKSicxkISvZyE4OcpKL3OQhL/nITwEKUojCFKEoxShOCUpSitKUoSzl KE8FKlKJylShKtWoTg1qUova1KEu9ahPAxrSiMY0oSnNaE4LWtKK1rShLe1o Twc60onOdKEr3ehOD3rSi970oS/96M8ABjKIwQxhKMMYzghGMorRjGEs4xjP BCYyiclMYSrTmM4MZjKL2cxhLvOYzwIWsojFLGEpy1jOClayitWsYS3rWM8G NrKJzWxhK9vYzg52sovd7GEv+9jPAQ5yiMMc4SjHOM4JTnKK05zhLOc4zwUu conLXOEq17jODW5yi9vc4S73uM8DHvKIxzzhKc94zgte8orXvOEt73jPBz7y ic984Svf+M4PfvKL3/zhP/7yr9AfgIAEIjBBCEowghOCkIQiNGEISzjCE4GI RCIyUYhKNKITg5jEIjZxiEs84pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxk IjNZyEo2spODnOQiN3nISz7yU4CCFKIwRShKMYpTgpKUojRlKEs5ylOBilSi MlWoSjWqU4Oa1KI2dahLPerTgIY0ojFNaEozmtOClrSiNW1oSzva04GOdKIz XehKN7rTg570ojd96Es/+jOAgQxiMEMYyjCGM4KRjGI0YxjLOMYzgYlMYjJT mMo0pjODmcxiNnOYyzzms4CFLGIxS1jKMpazgpWsYjVrWMs61rOBjWxiM1vY yja2s4Od7GI3e9jLPvZzgIMc4jBHOMoxjnOCk5ziNGc4yznOc4GLXOIyV7jK Na5zg5vc4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgY984jNf+Mo3 vvODn/ziN3/4j7/8++QLQEACEZggBCUYwQlBSEIRmjCEJRzhiUBEIhGZKEQl GtGJQUxiEZs4xCUe8UlAQhKRmCQkJRnJSUFKUpGaNKQlHenJQEYykZksZCUb 2clBTnKRmzzkJR/5KUBBClGYIhSlGMUpQUlKUZoylKUc5alARSpRmSpUpRrV qUFNalGbOtSlHvVpQEMa0ZgmNKUZzWlBS1rRmja0pR3t6UBHOtGZLnSlG93p QU960Zs+9KUf/RnAQAYxmCEMZRjDGcFIRjGaMYxlHOOZwEQmMZkpTGUa05nB TGYxmznMZR7zWcBCFrGYJSxlGctZwUpWsZo1rGUd69nARjaxmS1sZRvb2cFO drGbPexlH/s5wEEOcZgjHOUYxznBSU5xmjOc5RznucBFLnGZK1zlGte5wU1u cZs73OUe93nAQx7xmCc85RnPecFLXvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37x mz/8x1/+ffAHICCBCEwQghKM4IQgJKEITRjCEo7wRCAikYhMFKISjejEICax iE0c4hKP+CQgIYlITBKSkozkpCAlqUhNGtKSjvRkICOZyEwWspKN7OQgJ7nI TR7yko/8FKAghShMEYpSjOKUoCSlKE0ZylKO8lSgIpWoTBWqUo3q1KAmtahN HepSj/o0oCGNaEwTmtKM5rSgJa1oTRva0o72dKAjnehMF7rSje70oCe96E0f +tKP/gxgIIMYzBCGMozhjGAkoxjNGMYyjvFMYCKTmMwUpjKN6cxgJrOYzRzm Mo/5LGAhi1jMEpayjOWsYCWrWM0a1rKO9WxgI5vYzBa2so3t7GAnu9jNHvay j/0c4CCHOMwRjnKM45zgJKc4zRnOco7zXOAil7jMFa5yjevc4Ca3uM0d7nKP +zzgIY94zBOe8oznvOAlr3jNG97yjvd84COf+MwXvvKN7/zgJ7/4zR/+4y// wj0BCEggAhOEoAQjOCEISShCE4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQj PglISCISk4SkJCM5KUhJKlKThrSkIz0ZyEgmMpOFrGQjOznISS5yk4e85CM/ BShIIQpThKIUozglKEkpSlOGspSjPBWoSCUqU4WqVKM6NahJLWpTh7rUoz4N aEgjGtOEpjSjOS1oSSta04a2tKM9HehIJzrTha50ozs96EkvetOHvvSjPwMY yCAGM4ShDGM4IxjJKEYzhrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1jI IhazhKUsYzkrWMkqVrOGtaxjPRvYyCY2s4WtbGM7O9jJLnazh73sYz8HOMgh DnOEoxzjOCc4ySlOc4aznOM8F7jIJS5zhatc4zo3uMktbnOHu9zjPg94yCMe 84SnPOM5L3jJK17zhre84z0f+MgnPvOFr3zjOz/4yS9+84f/+Mu/YF8AAhKI wAQhKMEITghCEorQhCEs4QhPBCISichEISrRiE4MYhKL2MQhLvGITwISkojE JCEpyUhOClKSitSkIS3pSE8GMpKJzGQhK9nITg5ykovc5CEv+chPAQpSiMIU oSjFKE4JSlKK0pShLOUoTwUqUonKVKEq1ahODWpSi9rUoS71qE8DGtKIxjSh Kc1oTgta0orWtKEt7WhPBzrSic50oSvd6E4PetKL3vShL/3ozwAGMojBDGEo wxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu85jPAhayiMUsYSnL WM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/72M8BDnKIwxzhKMc4 zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zhLve4zwMe8ojHPOEpz3jO C17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/OE//vIv1BuAgAQiMEEISjCC E4KQhCI0YQhLOMITgYhEIjJRiEo0ohODmMQiNnGISzzik4CEJCIxSUhKMpKT gpSkIjVpSEs60pOBjGQiM1nISjayk4Oc5CI3echLPvJTgIIUojBFKEoxilOC kpSiNGUoSznKU4GKVKIyVahKNapTg5rUojZ1qEs96tOAhjSiMU1oSjOa04KW tKI1bWhLO9rTgY50ojNd6Eo3utODnvSiN33oSz/6M4CBDGIwQxjKMIYzgpGM YjRjGMs4xjOBiUxiMlOYyjSmM4OZzGI2c5jLPOazgIUsYjFLWMoylrOClaxi NWtYyzrWs4GNbGIzW9jKNrazg53sYjd72Ms+9nOAgxziMEc4yjGOc4KTnOI0 ZzjLOc5zgYtc4jJXuMo1rnODm9ziNne4yz3u84CHPOIxT3jKM57zgpe84jVv eMs73vOBj3ziM1/4yje+84Of/OI3f/iPv/wL9AcgIIEITBCCEozghCAkoQhN GMISjvBEICKRiEwUohKN6MQgJrGITRziEo/4JCAhiUhMEpKSjOSkICWpSE0a 0pKO9GQgI5nITBayko3s5CAnuchNHvKSj/wUoCCFKEwRilKM4pSgJKUoTRnK Uo7yVKAilahMFapSjerUoCa1qE0d6lKP+jSgIY1oTBOa0ozmtKAlrWhNG9rS jvZ0oCOd6EwXutKN7vSgJ73oTR/60o/+DGAggxjMEIYyjOGMYCSjGM0YxjKO 8UxgIpOYzBSmMo3pzGAms5jNHOYyj/ksYCGLWMwSlrKM5axgJatYzRrWso71 bGAjm9jMFrayje3sYCe72M0e9rKP/RzgIIc4zBGOcozjnOAkpzjNGc5yjvNc 4CKXuMwVrnKN69zgJre4zR3uco/7POAhj3jME57yjOe84CWveM0b3vKO93zg I5/4zBe+8o3v/OAnv/jNH/7jL/+aeQIQkEAEJghBCUZwQhCSUIQmDGEJR3gi EJFIRCYKUYlGdGIQk1jEJg5xiUd8EpCQRCQmCUlJRnJSkJJUpCYNaUlHejKQ kUxkJgtZyUZ2cpCTXOQmD3nJR34KUJBCFKYIRSlGcUpQklKUpgxlKUd5KlCR SlSmClWpRnVqUJNa1KYOdalHfRrQkEY0pglNaUZzWtCSVrSmDW1pR3s60JFO dKYLXelGd3rQk170pg996Ud/BjCQQQxmCEMZxnBGMJJRjGYMYxnHeCYwkUlM ZgpTmcZ0ZjCTWcxmDnOZx3wWsJBFLGYJS1nGclawklWsZg1rWcd6NrCRTWxm C1vZxnZ2sJNd7GYPe9nHfg5wkEMc5ghHOcZxTnCSU5zmDGc5x3kucJFLXOYK V7nGdW5wk1vc5g53ucd9HvCQRzzmCU95xnNe8JJXvOYNb3nHez7wkU985gtf +cZ3fvCTX/zmD//xl3+NfAEISCACE4SgBCM4IQhJKEIThrCEIzwRiEgkIhOF qEQjOjGISSxiE4e4xCM+CUhIIhKThKQkIzkpSEkqUpOGtKQjPRnISCYyk4Ws ZCM7OchJLnKTh7zkIz8FKEghClOEohSjOCUoSSlKU4aylKM8FahIJSpThapU ozo1qEktalOHutSjPg1oSCMa04SmNKM5LWhJK1rThra0oz0d6EgnOtOFrnSj Oz3oSS9604e+9KM/AxjIIAYzhKEMYzgjGMkoRjOGsYxjPBOYyCQmM4WpTGM6 M5jJLGYzh7nMYz4LWMgiFrOEpSxjOStYySpWs4a1rGM9G9jIJjazha1sYzs7 2MkudrOHvexjPwc4yCEOc4SjHOM4JzjJKU5zhrOc4zwXuMglLnOFq1zjOje4 yS1uc4e73OM+D3jIIx7zhKc84zkveMkrXvOGt7zjPR/4yCc+84WvfOM7P/jJ L37zh//4y78m3gAEJBCBCUJQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjE JBaxiUNc4hGfBCQkEYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQk F7nJQ17ykZ8CFKQQhSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KQW talDXepRnwY0pBGNaUJTmtGcFrSkFa1pQ1va0Z4OdKQTnelCV7rRnR70pBe9 6UNf+tGfAQxkEIMZwlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZ w1zmMT/c//eg/x+GYiDL "]]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.006944444444444445], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.006944444444444445], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.006944444444444445], AbsoluteThickness[1.6]}, {}}}], {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-2000., 2000.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7979595781177797`*^9, 3.7979595867235374`*^9}, { 3.797959649313664*^9, 3.7979596575964017`*^9}, {3.7979597057499485`*^9, 3.797959716972616*^9}, {3.7979599916873293`*^9, 3.797959998157133*^9}, { 3.7979600346770144`*^9, 3.7979600500315523`*^9}, 3.797960110471729*^9}, CellLabel->"Out[3]=", CellID->247365203] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->540091361], Cell["\<\ Test modifications on expressions to see which lead to new instances:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7979598304531918`*^9, 3.797959863879182*^9}, { 3.797960196044168*^9, 3.7979601981151104`*^9}}, CellID->84277995], Cell[BoxData[ RowBox[{ RowBox[{"expr", "=", "12345"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959722677438*^9, 3.797959727705287*^9}, { 3.7979605172694654`*^9, 3.7979605178894463`*^9}}, CellLabel->"In[1]:=", CellID->412851540], 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"expr", ",", "expr"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959729454234*^9, 3.797959732060157*^9}, { 3.7979605216243496`*^9, 3.7979605232553005`*^9}}, CellLabel->"In[2]:=", CellID->311142432], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.797959732740136*^9, 3.797959877038787*^9, 3.7979601609332247`*^9, 3.797960203305931*^9, 3.7979605473005753`*^9}, CellLabel->"Out[2]=", CellID->362392293] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{ RowBox[{"{", "expr", "}"}], ",", RowBox[{"{", "expr", "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7979601426807795`*^9, 3.7979601459256783`*^9}, { 3.7979605246072617`*^9, 3.7979605283911457`*^9}}, CellLabel->"In[3]:=", CellID->563431937], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{{3.797960146785652*^9, 3.7979601610162063`*^9}, 3.7979602035539417`*^9, 3.7979605474975705`*^9}, CellLabel->"Out[3]=", CellID->22200879] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{ RowBox[{"expr", "+", "0"}], ",", RowBox[{"expr", "+", "0"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959740798893*^9, 3.797959743294818*^9}, { 3.797960529927102*^9, 3.7979605319300394`*^9}}, CellLabel->"In[4]:=", CellID->678644991], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.7979597445247803`*^9, 3.797959877483754*^9, 3.7979601611022043`*^9, 3.797960203741934*^9, 3.7979605476935673`*^9}, CellLabel->"Out[4]=", CellID->80587] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{ RowBox[{"expr", "+", "1"}], ",", RowBox[{"expr", "+", "1"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79795975193754*^9, 3.7979597529125285`*^9}, { 3.7979605336489887`*^9, 3.7979605351719427`*^9}}, CellLabel->"In[5]:=", CellID->68461027], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.797959754211488*^9, 3.797959877714748*^9, 3.7979601612332163`*^9, 3.797960203928929*^9, 3.79796054797556*^9}, CellLabel->"Out[5]=", CellID->519686401] }, 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["SameInstanceQ", "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["SameInstanceQ", "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://resources.wolframcloud.com/FunctionRepository/\ resources/SameInstanceQ"}, "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], "SameInstanceQ"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SameInstanceQ"], BoxID -> "SameInstanceQ", Selectable->False], "[", RowBox[{"expr", ",", RowBox[{ RowBox[{"++", "expr"}], ";", RowBox[{"--", "expr"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.797959893085305*^9, 3.797959906970887*^9}, { 3.7979605367868767`*^9, 3.797960540253789*^9}}, CellLabel->"In[6]:=", CellID->244044083], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{3.7979599102447863`*^9, 3.797960161311219*^9, 3.797960204296918*^9, 3.7979605482995453`*^9}, CellLabel->"Out[6]=", CellID->92066536] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SameInstanceQ | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 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 9, 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->"da2ffa5e-ee8c-49b3-b000-781bcbefbf70", CellID->462042388], Cell[797, 32, 732, 22, 70, "Text",ExpressionUUID->"aa350564-a79c-4fb4-9682-36d55fdb2076", CellID->13078159], Cell[CellGroupData[{ Cell[1554, 58, 457, 15, 70, "Input",ExpressionUUID->"833f3ced-3bb2-43e9-b7ae-8a70d30d7d1d", CellID->443871870], Cell[2014, 75, 208, 5, 70, "Output",ExpressionUUID->"4d4bbb45-4caf-4a30-a22b-7494101a547d", CellID->1477344934] }, Open ]], Cell[2237, 83, 204, 4, 70, "Text",ExpressionUUID->"b7989121-add7-4b62-b486-554dd8331d16", CellID->435776021], Cell[CellGroupData[{ Cell[2466, 91, 7159, 180, 70, "Input",ExpressionUUID->"9a8b56e9-bc8c-4d78-902f-1f88b49d74e4", CellID->144103474], Cell[9628, 273, 187, 5, 70, "Output",ExpressionUUID->"a233ff15-552a-41a0-9744-d951f9ee2558", CellID->1821646164] }, Open ]], Cell[9830, 281, 550, 15, 70, "Text",ExpressionUUID->"8314eaa6-5d7c-4325-9c90-354deb6cc8ef", CellID->1784912763], Cell[CellGroupData[{ Cell[10405, 300, 7244, 183, 70, "Input",ExpressionUUID->"c5d5e1f0-3803-4f44-9b55-7250d672c91e", CellID->557811191], Cell[17652, 485, 184, 5, 70, "Output",ExpressionUUID->"187d919f-4176-470a-946f-427b3fbc893a", CellID->1448620180] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17885, 496, 228, 8, 70, "Subsection",ExpressionUUID->"88df7b59-1be8-4827-8d24-8c7a2c426238", CellID->12317119], Cell[18116, 506, 348, 9, 70, "Text",ExpressionUUID->"d6712bf2-7a0b-4062-98d0-1879aafaada6", CellID->32547996], Cell[CellGroupData[{ Cell[18489, 519, 7302, 184, 70, "Input",ExpressionUUID->"9d21ad46-cab1-4b54-bbd6-3146ef6bc54f", CellID->414119342], Cell[25794, 705, 162, 4, 70, "Output",ExpressionUUID->"bc4bb471-9759-4808-9065-54847d82b344", CellID->181026591] }, Open ]], Cell[CellGroupData[{ Cell[25993, 714, 7238, 181, 70, "Input",ExpressionUUID->"6f854b3d-a655-4a73-b424-eee57816bd51", CellID->12079408], Cell[33234, 897, 186, 5, 70, "Output",ExpressionUUID->"9bc083a9-043b-45c2-b78d-5700215029ca", CellID->51414387] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[33469, 908, 178, 7, 70, "Subsection",ExpressionUUID->"e70529bb-faa4-4d64-86ba-f10816a9723b", CellID->754506620], Cell[33650, 917, 769, 24, 70, "Text",ExpressionUUID->"3aded0bc-ea90-45d3-a202-96174d1bf455", CellID->33516309], Cell[CellGroupData[{ Cell[34444, 945, 7137, 179, 70, "Input",ExpressionUUID->"c30a08f2-bc76-4821-908b-00847ba689a1", CellID->264222624], Cell[41584, 1126, 158, 4, 70, "Output",ExpressionUUID->"81387825-6ce4-4dc6-b78a-c165214b53ca", CellID->586741288] }, Open ]], Cell[CellGroupData[{ Cell[41779, 1135, 7164, 180, 70, "Input",ExpressionUUID->"95ddb7fc-7eb8-498f-ac91-625b276871cf", CellID->42290330], Cell[48946, 1317, 158, 4, 70, "Output",ExpressionUUID->"88f27004-7af4-4629-8e01-971c63281ad0", CellID->46915398] }, Open ]], Cell[49119, 1324, 653, 22, 70, "Text",ExpressionUUID->"2925b736-cc45-47ed-bff1-2238a460ac32", CellID->148111032], Cell[CellGroupData[{ Cell[49797, 1350, 217, 6, 70, "Input",ExpressionUUID->"ae41ef64-4a0d-438e-870f-8bdd3be3e31e", CellID->26284278], Cell[50017, 1358, 188, 5, 70, "Output",ExpressionUUID->"68dad6c5-7f98-48d8-9140-06063f4f4e09", CellID->236986688] }, Open ]], Cell[CellGroupData[{ Cell[50242, 1368, 218, 6, 70, "Input",ExpressionUUID->"a6a0acd2-f74f-44f3-b4f4-5df7693f0301", CellID->424558651], Cell[50463, 1376, 184, 5, 70, "Output",ExpressionUUID->"4b1dbd5b-4f0b-4780-bf1f-1cc4cd199fd7", CellID->214586196] }, Open ]], Cell[CellGroupData[{ Cell[50684, 1386, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"14387474-63df-4fe8-a0f8-ec8638b01f3d", CellID->543106620], Cell[50831, 1392, 776, 26, 70, "Text",ExpressionUUID->"0b454cd1-48ee-4ee2-9d17-3eb896f3c9bb", CellID->759953339], Cell[CellGroupData[{ Cell[51632, 1422, 7128, 179, 70, "Input",ExpressionUUID->"1804739e-6f67-42c6-a91d-0fba3731bbc9", CellID->138026344], Cell[58763, 1603, 162, 4, 70, "Output",ExpressionUUID->"409f3dbf-513b-4f30-83e6-c22ec4db58a2", CellID->21227647] }, Open ]], Cell[58940, 1610, 689, 22, 70, "Text",ExpressionUUID->"c2b153a6-b9ed-4fbe-b8fc-12cf9fa0695e", CellID->98203106], Cell[CellGroupData[{ Cell[59654, 1636, 178, 5, 70, "Input",ExpressionUUID->"8542b92a-9b75-4650-addc-c01095a652f5", CellID->315713], Cell[59835, 1643, 159, 4, 70, "Output",ExpressionUUID->"d55ed0eb-07bb-4618-b742-0b745be83608", CellID->396026027] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60043, 1653, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"29085580-bfaf-43bc-8598-ddc2f3c369d0", CellID->17507663], Cell[60189, 1659, 366, 8, 70, "Text",ExpressionUUID->"8f51257e-8d03-4fc6-9e0a-fbdf4e534cac", CellID->68607796], Cell[CellGroupData[{ Cell[60580, 1671, 618, 17, 70, "Input",ExpressionUUID->"6f47ec63-3b07-4371-b8d1-0f4e2d242416", CellID->240159039], Cell[61201, 1690, 264, 6, 70, "Output",ExpressionUUID->"4fbd0a4a-ec45-4cb8-a065-0e43301e2a1a", CellID->174143579] }, Open ]], Cell[61480, 1699, 419, 14, 70, "Text",ExpressionUUID->"32abeae6-427f-4919-8423-dec29a7645e4", CellID->661622362], Cell[CellGroupData[{ Cell[61924, 1717, 209, 6, 70, "Input",ExpressionUUID->"5e8c0c65-c3ae-4e96-a331-62000204a9df", CellID->2410894], Cell[62136, 1725, 133, 4, 70, "Output",ExpressionUUID->"d32f8589-7634-4573-85ff-21a8035d0457", CellID->67526118] }, Open ]], Cell[62284, 1732, 235, 6, 70, "Text",ExpressionUUID->"924543c4-f4f5-4056-99c0-4f1fb378e52f", CellID->395565645], Cell[CellGroupData[{ Cell[62544, 1742, 7160, 180, 70, "Input",ExpressionUUID->"ba0ff2d1-0765-453f-a26d-6898ac0ce6fc", CellID->178606538], Cell[69707, 1924, 189, 5, 70, "Output",ExpressionUUID->"f41d8779-02ce-40ec-a9e9-b2fcb22383de", CellID->182437437] }, Open ]], Cell[69911, 1932, 245, 6, 70, "Text",ExpressionUUID->"5522e873-c9fa-4a78-bb04-91d55f0cc94d", CellID->137385255], Cell[CellGroupData[{ Cell[70181, 1942, 528, 15, 70, "Input",ExpressionUUID->"e8ddcb51-71f6-4613-94b2-2b4687de8d3f", CellID->73559770], Cell[70712, 1959, 136, 4, 70, "Output",ExpressionUUID->"8e0521ae-ec28-4253-93b0-291f48757a4e", CellID->391014421] }, Open ]], Cell[70863, 1966, 474, 14, 70, "Text",ExpressionUUID->"85a2bf19-ff34-4922-870c-42acf45bf131", CellID->385709283], Cell[CellGroupData[{ Cell[71362, 1984, 7132, 180, 70, "Input",ExpressionUUID->"be5646c6-f0bd-4cbb-b5c2-4154eea8882e", CellID->377910746], Cell[78497, 2166, 135, 4, 70, "Output",ExpressionUUID->"2e610cfa-58f5-44a5-8a12-9c7584ec66bb", CellID->164700289] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78681, 2176, 142, 4, 70, "ExampleDelimiter",ExpressionUUID->"1768a9ac-5aa9-4ab3-8b0b-5432b285378d", CellID->5152320], Cell[78826, 2182, 219, 6, 70, "Text",ExpressionUUID->"24e58c90-901b-4776-89ef-7a1249eabf7f", CellID->474971402], Cell[CellGroupData[{ Cell[79070, 2192, 7159, 180, 70, "Input",ExpressionUUID->"7f97b92a-9290-4968-8cbf-c734ad36612d", CellID->765854075], Cell[86232, 2374, 181, 5, 70, "Output",ExpressionUUID->"9dc9d599-f67f-40fb-98ad-2e99206d8a7a", CellID->307767421] }, Open ]], Cell[CellGroupData[{ Cell[86450, 2384, 7200, 182, 70, "Input",ExpressionUUID->"d687466b-564e-498c-8569-5b78ca57d738", CellID->255647933], Cell[93653, 2568, 159, 4, 70, "Output",ExpressionUUID->"6a19fd8f-e245-4a9e-924e-bd220c4c0245", CellID->8556512] }, Open ]], Cell[93827, 2575, 160, 3, 70, "Text",ExpressionUUID->"aa77a017-56a3-47c0-9550-0de1b79fcd40", CellID->572622615], Cell[CellGroupData[{ Cell[94012, 2582, 7193, 182, 70, "Input",ExpressionUUID->"0887b219-d83d-415c-80c5-9e68838f530a", CellID->66596444], Cell[101208, 2766, 186, 5, 70, "Output",ExpressionUUID->"daa24e9c-53b0-42b7-9de5-5d696a954d47", CellID->432290814] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[101443, 2777, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"c336006b-661f-4594-9ca5-b1fc4e05d4aa", CellID->144969628], Cell[101590, 2783, 788, 25, 70, "Text",ExpressionUUID->"03878918-c0d5-4cfc-a415-7e851b872e19", CellID->260479035], Cell[CellGroupData[{ Cell[102403, 2812, 196, 5, 70, "Input",ExpressionUUID->"e5b77ad1-4814-4ea6-82e5-94526cb9c789", CellID->108358043], Cell[102602, 2819, 159, 4, 70, "Output",ExpressionUUID->"e4c16977-0970-488e-992c-771204f7b30e", CellID->432867691] }, Open ]], Cell[CellGroupData[{ Cell[102798, 2828, 225, 6, 70, "Input",ExpressionUUID->"b93370eb-c7cf-454b-90a2-32f9dfed056b", CellID->621999964], Cell[103026, 2836, 158, 4, 70, "Output",ExpressionUUID->"822127ba-c3bb-4711-b65e-bd505a7cb5c6", CellID->78020790] }, Open ]], Cell[CellGroupData[{ Cell[103221, 2845, 7173, 180, 70, "Input",ExpressionUUID->"d4c61f1f-1484-49dd-ba7f-b7e4517a1f9b", CellID->11208537], Cell[110397, 3027, 159, 4, 70, "Output",ExpressionUUID->"ee05694e-a569-4b6e-a18f-b18cfa8a8fe1", CellID->60989760] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[110617, 3038, 168, 7, 70, "Subsection",ExpressionUUID->"6161f64e-a171-44f2-8562-7cd8bc3e5153", CellID->92483860], Cell[110788, 3047, 591, 15, 70, "Text",ExpressionUUID->"e8413a4a-1b2e-4965-a06b-5298f0fa5ae8", CellID->35010703], Cell[111382, 3064, 496, 15, 70, "Input",ExpressionUUID->"c8683c4a-f0b8-4ef7-aebb-554336863b67", CellID->168867505], Cell[CellGroupData[{ Cell[111903, 3083, 404, 10, 70, "Input",ExpressionUUID->"7c4b2552-d80a-4775-aa4e-73f17b99e84c", CellID->649913668], Cell[112310, 3095, 362, 9, 70, "Output",ExpressionUUID->"c7a8df3f-8a08-451f-9bd4-005d112365e5", CellID->483034696] }, Open ]], Cell[CellGroupData[{ Cell[112709, 3109, 356, 9, 70, "Input",ExpressionUUID->"8d977466-13d7-4726-aa0e-baa8edb608d6", CellID->404762954], Cell[113068, 3120, 305, 8, 70, "Output",ExpressionUUID->"52d6ecc3-58ba-41d8-8acc-61fc4ba1dd1c", CellID->410777385] }, Open ]], Cell[CellGroupData[{ Cell[113410, 3133, 7220, 182, 70, "Input",ExpressionUUID->"797447ec-ddf2-4895-afcb-4c1530a17f41", CellID->29242241], Cell[120633, 3317, 274, 8, 70, "Output",ExpressionUUID->"5f5f6efb-eede-4de7-9973-94c55fe87323", CellID->225923595] }, Open ]], Cell[CellGroupData[{ Cell[120944, 3330, 7168, 180, 70, "Input",ExpressionUUID->"91bbe090-5831-4f97-b4b7-0668e19abc05", CellID->283086224], Cell[128115, 3512, 158, 4, 70, "Output",ExpressionUUID->"df2c379b-8ab6-4c7a-a0c5-fd209c348099", CellID->236541438] }, Open ]], Cell[CellGroupData[{ Cell[128310, 3521, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"94525b9f-faae-41a3-9f74-6803b57ad9e8", CellID->227582728], Cell[128457, 3527, 318, 8, 70, "Text",ExpressionUUID->"34ccdd01-2636-45d2-b92f-36cb68249318", CellID->922207991], Cell[CellGroupData[{ Cell[128800, 3539, 7163, 180, 70, "Input",ExpressionUUID->"11b59528-a2f2-4aed-bb0c-33ba57414c63", CellID->12324837], Cell[135966, 3721, 235, 5, 70, "Output",ExpressionUUID->"3d3144b5-6988-4cc8-8083-abbbc54bd5c2", CellID->445541138] }, Open ]], Cell[136216, 3729, 159, 3, 70, "Text",ExpressionUUID->"d9b5f4d2-feef-4e4d-a5d3-3d6edf5882a9", CellID->41901462], Cell[CellGroupData[{ Cell[136400, 3736, 7162, 180, 70, "Input",ExpressionUUID->"85d96483-e590-449c-b913-e51c69db8ea3", CellID->207459490], Cell[143565, 3918, 234, 5, 70, "Output",ExpressionUUID->"6deb8a7a-1620-4f36-9753-554f28d54dfc", CellID->481261786] }, Open ]], Cell[143814, 3926, 269, 6, 70, "Text",ExpressionUUID->"d2b217d2-e2f0-4a01-97e3-bb2c660a5809", CellID->78954980], Cell[CellGroupData[{ Cell[144108, 3936, 8976, 212, 70, "Input",ExpressionUUID->"ba187606-5c5b-4812-9061-9944c8898022", CellID->359815627], Cell[153087, 4150, 30783, 524, 70, "Output",ExpressionUUID->"c4512516-7154-44a6-ab09-d390ec2bfa3d", CellID->247365203] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[183931, 4681, 167, 7, 70, "Subsection",ExpressionUUID->"ec72e42e-615a-4ac8-b135-f54f0a4b430f", CellID->540091361], Cell[184101, 4690, 250, 6, 70, "Text",ExpressionUUID->"f911c15d-1ebd-483c-aaba-8b2605bfd727", CellID->84277995], Cell[184354, 4698, 255, 7, 70, "Input",ExpressionUUID->"8791a933-844e-4987-824a-aa92beb939c6", CellID->412851540], Cell[CellGroupData[{ Cell[184634, 4709, 7215, 181, 70, "Input",ExpressionUUID->"c138dd3a-a9e0-4c22-986b-5e7a9650cdd2", CellID->311142432], Cell[191852, 4892, 230, 5, 70, "Output",ExpressionUUID->"e5cda3a6-d442-467f-aae8-5dc98f2d196f", CellID->362392293] }, Open ]], Cell[CellGroupData[{ Cell[192119, 4902, 7267, 183, 70, "Input",ExpressionUUID->"9b062057-da8c-4ec5-abe5-66f9200459e8", CellID->563431937], Cell[199389, 5087, 213, 5, 70, "Output",ExpressionUUID->"f073f681-1285-4516-81b8-5bb86d0097a2", CellID->22200879] }, Open ]], Cell[CellGroupData[{ Cell[199639, 5097, 7261, 183, 70, "Input",ExpressionUUID->"ba61a0ef-8cc7-4850-ae54-706f8dbd7ac8", CellID->678644991], Cell[206903, 5282, 228, 5, 70, "Output",ExpressionUUID->"e6678441-8a16-4611-9f20-0819241b2eac", CellID->80587] }, Open ]], Cell[CellGroupData[{ Cell[207168, 5292, 7263, 183, 70, "Input",ExpressionUUID->"022dbaa6-ff4f-4220-b52b-4fcc3b8ae691", CellID->68461027], Cell[214434, 5477, 228, 5, 70, "Output",ExpressionUUID->"82201b34-d214-4543-9493-6538e8517921", CellID->519686401] }, Open ]], Cell[CellGroupData[{ Cell[214699, 5487, 7282, 184, 70, "Input",ExpressionUUID->"ff0bf0ba-302e-41d6-8e2b-27e625bc8303", CellID->244044083], Cell[221984, 5673, 208, 5, 70, "Output",ExpressionUUID->"64b2ffd5-9665-453c-8e50-afcfeb54929d", CellID->92066536] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)