(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 34898, 864] NotebookOptionsPosition[ 31923, 801] NotebookOutlinePosition[ 32327, 817] CellTagsIndexPosition[ 32284, 814] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Aula 8 - 18/4/23. Ajuste de uma fun\[CCedilla]\[ATilde]o de correla\ \[CCedilla]\[ATilde]o angular", "Title", CellChangeTimes->{{3.8898064214431057`*^9, 3.8898064532480493`*^9}, { 3.8904109422649736`*^9, 3.890410961640147*^9}, {3.890980478969186*^9, 3.8909804928171434`*^9}},ExpressionUUID->"31c6c9cf-1cb0-4812-8000-\ db6c31eb27cc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetDirectory", "[", " ", RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input", CellChangeTimes->{{3.8898064953076353`*^9, 3.8898065035468626`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"259092c4-b8e8-4ab1-8b66-03cec5282035"], Cell[BoxData["\<\"E:\\\\Meu Drive\\\\TEDCE\\\\2023\\\\Aulas\"\>"], "Output", CellChangeTimes->{3.8909804966578703`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"d2027719-22a1-4343-ab64-0529aea97815"] }, Open ]], Cell[CellGroupData[{ Cell["dados com distribui\[CCedilla]ao normal", "Section", CellChangeTimes->{{3.8898065400098333`*^9, 3.8898065448148427`*^9}, { 3.89072522367875*^9, 3.890725228133833*^9}, 3.8907277949866843`*^9},ExpressionUUID->"99701b0c-d21f-4634-a633-\ f27e1f46c3ab"], Cell[CellGroupData[{ Cell["\<\ Ajuste e analise do resultado com fun\[CCedilla]\[OTilde]es especificas do \ Mathematica\ \>", "Subsection", CellChangeTimes->{{3.8907252669420233`*^9, 3.890725318293661*^9}},ExpressionUUID->"0a35c941-c2cb-4900-a2fa-\ 42dd0328eea4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"medida", "=", RowBox[{"Import", "[", "\"\\"", "]"}]}], ";", RowBox[{"TableForm", "[", RowBox[{"medida", ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", " ", RowBox[{"{", RowBox[{ "\"\<\[Theta](rd)\>\"", ",", "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Sigma]\), \(W\)]\)\>\""}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8907254254540153`*^9, 3.890725426758525*^9}, { 3.890725493366354*^9, 3.890725497029555*^9}, {3.8907267626690645`*^9, 3.89072677088409*^9}, {3.8909805367615943`*^9, 3.8909805892172794`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"b438bf99-dfa0-4067-af9c-494d6203c98d"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"\[Theta](rd)\"\>", HoldForm], TagBox["\<\"W(\[Theta])\"\>", HoldForm], TagBox["\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(W\\)]\\)\"\>", HoldForm]}, {"1.5707963267948966`", "478269.`", "692.`"}, {"2.0943951023931953`", "493561.`", "702.`"}, {"2.6179938779914944`", "529182.`", "727.`"}, {"3.141592653589793`", "551196.`", "741.`"}, {"3.6651914291880923`", "527232.`", "727.`"}, {"4.1887902047863905`", "493876.`", "702.`"}, {"4.71238898038469`", "478401.`", "692.`"} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"\[Theta](rd)", "W(\[Theta])", "\!\(\*SubscriptBox[\(\[Sigma]\), \(W\)]\)"}}]]]], "Output", CellChangeTimes->{3.8909805904100885`*^9}, CellLabel-> "Out[2]//TableForm=",ExpressionUUID->"8843b092-ab40-4743-9581-08eba3164925"] }, Open ]], Cell[TextData[{ "a fun\[CCedilla]\[ATilde]o de correla\[CCedilla]\[ATilde]o angular \ \[EAcute] W(\[Theta]) = ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "0"], "+"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "c97e1a4e-9e17-49a9-b1e6-27badce3a1ca"], Cell[BoxData[ FormBox[ SubscriptBox["A", "2"], TraditionalForm]],ExpressionUUID-> "a951db25-96a0-4260-9a03-0ad62c76d51b"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["P", "2"], "(", "cos\[Theta]", ")"}], TraditionalForm]], ExpressionUUID->"46d0dce0-1b5f-4101-9bb7-ad8b274e967f"], "+", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["A", "4"], RowBox[{ SubscriptBox["P", "4"], "(", "cos\[Theta]", ")"}]}], TraditionalForm]], ExpressionUUID->"63c54ccb-e2ef-42c3-b148-654c1f01aab3"] }], "Text", CellChangeTimes->{{3.890980598313946*^9, 3.890980691600422*^9}},ExpressionUUID->"97a05f40-d215-4f08-a660-\ eaa47d51dd13"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"medida", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"2", ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", " ", RowBox[{"LegendreP", "[", RowBox[{"4", ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}]}], "}"}], ",", "\[Theta]", ",", RowBox[{"Weights", "->", RowBox[{"1", "/", RowBox[{ RowBox[{"medida", "[", RowBox[{"[", RowBox[{"All", ",", "3"}], "]"}], "]"}], "^", "2"}]}]}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "n\[ATilde]o", " ", "\[EAcute]", " ", "necess\[AAcute]rio", " ", "incluir", " ", "o", " ", "termo", " ", "constante", " ", RowBox[{"(", RowBox[{"=", "1"}], ")"}], " ", "na", " ", "lista"}], ",", " ", RowBox[{ RowBox[{ "porque", " ", "ele", " ", "\[EAcute]", " ", "inclu\[IAcute]do", " ", "por", " ", "default"}], ";", " ", RowBox[{ RowBox[{"use", " ", "IncludeConstantBasis"}], "->", RowBox[{ RowBox[{"False", " ", "para", " ", "exclui"}], "-", "lo"}]}]}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.8907268227802715`*^9, 3.890726877973633*^9}, 3.890728017538878*^9, {3.890980699817442*^9, 3.890980783841683*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"bd74a5a3-d737-4e96-8133-173bafb80229"], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"500054.1775037812`", "\[VeryThinSpace]", "+", RowBox[{"23020.809974292148`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "+", RowBox[{"543.3670806671536`", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}]}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {500054.1775037812, 46041.619948584295`, 4346.936645337229}, {{$CellContext`\[Theta]}, { 1, Rational[1, 2] (-1 + 3 Cos[$CellContext`\[Theta]]^2), Rational[1, 8] (3 - 30 Cos[$CellContext`\[Theta]]^2 + 35 Cos[$CellContext`\[Theta]]^4)}}, {0, 0}}, {{2.088275585552474*^-6, 2.0292043084065876`*^-6, 1.8920437667564127`*^-6, 1.8212249194563279`*^-6, 1.8920437667564127`*^-6, 2.0292043084065876`*^-6, 2.088275585552474*^-6}}, {{1.5707963267948966`, 478269.}, { 2.0943951023931953`, 493561.}, {2.6179938779914944`, 529182.}, { 3.141592653589793, 551196.}, {3.6651914291880923`, 527232.}, { 4.1887902047863905`, 493876.}, {4.71238898038469, 478401.}}, {{1., -0.5, 0.375}, {1., -0.12500000000000033`, -0.28906249999999956`}, {1., 0.6250000000000002, 0.023437500000000444`}, {1., 1., 1.}, {1., 0.6249999999999998, 0.0234375}, { 1., -0.12499999999999933`, -0.28906250000000067`}, {1., -0.5, 0.375}}, Function[Null, Internal`LocalizedBlock[{$CellContext`\[Theta]}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{3.8909807905008698`*^9}, CellLabel->"Out[3]=",ExpressionUUID->"71fdc48c-f170-470f-ba00-8cd49ec0753f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellLabel->"In[4]:=",ExpressionUUID->"c4c6b074-c2c3-4111-9379-0e110c79fe84"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"1", "500054.1775037812`", "290.71415557948905`", "1720.0888498429276`", "6.854041809713565`*^-13"}, { RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], "46041.619948584295`", "511.51075475138845`", "90.01104966201949`", "9.132941453931657`*^-8"}, { RowBox[{ FractionBox["1", "8"], " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"30", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "2"]}], "+", RowBox[{"35", " ", SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], "4"]}]}], ")"}]}], "4346.936645337229`", "683.3866983529673`", "6.3608739470841265`", "0.0031312041145140942`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.890980793791069*^9}, CellLabel->"Out[4]=",ExpressionUUID->"9d211c75-0d58-4306-b223-d36491999d7f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", " ", RowBox[{ RowBox[{"Round", "[", " ", RowBox[{ RowBox[{"aju", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], " ", "]"}], " ", ",", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(A\), \(0\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(A\), \(2\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(A\), \(4\)]\)\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\[Sigma]\>\""}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8909808678270273`*^9, 3.8909809681885676`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"fdc5a734-ad6e-4674-bff8-de69c3c3057b"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"valor\"\>", HoldForm], TagBox["\<\"\[Sigma]\"\>", HoldForm]}, { TagBox["\<\"\\!\\(\\*SubscriptBox[\\(A\\), \\(0\\)]\\)\"\>", HoldForm], "500054", "291"}, { TagBox["\<\"\\!\\(\\*SubscriptBox[\\(A\\), \\(2\\)]\\)\"\>", HoldForm], "46042", "512"}, { TagBox["\<\"\\!\\(\\*SubscriptBox[\\(A\\), \\(4\\)]\\)\"\>", HoldForm], "4347", "683"} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "Rows" -> {False, True, {False}, False}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{ "\!\(\*SubscriptBox[\(A\), \(0\)]\)", "\!\(\*SubscriptBox[\(A\), \(2\)]\)", "\!\(\*SubscriptBox[\(A\), \(4\)]\)"}, { "valor", "\[Sigma]"}}]]]], "Output", CellChangeTimes->{3.8909809135975943`*^9, 3.8909809693843684`*^9}, CellLabel-> "Out[13]//TableForm=",ExpressionUUID->"416261d8-98a9-4229-ba13-\ 2c86c77cb79e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aju", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.890643104058546*^9, 3.8906431096531*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"8eea17d2-a021-4e91-b95f-016ff02b32fb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "394.46877149055945`"}], ",", "518.5613638346549`", ",", "249.92870072845835`", ",", "753.265902297222`", ",", RowBox[{"-", "1700.0712992715416`"}], ",", "833.5613638345967`", ",", RowBox[{"-", "262.46877149055945`"}]}], "}"}]], "Output", CellChangeTimes->{3.890980801507428*^9}, CellLabel->"Out[5]=",ExpressionUUID->"a2467132-056b-429e-9fac-1a5181a33291"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"residuos", "=", RowBox[{"Transpose", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"medida", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"aju", "[", "\"\\"", "]"}]}], "}"}], "]"}], " "}]], "Input", CellChangeTimes->{{3.8906431207617917`*^9, 3.8906431822770033`*^9}, { 3.890725691622033*^9, 3.8907256934940257`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"ffa5302d-39ec-41a8-b576-f6df1c27a6bf"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5707963267948966`", ",", RowBox[{"-", "394.46877149055945`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.0943951023931953`", ",", "518.5613638346549`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.6179938779914944`", ",", "249.92870072845835`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.141592653589793`", ",", "753.265902297222`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.6651914291880923`", ",", RowBox[{"-", "1700.0712992715416`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.1887902047863905`", ",", "833.5613638345967`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.71238898038469`", ",", RowBox[{"-", "262.46877149055945`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.8909808044206357`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"266e7c59-dc0b-4ff7-bf70-8f649a6c1970"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"medida", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "->", "Large"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"\"\<\[Theta] (rad)\>\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"FontSize", "->", "14"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"aju", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Pi", "/", "2"}], ",", RowBox[{"3", RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.8906430433386383`*^9, 3.8906430786279216`*^9}, { 3.8907256727026415`*^9, 3.89072567501346*^9}, {3.890725720223033*^9, 3.8907257713742065`*^9}, {3.8907279234311047`*^9, 3.890727927387521*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"b862ae23-bc24-46f9-aae0-e3c543cb5d67"], Cell[BoxData[ GraphicsBox[{{{}, {RGBColor[1, 0, 0], PointSize[Large], AbsoluteThickness[1.6], StyleBox[ PointBox[{{1.5707963267948966`, 478269.}, {2.0943951023931953`, 493561.}, {2.6179938779914944`, 529182.}, {3.141592653589793, 551196.}, {3.6651914291880923`, 527232.}, {4.1887902047863905`, 493876.}, {4.71238898038469, 478401.}}], FontSize->14]}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJw12Wk4VV8XAHAa7r3nitxDA3W4SSoJZY6ctUWoVGYhDZpEhtJASpGkUqJS klREomSIhCgSSSGFSihJ/5JK5Rrf5cP7yfN7nLvP3mvvs9ceZmz0sdk8RkxM 7LK4mNjo38/SgZsHZohY/WvjWxk9hvxJksj/PkvEXrqjQSugxxlc5rfOFbH1 O9JSRy3zXH1t3XwR++7D7uuKaKUNJXfKFojYDH70mBnoBX+sx+TpYHl/hsuV 0BDx0e6mgYj1Si38roxezexOubRYxC7UeBYwG73uLqc/kohYn/Oq21XR3mYX VhwyE7HD35qL56MPNs29stNSxBYsebd3ATpyx4Ofm6zw+Qz1czroeHErU0dr EdthXDd5EfrWuZbzlvYitlmqYtAYXTDXt8twDZanI2luim60jjkl3CBiXf9G 8lajOzuU2+jNIja/6mmwA/pvwD2t8R4iNsTL3mUtWvZaU2OXr4j9eH0T64We qes5752/iKWOdJr7oxdWDR6o2Sdis58U5gSNtu+X4szsQyI2kVn34NRo+47e 3Z18RMQmnFCzvzDaPvklT2OPidiYiVa219AnTbbsCIoSsVtnHAvKQ1dGp+eZ JYrYp8u/hXwera+KMV8/ScQeNHRif6O/FLxwVU0VsVlicuvF9BnC+fhLfGKm iPWWjKuZhjbRMljR+FDEtidcXeeItq6oSqh6LGKT4h8Yb0Wvd3H9WVghYgMS 1UL2og+GBp+/+kLE3v4lq3sRXVBf3rr9A7Y3mWvThq7c6qi19qOIJRnttr3o xoEvYas6RWyt3ZQCrgHGa+aEedo/RCzvx6lsDbSWv83uoWGM74lS5yPodNkP VJRCPzvceDwQFjHEt0bS6Y1SP6v9ZHqnC1r7mNENhdn9rJRZSuVedNHARZMM jX62Z0FqTya6pt1ufxX0sz45Hk/mGDLkZ2bVt3HuWJ6Rzxl1I4bc2y5atGJr P5s/8mKtNTpQeU5EjGc/29u4MNEfPeZC2Cwl/36230E8vBAtGwxubFg/m7u5 /p31YoboWt17EZDSz5qJvb8ZbcyQfk4HU3qrn80MSn9diC4ukfHiZfazfv7H AjrR5tp+vNj8fvZ1wLYZxixDnKapkZzKflbJ9q2oBx3YdTWr+79+VoFWrPEi DHkYFnnOXXOA7VkXzSsyZUgc12DlRu0B9rbpVfVfaP+IT5wN+gNsqk3Gg9lm DFGNNNznBgOsVnIx/yz67Nku5zWrB9i1bbVBfksZsu26mXCV7wA7zZO+y1ow hC4dSluUOcD2FS1xnbuCId9Mbrob5Aywf5RTNnqiK8rspuvnD7AWywQvM9BB T29F6pQMsDNM+j9oWeH4f7HGV/PlALt80YxXpisZUtiSq6PSM8AaWlZKBq5m yJbBHSUCzUHW6Ept+QJ7hrQVLPcY1BpkS489VAxGuwbMpTv1BlnxxXfeVaNt /35yL2QHWZpEB3s44Pff48LdumqQTVVZ45HiyBC5T5YrC70H2faVntU6zgyp fjbr3ZaMQZb12vYsfh3G9/jYMOu7g6yhodmRv+hHFm3zjXIH2Zap/MTV6xly vzw+WFA0yI4fXirG2cCQGw9lZhZWD7LNd7a5797IkEPZ4tsF3wZZicMS2Vs2 43i89P7fA9Uh9uZSgVeMJ0M2BTvFD6gPsWpgoDrGC+PrXg+GWkPsjcFDrn7o 3nmVEQWGQ6xPijtjvQPHV2HOtPsrhtg4joL0ZB+GLGo5wd7zHmJ3Twi4l7sT 2zdjUXhm1hBr3LLg2/JAhlilnJ+cvGiYtR2/6UfdcSzf9tSseONhtslzg7H9 CYY0j4Rpx5gMs7/3evx8g97mtNvm8LJh1mToUGjLSYaEUHan1joPs5+3Kzj2 nGJIvqeAMzlwmGVD191TiWGIsubJP0fvD7O7IXdmyyUcr/mHX23TH2HVdQZ7 dt9GT3tbmDtLDK4dlhvpf8uQEz8KJ+Wmi0HhNx/uhokK5HO5XvFVVXFYU+Ja 8MtUgXTaODbPzxaHgqTTrvFHFEhW+8SlKQvHwCqdweUXyxRIFEc6P+EOOtI8 qoajSGTbci7r6I0F78yLwYHWimRj8a+6+7ljYZO4ReStC4rEwaZh/3vjcXC5 p6JZ8rMicQscUQ0uHwdN4OFsP1VINJMfzZVaMh62JqWpVBoISepR1XijZ+Oh JM7x5DMXIfm6fZ6b0zIORLnbdNzaJyQO4mOWB6/ggGC22/cZAUJSGtuod2Ml B87YHciJRV8oCxP02nCgj54bHBIoJOYKrWWnXTgg/JEoZh8kJEm1Z+dVeHFA Uior/HuwkLjpD/fpnOaA7TF5i/+OCknd+NoYmVccyIgK/il1VkhOFZTs03zN Aase261+6GU+mWutGjmgW/wnuh79qPH07PB3HPBy6OPHnhOSrFsrH/R/4kDp brcA+VghOWNd3d72hwPXwrXmycQJyerLFQsyp3DBX0JYXnVFSCbY5E1+LscF 06UPk2YmCslTTspA1zQuvGycqhOEBt+j5TOFXHhzbP1WtatCorHEbE3sHC4U RU2UirgmJFJdjw4dNOCCuU+JiVaykDzXLn6xwoULDzxzli5LE5KzVt88zNZy IXfniswYtOsW+XHG67iQ8vbry3for7F79DXcuRB1r0rX+5aQcAbUrwo8uZB/ SCI6Ml1IjEuv7HwdyAWZ4NPexbeFJNPq8KT1cVyYSUuP/5IlJHu33LnjFM+F 00XTp83JxueD31taJ3BhX1fbp63o6kyDgybXuCCvrRXzGf1F5tdn5TQujHtj 5tSaIyQzmjfmd93nwvaNqj7l94Qkeoupy64mLhwc+2y+fYGQaNNk1/m3XDgV W8lEoV8XLT5x/z0XdCoLM6vQcpP0Hoy0cSH4z6SHxg+EJPHx3Gknv3LBZcKd QKVCIckQTnybNMAFu1VtDo1FQrKyWuJ3xRDG99FvD8liIenZy5P4b4QLnzw3 KJigtV+IGy4Yx4Ptpd+3p6ELDvTGFU3ggYa/RtSeh9g/zU3OrxkeUHn8f4Ml QrL96OudIkUerGJfy6qVConEwvrj05V4cKclss4ZvTKiumCjCg9+B3nOz0M3 6D2U/6HOAyPfKDfPR0LSfjapmQs88FWOji99LCRDK32cDTbyIGCvuPisJ0KS 5pY2W38TDzQPrEkxQzt4d/TqbuGB4PDHf5vRmZEup7W3Y31PrIlNRm+qNi/T 2MmDqI0eNcIKIamyFKqrhPCg4sYWmvsU+2uNy4DyER78uyLloIRW9jj/dOZR HphazVmyGH3w2AT3Gcd58G17mNxO9IKKvtjp0TwYbi7OfYO+YForLnONB7Nk N16PrhQSM7sJLwRJPEjpcApIRf9yN4+XvsEDhRcz+4rQy0OLdKXSeJC0TKan Ez1cetOTyuLBaT3vp3pVQnKr9pM+L4cHbSryn5ahndoUOdx7PDA87JS6Fp0l dj5xXAEPLBZ7q4agN7MhDSOlPCj5s0C2Ak2vKro2/JgHzz2Sdr1BF7v1+QyV 82Ccp+/+TvTUg978gUoe7DMbCOU8w/FY6Mz+reWByg6NfYAOqD434U89DxI3 l8itRKu8e9n0u4EHOzoC3V3QwQNL/X82YTzkHH/4oxcu0rr5rY0H8/0VvlxH a2wL9277iO1ZcersbbTa+bdarzt4cC/e61v+aHm/QosfdvGgPm1TQjV6prAx NOc/HpgU7+lrQAtXqlne/M4Dv97OoRb0tLRX9dE/eSB638TvQU9tnHMx/DfG s9uW7kNP5hxwC/rDg4vNiuUjaOmNs7o2i3gQ7HVVTapaSCSjAm47D/DAbI91 myyaX/x816ohHsjPsiDT0OPk9wzri1OwMnlkzGy0uEXV4/ljKXjZ/mCTGnp4 t0KE0ngKUi/n+i1AD1zfuXIKl4L1LV/n6qL7ap/ITKAoOFKzJnIR+s+IfJOY BAUJ+WLxxuhf830S/kygwJjXYm+C7nF57P5VioKflj0FZujvEVPmfpCmYMU8 3WcW6K95nt31NAVdgbePLkd/6XiY/VSWgk1znL5boTtkZAOKJuP7TReOrEK3 k23GWVMpiBAzKrRGf/ApHJsiT8GpO/7Ktuh3l6UrL02nYG75Wz07dNOzTaei FCiQf+37d9SvRfm2YUL8/wWt9fbo+tmScoFKFMxun7l71C/tN7R4K1Pw9RbR GfXz0Nzr7ioUOEhFJo7+vuou5eE0hwKbJZy80fdVfFirbqVKwYvkjH026DLJ rN9EjYKnd0M7VqMfGXLu66pTYDQuYmgl+qGH88F5mhQsdCkuWYEujL29RLiQ goJzyhrL0AXlY6hJ2hR0ZhdamKPzfjvUULoUvHodLmmKzplxK2ZYj4KrEH4A 0HdXjTj9NqDAz67wghH69gFbhS+GFHicn7NOH53aNJBay1IQ6JzxXR2dzF3t /YRQ8CWiMncu+ppOktaDJRSomCjPVUZfPrOiOMmcgrt0gmAqOu5hYuhFSwpI a+lRAfrC916LU8sxXlfnp/DR0ZaX6/euomB+XWfXAI7H03t/XvCypsB2xHBC L/pkspnbBlsKGi5+bPoPfVS8+8syRwpcBwz2NqP33zceZtZREPlxU0E22iZw A1m8gYJsjcOrUtGqhkeOuLpT8PvH1MPx6ObCSv6lrRS0XHp5PxStX2I3Zaov Bers2BCr0e/h8F5nvZ0UTDsRP2CM/kLiLjv4U/AhvE2giY59/GHmuX0URAmO ywrQf59s16QPU8AvVdxVg/NFTXjkrgWhFBje/VBXiL5hkXlvdRgFel+OvkhD 21f9MTodQUG1dfqVMHTO80OWE6Ip2MAzi9dF73x1fiPnOo73m7VSR3G+W3bu fvKsZAqe8ZcSb7SSw7svpikUOBctEjiga9/M8Am9RYFpcG2EMlrzbfp+sRwK tk7601KI821326Oz/WUUHOu/NfMtzudPrnW8kaugoJG+p1WETnDnTTOopCDd htOegLbqsLq69zkFy2oz5Tag0780ZvQ2UPBOvfBvK+aH7T+6n3R/xvrJZvrX lOPzsqsfdn2h4KyYqDkdrWlwN+/TVwqK3/Z9O47+G7IrtbmbAndXW9ml6MOT +yKe/KXAJbHXL78Mx8NicasEDh/2fnDdHYn568kJmXorFT7oqU3nijA/3sz0 f2Yxhw+HmurFnqNPNjQ8XqLKB9lYzdREtI3ihRwDdT7c2KcoZo5+nzX9/Cxd Plxny1+fxnzb2zRrzZAZHzb2z9OgMR/PnKP/IX0zH5q0MuhmzP+tH7ba123l Q/a/pY5X0Amxsc/+efAh5PbI4k3oqdx/eSbefLhpYPjr231cL33OjWrcwwfO 09Y+Ub6Q9F/XMhl3jA/DPy/HjsnD9Z+iRrJLGh+0dlJdNbi+iXrjNu1wOh+G DgbcPIa2On3qzI3bfGArSyaaoJ8Ofz/wM4sPcgkONdl3Mf+8T3cIf8CHmOML p8RkYv6+pMrLrubDsdiyXsD1U8gUFU/+Dz7AuO4Xzjex/O/eTbN+8uH88c2U BDrhcZ45+c2HqdEzewpSheS+j6Xyvn98+HRwpFwO3VPh9b5jhA/pZ2Vj62/g +nVf9qpSaQkIWCvVrZckJIZNoL1voQQopBT7liVg/OJchjp2S0Cr6Ijhn2jM Dw3twvd7JcDT7eSVC2iVidtNXwVIQGKKdJkh2il034lHByRAw15+1eEzOD95 npO7EiYB8sdGfKkoIQk1eqHjdE4C5ByKx0hFYv5tMfGuypEAu5o9jl24ftac ofrh9m98n0XL8x5cj9Nul7WnBE2A7tzle4acMT6XbzZ5DUyAgt79ZdqGQnLA b+gI7JOELH/5Uxx5Ifk48Od69ogkWJRq/pbtUiQyEeG07EEp8NNNXVlzVZF0 VRf1ynAngr961P4bdookQiZSRTx8Ipyx9AvkSykShX/WGrpjpEG4epe0xTMF UvVQI8xwqTRE8ehp944qkLdUc0hemDQsuZjlp7ZcgbB3HBaFVkmDiVWZnoW0 AslQ+NcrKSUAhczXvcXvcP84cZPjRCsBcEKVzqdmMSRzQsMl4UoBpHvlzh+5 i/tfamnrglUCGGsfp+uANhk3x8POWgCBUjHx4zMZMl70X+BFewGE11UUeGQw 5Hj7roSZbgJQPTtlhXkqQ2JyQzv0fARQqjEo75SA+1eX67vWnxGAvIegvg73 g++OZ0evixZAkKez3yo0XfD4rluMAATdJf7VuJ8Mnvrph+s5ATT+Gk6riGCI U4Oy15qLAjhS9LnhUThDqFU3NtlcFUBRgZdqdShDvExu2pveFcD0I+S3ahBD rvnd91+SJQALyY9szn6GNCZWxphkC+Ctm/mvxWjTka5ayBVAqsDjmA3uZ5lC 1ZWL7wug7kZI4KF9DKnRSV+qWyqAOEe/gB/+DFkw947enFoBFCxO7pfzZkhU 5zMbpToBXGnul8/C/XN38pcd0+sFkBcWdnkZOk1JKUm6QQCLm5dUBuF+W3n6 OWlRowCqJ6Q86NjOkMkT93dVtgrgasSAZNVWhgz0Lr3k2SOAbq3IPe9wv++c 7X5v808BaIdEtR1C5/sdql33SwD1e8bfmYX2777PtesVwPIkSz/f9fj+TjV/ oz6M90W3GP46hrQ201aSYjQcKS1eae3KkPKSluHbE2lQesK5OccR6/+03alY mgbbdZyMOgeGuL78nPVcQMN3b2rWAXTvh+4t32RokAua7ldvzxClkeGauVNp CN9zNCDMDvtnseKVJCEN99Lql49YM8SgYB0bt4AG+VaLPksrhox75H7x5kIa zsn5HRiDflm59Xe+Fg1lZ5L2PFjBkG1NPilvdGiY+kitXB19vi944qRFNNx9 XFQnv5whv3UTP5w2oWF+3N07PEuGZGS3BofZ0vDkRZy3oRlDDn4PzQmxo+G0 7g7goFfPnt0VbI/lc8neWlOG/IrbYRPoSIOl9n8yHmjdkH5lHxcapvsupi4v YUjJatkqJ3caFMbv+jjFhCFnjucN22+iIVJWZXwXYcjGMmct2800dKnUnyhA j9e/Gm+1lYYVjnJP3dDLFNV9TDxpiHhlPngLGPLqu7ms2i4aejsKbNawDEme /Z/FXH8aVC1qH2ui92w4dUBlNw2Pg5ou8tByDa8+C/fS0Li0yP++MUPcCjfc n7SfhtWPHncoojuP73cbCaFhcoNjzogR9n+ZQsxgKA2t3Sv836OPD5dWiI7Q MHJm3sUHaLWdvAW9R2nI3XFdEID2XXNubNdxGo7u8CnqM2RI/+w7qXXRNKxz 44tJoIfF+1Z9j6HB9M2PV/8tYoj4O/jHPUeDz8YTs5+jeVF1ZotjaXgwq93s DHpy35/2lEs0WPQNblFEy9cZH38UT0ND1OG549BMeviC95dpOGuX59FlgON9 vdwhOpEGWUlt99zR89KnRsyBJIznwY2LbNG618LKYpNpuJy4/qshelFQjWfW DRqGDktMnYU20Vxf0JlKg9Hezd/69LF/L4Q62mTQ0G0/PeAG2m5n9bDXbRrK T++cHIN2XDHpRvgdGi5l+C04hHYTS+ktvEvDYMO2Vhe017aqM7PvYfnqGkpy aF8TGQOTPBpKq0vSKfSu6a6trvk0vJLpy+nXY0jgy+/q0QU0HNJyMG4ZPZ9P 032d/gD7a23Qw5fow0eCD1QU0jC2YWnxY/QxfUH1YDENxKtC+9boeTftvGtK CQ1ZvUHpV9Cnv12TX1iK8YxruHoWfT5R22PrYxpma/qMP4SOCzwgHVKGvnJn 1x50gt2TvPhyLH9e9Lod6GSeE6euggbF+0aZrujU9sSMb09pqLAZN8kenV7Y Zcetwu9Vf8c/K3Tm+YWDM57R4GC019EcneO7/7pRNQ2PdJR0CDp/Wdkyx+f4 vQ3tiDJEP1CW/OVXQ0OYr7OHLrp42P7iyRdY/x2dD0fvIx41JkDKSxoK38ie Hb2veJLV2VlaSwOcbe+YO3qef1Lz9Ls6GnpOrM5VQVdvCdD9V0/D+TS3MaP3 IS/h0XtBAw1TPkx4Pnp/8kpeIkztNQ07p7lMEqLf9Nqqmb/B+tlZvh29f2mu ia/f0EjD4tA3CqNuSe0IDGqi4f/3N/8DdeQY7A== "]]}, Annotation[#, "Charting`Private`Tag$10285#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"\[Theta] (rad)\"", TraditionalForm], FormBox["\"w[\[Theta]]\"", TraditionalForm]}, AxesOrigin->{1.5053464798451128`, 474217.50000000105`}, BaseStyle->(FontSize -> 14), DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{1.5053464798451128`, 4.71238898038469}, {474217.50000000105`, 551196.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8909808081885567`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"3baf3c87-592a-4b97-a4ae-9dfef18efe84"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", " ", RowBox[{"ListPlot", "[", RowBox[{"residuos", ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{ "\"\<\[Theta] (rad)\>\"", ",", "\"\<\[CapitalDelta]w[\[Theta]]\>\""}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"FontSize", "->", "14"}]}]}], "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.890643187157362*^9, 3.8906431967893553`*^9}, { 3.8907256973581944`*^9, 3.8907256988252707`*^9}, {3.8907257972858944`*^9, 3.890725806451378*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"dfba86ad-64c7-48a6-a4e3-f43578461490"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], StyleBox[ PointBox[{{1.5707963267948966`, -394.46877149055945`}, { 2.0943951023931953`, 518.5613638346549}, {2.6179938779914944`, 249.92870072845835`}, {3.141592653589793, 753.265902297222}, { 3.6651914291880923`, -1700.0712992715416`}, {4.1887902047863905`, 833.5613638345967}, {4.71238898038469, -262.46877149055945`}}], FontSize->14]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"\[Theta] (rad)\"", TraditionalForm], FormBox["\"\[CapitalDelta]w[\[Theta]]\"", TraditionalForm]}, AxesOrigin->{1.5053464798451128`, 0}, BaseStyle->(FontSize -> 14), DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{1.5053464798451128`, 4.71238898038469}, {-1700.0712992715416`, 833.5613638345967}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.890980813402609*^9}, CellLabel->"Out[8]=",ExpressionUUID->"b29784ef-5165-4258-adfe-44510a905b28"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"medida", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"aju", "[", "\"\\"", "]"}]}], "}"}], "]"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{ "\"\<\[Theta] (rad)\>\"", ",", "\"\<\[CapitalDelta]w[\[Theta]]/\[Sigma]\>\""}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"FontSize", "->", "14"}]}]}], " ", "]"}], " "}]], "Input", CellChangeTimes->{{3.890643233324935*^9, 3.8906432441132803`*^9}, { 3.8907258304222574`*^9, 3.8907258593738136`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"5c31cee7-3f80-4ad6-bfd5-c203f98fa056"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], StyleBox[ PointBox[{{1.5707963267948966`, -0.7740923835930201}, { 2.0943951023931953`, 0.8997311229350408}, {2.6179938779914944`, 0.4148623454097665}, {3.141592653589793, 2.308317569057991}, { 3.6651914291880923`, -2.8219870888134126`}, {4.1887902047863905`, 1.4462726192561086`}, {4.71238898038469, -0.515059978446789}}], FontSize->14]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"\[Theta] (rad)\"", TraditionalForm], FormBox["\"\[CapitalDelta]w[\[Theta]]/\[Sigma]\"", TraditionalForm]}, AxesOrigin->{1.5053464798451128`, 0}, BaseStyle->(FontSize -> 14), DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{1.5053464798451128`, 4.71238898038469}, {-2.8219870888134126`, 2.308317569057991}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8909808252549047`*^9}, CellLabel->"Out[9]=",ExpressionUUID->"e3b10d02-764a-4167-8304-5325d343a42e"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1428., 735.75}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"c4f5f7c8-a62c-4bb6-b81e-38e809c89707" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 344, 5, 98, "Title",ExpressionUUID->"31c6c9cf-1cb0-4812-8000-db6c31eb27cc"], Cell[CellGroupData[{ Cell[949, 31, 257, 4, 28, "Input",ExpressionUUID->"259092c4-b8e8-4ab1-8b66-03cec5282035"], Cell[1209, 37, 198, 2, 32, "Output",ExpressionUUID->"d2027719-22a1-4343-ab64-0529aea97815"] }, Open ]], Cell[CellGroupData[{ Cell[1444, 44, 262, 4, 67, "Section",ExpressionUUID->"99701b0c-d21f-4634-a633-f27e1f46c3ab"], Cell[CellGroupData[{ Cell[1731, 52, 246, 6, 54, "Subsection",ExpressionUUID->"0a35c941-c2cb-4900-a2fa-42dd0328eea4"], Cell[CellGroupData[{ Cell[2002, 62, 781, 17, 28, "Input",ExpressionUUID->"b438bf99-dfa0-4067-af9c-494d6203c98d"], Cell[2786, 81, 1384, 37, 164, "Output",ExpressionUUID->"8843b092-ab40-4743-9581-08eba3164925"] }, Open ]], Cell[4185, 121, 956, 29, 35, "Text",ExpressionUUID->"97a05f40-d215-4f08-a660-eaa47d51dd13"], Cell[CellGroupData[{ Cell[5166, 154, 1689, 45, 48, "Input",ExpressionUUID->"bd74a5a3-d737-4e96-8133-173bafb80229"], Cell[6858, 201, 2177, 50, 55, "Output",ExpressionUUID->"71fdc48c-f170-470f-ba00-8cd49ec0753f"] }, Open ]], Cell[CellGroupData[{ Cell[9072, 256, 155, 2, 28, "Input",ExpressionUUID->"c4c6b074-c2c3-4111-9379-0e110c79fe84"], Cell[9230, 260, 1670, 43, 99, "Output",ExpressionUUID->"9d211c75-0d58-4306-b223-d36491999d7f"] }, Open ]], Cell[CellGroupData[{ Cell[10937, 308, 877, 22, 28, "Input",ExpressionUUID->"fdc5a734-ad6e-4674-bff8-de69c3c3057b"], Cell[11817, 332, 1465, 43, 144, "Output",ExpressionUUID->"416261d8-98a9-4229-ba13-2c86c77cb79e"] }, Open ]], Cell[CellGroupData[{ Cell[13319, 380, 217, 3, 28, "Input",ExpressionUUID->"8eea17d2-a021-4e91-b95f-016ff02b32fb"], Cell[13539, 385, 426, 8, 32, "Output",ExpressionUUID->"a2467132-056b-429e-9fac-1a5181a33291"] }, Open ]], Cell[CellGroupData[{ Cell[14002, 398, 498, 12, 28, "Input",ExpressionUUID->"ffa5302d-39ec-41a8-b576-f6df1c27a6bf"], Cell[14503, 412, 896, 21, 32, "Output",ExpressionUUID->"266e7c59-dc0b-4ff7-bf70-8f649a6c1970"] }, Open ]], Cell[CellGroupData[{ Cell[15436, 438, 1202, 31, 28, "Input",ExpressionUUID->"b862ae23-bc24-46f9-aae0-e3c543cb5d67"], Cell[16641, 471, 10062, 183, 212, "Output",ExpressionUUID->"3baf3c87-592a-4b97-a4ae-9dfef18efe84"] }, Open ]], Cell[CellGroupData[{ Cell[26740, 659, 622, 14, 28, "Input",ExpressionUUID->"dfba86ad-64c7-48a6-a4e3-f43578461490"], Cell[27365, 675, 1815, 46, 207, "Output",ExpressionUUID->"b29784ef-5165-4258-adfe-44510a905b28"] }, Open ]], Cell[CellGroupData[{ Cell[29217, 726, 825, 21, 28, "Input",ExpressionUUID->"5c31cee7-3f80-4ad6-bfd5-c203f98fa056"], Cell[30045, 749, 1826, 46, 222, "Output",ExpressionUUID->"e3b10d02-764a-4167-8304-5325d343a42e"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)