(* 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[ 13726, 346] NotebookOptionsPosition[ 13063, 325] NotebookOutlinePosition[ 13416, 341] CellTagsIndexPosition[ 13373, 338] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "Approssimazione", " ", "in", " ", "serie", " ", "di", " ", "Taylor", " ", "della", " ", "funzione", " ", RowBox[{"f", "[", "x", "]"}]}], "=", RowBox[{"Sin", "[", "x", "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"Sin", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "x0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "2"}], "Pi"}], ",", RowBox[{"2", "*", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "Pi"}], ",", RowBox[{"2", "*", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"{", RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"x0", ",", RowBox[{"f", "[", "x0", "]"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{"-", "2"}], "Pi"}], ",", RowBox[{"2", "*", "Pi"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "1"}], "}"}], ",", "0", ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQPUE//yfjh9eOp4QDeJiAdNiNECEQPfkfkzCIPmsb IgGiX/bUSoPodQullEB09woNMJ1xWlwdRK88e0QPREvunmUCojc0c1iB6MDy OCcQfbTJyQOsP+pjJIhe0fUqA0T/4z6YC6J3d//PA9HqG4KLwfLWKWBaes+J FhCtleLfAaJP6lX3gGix2FWTwHS20AwQ7ZFpOwdE171ZvBxEf8jaCqbTNWM2 geiyzwc2g+gAsYQdIFq2VHkfiH5k+/AwiF60P/woiF51XPE8iL43UeMi2N/B 5ndAdMTqqfdA9Inb65+DaNME/rcgWuqB10ewvqL4HyBawukJLzOQ3ibzDky/ U+049EPjjaPHnWNHQDQAzii/Dw== "], CellLabel->"In[38]:=",ExpressionUUID->"53273de6-76ca-47a1-bc17-cd5590e29384"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 1, $CellContext`x0$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x0$$], 0}, (-2) Pi, 2 Pi}, {{ Hold[$CellContext`n$$], 1}, 0, 10, 1}}, Typeset`size$$ = { 720., {233., 244.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`x0$413950$$ = 0, $CellContext`n$413951$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 1, $CellContext`x0$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`x0$$, $CellContext`x0$413950$$, 0], Hold[$CellContext`n$$, $CellContext`n$413951$$, 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`f[ Pattern[$CellContext`x, Blank[]]] := Sin[$CellContext`x]; Plot[{ $CellContext`f[$CellContext`x], Evaluate[ Normal[ Series[ $CellContext`f[$CellContext`x], {$CellContext`x, \ $CellContext`x0$$, $CellContext`n$$}]]]}, {$CellContext`x, (-2) Pi, 2 Pi}, AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, PlotRange -> {{(-2) Pi, 2 Pi}, {-2, 2}}, PlotStyle -> {Black, {Black, Dashed}}, Epilog -> {Black, { PointSize[Large], Point[{$CellContext`x0$$, $CellContext`f[$CellContext`x0$$]}]}}]), "Specifications" :> {{{$CellContext`x0$$, 0}, (-2) Pi, 2 Pi, Appearance -> "Labeled"}, {{$CellContext`n$$, 1}, 0, 10, 1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{806., {329., 341.}}, 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.7497132167198*^9, {3.749713300605503*^9, 3.749713311056501*^9}, 3.7497133949352283`*^9, 3.749713547276124*^9, {3.7497136352673073`*^9, 3.7497136532803164`*^9}, {3.7497137347287893`*^9, 3.7497137690751257`*^9}, {3.749713819015411*^9, 3.749713825008759*^9}, 3.7497138603213787`*^9, 3.74971398079356*^9, 3.749714032495824*^9, 3.749714088915889*^9, {3.779577367214574*^9, 3.7795773998498077`*^9}}, CellLabel->"Out[38]=",ExpressionUUID->"014d0eec-a287-407a-804b-f5132aac037c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Approssimazione", " ", "in", " ", "serie", " ", "di", " ", "Taylor", " ", "della", " ", "funzione", " ", "cubica", " ", RowBox[{"f", "[", "x", "]"}]}], "=", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "/", "2"}], "-", RowBox[{"6", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"24", "x"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"x", "^", "3"}], "/", "2"}], "-", RowBox[{"6", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"24", "x"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "x0", ",", "n"}], "}"}]}], "]"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0", ",", "11"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"{", RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"x0", ",", RowBox[{"f", "[", "x0", "]"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "6"}], "}"}], ",", "0", ",", "11", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "1"}], "}"}], ",", "0", ",", "4", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.77957723080934*^9, 3.7795773110207567`*^9}, { 3.7795773444552097`*^9, 3.7795773448037977`*^9}, {3.7795774082193832`*^9, 3.7795774203955717`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"948c4388-2d4c-4a0b-8ee4-624115e15035"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 1, $CellContext`x0$$ = 6, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x0$$], 6}, 0, 11}, {{ Hold[$CellContext`n$$], 1}, 0, 4, 1}}, Typeset`size$$ = { 720., {229., 241.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`x0$440294$$ = 0, $CellContext`n$440295$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 1, $CellContext`x0$$ = 6}, "ControllerVariables" :> { Hold[$CellContext`x0$$, $CellContext`x0$440294$$, 0], Hold[$CellContext`n$$, $CellContext`n$440295$$, 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`f[ Pattern[$CellContext`x, Blank[]]] := $CellContext`x^3/2 - 6 $CellContext`x^2 + 24 $CellContext`x; Plot[{ $CellContext`f[$CellContext`x], Evaluate[ Normal[ Series[ $CellContext`f[$CellContext`x], {$CellContext`x, \ $CellContext`x0$$, $CellContext`n$$}]]]}, {$CellContext`x, 0, 11}, AxesLabel -> {$CellContext`x, $CellContext`y}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 11}, {0, 200}}, PlotStyle -> {Black, {Black, Dashed}}, Epilog -> {Black, { PointSize[Large], Point[{$CellContext`x0$$, $CellContext`f[$CellContext`x0$$]}]}}]), "Specifications" :> {{{$CellContext`x0$$, 6}, 0, 11, Appearance -> "Labeled"}, {{$CellContext`n$$, 1}, 0, 4, 1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{806., {326., 338.}}, 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.779577192113289*^9, {3.779577295184441*^9, 3.77957731263168*^9}, 3.779577346104479*^9, {3.779577404129058*^9, 3.779577422785782*^9}}, CellLabel->"Out[41]=",ExpressionUUID->"6111eb71-2c8f-411d-b609-5135afe4d35a"] }, 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, 3467, 92, 612, "Input",ExpressionUUID->"53273de6-76ca-47a1-bc17-cd5590e29384"], Cell[4050, 116, 3000, 58, 737, "Output",ExpressionUUID->"014d0eec-a287-407a-804b-f5132aac037c"] }, Open ]], Cell[CellGroupData[{ Cell[7087, 179, 3216, 86, 612, "Input",ExpressionUUID->"948c4388-2d4c-4a0b-8ee4-624115e15035"], Cell[10306, 267, 2741, 55, 762, "Output",ExpressionUUID->"6111eb71-2c8f-411d-b609-5135afe4d35a"] }, Open ]] } ] *)