(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 22126, 550] NotebookOptionsPosition[ 19861, 490] NotebookOutlinePosition[ 20325, 509] CellTagsIndexPosition[ 20282, 506] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->8661488], Cell["Create a notebook to define a new data resource:", "Text", CellChangeTimes->{{3.7428128010137377`*^9, 3.742812819595511*^9}}, CellID->106867673], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"CreateResourceNotebook\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction[ ResourceObject[ Association[{ "Name" -> "CreateResourceNotebook", "UUID" -> "CreateResourceNotebook", "ResourceType" -> "Function", "Description" -> "Create a definition notebook for a new resource object.", "WolframLanguageVersionRequired" -> "11.0", "SymbolName" -> "FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`\ createROnotebook", "Function" -> HoldComplete[ FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`\ createROnotebook], "FunctionLocation" -> None, "VerificationTests" -> HoldComplete[ VerificationTest[ FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`\ createROnotebook["DataResource"], Blank[NotebookObject], SameTest -> MatchQ]], "ShortName" -> "CreateResourceNotebook"}]]], Selectable->False], ResourceFunction["CreateResourceNotebook"]], "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellChangeTimes->{ 3.70999648737139*^9, {3.7428126969055634`*^9, 3.742812699568031*^9}}, CellLabel->"In[8]:=", CellID->140321153], Cell[BoxData[ TemplateBox[{FrontEndObject[ LinkObject["5vc8e_shm", 3, 1]],40, "FrontEndObject[LinkObject[\"5vc8e_shm\", 3, 1]]","40","\"Untitled-9\""}, "NotebookObjectUnsaved"]], "Output", CellChangeTimes->{3.742812700700804*^9}, CellLabel->"Out[8]=", CellID->271428186] }, Open ]], Cell["Create a notebook to define a new function resource:", "Text", CellChangeTimes->{{3.7428128010137377`*^9, 3.7428128273287373`*^9}}, CellID->556933696], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"CreateResourceNotebook\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction[ ResourceObject[ Association[{ "Name" -> "CreateResourceNotebook", "UUID" -> "CreateResourceNotebook", "ResourceType" -> "Function", "Description" -> "Create a definition notebook for a new resource object.", "WolframLanguageVersionRequired" -> "11.0", "SymbolName" -> "FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`\ createROnotebook", "Function" -> HoldComplete[ FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`\ createROnotebook], "FunctionLocation" -> None, "VerificationTests" -> HoldComplete[ VerificationTest[ FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`\ createROnotebook["DataResource"], Blank[NotebookObject], SameTest -> MatchQ]], "ShortName" -> "CreateResourceNotebook"}]]], Selectable->False], ResourceFunction["CreateResourceNotebook"]], "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellChangeTimes->{ 3.70999648737139*^9, {3.7428126969055634`*^9, 3.742812699568031*^9}, { 3.742812829134557*^9, 3.742812830962374*^9}}, CellLabel->"In[9]:=", CellID->534678394], Cell[BoxData[ TemplateBox[{FrontEndObject[ LinkObject["5vc8e_shm", 3, 1]],41, "FrontEndObject[LinkObject[\"5vc8e_shm\", 3, 1]]","41","\"Untitled-10\""}, "NotebookObjectUnsaved"]], "Output", CellChangeTimes->{3.742812700700804*^9, 3.7428128319882717`*^9}, CellLabel->"Out[9]=", CellID->665213041] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["More Examples", "Subsection", CellID->403799318], Cell[CellGroupData[{ Cell["Scope", "Subsubsection", CellID->6391657], Cell[TextData[{ "Retrieve the ", Cell[BoxData[ ButtonBox["ResourceFunction", BaseStyle->"Link"]], "InlineFormula"], ":" }], "Text", CellID->358499034], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellChangeTimes->{ 3.70999648737139*^9, {3.7428126703758707`*^9, 3.742812685684808*^9}}, CellLabel->"", CellID->323781395], Cell[BoxData[ InterpretationBox[ InterpretationBox[ FrameBox[ TemplateBox[{GraphicsBox[{ RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], Thickness[ Dynamic[ If[CurrentValue["CellStyleName"] === "Input", 0.2, 0.1]]], CircleBox[{0, 0}]}, ImageSize -> 10, BaselinePosition -> Scaled[0.05], ImagePadding -> 1],TemplateBox[{3}, "Spacer1"],StyleBox[ "\"CreateResourceNotebook\"", FontColor -> RGBColor[0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontSize -> 0.78 Inherited, FontFamily -> "Roboto", Selectable -> True, FontWeight -> Dynamic[ If[CurrentValue["CellStyleName"] === "Input", "DemiBold", Plain]], StripOnInput -> False]}, "Row", DisplayFunction->(PaneBox[ RowBox[{ TemplateSlotSequence[1, "\[InvisibleSpace]"]}], BaselinePosition -> Center]& ), InterpretationFunction->(RowBox[{"Row", "[", RowBox[{ RowBox[{"{", TemplateSlotSequence[1, ","], "}"}], ",", RowBox[{"BaselinePosition", "\[Rule]", "Center"}]}], "]"}]& )], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {0, -2}}, FrameStyle->Directive[ AbsoluteThickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction[ ResourceObject[ Association[{ "Name" -> "CreateResourceNotebook", "UUID" -> "CreateResourceNotebook", "ResourceType" -> "Function", "Description" -> "Create a definition notebook for a new resource object.", "WolframLanguageVersionRequired" -> "11.0", "SymbolName" -> "FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`\ createROnotebook", "Function" -> HoldComplete[ FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`createROnotebook]\ , "FunctionLocation" -> None, "VerificationTests" -> HoldComplete[ VerificationTest[ FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`\ createROnotebook["DataResource"], Blank[NotebookObject], SameTest -> MatchQ]], "ShortName" -> "CreateResourceNotebook"}]]], Selectable->False], ResourceFunction["CreateResourceNotebook"]]], "Output", CellID->283572142] }, Open ]], Cell[TextData[{ "Retrieve the ", Cell[BoxData[ ButtonBox["ResourceObject", BaseStyle->"Link"]], "InlineFormula"], ":" }], "Text", CellID->399385084], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellID->105695382], 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["\"CreateResourceNotebook\"", "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Function\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Create a definition notebook for a new resource \ object.\"", "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["\"CreateResourceNotebook\"", "SummaryItem"]}], TagBox["\"\"", "SummaryItem"]}, { RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Function\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Description: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ "\"Create a definition notebook for a new resource \ object.\"", "SummaryItem"]}], "\[SpanFromLeft]"}, { RowBox[{ TagBox["\"Keywords: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"ResourceObject\"", "\"Notebook\""}, "RowWithSeparators"], Short], "SummaryItem"]}], ""}, { RowBox[{ TagBox["\"UUID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"CreateResourceNotebook\"", "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" -> "CreateResourceNotebook", "UUID" -> "CreateResourceNotebook", "ResourceType" -> "Function", "Description" -> "Create a definition notebook for a new resource object.", "WolframLanguageVersionRequired" -> "11.0", "SymbolName" -> "FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`createROnotebook", "Function" -> HoldComplete[ FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`createROnotebook], "FunctionLocation" -> None, "VerificationTests" -> HoldComplete[ VerificationTest[ FunctionRepository`$a2ea1bf5799d4731a47df85c445e2bed`createROnotebook[ "DataResource"], Blank[NotebookObject], SameTest -> MatchQ]], "ShortName" -> "CreateResourceNotebook"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellID->407459472] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, DockedCells->{}, Background->GrayLevel[1], FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionResourceDefinitionStyles.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 54, 1, 70, "Subsection",ExpressionUUID->"9783ac2a-f3a5-49c3-b079-68df5a099438", CellID->8661488], Cell[637, 25, 152, 2, 70, "Text",ExpressionUUID->"57ef2d04-49fa-4b7e-901e-ce9ce63c11b8", CellID->106867673], Cell[CellGroupData[{ Cell[814, 31, 2782, 66, 70, "Input",ExpressionUUID->"96701f3f-a8e7-4814-8adf-d6f64f4913ef", CellID->140321153], Cell[3599, 99, 283, 7, 70, "Output",ExpressionUUID->"4656bf22-8c50-46a4-b150-efec06e671bb", CellID->271428186] }, Open ]], Cell[3897, 109, 158, 2, 70, "Text",ExpressionUUID->"0f8bbd8c-f2b9-4b52-92ba-3219cbd92f96", CellID->556933696], Cell[CellGroupData[{ Cell[4080, 115, 2828, 67, 70, "Input",ExpressionUUID->"3daf18b5-b1db-4f2c-b644-4464fbb19f60", CellID->534678394], Cell[6911, 184, 308, 7, 70, "Output",ExpressionUUID->"dad8e394-1546-44ae-9e78-da8573647f18", CellID->665213041] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7268, 197, 55, 1, 70, "Subsection",ExpressionUUID->"3b2bd4da-55b6-4ef2-b6c8-50adc1712a49", CellID->403799318], Cell[CellGroupData[{ Cell[7348, 202, 48, 1, 70, "Subsubsection",ExpressionUUID->"15d4a013-0b69-4951-a552-477219f9b642", CellID->6391657], Cell[7399, 205, 159, 7, 70, "Text",ExpressionUUID->"8719ba8b-0a8e-42f0-8a0c-9fba7744091c", CellID->358499034], Cell[CellGroupData[{ Cell[7583, 216, 277, 8, 70, "Input",ExpressionUUID->"4593c596-3cf3-4a59-bbdc-d6138d67476e", CellID->323781395], Cell[7863, 226, 2508, 58, 70, "Output",ExpressionUUID->"cedb925b-89d4-412f-8101-b09a24a1f234", CellID->283572142] }, Open ]], Cell[10386, 287, 157, 7, 70, "Text",ExpressionUUID->"bad1aa32-1e75-4739-9add-bd1c6f89b9b0", CellID->399385084], Cell[CellGroupData[{ Cell[10568, 298, 119, 3, 70, "Input",ExpressionUUID->"7fe70a53-5e1f-4203-aec8-04e04136a7f4", CellID->105695382], Cell[10690, 303, 9131, 182, 70, "Output",ExpressionUUID->"218f4de9-1a5f-4b8d-9e34-4858d795f128", CellID->407459472] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)