(* 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]", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"b", ",", "1"}], "}"}], ",",
RowBox[{"-", "5"}], ",", "5", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"c", ",", "1"}], "}"}], ",",
RowBox[{"-", "5"}], ",", "5", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"d", ",", "0"}], "}"}], ",",
RowBox[{"-", "5"}], ",", "5", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}],
"]"}]}]], "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]", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"c", ",",
RowBox[{"{",
RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "5"}], ",",
RowBox[{"-", "5"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "5"}], "}"}], ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], "]"}],
"\[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]", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"cf", ",", "5"}], "}"}], ",", "0", ",", "10", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}],
"]"}]}]], "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 ]]
}
]
*)