(* 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[ 41239, 1104] NotebookOptionsPosition[ 37391, 1007] NotebookOutlinePosition[ 39149, 1059] CellTagsIndexPosition[ 39106, 1056] WindowTitle->EchoEvaluate | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Define a function and apply its echoed version:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7565784129247637`*^9, 3.756578421924076*^9}, { 3.756578546486248*^9, 3.756578557438416*^9}, 3.756578733311549*^9, { 3.758480838597064*^9, 3.758480840405604*^9}}, CellID->48825316], Cell[BoxData[ RowBox[{ RowBox[{"square", "[", "x_", "]"}], ":=", SuperscriptBox["x", "2"]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.756578424134171*^9, 3.756578453444682*^9}}, CellLabel->"In[201]:=", CellID->1347447872], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EchoEvaluate", "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["EchoEvaluate", "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/EchoEvaluate"}, "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], "EchoEvaluate"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EchoEvaluate"], BoxID -> "EchoEvaluate", Selectable->False], "[", "square", "]"}], "[", "2", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.756578197214694*^9, 3.756578205477572*^9}, { 3.756578486722487*^9, 3.756578495689039*^9}, 3.7584784358616667`*^9}, CellLabel->"In[202]:=", CellID->1361223226], Cell[BoxData[ RowBox[{ RowBox[{ TagBox[ TagBox[ StyleBox[ TagBox["square", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPSmNkYGAoZgMRhaWJRamZTEAmAEWUBSE=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], "[", TagBox[ TagBox[ StyleBox[ TagBox["2", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPymRiYGAAAAtMAbA=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], "]"}], " ", StyleBox["\[Function]", FontWeight->Bold, FontColor->RGBColor[1, 0.5, 0], $CellContext`LineColor -> RGBColor[1, 0.5, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0.5, 0], $CellContext`GraphicsColor -> RGBColor[1, 0.5, 0], $CellContext`BackFaceColor -> RGBColor[1, 0.5, 0]], " ", FrameBox[ TagBox[ TagBox[ StyleBox[ TagBox["4", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPymRhYGAAAAtUAbI=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], Background->RGBColor[1., 0.95, 0.95], BaselinePosition->Baseline, FrameMargins->Small, FrameStyle->None]}]], "Echo", CellMargins->{{Inherited, Inherited}, {Inherited, Inherited}}, TaggingRules->{}, CellChangeTimes->{3.7584785136185837`*^9}, ShowStringCharacters->True, CellID->1708621011], Cell[BoxData["4"], "Output", TaggingRules->{}, CellChangeTimes->{3.756578205858671*^9, 3.756578496212674*^9, 3.7584785136902*^9}, CellLabel->"Out[202]=", CellID->642004193] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellChangeTimes->{{3.756062499333519*^9, 3.756062500909301*^9}}, CellID->964056545], Cell["Use an echoed function defined as a symbol:", "Text", TaggingRules->{}, CellChangeTimes->{{3.756579615187605*^9, 3.756579643521996*^9}, { 3.7565797822451677`*^9, 3.756579785468092*^9}, {3.758480844440153*^9, 3.758480847560664*^9}}, CellID->843787103], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "___"}], "]"}], ":=", "x"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7565796841858387`*^9, 3.756579732758486*^9}}, CellLabel->"In[203]:=", CellID->2060832738], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EchoEvaluate", "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["EchoEvaluate", "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/EchoEvaluate"}, "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], "EchoEvaluate"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EchoEvaluate"], BoxID -> "EchoEvaluate", Selectable->False], "[", "f", "]"}], "[", RowBox[{"1", ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.756579645603702*^9, 3.756579659657321*^9}, { 3.756579740946254*^9, 3.756579746422223*^9}, 3.7584784372940598`*^9}, CellLabel->"In[204]:=", CellID->1774527344], Cell[BoxData[ RowBox[{ RowBox[{ TagBox[ TagBox[ StyleBox[ TagBox["f", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPSmNiYGAoZgQSaZkgMhPEBwA35gNc", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], "[", RowBox[{ TagBox[ TagBox[ StyleBox[ TagBox["1", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPymRkYGAAAAtIAa8=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], ",", TagBox[ TagBox[ StyleBox[ TagBox["2", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPymRiYGAAAAtMAbA=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]]}], "]"}], " ", StyleBox["\[Function]", FontWeight->Bold, FontColor->RGBColor[1, 0.5, 0], $CellContext`LineColor -> RGBColor[1, 0.5, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0.5, 0], $CellContext`GraphicsColor -> RGBColor[1, 0.5, 0], $CellContext`BackFaceColor -> RGBColor[1, 0.5, 0]], " ", FrameBox[ TagBox[ TagBox[ StyleBox[ TagBox["1", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPymRkYGAAAAtIAa8=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], Background->RGBColor[1., 0.95, 0.95], BaselinePosition->Baseline, FrameMargins->Small, FrameStyle->None]}]], "Echo", CellMargins->{{Inherited, Inherited}, {Inherited, Inherited}}, TaggingRules->{}, CellChangeTimes->{3.758478518663649*^9}, ShowStringCharacters->True, CellID->1749893365], Cell[BoxData["1"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.756579661040084*^9, {3.7565797363162327`*^9, 3.7565797470753508`*^9}, 3.758478518739153*^9}, CellLabel->"Out[204]=", CellID->669239890] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->191787714], Cell["Echo and evaluate a pure function:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7565798042755127`*^9, 3.756579811083563*^9}, { 3.758480852471508*^9, 3.758480865942054*^9}}, CellID->49899157], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EchoEvaluate", "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["EchoEvaluate", "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/EchoEvaluate"}, "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], "EchoEvaluate"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EchoEvaluate"], BoxID -> "EchoEvaluate", Selectable->False], "[", RowBox[{ RowBox[{"#", "^", "2"}], "&"}], "]"}], "[", "2", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.756579110811584*^9, 3.7565791710611277`*^9}, 3.758478438549403*^9}, CellLabel->"In[205]:=", CellID->815866844], Cell[BoxData[ RowBox[{ RowBox[{ TagBox[ TagBox[ StyleBox[ TagBox[ RowBox[{ RowBox[{"#1", "^", "2"}], "&"}], Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPSmNkYGAAE8UcQMKtNC+5JDM/\ L40JJMIKJALyy1OLIApYgERwTn5JJoiXyQQjAOqsDIE=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], "[", TagBox[ TagBox[ StyleBox[ TagBox["2", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPymRiYGAAAAtMAbA=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], "]"}], " ", StyleBox["\[Function]", FontWeight->Bold, FontColor->RGBColor[1, 0.5, 0], $CellContext`LineColor -> RGBColor[1, 0.5, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0.5, 0], $CellContext`GraphicsColor -> RGBColor[1, 0.5, 0], $CellContext`BackFaceColor -> RGBColor[1, 0.5, 0]], " ", FrameBox[ TagBox[ TagBox[ StyleBox[ TagBox["4", Short], "Input", FontWeight->"Plain"], MouseAppearanceTag["LinkHand"]], EventHandlerTag[{ "MouseClicked" :> GeneralUtilities`PackageScope`CellPrintAuxiliary[ Cell[ ReplaceAll[ ReplaceAll[ ReplaceAll[ BoxData[ Uncompress[ "1:eJxTTMoPymRhYGAAAAtUAbI=", GeneralUtilities`PrettyFormBoxes]], { FunctionResource`Private`$$functionPatt$153923 -> FunctionResource`Private`functionOutBoxes$153923}], { FunctionResource`Private`$$functionPatt$154070 -> FunctionResource`Private`functionOutBoxes$154070}], { FunctionResource`Private`$$functionPatt$132688 -> FunctionResource`Private`functionOutBoxes$132688}], "Input"]], PassEventsUp -> False, PassEventsDown -> True}]], Background->RGBColor[1., 0.95, 0.95], BaselinePosition->Baseline, FrameMargins->Small, FrameStyle->None]}]], "Echo", CellMargins->{{Inherited, Inherited}, {Inherited, Inherited}}, TaggingRules->{}, CellChangeTimes->{3.758478521608577*^9}, ShowStringCharacters->True, CellID->1523035336], Cell[BoxData["4"], "Output", TaggingRules->{}, CellChangeTimes->{{3.75657914942283*^9, 3.7565791720716877`*^9}, 3.756579815151971*^9, 3.7584785216361227`*^9}, CellLabel->"Out[205]=", CellID->1797303559] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"EchoEvaluate | 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[625, 23, 168, 7, 70, "Subsection",ExpressionUUID->"e027de01-471a-4293-8b23-d355a52912b4", CellID->462042388], Cell[796, 32, 291, 5, 70, "Text",ExpressionUUID->"f6f8f5a3-8ca4-4335-ac39-f580b2f78dc9", CellID->48825316], Cell[1090, 39, 239, 7, 70, "Input",ExpressionUUID->"125580f2-2e1a-4e82-8969-b689c5cf49fc", CellID->1347447872], Cell[CellGroupData[{ Cell[1354, 50, 7451, 184, 70, "Input",ExpressionUUID->"d91f3493-ed6c-4af0-9e01-14d0a8ff5a26", CellID->1361223226], Cell[8808, 236, 3433, 91, 70, "Echo",ExpressionUUID->"31451ff4-178e-4c7b-8565-ae794394263f", CellID->1708621011], Cell[12244, 329, 179, 5, 70, "Output",ExpressionUUID->"b9e07029-9e72-4e55-8ed6-4f8b5491e3d2", CellID->642004193] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12472, 340, 225, 8, 70, "Subsection",ExpressionUUID->"8e34e47c-40a0-4135-ba23-14384aec81c8", CellID->964056545], Cell[12700, 350, 264, 5, 70, "Text",ExpressionUUID->"ffee5751-4e07-474b-8dfd-e0967964a984", CellID->843787103], Cell[12967, 357, 238, 7, 70, "Input",ExpressionUUID->"932c0c23-ffd5-4457-88f8-6334b8489035", CellID->2060832738], Cell[CellGroupData[{ Cell[13230, 368, 7469, 185, 70, "Input",ExpressionUUID->"673db8a7-7782-4c4c-994b-66e174ac0ae4", CellID->1774527344], Cell[20702, 555, 4403, 116, 70, "Echo",ExpressionUUID->"abc29339-cedf-48c8-b465-902c6b0733b9", CellID->1749893365], Cell[25108, 673, 213, 6, 70, "Output",ExpressionUUID->"9e163d4b-b083-4f8d-8e5d-8fbeb84a59bf", CellID->669239890] }, Open ]], Cell[CellGroupData[{ Cell[25358, 684, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"7f175ad6-0555-4ec8-ac9c-9eb0cfaab865", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->191787714], Cell[25945, 705, 205, 4, 70, "Text",ExpressionUUID->"26eb7ded-d2d2-491c-b9ad-387a4563687e", CellID->49899157], Cell[CellGroupData[{ Cell[26175, 713, 7443, 186, 70, "Input",ExpressionUUID->"3a8c74bb-a60d-4cb6-949d-7ce7d918ed9a", CellID->815866844], Cell[33621, 901, 3517, 94, 70, "Echo",ExpressionUUID->"f3a98432-3032-4554-b6ef-5bae9124b7e7", CellID->1523035336], Cell[37141, 997, 210, 5, 70, "Output",ExpressionUUID->"955e9395-984f-46ce-b091-4ee3a107b37f", CellID->1797303559] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)