(* 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[ 19614, 485] NotebookOptionsPosition[ 18399, 455] NotebookOutlinePosition[ 18752, 471] CellTagsIndexPosition[ 18709, 468] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Iperbole", " ", "equilatera"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "*", "x"}], "+", "b"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"c", "*", "x"}], "+", "d"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "1"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "1"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.747719953831718*^9, 3.747719953946329*^9}, { 3.747720870213696*^9, 3.747720891782539*^9}, {3.747720974350214*^9, 3.747720996069581*^9}, {3.747721046397655*^9, 3.747721051679614*^9}, { 3.747727648986804*^9, 3.7477276613520947`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"1ee30e66-c0f7-48f9-a5b9-a08bc5fde610"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`b$$ = 1, $CellContext`c$$ = 1, $CellContext`d$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a$$], 0}, -5, 5}, {{ Hold[$CellContext`b$$], 1}, -5, 5}, {{ Hold[$CellContext`c$$], 1}, -5, 5}, {{ Hold[$CellContext`d$$], 0}, -5, 5}}, Typeset`size$$ = { 720., {355., 366.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$8150$$ = 0, $CellContext`b$8151$$ = 0, $CellContext`c$8152$$ = 0, $CellContext`d$8153$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0, $CellContext`b$$ = 1, $CellContext`c$$ = 1, $CellContext`d$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$8150$$, 0], Hold[$CellContext`b$$, $CellContext`b$8151$$, 0], Hold[$CellContext`c$$, $CellContext`c$8152$$, 0], Hold[$CellContext`d$$, $CellContext`d$8153$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[($CellContext`a$$ $CellContext`x + \ $CellContext`b$$)/($CellContext`c$$ $CellContext`x + $CellContext`d$$), \ {$CellContext`x, -10, 10}, AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, PlotRange -> {{-10, 10}, {-10, 10}}, AspectRatio -> 1], "Specifications" :> {{{$CellContext`a$$, 0}, -5, 5, Appearance -> "Labeled"}, {{$CellContext`b$$, 1}, -5, 5, Appearance -> "Labeled"}, {{$CellContext`c$$, 1}, -5, 5, Appearance -> "Labeled"}, {{$CellContext`d$$, 0}, -5, 5, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{806., {484., 496.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.747727025546884*^9, 3.747727281530086*^9, 3.747727689951729*^9, 3.7477296240199623`*^9, 3.747731721780294*^9}, CellLabel->"Out[12]=",ExpressionUUID->"e4dd55ea-689f-4223-be9a-588ff4cf8d17"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Iperbole", " ", "equilaterale", " ", "con", " ", "centro", " ", "di", " ", "simmetria", " ", "C"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x1", "=", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y1", "=", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y1", "*", "x"}], "+", "a"}], ")"}], "/", RowBox[{"(", RowBox[{"x", "-", "x1"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "]"}]}], "}"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "1"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.747727336540442*^9, 3.747727362549836*^9}, { 3.7477273956397142`*^9, 3.747727430306801*^9}, {3.747727468786112*^9, 3.747727565210444*^9}, {3.74772759553325*^9, 3.7477276145444117`*^9}, { 3.747727700439849*^9, 3.7477277306380444`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"2eff3080-ef03-4d76-8e3c-bd8f93974fde"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`c$$ = {1, 0}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a$$], 1}, -5, 5}, {{ Hold[$CellContext`c$$], {1, 0}}, {-5, -5}, {5, 5}}}, Typeset`size$$ = { 720., {355., 366.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$8501$$ = 0, $CellContext`c$8502$$ = {0, 0}}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 1, $CellContext`c$$ = {1, 0}}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$8501$$, 0], Hold[$CellContext`c$$, $CellContext`c$8502$$, {0, 0}]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`x1 = Part[$CellContext`c$$, 1]; $CellContext`y1 = Part[$CellContext`c$$, 2]; Plot[($CellContext`y1 $CellContext`x + \ $CellContext`a$$)/($CellContext`x - $CellContext`x1), {$CellContext`x, -10, 10}, AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, PlotRange -> {{-10, 10}, {-10, 10}}, AspectRatio -> 1, Epilog -> {Black, Point[{$CellContext`x1, $CellContext`y1}]}]), "Specifications" :> {{{$CellContext`a$$, 1}, -5, 5, Appearance -> "Labeled"}, {{$CellContext`c$$, {1, 0}}, {-5, -5}, {5, 5}, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{806., {531., 543.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.7477277318958063`*^9, 3.747727751535193*^9}, 3.7477296290161333`*^9, 3.747731724999599*^9}, CellLabel->"Out[13]=",ExpressionUUID->"5e691358-5456-4e3c-a06b-0a77c7619064"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Un", " ", "esempio", " ", RowBox[{"economico", ":", " ", RowBox[{ "la", " ", "funzione", " ", "di", " ", "costo", " ", "medio"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"c", "+", RowBox[{"cf", "/", "x"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "AC"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "1"}], "}"}], ",", "0", ",", "5", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"cf", ",", "5"}], "}"}], ",", "0", ",", "10", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7477229953258*^9, 3.747723104775632*^9}, { 3.74772314214165*^9, 3.747723157049663*^9}, {3.747723216177622*^9, 3.747723273116272*^9}, {3.7477233415908413`*^9, 3.747723440594105*^9}, { 3.747723582114739*^9, 3.747723633979974*^9}, {3.747723961769992*^9, 3.747724153463832*^9}, {3.747724196985155*^9, 3.747724197048017*^9}, 3.747724289121378*^9, {3.7477248733698807`*^9, 3.74772487367196*^9}, { 3.7477270590470543`*^9, 3.7477272170014067`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"f795a70e-afd9-44ce-ac7b-53359028e6f8"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`c$$ = 1, $CellContext`cf$$ = 5, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`c$$], 1}, 0, 5}, {{ Hold[$CellContext`cf$$], 5}, 0, 10}}, Typeset`size$$ = { 720., {358., 370.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`c$8859$$ = 0, $CellContext`cf$8860$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`c$$ = 1, $CellContext`cf$$ = 5}, "ControllerVariables" :> { Hold[$CellContext`c$$, $CellContext`c$8859$$, 0], Hold[$CellContext`cf$$, $CellContext`cf$8860$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[$CellContext`c$$ + $CellContext`cf$$/$CellContext`x, \ {$CellContext`x, 0, 10}, AxesLabel -> {$CellContext`x, $CellContext`AC}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 10}, {0, 10}}, AspectRatio -> 1], "Specifications" :> {{{$CellContext`c$$, 1}, 0, 5, Appearance -> "Labeled"}, {{$CellContext`cf$$, 5}, 0, 10, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{806., {455., 467.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.747727217742221*^9, 3.747727277647992*^9}, { 3.747727799426895*^9, 3.7477278169063997`*^9}, 3.747729633752652*^9, 3.747731728493948*^9}, CellLabel->"Out[14]=",ExpressionUUID->"e8e21744-72b4-4a47-bc35-4a3401297d96"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Disequazione", " ", "fratta"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"3", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], "\[GreaterEqual]", "0"}], "\[IndentingNewLine]", RowBox[{"NumberLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"3", "x"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], "\[GreaterEqual]", "0"}], ",", RowBox[{ RowBox[{"x", "+", "1"}], ">", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"3", "x"}]}], "\[GreaterEqual]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.747731733840034*^9, 3.747731774971224*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"e1e88a8f-56f5-4166-a694-b8b1bb7fee0c"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"3", " ", "x"}], "+", SuperscriptBox["x", "2"]}], RowBox[{"1", "+", "x"}]], "\[GreaterEqual]", "0"}]], "Output", CellChangeTimes->{3.747731745786973*^9, 3.74773177629149*^9}, CellLabel->"Out[16]=",ExpressionUUID->"14ae01b7-2382-45c3-aae3-c7980852d6f1"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[Medium], AbsoluteThickness[ 1.6], {{PointBox[{-3., 1}], PointBox[{-1., 1}], LineBox[{{-3, 1}, {-1, 1}}]}, { {PointSize[0.013], PointBox[{-1, 1}]}, {GrayLevel[1], PointSize[0.0117], PointBox[{-1, 1}]}}, { PointBox[{0., 1}], {Arrowheads[0.04], ArrowBox[{{0, 1}, Scaled[{0.08, 0}, {5., 1}]}]}}}}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[Medium], AbsoluteThickness[1.6], {{PointBox[{-1., 2}], {Arrowheads[0.04], ArrowBox[{{-1, 2}, Scaled[{0.08, 0}, {5., 2}]}]}}, { {PointSize[0.013], PointBox[{-1, 2}]}, {GrayLevel[1], PointSize[0.0117], PointBox[{-1, 2}]}}}}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[Medium], AbsoluteThickness[1.6], {{PointBox[{-3., 3}], {Arrowheads[0.04], ArrowBox[{{-3, 3}, Scaled[{-0.08, 0}, {-5., 3}]}]}}, { PointBox[{0., 3}], {Arrowheads[0.04], ArrowBox[{{0, 3}, Scaled[{0.08, 0}, {5., 3}]}]}}}}}, AspectRatio->NCache[Rational[3, 10]/GoldenRatio, 0.18541019662496844`], Axes->{True, False}, AxesLabel->{None}, AxesOrigin->{Automatic, Automatic}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, ImagePadding->All, PlotRange->{{-5., 5.}, {0, 3}}, PlotRangePadding->{{ Scaled[0.1], Scaled[0.1]}, {0, 1}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.747731745786973*^9, 3.747731776328507*^9}, CellLabel->"Out[17]=",ExpressionUUID->"7cd912da-8f59-495f-a110-505ff975c4f2"] }, Open ]] }, WindowSize->{3200, 1689}, WindowMargins->{{0, Automatic}, {0, Automatic}}, Magnification->2., FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 2322, 64, 236, "Input",ExpressionUUID->"1ee30e66-c0f7-48f9-a5b9-a08bc5fde610"], Cell[2905, 88, 2779, 52, 1047, "Output",ExpressionUUID->"e4dd55ea-689f-4223-be9a-588ff4cf8d17"] }, Open ]], Cell[CellGroupData[{ Cell[5721, 145, 2784, 74, 424, "Input",ExpressionUUID->"2eff3080-ef03-4d76-8e3c-bd8f93974fde"], Cell[8508, 221, 2494, 47, 1141, "Output",ExpressionUUID->"5e691358-5456-4e3c-a06b-0a77c7619064"] }, Open ]], Cell[CellGroupData[{ Cell[11039, 273, 1965, 48, 236, "Input",ExpressionUUID->"f795a70e-afd9-44ce-ac7b-53359028e6f8"], Cell[13007, 323, 2252, 43, 989, "Output",ExpressionUUID->"e8e21744-72b4-4a47-bc35-4a3401297d96"] }, Open ]], Cell[CellGroupData[{ Cell[15296, 371, 1193, 36, 189, "Input",ExpressionUUID->"e1e88a8f-56f5-4166-a694-b8b1bb7fee0c"], Cell[16492, 409, 326, 8, 140, "Output",ExpressionUUID->"14ae01b7-2382-45c3-aae3-c7980852d6f1"], Cell[16821, 419, 1562, 33, 262, "Output",ExpressionUUID->"7cd912da-8f59-495f-a110-505ff975c4f2"] }, Open ]] } ] *)