(* 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[ 62500, 1585] NotebookOptionsPosition[ 57212, 1454] NotebookOutlinePosition[ 58973, 1506] CellTagsIndexPosition[ 58930, 1503] WindowTitle->CopyDefinitions | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->1924925011], Cell["Use the function:", "Text", TaggingRules->{}, CellID->324803753], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "+", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CopyDefinitions", "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["CopyDefinitions", "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/CopyDefinitions"}, "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], "CopyDefinitions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CopyDefinitions"], BoxID -> "CopyDefinitions", Selectable->False], "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Definition", "[", "g", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.74767120073767*^9}, CellID->373517822], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"x", "+", "1"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Null, Editable->False]], "Output", TaggingRules->{}, CellID->168221352] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->619334173], 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", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellID->374931346], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7476711944726696`*^9}, CellID->296208602], Cell[BoxData[ 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["CopyDefinitions", "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., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, 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["CopyDefinitions", "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/CopyDefinitions"}, "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], "CopyDefinitions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CopyDefinitions"], BoxID -> "CopyDefinitions", Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.7476711984516697`*^9}, CellLabel->"Out[43]=", CellID->510880068] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->2094955462], 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", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellID->2121127], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7476712107476697`*^9}, CellLabel->"In[34]:=", CellID->721682170], 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 -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"\"CopyDefinitions\"", "\" \"", TemplateBox[{ "\"\[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CopyDefinitions"}, "HyperlinkURL"]}, "RowDefault"], "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Function\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Copy the definitions of one symbol to another\"", "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 -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], GridBox[{{ RowBox[{ TagBox["\"Name: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"\"CopyDefinitions\"", "\" \"", TemplateBox[{ "\"\[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CopyDefinitions"}, "HyperlinkURL"]}, "RowDefault"], "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Function\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Copy the definitions of one symbol to another\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Keywords: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"symbols\"", "\"definitions\"", "\"copy\""}, "RowWithSeparators"], Short], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Documentation: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "\"https://resources.wolframcloud.com/FunctionRepository/\ resources/CopyDefinitions\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CopyDefinitions"}, "HyperlinkURL"], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"6938befc-d1f6-4fb7-84f0-57ebf3e08d92\"", "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"Version: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"1.0.0\"", "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[<|"Name" -> InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["CopyDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["CopyDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"1.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CopyDefinitions"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CopyDefinitions"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction["CopyDefinitions"], BoxID -> "CopyDefinitions", Selectable -> False], "UUID" -> "6938befc-d1f6-4fb7-84f0-57ebf3e08d92", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Copy the definitions of one symbol to another", "RepositoryLocation" -> URL["https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], "WolframLanguageVersionRequired" -> "10.0", "SymbolName" -> "FunctionRepository`$8b7d32e122d448dabfeda650d7da3517`CopySymbol", "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/a0362f71-0a38-44d2-b7fb-\ 3c38dd26e1ef"], "ShortName" -> InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["CopyDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ GridBox[{{ PaneBox[ GridBox[{{ AdjustmentBox[ StyleBox[ StyleBox[ StyleBox[ "\"[\[FilledSmallSquare]]\"", FontColor -> RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], "ResourceFunctionIcon"], FontFamily -> "Source Sans Pro Black", FontWeight -> "Heavy", PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontSize -> 0.6538461538461539 Inherited, ShowStringCharacters -> False], BoxBaselineShift -> -0.25, BoxMargins -> {{0, 0}, {-1, -1}}], StyleBox[ RowBox[{ StyleBox["CopyDefinitions", "ResourceFunctionLabel"], " "}], FontColor -> GrayLevel[0.1], FontSize -> Rational[12, 13] Inherited, ShowStringCharacters -> False, ShowAutoStyles -> False]}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> Left, FrameMargins -> {{3, 0}, {0, 0}}, BaselinePosition -> Baseline, BaseStyle -> { LineSpacing -> {0, 0}, LineBreakWithin -> False}], ItemBox[ PaneBox[ TogglerBox[ Dynamic[Typeset`open], {True -> DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "IconizeCloser"]], False -> DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, BaselinePosition -> Baseline, Appearance -> None, ContentPadding -> False, FrameMargins -> 0], Alignment -> Left, FrameMargins -> {{1, 1}, {0, 0}}, BaselinePosition -> Baseline], Frame -> {{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}, BaselinePosition -> {1, 1}]}, { StyleBox[ PaneBox[ GridBox[{{ RowBox[{ TagBox["\"Version (latest): \"", "IconizedLabel"], " ", TagBox["\"1.0.0\"", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/CopyDefinitions"}, "HyperlinkURL"], "IconizedItem"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment -> Left, FrameMargins -> {{5, 4}, {0, 4}}, BaselinePosition -> Baseline], "DialogStyle", FontFamily -> "Roboto", FontSize -> 11]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}]}, Dynamic[Typeset`open], BaselinePosition -> Baseline, ImageSize -> Automatic], BaselinePosition -> Baseline, FrameMargins -> {{0, 0}, {1, 0}}, FrameStyle -> RGBColor[0.8313725490196079, 0.8470588235294118, 0.8509803921568627], Background -> RGBColor[0.9686274509803922, 0.9764705882352941, 0.984313725490196], RoundingRadius -> 4, DefaultBaseStyle -> {}]], { "FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "CopyDefinitions"}, TagBoxNote -> "FunctionResourceBox"], ResourceFunction["CopyDefinitions"], BoxID -> "CopyDefinitions", Selectable -> False]|>, ResourceSystemBase -> "https://www.wolframcloud.com/objects/resourcesystem/api/1.0"], Editable->False, SelectWithContents->True, Selectable->False]], "Output", TaggingRules->{}, CellChangeTimes->{3.7476712124376698`*^9, 3.7476715501156697`*^9, 3.7476731092752137`*^9}, CellLabel->"Out[34]=", CellID->324592934] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Generalizations & Extensions", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->824978358], Cell[TextData[{ "Using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Set", "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/Set", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SetDelayed", "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/SetDelayed", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " can achieve similar behavior:" }], "Text", TaggingRules->{}, CellID->260510227], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_Integer", "?", "Positive"}], "]"}], ":=", RowBox[{ RowBox[{"f", "[", RowBox[{"x", "-", "1"}], "]"}], "*", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "f"}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "i", "]"}], ",", RowBox[{"g", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellID->1256837874], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"120", ",", "120"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellID->58277160] }, Open ]], Cell["However, the new symbol will still be dependent on the old:", "Text", TaggingRules->{}, CellID->223967923], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Definition", "[", "g", "]"}]], "Input", TaggingRules->{}, CellID->1024996426], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{"g", "=", "f"}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Null, Editable->False]], "Output", TaggingRules->{}, CellID->16813876] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"g", "[", "5", "]"}]}], "Input", TaggingRules->{}, CellID->1115548], Cell[BoxData[ RowBox[{"f", "[", "5", "]"}]], "Output", TaggingRules->{}, CellID->31009303] }, Open ]], Cell[TextData[{ Cell[BoxData[ StyleBox["CopyDefinitions", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " will eliminate dependencies on the original:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.759619645292201*^9, 3.759619647196383*^9}}, CellID->3861170], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_Integer", "?", "Positive"}], "]"}], ":=", RowBox[{ RowBox[{"f", "[", RowBox[{"x", "-", "1"}], "]"}], "*", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["CopyDefinitions", "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["CopyDefinitions", "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/CopyDefinitions"}, "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], "CopyDefinitions"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["CopyDefinitions"], BoxID -> "CopyDefinitions", Selectable->False], "[", RowBox[{"f", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "i", "]"}], ",", RowBox[{"g", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{3.74767120571367*^9}, CellID->1569146060], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"120", ",", "120"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellID->19791775] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Definition", "[", "g", "]"}]], "Input", TaggingRules->{}, CellID->1538645260], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"g", "[", "0", "]"}], "=", "1"}]}, {" "}, { RowBox[{ RowBox[{"g", "[", RowBox[{"x_Integer", "?", "Positive"}], "]"}], ":=", RowBox[{ RowBox[{"g", "[", RowBox[{"x", "-", "1"}], "]"}], " ", "x"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Null, Editable->False]], "Output", TaggingRules->{}, CellID->66591526] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"g", "[", "5", "]"}]}], "Input", TaggingRules->{}, CellID->12807646], Cell[BoxData["120"], "Output", TaggingRules->{}, CellID->972581963] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"CopyDefinitions | 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[628, 23, 169, 7, 70, "Subsection",ExpressionUUID->"e2aaf308-e6ad-42fd-a442-514eb0d6e9f5", CellID->1924925011], Cell[800, 32, 72, 2, 70, "Text",ExpressionUUID->"89cef2a5-9543-4cdc-81bb-bb1d544cd325", CellID->324803753], Cell[CellGroupData[{ Cell[897, 38, 7652, 191, 70, "Input",ExpressionUUID->"5cb91a0a-3b05-40a3-b354-42c6f08ec4eb", CellID->373517822], Cell[8552, 231, 748, 23, 70, "Output",ExpressionUUID->"d250dc47-1857-4463-9b76-2669c512c734", CellID->168221352] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9349, 260, 159, 7, 70, "Subsection",ExpressionUUID->"b1c2f739-888d-4aad-8c82-269ef1ce7e1a", CellID->619334173], Cell[9511, 269, 623, 21, 70, "Text",ExpressionUUID->"ddd9e4dc-daf4-4da2-8774-339a1250e9ce", CellID->374931346], Cell[CellGroupData[{ Cell[10159, 294, 174, 4, 70, "Input",ExpressionUUID->"fe351079-3ce3-4ad4-9e3f-1b24fd8aa8b6", CellID->296208602], Cell[10336, 300, 6958, 180, 70, "Output",ExpressionUUID->"50fc7cc9-126f-41f0-87c9-43e90d9725dd", CellID->510880068] }, Open ]], Cell[CellGroupData[{ Cell[17331, 485, 145, 4, 70, "ExampleDelimiter",ExpressionUUID->"eeea4172-4088-4bc5-8c60-1e3a298f7cb7", CellID->2094955462], Cell[17479, 491, 617, 21, 70, "Text",ExpressionUUID->"51de42c5-7a5c-4fa0-8111-b9e2a1eaf451", CellID->2121127], Cell[CellGroupData[{ Cell[18121, 516, 196, 5, 70, "Input",ExpressionUUID->"b4eb5e9d-911b-4dbf-87df-57a15f5b1ca3", CellID->721682170], Cell[18320, 523, 24830, 485, 70, "Output",ExpressionUUID->"77e9d9e5-fdfa-43e0-b025-dc09f279ea1c", CellID->324592934] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[43211, 1015, 182, 7, 70, "Subsection",ExpressionUUID->"d6ff7199-6b62-4f03-bbb4-39847cf550c7", CellID->824978358], Cell[43396, 1024, 1150, 38, 70, "Text",ExpressionUUID->"5f07f882-b22e-4dea-97d0-3c771478c7e8", CellID->260510227], Cell[CellGroupData[{ Cell[44571, 1066, 773, 26, 70, "Input",ExpressionUUID->"72960018-cc70-4a1c-8d6b-806a27c7eef2", CellID->1256837874], Cell[45347, 1094, 392, 14, 70, "Output",ExpressionUUID->"e83a5175-477e-4da5-a3f1-bdde332bff6a", CellID->58277160] }, Open ]], Cell[45754, 1111, 114, 2, 70, "Text",ExpressionUUID->"2b966f49-5b2f-48f3-9a22-b3ce71248446", CellID->223967923], Cell[CellGroupData[{ Cell[45893, 1117, 103, 3, 70, "Input",ExpressionUUID->"45048c37-0c1e-4c41-b4de-166f24d45759", CellID->1024996426], Cell[45999, 1122, 680, 21, 70, "Output",ExpressionUUID->"72c14838-8aa4-465c-b85c-d13e363b6f43", CellID->16813876] }, Open ]], Cell[CellGroupData[{ Cell[46716, 1148, 173, 5, 70, "Input",ExpressionUUID->"b25dc66f-3401-4553-bc34-9cf66425e74a", CellID->1115548], Cell[46892, 1155, 93, 3, 70, "Output",ExpressionUUID->"fdbadbf2-8096-47c9-8da1-882704fa2741", CellID->31009303] }, Open ]], Cell[47000, 1161, 345, 9, 70, "Text",ExpressionUUID->"40d4097a-2f03-41c6-ab09-90b3571ac557", CellID->3861170], Cell[CellGroupData[{ Cell[47370, 1174, 8041, 206, 70, "Input",ExpressionUUID->"8d30a0a2-fc7c-4926-b1f2-cdc2f2771106", CellID->1569146060], Cell[55414, 1382, 392, 14, 70, "Output",ExpressionUUID->"76b3b6e6-bae9-442a-b188-dd59a15e86d4", CellID->19791775] }, Open ]], Cell[CellGroupData[{ Cell[55843, 1401, 103, 3, 70, "Input",ExpressionUUID->"0b35f192-1d5c-4340-9db1-31152e697e4d", CellID->1538645260], Cell[55949, 1406, 952, 30, 70, "Output",ExpressionUUID->"a1be02eb-6c43-42d6-9d16-f617f8ade1bc", CellID->66591526] }, Open ]], Cell[CellGroupData[{ Cell[56938, 1441, 174, 5, 70, "Input",ExpressionUUID->"fe292be8-e4f5-49e2-87aa-590ab906f910", CellID->12807646], Cell[57115, 1448, 69, 2, 70, "Output",ExpressionUUID->"49c6461e-69e5-4b07-96fc-801ffbbdeb90", CellID->972581963] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)