(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 63843, 1784] NotebookOptionsPosition[ 53638, 1558] NotebookOutlinePosition[ 54010, 1575] CellTagsIndexPosition[ 53967, 1572] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->158089505], Cell["Run an evaluation in a separate kernel:", "Text", CellID->905853], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", "$ProcessID", "]"}]], "Input", CellLabel->"In[35]:=", CellID->832983247], Cell[BoxData["15736"], "Output", CellLabel->"Out[35]=", CellID->565081696] }, Open ]], Cell["Compare to the current kernel: ", "Text", CellID->33561463], Cell[CellGroupData[{ Cell[BoxData["$ProcessID"], "Input", CellLabel->"In[36]:=", CellID->36209184], Cell[BoxData["8308"], "Output", CellLabel->"Out[36]=", CellID->20719183] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->104018528], Cell[TextData[{ "Retrieve the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceFunction", "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/ResourceFunction"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellID->414311205], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellID->246148110], Cell[BoxData[ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False]], "Output", CellID->18784672] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell[TextData[{ "Retrieve the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ResourceObject", "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/ResourceObject"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellID->43692690], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellID->32639829], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV +gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2 s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q 1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6 pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/ vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg 9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/ xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3 6f4CgLLCWA== "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> RGBColor], AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"LocalEvaluate\"", "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Function\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Synchronously evaluate an expression in a separate \ kernel.\"", "SummaryItem"]}], "\[SpanFromLeft]"}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV +gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2 s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q 1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6 pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/ vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg 9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/ xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3 6f4CgLLCWA== "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> RGBColor], AspectRatio -> 1, Axes -> False, Background -> None, Frame -> None, FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"LocalEvaluate\"", "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Function\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Synchronously evaluate an expression in a separate \ kernel.\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Keywords: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"local submit\"", "\"kernel\"", "\"session\"", "\"initialization\""}, "RowWithSeparators"], Short], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"LocalEvaluate\"", "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Version: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}], ""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[{ "Name" -> "LocalEvaluate", "UUID" -> "LocalEvaluate", "ResourceType" -> "Function", "Description" -> "Synchronously evaluate an expression in a separate kernel.", "SymbolName" -> "FunctionRepository`$09e2c9ab95b544b7af542643630c91e2`LocalEvaluate", "Function" -> HoldComplete[ FunctionRepository`$09e2c9ab95b544b7af542643630c91e2`LocalEvaluate], "FunctionLocation" -> None, "VerificationTests" -> HoldComplete[], "ShortName" -> "LocalEvaluate"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellID->812704137] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell["\<\ Supply a head to be applied to the results of a local evaluation:\ \>", "Text", CellID->184801260], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"25", "!"}], ",", "wrapper"}], "]"}]], "Input", CellLabel->"In[37]:=", CellID->745567625], Cell[BoxData[ RowBox[{"wrapper", "[", "15511210043330985984000000", "]"}]], "Output", CellLabel->"Out[37]=", CellID->1867142] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->31717434], Cell[CellGroupData[{ Cell["IncludeDefinitions", "Subsubsection", CellID->7989012], Cell["By default, definitions are included:", "Text", CellID->122848377], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"f", "[", "5", "]"}], ",", "Hold"}], "]"}]}], "Input", CellLabel->"In[38]:=", CellID->59121955], Cell[BoxData[ RowBox[{"Hold", "[", "6", "]"}]], "Output", CellLabel->"Out[39]=", CellID->10307143] }, Open ]], Cell["Do not include any definitions in the evaluation:", "Text", CellChangeTimes->{{3.7671065082696886`*^9, 3.7671065110355697`*^9}}, CellID->395109722], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"f", "[", "5", "]"}], ",", "Hold", ",", RowBox[{"IncludeDefinitions", "\[Rule]", "False"}]}], "]"}]], "Input", CellLabel->"In[40]:=", CellID->811711512], Cell[BoxData[ RowBox[{"Hold", "[", RowBox[{"f", "[", "5", "]"}], "]"}]], "Output", CellLabel->"Out[40]=", CellID->475166834] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Initialization", "Subsubsection", CellID->16779765], Cell["Specify an initialization that should evaluate first:", "Text", CellID->291497167], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"g", "[", "5", "]"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", RowBox[{"(", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"2", "x"}]}], ")"}]}]}], "]"}]], "Input", CellLabel->"In[41]:=", CellID->120977555], Cell[BoxData["10"], "Output", CellLabel->"Out[41]=", CellID->285029304] }, Open ]], Cell["\<\ The initialization only runs on the other kernel; the current kernel is not \ affected:\ \>", "Text", CellChangeTimes->{3.7671065361378627`*^9}, CellID->269648485], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g", "[", "5", "]"}]], "Input", CellLabel->"In[42]:=", CellID->2388023], Cell[BoxData[ RowBox[{"g", "[", "5", "]"}]], "Output", CellLabel->"Out[42]=", CellID->53122016] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "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/Automatic"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Initialization", "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/Initialization"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " is equivalent to using ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Get", "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/Get"], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ TagBox[ ButtonBox[ StyleBox["FindFile", "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/FindFile"], MouseAppearanceTag["LinkHand"]], "[", "\"\\"", "]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellID->76759417], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Put", "[", RowBox[{ RowBox[{"Unevaluated", "[", RowBox[{ RowBox[{"h", "[", "x_", "]"}], ":=", RowBox[{"x", "!"}]}], "]"}], ",", RowBox[{"FindFile", "[", "\"\\"", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"FilePrint", "[", RowBox[{"FindFile", "[", "\"\\"", "]"}], "]"}]}], "Input", CellLabel->"In[43]:=", CellID->422587777], Cell["h[x_] := x!", "Print", CellLabel->"During evaluation of In[43]:=", CellID->214944913] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"h", "[", "25", "]"}], ",", RowBox[{"Initialization", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellID->214907040], Cell[BoxData["15511210043330985984000000"], "Output", CellLabel->"Out[45]=", CellID->425287242] }, Open ]], Cell[TextData[{ "The symbol ", Cell[BoxData[ StyleBox["h", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " is undefined otherwise:" }], "Text", CellChangeTimes->{{3.7671065506196356`*^9, 3.7671065506196356`*^9}}, CellID->409499419], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{"h", "[", "25", "]"}], "]"}]], "Input", CellID->753835532], Cell[BoxData[ RowBox[{"h", "[", "25", "]"}]], "Output", CellLabel->"Out[46]=", CellID->161809121] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->143796120], Cell["\<\ Discover symbols in a package without loading it in the current kernel:\ \>", "Text", CellID->370272829], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";", " ", RowBox[{"Names", "[", "\"\\"", "]"}]}], "]"}]], "Input", CellLabel->"In[47]:=", CellID->35922837], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Arithmetic\"\>", ",", "\<\"ComputerNumber\"\>", ",", "\<\"ExponentRange\"\>", ",", "\<\"IdealDivide\"\>", ",", "\<\"IdealDivision\"\>", ",", "\<\"MachineError\"\>", ",", "\<\"MicroscopePlot\"\>", ",", "\<\"MicroscopicErrorPlot\"\>", ",", "\<\"MixedMode\"\>", ",", "\<\"NaN\"\>", ",", "\<\"RoundingRule\"\>", ",", "\<\"RoundToEven\"\>", ",", "\<\"RoundToInfinity\"\>", ",", "\<\"SetArithmetic\"\>", ",", "\<\"Truncation\"\>", ",", "\<\"Ulp\"\>", ",", "\<\"Ulps\"\>"}], "}"}]], "Output", CellLabel->"Out[47]=", CellID->27665483] }, Open ]], Cell["The current kernel is unaffected:", "Text", CellID->560547702], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Names", "[", "\"\\"", "]"}]], "Input", CellLabel->"In[48]:=", CellID->12082323], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellLabel->"Out[48]=", CellID->89175871] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell["\<\ Check how many symbols have been created in your current session that are not \ created by default:\ \>", "Text", CellChangeTimes->{{3.767106573928715*^9, 3.7671065761776934`*^9}}, CellID->483785124], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "@", RowBox[{"Complement", "[", RowBox[{ RowBox[{"Names", "[", "]"}], ",", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"Names", "[", "]"}], ",", RowBox[{"Initialization", "\[Rule]", "Automatic"}]}], "]"}]}], "]"}]}]], "Input", CellLabel->"In[56]:=", CellID->62435508], Cell[BoxData["23247"], "Output", CellLabel->"Out[56]=", CellID->162811970] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell["Manipulate notebooks with a hidden front end:", "Text", CellID->246674643], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{"UsingFrontEnd", "@", RowBox[{"NotebookGet", "@", RowBox[{"NotebookPut", "@", RowBox[{"Notebook", "[", RowBox[{"{", RowBox[{ RowBox[{"Cell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"Cell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "}"}], "]"}]}]}]}], "]"}]], "Input", CellLabel->"In[54]:=", CellID->565602310], Cell[BoxData[ RowBox[{"Notebook", "[", RowBox[{ RowBox[{"{", RowBox[{"Cell", "[", RowBox[{"CellGroupData", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cell", "[", RowBox[{"\<\"Testing\"\>", ",", "\<\"Section\"\>"}], "]"}], ",", RowBox[{"Cell", "[", RowBox[{"\<\"Hello world\"\>", ",", "\<\"Text\"\>"}], "]"}]}], "}"}], ",", "Open"}], "]"}], "]"}], "}"}], ",", RowBox[{"WindowSize", "\[Rule]", RowBox[{"{", RowBox[{"748", ",", "802"}], "}"}]}], ",", RowBox[{"WindowMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1533", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"Automatic", ",", "565"}], "}"}]}], "}"}]}], ",", RowBox[{ "FrontEndVersion", "\[Rule]", "\<\"11.3 for Microsoft Windows (64-bit) (February 25, 2018)\"\ \>"}], ",", RowBox[{"StyleDefinitions", "\[Rule]", "\<\"Default.nb\"\>"}]}], "]"}]], "Output", CellLabel->"Out[54]=", CellID->91165433] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->354127369], Cell[TextData[{ "Each evaluation of ", Cell[BoxData[ StyleBox["LocalEvaluate", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " runs in a new kernel:" }], "Text", CellID->9894768], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{"{", RowBox[{"$ProcessID", ",", RowBox[{"SessionTime", "[", "]"}]}], "}"}], "]"}]], "Input", CellLabel->"In[69]:=", CellID->452942621], Cell[BoxData[ RowBox[{"{", RowBox[{"7264", ",", "1.4979584`7.627044746177638"}], "}"}]], "Output", CellLabel->"Out[69]=", CellID->188984957] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{"{", RowBox[{"$ProcessID", ",", RowBox[{"SessionTime", "[", "]"}]}], "}"}], "]"}]], "Input", CellLabel->"In[70]:=", CellID->2799784], Cell[BoxData[ RowBox[{"{", RowBox[{"9636", ",", "1.4999678`7.6276269295967065"}], "}"}]], "Output", CellLabel->"Out[70]=", CellID->942201765] }, Open ]], Cell["Compare to the current kernel:", "Text", CellID->543582174], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"$ProcessID", ",", RowBox[{"SessionTime", "[", "]"}]}], "}"}]], "Input", CellLabel->"In[71]:=", CellID->474299206], Cell[BoxData[ RowBox[{"{", RowBox[{"8308", ",", "2212.9552699`10.796517629189191"}], "}"}]], "Output", CellLabel->"Out[71]=", CellID->496694128] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell[TextData[{ "Similar behavior to ", Cell[BoxData[ StyleBox["LocalEvaluate", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " can be obtained by using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["TaskWait", "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/TaskWait"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["LocalSubmit", "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/LocalSubmit"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellID->373636775], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"TaskWait", "@", RowBox[{"LocalSubmit", "[", RowBox[{ RowBox[{"SessionTime", "[", "]"}], ",", RowBox[{"HandlerFunctions", "\[Rule]", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"$result", "=", "#EvaluationResult"}], ")"}], "&"}], ")"}]}], "|>"}]}]}], "]"}]}], ";"}], "\n", "$result", "\[IndentingNewLine]"}], "Input", CellLabel->"In[67]:=", CellID->273536516], Cell[BoxData["1.5299735`7.6362289021544605"], "Output", CellLabel->"Out[68]=", CellID->644293317] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->197934166], Cell["\<\ Messages that are issued from the other kernel are not printed in the current \ session:\ \>", "Text", CellChangeTimes->{{3.767106605894722*^9, 3.767106607511175*^9}}, CellID->24801351], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", "Hold"}], "]"}]], "Input", CellLabel->"In[60]:=", CellID->67420422], Cell[BoxData[ RowBox[{"Hold", "[", RowBox[{"First", "[", "1", "]"}], "]"}]], "Output", CellLabel->"Out[60]=", CellID->18296466] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HandlerFunctions", "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/HandlerFunctions"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " to handle messages:" }], "Text", CellID->27875258], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[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->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LocalEvaluate\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LocalEvaluate\""}], ResourceFunction["LocalEvaluate"], Selectable->False], "[", RowBox[{ RowBox[{"First", "[", "1", "]"}], ",", "Hold", ",", RowBox[{"HandlerFunctions", "\[Rule]", RowBox[{"<|", RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Message", "[", "#MessageOutput", "]"}], "&"}], ")"}]}], "|>"}]}]}], "]"}]], "Input", CellID->417741014], Cell[BoxData[ TemplateBox[{ "First","normal", "\"Nonatomic expression expected at position \ \\!\\(\\*RowBox[{\\\"1\\\"}]\\) in \\!\\(\\*RowBox[{\\\"First\\\", \\\"[\\\", \ \\\"1\\\", \\\"]\\\"}]\\).\"",2,62,7,27847861782003799994,"Local"}, "MessageTemplate"]], "Message", "MSG", CellLabel->"During evaluation of In[62]:=", CellID->6021914], Cell[BoxData[ RowBox[{"Hold", "[", RowBox[{"First", "[", "1", "]"}], "]"}]], "Output", CellLabel->"Out[62]=", CellID->283059847] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb", $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"f31c992b-7047-4ad6-9509-2204412fd2be", CellID->158089505], Cell[639, 25, 72, 1, 70, "Text",ExpressionUUID->"ab1b082d-0fd1-45de-a392-e80605896137", CellID->905853], Cell[CellGroupData[{ Cell[736, 30, 1819, 45, 70, "Input",ExpressionUUID->"051e38d6-5428-4005-9dc4-17abf2017f7a", CellID->832983247], Cell[2558, 77, 76, 2, 70, "Output",ExpressionUUID->"3aaf6dbc-049b-4c0c-aa68-c3cebf93f6ab", CellID->565081696] }, Open ]], Cell[2649, 82, 66, 1, 70, "Text",ExpressionUUID->"e17637b8-fe8a-4d5b-8635-6351e140537d", CellID->33561463], Cell[CellGroupData[{ Cell[2740, 87, 79, 2, 70, "Input",ExpressionUUID->"a4bcc4b8-443f-45ee-9f2f-cd7b3049e3b4", CellID->36209184], Cell[2822, 91, 74, 2, 70, "Output",ExpressionUUID->"eac993d6-805d-4c11-9313-637f5ea999a3", CellID->20719183] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2945, 99, 47, 1, 70, "Subsection",ExpressionUUID->"b41e7619-64bb-4067-8a38-c913af070a10", CellID->104018528], Cell[2995, 102, 577, 19, 70, "Text",ExpressionUUID->"ec85b490-156d-4e4a-a46f-e4fd9aff37d6", CellID->414311205], Cell[CellGroupData[{ Cell[3597, 125, 157, 4, 70, "Input",ExpressionUUID->"9fcb787e-d9e4-42f2-9866-87621d0bab1f", CellID->246148110], Cell[3757, 131, 1717, 43, 70, "Output",ExpressionUUID->"09db07d5-6a5e-42a7-a375-716525d05090", CellID->18784672] }, Open ]], Cell[5489, 177, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"d979013e-a493-4984-b598-405a48d419b9"], Cell[5597, 181, 572, 19, 70, "Text",ExpressionUUID->"3e1b8255-211a-4790-892d-049e29fbac98", CellID->43692690], Cell[CellGroupData[{ Cell[6194, 204, 106, 2, 70, "Input",ExpressionUUID->"e33258f7-88a3-4c34-9eec-fa31ccc6c09f", CellID->32639829], Cell[6303, 208, 8864, 176, 70, "Output",ExpressionUUID->"6f4886be-a574-448b-aa67-121c7be6ef55", CellID->812704137] }, Open ]], Cell[15182, 387, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"0c7b1c07-cc98-4f59-9876-cee242532874"], Cell[15290, 391, 109, 3, 70, "Text",ExpressionUUID->"15010baa-51b4-4083-ab3c-f9f9b51a7b24", CellID->184801260], Cell[CellGroupData[{ Cell[15424, 398, 1859, 47, 70, "Input",ExpressionUUID->"925eabd5-125d-4bab-966e-afa3052e02d2", CellID->745567625], Cell[17286, 447, 128, 3, 70, "Output",ExpressionUUID->"08a57643-d061-4666-947f-cfb060820c9a", CellID->1867142] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17463, 456, 48, 1, 70, "Subsection",ExpressionUUID->"b0b35683-c513-4c43-ab8d-b5e5d8d0716a", CellID->31717434], Cell[CellGroupData[{ Cell[17536, 461, 61, 1, 70, "Subsubsection",ExpressionUUID->"1a7c2ec8-209c-413c-ab5c-d5e6777db0a1", CellID->7989012], Cell[17600, 464, 73, 1, 70, "Text",ExpressionUUID->"76aee475-0f27-4e02-bf75-d15f0196f52a", CellID->122848377], Cell[CellGroupData[{ Cell[17698, 469, 1989, 51, 70, "Input",ExpressionUUID->"214ad555-f743-4f63-986b-7dbd75932147", CellID->59121955], Cell[19690, 522, 101, 3, 70, "Output",ExpressionUUID->"d691dd37-d9cf-4081-87f9-b0e11fa0da7e", CellID->10307143] }, Open ]], Cell[19806, 528, 155, 2, 70, "Text",ExpressionUUID->"df08f0a3-012f-49f4-ac3f-fa28340b3266", CellID->395109722], Cell[CellGroupData[{ Cell[19986, 534, 1926, 48, 70, "Input",ExpressionUUID->"abfccea5-7c46-4a8a-b0a5-e2db4f53e005", CellID->811711512], Cell[21915, 584, 130, 4, 70, "Output",ExpressionUUID->"e8ed4c29-9a04-4f89-8e1c-6ba050de7b01", CellID->475166834] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22094, 594, 58, 1, 70, "Subsubsection",ExpressionUUID->"42e4ec63-a2c7-4ca4-b438-697126b11c37", CellID->16779765], Cell[22155, 597, 89, 1, 70, "Text",ExpressionUUID->"62243287-e663-42fd-af55-05bf9ffe8749", CellID->291497167], Cell[CellGroupData[{ Cell[22269, 602, 2019, 52, 70, "Input",ExpressionUUID->"40917ad6-6aad-4b3d-9125-36d7a4e41bc4", CellID->120977555], Cell[24291, 656, 73, 2, 70, "Output",ExpressionUUID->"611bfb23-0335-4ad8-b9f5-27e2c94f2e57", CellID->285029304] }, Open ]], Cell[24379, 661, 175, 5, 70, "Text",ExpressionUUID->"d7c16214-9a03-44ff-a79b-b53d2ad92bf5", CellID->269648485], Cell[CellGroupData[{ Cell[24579, 670, 96, 3, 70, "Input",ExpressionUUID->"6b53ba03-a79f-4d1b-9540-483dd14bbc6e", CellID->2388023], Cell[24678, 675, 98, 3, 70, "Output",ExpressionUUID->"1028f199-7694-4c8c-9701-320dcda53c96", CellID->53122016] }, Open ]], Cell[24791, 681, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"5ae8d032-481a-4f5f-a82b-db68dcb38f91"], Cell[24899, 685, 2065, 66, 70, "Text",ExpressionUUID->"adb329af-0529-4180-9805-ac822192cb3a", CellID->76759417], Cell[CellGroupData[{ Cell[26989, 755, 430, 13, 70, "Input",ExpressionUUID->"d4a5ef4a-985a-4536-bfca-406689c5ecc4", CellID->422587777], Cell[27422, 770, 93, 2, 70, "Print",ExpressionUUID->"d7faf839-1cf4-4ffa-9ed5-b747bdb0997b", CellID->214944913] }, Open ]], Cell[CellGroupData[{ Cell[27552, 777, 1890, 47, 70, "Input",ExpressionUUID->"8ac1c458-3f8f-4e8e-bd4c-49ecd6f060e0", CellID->214907040], Cell[29445, 826, 97, 2, 70, "Output",ExpressionUUID->"14b98d7b-103f-45ec-aa00-ce39873182a6", CellID->425287242] }, Open ]], Cell[29557, 831, 293, 9, 70, "Text",ExpressionUUID->"fa752022-a533-40e8-9a53-c3f0fb6be0f3", CellID->409499419], Cell[CellGroupData[{ Cell[29875, 844, 1815, 45, 70, "Input",ExpressionUUID->"3dcf1d66-5630-41c0-9daa-2ba88b4eabca", CellID->753835532], Cell[31693, 891, 100, 3, 70, "Output",ExpressionUUID->"c941d01f-1415-42aa-9e9e-ce3b8c0fbb4f", CellID->161809121] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31854, 901, 54, 1, 70, "Subsection",ExpressionUUID->"30a6d12d-9f33-41b2-a8c5-5249a8921d30", CellID->143796120], Cell[31911, 904, 115, 3, 70, "Text",ExpressionUUID->"efba178e-19a6-4533-983e-0d4f3b0a84b3", CellID->370272829], Cell[CellGroupData[{ Cell[32051, 911, 1959, 49, 70, "Input",ExpressionUUID->"a4674e76-3af3-42c2-8770-67025fc3ae35", CellID->35922837], Cell[34013, 962, 600, 11, 70, "Output",ExpressionUUID->"5e388a07-4346-422a-9fde-5e482110528a", CellID->27665483] }, Open ]], Cell[34628, 976, 69, 1, 70, "Text",ExpressionUUID->"b897d0bc-724b-4759-acbd-07acf1eea9f7", CellID->560547702], Cell[CellGroupData[{ Cell[34722, 981, 128, 3, 70, "Input",ExpressionUUID->"8430fc01-cf5f-465d-a2bd-92e78be45c24", CellID->12082323], Cell[34853, 986, 88, 3, 70, "Output",ExpressionUUID->"c554e051-a651-4ea6-b221-bb839d0986c4", CellID->89175871] }, Open ]], Cell[34956, 992, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"09cd71af-0229-40e4-a8b6-c906abc5ce57"], Cell[35064, 996, 211, 5, 70, "Text",ExpressionUUID->"73813453-8ee1-4c8a-83f8-0857a829a91a", CellID->483785124], Cell[CellGroupData[{ Cell[35300, 1005, 2185, 54, 70, "Input",ExpressionUUID->"157e0022-0f37-4ea5-af18-16588cc85193", CellID->62435508], Cell[37488, 1061, 76, 2, 70, "Output",ExpressionUUID->"ca900ad2-dff9-4fff-bb8e-e8c5e647d712", CellID->162811970] }, Open ]], Cell[37579, 1066, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"1b68c065-fcb7-4eb6-8cfc-03c5e458382e"], Cell[37687, 1070, 81, 1, 70, "Text",ExpressionUUID->"47afdae5-866b-46b1-8139-f96374886c1a", CellID->246674643], Cell[CellGroupData[{ Cell[37793, 1075, 2205, 56, 70, "Input",ExpressionUUID->"6010bfd4-d880-462f-8547-cfbf543ad4cc", CellID->565602310], Cell[40001, 1133, 1049, 31, 70, "Output",ExpressionUUID->"cf5b5d8b-8ac7-473e-9e2f-2892830b37ec", CellID->91165433] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41099, 1170, 66, 1, 70, "Subsection",ExpressionUUID->"115565c2-7437-43ca-b8a8-7ddb3b838c85", CellID->354127369], Cell[41168, 1173, 259, 8, 70, "Text",ExpressionUUID->"25d4a8dd-72e9-4d7e-b6dc-f53c6cc5a277", CellID->9894768], Cell[CellGroupData[{ Cell[41452, 1185, 1901, 48, 70, "Input",ExpressionUUID->"cfe4119e-2371-43be-9ae4-21f876c9b400", CellID->452942621], Cell[43356, 1235, 146, 4, 70, "Output",ExpressionUUID->"58e860d2-5cf4-47cd-9883-c0bf704365a2", CellID->188984957] }, Open ]], Cell[CellGroupData[{ Cell[43539, 1244, 1899, 48, 70, "Input",ExpressionUUID->"5d319f79-03fa-4612-a147-3f03b80e736f", CellID->2799784], Cell[45441, 1294, 147, 4, 70, "Output",ExpressionUUID->"5a921de9-7e07-41f8-bc42-7aae6f5b97f8", CellID->942201765] }, Open ]], Cell[45603, 1301, 66, 1, 70, "Text",ExpressionUUID->"0a1bfe1c-61b9-4c3d-939a-67ced6f74932", CellID->543582174], Cell[CellGroupData[{ Cell[45694, 1306, 159, 5, 70, "Input",ExpressionUUID->"2d6f2819-319f-4453-8f3a-21970c1e0d43", CellID->474299206], Cell[45856, 1313, 150, 4, 70, "Output",ExpressionUUID->"71d3a65c-8ce9-46ce-a0a1-5d882876e1ce", CellID->496694128] }, Open ]], Cell[46021, 1320, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"137de91c-0798-4ca4-8283-7a21a66201ac"], Cell[46129, 1324, 1271, 40, 70, "Text",ExpressionUUID->"e281d402-23be-4f34-b99e-635f07ca4384", CellID->373636775], Cell[CellGroupData[{ Cell[47425, 1368, 541, 16, 70, "Input",ExpressionUUID->"129badf9-1bb9-4247-88c4-d191e4bb541a", CellID->273536516], Cell[47969, 1386, 99, 2, 70, "Output",ExpressionUUID->"176337e9-57fe-43d1-a2a9-310f3cf8c371", CellID->644293317] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48117, 1394, 57, 1, 70, "Subsection",ExpressionUUID->"8c955081-93d3-4e7e-907d-635ad749a84b", CellID->197934166], Cell[48177, 1397, 197, 5, 70, "Text",ExpressionUUID->"58c96b67-ba22-4bd8-8e08-823bf01b81e6", CellID->24801351], Cell[CellGroupData[{ Cell[48399, 1406, 1868, 47, 70, "Input",ExpressionUUID->"2bd24484-a918-4ff4-a501-3c1559def228", CellID->67420422], Cell[50270, 1455, 133, 4, 70, "Output",ExpressionUUID->"6dd922eb-12ec-4794-9a99-1175ebcd2187", CellID->18296466] }, Open ]], Cell[50418, 1462, 586, 19, 70, "Text",ExpressionUUID->"7021bcc5-4c4f-4496-af78-9d27299c0c49", CellID->27875258], Cell[CellGroupData[{ Cell[51029, 1485, 2091, 53, 70, "Input",ExpressionUUID->"4bce78e3-512b-410f-89d2-3185ee001b51", CellID->417741014], Cell[53123, 1540, 350, 8, 70, "Message",ExpressionUUID->"a04fd1ba-c8b7-432a-a98a-21da25c3755f", CellID->6021914], Cell[53476, 1550, 134, 4, 70, "Output",ExpressionUUID->"ec0f61f6-b4a0-42a4-86b4-741221650815", CellID->283059847] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)