Mathematica

(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 94447, 2329] NotebookOptionsPosition[ 87954, 2168] NotebookOutlinePosition[ 88298, 2183] CellTagsIndexPosition[ 88255, 2180] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["Example 0. ", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], "Generate some Chebyshev polynomials with ", StyleBox["Mathematica", FontSlant->"Italic"], "'s built in function." }], "Text", Evaluatable->False, CellChangeTimes->{{3.5890452185184054`*^9, 3.589045247063113*^9}}, AspectRatioFixed-> True,ExpressionUUID->"96fdb2d9-8530-4ddc-8de4-8c868d4585da"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(T\), \(4\)]\)(x) = \>\"", ",", RowBox[{"ChebyshevT", "[", RowBox[{"4", ",", "x"}], "]"}]}], "]"}], ";"}], " "}]], "Input",Expressi\ onUUID->"b717844b-eb82-4f93-8725-36f60cab257b"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(4\\)]\\)(x) = \"\>", "\[InvisibleSpace]", RowBox[{"1", "-", RowBox[{"8", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"8", " ", SuperscriptBox["x", "4"]}]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(T\), \(4\)]\)(x) = ", 1 - 8 $CellContext`x^2 + 8 $CellContext`x^4], Editable->False]], "Print", CellChangeTimes->{ 3.589043327220725*^9},ExpressionUUID->"37707380-287f-4103-a2de-\ cc5ecea0a78c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(T\), \(5\)]\)(x) = \>\"", ",", RowBox[{"ChebyshevT", "[", RowBox[{"5", ",", "x"}], "]"}]}], "]"}], ";"}], " "}]], "Input",Expressi\ onUUID->"af882edb-8c4b-48ba-8a9d-7c05ba7da953"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(T\\), \\(5\\)]\\)(x) = \"\>", "\[InvisibleSpace]", RowBox[{ RowBox[{"5", " ", "x"}], "-", RowBox[{"20", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"16", " ", SuperscriptBox["x", "5"]}]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(T\), \(5\)]\)(x) = ", 5 $CellContext`x - 20 $CellContext`x^3 + 16 $CellContext`x^5], Editable->False]], "Print", CellChangeTimes->{ 3.589043329582961*^9},ExpressionUUID->"c3b5b64b-0217-4718-9f00-\ 2a803d9ce8f2"] }, Open ]], Cell[TextData[{ StyleBox["Example 1.", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" Construct ", FontWeight->"Bold"], "interpolating polynomials of degree 1,2, and 5 for the function ", Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x", "]"}], "=", SuperscriptBox["\[ExponentialE]", "x"]}]], AspectRatioFixed->False,ExpressionUUID-> "a894ec92-2c77-4ed8-a18d-ade95aa8dc7e"], " over the interval ", Cell[BoxData[ RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "]"}]], AspectRatioFixed->False,ExpressionUUID-> "a1e18fdd-4ad6-4f9b-8cd5-fc35ab0479d7"], " using Chebyshev's nodes. " }], "Text", Evaluatable->False, CellChangeTimes->{{3.589043960646061*^9, 3.5890439620372005`*^9}, { 3.5890450383873863`*^9, 3.58904504650801*^9}, {3.6204952776772623`*^9, 3.620495279165411*^9}, {3.7461281610921016`*^9, 3.746128181326563*^9}}, AspectRatioFixed-> True,ExpressionUUID->"d28f4788-ec68-49c5-b33c-ae818a35318a"], Cell[TextData[StyleBox["Solution 1.", FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]]], "Text",ExpressionUUID->"854a4786-0a99-45ff-\ 8865-5117c4028cfe"], Cell[TextData[{ StyleBox["1 (a).", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Construct the interpolation polynomial ", Cell[BoxData[ RowBox[{ SubscriptBox["P", "1"], "[", "x", "]"}]],ExpressionUUID-> "aa9b6f86-ea41-4908-9856-ea634b2ceed6"], ", of degree 1." }], "Text", Evaluatable->False, CellChangeTimes->{{3.6204952725407486`*^9, 3.62049527365386*^9}, { 3.7461282317042003`*^9, 3.746128232925093*^9}}, AspectRatioFixed-> True,ExpressionUUID->"a3ce4217-1667-417e-8ea3-02143414a194"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", SuperscriptBox["\[ExponentialE]", "x"]}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"n", "=", "2"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["t", "k_"], "=", RowBox[{"Cos", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ")"}], " ", "\[Pi]"}], RowBox[{"2", "n"}]], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"XY", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"{", RowBox[{ SubscriptBox["t", "k"], ",", RowBox[{"f", "[", SubscriptBox["t", "k"], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], " ", "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["P", "1"], "[", "x_", "]"}], "=", RowBox[{"Expand", "[", RowBox[{"InterpolatingPolynomial", "[", RowBox[{"XY", ",", "x"}], "]"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<Chebyshev nodes = \>\"", ",", "XY"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(P\), \(1\)]\)[x] = \>\"", ",", RowBox[{ SubscriptBox["P", "1"], "[", "x", "]"}]}], "]"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.6204950468681836`*^9, 3.6204950470001965`*^9}, { 3.620495082964793*^9, 3.620495094777974*^9}, {3.6204951943449297`*^9, 3.6204951948879843`*^9}, {3.746128270247011*^9, 3.7461282725340137`*^9}}, AspectRatioFixed-> False,ExpressionUUID->"98fe6be3-dcf7-4b24-b5eb-33917bb38077"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Chebyshev nodes = \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.7071067811865475`", ",", "2.028114981647472`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7071067811865475`"}], ",", "0.49306869139523984`"}], "}"}]}], "}"}]}], SequenceForm[ "Chebyshev nodes = ", {{0.7071067811865475, 2.028114981647472}, {-0.7071067811865475, 0.49306869139523984`}}], Editable->False]], "Print", CellChangeTimes->{3.5890433427912817`*^9, 3.5890453147546487`*^9, 3.620495197166212*^9, 3.746128283311593*^9},ExpressionUUID->"c92cd06a-da85-47ae-b26a-\ d74d4759f505"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(1\\)]\\)[x] = \"\>", "\[InvisibleSpace]", "1.260591836521356`"}], "\[VeryThinSpace]", "+", RowBox[{"1.085441641272607`", " ", "x"}]}], SequenceForm[ "\!\(\*SubscriptBox[\(P\), \(1\)]\)[x] = ", 1.260591836521356 + 1.085441641272607 $CellContext`x], Editable->False]], "Print", CellChangeTimes->{3.5890433427912817`*^9, 3.5890453147546487`*^9, 3.620495197166212*^9, 3.7461282833147287`*^9},ExpressionUUID->"9d12f5c9-b8a1-4541-ab10-\ 56fb5cd2ecad"] }, Open ]] }, Open ]], Cell["\<\ Now graph the function and polynomial, and interpolation nodes.\ \>", "Text",ExpressionUUID->"874100fb-4a28-4e64-8b40-a8a7fb7c651f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dots", "=", RowBox[{"ListPlot", "[", RowBox[{"XY", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"gr1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{ SubscriptBox["P", "1"], "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Magenta", ",", "Green"}], "}"}]}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{"Show", "[", RowBox[{"gr1", ",", "dots", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "4.5"}], "}"}]}], "}"}]}]}], "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<f[x] = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<Chebyshev nodes = \>\"", ",", "XY"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "Print", "[", "\"\<The interval for approximation is [-1.0,1.0].\>\"", "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(P\), \(1\)]\)[x] = \>\"", ",", RowBox[{ SubscriptBox["P", "1"], "[", "x", "]"}]}], "]"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.589043575516552*^9, 3.5890435833083315`*^9}, { 3.5890453070851154`*^9, 3.589045324894676*^9}, {3.7461283005577745`*^9, 3.7461283073421845`*^9}}, AspectRatioFixed-> False,ExpressionUUID->"3cbc282b-f50c-4a1b-aae6-5c11b3fb2be2"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt1Pk/1HkcwHETVqOafB1tjIfzMQodu0KK3feHIixbcqw2NiLKg1XYKYpW D9dsyuw0HShtG1JKSWlrl49cTWtcIVGYXA3jHubDuHb38dgfXo/nf/AyPBy5 /8gKBQUF93/7z6CH3PHlZYLR1VsZqRlC0JzXMbFdINg58jXH4YoQqp3y/Niz BJtZEe3l60Iw6X7+emSC4NQDfYtn7glheHXf7Y6PBK/Kies+XyOE42FWviVV BNNNWn1k80JIYHVWhKQSvNjg87dCWD1kZRvz6hkES5wcd9C+aYCbPWmRHnQZ ntws99FlNcG6Js+9plozOEnJOnrWqBkE+zx317GmsYGNyqZ5szfgbMqKMTaS 4ra3Ihv/gy2ws8gvv3HrFG6LvaEUyGkF+S8hGhamk/hlUZ3d2YE2mCG5l3/Y MIHxmW0nijzaodqIZ1keMYYrnzVpPHrxDmyVz5aYB4/gBpON0R++7wQ+2r7d Pn4YT7bYddFn30PQdd+B4ZtivF/xev7tvC5ovKNHp2UN4vzo7HQZvwf0Vj/6 Epf2Y7/MFL5BhQhUDQYbh+714rQYmovL+48Q7pV8raBAhHV5W4VRin0QUNVT p8frwpXro80lG/vB6Kslj5rEDmwpN9GyPz0Ad4+WfPyztA03bjMJXFk3CGHS Yr/zWc04dKAlkPGtGLYkKB/4zLgOW2jy9Jd7h0AjtnXVlewqHKpjzk6IkUB7 cLjZw75SfIyScLx2jcLJOLOLry/n4Hb6p0/jjHG4l2GDcr+4AbVzs4XH2RNw 8Vji24Bzz+DS4U6GjDMJa6bdbO97VIGyXwtxy54CUUytJTupDmZ1e/YeeiuF sefulScFzeDObGDO6M9AfuqtgGBOG1RvfD6eEyIDlqxQ41R2B7hfUKJb9xDo fqxfZnu0C7LUP4jp3nPgfVWUJuGKwGVmlirukENOXnqZ25VeUNEf2tGUuQBK ByNGlWP7Qdi97vYOnyVoCLh7Z3/SINzihQzYmyugp2t0/Em4GHK49dJCUxoy yTIUq7gNw9MgzwlHixVIzk5aLPQcAQFji5d3kCKSyJmMApsxkHX1VqziKaHf QlNbmcYTwAu3qpWNKSOuvTBdmzUJKf5Yi+anghiRhQ5VWlPw4L3TUF/NSlS+ +4+yUh0pCFVLE9RDVdFixCFrH8Y0HKrSdndRXo1oKm8yzRengfI5QRZK1iBr 56hKVwUZ5AVs1r2UuxbJP9wXa03J4Mck9mW+QA3tDhdw3WUyEIW+LKbVq6EL 8302yXIZaHuIZiOb1ZCBDpMzvYKAWXLbyn2damjPdxzTFg0CEgt7G70RNcRv PhLGtSLwmPmzjnQthbbU6o2oxhLYV77ETPSl0CnvnXyHeAIxvWqbNf0p9LLf 2y4ukYD6tbmogkAKeSleSB/iEJi5ys9pDaPQaTS/SZBFoAd3x9vGU0jwoj0i +S8CtazY3F2/U0jdVapVVkEgxNnDdDifQn4djPLpagJHHQ3FvxZSaJw4MoLr CZxbP6058IRC66yeFDl0E6iZOGWZ9YpCAdWNPnG9BLKZxjxXIYXuekqWigcJ PBv137TQRCG7KKO9huMEzDNaPg/qpFAK7WviKyXgmvn02PoeCjVxD9zkEgJO Fey5hj4K6Rj8tEcwT+DBu7BXKWIK/f8v2FA/0AKjFPoHG8p3yQ== "]]}, Annotation[#, "Charting`Private`Tag$3253#1"]& ], TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtlHs01Gkch4fhN6uY44Q6jZbQ2ESJVVmXvi/rti0VE6lUc1xKlqNaGezm lsKiZp1k11DtlvultaKwvOXSjmTHJU26uESTy+Q2zCsTtj1n//ic5+/nPOd8 DPzDvYKUaTSax6f9x4A7/KmVFYKlZ4NKXC6JsbaCZWz7kWBNX/O2sXNi3OKS 7xe5QPB2+w/v0oPE2Li/tk06TXAUI4Pd4yTG4+rDt/qGCP4s9+7N43QxPh2y w7eqmeBNrfTsqPhnOJb94sGJZIK5636/UBLTi3MERpkdTIKf1/f7McN78I2B lHBPNTmOd13zPG6lA6/t5Owz0ZnHmyu5lkfutWLhfo5TO3sOa5plX8mxqMdu JuwII0MZ5g77H3bffAvbVPgViMxnMe2AynzkGQEs/nRCy9JkBnfqT1nZlN+H eXI769gX01iTZSmI0GmFFsNMq8awSRy8SjbQY98BtqpxVaaBUuzfX1RtvroH rqJduxzOj+OCkCNHvzITQ0Cu79vxG6PYqzaukGf9EkSFempKORKsPDar/SR3 APTU/7DANSN4ON/KcvbFEKzaKBGNlbzBf7tmf5eqNQKhBy7+UlQ0iAceW8rr HCTAbR5o18t8jRPeic7s3TMKhvbLnq0JfbggQntFGjsOxcFVQ/U1vdhHcPj8 +wwphMgq/dJyunCKpZvGB+EkbItVPUQZtWOe9y6e6Mdp0Ip+uvqaoBmHH/uW y0mcAXFg6JY7wzW4SP/L7ld5s8CL2XK5Les6LigX2GUXyKDkijW6vT0Pdpfd FOmVzMHlUwnPuIn3YF1A9ERp8zxozLnblnk2Q7Wke+XUYzkMRjyyikxqhyxD Wt7WdwQmaz2aeMIuYIra/BuXF6Ag+TduYGovuLtpG8TTF4EtL9WKEvTBk2jL YFc9BfT/qd9gG/wa1kR1FYLxR/DOHkyZ4A/CtERdU9VkCa7npze4X3sDTOYG pU6HZVA5EvZeNXoEZEpl4+2uK/APt7jQK0kCGuLkCokFDVVrsI6S0FFI1Foc jquhIeMcg1GG+zg4p9SVx1krocXIpKVSjhQ2943YJrYqoYlFXWaR9SSE8fe5 fP6NMrp5MvmprtE0PDXapFMvVkZ8hyfp69kzkDzlEoUD6IgZXurYrDMLuQYl B/0kdNTodL+hhiWDHnOeQvG9CloKO77ThzkHobeTdK0WVJASo/tX06U58PIc FHVHq6Kdbmeb9tDkcOhFvlsERaHFV2WjOrNyaGorta9IpZBTqJDvIZeDimmo xUIahTIUw9YXF+XgnG7GdrxMoY0s3dQ5ZQLCveXqzzIp5How1aRHi0BHT8XL JQGFrnYFhfB3EHj+ujLao4JC2x7pSVdFf+oyc69a2k2hKG+bq47nCZhzoop3 9lLo4Yi3XUwCgdN3rfPixRQ6QM9IH0slMBtZm6T9ikI/IIWZMIfAgqKOY/eW QsI6cdjFvwioUI0zaYRCa/bIdBoeEHA+Gfu29wOF/PqYjXMtBC4Jd/fpf6TQ FHFmBnYQUEvDD6poDLR2x90Kx34CTM2HV16qMRC3ReQT84bA/jMJF9jqDFTM mViulBD4uduBF85kILuzhvsMpghoZzUdo2sx0CWl3cRXRsBHnujlocNAnfxD N/iEQPbBr12y1zEQa+M5V6Hik/99us3Qegb6/7+AxWrZarqBgf4FlVFzQA== "]]}, Annotation[#, "Charting`Private`Tag$3253#2"]& ]}, {}, {}}, {{}, {{}, {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{0.7071067811865475, 2.028114981647472}, {-0.7071067811865475, 0.49306869139523984`}}]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1.5, 1.5}, {0., 4.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5890435867016706`*^9, 3.5890453283943763`*^9, 3.6204952356450596`*^9, 3.746128311037462*^9},ExpressionUUID->"0331dd26-230d-4ea6-9d72-\ b6b22df60e76"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"f[x] = \"\>", "\[InvisibleSpace]", SuperscriptBox["\[ExponentialE]", "x"]}], SequenceForm["f[x] = ", E^$CellContext`x], Editable->False]], "Print", CellChangeTimes->{3.5890435386968703`*^9, 3.589043586705671*^9, 3.589045328404378*^9, 3.6204952356530604`*^9, 3.7461283110643415`*^9},ExpressionUUID->"98f77e72-fd9f-487b-8b53-\ a93271995611"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Chebyshev nodes = \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.7071067811865475`", ",", "2.028114981647472`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7071067811865475`"}], ",", "0.49306869139523984`"}], "}"}]}], "}"}]}], SequenceForm[ "Chebyshev nodes = ", {{0.7071067811865475, 2.028114981647472}, {-0.7071067811865475, 0.49306869139523984`}}], Editable->False]], "Print", CellChangeTimes->{3.5890435386968703`*^9, 3.589043586705671*^9, 3.589045328404378*^9, 3.6204952356530604`*^9, 3.7461283110705357`*^9},ExpressionUUID->"2a4beb55-d3f0-4502-939e-\ c202f477a162"], Cell[BoxData["\<\"The interval for approximation is [-1.0,1.0].\"\>"], "Print", CellChangeTimes->{3.5890435386968703`*^9, 3.589043586705671*^9, 3.589045328404378*^9, 3.6204952356530604`*^9, 3.7461283110747557`*^9},ExpressionUUID->"8348edd7-ea20-40bc-a5ca-\ 6eb1173869b7"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(1\\)]\\)[x] = \"\>", "\[InvisibleSpace]", "1.260591836521356`"}], "\[VeryThinSpace]", "+", RowBox[{"1.085441641272607`", " ", "x"}]}], SequenceForm[ "\!\(\*SubscriptBox[\(P\), \(1\)]\)[x] = ", 1.260591836521356 + 1.085441641272607 $CellContext`x], Editable->False]], "Print", CellChangeTimes->{3.5890435386968703`*^9, 3.589043586705671*^9, 3.589045328404378*^9, 3.6204952356530604`*^9, 3.7461283110796456`*^9},ExpressionUUID->"7eba35b7-f0b5-4a24-82dc-\ aebc37f9da31"] }, Open ]] }, Open ]], Cell[TextData[{ StyleBox["1 (b).", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Construct the interpolation polynomial ", Cell[BoxData[ RowBox[{ SubscriptBox["P", "2"], "[", "x", "]"}]],ExpressionUUID-> "87218327-b472-4362-85a4-93d7deecb1d2"], ", of degree 2." }], "Text", Evaluatable->False, CellChangeTimes->{{3.620495291701665*^9, 3.620495294097904*^9}, { 3.746128335794049*^9, 3.7461283369331503`*^9}}, AspectRatioFixed-> True,ExpressionUUID->"3b569df2-da80-49d4-ba3f-614497c9ab6e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", SuperscriptBox["\[ExponentialE]", "x"]}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"n", "=", "3"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["t", "k_"], "=", RowBox[{"Cos", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ")"}], " ", "\[Pi]"}], RowBox[{"2", "n"}]], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"XY", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"{", RowBox[{ SubscriptBox["t", "k"], ",", RowBox[{"f", "[", SubscriptBox["t", "k"], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], " ", "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["P", "2"], "[", "x_", "]"}], "=", RowBox[{"Expand", "[", RowBox[{"InterpolatingPolynomial", "[", RowBox[{"XY", ",", "x"}], "]"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<Chebyshev nodes = \>\"", ",", "XY"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(P\), \(2\)]\)[x] = \>\"", ",", RowBox[{ SubscriptBox["P", "2"], "[", "x", "]"}]}], "]"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.6204952981143055`*^9, 3.6204953189303875`*^9}, { 3.746128328314267*^9, 3.7461283303827176`*^9}}, AspectRatioFixed-> False,ExpressionUUID->"5f5aba8d-1ead-467b-b891-eea515cfa671"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Chebyshev nodes = \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.8660254037844386`", ",", "2.3774426752361646`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8660254037844386`"}], ",", "0.4206200260541148`"}], "}"}]}], "}"}]}], SequenceForm[ "Chebyshev nodes = ", {{0.8660254037844386, 2.3774426752361646`}, {0., 1.}, {-0.8660254037844386, 0.4206200260541148}}], Editable->False]], "Print", CellChangeTimes->{3.589043615538554*^9, 3.5890453589578876`*^9, 3.620495337941288*^9, 3.746128353831422*^9},ExpressionUUID->"f9727687-eda9-4cc8-aecf-\ 87bc86d286ca"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(2\\)]\\)[x] = \"\>", "\[InvisibleSpace]", "1.`"}], "\[VeryThinSpace]", "+", RowBox[{"1.1297720832616132`", " ", "x"}], "+", RowBox[{"0.5320418008601863`", " ", SuperscriptBox["x", "2"]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(P\), \(2\)]\)[x] = ", 1. + 1.1297720832616132` $CellContext`x + 0.5320418008601863 $CellContext`x^2], Editable->False]], "Print", CellChangeTimes->{3.589043615538554*^9, 3.5890453589578876`*^9, 3.620495337941288*^9, 3.746128353834735*^9},ExpressionUUID->"30320fd0-3efa-418d-af1c-\ 407795e28b9f"] }, Open ]] }, Open ]], Cell["\<\ Now graph the function and polynomial, and interpolation nodes.\ \>", "Text",ExpressionUUID->"dcac7744-e583-4c91-9077-8ce7e7fc816d"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dots", "=", RowBox[{"ListPlot", "[", RowBox[{"XY", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"gr1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{ SubscriptBox["P", "2"], "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Magenta", ",", "Green"}], "}"}]}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{"Show", "[", RowBox[{"gr1", ",", "dots", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "4.5"}], "}"}]}], "}"}]}]}], "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<f[x] = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<Chebyshev nodes = \>\"", ",", "XY"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "Print", "[", "\"\<The interval for approximation is [-1.0,1.0].\>\"", "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(P\), \(2\)]\)[x] = \>\"", ",", RowBox[{ SubscriptBox["P", "2"], "[", "x", "]"}]}], "]"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.5890436207740774`*^9, 3.5890436241574154`*^9}, { 3.5890453423052225`*^9, 3.5890453484138336`*^9}, {3.746128360243104*^9, 3.746128371056762*^9}}, AspectRatioFixed-> False,ExpressionUUID->"68dd156c-85bd-432a-bfb3-e346814b1820"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt1Pk/1HkcwHETVqOafB1tjIfzMQodu0KK3feHIixbcqw2NiLKg1XYKYpW D9dsyuw0HShtG1JKSWlrl49cTWtcIVGYXA3jHubDuHb38dgfXo/nf/AyPBy5 /8gKBQUF93/7z6CH3PHlZYLR1VsZqRlC0JzXMbFdINg58jXH4YoQqp3y/Niz BJtZEe3l60Iw6X7+emSC4NQDfYtn7glheHXf7Y6PBK/Kies+XyOE42FWviVV BNNNWn1k80JIYHVWhKQSvNjg87dCWD1kZRvz6hkES5wcd9C+aYCbPWmRHnQZ ntws99FlNcG6Js+9plozOEnJOnrWqBkE+zx317GmsYGNyqZ5szfgbMqKMTaS 4ra3Ihv/gy2ws8gvv3HrFG6LvaEUyGkF+S8hGhamk/hlUZ3d2YE2mCG5l3/Y MIHxmW0nijzaodqIZ1keMYYrnzVpPHrxDmyVz5aYB4/gBpON0R++7wQ+2r7d Pn4YT7bYddFn30PQdd+B4ZtivF/xev7tvC5ovKNHp2UN4vzo7HQZvwf0Vj/6 Epf2Y7/MFL5BhQhUDQYbh+714rQYmovL+48Q7pV8raBAhHV5W4VRin0QUNVT p8frwpXro80lG/vB6Kslj5rEDmwpN9GyPz0Ad4+WfPyztA03bjMJXFk3CGHS Yr/zWc04dKAlkPGtGLYkKB/4zLgOW2jy9Jd7h0AjtnXVlewqHKpjzk6IkUB7 cLjZw75SfIyScLx2jcLJOLOLry/n4Hb6p0/jjHG4l2GDcr+4AbVzs4XH2RNw 8Vji24Bzz+DS4U6GjDMJa6bdbO97VIGyXwtxy54CUUytJTupDmZ1e/YeeiuF sefulScFzeDObGDO6M9AfuqtgGBOG1RvfD6eEyIDlqxQ41R2B7hfUKJb9xDo fqxfZnu0C7LUP4jp3nPgfVWUJuGKwGVmlirukENOXnqZ25VeUNEf2tGUuQBK ByNGlWP7Qdi97vYOnyVoCLh7Z3/SINzihQzYmyugp2t0/Em4GHK49dJCUxoy yTIUq7gNw9MgzwlHixVIzk5aLPQcAQFji5d3kCKSyJmMApsxkHX1VqziKaHf QlNbmcYTwAu3qpWNKSOuvTBdmzUJKf5Yi+anghiRhQ5VWlPw4L3TUF/NSlS+ +4+yUh0pCFVLE9RDVdFixCFrH8Y0HKrSdndRXo1oKm8yzRengfI5QRZK1iBr 56hKVwUZ5AVs1r2UuxbJP9wXa03J4Mck9mW+QA3tDhdw3WUyEIW+LKbVq6EL 8302yXIZaHuIZiOb1ZCBDpMzvYKAWXLbyn2damjPdxzTFg0CEgt7G70RNcRv PhLGtSLwmPmzjnQthbbU6o2oxhLYV77ETPSl0CnvnXyHeAIxvWqbNf0p9LLf 2y4ukYD6tbmogkAKeSleSB/iEJi5ys9pDaPQaTS/SZBFoAd3x9vGU0jwoj0i +S8CtazY3F2/U0jdVapVVkEgxNnDdDifQn4djPLpagJHHQ3FvxZSaJw4MoLr CZxbP6058IRC66yeFDl0E6iZOGWZ9YpCAdWNPnG9BLKZxjxXIYXuekqWigcJ PBv137TQRCG7KKO9huMEzDNaPg/qpFAK7WviKyXgmvn02PoeCjVxD9zkEgJO Fey5hj4K6Rj8tEcwT+DBu7BXKWIK/f8v2FA/0AKjFPoHG8p3yQ== "]]}, Annotation[#, "Charting`Private`Tag$3366#1"]& ], TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt2Hk4Vd33AHASRVwyFYkyltRXA0lpnaQ0iBKayCxj9BYpDZIyJNQrKRop Q14VJQlLGVKmSHLuvaZCMlznDtxC/E7P8/vrPJ/n7L3XvuusPTx3sVugrecM ERERhqiIyN+n+9PEkelpIR61n3NcoNAFihOquusnhfjPyp9Rx+S6oHLrI8eQ X0KUkjgSTkl3gW7H6w9DlBB/pZirCcS7YED6ezrZLcSsWt6UFtUJQb5G+wsq hNhmXPtj9+tOOKfDLPeKEmLiUNDScOtOuJ2qdb2eIUSDLwn+ayI7IMfw1oNX UkJ0HJ94eudsBxRXMZ4/kKDHMzPxmHOyA5gjvxuDp8bwvvpiDYFPB6hafJJR 54xh//YXHeM2HZA6dCbmaP0Yqm3timxX64A0s9Zw2bgxbGuxDhC+bod7ndGB eyTHMGPn5byzou3gMmd2Y7g43V53v8B5kg2aa6NWPBMdQ5c6K5WtQjY8jr80 zBgfRbszd0XUh9mQZxbhVzcwis0+3y0m29hQkhp2xLJuFHXD+On/PGcDc99R Z7OEUVx10qBkqycb0i4Ol/lfGcWNtfv6MlzYcPipv3pa1CgqDz4akXBkwzcJ v/bx86OoH59zr9WWDT9fHjlUFDSKA672wRkEG34puO5bbTuK72Cl8LcaG5Q/ 7bVZqjSK7BZR+7g2Fqg06H31mzuK2269WxHWwgK1uonDeTKjmOej8zbgEwsW 16QfXS0xit4rmmQP17DAoJx/1UwowDTLt3Z+RSwwf/Zv3R5SgJNFYmdNbrEg MPHz9tN3BJh0c67lHScW/BOf2VRyS4BWLAUjsYMsOBEXdmD6hgBnLCti+Tuw 4HS0lk9kvAD3c/psd9qw4HL48ej48wKsmdnev2YTC9KCFN4/dKXjBS0rKNZh Qc3uvRa1OgJUtdjzNpHLBP0U+Ucli+n2q3S7lnKYENfZJJ63UIAG3lzn9wNM 2H109/tEJQGqZfpGyPYwoe3Krh0O4vT8gvttW1qZ0F9tubu7h488u7mahqVM mG22wVGYzsetC+efMrzKBN/IiZL+e3zs+fay0D6WCXW1xQuZqXw0Htlufz6K CYkH13WW/MvH2Wy7l50XmDA/1Ngt4iIfCYkxkS8hTFhSYOgt485HxTue1ddc mbBtqc4JLU0+Hm75LWlnygTHWRztg+p8NFWUzzMwYUJQb+GXRFU+amte0JQ0 ZsLNB9vWTsnzUTPL/Uz9Sib0qfiPt4nxsc3RVHBxKRMipQrC43t5KO2zQpCp woSU/rCVVd08bIspuFM6jwm51RbfJtp5+Cw0Yd5XJSZ8jmjd7NPKw/jynWeU 5JmgOfFbwuI9D6d+fZEsl2LC20Hi6u8sHj6WXmlUN0lCywfJjYaPeOjI0OpR nyChP7OZ4/WAh9odfu7Bv0mQ8/DY3XKLh10/RD8vHyPBhR2l8DSWhzMzIKRu hISpuoZbHv48VEXR+vLvJMg/ubkj1ZuH7x64XNj9jQTdGJeJJg8ehtoqS/R0 kbBrC88RnHgop345XLmDhLRSpUWq1jyknE6uy24jwTTP8XHj/+j24fffXGog 4b8vcoYvl/Ew6Tzvh0k9CYv+VL6+rcfDjFJOPFVLgoTV8npPDR7mjfVaBXwg ofnnH/4Eg4fejo3RaZUkbJmbf7ZbiocWe4/HHq8gocjEa9Z7CR4qx7yVsHlH wt2oBtXrU1zMeO4YqFBOgq/OvU1LOFx0Gbsq0vyGhHarvbUyA1wU6b34ta6Y hN0nZtnze7l4XV57ad1rEowrAr3L2rn4UN99Q9srEma4Egl29Vz0tmZr6r4g IThaMN/0Axer12g3WhTQ+X2a9VCjiouqB5XHjuST0DAlVzhQwsU8198Fb56R cDutmx2ey8UQj+KRlP9IkKm84eWVxcUUc7tjrFwSwge3UzszuJjrnBKgSdvL NF9sXhoXKx00WktzSCBdva5O3qTjGbqZy9O2ilGd9+1fLhZvt1nql03CqrYI /f+ucDHZZMkR/SwSHk0bv7gexcUTDMWyxEwS5usNmoVe5OJurZyEicf09w3e u2dzGBf7Jb887HhEwkcF7VDSl4tlH3VimOkkmK1vE0UvLh5OcX/pQfuZW9yV DDcujmfsdOQ/JCH5ueBu4EEuKoepqqrTliSzltg70PEtRFcWPyDhjIhTvqkt F+V3XX93kLabTVWV+A4uUqoF9tn3SfgScspmcAs9ny7zfftob7u7nPy0ic5X z5nPkrTfVHW7FZpxcUrP9WP5PRJWDN8YSl3HReuckfVnaD9Q3BFywYiLiX5L lmygrbhhatprJRcb/OYkiNCOcs+PsVpO989JCfpwl4TxWC+FVUu5uGLpp7pk 2nmRgVX6Olz8OEUF+dB2Oxd6UmsxF9nlO7wI2sqhF5aqLeSiR2B77gLaH4/F shRV6HxIZVtM3CHhnN+/V2WUuNh87b/lnbRXeaaBxFwulogPHnlPu+/wI+6U NBfVvVz5BbRv789LF87m4li+3KcM2ta2r+ypmVy0GPr15xbtGVbls36KcHG2 vOrZf2kXbvnwunuSQnPtE7uu0faFZj/mLwp5mrMC/75XX8da+FlA4XzG5+6/ /ZtX9TTWUhS+6P366O/4lw2GL1QOUViTrfTmb/x1umOrS/sp3H0wbvHf+Q1p TPe+7KEtXE920L6vMjslr4vCynDtb+O07RTm7shkU5g/tmXD398/W0Z18l4b hYoH7v8A2iUSWnkpLRT2Z67u8aYdJGLgcu0Thcbfp1f+za/2+Br52DoKJ6XE m97TbuObVUbUUGiisfntH9pxw1tDwirp/hrFM0zo70X8sFlyopxCORnfGyG0 s5iucZ5FFJbnnsgToevBscV34+EXFFo5N66xoi3XcJxyeEZ7yk06jXbo20t2 27IofCZq9HQbXW8Gb+IlNmVQKO91/PQj2l0vbhatu0/HKxxIlqDrdVtWttqy FAqnFkZWfKE9+SC/QSuJQtM1jz9v/lvvqW/C1RIp5BiLGhXSnpdQ3yMTTedD 1G0wM4Ouh+jWZIlIOr8fjhB69Po5F9G5bfo8hXbnHvfl0O4L5uZSJylsyG3Q RXq9FToqBX8+QuEOjY/BC+j16uugrlfnTs9v5027Utrqu/XISmcKrd3vRLrT 6/vy5nVmhfso1D1g11byhAQHfSfxW5YU+h8MsE7PI0FK2+vVtc0U9vwUfXXk KQllCwN9YoHCFs/GIEN6v9Gde6E+bC2FylpKbQ3PSRgVZtw4rEehZsHOYHhJ wsHoVzfTtCjc/79TqFxIQvn8j7eYGhRK/d5Vy6Udt27kjsN8CptPDOsVFJGg GbbusbUkhQMyM0fdSuh6mUwNONs6ghbVCR0h9H7sv/Dtsd8NI9insmpzbBUJ azf2BQe/H8Hx4jCfB9X0fnje8FxA0QjG9s6cYNbQ+Z5RFe90ewTXsDkrw+j9 f58k56nZ4REstlk8EviVjqev8OK1wwiWnTY5ivT5wdlhUmRkM4Km/LE8eSYJ kXER5cuJEUys8wmuZJOQLzuvaaHmCDYs0lO2p88nhjLB+9PLwdM2Ipn6HBIq Na+vKQvg4LUqA4nM2Uywbr06cNOTg4s2hu27QZ+fbTEx9485cfBrRLRCtDQT hqhwaZ1dHKwM6qw9LccEBQzsuWLAwYsd58xuzGeC26FdSQcGhzFVNFL7Ln2e iyTNFgi8h3G1V6aoiA0TYi1n5jS4DGObe2NO2B4mfZ+eds7aP4wPlheWTeyl 7xduwtpD24YxX6dcV/IAE2wM+9Lf6Q1jUWaVcL87E+7WVexN7BtCZ37ynbpQ JqwXP1+wzGMI1bNtf4ll0v37rkomOg5h/A0bIzKbCcrv05wFdkP4glG1Mz+X CVR08ZzSLUM4O1NFPCifCY+lx9yt9YaQCvTJViljgrxigOKxgUF86ZZepPP3 PqV5KLgwaBAX1IVzF0myoFXMt1bVZxBjrBOcjkmzoKIndPF510F85KScXiXL gruPk+stbQeRszi++JQyC/bqN+uQqwex1Fx7gZw2C8pWbm+dGBtA296Bh6PA giRi7dpNZwfQPq+7Lv00C8SqR9prgwfQdYHbJsdz9H1zZ1akw9EBPNo85j0/ ggV7HFSa/ZwH8Jq6U1NqDAsY/hP+yZsGcGLFwlmNKSyIvokPB8Xp8Qz9JH68 YsEZjiUjOf4nar3caNf+iwXuaft7B+71o9b7CoPvl9iQ+OKH2eeb/dgtRmQP x7KhrC4k+U1CP6rNyw2fTGCD6p8ky7jz/Sj9di+hd5sNn5yaspc792OLZveM 53ls2Kix42iQej/OUhck3aDv/yoP1wtH037gMG986OH/2qExU11S9HYf1ijH +TcMtIO69LOVWNiDGreUB5+GdILUor7GnznfUHYjI0n/RRf4211Kycrqwttf PUzVarvBpaKzVv16O360KPcz5nwDTbOpPVUXSJxWVDUo2tkD2d4F3W8Kv+DI lNGizOe94Mt/7njldhMuK0hPlNv/A1acEz8goVWLLx0Lat+p/ASFUy1zklMr sKp+wjKKPQBfPfz1n34vxCVUTqzdjyE4eVo//sONu2j5fobniREO5CSYEBmG d0B+7VFW3iUK4n0utLpEvIIJ0+Zl+95wQUZgtT53TwXAgRkSikM86DpRvSYk shZWPzX4csVSAJzXu96drGmCNR/eXpTLG4XHUQ9cPGK+wAmH1rapOULQGXui EJpK73N8l3v+Kb+gI1+jdL13O7gWhl/1VB0H+5td0YOJXeCdYeyUlz4Bdx/F lVolf4PO9nmmWs5/YOahgGHxUz0wOH1W/pr0NDS4ZGfaRvaBco8RI+WkCPFS RtVJ6N8PQuwr4buIErq3F/fPshqAyKmHtpt3zSDGQyL/PNk7BFveXB8VcxAj BscXMLJMOJAhk50kbj+TuH8kqmWBFgWGRPr1yWPiROKmujgVHS7M0a/5GHZd gmAEPjGvUOJBk0JHuWfmLKLMoqi0UJUPzdHuukvYs4k/Ac7GDgwB3HQuv+85 U4oQndV8a9kfAdg/VxSzWjGHMN72z7sdImMQOSgy2n1Kmhhn5/Yr8cbARne5 ytJXMoSFf03irrEx6K8kGRUlMsTVie8ml8bH4EzSSKrTOxlikeqCGMEMISRX O5xJqpchLPfFLP2sIIQ7IQoOkj0yRFKTp2+ikRA6xbcGyM5lECuq1YekTglh Y3eC/lU/BhFqb5pkflYIe+65yZgeYxBve+w3nL4ghMPxd6N+hDAIO7GrcT9j hHB0eo+5RQSDCCMmDGpuC+HQ8sxPM28xiJrirwGXSoTgWyS152E1g5DfwVcq LReC6eWgnP11DMKRZJQJKoUgcQlSZZsZxIhwC8OjXgjxSiqbz7czCGWjF3nm HUIIiih+4ilgEC6VjQ6nvwlBvc2nfNE4g8jeOzj1vE8I1Ycj/NnTDGLDP5r0 SSAE6WlOrP0cWeKy6Ebhfr4QcuZv/iM/V5b4lHjgXqJQCObuIrOalGUJ1UXB ljUTQmjr0M1KUJMl/v//DDhypbDLWlOW+D8N9Rio "]]}, Annotation[#, "Charting`Private`Tag$3366#2"]& ]}, {}, {}}, {{}, {{}, {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{0.8660254037844386, 2.3774426752361646`}, {0., 1.}, {-0.8660254037844386, 0.4206200260541148}}]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1.5, 1.5}, {0., 4.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5890436282748275`*^9, 3.589045366455638*^9, 3.620495363382832*^9, 3.746128374136281*^9},ExpressionUUID->"bae48351-b65d-4ff2-95c1-\ f7a5dbcfa243"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"f[x] = \"\>", "\[InvisibleSpace]", SuperscriptBox["\[ExponentialE]", "x"]}], SequenceForm["f[x] = ", E^$CellContext`x], Editable->False]], "Print", CellChangeTimes->{3.5890436282828283`*^9, 3.5890453664636383`*^9, 3.620495363393833*^9, 3.7461283741475644`*^9},ExpressionUUID->"5a452e45-b02a-430c-985d-\ 2865c143a2f2"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Chebyshev nodes = \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.8660254037844386`", ",", "2.3774426752361646`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8660254037844386`"}], ",", "0.4206200260541148`"}], "}"}]}], "}"}]}], SequenceForm[ "Chebyshev nodes = ", {{0.8660254037844386, 2.3774426752361646`}, {0., 1.}, {-0.8660254037844386, 0.4206200260541148}}], Editable->False]], "Print", CellChangeTimes->{3.5890436282828283`*^9, 3.5890453664636383`*^9, 3.620495363393833*^9, 3.7461283741497116`*^9},ExpressionUUID->"6ae303e4-d020-42e4-878d-\ d3116b4c6f4b"], Cell[BoxData["\<\"The interval for approximation is [-1.0,1.0].\"\>"], "Print", CellChangeTimes->{3.5890436282828283`*^9, 3.5890453664636383`*^9, 3.620495363393833*^9, 3.7461283741527605`*^9},ExpressionUUID->"7b45c266-4417-4044-bdb3-\ 4b08a418a93f"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(2\\)]\\)[x] = \"\>", "\[InvisibleSpace]", "1.`"}], "\[VeryThinSpace]", "+", RowBox[{"1.1297720832616132`", " ", "x"}], "+", RowBox[{"0.5320418008601863`", " ", SuperscriptBox["x", "2"]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(P\), \(2\)]\)[x] = ", 1. + 1.1297720832616132` $CellContext`x + 0.5320418008601863 $CellContext`x^2], Editable->False]], "Print", CellChangeTimes->{3.5890436282828283`*^9, 3.5890453664636383`*^9, 3.620495363393833*^9, 3.7461283741552677`*^9},ExpressionUUID->"d61a35e6-2eb5-42cb-a4f4-\ b341dc644c49"] }, Open ]] }, Open ]], Cell[TextData[{ StyleBox["1 (c).", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Construct the interpolation polynomial ", Cell[BoxData[ RowBox[{ SubscriptBox["P", "5"], "[", "x", "]"}]],ExpressionUUID-> "63dbc52f-368b-4e9b-a7c0-706e6955aebb"], ", of degree 5." }], "Text", Evaluatable->False, CellChangeTimes->{{3.589044016679454*^9, 3.5890440174214544`*^9}, { 3.6204953818656797`*^9, 3.620495383017795*^9}, {3.746128382883399*^9, 3.7461283839838176`*^9}}, AspectRatioFixed-> True,ExpressionUUID->"522f4f4f-2ef4-45b7-a9e7-e7c25cb4d038"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", SuperscriptBox["\[ExponentialE]", "x"]}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"n", "=", "6"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["t", "k_"], "=", RowBox[{"Cos", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ")"}], " ", "\[Pi]"}], RowBox[{"2", "n"}]], "]"}]}], ";"}], " ", " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"XY", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"{", RowBox[{ SubscriptBox["t", "k"], ",", RowBox[{"f", "[", SubscriptBox["t", "k"], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], " ", "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["P", "5"], "[", "x_", "]"}], "=", RowBox[{"Expand", "[", RowBox[{"InterpolatingPolynomial", "[", RowBox[{"XY", ",", "x"}], "]"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<Chebyshev nodes = \>\"", ",", "XY"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(P\), \(5\)]\)[x] = \>\"", ",", RowBox[{ SubscriptBox["P", "5"], "[", "x", "]"}]}], "]"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.6204953737598696`*^9, 3.6204953951250057`*^9}, { 3.7461283969808044`*^9, 3.746128399103194*^9}}, AspectRatioFixed-> False,ExpressionUUID->"6f3c0942-21a6-46dc-82cb-7279aeb194ec"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Chebyshev nodes = \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.9659258262890682`", ",", "2.6272188791614393`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7071067811865475`", ",", "2.028114981647472`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2588190451025207`", ",", "1.2953993747569994`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2588190451025207`"}], ",", "0.7719627008370198`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7071067811865475`"}], ",", "0.49306869139523984`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9659258262890682`"}], ",", "0.3806306387076443`"}], "}"}]}], "}"}]}], SequenceForm[ "Chebyshev nodes = ", {{0.9659258262890682, 2.6272188791614393`}, { 0.7071067811865475, 2.028114981647472}, {0.2588190451025207, 1.2953993747569994`}, {-0.2588190451025207, 0.7719627008370198}, {-0.7071067811865475, 0.49306869139523984`}, {-0.9659258262890682, 0.3806306387076443}}], Editable->False]], "Print", CellChangeTimes->{3.58904368890989*^9, 3.5890453885088425`*^9, 3.62049540416591*^9, 3.7461284034086514`*^9},ExpressionUUID->"d7a9956d-8922-440c-a279-\ 42f95bae296f"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(5\\)]\\)[x] = \"\>", "\[InvisibleSpace]", "1.0000445799970972`"}], "\[VeryThinSpace]", "+", RowBox[{"1.0000063309015323`", " ", "x"}], "+", RowBox[{"0.4991983481300666`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.16655279773853643`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.04379232983690419`", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"0.00863564600722579`", " ", SuperscriptBox["x", "5"]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(P\), \(5\)]\)[x] = ", 1.0000445799970972` + 1.0000063309015323` $CellContext`x + 0.4991983481300666 $CellContext`x^2 + 0.16655279773853643` $CellContext`x^3 + 0.04379232983690419 $CellContext`x^4 + 0.00863564600722579 $CellContext`x^5], Editable->False]], "Print", CellChangeTimes->{3.58904368890989*^9, 3.5890453885088425`*^9, 3.62049540416591*^9, 3.7461284034131136`*^9},ExpressionUUID->"d65da430-bac0-4926-a116-\ 43055be4cf3d"] }, Open ]] }, Open ]], Cell["\<\ Now graph the function and polynomial, and interpolation nodes.\ \>", "Text",ExpressionUUID->"10d91bc7-f360-40bb-9d31-1840e68dfef5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dots", "=", RowBox[{"ListPlot", "[", RowBox[{"XY", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"gr1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{ SubscriptBox["P", "5"], "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Magenta", ",", "Green"}], "}"}]}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{"Show", "[", RowBox[{"gr1", ",", "dots", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "4.5"}], "}"}]}], "}"}]}]}], "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<f[x] = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<Chebyshev nodes = \>\"", ",", "XY"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "Print", "[", "\"\<The interval for approximation is [-1.0,1.0].\>\"", "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(P\), \(5\)]\)[x] = \>\"", ",", RowBox[{ SubscriptBox["P", "5"], "[", "x", "]"}]}], "]"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.589043694256425*^9, 3.5890436977037697`*^9}, { 3.589045378089801*^9, 3.58904538388138*^9}, {3.74612840834221*^9, 3.746128417274401*^9}}, AspectRatioFixed-> False,ExpressionUUID->"4622a2ce-da74-46f2-b520-e80f1a2b5153"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt1Pk/1HkcwHETVqOafB1tjIfzMQodu0KK3feHIixbcqw2NiLKg1XYKYpW D9dsyuw0HShtG1JKSWlrl49cTWtcIVGYXA3jHubDuHb38dgfXo/nf/AyPBy5 /8gKBQUF93/7z6CH3PHlZYLR1VsZqRlC0JzXMbFdINg58jXH4YoQqp3y/Niz BJtZEe3l60Iw6X7+emSC4NQDfYtn7glheHXf7Y6PBK/Kies+XyOE42FWviVV BNNNWn1k80JIYHVWhKQSvNjg87dCWD1kZRvz6hkES5wcd9C+aYCbPWmRHnQZ ntws99FlNcG6Js+9plozOEnJOnrWqBkE+zx317GmsYGNyqZ5szfgbMqKMTaS 4ra3Ihv/gy2ws8gvv3HrFG6LvaEUyGkF+S8hGhamk/hlUZ3d2YE2mCG5l3/Y MIHxmW0nijzaodqIZ1keMYYrnzVpPHrxDmyVz5aYB4/gBpON0R++7wQ+2r7d Pn4YT7bYddFn30PQdd+B4ZtivF/xev7tvC5ovKNHp2UN4vzo7HQZvwf0Vj/6 Epf2Y7/MFL5BhQhUDQYbh+714rQYmovL+48Q7pV8raBAhHV5W4VRin0QUNVT p8frwpXro80lG/vB6Kslj5rEDmwpN9GyPz0Ad4+WfPyztA03bjMJXFk3CGHS Yr/zWc04dKAlkPGtGLYkKB/4zLgOW2jy9Jd7h0AjtnXVlewqHKpjzk6IkUB7 cLjZw75SfIyScLx2jcLJOLOLry/n4Hb6p0/jjHG4l2GDcr+4AbVzs4XH2RNw 8Vji24Bzz+DS4U6GjDMJa6bdbO97VIGyXwtxy54CUUytJTupDmZ1e/YeeiuF sefulScFzeDObGDO6M9AfuqtgGBOG1RvfD6eEyIDlqxQ41R2B7hfUKJb9xDo fqxfZnu0C7LUP4jp3nPgfVWUJuGKwGVmlirukENOXnqZ25VeUNEf2tGUuQBK ByNGlWP7Qdi97vYOnyVoCLh7Z3/SINzihQzYmyugp2t0/Em4GHK49dJCUxoy yTIUq7gNw9MgzwlHixVIzk5aLPQcAQFji5d3kCKSyJmMApsxkHX1VqziKaHf QlNbmcYTwAu3qpWNKSOuvTBdmzUJKf5Yi+anghiRhQ5VWlPw4L3TUF/NSlS+ +4+yUh0pCFVLE9RDVdFixCFrH8Y0HKrSdndRXo1oKm8yzRengfI5QRZK1iBr 56hKVwUZ5AVs1r2UuxbJP9wXa03J4Mck9mW+QA3tDhdw3WUyEIW+LKbVq6EL 8302yXIZaHuIZiOb1ZCBDpMzvYKAWXLbyn2damjPdxzTFg0CEgt7G70RNcRv PhLGtSLwmPmzjnQthbbU6o2oxhLYV77ETPSl0CnvnXyHeAIxvWqbNf0p9LLf 2y4ukYD6tbmogkAKeSleSB/iEJi5ys9pDaPQaTS/SZBFoAd3x9vGU0jwoj0i +S8CtazY3F2/U0jdVapVVkEgxNnDdDifQn4djPLpagJHHQ3FvxZSaJw4MoLr CZxbP6058IRC66yeFDl0E6iZOGWZ9YpCAdWNPnG9BLKZxjxXIYXuekqWigcJ PBv137TQRCG7KKO9huMEzDNaPg/qpFAK7WviKyXgmvn02PoeCjVxD9zkEgJO Fey5hj4K6Rj8tEcwT+DBu7BXKWIK/f8v2FA/0AKjFPoHG8p3yQ== "]]}, Annotation[#, "Charting`Private`Tag$3461#1"]& ], TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtlGs01GkcgA1mlRjzz2pFKZxRk07bBdm0fm/SZeWaSyxtUya1lqZaidlK WiW2y+TQhaI2RJxUotuatzVTRw2NS9iZYuQyMeQ6M6/GpW3P2Q/PeT49Xx/b Xbytu/X19PR8vvCfI8sEQ58/ExyRIczivZbA1xNWDm6TBPsa7yu2bJGAeGNB RPw4wXJz1YHqNgk4tD9+OTBM8INSF5blRwmoTLpuyt4TbFiQu7x2Vi3sj3YO LRcRnHBcVbHth1o4xpI/i0olmBvk42XwvBayc+wz6hgE7z8ayO8U1kGe4jQv YKYWt5syrN1UUphTH+jHttDgomSG5wH9BqjxD/SUsNS4tPSSXqVFI2xms+Ls 7cawoKXpT6lvE6y5E1Eo/XYUv+N8mt514g3o0qPMV7JHMJtuJ9rd2Qwakp/1 06JhbBJlmS71bwWxXYaTMHYQ69G/43Q9+Qfc6EnljtwB7HnLLOFIuBwy0erV 646qcH1DesaN8bcQeTW0R5XXiz3zLVMnC9pAestmJi1biRvzjCI1mQqwMbm7 Ald246v96vhx3AHGC5XSvtudOFTzsI329j3EBJ28XFTUgcNd++7OM+gCjkgh sclowzGKol8uLu4Gu++nA54ny7C3aUf0JL8HiveWv39a2YwL5NSitldKiB67 F/FHdgNe4sXzofv2wrJj9LCv7CUYey6asuzqA/PEN7Mu5oiw7eOhuxVx/dDK jVlS1lWJy3g75DfXf4TD/CXnXmbl4pSdJSe2mA3B7fOuKH/5NXhebj6QGz8M 535ObuGceAiGtFVcm/QRMFV7u5UGiCArZzogOmcUOuJeOMWnSMDAcbZzTMsY DD72qT5c0wC1l3VhQws0UJh6g8NNa4bEp2a9qVFaYGlLzBNyZDDvsIOHmYJA +/0FVW5724B13q5FFvQJgi91nO4XdMCFU04zk2Q6yC04U+V9sRNq0Z4LBVcm wTA89iM9sRsK0kZVNiHT8JpTfGtrihJW7Ay1X+eohypMrbaTmF6Id18V94hN Qw7Ztr1G3ipQ8hXs7Sv1kS4+ZaokcAB+Pb7enRdpgPp11owi10FA2xNXfpNh iK7vSX1jbT8MP4rDRY2DdCRYV3tmLmsELGJMko6EGyEGr8RDZDEK+ec2zBGL ZyCh56OqSqsxoF2aNPzANUZTsTtcQhhq2L/RL6yQZoJoRo1XHKfUcHn+3Ai/ O6bIZfPBai89LbT6lBdKc8yQ7l1pr8WoFrI3mRq4VzORZ0yNwEerhSBaPnXj BROdnehyPanTglyZ606XMNFCK+s0tT6B7N/r1PVNTLRpWxq7yZzA3A9RskM9 TJTZsDta4EzA4T5fqJlBoWUvbAaMEwmEWkCj1J9CCcFrMj2OfunNYPm2YAr9 3R28lp9M4HjZ/ApFGIWCDM6e6UsjUJ+U5qTeRaHf0MTSmmwCzqevU46HKFTz pDX25F8EnjgvSK6/QqHZXmMWVc8IeFzbGhudS6EIGUOoFhPwH3qQQr9JoSGy gcGtI+BrP88FSik0x/nBHY92AklezJJnQgpxxNIQfieBLUtDxiNFFCoO7J++ pyRwREkOzqih0NqDdn62QwRe+UaNBDVQ6BTNnYSOEeA2CjWTzRSqF4TlCQiB HbL0xYVyClktPLSpZoLA9X3MdH8Fhf7/F/QUZ1lNdlHoX/vGbgY= "]]}, Annotation[#, "Charting`Private`Tag$3461#2"]& ]}, {}, {}}, {{}, {{}, {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{0.9659258262890682, 2.6272188791614393`}, { 0.7071067811865475, 2.028114981647472}, {0.2588190451025207, 1.2953993747569994`}, {-0.2588190451025207, 0.7719627008370198}, {-0.7071067811865475, 0.49306869139523984`}, {-0.9659258262890682, 0.3806306387076443}}]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1.5, 1.5}, {0., 4.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5890437010711064`*^9, 3.5890453944464364`*^9, 3.6204954170021935`*^9, 3.7461284202770267`*^9},ExpressionUUID->"58995a23-54b0-45a7-980e-\ cd7a260d09fa"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"f[x] = \"\>", "\[InvisibleSpace]", SuperscriptBox["\[ExponentialE]", "x"]}], SequenceForm["f[x] = ", E^$CellContext`x], Editable->False]], "Print", CellChangeTimes->{3.5890437010821075`*^9, 3.5890453944574375`*^9, 3.620495417016195*^9, 3.746128420283741*^9},ExpressionUUID->"220f9c6f-eae8-4b6a-b487-\ 6942c95b3fb3"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Chebyshev nodes = \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.9659258262890682`", ",", "2.6272188791614393`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7071067811865475`", ",", "2.028114981647472`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2588190451025207`", ",", "1.2953993747569994`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2588190451025207`"}], ",", "0.7719627008370198`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7071067811865475`"}], ",", "0.49306869139523984`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9659258262890682`"}], ",", "0.3806306387076443`"}], "}"}]}], "}"}]}], SequenceForm[ "Chebyshev nodes = ", {{0.9659258262890682, 2.6272188791614393`}, { 0.7071067811865475, 2.028114981647472}, {0.2588190451025207, 1.2953993747569994`}, {-0.2588190451025207, 0.7719627008370198}, {-0.7071067811865475, 0.49306869139523984`}, {-0.9659258262890682, 0.3806306387076443}}], Editable->False]], "Print", CellChangeTimes->{3.5890437010821075`*^9, 3.5890453944574375`*^9, 3.620495417016195*^9, 3.7461284202878075`*^9},ExpressionUUID->"debb17eb-20ca-4138-a53f-\ 46c5e68232aa"], Cell[BoxData["\<\"The interval for approximation is [-1.0,1.0].\"\>"], "Print", CellChangeTimes->{3.5890437010821075`*^9, 3.5890453944574375`*^9, 3.620495417016195*^9, 3.746128420290079*^9},ExpressionUUID->"c4d07c28-1bb1-4299-b06a-\ d1195f903f51"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(P\\), \\(5\\)]\\)[x] = \"\>", "\[InvisibleSpace]", "1.0000445799970972`"}], "\[VeryThinSpace]", "+", RowBox[{"1.0000063309015323`", " ", "x"}], "+", RowBox[{"0.4991983481300666`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.16655279773853643`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.04379232983690419`", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"0.00863564600722579`", " ", SuperscriptBox["x", "5"]}]}], SequenceForm[ "\!\(\*SubscriptBox[\(P\), \(5\)]\)[x] = ", 1.0000445799970972` + 1.0000063309015323` $CellContext`x + 0.4991983481300666 $CellContext`x^2 + 0.16655279773853643` $CellContext`x^3 + 0.04379232983690419 $CellContext`x^4 + 0.00863564600722579 $CellContext`x^5], Editable->False]], "Print", CellChangeTimes->{3.5890437010821075`*^9, 3.5890453944574375`*^9, 3.620495417016195*^9, 3.746128420295142*^9},ExpressionUUID->"eefaed18-6ce7-4bf7-a605-\ f2c52fb050cd"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Example", " ", "2", " ", "below", " ", "uses", " ", RowBox[{"NewtonPoly", "[", "]"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5890449862316236`*^9, 3.5890450066506653`*^9}},ExpressionUUID->"15b228c2-f293-4251-9dda-\ 72221770ff35"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NewtonPoly", "[", "XY_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "j", ",", "k", ",", "n", ",", "X", ",", "Y"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"X", " ", "=", " ", SubscriptBox[ RowBox[{"Transpose", "[", "XY", "]"}], RowBox[{"\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]]}], ";", "\[IndentingNewLine]", RowBox[{"Y", " ", "=", " ", SubscriptBox[ RowBox[{"Transpose", "[", "XY", "]"}], RowBox[{"\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]]}], ";", "\[IndentingNewLine]", RowBox[{"n", " ", "=", " ", RowBox[{ RowBox[{"Length", "[", "XY", "]"}], "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"d", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"\"\<\>\"", ",", RowBox[{"{", RowBox[{"n", "+", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"n", "+", "1"}], "}"}]}], " ", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ SubscriptBox["d", RowBox[{"\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]], " ", "=", " ", SubscriptBox["Y", RowBox[{"\[LeftDoubleBracket]", "All", "\[RightDoubleBracket]"}]]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", " ", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", "n"}], ",", " ", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", " ", RowBox[{ RowBox[{"k", "=", "j"}], ",", " ", RowBox[{"k", "\[LessEqual]", "n"}], ",", " ", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["d", RowBox[{"\[LeftDoubleBracket]", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "\[RightDoubleBracket]"}]], " ", "=", " ", FractionBox[ RowBox[{ SubscriptBox["d", RowBox[{"\[LeftDoubleBracket]", RowBox[{ RowBox[{"k", "+", "1"}], ",", "j"}], "\[RightDoubleBracket]"}]], " ", "-", " ", SubscriptBox["d", RowBox[{"\[LeftDoubleBracket]", RowBox[{"k", ",", "j"}], "\[RightDoubleBracket]"}]]}], RowBox[{ SubscriptBox["X", RowBox[{"\[LeftDoubleBracket]", RowBox[{"k", "+", "1"}], "\[RightDoubleBracket]"}]], " ", "-", " ", SubscriptBox["X", RowBox[{"\[LeftDoubleBracket]", RowBox[{"k", "+", "1", "-", "j"}], "\[RightDoubleBracket]"}]]}]]}]}], " ", "]"}], ";"}]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", " ", RowBox[{ RowBox[{"k", "=", "0"}], ",", " ", RowBox[{"k", "\[LessEqual]", "n"}], ",", " ", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", "x_"}], "]"}], " ", "=", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "k"], RowBox[{"(", RowBox[{"x", "-", SubscriptBox["X", RowBox[{ "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}]]}], ")"}]}]}]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SubscriptBox["d", RowBox[{"\[LeftDoubleBracket]", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}]], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", "x"}], "]"}]}]}], " ", "]"}], ";"}]}], " ", "]"}]}], ";"}]], "Input",ExpressionUUID->"c41cb93f-76c5-\ 4f64-8453-08ddc7e3ac21"], Cell[TextData[{ StyleBox["Example 2.", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Find the polynomial approximation for ", Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x", "]"}], "=", SqrtBox["x"]}]],ExpressionUUID->"0fecb385-6452-454b-a589-406bb42908a6"], ", on the interval ", Cell[BoxData[ RowBox[{"[", RowBox[{"0", ",", "2"}], "]"}]],ExpressionUUID-> "64093962-56da-41a3-8e88-ee22c7e49aeb"], ". " }], "Text", CellChangeTimes->{{3.589044940472048*^9, 3.589044959942995*^9}, { 3.746128471796259*^9, 3.746128472886448*^9}},ExpressionUUID->"10f30e4c-4d7a-4639-b1c0-\ 7e3da78a087c"], Cell[TextData[StyleBox["Solution 2.", FontWeight->"Bold", FontColor->RGBColor[1, 0, 1]]], "Text", CellChangeTimes->{{3.5890449647754784`*^9, 3.5890449670957103`*^9}},ExpressionUUID->"4bc986c2-ec34-4818-b2a2-\ 0b13ee466a3f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", SqrtBox["x"]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x0", "=", "1"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "=", "0"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "=", " ", "4.0"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"c", "=", "0.0"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"d", "=", "3.5"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a0", "=", "0.0"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b0", "=", "2.0"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Rends", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a0", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"a0", ",", "d"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"x0", ",", "d"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b0", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"b0", ",", "d"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"n", "=", "3"}], ",", RowBox[{"n", "\[LessEqual]", "6"}], ",", RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"aa", "=", "0.0"}], ";", "\[IndentingNewLine]", RowBox[{"bb", "=", "2.0"}], ";", "\[IndentingNewLine]", RowBox[{ SubscriptBox["t", "kk_"], "=", RowBox[{ FractionBox[ RowBox[{"aa", "+", "bb"}], "2"], "+", RowBox[{ FractionBox[ RowBox[{"bb", "-", "aa"}], "2"], RowBox[{"Cos", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "kk"}], "-", "1"}], ")"}], " ", "\[Pi]"}], RowBox[{"2", "n"}]], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"XY", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"{", RowBox[{ SubscriptBox["t", "k"], ",", RowBox[{"f", "[", SubscriptBox["t", "k"], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], " ", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Cdot", "=", RowBox[{"ListPlot", "[", RowBox[{"XY", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "[", "x_", "]"}], "=", RowBox[{"Expand", "[", RowBox[{"NewtonPoly", "[", "XY", "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<f[x] = \>\"", ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<P[x] = \>\"", ",", RowBox[{"P", "[", "x", "]"}]}], "]"}], ";"}]}], " ", "]"}], " "}]}], "Input", CellChangeTimes->{{3.589044066854454*^9, 3.589044071191454*^9}, 3.5890442269024544`*^9, 3.5890442595154543`*^9, {3.589044341556454*^9, 3.5890443426214542`*^9}, {3.5890449095929604`*^9, 3.5890449106950707`*^9}, {3.5890451004467955`*^9, 3.5890451026192303`*^9}, {3.6204954806805606`*^9, 3.6204955211206045`*^9}, {3.6204955713976316`*^9, 3.6204955782043123`*^9}},ExpressionUUID->"34366df7-bbe4-40dd-bff9-\ c718f12cc862"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"f[x] = \"\>", "\[InvisibleSpace]", SqrtBox["x"]}], SequenceForm["f[x] = ", $CellContext`x^Rational[1, 2]], Editable->False]], "Print", CellChangeTimes->{3.589044354019454*^9, 3.589045106386984*^9, 3.6204955978652782`*^9, 3.74612849204036*^9},ExpressionUUID->"aa5e3295-7a48-4ba9-a1e8-010f3c9ba2d1"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"P[x] = \"\>", "\[InvisibleSpace]", "0.2440169358562923`"}], "\[VeryThinSpace]", "+", RowBox[{"0.9346158590977895`", " ", "x"}], "-", RowBox[{"0.17863279495408185`", " ", SuperscriptBox["x", "2"]}]}], SequenceForm[ "P[x] = ", 0.2440169358562923 + 0.9346158590977895 $CellContext`x - 0.17863279495408185` $CellContext`x^2], Editable->False]], "Print", CellChangeTimes->{3.589044354019454*^9, 3.589045106386984*^9, 3.6204955978652782`*^9, 3.746128492044525*^9},ExpressionUUID->"55f113d5-8302-42eb-9e4e-\ 851f877f54d9"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"f[x] = \"\>", "\[InvisibleSpace]", SqrtBox["x"]}], SequenceForm["f[x] = ", $CellContext`x^Rational[1, 2]], Editable->False]], "Print", CellChangeTimes->{3.589044354019454*^9, 3.589045106386984*^9, 3.6204955978652782`*^9, 3.746128492081693*^9},ExpressionUUID->"97c67dd2-f2ee-44b3-9a2b-\ 4aab3e7b9f1e"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"P[x] = \"\>", "\[InvisibleSpace]", "0.180239955501737`"}], "\[VeryThinSpace]", "+", RowBox[{"1.3015744007259509`", " ", "x"}], "-", RowBox[{"0.599575061183714`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.1294702727603084`", " ", SuperscriptBox["x", "3"]}]}], SequenceForm[ "P[x] = ", 0.180239955501737 + 1.3015744007259509` $CellContext`x - 0.599575061183714 $CellContext`x^2 + 0.1294702727603084 $CellContext`x^3], Editable->False]], "Print", CellChangeTimes->{3.589044354019454*^9, 3.589045106386984*^9, 3.6204955978652782`*^9, 3.746128492084899*^9},ExpressionUUID->"3f23797a-3fc4-44cf-8d48-\ ea6f2329305a"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"f[x] = \"\>", "\[InvisibleSpace]", SqrtBox["x"]}], SequenceForm["f[x] = ", $CellContext`x^Rational[1, 2]], Editable->False]], "Print", CellChangeTimes->{3.589044354019454*^9, 3.589045106386984*^9, 3.6204955978652782`*^9, 3.746128492117627*^9},ExpressionUUID->"3e72b10b-c138-4802-8c6e-\ 89e7a4d3ee5b"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"P[x] = \"\>", "\[InvisibleSpace]", "0.1431841912319176`"}], "\[VeryThinSpace]", "+", RowBox[{"1.6586505447271682`", " ", "x"}], "-", RowBox[{"1.33983211973243`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.6622910432537499`", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"0.12429365948040572`", " ", SuperscriptBox["x", "4"]}]}], SequenceForm[ "P[x] = ", 0.1431841912319176 + 1.6586505447271682` $CellContext`x - 1.33983211973243 $CellContext`x^2 + 0.6622910432537499 $CellContext`x^3 - 0.12429365948040572` $CellContext`x^4], Editable->False]], "Print", CellChangeTimes->{3.589044354019454*^9, 3.589045106386984*^9, 3.6204955978652782`*^9, 3.7461284921228294`*^9},ExpressionUUID->"45bcbaac-768d-43b6-847d-\ b559da1f4ff0"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"f[x] = \"\>", "\[InvisibleSpace]", SqrtBox["x"]}], SequenceForm["f[x] = ", $CellContext`x^Rational[1, 2]], Editable->False]], "Print", CellChangeTimes->{3.589044354019454*^9, 3.589045106386984*^9, 3.6204955978652782`*^9, 3.7461284921609735`*^9},ExpressionUUID->"70c31bdb-f159-4437-bfa8-\ 1bce1d84661d"], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"\<\"P[x] = \"\>", "\[InvisibleSpace]", "0.11886806295456087`"}], "\[VeryThinSpace]", "+", RowBox[{"2.0109157795668624`", " ", "x"}], "-", RowBox[{"2.4780453117565537`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2.06878811617937`", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"0.863342128990937`", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"0.1390892986741725`", " ", SuperscriptBox["x", "5"]}]}], SequenceForm[ "P[x] = ", 0.11886806295456087` + 2.0109157795668624` $CellContext`x - 2.4780453117565537` $CellContext`x^2 + 2.06878811617937 $CellContext`x^3 - 0.863342128990937 $CellContext`x^4 + 0.1390892986741725 $CellContext`x^5], Editable->False]], "Print", CellChangeTimes->{3.589044354019454*^9, 3.589045106386984*^9, 3.6204955978652782`*^9, 3.7461284921658225`*^9},ExpressionUUID->"55a20de5-0d38-4284-9f1f-\ 91a80cf579c6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"graph", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"0.24401693585629242`", "\[VeryThinSpace]", "+", RowBox[{"0.9346158590977894`", " ", "x"}], "-", RowBox[{"0.17863279495408185`", " ", SuperscriptBox["x", "2"]}]}], ",", RowBox[{"0.18023995550173702`", "\[VeryThinSpace]", "+", RowBox[{"1.3015744007259507`", " ", "x"}], "-", RowBox[{"0.599575061183714`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.1294702727603084`", " ", SuperscriptBox["x", "3"]}]}], ",", RowBox[{"0.14318419123191756`", "\[VeryThinSpace]", "+", RowBox[{"1.6586505447271684`", " ", "x"}], "-", RowBox[{"1.33983211973243`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.6622910432537499`", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"0.12429365948040572`", " ", SuperscriptBox["x", "4"]}]}], ",", RowBox[{"0.11886806295456091`", "\[VeryThinSpace]", "+", RowBox[{"2.0109157795668624`", " ", "x"}], "-", RowBox[{"2.478045311756553`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"2.0687881161793698`", " ", SuperscriptBox["x", "3"]}], "-", RowBox[{"0.8633421289909369`", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"0.1390892986741725`", " ", SuperscriptBox["x", "5"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ "Magenta", ",", "Blue", ",", "Red", ",", "Green", ",", "Brown"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "10", ",", "2"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", "4", ",", "1"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"graph", ",", "Cdot"}], "]"}]}], "Input", CellChangeTimes->{{3.589044374672454*^9, 3.589044453335454*^9}, { 3.5890445066244545`*^9, 3.589044584483454*^9}, {3.589044614769454*^9, 3.589044648675454*^9}, {3.589044693472454*^9, 3.5890446939994545`*^9}, { 3.5890451591975436`*^9, 3.589045174691642*^9}},ExpressionUUID->"b6a3163d-350c-42a6-8167-\ a6e0611589f3"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVk/k/1PkDx92mHJ9V2xaJhxyVK9tubLX1estuRKdIJCpqSwp9qXT5iqlU KE3YHElDhIQZrSNJQ0gr475rSI5h3JPz8+37w/Px/AOej6fWUS/bY1ISEhKn v/N/Wx/rrSnu89sSanco6EreOshYqHl3qtpB4OYrlhU9xi+PomNzVN1hcEHD nuWcim51ncDzemfwNEIqgktlwuZDY3acqi/MNRjs3qEs6NxZkURr+qN1OCKi XJGDWWu3qCN6VyHnKqGXMcmFg7v4VYRqMBQTgqIDnPPAs1B7+Tb2OvKWPfpo 15MPE+3NL8Y1Q8D5aCqqdSoEQ3Atcb9eGExCQ56wqddoX3vDIlSVhegw3d2f h96A9WhZse7BB6j6cvehweUSWFPPfi+KjUTK4KIaZ9m3yB2qWi/S/BuRtfXS JYo8hGUsWr1XLx6ZtjfWPJ0sRcKS3ddvqbJRZeF08qJzBS59iOLtz2djbWjM FZ03FdjP/CSlfTAJEaazM9Y6lVCc8AkoiE1GxTnnwd09lbhQx7og1EzFeWn9 HdVOVdh7v8Vjl95zJLX0/ZVAVSOQkbMqRJWDirNC/86hGuhb3ruZ7c1BqsFE ftQSPvhMr77Wdxz0fmXy5jbxoSNtmGZ8jgsjoeua1ht8lM2xjev4ucgwuJ2v rF4LxbHI9Zp38hAuF/2+yKwO0e0XLbjzRdi9x8F08I8GmKs7sjvsX8P/Z3/D Ve4N6Hcyk2VkvIZa+UP++qAGaAj93TKMiuHcaj9WW9wAr5OmuhJtxaBzuD26 GxuxyD0zJem3EpQpDGxO1m3CAcfHmcMjPIxmOFlHdzVD1Gq3MFGtFA5m5duy Z5tx3YVxbJ9FKYQaAcs5S1qQ4+allssqRX3gwSPeli1QPrOZecmsDPF9rY/5 qS0ovdbsJHflHUonfbb5erRiXbqKnDqjEqMr31x+1tYGBTrQ2VKjGhyXvnbH sE7o7h3qfXu7Dqei4laGaglw/t8NiB5vxgF9TsrA4W4s5ah0SEp2onVbbFLx nz3IFVhUVf8uwDGPt0EnVveixCNuuaOwG3GflfZof+rDhN5mKuP0V/gqS6dc OTIAqam0H5br9iMutXRxnlAIU/pw7r7nQrQ/rLMKsRlCVfCv/5bpiyD0OeaX yRJB8+7AVOrQMNb8WHGV7TeMAXFnR73JKIrTyzme1AjY/QWVymFjqPaPP7Dh xQiUVzwVdXePo5qR7Z1rNYo7J7nHE3QmcSBWaeY+fxSTJK37RIAYV6Wcmt65 jcF3HY/z09tvCHiwvfT+1zF0PufdrtGaRrDfxQb22XHMeNTFrLk4g+DxrRnp 4nEYmMvPHy+YRSnXJqjTewKWiVp/ZS2dR1HYhi7bkQmcX+G68rMzDXX5j4Yp xydhKLRXaNwpQb4VaCQeb5zEYmqYwZuWIIedQu7t3C2GzOuYTO1YScJieZZR r8Q49WtB8wIbKdLr+bKZ//M3pG0/mlA0KUVGeTkTjonfMDGg9kNPpDTR/UDW 3lgwBe4+S2nWHzLk6an0rIjzUwiwYj7i9MiQ9yZ2XUltU9Bqt256wpQlDTM/ ZZhvmcZGs2CW6jo5UvZy7F5U8jScNaqnJGvliK1OgyZTbgYTlaEC70B5UqSd JZI/PYNoGRdfWx0GGTTecu7U+xks7uAmSvEYpOj7HSV6s5C9Emi3wWcBefC6 NevWzVlIpLpkChYtJOb2KgZPBLM4+zAzdFHJQrIsPdZI0WIOrwxuMlTOKJAi ZojhtYQ5qFifNbymrEiMt6a7PpucQ5vRx1r/QkWilt3vILlvHi/iodPtokRU VXdGbEqZx6FMU5UV80rkQ3qe9ZfpefyX+Tiw7ZkysX+vPxK3j0ZG74oY5R0U cQgKPnkjicbNOObhjl0UcacFVmPJNNxtB3Wf76VIlc7AUteU750KC1/sdKAI z0ySaZpG41b4wbI7RyliJg6M6X5B44Tp3yML/SliKl9csLmQxsrgH63kkyki s/Z4Uxefxvxvl5UaUygiOvtL1s46Gs2DXfzkNIqM80X+L+tp3HXIObQtiyJn /La03mqiQevb/odZSJEDil7tJh002mrC46VrKWJsNv3Zv4/GP9fFbrX1FEns +ydf0E+Dtcl1zZMminzNuxlkI6Rhk2TM2dpBkQFt9y/qIhr5Fz5UBPZRZGTx n/1F4zQijdaH7xVSZNfzdxarJmn4CGLttEQU8dvoGRouprF6h2dn8ThF9oRo j7hO05CRrGPfFVPk3KWNCuUzND5xN3kcnqbI9qJLS0zmaBR6PFlrMkcR5xN9 VPQ8jShNhQmapsj7cOY0TdP4H5QEZss= "]]}, Annotation[#, "Charting`Private`Tag$3711#1"]& ], TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8VN8bB3Azc+/YYiIRWSq7pIV8s54nyhptypI9ypLKlvRLsmshISlK RSr7/q2or50oa6IFLZKiMJgbwu/017zer3vmzJ1zz3mez13remKfO52Li4uX xsX199PMfaSz+nugfkSfD2tKpx0RhhInB8WtUH215WK4SztSz0hNLxV3Q733 w7wEY9qR+aveklviASjwSP9Tsa52ZO1GPUsUj0StzhVSc+odqH9jjGGceDLK OzHj4PWiA91ZuTv6ongWOmO/pf8GuxOF8ZQqXhAvQwZ+D95o6L9GNrZ3Cycm 61GzUva8ifhbxL8UZm8s3Y6s4uz0Sv/Xj+T3/hqpu/QaFYt6iUt0fURBbVoo dfotGh/Wr3Ja+ozEyoQGaLRBdOLGfXrq9BCq+Gz4sl33MxK5vmlUc2kY1Xrd Wm07NoTUdKSNQ0dH0IyCHivf5xsy8h4yksz6geizuctXy/9AHDtyb4bPGNJc cq7YXzCGfpm4dZWQv9DLSI22RpVxNFEz4fMtYhzJJIzOPvo1ga715i5axkyg UWpwoGcTGzU0nqkR0ZxEWT8qWwTjp1CZt0eUxfdJJCj1YHxoaBppfDV1GY5n o8ue5UfuyHHQrIz5BvE1U4gDuUMeoRTiLn6243zpFArYUl8mWvcb0X2nPW+r T6PBgvpLnWvnELgkt64pm0bzXq/TlM/Moxw9XsYHxRm0fjv34pHKP2j8SKru +YszyPje2qPFYovoTO0tb+PRGRQk5bTuk/0SqlCLI0R1OUh17AB/rwUXtAhO GtiFc9AK1gRP/RwXoLqzJ+PrOajr2cUY0wUuWHWwp823gYMSj8kz25e4IEGg Pc2qkYOEW+wY7wga7PtxP2xVM3ZUw8K4IA02Hfp09kYrBy2fv8leLUsDI4kr m893cdCybzs/+JvT4ItAY9LHQQ4i/ksrlE2nwVDLXZ2fvznone4Ok8HbNAhN 8NCvmuWgwqdjH2/epUFm3bGUi3McZFehJyz8gAYJfhuM5P9wUHH+YABXCQ2+ s69k7VviIMd0We3+Jhpkh7y1jyMp9Dg4tz5ligY7Ks9VhgtRKJ7a77CPQwPt LVPuusIUOhz4Z0ZglgZPRe+7z2AL+looRi3SwFGpxs1dhELuHuMX/HnpIHf8 nYueGIWErdV375Ghw7OIq9avJCnkrVH5ltecDkK9Qpt9FClU3dGT99iCDsma zZGCShRa6TMRenQPHcZjv6sXYv93X16h4QAdtjB9sn4pU2iFWILfeWc6fHUN anNXpVDlrBs/FUiHxawbRls3U4j/P0G9oTt0oO8SabLRppDzIeXlSZl0eMhU jv2KXU4ZftmeTQeFsodZvjoUctoUfCEjlw6F30bGY3QpVHr3S49dBR1+Fh1r z9On0KHIx8c7W+mw5mVYSa8BhXJNXe8859DhoPxnnhIzCmmortVHs3QQz0tW WGdOoeeCH9//N0+H3seryq9id3Q7iNVwMUDH7ZrciV0Umnawja/jY8A9uouF rCWF9P32nG2WZgDHYXvjyb14/E19my4jBpTFKxy4Y00h25CFmX2mDDj3mjdu EfuzU1VStzkD0J3nW+1t8Hxy2u2v9zAg50X625W2FBIv3GrUa8eANW7rvcPt KORap6rx4TgDrv57tRwcKDQzKrF8OIUBsX3h3/a6Uij51rem9BsMsLmw4n4W tvrustD96QwIUtv+lIPtW2IxXn0X3+8B/9HUwxT6efp8W1oeA7LF1D173Cj0 lRy+vLeWAX5ea7rUjlIo8t+SHTwNDFBzPs8bhC3rGfrneRMDtpmFpD7Hdnm5 6pjqKwZozVs8M/egUH+iuTl3HwPGOszWOXpSqEemmPfZTwasMi+xPexNoYDO kBr/CQb8F/WJ7y72igizYJUpBpSX5a8YwN47/GXk+m8GxI9Lqh48RqFXeaLN fgwCJvoOntb3oVCD1tloJXECzpzZdm78OIXcRk30B1cTIDin+WjdCQoxbq3k XJPG43261h/A3s5V6M6QI+Dulo//PMZ+1vhpx4AaAWUbrb1PncT7Z78xI3kH AWm/S1C3L4VizR9HSRoTMBOcs3UW295Qmee+KQGQM5wq7Uchujq/QIUlAQ/F Njw4im0p3C7aZ0NAlTz7Mxt7LR/ccD5EQLo0y1DEHz9PWvHq7w4EeDeeXL4V O20ycc2cKwH96+hTAdgjHQdVJH0IYLIcen9iVzY35WWdIMArNOMuXwA+r9Xb Nm7wI+D5bYW3CtgaRRIa+kEEaP2gJzhgh10Z0HMOI+BU2ZRkPbZVzO7qkQgC nNIP7f2ArRRabeAbjcer80xNYbcdv2ccfgnP57Px3NpACklYHtmbdQ2vn2hF aSD2z5293aqpBPwv0HDfBexqPZOD5TcJeBex0jEd+8gGlUONGQR45sc8q8bW kk/rt7xHwM1mRaEu7GVSy5x7swh4mris6zN26bJfbiOPCHilnpVGP0WhaMLp 28k8Aqr5rLOEsO3+tHvOFhCQmWApsQaba6z4OF8ZAbqP+C11sLu/rJtMrCCA rdPJb4Kd/T7Jf/UTAlJC3mtaYe9qDTyt+pyAUoHnr72wZeqG58qqCVhvn2Ic iM1+ah2iV0dAkm2pYih2Y0nzUkMDAT/JlYGx2DdytMItmwnQdKnceBX72L0c oreFAF/vbOsb2HBzdYzTK/z/5N6M3cFekXiZd6SdgIrLZuMPsIcvLFw62UVA bSbDqQD7SdhxwdnXeH09abpl2JeDBxPCegnIGzCMfoLt5LtnBd87Ai7SW/We Y2/xrLmW+IEA254U11ps0mXLqtWDBIhZP5huwO6zybyZ+YmAxpg/U83YeXtE pFSHCDhyNMW5FTvUJCqjbJgAaiZA+xV2l6OH/abvBFiGXD3bhi0XaC6eN0pA fm7u5nbsoEtqbxR/EbAyrM72r1vuCiVlThAQsdA3/Xe85OPp3TJTBPxeM0b/ 6xNtvcvSZggIGP0T8RK7dujpC9Hf+Lo9/+kWbJH5W9GJc/j7gWKDTdhHhMIM BRfw/W9d+6T+73oounFdXCKgOE2JWYO9TN/4GUknYd+jDY1V2I5WKmfCCBLm HTbN/otd5CXwzwKThNwnmzJKsBlhE1OneUlwrVJ7nId98Hp30TQ/CbJHVHZk Yz/Mr/A5KUjC9wpZwwzsubobKmPLSfi3QKL8OrbFu7Pfjq4g4bIF6+aVv/uB aejitIoEy/OTVSHYO6QUpN9LkKAlMjjnj31dnff9QSkSVHe35Hpi6zq3W1mu I0Hx6Y0j+7HjT5UItciRsOlHyElj7E+Xr7XtVCTBoMbpp/bf/f3kkImeKgnB bpLwdz93CI/oqGqSAKHBpkP4PKxTbv39YBsJkd/MRruxA1FBuawOCR0cca66 v+fxWMDG1UDCWb7i8AxstwYuWT4zEjYz60b3Yle8/zIYtYuEouwweT1sXnZj Om03CZq/9LoUsQuk40Rn95Ng71cYOY/P++8gcb4RBxLmLE9ZpGObxf9pPOxM QoXiOpkI7FtZgxGDriScftB62BPboPP+wpujJAinixlpYF9W2TLZ4EtChm3S 8Tpcn9b2m/VlRpGwWkFidxOudxdrdQoPxJJg7BLjfg+b/UA1mvsSCTq9Yz1n sWv9BDW8E0gI8L9TvxHbjafrypY0EtR9ct7G4fr6UN3WuKaIhCF3088quB4v FzeT9i8l4ZSFduo8rtfBi9ozchUktJ2QfdiKbfZCMjO2koTXbgM9ntijjh8X dzeSsH455XEb9wO1i0crBt6TIHis1GcE94+UEzZxCQMkcHMp1RVgL1mZuhl8 IqGxLdkvALtDZr1w9jAJqZLWgwu4//iW//LxmSQhNvjcBA922cdA+T9MJqRt s5lcwv1N+5/IZPEtTLjQ+o+PL+6Xb1zFNW9pMIEWfc9YCds/vqB3zT9McJyM vDqA+2ve1z4JJV0mtL0r8jfFlk7ecFfTiAkRv7N8V+F+TJ98k7/fjgkGTov7 05wo1Jqj3BQXjud7F1iigfu9x5vnHkJRTLApfvO/tzgPEHQrvmsxTEjRKiwL wda3PWeRfpkJLfZNAfU4PxRxd3fnpDCB/itJzRzni2S3sx+bcpjQqHM7Vs8K 9zPp9llaNxMSI4PelFvgvCfuV17ZwwR3mVwbhF2zYqVvYB8T5CqIzc043yjw HhoZ6WdCUK/yUC/OP+NTw2/aR5hg/V3HatyUQuEvFktvLTJBwCz00OJO/DwD 1I5rqXDD/qVw5i09XN9PdCpPqXKD1KpTFkLYAl4BX/M2ckOf6pUfkTif+Tk9 tV+zFV83U1f0wvlNx8zInBu44dN+wxxVLdyvZByVeg5ww+Gs8N6rGjjvtMR9 PhnGDbpa59o+qFDoA3+Px58IbqAeGcQaYdfukhyPieaGnWU/8wtxvkxoy5m/ fYkbbl+jdM/j/KnS1STy6ho3bL30zlNCAdeftzRj5RxuWNjev7hlLe4P3wJz P3Vxw7KBnpUzohRKJRwD9snxAHdHElXFRaHFw2JbOxV4IG/O2obEdqvrmNmt zAOD12tVLHD+3hRuGGShxgNLypfk3i9wUPOS0hmTbTzAl//dewLnd2puKlR/ Fw/YqX0w5ZrhoIOTFy6pBPDAF6nrBuUj+P1joPwevZ4HYovcFAPaOIgMCbPS 8uWFK5yMobdxHMT1yLHwszAfGKm8nJM04SC/m4VxwrV8sP5hkABiz6Bn62N5 hI7zw7aFvpUxSTNIyMxPNVxwGTRLXHvdv3kGfdjQ0R1ctQweljCHup5No6Lb SG7IUQBEUorrpo2nkUOhppDUogA8Ptj+8nTrFDofdTfsQ44gDLuEVHpoT6H8 Eak0wV0s4HqsKPbwERvF3opyHrBkQeIcqSDwgI3c9v2UL9jLAisBufO+WWwk WVVVZGHNAq9MGdFtGWx08cqhxsuuLGi5KvKiKpmNPDRvTPIF4+tBM2ZZoWy0 LlLEhDubBapHkp6PWrHR4razAr0PWZBT4L1Vex8bvf35pSs7lwU2TRFUzG42 SrAudTAqZgF4+jusNWOjJZV9/lFVLNh1Yk+ROWKjD51XbjO6WWAQSfM7p8xG j6Opw909LKhof5Neo8BGyTpOypl9LDg4OipMyLGR+X21MoMB/PtJPR+jpdno 6elXL8K+s2DZ/WxG5Ao2Stmw9creMRbM+Z6JrVnORr6f063WjrNgFSveZlGA jZR2HRusnmbB0JOAd4E8bETQXmclUCyIbzK+XESy0cdyHS/nORZ43Le78IPO RlVemRs3LbDAb39+pywXG12X4Z9ZWmJBXidyt1+YRP8H+cvIIQ== "]]}, Annotation[#, "Charting`Private`Tag$3711#2"]& ], TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAASmXo0cDpdT7aFFQ5GxLHPwRDGnDf GVQ/5sKUPGZGxz8zn5icsxlkP7INRR+iesc/S83Xsp0ZdD/geUaP7OLHP1dk 972SGYQ/8K4KcMyyyD/dL4dDjRmUP6yeiOa6T8o/oBVPhooZpD9XK9s2aH7N P4EIsyeJGbQ/g9dvcNjX0T9YWaGv8PHEP6rbe9HLLNg/C/+BXEcezz/qEsJL SaPdPyVR7ujDi9Q/Beb7ZmZM4T93zjk/mPTZP1dbacWjx+M/F7QR3gEB3z+G 9ls4u+nlP7biQ8zPPOI/YYwMn0gK6D/Cap0bWezkP4ICR/DT9Ok/9SY9D61t 5z8/9eZJX5rrPwL5qxAbJeo/VE6eNM4/7T82/2C2U67sPwxUWCEVq+4/zIQ0 zsYq7z/2ygqdE/bvPx+Q6/mp7vA/BK8cgkai8D/r99/e1TDyP/YNt8hiNPE/ pOq7yg6O8z8obYMgxcnxPw4dp+/k5PQ/l5esiy1V8j+MabVmoCT2P9RFi2Fg 0vI/9kCr5Gh/9z+MHQQJt1bzP3QyxLQWw/g/1OL9OqfQ8z/frsSL0SH6P7Oe o67rVPQ/+2rUmyl6+z8N2hoszdj0PytBB/5mu/w/DFcIBFFX9T9HoiFnsRf+ P32CcK4b5vU/dx1fIuFc/z/eOSXGY3L2PyzsVQvXTQBAglUV6AME9z8TD/AI xPoAQN4b+DPSrPc/BL+bryOcAUDVT4eqJ1b4P2s0u9kJSwJAqr3xbGYc+T+r SWKgvvYCQBUftlnJ7/k/9esaEOaWA0Acu1HtlMX6P7VTRwOURARAGoWYZmLB +z9/SIWftOYEQEg+ZijXwPw/Id1K2KOFBUCiOTUv8s/9Pzo3hJQZMgZAIkzC 2AYP/z9cHs/5AdMGQDh6b4TeKABA9cqN4nCBB0DdteidVuYAQJgEXnRSJAhA StNbZ8WlAUAT3rWiAsQIQDmoPL3YbwJABX2BVDlxCUBwfpr6CFwDQACpXq/i EgpAcBv9cEFJBEBymq+NEsIKQDSZzEuMXQVAvSuICBFuC0DMW2AtMoEGQBFK ciyCDgxAwM0KBE6kB0DcLdDTebwMQHrNBUik9QhAsJ4/JOReDUBeX2xpyEUK QF2vNhEd/g1ASor2zvmjC0Cv/suedyUOQAAAAAAAAAxASgCYnA== "]]}, Annotation[#, "Charting`Private`Tag$3711#3"]& ], TagBox[ {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt1wk0lN0fB/B5npmxFsJbDVqsIcVrac/vl5ItRVG2SlK0eVVEb5tKsiWV 5EVFSUQLSUpFogUhCZWtiMm+zTN2/9s5/zlnzpzPeZ659859fvd77yi7/bNx F81isfrJ+8+n5S7+p/zfvsYjF2bo1W8qAM5qBe9Gnh2MfKq/cDS6AAxuxsQ/ 5rnDQfqFxmBtAVh9rMm8zvMBjmK6eeDWN7DFXfjyMi8QhoomOLK7CqFe9/zq C7wo4MU5yfQdeAsJf20ICuUlwZ22dYu0PYrhtNjjeSG8LLj3usfh4HgFODgm PuztKwQPp9JLIvtqQXLytIvZ7HL48No1re9YA6jbdvPfhFUBVbRm4fm6H+BX thRiBr+CuapzbYxLC8zImtZAUY3gEGR62Xh/K2T/XF1avuIn+CTX2WV78qFg 73VFx84WuGX5LsppXjsINFZK3z/QBmHtOQssb3UAPZwmo6jeDqUWTi7jSl2w aNI1e9ODTmjJX3bvoEc3lAYalr3V7gE1h/rVJ+N6YE5kx3Bqdy9sVqkaj/fq hQ5hY8MXvX6Qcp3zqYrVB0ntucVSEQNwIb5LNC++D6Rm3e1paRkE5upyDTPD fgjf82R3ghoDOee2eaXn9wODaS2ep4TwTXfC+uuWAfDRL8ya/mYIpsfv+mzb PACNDwrDPimPQPyWlhIPv0EY3VsVp/XvKMTPKo2pYQtg/irRid25YxAU6vls eYAAzG4pe2TMmIAYfbGo1jEB+M3arvLDZRKCZToPHnZnwM1Gb3PdjkmY6/WK 7tzFwPqzVGjN7kkQY1HxOz0Y0Ph9u++j9yRstjdq2bCXgaosfv7zwEkYe1qT oeTNgN66Q9uj0idhyPKQT9AxBvj/nos3G5sEh8wO2ahLDLRvnu+ZyGLh7KlK bR2XGXDtlaPnsFkY5FV9xySKASvVX0YKYizk+0g1dkYzoBJy/rqMLAuZvCPq hvEMVNiV7h9XZ2HsfHHNC8kM6HTaS9ZYs/DBtwxFt+dk3uzW5YXasLBubsC2 h7kMrH5pcth4EwttLFyMRl8w4BSh+/2OAwvls8RiI/IYCNETT/PZyULz9TEK SYUMtPq8sJQ9ysLastxPwWUMJIyrhFonsXB3YkG+7g/S326eMXWXhcF7EgfW /WTgaZl0f1YqC/WvZV70bGag7OaYo9JDFhrOaBuP/cXA+KpqrY5nLGRdqAzr /E36Dwr5EFzOwvgcf6NV/QzISfeKFY6wUET3cn0yJYTKl6HnLcZZ6HJsu9wp WgiX96uLlE+S+8tP59mzhSBb7MT+xqGwtlrsyASH+FzReI8UhYZ9dctWiglB ZjS2X1GVwiNGzIx/pIRQkWp0MFGdwsBHY6oLpYUQ6VDRo6FJoXf6wisdxNLZ 3K6/F1A4Yr4sesc0IUgd9G4zW0zhiltfpyyTF8KUNtO6w1YUJsQNp8bxhFB6 tclp2JrC9hMzN6OCEMLXHPt60obC7qJ822ZiyVuPqkPsKZQNzNJXUxKCxFbF Tze3Uzh3Nfhfmi0Esc+9RSWHKeT7SQzPVBXC+9Nha2yPUBjx9JroLeJgPY03 1f4U3rh/xVZLTQiiEc75P05QWBWVf1lfXQgiFm+fC89T+Kj672TdeULg5MU9 VI2nMOcZ3V+pTdbJijXmjTcoXMtY8sznC+Hh886m2EQK+yfuyecSO2WvlJW9 S6FamszpWB0hZNxv9GFlUrgu+AcFC4UQND946ossCv8tcY67ReySqpfs95RC fbf/Rtm6ZPx3Ttd0v6Dw5+Bd8XzibfGqy+rfUbjZsFdn1t9CMFQorYwppjBZ 3eOjF7F4jM8+u48UtjqqzntFnHWlKL6kksIWrYRJe30hhE7zMjr/hcyfz/C/ N4hdL04vM6mlMGXHh5QWYskwj8ln9RSecRDK7zUQQpOYTIxvE4USjfwNqcTZ QTl6fzdT2DTpt6iV2O2MuFsKn1xvjph0MBTCElbmyM4OCtO7kxoiiKeedLoy p5tC83m+bgXEOUfTCqMHSP9hjrYqRkKIEG7aupGh0LKMyVlPvNN3TDB1mELc 6/rKn3jJQFLEh1EKZay+bk8w+lMv1vPOTVAY9OR2XBFxS7cgDykaNcwpbz7x 8/03HMbYNHJG9b+LLSL1176276kIjcVzjn7XIN7l2RNyWJzG9h1y/5gQL2u9 pqI7hUbjtxjlTCzjjrntUjTuTwOLQ8StP/ibkqfRmPnBOjyI+MX2S5075Gls 0E9xjiG+XL/03KwZNLpsDHtyl9jD+eesrzwaHbr0Y7KIV3wNzY5SotFb5RuV Ryy7xWCDzRwapfbm9r4l5ld9b5NUoXFmtMzOUuKXGwMD3qnRqFMpu6X8T/sV Oryz82g8fnuk+I8913/JMNamsZo/+eIjsXHpCcsRHRpffHOc/4FYzlKj+Yku jYaSIF/wp/13ZccO6tM4tuuXbw7xK1M/+QVGNG7TO7M+nTjqzZz7/MVk/OKW 8deJ96x6b5q0jEb/395bw/+0n+fdsH0ljYMq2pH+xPIreX6KSGPsjhR9N+L2 56+la0xorLo3a7UFcf6SvSmXTWks3Zqbt4A4Olt21XpzGlUMMpOlifcZ5n4V tyJeqc90k+eVX/ElPceajFdpw5ZS4r8O9J7ysKFxaOyE0V3ivDvqGkX2NJ7s XOBmTyxvgsOHHWjUu7D8vibxnganUhVnGoM3+XgNk/qSmxF5KMCV/N6Ko+uu EHs+vmequ5PGJNOyXS7ELzcUzWzYRWO309ZuFWKP4JFXy/fRGGVsuDaF1HPu sLuk0Jc8j9GmxitkPchEn2q440+jV762iTnxLv3YDLtjNH5TzuCOkPUlva98 S2YAGY/xnlR74p11S5MOhJH7MxT1u8h6zfG381OKIPO9u3l/OPHUv/6xLImk EaXfjGgSP7VO6tWMpnGRd7qYE1n/knlSK1sSaMwXNcqNI3nh6qwlc+U2jYUL y1zUiZ8IVzevSqZRZsJgdTrJl+16R0NuptGo6WdYk0Hy6HFi8xenbBrtdC/+ jtMk+WE8kSL+jMashTNPSRNv/TbzeE4ujXPbRi0DSJ6Jyq1Xmf6aWO7iSUcN ITgH5nh9KqFRza9ZuZ3k46O5n1cFlNFYG2O62IyY+7JLXvcTjXVNe3wSVUje CVRyw6vJfCsnbrNWFgLb44Ko+Q8a+VYmeWdI/qZZuCW8YmhsWiwn5zaT5JWO sjEM0+iec23gxgxSj1JN3/NGaUx5/AO/Tif7x+etM16z2DglPUNx7V9CGNzq GPFGgo0pov/dZcmSejxkc/z9bDa6Z+a/FkoI4Z2dtIKFMhuHXpo+lSC2WVz2 9IMqGzkh4pSiOMmnMauBYk022Y8UwwxEhXA+yGzvR3021g0MWq8h+1tFrLFD 5Vo2ruix+bt5hAHHE+OCjRZsbAkYf1g8zMDP7S+ufLZi49xZXXseDjEwqLas vMqG9BeyNsSbYYD30GhtjRMbXXUTLD71kfPMGx3DOi825iRvOyDJZ0DQoSDT Gk3GIxE2ZUslA1HX297F/8dGu0hbqzcVDBhsyDq1KZ6NkSNTp+iUM3Aw07on P5G4b5rkQAkDXf4BZXHppD3TosLNRQz84raG2xawUSn8pc3hpwx8mZMh/rKL jfFKbUN9MQz4fDrx+nAvGx1OXnRtJ+cZubOWR7UH2GgubyrSSM47tq3N/GtD bHT5R4/9MpKBj+nT3x9ic3BdgE2QVTADRUuPB2nyODhThf/h0REGnmwyY0et 4eCjPbWt4TYMBFvlnFMyI9dfGxUbrGfAZbWW2B0LDqYETNeusWKANpCcmr2e g1Hh0x3kzMh5TrZ8eq0DBwPNWpbuWEnOZxWbtZUOcNAu49VRWy0GFNbvtk26 Su6XPT18ZEIAXaY1n3ViONj54Mr31FEB5K803/wkloPvtX5O1A4JYPcCbee3 NzmYcCuV0hkQwOMp3e78VA7qKIi9SWoTwLoSX3+dV+T7H+PCG8sFcMr83M2s Vg6uWJzZsP+6ACq3ebro/eaga3VDhWGsANR8rXjpHRyMV/vVPRQtgOLEaVdu 93JwLHn+Xd9IAciPXg+6PMLBJTtWfcGzAki5n33AW4qL8TZqYUqeAqiQ5S/X WcRFT0mtnXULBaCiVTJ0dwkX13j/Wq4xXwC+8OCJ6nIuckQluPvnCUBhv4+u InKxlz/p2jFHAO5FLFUJSy7KnM+UeCYjgCE/ngR/KxeDNbcfj+gbBOV6y9rb 57jISuv7V/7RIIQWLH9oH8zFR9JhJsfTBqH/rk6QaBgXNe+XDTckD0LBISnD fZFcND/tseDq9UFwF6u8qB/HRf+0VTsLQwchxcDR7PUjLsZ8T/o2330QFoZ6 ZDd85+LxXCvXqXKDsGxxYBRPXwQ7m7U54a4DUO3GW3TdUASr1G1KKOcBOBzx oGbuYhGMCsmMO2Q/AOm/ahU0V4ggf+PNDaaWAzA7akHiorUiWDtH7v0DgwGg +6rvb3ISwSTlB7xI7gCU3NN6d+GMCMmLKN6JO/3gMrt8mPosgt4OvKpzX8j/ E96hJ7lfRFCvIEeLV9YHr+X+OuhbK4JLugI5yW/7QEPcmc+vF8HBq6rG6U/7 oGegtbqcL4Ip0dXee//rgzMfJh5fnxBBzy3f1qU590GKz0Kvpdqi6NBYdlb7 ey8Iii/89D4tihXqwt8DoT1QJ/nFc+ysKMr8XmTy62gPFKxT6jkfJIpNYfs4 xZ49EFl2b/RGmCi+F+3OPLC2B7Qr38l/vCqKLMhdMIvqgW1fKTOte6KoF+Ni MtOnG962+ab9qBRFzZKrA842XRDD2eazUU0MvYO9b040tYNcw5NbdKEYProj 4pji9wu4J07bLT0ojgnXlnpbq9QDK3Xbw5+yEsji7rhkb1YKASumBbREE/// 9T8y9P4o "]]}, Annotation[#, "Charting`Private`Tag$3711#4"]& ], TagBox[ {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwdkgk01YkXx3/v936ebXqJoZ5KNFoYGYP2cm9RkpStxRIihUoKQ02mDUky BqGkFJXsWd5fSUrEMOXZstZTCU325e2e//v/7zn33HPP/Z7P995zro7nSXtv kiCIW7L8X93pPdj08luwmWWy8Psy/xdAmWsGcFmOMBUmtEucWwkmd1NuF7MO wwhlwosorATrt+1FaawgeHSkGc+GvoT9h/kV8axwuHO58jHFfgUffrlifp2V CAE37JyKl1VDuvqeyGhWJjgczTd501EHFxWKV1xllYDXHGnhaAMH9C3/iioK KIG2QKqHPsaB5oiT37prSyDDIFVHpNYEunSDHMPfSiFvRYTvdZcmeDOTadja zAbmQ8EXu29N8MNk0uolMU9BZ8RbyW+2GVI+nDUvlb6ASP2M6T812uCA072C sfFqmN9i32jO64DRbkel+5o1YB/cN1Y2rxMi3RS8HcxrwHp9+yXWqk4o9jqp yU6sgYy6W+ZpXp3A9N8c8fvaN2CwQnfHk8ZOqLnU6cwIq4W2T1i8MLMLjHPn MRYp1IOWtuqhs2Y9oDx70dVSqxFcw001N23mQorvfjeD7Y1go6V8LsuBC7qt Bh7z/BshabuynZwfF8wet3t1VzQCMQ/+ikviwtPHSaX/MeTA7LOt80ZHuDDs MPTc+h0HPPYWxx/f3Qt7s5IbAuc0w+miZJ0+Xi8ssxsZfH2tFWILBsoTTD5D yLv1kDLVCZp/cSjfhD6YXzLvI43GhV1XenTzw/qB/dn8n8ZNn8GHFzRg5jgI VX5pC52G+oD1OPvmIv43mF6+eW7eiQG48JRx+7nXdyCFOSoLl/0LUo0/LJx7 hmDNrAfbIX8IqrwXa20zGoF/wk3fvdEfhRjf5raW4FFYEvdd+HhkDGYLctYR PmPwnc/92GY0AeFNh/j6jHHI/Le8nhk7CfWWYaXOeePAXPxotK9vClTWVDFX 75qQcUqPpOvywGf/XfJZ1wTwMKfP5zwfes9tXHHQfxKCjKtLNF4LIItd/dpx fBK4+dXXmnREsMH90ALD0CkQ+7Wm6p0VQ2ih/dcu3hT8vEVeeqRcAoIVVgpO ftNgeV/n6JP5UhAE/W3RMjgNIYvdl35ynYXWHPF4sjcPDIb2KrfbELgA7wQp DfOgzHFXZbQtgRbfTWv/GOWBecXWQDMHAgsVCvKmxnngHPtL94MDBKanOm79 yuPBVSPFnCAv2XzkV24nwYf+oOc7Vc8Q6Pi+LklNnQ/pM0ujbTIJPFftwOSa 8UFt7phCtYjAw9FizbgUPjRXRF+xmpH5ZWu626byIf74MkbjLIExWh8rVO/w QbXemd5F0TB9VUh7Woasj6iZGWXSsDcllPM2nw8q4lsTC3+iYe6ZtOvJNXz4 YWBbT6A1DXu8UvYMTvGBqkwt+Ok2DZ+7Xctb6yKArk0WO7h3aLjOZfhGr5sA Cp4N9d66R0PXhPvjMZ4CcGZvVlV9RMMO22T1MV8BPMnjBhFFNDwe5hnfGyoA t9s/bfhQS0PHRM4F/2QBlJ3JqU6apGFUq2DavV0AsXyHg/Y8Grb+evPqhW4B eAVLpucIaZjysO3nB1wBME/ZrIiQyu5ZE1YoGhCAt8/o1UBFEtdd+8eqXSAA 1f0me2yXkLjSMWury0IhHDMt71S0JvEA8/WWYi8hvOS05ZbZkFg2kTpg5SME 9RNj54/akrhDc6nm1+NCqHywbHnNXhK1+zdu0PtNCGrz405f8CBR0JAgGowS QrnwsDI/mMS4qKnl1gVCUK5kbu5LJ9FHn23+clYIHi56KgkZsn1KfxufoERQ yjf/suUhiQHuA136SiJwNzpz9W4OiZxXuSHZP4qg+N6XNme2jDfpfuabnghc wsv8mxpIxEib/GN7RZBj5Zn+gkdiqOoSvexCEZga6JiBkMSs9OwvemwRvGD2 dleKSeyw8OLkl4uA03Jw/iuCjoXl3o51b0QwddAp9rUSHXdQyQkbPojA7LTt uTotOvYyTrlrK4uBc8vsQPN2OqZb1e5SPyYGp7CZaXsrOgrIrnXbTonhs/vz hBZrmf6wRHI2RAxTuhsaW23pOHZ/YqngshhYBau3tzvL9LYfz61PE4PnawPT Hn86hhY5GXzgiGH6u6ZKfxIdX24dWd24SQKJaQO1t2/S0XYVK9rFQgIme0rO O9ym44JE3z9HrSVwqshm9OU9OnLCe+oNXSQwHHrhXWouHRXiHrYonZXAV7n+ GLsqOkadqCqApxJoW/JEsWKYjkYekpimzTMQ1BT2KnCMjllm9+I9t8+A2uWd Z/Qn6djBLNsk2T0Ddv1fBpMFMv2W+jQrjxl4m6tRd5pOIe7zOGVzeQZq1p+L XMmiMK6g34VomIFSB0t6ogWFtiWExq5DUoiyLotYZEnhS7muPBc/Kbia6yk8 sKKQMI0tDAyUAmmiPIe9m0JBkZxqRYQUdqs2anQcoLCM68tgZ0thkLNPf9EJ Ci8kQP12nhQ0dx+xy7xBoYKtkbZ64iyc3xFxt6SfQo/jIR9ngglsdvNxNfpG oYFy/6n43wnUDbZm5X6nsGOf0/jPFwmsvzcvIWOMwizRWNWJGAJ/FKdFxotk fmpP56/KIDArj30igCmHWd7Dr9OaCOSoDm40WCOHxKeVXoeMaajzYWdHRoQc pmS62VtRJEZXbSzYGyWHhQ+fzr5VJnHikUGk/DU5HNxUf9tJjcSq00zTY3Fy WHdl5lnEUhIPKzT/aZwqh2XazZrGW2R/aeJk+apQDgN2Jiv2nifRMPoo+2O3 jPdswJhN0nHD2vBEljED6/btib6whML3nqw1aaYMLAsJWLVzJYWBsfnt2msZ GLeYmLvwVwpzv3ZortzEwANGl9Kbt1Kolbjq3prtDFy3QPfyzSMUkuPv8xyc Gaj9VvGP6AIKG7L1aq9fYqDCcMKJhZZy6KrVKKS1MDDdRkGiEstAJut0aXkb AwNORr0ru8nAV2rqp4I7GDh26cwdvwcMXK7oMjj4QeY/567d0HMGjk72v28c lPH2GVb5DDHw0t/S4jQpA11j7lda28hjVpCh/3p9ecQlDe7/aijgdP31zwEX 5TFdL+KqeoMi9ii3+Uguy2OrSvmj8x2KWLVr0eiVSHlckHBIfuqrIsa9yxbf uSaPkkCXDDGhhPrNtT++vSGP634hhZFrldCtk2aply2P1RMVZxMeKuGbgeCc T83y2HF9fE9BjDJ+2i3+NPBVHon/xw/4X8oUhpc= "]]}, Annotation[#, "Charting`Private`Tag$3711#5"]& ]}, {}, {}}, {{}, {{}, {RGBColor[1, 0, 0], PointSize[0.02], AbsoluteThickness[1.6], PointBox[{{1.9659258262890682`, 1.4021147692999558`}, { 1.7071067811865475`, 1.3065629648763766`}, {1.2588190451025207`, 1.121971053593862}, {0.7411809548974793, 0.8609186691537588}, { 0.29289321881345254`, 0.541196100146197}, {0.0340741737109318, 0.18459191128251476`}}]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 4.}, {0., 3.5}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{{{0, FormBox["0", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}, {6, FormBox["6", TraditionalForm]}, {8, FormBox["8", TraditionalForm]}, {10, FormBox["10", TraditionalForm]}}, {{0, FormBox["0", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.589044474748454*^9, 3.5890445890134544`*^9, 3.5890446509614544`*^9, 3.5890446984924545`*^9, 3.589045110242755*^9, 3.5890451660279093`*^9, 3.620495614774969*^9, 3.746128564312297*^9},ExpressionUUID->"8b719ad8-6ed0-4cc8-99e0-\ 162861f05100"] }, Open ]] }, WindowSize->{1005, 709}, WindowMargins->{{Automatic, 76}, {Automatic, 12}}, FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 399, 12, 30, "Text", "ExpressionUUID" -> \ "96fdb2d9-8530-4ddc-8de4-8c868d4585da", Evaluatable->False], Cell[CellGroupData[{ Cell[981, 36, 291, 7, 30, "Input", "ExpressionUUID" -> \ "b717844b-eb82-4f93-8725-36f60cab257b"], Cell[1275, 45, 517, 15, 24, "Print", "ExpressionUUID" -> \ "37707380-287f-4103-a2de-cc5ecea0a78c"] }, Open ]], Cell[CellGroupData[{ Cell[1829, 65, 291, 7, 30, "Input", "ExpressionUUID" -> \ "af882edb-8c4b-48ba-8a9d-7c05ba7da953"], Cell[2123, 74, 561, 16, 24, "Print", "ExpressionUUID" -> \ "c3b5b64b-0217-4718-9f00-2a803d9ce8f2"] }, Open ]], Cell[2699, 93, 976, 27, 50, "Text", "ExpressionUUID" -> \ "d28f4788-ec68-49c5-b33c-ae818a35318a", Evaluatable->False], Cell[3678, 122, 156, 3, 30, "Text", "ExpressionUUID" -> \ "854a4786-0a99-45ff-8865-5117c4028cfe"], Cell[3837, 127, 520, 15, 31, "Text", "ExpressionUUID" -> \ "a3ce4217-1667-417e-8ea3-02143414a194", Evaluatable->False], Cell[CellGroupData[{ Cell[4382, 146, 1880, 59, 174, "Input", "ExpressionUUID" -> \ "98fe6be3-dcf7-4b24-b5eb-33917bb38077"], Cell[CellGroupData[{ Cell[6287, 209, 696, 18, 22, "Print", "ExpressionUUID" -> \ "c92cd06a-da85-47ae-b26a-d74d4759f505"], Cell[6986, 229, 566, 13, 22, "Print", "ExpressionUUID" -> \ "9d12f5c9-b8a1-4541-ab10-56fb5cd2ecad"] }, Open ]] }, Open ]], Cell[7579, 246, 142, 2, 30, "Text", "ExpressionUUID" -> \ "874100fb-4a28-4e64-8b40-a8a7fb7c651f"], Cell[CellGroupData[{ Cell[7746, 252, 2081, 65, 145, "Input", "ExpressionUUID" -> \ "3cbc282b-f50c-4a1b-aae6-5c11b3fb2be2"], Cell[9830, 319, 5356, 109, 241, "Output", "ExpressionUUID" -> \ "0331dd26-230d-4ea6-9d72-b6b22df60e76"], Cell[CellGroupData[{ Cell[15211, 432, 403, 9, 22, "Print", "ExpressionUUID" -> \ "98f77e72-fd9f-487b-8b53-a93271995611"], Cell[15617, 443, 720, 18, 22, "Print", "ExpressionUUID" -> \ "2a4beb55-d3f0-4502-939e-c202f477a162"], Cell[16340, 463, 278, 4, 22, "Print", "ExpressionUUID" -> \ "8348edd7-ea20-40bc-a5ca-6eb1173869b7"], Cell[16621, 469, 588, 13, 22, "Print", "ExpressionUUID" -> \ "7eba35b7-f0b5-4a24-82dc-aebc37f9da31"] }, Open ]] }, Open ]], Cell[17236, 486, 518, 15, 31, "Text", "ExpressionUUID" -> \ "3b569df2-da80-49d4-ba3f-614497c9ab6e", Evaluatable->False], Cell[CellGroupData[{ Cell[17779, 505, 1781, 58, 174, "Input", "ExpressionUUID" -> \ "5f5aba8d-1ead-467b-b891-eea515cfa671"], Cell[CellGroupData[{ Cell[19585, 567, 771, 20, 22, "Print", "ExpressionUUID" -> \ "f9727687-eda9-4cc8-aecf-87bc86d286ca"], Cell[20359, 589, 651, 15, 24, "Print", "ExpressionUUID" -> \ "30320fd0-3efa-418d-af1c-407795e28b9f"] }, Open ]] }, Open ]], Cell[21037, 608, 142, 2, 30, "Text", "ExpressionUUID" -> \ "dcac7744-e583-4c91-9077-8ce7e7fc816d"], Cell[CellGroupData[{ Cell[21204, 614, 2081, 65, 145, "Input", "ExpressionUUID" -> \ "68dd156c-85bd-432a-bfb3-e346814b1820"], Cell[23288, 681, 9253, 173, 241, "Output", "ExpressionUUID" -> \ "bae48351-b65d-4ff2-95c1-f7a5dbcfa243"], Cell[CellGroupData[{ Cell[32566, 858, 381, 9, 22, "Print", "ExpressionUUID" -> \ "5a452e45-b02a-430c-985d-2865c143a2f2"], Cell[32950, 869, 775, 20, 22, "Print", "ExpressionUUID" -> \ "6ae303e4-d020-42e4-878d-d3116b4c6f4b"], Cell[33728, 891, 256, 4, 22, "Print", "ExpressionUUID" -> \ "7b45c266-4417-4044-bdb3-4b08a418a93f"], Cell[33987, 897, 655, 15, 24, "Print", "ExpressionUUID" -> \ "d61a35e6-2eb5-42cb-a4f4-b341dc644c49"] }, Open ]] }, Open ]], Cell[34669, 916, 570, 16, 31, "Text", "ExpressionUUID" -> \ "522f4f4f-2ef4-45b7-a9e7-e7c25cb4d038", Evaluatable->False], Cell[CellGroupData[{ Cell[35264, 936, 1786, 58, 174, "Input", "ExpressionUUID" -> \ "6f3c0942-21a6-46dc-82cb-7279aeb194ec"], Cell[CellGroupData[{ Cell[37075, 998, 1334, 33, 41, "Print", "ExpressionUUID" -> \ "d7a9956d-8922-440c-a279-42f95bae296f"], Cell[38412, 1033, 1051, 24, 24, "Print", "ExpressionUUID" -> \ "d65da430-bac0-4926-a116-43055be4cf3d"] }, Open ]] }, Open ]], Cell[39490, 1061, 142, 2, 30, "Text", "ExpressionUUID" -> \ "10d91bc7-f360-40bb-9d31-1840e68dfef5"], Cell[CellGroupData[{ Cell[39657, 1067, 2073, 65, 145, "Input", "ExpressionUUID" -> \ "4622a2ce-da74-46f2-b520-e80f1a2b5153"], Cell[41733, 1134, 5553, 112, 241, "Output", "ExpressionUUID" -> \ "58995a23-54b0-45a7-980e-cd7a260d09fa"], Cell[CellGroupData[{ Cell[47311, 1250, 379, 9, 22, "Print", "ExpressionUUID" -> \ "220f9c6f-eae8-4b6a-b487-6942c95b3fb3"], Cell[47693, 1261, 1338, 33, 41, "Print", "ExpressionUUID" -> \ "debb17eb-20ca-4138-a53f-46c5e68232aa"], Cell[49034, 1296, 254, 4, 22, "Print", "ExpressionUUID" -> \ "c4d07c28-1bb1-4299-b06a-d1195f903f51"], Cell[49291, 1302, 1053, 24, 24, "Print", "ExpressionUUID" -> \ "eefaed18-6ce7-4bf7-a605-f2c52fb050cd"] }, Open ]] }, Open ]], Cell[50371, 1330, 290, 6, 30, "Input", "ExpressionUUID" -> \ "15b228c2-f293-4251-9dda-72221770ff35"], Cell[50664, 1338, 4310, 109, 415, "Input", "ExpressionUUID" -> \ "c41cb93f-76c5-4f64-8453-08ddc7e3ac21"], Cell[54977, 1449, 624, 19, 35, "Text", "ExpressionUUID" -> \ "10f30e4c-4d7a-4639-b1c0-7e3da78a087c"], Cell[55604, 1470, 229, 5, 30, "Text", "ExpressionUUID" -> \ "4bc986c2-ec34-4818-b2a2-0b13ee466a3f"], Cell[CellGroupData[{ Cell[55858, 1479, 4272, 124, 408, "Input", "ExpressionUUID" -> \ "34366df7-bbe4-40dd-bff9-c718f12cc862"], Cell[CellGroupData[{ Cell[60155, 1607, 361, 8, 28, "Print", "ExpressionUUID" -> \ "aa5e3295-7a48-4ba9-a1e8-010f3c9ba2d1"], Cell[60519, 1617, 610, 15, 24, "Print", "ExpressionUUID" -> \ "55f113d5-8302-42eb-9e4e-851f877f54d9"], Cell[61132, 1634, 364, 9, 28, "Print", "ExpressionUUID" -> \ "97c67dd2-f2ee-44b3-9a2b-4aab3e7b9f1e"], Cell[61499, 1645, 720, 17, 24, "Print", "ExpressionUUID" -> \ "3f23797a-3fc4-44cf-8d48-ea6f2329305a"], Cell[62222, 1664, 364, 9, 28, "Print", "ExpressionUUID" -> \ "3e72b10b-c138-4802-8c6e-89e7a4d3ee5b"], Cell[62589, 1675, 845, 20, 24, "Print", "ExpressionUUID" -> \ "45bcbaac-768d-43b6-847d-b559da1f4ff0"], Cell[63437, 1697, 366, 9, 28, "Print", "ExpressionUUID" -> \ "70c31bdb-f159-4437-bfa8-1bce1d84661d"], Cell[63806, 1708, 960, 22, 24, "Print", "ExpressionUUID" -> \ "55a20de5-0d38-4284-9f1f-91a80cf579c6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64815, 1736, 2802, 66, 177, "Input", "ExpressionUUID" -> \ "b6a3163d-350c-42a6-8167-a6e0611589f3"], Cell[67620, 1804, 20318, 361, 247, "Output", "ExpressionUUID" -> \ "8b719ad8-6ed0-4cc8-99e0-162861f05100"] }, Open ]] } ] *)