(* 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]", "\"\<Labeled\>\""}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"n", ",", "1"}], "}"}], ",", "0", ",", "10", ",", "1", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}],
"\[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]", "\"\<Labeled\>\""}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"n", ",", "1"}], "}"}], ",", "0", ",", "4", ",", "1", ",",
RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}],
"\[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 ]]
}
]
*)