(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 159373, 3553] NotebookOptionsPosition[ 148276, 3346] NotebookOutlinePosition[ 148654, 3362] CellTagsIndexPosition[ 148611, 3359] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetDirectory", "[", " ", RowBox[{"NotebookDirectory", "[", "]"}], " ", "]"}]], "Input", CellChangeTimes->{{3.7498069114962597`*^9, 3.7498069202097826`*^9}},ExpressionUUID->"74b18e43-55e8-4348-8c9b-\ c78938c5b277"], Cell[BoxData["\<\"D:\\\\FisicaQuantica\\\\FQ2018N\\\\Calculos\"\>"], "Output", CellChangeTimes->{3.749806920819016*^9, 3.7504098670179296`*^9},ExpressionUUID->"6bccc36e-9012-4112-ab16-\ 03d83235f3b5"] }, Open ]], Cell[CellGroupData[{ Cell["Exemplo 2.2", "Section", CellChangeTimes->{{3.716567421658558*^9, 3.7165674242369595`*^9}},ExpressionUUID->"4b33d1d6-75ce-4d5a-ab99-\ 46097f5bf80c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", RowBox[{"(", RowBox[{"c", "-", "x"}], ")"}]}], ")"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "c"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"c", ">", "0"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.716567943370748*^9, 3.7165679781713543`*^9}},ExpressionUUID->"3d7dc887-0463-48ab-94ff-\ a3d764fdf1b2"], Cell[BoxData[ FractionBox[ SuperscriptBox["c", "5"], "30"]], "Output", CellChangeTimes->{3.7165679789058084`*^9, 3.717751770201047*^9, 3.7498067671050262`*^9, 3.7504098675178127`*^9},ExpressionUUID->"a4a092f5-3fb2-454d-af60-\ fddaefdb0c0d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"exp", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"n", " ", "Pi", " ", RowBox[{"x", "/", "c"}]}], "]"}], "x", RowBox[{"(", RowBox[{"c", "-", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "c"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"c", ">", "0"}], ",", RowBox[{"n", "\[Element]", "Integers"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.716568095558941*^9, 3.7165681891471004`*^9}, { 3.716568232151712*^9, 3.7165682559823923`*^9}, {3.7165684596604815`*^9, 3.7165684610356293`*^9}},ExpressionUUID->"6201e6ad-d072-412e-85bb-\ 20343b2ed3a3"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["c", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}], "+", RowBox[{"n", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox["n", "3"], " ", SuperscriptBox["\[Pi]", "3"]}]]}]], "Output", CellChangeTimes->{ 3.7165681913348365`*^9, {3.7165682378554487`*^9, 3.7165682576388206`*^9}, 3.716568462410777*^9, 3.7177517716387005`*^9, 3.7498067682766275`*^9, 3.7504098685019574`*^9},ExpressionUUID->"62c0c138-d725-4c06-9408-\ df29197ac10e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"exp", ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"n", "\[Element]", "Integers"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7165682602015953`*^9, 3.716568277719098*^9}},ExpressionUUID->"4421f43c-acb0-45bf-a716-\ 5fcebe07deb9"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], ")"}], " ", SuperscriptBox["c", "3"]}], RowBox[{ SuperscriptBox["n", "3"], " ", SuperscriptBox["\[Pi]", "3"]}]]}]], "Output", CellChangeTimes->{3.7165683028311667`*^9, 3.7165684674894466`*^9, 3.7177517716855817`*^9, 3.749806768339113*^9, 3.7504098685800643`*^9},ExpressionUUID->"d5d2bb63-1cb1-4b37-96f0-\ 4c5a3e81fb42"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"exp", "/.", RowBox[{"n", "\[Rule]", RowBox[{"2", "i"}]}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"i", "\[Element]", "Integers"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.716568307300395*^9, 3.716568307847328*^9}, { 3.7165684757559576`*^9, 3.7165685129318185`*^9}},ExpressionUUID->"f412323a-ad48-42b6-b7f0-\ 9c695c89415b"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.717751771701208*^9, 3.7498067683547344`*^9, 3.750409868595686*^9},ExpressionUUID->"1818300a-5e61-4fc9-b2c5-\ d081639dfd74"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"exp", "/.", RowBox[{"n", "\[Rule]", RowBox[{ RowBox[{"2", "i"}], "+", "1"}]}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"i", "\[Element]", "Integers"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.716568523839238*^9, 3.716568524604945*^9}},ExpressionUUID->"2ac053d5-0835-4f07-8fb9-\ a78f7360a70a"], Cell[BoxData[ FractionBox[ RowBox[{"4", " ", SuperscriptBox["c", "3"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Pi]", "+", RowBox[{"2", " ", "i", " ", "\[Pi]"}]}], ")"}], "3"]]], "Output", CellChangeTimes->{3.716568525167507*^9, 3.717751771716835*^9, 3.7498067683859777`*^9, 3.750409868626929*^9},ExpressionUUID->"ad8c6847-2d4d-47d5-8cd9-\ 7223b10a12f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", "10"}]], "Input", CellChangeTimes->{{3.716567462631701*^9, 3.7165674648194356`*^9}},ExpressionUUID->"0e323149-73a7-4e4d-95e7-\ 27875b2ca0d3"], Cell[BoxData["10"], "Output", CellChangeTimes->{3.716567465803917*^9, 3.717751771732462*^9, 3.749806768401599*^9, 3.7504098686425505`*^9},ExpressionUUID->"b3178d6b-fd52-49dc-8dca-\ b495ea074ce5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"30", "/", RowBox[{"a", "^", "5"}]}], "]"}], "x", RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.71656745511527*^9, 3.7165674936819057`*^9}},ExpressionUUID->"dabe922e-4880-478e-a3fc-\ f3807a7a2091"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV2HdYTX0cAPASlTTuvefeW1bD9WpKefHav28y0tSSFg0pGpqkIkqTdjRo SUtLoZT2VLeBhronqzQVSYOE9+ev83ye55znPPd8v7/vuFJW5/VslnFxcdG4 ubj+XpOuWPEqn76x/313pJbSotX+hi5JTSPJsyh2zm2eaauC/jRV+UtKXkL5 Rzw3xNjooqSaMIkVkiEoppt6tsHKEjns83BckEhApVZhjqrmLqjrp13stEQO 2lwmU6yjdw3xkYPSUxJlSNFf2fj83iiU1pri8kmiBZX9o7CjmJKGCgpDSAdF DhqrWh2YZFOEbNHLhEnXIRQ8l+pWpFOGnIZlhx4XjKOK6DYnP/MaJCB1Xfrd zml0VEI/am5rAwqnsOXSLL4hsT/yykoJzciKNKjmaZtHIfOErhOTjVwar1ud l15EihK/js0c60BFzoL6Ykd/oTj+Na1OMS9Qmrf9hJIRF+hd6NjmsvwV8ktZ 0p2d5AaPZV66A4e6EFfXe6jw4oGCxKYrBvbdaJP7GU8DuRUQ//ShQFBUD/o4 F3d8VSUvXNv3wk47rBepD5+7HO3CDxHW0jrOAa+R9sdIeXFxAXi/9mnwt1N9 aKLe6urz/FXQtVBUZsToR4rU3vWqp4TA/me6QUZtPxoJG/G7ZSMEXSufXvxe 34+SBBZGR+2FIOioxU71pn4kuFys+KanELSaOUaPt/ajiXnjw71RQtDx6lKO aHc/yhh443S2QQjql0ytlUf60brs4eoIWWEwUzvEa7qSgwTQnOXAN2E4XpXL H6TBQZ4qMvwli8JgoPqmJ1eLg0ZUTQsiuEVgsv7Tsk4dDqpTq108ICIC46Up PhQDDvLSC4vJkRMBKXvrz75mHPTJ5p/GC5YicOm3MZviyEFtNw1lqJ0i8KaP x37xJgftjgjumOgRgQ0vu//9FM5B2VHP3BsGRIC70c+ME8lB129L1V6cEIGI FI/2R7EcJP5iXuHLMgoMS5Ru1r/LQb39dY2G4hS4rJUzqprLQUemTBY2GFLA wkxdZaqZg5Lp/l2+JygQtNN0Oq2Fg2b35BYOmFLgJ7+WsCGbg1JDf9retqIA O7DrdkkHBy1K3+1b6UwBwXl7zpkeDsqzelM2HUoBenqrvM8gB1H6TvlU1VBg 939o4dJPDjrzJ+jE2gYKCCc5+S0tcVDFpofbPJspoLxwxefybw4668E1pdxB AfPgA5Ve3CSqo6WZZ5AUMBI3dLHiI5G71uD+m/MUeCmWnT5CI1Ff3WluEwUq kEdWKNfJkGhahbPm8hYqWMjF0ZZkScRXq7MtdSsVpiNE4rbJk2hH9W7bkZ1U 2PHxUXDaZhLFPqO0ux6igk5Rq7D9VhLpPK6Iv3GSCuVvlDIr9pCoKYOuVBlJ BU/fd9wmWiR6uzH06PsYKlyqVwE7bRLNpf+x4omjQkBoqJSHDok23pu4dTSJ CrVpnW2huiTyS6752ZNDhZZZ6aYMQxLtj3No/lxHBepm6sFEcxI9CW44KTlH haCRRofLDiTKVmeLBX2nwn4tPiE3RxIlCr56NfWTCivUJ2i2TiS6Gvnu8LNl NGhYcUtH3ZlEmvGLiscpNOANvHzzlxuJBrOU/tyQp0FoTiJd1JtEPWf/K5tR pIGqy5zwN+zn8vvdjLfSQLDzq1O7D4nyCzVGN+2iQYdm56nLV0jkWXqms/Yw DRi661e0XiORcPPdlAVLGmT6rDjJDCYRd0i68UkbGlhkXCruw55Vf0A02tFA 4XSEQ0IIifo7SoOiz9NgJj2FyrxBovu9r85vvkyDfQr6EkthJNo9wg/W8TTg nOI96h1DojMrPN53dNBgk35Sz6EkEq2RaHn98yUNhF5+d2Rjd+xc3ynTQ4NA 64RUnWQcP4fGSj+SBjuacrr1U0jE28W4s2OMBn5+fJ4aaSTKSC0xTOYm4EVv Se7CfRKdKBfQYi8nYDbJeuxMBokEu08e/M5HQO4lw+pubHc+vn/1hAnoduLf m5dJooNORhTetQTQjuU6q2eT6OOe762O2whQ+/yxSTWXRPGGmnWJ/xGQ/Xsw 6y625vnUsubdBNxhbWLNYj++p5YtpULAvlzvseQ8El1fmRDQo0WAc5F1wVA+ iXaypnyW6RLgdCbUUrmARJN7Vdy3GBDApTRfcBnbwHncKsSEgHdcSWK0QpxP r3fBPlsCbiRIS8s9xPk+HfbfuXMEbPp2Ic8B+6bAoGKcIwFGlqva8rFn94Wu /+pGgLs3D0e+iEQN9zmL968SEJ+ppCxajONbpTjz0p+ArvvZwdrYCn1+478D CUgrtfG6jh27Sr7vRBgBi2sKFSaxrV29nwgmEpDYd6XtwSP8/be+fSKbRIDs qbC1vdgCM1ByOBW/z6GVxvWYRA9deEuvZhLw39oXP3Sw/ZXPliblEPCwIn7c A/v4V3ZpeR4BQx8jriViLzlHPZ0tJuBSy8oH77A7lWafUksI4ATc3M31hET3 po+XKZYRMP98n5sE9lHndeV21QSYDcm/McZep+RbHlBHQGa5nbAH9vSXD+X3 GgnIEeseDce+fT7r2QCbgEG7HTFV2Ge3CFT86CCAbrrZpht77xeHCuYrApZ1 670bw6YUdlb824Of78rkXsIectpaeayPgFUmsm1CJSQqUbxV6Uji72/L2S+O Hfp5oTL0LQFLi2XGm7HNC0yqsj4QEMZ4vm4PtpJTZVXDRwJ6S5YHH8HmUZSs /jBKAPn2/B097N4pv+rfEwQkhK00MsPOyR+uXvsZ51/9y/LT2D6OajU7vxJw 0Pd5kz22zubcGsNZApTrprxcsDdMCdW6LhDQf0PltQf2fJ5zbcQiAbsH6klP 7BaHrtq8XwQcf+Qe7IV9V2FHXQsXHeSpBm/+2nkyvm6Ehw7P5iw5l7BV837W 8fDRgdcy2fciNtPhZL2kAB0E9Fe2u2GPy9fW7xOiw3P2vTon7IpPrAYTCh2A fc7CDjsiN7DhIkEHV13LTAtsK/vxhlgmHU6dDIw1wt4ur9lYtJoOfDP9clrY /J8KGjvW0cFO0OysCvbAA2rTJwk6+OcLHtuGXXjOvYmfRYcTPZ/e/oPtJ/e6 6Z9NdBj3/8FgYh+f2NV8QJYO/5Ztn1uOvXT2T7PPFjrMlu7Ke4vj1ylr9Txh Kx0cr3Ffb/mbT+MNz0u20yHl5QLPo7/5dDa0ZXoPfp7Xeena33ySnWoRQnSI mfjqbvs3n8Z0WuUO0KHQ8N4tjb/5ZMdgn1ajA1ET3inyN59kPNnXNOhgXt06 9gXn794xDjtZmw6Wh7Y/6MAetE1t6zOgQ9zwrX+CsbfYyndoWtKh6kLA7wl8 ft6elTiff5oO1aZ8uRXYNx0IirAdHbayhutuYo+7/NTtdKKDs/HjbTLY6T7s Hl0fOmhYp0lq4vOp51t9odiXDoOmy2So2Fx+j0QJfzpM7KhO7Mbn3zzojnF3 CB30YzXrjmOLRtu/OR5Hh+uTT1ar4XrRFHvqSmki/n3f57y5sN3j9CXEkumg ORp1tBTXn5d391j236fDO/s3mySxb2StGjYtpoMNrX78La5nfypyJy3a6fCl +3kkBde/guqUsNoXdDjE35xd+IBEZnUxihu66SAoLqWghV3W7O08xKHD3PSY u38OidxeaczajNFh47Zm4TdZJBod/fTzHA8DuJWqrA/i+n174t1dNi8DroZ6 Kbem4/o81bVPQYABbs3R57Sx02ae+U5RGFA41iuud49Epr9u8DiLMyDkeX7E 4VQcf5rCKo9dDCj7dSt66A7uv46O43f2MsDXfW7JGLuguaC5DjGA9+EMb2ci icJ9lK9TDjPAyKPpx+MEXN9HdvzK1WPAil1dJs5xJGotU/kyaM+AiPvXBDKi cT+j+7evPM8AG9tKpxXYD5wacpVcGbD0+bbr6SgShbCO2F3xZICDJstYPJJE amGaH1YHMOAEpKVdw/2w0cKo61gyAywEt0ry4n667Vl80cU0Bhxeq37lWBDu nwxORPJ9Bnz6/Mc7IRD3k1YzzckHDPD+ePC4dACJDmyzagwqZUAm/7bArX4k quFzLK16wQD57VldvLi/Pyvwu6PAw4Sv4h82ZuH5gVfTcE0cLxPepVv4FOP5 QndcOoFbgAnTJ2e2V+D5Y5TVfruXwgTPi5qdredIRCSIRl8VZ4L4VjKx+wyJ 7P3zgrt3MaGt3epW4kkSrT3R6+HjzISc5DVi05q4n89lz464MaFv9H1RswaJ iqK93XQvMkHWtiw/SZ1ER9olXTZdYYISfxr7oBqO/wF7hxc38P1d6qm+qiRi K3BZb8xiQnAUf37WLhJ5c8sda3vDBLtMBYPajSQaObiqb9MHJpgNz4fbs0h0 LHjy1LWPTCBWtO+mb8D9UqTw/I5PTGgauTtsIUGitnXbIlK/M+HAv+yg0dUk Et+5v8OdEIXb05a/c4TxfOmkp7n+qCjkL118zLOA5/kBLzWnx6Jwy+TwQYF6 DtpxMUcoolQUSrwb/ZxqOciS1veqsFwUiuqVzrys5qCnatvNv9aIwt7n7LUx FXi+ffLFxb1dFMLTiQO8JRxUG376jteIKKikT3jlZv/dD7Q/B4qJQUvTk6Sv eJ4fzpSKTfERgwvJNVkOuhw0ef3DD56rYtAVZ7Cgg/eFGau0U3b+YiDl+qxA Ge8TXBJS8sqhYhDWwm04rcZBa+Ik6+rixCCbx8XXBDjoWJDE9HCxGAzd79cY xHtghe16TYVxMXC701VXLcBBsTKrl5cZrgYu43OyxZX9KDLxTLOl5BroOtfj 0riuH5nEmncIjq6BgJ0vpJzP9qHvBzN+pFStBaMnd3/lhb9GQ8MHPOuC1oGr YJTeYG4vurdPeW275XrgM8lQ1EjqQfkBHlTbzeLgQCQuWId0oyBDaw2eOXE4 NFO5cb1NF9o+kJYT1C4B1g7W+cUir1C87J38dg1JCBcUHJIpf4F8a8LiNcok oVKbdm3LyQ6ktdYwo3WjFHARb299Y7GRilOzKTVECmZ934evmW1GKeusNrbN SQGH2Sx2RLsBbazPuq1tugFM9glHqTytQZGb6+ReVW2Axqtzn6ep5ejMt+Uv W+RYsP9jf9S64iJkVTQjGRLBgqy8hu1KQunIwU9/ST2KBfp70poe1N1DHvqP XwvGsIDprJsp6nkP79Ee4ZG3WbCTraD3fBDv27t+/IxLYkGUWqdpQGkq+lH7 pzczlwXx1YGOAxV3UeQrwbCGZhas+9PJnFeNQYnpjnaBLSy4E+c6dSU3GqW7 d6iqsVmg5lNhOUmLRiXMyEV2Bwv6ZQ6zPD5EogETwq6rhwV6klZ0n8WbSHpo tergEAtKt7R2mJzyR0qPvcTvD7MgeOC7Epe8H9odQP6wGWWBueSFDqf5q0hT Ounh+AQLFt8/vaCz+jJytZcU//qVBReMHpZRHN2Qz95rP4q/seC93MLWL1wu KEBosNt9jgVSJ0sO1cg4ovjC9Bvfv7PgavBc24ybNbp3dblt+SIL5gz6xwKV zFGurs0BnyUW8Jntpble1EePNzSt3/8bv19FRkH7kiqq+rbpx58/LODVLdT+ +3/I/4LEI+I= "]]}, Annotation[#, "Charting`Private`Tag$5018#1"]& ]}, {}, {}}, 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, 10}, {0., 0.43301269163227357`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.716567494400733*^9, 3.717751771873102*^9, 3.7498067684328413`*^9, 3.750409868673793*^9},ExpressionUUID->"ffe1d788-9efc-4216-9cdc-\ be61226b2677"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "a"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x", "/", "a"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7165675101993012`*^9, 3.716567525732217*^9}},ExpressionUUID->"2e03702b-14fe-402f-9f22-\ 6cd4546f47e5"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV2HlYTVsUAPASUiq3e869oWi4aS5kypC1pGcoU1KUIS5JGkxFNKpUmhHN syRShpSiUQNSqZS69+ApSROiaPD0tr/O9/vOt8/ed++111rfVeYf2247SURE RExUROTvM9GLP3XhoZDVF+YUNHo937e6sllp004le7h3y865wnAVTFSX+Ckp nQXv/HMTfoabILEsTHGK0kUYXb+u+oDhHnA0dHX6pRgL5r3lacaGjtA8fiTq m2IW6HtHDU8x9ABxYYf6gGIhyIz0LVJbFQqpL5JP9Ck+h1o5qfo8gwTIyb0o dNQTwA2pNvP4XXfADhpj+092wveTe5MMih6Cc5dmZ15OD7xvyHhUGPEEJJX9 1d8bfAOVtcO6ugPlEM6q1Urd/wMUFoaekzKqAr5wR6nYy59glt0clVH9DE5U +fOPqY/BJm/p2ZKKL+HecSnzmRv/g2UJTGeFcgOkujv0Ltgpgt1/gj1zlRvB N/m32VC/KNo95T/aHNAEIs3/4pNzYjjVeEiW29QMai6H3XZoTUHduqrO26ot 8HE42nJ68VS0fh9vbWjaCiZdRz0vn5iGRqUTFr0n3sCWj5Hac+dK4qLKF+6S Z9ug9ynf59md6fim/VUey7Id9GRb56y1kUav6an3l2oJ4FPYJ9+rttKopB+8 XE5XAImSv7q7HaTR0/wk7+d8AUhNnnk/1E0arU8GK+YuEUDvT6t1rZek8bVa /wPpNQLIYN4621dKY7GZlZrnTgEo3OwqjdCUwbD7Bn94fgKQhOEDzA8ZfKlu sTCoRQBuazSm5Y/J4JkPT/5d3EbmX7s7J0J0BroMtCa9FwigYkP5mNGMGWju s2fd/H8FcG572JUsrRloJLPVsKBXAH2286pOH5iBUqI7UuwnBPAy1EJDtmEG 0p67vliqC2H9gPUvFQsWml5bX7zxhBCSaL9m710s7BwP9nU+JYShlbdzmd0s bIhN2nvJVQgpweN21/gsPCyVtKPxrBDG1BPaJI6z0FNDsGaFrxCy+W8LvwWz 0O1c3EjuZSGw2mw8SspYWJX+rk3zvhAOTwTukq9koaZRO0s2TwhP1O4udqth YXifsvXPh0KwdxUZWFjPQlV5rtLjQiFUsFP3ZghZuD/xnatuuRBcNnesDv3J wmQZcZ2HDUJoqzgkaq0ji77XL3Rs7RPCtzWC2Z7zZdHF1D2c6ReCePnWxSn6 svgoxSXI7osQlpausPtkIIsmgezDboNCiHrMqjv5jyxO28+vuvBLCFvznsSE 7JPFhhsfJraIMVCdQS8ojpTFwhXG1XGzGHinGrzx3ytkvNiKqYOzGRhOn+CL Rcuil5XdpX8UGFBN6726MVEWW+S4F3vmMuCbVDbekiWL0UGB4wqqDKyOdqz5 UiGLxQ/0hAv1GHgYVLlPaVgW/+m+/oe9hoGbJrUzA0dk8fdNg1QTIwbipJqa BsZlMS06FHzWMuAT+X7d40ls9C5VONb1DwObYsb0LFls9E/3iI42YaAjc8FE iDYbj0hkjsWZM9Biv6zwux4b+e/0t97fwcAz7dWnrPTZ+O66XlKNBQN3ck27 1ZazcYWYunb/TgbcCg43lK9j4/nJY38U9jAgU5OQ/OsAG6Ot4jznHGJA9GK6 1T5bNvo6zj9O2zIwZHKLqjrCxoOqEnskDjPQXl8QePkYG7NKjBUH7Bi43tp0 TNeTjbxdv80SHBhY8WkaHoxh44LzH61iTzJweIrrv/X1bHT5MhAg7c3AbMXn b8Yb2Xjpca5PAXG9wZwGjRbyvbboPBsfBpY6VhX7Ctloa3zvxa3zDExt5sQv /cxGH0FvjrY/Axkp+RZJohQGn+ra0hbEwK4iyc21kyl0sud/sr3IgNTrfcYj 4hTu8nUoGCR2ERdftF2GQtVjE1MmhzBg7LyTNVWeQiZlzQ4qjIGPK0deOC2m sOKKeg4TyUCMxaaKuGUUvn8bKdh8iez/sZTCmhUUah+chsXEeWkbbiqvofCK 39T8a5cZ8JeIvdCymcJwSf/Ni6MYMOANeEwyo/CHZfqaaOL+VWtc5u+gUDww wXmEeMfxHv5Fawr3+0w+9fAqiac3y9HQjsKbodPmzY5moO1b2LKjRylU6DJ/ 70wcKtmhF+1EYeNb06Zy4iHD4DmDpyh00NDl82MYqLwuGLvuQ+H5ZG3N8Fhy viV63xv9KOy/a3bzNbFOm2/PnwCynkV/bGbFMRA1XbttVxiFzZfa3RKJD550 fygVR2HAkMa2yHiy//rvHmomUujnnuhRQyz5HfPXpVDosmDhj9/Ed09MLfC5 QaGaa1YJP4EBv4X2BYlZFLZ/CaSuEFsO1hYUZVN44OjZ++XEv49fejR0n8IW 6+D6WYkMNCwYeiSbT6F6yHXTtcRp3ywL9QopVFpcw3Yg3nhcoehIKYWtAQre D4kVFngXXaig8GyxiWob8bevH4rSqigMDHCjRomvHct8zNRSWCJR27AkiQH7 +ZJPRuspNFXpTzAjXvXV8Qm3iUKJ4Cl5DsSs3IYni1oozLjH4fgTdzrrF29r o3CcJ18WR5yvd7XYSUghHUA/zCUO/vKrOPgdhXrRIkMVxHtzrEsyP1CYv+Cd x2viBc7FJZUfyXzrsrd+JBbTUyr90E1hYZe943fi1gHf0j+9FIot4zb/Ic66 01Uq/4XEp8ddP4lkBjycNpQZDFIozzbwYhNv1b1dZjFE4Vvn7IpZxCoD0uUn f1Foy5M2UyT+mX28PGKMwkyBlSaP+Lljc3n2fxQ+t7psOo84QWdpxXMRGlV8 8gv++nh/TMUnMRpXra92UiVemz1eISZOY1NFuZMyMddx31MlSRrrlLIKFIh7 tMufGkrTuDHLw5RL/KSPV2nNojG6ZJWmDHHE7YDKMxSN+m97tk0m5jv0VEZx aXwZ718xQn7fEu1NVfdm0Wh8W9qrj3haX05VvQKNd1ov+DHEzC3Z6j5FGk3F vjTVEucedamexqMxfMF6x0JiX6031fPUaFR0u7w1g9iyd3mNkSaNr6QbPSKI f9tP1HjMp7HDVffhPuIGTf6zWH0a3+tvKVtLnNZT+Sx/CY0rqSMcdeKN9sHP v62kcc+i8MTPf+NJc+C5NNBoND/pVfXfePq89YWWEY3Pq3M2p/+NpyOc2kMb aJQ4IJi3k9hew632vCmN/MFRHz3iVZ8FtUlbaEww4KlNJu6wS3nZtoPGCbXE LbdIvM+3067fdIBGhnGf2UHuyzt7xWN3DtE4qtFDZRKHOlIsmSM0+oeISh0l 7jkxbtbgTGNBl/H3HnIf0z1qW8w8aAyaFR3dSO7vdu/S0/e9adyx7q1bALGI 7wM5yo/GVuGQ5XLivYHxVq8v0jg8O0ciluQDucsOby2jaVxR17MRSb6ojrLx Koij8eq83eyuayQfRpsrzkyicWxD3ZtA4saElQfar9OYvr3eqobko5DM6V27 75P4kJy8Uo/kq4knt/v319HoWFjoFk/yY05pclj5KxozDOJoJeI9FVf0VF7T uMxl+E5aBAOFNe7HOwU0QiS0p4YzcKrJdMj2M41zLVWooFAGurv7xo+KcdDt dozCUCDZ7973CbVTOegzdi1qF7HxQLOhjiQHt2nnSD4OYCD1+2PvARYHS++Y D569wMDu/0LEjs/lYIdXUdZ7X3L+bJ3prss5WL7oSKOJJ6m/Tk498as4WDJz 9fN4D7LempyaCuBgpe+iSX3uDIR7LPRnrePgB4uby/zPkfz+ael/t7dzUGvK t3upZxh4Ubjma4cDBxcWi34JOsFA1f6dzduSOOhnqCCYRurj4scx986kcvBt 26CUykFS/ziCiKTrHOxJOO27nE/qwYs9m/pvcVCsqHrJwf0MGC3mVwUWcDD8 N7c0ldTbMnGngpJXHKTKvOxrSb1+nOMbryPGRdHMFSGNpP5P3WQxO3oqF4vv Oc6JJ/2BWY96rKgkFzti3t3gk/6hm1d3rZXFxc8zmeS+1QxQsXKXfeZysa/9 iU7XcgYc/LKDXi/n4mp2UPXp+QzI72p19TjORY3PARk06W8OD98c+nSKi457 5mxJlGPg3mX3U2ZnuLjyw/RBHpeB9XVKJ9S8uOjxea+aNkXOz8jB8VUIFzmZ b8yUpRmo1RE5qJrJxdnNWZXZIgy4i2pte/mWi+pvMrvwkxA+GU9vU/vAxWDH doVLH4WwLajf5vxHLk6SunnofYcQVGfkHlvax8W47ii10++F8FJhcUTKCBe7 JUTOhLYJYa7B6noXSg7l9qva7nlB+kPn7ZvmbJRDu5dfLYKzhSDJnNvgnCeH ylp/fsxzIP3emSzpiAI5dHvWkKdkL4QD7Lam3CLyXlShfpadEB5tWLJ3sEwO qdRUSfGDpD99+PWES50cZje8zqmzFkJ5+KH4c5/I+A3PSqebCEk/vuVLwMyZ qKoT9NmU9M9dN5Sjkj1mYsRYS10nI4AojVmTCy1mYYdIcaD5PAFExh2uOaA0 G89bl73VsmkH66i99VLds9EmebAg2L8NRowzRpNL5FG/z0JjxOMNdHYZuVUE KiBYDVmaHWuFNMOF8nUH5uBA0cEYS/0WuHPBVdZOdy7apedPPzLUDIEWB03F hufi4lCP/6yzmmAJk5oVWKeIKtYymjJ6jRCjGX+nzlQJ96WI1Yu7NoB3WViM aaESpu2Y5/5N5yVslrfIeKGqjGqnPaefe/0M1jjX7Ja9qIzrrobuDU6ogmQF vurLYWVs1X0w6Zp4Bag+zby2ZbcKzvxH42nd8mKI1K3QaipRwR5X5fbEo/lw +MfkxudaPNw31iNW/O4O8O99V7oYwcMkM1HtuCvJ4Ohr/tvkEg9jdmt+9eQk g6t53hupKzwsvDTFwiY6CYKGXcMjr/GQF22iIx+fCDnLR8ejE3m41E6Z65YW D6PlE603bpPx8/djw91oiGySCqus4WFR1m0/x5gIiEt3OhLwnMzv6ve4PD4c 0l3q126o5WFFp0USnRwG+dzIsdp6Hn4o6r/3ICMEGGvqSHMLDydMxrTb7weC euestR2dPGwNS714PdYbFuSdm3u9i4cBhpW23BRPWHFBOGrbzcMrh2REAm64 wyb1xLs9vTz0StaVsHlwBk46KM0dHCTvt9lsGI09Bh6rzo/e/8FD6ZMbt5Xf cIAL0h2vXYZ5OJwkXBX4wA5ictNDRkZ4+Gyl2Tf5OBtI85lsVzTGw1UyI+VJ D3bCbTNbI4/fPMw5mxYMcVshT6V6zuo/PJyq/cbMKw6g5Ifa6MQEWe/plKa/ /w/8Dw86m+A= "]]}, Annotation[#, "Charting`Private`Tag$5059#1"]& ]}, {}, {}}, 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, 10}, {0., 0.44721358242714093`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.716567527232379*^9, 3.717751771888728*^9, 3.7498067684797053`*^9, 3.7504098687050357`*^9},ExpressionUUID->"fba3ced7-cd59-4a85-a466-\ a18cdcb2a412"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"30", "/", RowBox[{"a", "^", "5"}]}], "]"}], "x", RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], ",", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "a"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x", "/", "a"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7165675437810273`*^9, 3.7165675692212553`*^9}},ExpressionUUID->"7ba48fe6-262a-4b5d-bd89-\ 38793f296e3a"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV2HdYTX0cAPASlTTuvefeW1bD9WpKefHav28y0tSSFg0pGpqkIkqTdjRo SUtLoZT2VLeBhronqzQVSYOE9+ev83ye55znPPd8v7/vuFJW5/VslnFxcdG4 ubj+XpOuWPEqn76x/313pJbSotX+hi5JTSPJsyh2zm2eaauC/jRV+UtKXkL5 Rzw3xNjooqSaMIkVkiEoppt6tsHKEjns83BckEhApVZhjqrmLqjrp13stEQO 2lwmU6yjdw3xkYPSUxJlSNFf2fj83iiU1pri8kmiBZX9o7CjmJKGCgpDSAdF DhqrWh2YZFOEbNHLhEnXIRQ8l+pWpFOGnIZlhx4XjKOK6DYnP/MaJCB1Xfrd zml0VEI/am5rAwqnsOXSLL4hsT/yykoJzciKNKjmaZtHIfOErhOTjVwar1ud l15EihK/js0c60BFzoL6Ykd/oTj+Na1OMS9Qmrf9hJIRF+hd6NjmsvwV8ktZ 0p2d5AaPZV66A4e6EFfXe6jw4oGCxKYrBvbdaJP7GU8DuRUQ//ShQFBUD/o4 F3d8VSUvXNv3wk47rBepD5+7HO3CDxHW0jrOAa+R9sdIeXFxAXi/9mnwt1N9 aKLe6urz/FXQtVBUZsToR4rU3vWqp4TA/me6QUZtPxoJG/G7ZSMEXSufXvxe 34+SBBZGR+2FIOioxU71pn4kuFys+KanELSaOUaPt/ajiXnjw71RQtDx6lKO aHc/yhh443S2QQjql0ytlUf60brs4eoIWWEwUzvEa7qSgwTQnOXAN2E4XpXL H6TBQZ4qMvwli8JgoPqmJ1eLg0ZUTQsiuEVgsv7Tsk4dDqpTq108ICIC46Up PhQDDvLSC4vJkRMBKXvrz75mHPTJ5p/GC5YicOm3MZviyEFtNw1lqJ0i8KaP x37xJgftjgjumOgRgQ0vu//9FM5B2VHP3BsGRIC70c+ME8lB129L1V6cEIGI FI/2R7EcJP5iXuHLMgoMS5Ru1r/LQb39dY2G4hS4rJUzqprLQUemTBY2GFLA wkxdZaqZg5Lp/l2+JygQtNN0Oq2Fg2b35BYOmFLgJ7+WsCGbg1JDf9retqIA O7DrdkkHBy1K3+1b6UwBwXl7zpkeDsqzelM2HUoBenqrvM8gB1H6TvlU1VBg 939o4dJPDjrzJ+jE2gYKCCc5+S0tcVDFpofbPJspoLxwxefybw4668E1pdxB AfPgA5Ve3CSqo6WZZ5AUMBI3dLHiI5G71uD+m/MUeCmWnT5CI1Ff3WluEwUq kEdWKNfJkGhahbPm8hYqWMjF0ZZkScRXq7MtdSsVpiNE4rbJk2hH9W7bkZ1U 2PHxUXDaZhLFPqO0ux6igk5Rq7D9VhLpPK6Iv3GSCuVvlDIr9pCoKYOuVBlJ BU/fd9wmWiR6uzH06PsYKlyqVwE7bRLNpf+x4omjQkBoqJSHDok23pu4dTSJ CrVpnW2huiTyS6752ZNDhZZZ6aYMQxLtj3No/lxHBepm6sFEcxI9CW44KTlH haCRRofLDiTKVmeLBX2nwn4tPiE3RxIlCr56NfWTCivUJ2i2TiS6Gvnu8LNl NGhYcUtH3ZlEmvGLiscpNOANvHzzlxuJBrOU/tyQp0FoTiJd1JtEPWf/K5tR pIGqy5zwN+zn8vvdjLfSQLDzq1O7D4nyCzVGN+2iQYdm56nLV0jkWXqms/Yw DRi661e0XiORcPPdlAVLGmT6rDjJDCYRd0i68UkbGlhkXCruw55Vf0A02tFA 4XSEQ0IIifo7SoOiz9NgJj2FyrxBovu9r85vvkyDfQr6EkthJNo9wg/W8TTg nOI96h1DojMrPN53dNBgk35Sz6EkEq2RaHn98yUNhF5+d2Rjd+xc3ynTQ4NA 64RUnWQcP4fGSj+SBjuacrr1U0jE28W4s2OMBn5+fJ4aaSTKSC0xTOYm4EVv Se7CfRKdKBfQYi8nYDbJeuxMBokEu08e/M5HQO4lw+pubHc+vn/1hAnoduLf m5dJooNORhTetQTQjuU6q2eT6OOe762O2whQ+/yxSTWXRPGGmnWJ/xGQ/Xsw 6y625vnUsubdBNxhbWLNYj++p5YtpULAvlzvseQ8El1fmRDQo0WAc5F1wVA+ iXaypnyW6RLgdCbUUrmARJN7Vdy3GBDApTRfcBnbwHncKsSEgHdcSWK0QpxP r3fBPlsCbiRIS8s9xPk+HfbfuXMEbPp2Ic8B+6bAoGKcIwFGlqva8rFn94Wu /+pGgLs3D0e+iEQN9zmL968SEJ+ppCxajONbpTjz0p+ArvvZwdrYCn1+478D CUgrtfG6jh27Sr7vRBgBi2sKFSaxrV29nwgmEpDYd6XtwSP8/be+fSKbRIDs qbC1vdgCM1ByOBW/z6GVxvWYRA9deEuvZhLw39oXP3Sw/ZXPliblEPCwIn7c A/v4V3ZpeR4BQx8jriViLzlHPZ0tJuBSy8oH77A7lWafUksI4ATc3M31hET3 po+XKZYRMP98n5sE9lHndeV21QSYDcm/McZep+RbHlBHQGa5nbAH9vSXD+X3 GgnIEeseDce+fT7r2QCbgEG7HTFV2Ge3CFT86CCAbrrZpht77xeHCuYrApZ1 670bw6YUdlb824Of78rkXsIectpaeayPgFUmsm1CJSQqUbxV6Uji72/L2S+O Hfp5oTL0LQFLi2XGm7HNC0yqsj4QEMZ4vm4PtpJTZVXDRwJ6S5YHH8HmUZSs /jBKAPn2/B097N4pv+rfEwQkhK00MsPOyR+uXvsZ51/9y/LT2D6OajU7vxJw 0Pd5kz22zubcGsNZApTrprxcsDdMCdW6LhDQf0PltQf2fJ5zbcQiAbsH6klP 7BaHrtq8XwQcf+Qe7IV9V2FHXQsXHeSpBm/+2nkyvm6Ehw7P5iw5l7BV837W 8fDRgdcy2fciNtPhZL2kAB0E9Fe2u2GPy9fW7xOiw3P2vTon7IpPrAYTCh2A fc7CDjsiN7DhIkEHV13LTAtsK/vxhlgmHU6dDIw1wt4ur9lYtJoOfDP9clrY /J8KGjvW0cFO0OysCvbAA2rTJwk6+OcLHtuGXXjOvYmfRYcTPZ/e/oPtJ/e6 6Z9NdBj3/8FgYh+f2NV8QJYO/5Ztn1uOvXT2T7PPFjrMlu7Ke4vj1ylr9Txh Kx0cr3Ffb/mbT+MNz0u20yHl5QLPo7/5dDa0ZXoPfp7Xeena33ySnWoRQnSI mfjqbvs3n8Z0WuUO0KHQ8N4tjb/5ZMdgn1ajA1ET3inyN59kPNnXNOhgXt06 9gXn794xDjtZmw6Wh7Y/6MAetE1t6zOgQ9zwrX+CsbfYyndoWtKh6kLA7wl8 ft6elTiff5oO1aZ8uRXYNx0IirAdHbayhutuYo+7/NTtdKKDs/HjbTLY6T7s Hl0fOmhYp0lq4vOp51t9odiXDoOmy2So2Fx+j0QJfzpM7KhO7Mbn3zzojnF3 CB30YzXrjmOLRtu/OR5Hh+uTT1ar4XrRFHvqSmki/n3f57y5sN3j9CXEkumg ORp1tBTXn5d391j236fDO/s3mySxb2StGjYtpoMNrX78La5nfypyJy3a6fCl +3kkBde/guqUsNoXdDjE35xd+IBEZnUxihu66SAoLqWghV3W7O08xKHD3PSY u38OidxeaczajNFh47Zm4TdZJBod/fTzHA8DuJWqrA/i+n174t1dNi8DroZ6 Kbem4/o81bVPQYABbs3R57Sx02ae+U5RGFA41iuud49Epr9u8DiLMyDkeX7E 4VQcf5rCKo9dDCj7dSt66A7uv46O43f2MsDXfW7JGLuguaC5DjGA9+EMb2ci icJ9lK9TDjPAyKPpx+MEXN9HdvzK1WPAil1dJs5xJGotU/kyaM+AiPvXBDKi cT+j+7evPM8AG9tKpxXYD5wacpVcGbD0+bbr6SgShbCO2F3xZICDJstYPJJE amGaH1YHMOAEpKVdw/2w0cKo61gyAywEt0ry4n667Vl80cU0Bhxeq37lWBDu nwxORPJ9Bnz6/Mc7IRD3k1YzzckHDPD+ePC4dACJDmyzagwqZUAm/7bArX4k quFzLK16wQD57VldvLi/Pyvwu6PAw4Sv4h82ZuH5gVfTcE0cLxPepVv4FOP5 QndcOoFbgAnTJ2e2V+D5Y5TVfruXwgTPi5qdredIRCSIRl8VZ4L4VjKx+wyJ 7P3zgrt3MaGt3epW4kkSrT3R6+HjzISc5DVi05q4n89lz464MaFv9H1RswaJ iqK93XQvMkHWtiw/SZ1ER9olXTZdYYISfxr7oBqO/wF7hxc38P1d6qm+qiRi K3BZb8xiQnAUf37WLhJ5c8sda3vDBLtMBYPajSQaObiqb9MHJpgNz4fbs0h0 LHjy1LWPTCBWtO+mb8D9UqTw/I5PTGgauTtsIUGitnXbIlK/M+HAv+yg0dUk Et+5v8OdEIXb05a/c4TxfOmkp7n+qCjkL118zLOA5/kBLzWnx6Jwy+TwQYF6 DtpxMUcoolQUSrwb/ZxqOciS1veqsFwUiuqVzrys5qCnatvNv9aIwt7n7LUx FXi+ffLFxb1dFMLTiQO8JRxUG376jteIKKikT3jlZv/dD7Q/B4qJQUvTk6Sv eJ4fzpSKTfERgwvJNVkOuhw0ef3DD56rYtAVZ7Cgg/eFGau0U3b+YiDl+qxA Ge8TXBJS8sqhYhDWwm04rcZBa+Ik6+rixCCbx8XXBDjoWJDE9HCxGAzd79cY xHtghe16TYVxMXC701VXLcBBsTKrl5cZrgYu43OyxZX9KDLxTLOl5BroOtfj 0riuH5nEmncIjq6BgJ0vpJzP9qHvBzN+pFStBaMnd3/lhb9GQ8MHPOuC1oGr YJTeYG4vurdPeW275XrgM8lQ1EjqQfkBHlTbzeLgQCQuWId0oyBDaw2eOXE4 NFO5cb1NF9o+kJYT1C4B1g7W+cUir1C87J38dg1JCBcUHJIpf4F8a8LiNcok oVKbdm3LyQ6ktdYwo3WjFHARb299Y7GRilOzKTVECmZ934evmW1GKeusNrbN SQGH2Sx2RLsBbazPuq1tugFM9glHqTytQZGb6+ReVW2Axqtzn6ep5ejMt+Uv W+RYsP9jf9S64iJkVTQjGRLBgqy8hu1KQunIwU9/ST2KBfp70poe1N1DHvqP XwvGsIDprJsp6nkP79Ee4ZG3WbCTraD3fBDv27t+/IxLYkGUWqdpQGkq+lH7 pzczlwXx1YGOAxV3UeQrwbCGZhas+9PJnFeNQYnpjnaBLSy4E+c6dSU3GqW7 d6iqsVmg5lNhOUmLRiXMyEV2Bwv6ZQ6zPD5EogETwq6rhwV6klZ0n8WbSHpo tergEAtKt7R2mJzyR0qPvcTvD7MgeOC7Epe8H9odQP6wGWWBueSFDqf5q0hT Ounh+AQLFt8/vaCz+jJytZcU//qVBReMHpZRHN2Qz95rP4q/seC93MLWL1wu KEBosNt9jgVSJ0sO1cg4ovjC9Bvfv7PgavBc24ybNbp3dblt+SIL5gz6xwKV zFGurs0BnyUW8Jntpble1EePNzSt3/8bv19FRkH7kiqq+rbpx58/LODVLdT+ +3/I/4LEI+I= "]]}, Annotation[#, "Charting`Private`Tag$5102#1"]& ], TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV2HlYTVsUAPASUiq3e869oWi4aS5kypC1pGcoU1KUIS5JGkxFNKpUmhHN syRShpSiUQNSqZS69+ApSROiaPD0tr/O9/vOt8/ed++111rfVeYf2247SURE RExUROTvM9GLP3XhoZDVF+YUNHo937e6sllp004le7h3y865wnAVTFSX+Ckp nQXv/HMTfoabILEsTHGK0kUYXb+u+oDhHnA0dHX6pRgL5r3lacaGjtA8fiTq m2IW6HtHDU8x9ABxYYf6gGIhyIz0LVJbFQqpL5JP9Ck+h1o5qfo8gwTIyb0o dNQTwA2pNvP4XXfADhpj+092wveTe5MMih6Cc5dmZ15OD7xvyHhUGPEEJJX9 1d8bfAOVtcO6ugPlEM6q1Urd/wMUFoaekzKqAr5wR6nYy59glt0clVH9DE5U +fOPqY/BJm/p2ZKKL+HecSnzmRv/g2UJTGeFcgOkujv0Ltgpgt1/gj1zlRvB N/m32VC/KNo95T/aHNAEIs3/4pNzYjjVeEiW29QMai6H3XZoTUHduqrO26ot 8HE42nJ68VS0fh9vbWjaCiZdRz0vn5iGRqUTFr0n3sCWj5Hac+dK4qLKF+6S Z9ug9ynf59md6fim/VUey7Id9GRb56y1kUav6an3l2oJ4FPYJ9+rttKopB+8 XE5XAImSv7q7HaTR0/wk7+d8AUhNnnk/1E0arU8GK+YuEUDvT6t1rZek8bVa /wPpNQLIYN4621dKY7GZlZrnTgEo3OwqjdCUwbD7Bn94fgKQhOEDzA8ZfKlu sTCoRQBuazSm5Y/J4JkPT/5d3EbmX7s7J0J0BroMtCa9FwigYkP5mNGMGWju s2fd/H8FcG572JUsrRloJLPVsKBXAH2286pOH5iBUqI7UuwnBPAy1EJDtmEG 0p67vliqC2H9gPUvFQsWml5bX7zxhBCSaL9m710s7BwP9nU+JYShlbdzmd0s bIhN2nvJVQgpweN21/gsPCyVtKPxrBDG1BPaJI6z0FNDsGaFrxCy+W8LvwWz 0O1c3EjuZSGw2mw8SspYWJX+rk3zvhAOTwTukq9koaZRO0s2TwhP1O4udqth YXifsvXPh0KwdxUZWFjPQlV5rtLjQiFUsFP3ZghZuD/xnatuuRBcNnesDv3J wmQZcZ2HDUJoqzgkaq0ji77XL3Rs7RPCtzWC2Z7zZdHF1D2c6ReCePnWxSn6 svgoxSXI7osQlpausPtkIIsmgezDboNCiHrMqjv5jyxO28+vuvBLCFvznsSE 7JPFhhsfJraIMVCdQS8ojpTFwhXG1XGzGHinGrzx3ytkvNiKqYOzGRhOn+CL Rcuil5XdpX8UGFBN6726MVEWW+S4F3vmMuCbVDbekiWL0UGB4wqqDKyOdqz5 UiGLxQ/0hAv1GHgYVLlPaVgW/+m+/oe9hoGbJrUzA0dk8fdNg1QTIwbipJqa BsZlMS06FHzWMuAT+X7d40ls9C5VONb1DwObYsb0LFls9E/3iI42YaAjc8FE iDYbj0hkjsWZM9Biv6zwux4b+e/0t97fwcAz7dWnrPTZ+O66XlKNBQN3ck27 1ZazcYWYunb/TgbcCg43lK9j4/nJY38U9jAgU5OQ/OsAG6Ot4jznHGJA9GK6 1T5bNvo6zj9O2zIwZHKLqjrCxoOqEnskDjPQXl8QePkYG7NKjBUH7Bi43tp0 TNeTjbxdv80SHBhY8WkaHoxh44LzH61iTzJweIrrv/X1bHT5MhAg7c3AbMXn b8Yb2Xjpca5PAXG9wZwGjRbyvbboPBsfBpY6VhX7Ctloa3zvxa3zDExt5sQv /cxGH0FvjrY/Axkp+RZJohQGn+ra0hbEwK4iyc21kyl0sud/sr3IgNTrfcYj 4hTu8nUoGCR2ERdftF2GQtVjE1MmhzBg7LyTNVWeQiZlzQ4qjIGPK0deOC2m sOKKeg4TyUCMxaaKuGUUvn8bKdh8iez/sZTCmhUUah+chsXEeWkbbiqvofCK 39T8a5cZ8JeIvdCymcJwSf/Ni6MYMOANeEwyo/CHZfqaaOL+VWtc5u+gUDww wXmEeMfxHv5Fawr3+0w+9fAqiac3y9HQjsKbodPmzY5moO1b2LKjRylU6DJ/ 70wcKtmhF+1EYeNb06Zy4iHD4DmDpyh00NDl82MYqLwuGLvuQ+H5ZG3N8Fhy viV63xv9KOy/a3bzNbFOm2/PnwCynkV/bGbFMRA1XbttVxiFzZfa3RKJD550 fygVR2HAkMa2yHiy//rvHmomUujnnuhRQyz5HfPXpVDosmDhj9/Ed09MLfC5 QaGaa1YJP4EBv4X2BYlZFLZ/CaSuEFsO1hYUZVN44OjZ++XEv49fejR0n8IW 6+D6WYkMNCwYeiSbT6F6yHXTtcRp3ywL9QopVFpcw3Yg3nhcoehIKYWtAQre D4kVFngXXaig8GyxiWob8bevH4rSqigMDHCjRomvHct8zNRSWCJR27AkiQH7 +ZJPRuspNFXpTzAjXvXV8Qm3iUKJ4Cl5DsSs3IYni1oozLjH4fgTdzrrF29r o3CcJ18WR5yvd7XYSUghHUA/zCUO/vKrOPgdhXrRIkMVxHtzrEsyP1CYv+Cd x2viBc7FJZUfyXzrsrd+JBbTUyr90E1hYZe943fi1gHf0j+9FIot4zb/Ic66 01Uq/4XEp8ddP4lkBjycNpQZDFIozzbwYhNv1b1dZjFE4Vvn7IpZxCoD0uUn f1Foy5M2UyT+mX28PGKMwkyBlSaP+Lljc3n2fxQ+t7psOo84QWdpxXMRGlV8 8gv++nh/TMUnMRpXra92UiVemz1eISZOY1NFuZMyMddx31MlSRrrlLIKFIh7 tMufGkrTuDHLw5RL/KSPV2nNojG6ZJWmDHHE7YDKMxSN+m97tk0m5jv0VEZx aXwZ718xQn7fEu1NVfdm0Wh8W9qrj3haX05VvQKNd1ov+DHEzC3Z6j5FGk3F vjTVEucedamexqMxfMF6x0JiX6031fPUaFR0u7w1g9iyd3mNkSaNr6QbPSKI f9tP1HjMp7HDVffhPuIGTf6zWH0a3+tvKVtLnNZT+Sx/CY0rqSMcdeKN9sHP v62kcc+i8MTPf+NJc+C5NNBoND/pVfXfePq89YWWEY3Pq3M2p/+NpyOc2kMb aJQ4IJi3k9hew632vCmN/MFRHz3iVZ8FtUlbaEww4KlNJu6wS3nZtoPGCbXE LbdIvM+3067fdIBGhnGf2UHuyzt7xWN3DtE4qtFDZRKHOlIsmSM0+oeISh0l 7jkxbtbgTGNBl/H3HnIf0z1qW8w8aAyaFR3dSO7vdu/S0/e9adyx7q1bALGI 7wM5yo/GVuGQ5XLivYHxVq8v0jg8O0ciluQDucsOby2jaVxR17MRSb6ojrLx Koij8eq83eyuayQfRpsrzkyicWxD3ZtA4saElQfar9OYvr3eqobko5DM6V27 75P4kJy8Uo/kq4knt/v319HoWFjoFk/yY05pclj5KxozDOJoJeI9FVf0VF7T uMxl+E5aBAOFNe7HOwU0QiS0p4YzcKrJdMj2M41zLVWooFAGurv7xo+KcdDt dozCUCDZ7973CbVTOegzdi1qF7HxQLOhjiQHt2nnSD4OYCD1+2PvARYHS++Y D569wMDu/0LEjs/lYIdXUdZ7X3L+bJ3prss5WL7oSKOJJ6m/Tk498as4WDJz 9fN4D7LempyaCuBgpe+iSX3uDIR7LPRnrePgB4uby/zPkfz+ael/t7dzUGvK t3upZxh4Ubjma4cDBxcWi34JOsFA1f6dzduSOOhnqCCYRurj4scx986kcvBt 26CUykFS/ziCiKTrHOxJOO27nE/qwYs9m/pvcVCsqHrJwf0MGC3mVwUWcDD8 N7c0ldTbMnGngpJXHKTKvOxrSb1+nOMbryPGRdHMFSGNpP5P3WQxO3oqF4vv Oc6JJ/2BWY96rKgkFzti3t3gk/6hm1d3rZXFxc8zmeS+1QxQsXKXfeZysa/9 iU7XcgYc/LKDXi/n4mp2UPXp+QzI72p19TjORY3PARk06W8OD98c+nSKi457 5mxJlGPg3mX3U2ZnuLjyw/RBHpeB9XVKJ9S8uOjxea+aNkXOz8jB8VUIFzmZ b8yUpRmo1RE5qJrJxdnNWZXZIgy4i2pte/mWi+pvMrvwkxA+GU9vU/vAxWDH doVLH4WwLajf5vxHLk6SunnofYcQVGfkHlvax8W47ii10++F8FJhcUTKCBe7 JUTOhLYJYa7B6noXSg7l9qva7nlB+kPn7ZvmbJRDu5dfLYKzhSDJnNvgnCeH ylp/fsxzIP3emSzpiAI5dHvWkKdkL4QD7Lam3CLyXlShfpadEB5tWLJ3sEwO qdRUSfGDpD99+PWES50cZje8zqmzFkJ5+KH4c5/I+A3PSqebCEk/vuVLwMyZ qKoT9NmU9M9dN5Sjkj1mYsRYS10nI4AojVmTCy1mYYdIcaD5PAFExh2uOaA0 G89bl73VsmkH66i99VLds9EmebAg2L8NRowzRpNL5FG/z0JjxOMNdHYZuVUE KiBYDVmaHWuFNMOF8nUH5uBA0cEYS/0WuHPBVdZOdy7apedPPzLUDIEWB03F hufi4lCP/6yzmmAJk5oVWKeIKtYymjJ6jRCjGX+nzlQJ96WI1Yu7NoB3WViM aaESpu2Y5/5N5yVslrfIeKGqjGqnPaefe/0M1jjX7Ja9qIzrrobuDU6ogmQF vurLYWVs1X0w6Zp4Bag+zby2ZbcKzvxH42nd8mKI1K3QaipRwR5X5fbEo/lw +MfkxudaPNw31iNW/O4O8O99V7oYwcMkM1HtuCvJ4Ohr/tvkEg9jdmt+9eQk g6t53hupKzwsvDTFwiY6CYKGXcMjr/GQF22iIx+fCDnLR8ejE3m41E6Z65YW D6PlE603bpPx8/djw91oiGySCqus4WFR1m0/x5gIiEt3OhLwnMzv6ve4PD4c 0l3q126o5WFFp0USnRwG+dzIsdp6Hn4o6r/3ICMEGGvqSHMLDydMxrTb7weC euestR2dPGwNS714PdYbFuSdm3u9i4cBhpW23BRPWHFBOGrbzcMrh2REAm64 wyb1xLs9vTz0StaVsHlwBk46KM0dHCTvt9lsGI09Bh6rzo/e/8FD6ZMbt5Xf cIAL0h2vXYZ5OJwkXBX4wA5ictNDRkZ4+Gyl2Tf5OBtI85lsVzTGw1UyI+VJ D3bCbTNbI4/fPMw5mxYMcVshT6V6zuo/PJyq/cbMKw6g5Ifa6MQEWe/plKa/ /w/8Dw86m+A= "]]}, Annotation[#, "Charting`Private`Tag$5102#2"]& ]}, {}, {}}, 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, 10}, {0., 0.44721358242714093`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7165675699088297`*^9, 3.717751771919982*^9, 3.749806768510948*^9, 3.7504098687518997`*^9},ExpressionUUID->"9469b813-9d9a-4bcb-902a-\ 4daf5a33aa91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"30", "/", RowBox[{"a", "^", "5"}]}], "]"}], "x", RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], ")"}], "^", "2"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "a"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x", "/", "a"}]}], "]"}]}], ")"}], "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7165676362753196`*^9, 3.716567659121519*^9}},ExpressionUUID->"e1ca2066-8c26-43bb-8a1f-\ 74f99b39cf96"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV2Hc8Vf8bAHCjEMl17zWikFuUJPUtSbnPY5WVoqhURLJFRhSVVUKEykoZ 0aCMEpE97jEyMkoZiSIrIyOj/M7vr/t6v8655zOe5zzP594Nls5G5znY2Nj8 2NnY/v/58Jol1w6rUOaHxDttu/w/7q9qldI/LmUHNm4+nM/HopjLrJIAKanL cKNZ3PfM8Cvmmqi8bN4OfzAJS3HZqVnNfFgWJrlSKhj4BN6u0fjewpQftwpf trkDy1nZK/9c72Z2r3n0b+lTFFgeVs/jV/nB3PhkldLC4n0IznlmXvN1lOmo 6uE0JxkHTZsqhgw6ppiv23pTpzUSgGPh1L/l9jnmgoN+16RNImzT0r6QbfuX mcTeFTynlQx9qjkpq2vYQbMhctPspxRwDj3TML9pJfyMPVg+bZcKYnV62ksN PHDb6u/p34tpwLNvb/pE6WpoXbS9NyH5HJaSVzZElFHhEiGhOJ6TDiPu+W/5 NguB2N22+jGNFzD6y+abcq4IWMoh54hNFrx8JWR0TmU9cCxeaZr2yQaDA4/S JcSkoK3XeP20Vg5wxHy5ofZ8A3i94CuY+vQKdpj23l35byPoRg1wTSW9Bqs4 t+33K2VgnVf5sUm7XCCMNS7tebAZyjQ8J8YX38Bi9b2BCF954O7skx2TLIB4 wZf9RyJ3QkdZscfozwIIqVS49/Pdf5D+JLZyJKcQnE/5hVmP7wIDVwPzYY0i 2H3T7xvnxT0QvaowetCmFHaf8BvQ6dkPuZ66rm6iZUCNVcqOO8yEhOE9a3/7 lME7z8q+F7UAF5qpNlNa5eCxq1OAy1ENqAk1HJOfKmD8YrFSfKYmLK7Je+6y vxIyektnqSFa8N3v8ZGJpErwufFAsMvuAOTZXHs0blcF+xOLckyUtMH0v10q vxarQX6dycYcDn1Irku8OCJZC/4SepK3/zOC6dg3cl9v10KW1a4Hl5uM4IBN fX/LfC1crzlR0Ol0FEY554wLW+ugNkDG9k/OMVBWNVAJDnoPw/lyLk7Hj0Nz 1hKH7HgTrJB6OSckfAaosMqMX6EZLAoOXknvOAP7ZO6pBFk1g9rMleGHD80g fPr57ysfmgE5r4oYiJyFXZHt5y0zPsDliJu6tnkWcL1OXneHeSvUZ2zivCR/ Hp7l5Mtk3G8FdZlfvDZJ56ElVp1z0/tWWOyTbfQRsoaNNieKRPe2wWfuY100 Thuo4wxUYKO1A2utiHv3iC0Iq3ZSm1gf4eaiVKfOb0fIzArudFT4Am3RFSLu w64wTB2+rWvxBbx6yxZX73AD2Uu6zM33voDf9MihdV5ukLSfL7l//gsof1Ta 9pDbHaJqb1ubVneC2LSSk5S8B1zqvzN58HQ3DPQqsyZDPCGRrz5AUKsX/ug2 9/586ANMVe/Tvma9cFJStuf9lA90Xdi6e9yzFyKFb/dLaF8F0ZbQgffpvTDN +WGJb/oqRMbq69yifIPsSf7NnIbXIWBT45rlzm/gWEwvvS/gBzbwIW7UtR9k 3TKL9FYGAlvKbGFnaD/Mq/bb2OwOhNgV67rqUvshO+IXe+75QKiptZZ4/rEf tutI3frKCoTNx5ZSzqt8B6MazRs+oTfgp63six72H2DZyR/zen0Q2EddLWmO GIBjM52f1c6HwIUfW/pzM4dgvTePmWxxBPSafeYprx0C/mKeeovuCDjacUuh 4fsQPA6yj8v9GwHK9YOXf4gNw7rTLwUeMyOBMyeNIhw0DLfVr55ILo+EWJ8N TE/zEeBd4BGjvY+CctrauL2UMfDsviSqO3UPeDcEyn5VngB3/nZlHt84CKfU yyWf/Q17uRsfUG2SyXkeK+V8Pws5l/9+Gxp7AherAy2dZRegzSNe7O7bF5Dj svqoqM5fcGibFpOXz4Fkb4dhxeNsyDUaOrWskwv+iUuG06PseF4zXmfdnnxg a+3FoiucKGbaqMwQKAQZd2uvY3IrcY3jJikFWjF8n4kx4SvmwiXIjfGsLQXd H/ZXoy7yoEX5996/OuVg8D1iq4QEL6YbH+Lgj6yA4UpL35qXfFikq2Jg87wS FAQ/rtcw58cHVv1bZN5VAS/MWHT9XoMBoTo5Tg+qwUttM0/ewhq87idS8ftR NQxonMq8wy6Aam9FXTxTqqFCu3xBXUAAfxwWS/Z8Xg1XjMLuPpcTwP6iRc1T +dUwcn5T9SULAWQ7931FVks1vL9tvFmwSQDv6uWtCORmwcEx0zlpYwomTLUm Vtix4BE9oPX6CQp67GGkPnRkwfS+jKyuUxScf62555IzC5JCFm2iLSnY477M LeXBggXZhI5VLhQ0qvTQMvFlwQvL7oKJEPJ6+kyFfjQLKB3mPiVlFHxz4Je7 WRkLrJeDTohXUbDifoXVcAULimSyd3kRFKwhjNrcqllg58E2tqORgmXf+hSv 17Gggpp8Jq2Tglspvq2ebSxwP9THvD1LwRYxabOJQRZ0VFixm8oLotRQQ8Li agIm1L6IXd0uiHnmFA+KAAHc5Yd3Je0URPf0aDpDkAClUhWbAWVBHHTf/kxN iIB77ygNrlqCGOU8LGq1noDDuUWxoWaCePmCc5fqNgJYaXTF4ghB3Gt8uFtd j4CejSE6vXcFMaVrcRXlEAEzj5ctOWMEcTcjYfqLAQEbU4bv6zwkxz+YxmFv RID/o7LF9ueCmDhkv+B4kgBmjCPxq0IQ4w67SHDZEPDmVpWZ1Iwg0mtEvAJ8 CXimWy8a9EcQywssr2/2JyB+dUvL2KIgeth9bq8LIMA34uuBdxxULFy/yZk7 iAD92AUFEwoVD0YY6J0NI6DvqeJy6FYqFvFoOkbEEdBut6dgSoGKCifnNHkf EFCzlel2cicVrfKu2PolEPAyS29QZi8V3wWNhNskEuCVb91UfoCKVULWRrQ0 AtYQCYlzFlQ8Tuvw+ZlFAHvw45Nm56l4pqT9u1IOAdO66bRqWyqar6u86/+K gM+N+UFRzlRszL9RLfiGgNSPLc7brlJxbburq0AhASoDPHguloonnlSVB1US YL3So7exkYodC4aN9m0EiEnWflr8QEWePTWWhu0ENCqvb9rcTs5nQCxq90cy fo7Vxf6dVDzqWl82+4kArlahB0o/qbjT/Ynp6U4C0pLyjB+x03BVwLdzud8I OFHIe6h+BQ1HwrKi3fsIWN1mpvmHm4aOdacsd/YT4M7N/Z/RGhoeFu2qfPKd AM0Lxylc4jS8re30wnWQgO/7/tQ57aLh9fA7S9GjBMQa61fE76EhDSOyFcfI /XdOKiBUaNjzoHGRIJ2bov1sgxoNWWzPj4//IiBwVdyN9kM0VCbspDdMEqDM GPPhMKRhu99w2FPSo/vV3Lcfo+FwzeKdrVMEHHMZsgw2paGHpe9x+d9kPn3a i6o2NMzgn5+kzBDQMRG2x96ehkEDfQKBpG/z9inEONGwIoGonCY9rRqyftKN nF2J6ljjLAFVqV8WUn1paL5JWMv6DxnfEoWpDwE0rH/CL8giLd/hP/TvJg2F q/1cGfPk+8C3teNEGA0HXzyd+Uj6nKv3m9XxNLxyxWNRapHc/509b7Y8pGGN mcOcA2neKcw7kETDo0u3knJJZ1/kyvd9QsMd7oILzCUCAnbY5T98TsOQ7bbp vqRNJuvzC1/QcKN1CXcZ6SWXyLfTr8j1lGrW7vlLQJPi9FvBPBrOeJ7b5kI6 ZcKkQKGAhnMfzZhPSOu4rCu0LaWhleN7a75/BKxTvF54o4KG68a2X1MhPTH+ rTClmob/nhmp25COdn76rquehnqSRc0FpO228xbNN9IwuWM2/ivp/eOORcIt ZL7UdwhyLhNAyWoq+q+dhg6Np3dvJN1/YWfxkQ7y+4LXVmqQzlO4X+zUScNC UWV/c9Ihv+aKQ3poaFN2M+My6TOZpiVPv9Hwjoq1XyRpxQvFJVXfachGaeV8 SppTQar02yANt0jV7Swk/XHMv/TfMA3Zk7XX1JN+/vJHqfgvGopL6kd/Ju3j pF2mPEnD+KstdT9IH96WUWY8TcN9s58zxklLj/GXu87RUH+txd450rMvXMrv LNDwZYO12xLpWsfW8hd/afj5yPDJZdIJ8koVtWx07FAaGf2/XUZjKwY46Whg byf/j7TGi8UKTm46XpQ/L7pAWtjRrFKKl45cQl+zf5Me2lpeqcpPR2dqx8ww 6aIRRpUphY4P7QwHv5K+k3GzypNGR9E8/RstpC0dhqruCdPx31B9UwXp3Vv1 q3PW0nH50AdWNmmekczqxnV0PONnbp9AuitdkDUiScfpy5cLb5DOsndn8TDo uDNQOt+RtL/cJ9YmGTqu0zA7a0jaZHgvob6FjlrZinn/kV6yWyZ8ttMxQT7D ZpKMb9MWy5q4nXT8/vV05XvSKUNVNXm76Xg/+G19Gmkdu5DaiX10rC8L7Dvy /3zaMlbLD+R6n7JPSv8/n34erpNTp+Om3Wovpsj8i7YVqrfSpmP7q41bQknb bfaq99OjY03Wp+GjpPf//FL/yICOx50dToqR7rNJet9xjI6Oq46rJpH5vt1m a6O+BR1rzZkbIsj3pcdO0vmlFR0PyWWOAOnbjjTKGls6ftxPXRhdIPf74qJh 0wU6ZvlM9DFJP/apbzf0oaPkpeyBcvL9NbpeeunVdTqyadu3nCLN5v9ahBZA R32hGI7fc2Q+Bj042RZMjt8XqbiWtEiUQ7dJDB0pmlLVmmS9YN0zv5YfT8c9 T/0/1kyT9TDmqKToIzpi7rS8LukPCfssPqfSsWSV+XNNsh6FPuX7ceoVHc+G 1/aJkvVruShj9GwDHQW6rZ2YZH3MLE0MK2+mo6zlzJfoEQJOV9xVkG6jo+JX mTujwwQUEN4u/V/oODY/WH9niAC3Fr3p8z/peNR7R/ybAQIGB0cW7TmFMMzz W9q1XnK/h78m1HMJIc3h2O2Mr2R9HmtVlecVwuYIj3ftPQQkT727PkYRQtYT 4+kN3QSc+hvK6SIhhKaPX7bFfSbjT5Xn89grhP539Vy5W8j+6+Q09GC/EB5r eMgn9oGcL5FJVIAQNtbF6Mg1ExDusyOQckAIT32j5mo0kvV9QOlvhpEQOghv PmhaR0Bdgdp4n4MQ8n3mDxKuIKD67PHWI4+E8JquTch7sj/ueheb45kshDmi givvZZL9T+jLnUepQqgaHr7l5EuyH9Sd1h9NJ59XUO7SlU6A+i7L6qB8IZxe 0PnLIvttGbdTfkkzef0XTUWe7NfvMv0fyHMK44rLFZnKgWS/0zcWi+ESRu+J N6r3yfOB4ZBsHDuvMF6UqBEaJ88Pg4yG6I8UYYyucEuJv0oALU4kyldCGN8m 7VD6cIkAh4AXt9r2CqOR1PbQIlsCxE989PBxEcbm1s0bw3XJfjzzbHrATRjf 3BC/eE+bgJwobzdDT2Ec0/MQjD1AwMEGqYsy14Rx6g9xKEadjJ+6g2NzqDBq +w+XeKgQUC/Pdm7jU2FsuFrd9moLAd7sckfedwvjteJYD0UuAgY0+Tpkvgnj 6x9Tb0Y5CThya9Tc77swyuZpXHjCTvY7gSxnpRFhDOE/pU39y4L363bdSfoj jNUHLr2s/80CCWVmoztNBH2HQ+5X95LnwwtG+ut1RDDPyoPV8ZYFvF1XtC/k imBvvpD7fQsWKHk+57+TL4JHlrhbv5uxwILa0ZJVKIIaVutFdp5mwVvt3Wcm y0RQj9vkCMuEPJ++Gb/o3iCC3hURUe16LCgPt3pwZYAcr63n9Z3dLPI8bvDr pqgorn8RaudBnp9/PNlwL9FHFK0Vxcsk06rh3ua1KwqM1yIekfxRl1sFEfHW hIWUGIaNy5xd86YSTO+daVw9KIaUzZIJAYkV8EczbT6xRBzT1AKa7h0vh/4f 6l4VQevQNjzedUqgDFJUd4g3WKzH7aUHssZ3FsPLGx6CNtskcNOsxUuh04UQ ZHxOj3NGAheptntS/fNhd1fy86AGSbwhO+FocS4XYrc8eNmgJ4VUJ8liwicH rpeFxeoVSKH5RnOdzA8v4JC4cVrdxg2YW7Xk0rriKahdIE4JBm/AvSne6vK/ kiFxneXG9zMb8JCKea5idRxsrHwabXBKGn9d3MHd4BUJjfJ/UrtOS+OHXVKv ikwjwSta+7W9mTQK5T0tK9sfCfV2Q003LaRRN8xbnYs9ElwpW1eV2kjjyZin zrdCIqD0TKb3dndppP/7emJU/Q6Y/sk9SwmTxnRCC9+VhMIKy5XOj8KlsbKp c/VoUChk1htflY+QxpTPkbo6hqHAnjgbp31XGr++XhER/D0Enmkpt/rGkfdf qvDfyB8CM1HvtCbTpFGW/p9Ij/UtiNhWIddSIo3u3ZZ3d6jegGfKp1b5l0lj kLaJAwfPDSjVmB7cUSGNviWdy3ytgfDrpExaZLU0vt0cN19rFwh6N0MkDd9L Y1KI9YWZuADg+mpEb/4sjeI719jLr/QH74j+vw3T0rhPRmD7Sco1iHrg03V1 Vhq9ZefUynOvQvoToXfb/kjjw+PM+NSTV6Gj6KBX2KI06vSdPNGT6gNKQxlT +hwMTB8WLpJR8yZ/z7gP1gswEA9u7z4S6QXWv1d8qJVjIEu56eK+KDcwS9ds PC3PwN7RrupsPTcwsQisH9/GwA2fOWTjV7rBgSZOltAOBr7ouC1ad8UVZDI4 3lnsYSBPae1Umv1F+GHJljavwcCGv2tn1pRfgK61mHJbi4HtSY/1C9QvQFvz 9UTJgwykBuvxHKt2girmcpyWLgM7hoLLTzc4QqrYv/DIIwyMaSv5VPvTHqxa Fr22nGGgWjAUBx2ygdPB+y4VmTHQ7mbnas8eaziG3m6HzzLwyjOZDeYu1qCZ ueDkcY5cbzfXa/GY87AxZN6y3I6BUgdCwHjiHPSrzemfvMTAcx3FlthyFr78 UdId9WQg7288s+h6FlqyLh28fpmBs+JP7+bTz0LF+lm1NB8GGhZxpjvkmUHK /LTSpD8DdcyPyuX8PAWWOVNSwXfI+4semJ3JMgFH/6NLupEM7DY0fY3LxuBx NPfT6rsMzJwVjSs0NIZbMx7hEdEM1H3uQ/P6dxQy984vxjxkIANC8jQ8DeEt r+mnk4kM9CpeFbiy6wiUdxa+Ek9m4N5Hl7/ZaRyBtqs+dompDKzqzE3GXQYw X7788UkGA1dJJ5/ratQBjrtnX9m+ZOCzGAXT7gptWG1VHiaXxcAvW1Mj9xUd BAmuAM3MVww80aPSI16qBZq6XK/eFJDx8bhWW7ZSHQzEbcI83zFwKb/rEdsm NTg+StjuLWbgaznD+Tc6CPbhwZLFZeTz9bnaxA6qQkTL6rAqgoGeq2Y3BO/c A/GPnWxv1jJQWFGzkq92Nzx2b9TQrmfgQS1b1XT7XZAnHLFQ38hAycXzykeb dkDZ4ER7WDMDnQNEF+yiFKH2rWHO4RYGrribJm9frgBdpjTb1nYGNh7V62Bn ysHAVneN+5/IfH1V3iMusRnGl9okjn8mx//2oayJLgMcidHtX7oYWB7vbqJ0 QBr4XOayE3oYGJfxNZPdTwroaidum/Uy0Fdu60nFtPUg279Wo6+fgev+8/6d 5S4CirlXJFJ/kPklt2f5v2Q6qNzonD8/yEAzI+XtOYuCoGGyv112iIHfDjUE +/IIgL7sw+yhYQaGj65fPe3BCyZ//oZmjDLwdH315V/ABea1ZjZOvxjoMjTp nGzNAbbxperbJxio3rFjy9W2v0xXBymJyUkGyhvMyo/fn2P67Pebf/WbgSZM LdMlwSnmDf6+NvcZBmaI3D5HiRpmhveoZyvNMTCh2zp09FIfMzbrceifPwxc HncafPbkEzPFd4VN4QID36j8XcdMqmNmGJ5X91lioGmvXqJcVj4zV5q1nvmP XK9DwYmc1zHMkt8y88vLDIxQ2vPp/////w8hlHS+ "]]}, Annotation[#, "Charting`Private`Tag$5146#1"]& ], TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV2Xk4VO8XAHBRWVoMM0NJtiuypk2S5hxLWZIWRSlEsqSQLcmuyJpQabOl b2khWu1LmLlZs28tErIlIVvld39/zfN5ZuZ97z33vOeceUba1vXgKW4uLq7w RVxc/3+9F2C7dKNdFOue35Ho8uRarYomKWNzKScQyRX1iBq5wlqoKg6VkroA QywvXDvyiLUy/vVzgfYQUFsRss+Lv5B1rzRGcolUBBQ9Gmz/MsxhKY/ZxS44 XAXxofXJO3yaWB9XJv/70xYPhWoHtuzk72bJ/sevPjd/HSZq70ZfYPSyzuz0 OjsteQtMGXTnZ8PfWS+av2RM6t4Fm4JMUiNyjDXnbNw97pACYZ/+LlnhM8FK XdQdMb0rDcrj4nIfxk6z9Gqvrfvdlg41b9qch/n+sL4n6ZdNOmWAVKRLjLMH F0Tb/T0+Mf8ABpu2cLYweKBp3jHxp2QmtKN/DWuYD7zZEmpjOY/BqldeMUB6 OYglNFeP6j6FWh8HemyEINgqIs+wQzbcIWqZsefpwD3vWz/p9xzav3bvNvZm QvOXw2snd+WAzK3enz9jRMHn6bK8X225UFt8JHWYVxyM4vuX/kp9ARtefY3F 0xIg7lN2aNzpJez23fut0F0KSnXP/xybfwX61Ylme+gE8HZ9lR+VzIMUnb1D LwbXQ3tpkdfI9zwQOHHWzT5AER7/l/RuOCcf+vr/Hr8iqQwm7ibWQ7qFYLXr aMOq8A1wgz//xoBDCWzx9CKee22Gl+eN3D1WlULVmLlE2bktcHdo2+oJv1KY OcS3nM9zK7g0CDv82lUG9nG95epR20D4Lod7vK0cNIYtrGmLtWB+5etMN613 MNezqpDcuBO+Bd/f/zP1HTR9CBh6fYoFrx0CksecKkDJNZDNdEOw2LxF88d8 JaTM5+fmC+pC2vuUc8OSJKgMnOxL7TWAyaRXip+jSfjTtciJr8gQdjtU9zbO kjBj8LhR6LYRjPBMH85veg+j+5Qt+K2NQWOniWZEeA0cMlvHqyOwHxqy/3DL j9VDQCrt/iuRQyAM/FYrVBugAzDNMfUQ7JBL1Ay3a4C/Cq4WQ0qHIXYyc8L3 QwMwejMtjxqYwZZrLadsn3wAX40ihZ4bRyDwvbLRRusmUDihouEeaQmPct7I PbneBKnPuml/1aygMUmHZ11NE6gUqXw37bACWYcjhau2N8N5gRrHXNET8J7n kioXvQWuKQYxw31sQGRnl3B9VSvYFXsLK5yyg6zsiK4zqp2w57l6T+zgaRgS Hoo2sumEvaOZKT8POIO8txFrfWInKCqPtokWOEOq1rK03tlO0HKrM3599QzE k9H2FpVdsNszw1JNxwW8e6+O6x//CF+sPyVw9btByrLqUKFdXwA4cZ3r8jyB tfPi8SCrL/BHK5WRMOsJ3S5KW8fOfwFj+bsaNppesKoxqr/m8Rco9737V7LI C64lGRteofXAnr17c9axvSF0Xd3Kha4eCGnuENcd9QEH+HBrxL0XVj/4vNg4 2B+40n/nd0X1QqLP7fwtNf6QtFi8+31GL1xxEb3gIxoAHNJeIrO1F6zGVnFo 2QGw/tCf9FOa32A0sDg75GsgfHeUf/ppUR+Ud2x+paISDKfj/Ysb4vrhz2Iz mWdVoeDSp9D7MmsQPh/RjBIIiIAvVh18ZeQgSHmPMXJyI8C0/Ypq7bdB6GBq y0QORIBG9cCFPrEhYGYsj246EAk8OQ9oIuFDcO/cmemy9VGQ5CfNOm89DJyT 9PaFz9FQRl99azttFMzf3hEjt8eBgPQl+c8aP+G67u2aAmYixNKqFdNOTMCf 0qeO51h3wbbrUAlPzW9w4n0USqreh3OVl2xd5efA0FCFdH39CHLclpuuMvwL rWYMjRjDLEi76DykZs6FUvybWrvMcyEk5c+ByZFFOLllvfoN91fA1fQFC315 8M+n1T/yY96CnKe9zyHFJcjVmqxz82cBfJu6abasaCk6nzCMMKKVgFHfaf/4 c3xILjO1MVMpA5NvcUoSEgL4u3w+7uibchh6ZxvEebYMy8YsEm0EK0BVqHWt rvUKVFulEd9gVwkCMGXTPbESR8sCNsQGVYGP9nq+13MrsUXP7o3A5Sro1z2W dXWRIK4nlrteiqiCcoOyOR1BQWxV93J0ja8C34MxCZmKgshvc9uayKiC4VPr Kr1tBLH+5H5tbnYV1EQfXi9UL4h17ksFEwTYoD9qMS1zmIaKoV1BRVfYkMwI bQo8QsN4D+Evp6PZMLnjSXb3MRp+SIwGZhwbUiPnHW7Y0tBibvP8iZtsmJO/ 287vRkMx7DFofsCGp7Yf835G0nD0E5+lQjkbaO3WfsWlNHwhVnA1bIYN9gvh R9ZU0LBol9fyxnk2FMo93+LDpiGXo+VpsQU2OHlxjW6so2FE9MqqtCUcKBdO s3zQRUOh5WG9kcIc8Nz7lRX9m4a7Wdt+VCpxoL3cbpGFshBu/muu3HGMAz+1 O8X8NwhhWNN15xgrDvCW7duSukkIy2PTulg2HFAv0XTo16A+n395zy17DiQW 0GrddwnhDrPjR5TPcWDfy8KkKCshzOizvPn+MgeqHjDUiuKE0P99nnnvUw58 ko00/JIghI38Dy9oZXNg6v6CLc9NIRS/+v5tfA4HZNOHrhveE8Jifrdo9dcc CEkunW/JFMKv1v4XjpVwgHXzDPtHuRCOxGwdW/2BA6+uVFhJTQkh39HW+FO/ OPDIqHpV+IwQ6rEe/4ia5MDt5Y2No/NCOCuj05j1mwNBcZ93F3ALY5+vierQ HAeMk+ZUzWjCKPR5scI2HhK+PlRbiFISRkX58AcKdBJanLbl/VIVRqbtbfVV TBI4SiyPo5uEsXyT/G4eURKeZe8ZkNsujMH9/p/qxEjweWNfX7ZbGNOG+ft2 yJCwkn03ZdpGGFfs02w+o0bCooj7R61OCeOSbXYriE0kTBo9plc6CuM776LC ls0kdNS9CY93FUa/7JV+attIyGhtdFXxF8bZ4A7Xgp0kaPbz4ckkan+d+go5 IxLsl3h9qasTxvzVlyX3nyBBTJJsm/8gjP/0Pn4MsCGhTmNt/foWYVR9XeP7 2JYE9TOVRSFdwnhlXn/fjB0JS5uYd9S/C2NxTp6FixMJD1JfH05eREe7g/bF 786RcCRfYG/1YjqOWk/plbqTsLzZSm+Gl46XQxse5HmQ4MnLu/ngSjqKpHhM pXuRoOdiTlu6ho5VfC2V+y6Q8G3HzPuzW+i4+nLrjFAQCUmHjctvb6NjfRab r5uysWtqHluTjufUQ8bSg0l4mW7wSFqbjppqsSgfSsIl/luXW/bSMTSRHOYP I0GDGPXjPkBHgQn203zKI1ranhsO0VGOs1rXMZyEQ26DthEWdDzUsWws7woJ sm3bcacDHVWb0mBbFAntP2O2nT5NR6XkrP/qKEcLfFW9eZaOevbVPbZUn57c Gbl23IOOO1XTm4JjSKjI6JzLCKLj5+ujabeuUs+3WPXXh1A6Xii890A0jgTl 9pDBf2F0zP9u7BdPOXGZUvuRGDqOtKumB1wj4aT7xVfLb9OxT6CrRi2Biv+m T68U7tEx9pS3RwJlgV/4encqFY+AjmUTlJ+fW/om6D86nt96VygzkYTQjU5v 7mXS8YNRQ8ACZbPx6jf5T+n4YqXXx4PXqbnC7drbyVw6+t8tc/lJuV5t8q3Q a2r9N7ppmjdISP9plqeaR8dwYrgimLKhm3i+Ywkda+/Yf156kwRxtcD8y+V0 FGoSa9Wj/HOsJz+9ko6yOS+LAinfcH1Y0F1Nx/vvbKxHKDttECicraOj7l+L 1RJJJGiNnSkUaaTj2u9LKowp07LrCze30FH8mLm1D+Vel01F+9vpGPxdbziV 8mvV60Vnu+j45WOFQxXlyB/TRZGf6LhRr675O2XLLIvihz10ZH8+sonvFglq LkXFFd/oaK5mGSRLmUdVqqRngI7jbs3FOym3joaU/Bui8i/p7agp5cxnfSVr ftAxxXzxCgfKfmcNSjXG6dgs/kL8POV9Kk9KD0/S0YpWJn6JsszoijL3aWp9 EaUVsZR/P3UruzpHxx11P0YTKZNnmsqe/qX2ixcoSaJ8V1m9nORi4Htf/6Bb lN1Gksr7eRh4yVx/003Kuk/ny3l4GWjw2rH5GmWRM1bvpAQYeP/zV/sIyoNK Ze92rmBgXNubQX/KhcNEhQWNgRcsh467Ur76JKziPJ2B60b8Sy0p2zoPViSK MLA2z5thSHmrknFlzmoGLn/bcWQjZb7hrMo6cQZ+S3gaI0K5+7FQ1bAkA4tf TeXOUPHMPu1ZxUcw0FK7kNNGOUSxrWqdHAOnmHz1LyibDW1n6ygwkK+upzKa 8h+nBbbfBgZmzNtd3kq5XsGWc2sT9f4+wmQJ5fTBCs7rrQxM077F20jlg6FT JPlzBwPraz4a2/4/nxRGyRXAwI617PZ1/8+n7/veK+owcCHg3uF+Kv9uODKr 7QwY+OiHiYwVZaf1PtXBexjYeNXInUlZ63tndbIJA0/ae74gqXz+6pBa036I gcHf7vArUN7goFRnbMPAw2dO8r6jzssnJ0nXZ3YM3KfzIego5egzdNpKRwY+ c39tMxJPxfvc/IF6FwYeLbW14KV836+65YAfA8M4nxSFqfN6MLDEOzeQgfzM u71R1PnmCnkhSg9lYE/F18XclC3D7xxtjmBgWcSj4F6qHojGO380u8nAmY8J jhep+lGVaB3w5jYVHwf66fZIqh7eNJVclczAypWuLRspf7i7w6Yjg4Hj+ueH Oqh6FPVwWd+xXAaeKVeiL1wmYaHwyciJWgbuH/COuRdIQlZJSkxZAwNP+Azo lQWQcLw8QVWmmYFyB+849fiTkMe+6NbbyUCb7+S8iB8JHo17Jk99Z2DLOnsj cx8SBgaG50/zMNH5EXetshsV76HPd6uXMnGT7EkfUVeqPo827VQWYKJJqOv1 f2dJSPtVEDhKYyJbnlxX7kzCsb9RPG4STHTJtXsk4UA9f2HlZV7bmRiyOzNQ xZIE1tmzg3e0mMj7xrdz6hh1vewsdjkwUWFWQ7rAgoRYv42XaLuZaL8rx0Pr CFXf+9X/PjnIxBg/ta1ipiS8z9Me++rMRPO+j+d0DEioPGHetD+ZidyCvFsN qP64pSAp53waE32uXszJUqX6H7PzanIGEyd4fssKq1D94P1x45HHTJzljv9V r0CCzhbbyvA3TDwXk7FZniChlPfsm+IGav9niZl6VL8uyAq5o8wjgoN1F1xY 0xxYanxY7OZSEYzz0xcRm+LAgUH5W4sERPDg9fmdv6j5YYCovdFKE8GwmwmC ST84QL8lGh8kIYI5ckRtXh8HnEOfXmneLoL3lFfqmDVxYM2RVi8/N+r7y/6Q 0084YD/1aLLfQwQ3TrS/ssvkQE78RY8D50Xwc5Ljtrr/OKBfK3VOLkAEHzLv /ruRxgEPHeczDVEiuOO6S+7CDQ5UK3OdlH0oggYztcdUgzlwcZHi/pqPItgq O2mw1JQD/XrL2uV6RJBLUPw8cz8H9l8ZsQ7+JoK0Tyc8pPdS85Ngtqv6MHW/ rIiODfocqBHfcjV1RgTVZQM95HZwQEKDVedJF8WtjK23L8pQ86HLQeO1hqL4 Kci7vPoHGwS6fQ1cXoriweS8D+oBbFA/n7ni6htRvHj/69VSXzbYCLc3ZueL 4uk+7nz982x4a7DVcrxUFK8yLh02caPm01dj5zxrRVHv5voyLVs2lMXa3fHt F8Vxg78KKbvY1Dxu8iNs1SrkeihlEUTNz33/SSem+K3ClseS4/3RVZC4fvXi vMOrsZ92c3fT8UqIu23PtpESw3spmovq1laARaJl3fIBMRTdl7NyilMOM3oP ZlOK16BlzNuK6J1l0Nun41MeLo5Lf5sqyHmVQPrOjWtqbdZiZ59wdhmjEJ5d 9hJyUJHAruSu0OW9byH88Mk9PFMS+PP6FZMVFa9ga3daZnitJB4Qe/PI1j0X khTuPKvdI4VRjjuknEeyILA0JmlPnhTWbe6d6K17BHvXHH7wXlYatw2s+7Zd 7z5ou7CPCUVII73WsqJf7R6kiNvK1kxJY+TvJgnmgUTQ3Kykajstjb/eJbXc 25QIzYaT22ZmpDH7n/aUJiMR+M6H7ZH9I40HNU/H5LYlgNuHx+5+3DJ4/T5t 4qZ1AmDYRKmyoAyOpw0L63jEw9exS5Yx62XQNHhz3O7HcSD77uENk2MyWLN3 +JhKTiTUKc9kdB+nHBQu/SUwEnxuGLw4bSWDSz9PuheZREK102B9mI0MDtMl v0+PRIA7TYm/xEEG2VYXbc4qRUCJZdbFDZ4yuF9a9p7d83CwmHl5ghYjg64x pqGNnZdgse0S1+RYGWyukXk5knUJsqoP+yvHyaBbzMrmTaGXYFHK71sGCdT6 LqMCusqX4NEujaagWzLIFXfU2zMoFKbiC3aNP5DBg9M9KrIbQyBOpVyxsVgG TTArbMYhEB5pHOMPKZVBl9DgpAZGIJToTg5sLJfBwiPCf4TLA+DHUbkH1ypl cPXiXcy2tQGwJyxS8kANdT0ae+nWnX6w9PNBRkOHDF764vk72MEXLsb1/q2d lMHSDz0/Hjd6Qfwdv27/39T9yInOTkd7weP/mAUqMzI473OUO1ffC9oL9X1i 5mWwZHWB9dliT1AffPLLmJvAv6HbrHlyPKjfS54D1YIEthq4tBY+Pgf2E4s/ kIoEXugUmKvocQarx3p1x5UJ/OSR1nD0gjOY2VyqHlMh0P1yiOFzIWfYXc9T xdxIYMdiq/B0vdMg94S7wGYbgbznckaTXzhCny3Xg1ldAp0KXt1e/voUdK/G 9OhdBArARRr76ClobghMkdQnUPH+6EO9f3ZQwVq4tcuIQBnGhusRhnaQIfYv 9tp+Ag+1LWvQGrQFu8Z5HwVLAo8metgc23sCjkfs8C60IrBfS3Nlxpw1HMKL HvtOEGhuvENL7Lg16GXNnfU6SWBC20JnGmEFspGztmVOBKaMJBrKVB6DXu1p 46PeBF4SXv2Z96A5dM6oG42cJ3C973/Zie/NoDHbWz/wAoF790unP9Uzg/K1 v7Uf+BFIWAW4Buw8DOmzk+rjIQR22vIpPNM2BducX1IRVwm0d8wIu79+H5wJ Mf1jdI1Alfu3XHI3moCX6cu25QkE+rdp1CSz9sKVKa/YuBsEhprfERSy2wNZ 22fnb94j8LTIfNjJj/rwVsCi7WgKgZ61VyZPLdGHsq783DVpBLpZnOI12Lgb mv39nFIyCNzs5y7xNFEPZssWWv97QmBzdnTHXIQ2cCecyHV8RmDhZKj2og8I y+3KYhSzCbyn2bNpcA2CxNJQvaxcAgVlqsSKfHeCntHS3Fd5BHpzMktJSw0w WeMQc76AwJaK9a/mFLaB+QjbcXsRgcemtUbH/26F07ERkkWlVDyiIhK2FG2G uMblMRVsAiPcXfXXb9oAt++fdQwjCSwemDixSF8F7nvW6RpUE3jQ+cfmM85K 8Fokbq66jkB+hz27Zr/KQ+nAz5aYBgJ/nDS9Ka4uB+TbAzn7GgkUkhV/35Qk C90WdMemFgK5BrkrF6KloV/JU/d6G4HdvtW+XhJSMPanWcK8g8B/2qYdiwLX AnfKjZbObgKHM33NX51YBcvcpp/f/URg/LcdwaZcIsDQPhJt9YVAS55mbakS Osj3rtb92kvgC6ljF+O2CILaS1+JjD4CxXn9fQzPLgPNy12zpwaofFmIeG73 jRd0zbRa5AcJ1NUz2tZ7azEYy997PjhE4IaQkBVVMYvAbOZv1JMRAndLDmiL B/1lWZNWDmd/UPEweZnkYzPDcrxdorPhJ3XetD5mpZdMsNydpSTGxwkMeBzf tW3rGMtPK3g2d4LAVwVPN1Z/G2BdXvG12XOKQA/R57cXxfawYj/pPFefJvBb lpVAvk07Kyn7ftTMDIGGrckmflvrWelBix3y56h838HtLhtbxnpy4JSO3x8C a02zU8u3ZrNeylStZf0jMBPMU1nqV1nFE3KzCwsElgasjv3//wv/A+h1Zxw= "]]}, Annotation[#, "Charting`Private`Tag$5146#2"]& ]}, {}, {}}, 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, 10}, {0., 0.1999999883073172}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7165676596997075`*^9, 3.717751771935609*^9, 3.7498067685578127`*^9, 3.750409868783142*^9},ExpressionUUID->"38ec7305-297a-4f4c-b977-\ b14679ce70a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"n", "^", "4"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7165677836036167`*^9, 3.7165678055122166`*^9}},ExpressionUUID->"aa3a97eb-1ec6-4938-b090-\ 4176253703c0"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[Pi]", "4"], "96"]], "Output", CellChangeTimes->{3.716567806277924*^9, 3.7177517720293684`*^9, 3.749806768667162*^9, 3.7504098688924923`*^9},ExpressionUUID->"cc37833d-472a-4267-9ae3-\ c61856bc1181"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"n", "^", "6"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.716567819232437*^9, 3.716567819654358*^9}},ExpressionUUID->"90d33ad7-f86b-4f2d-9831-\ da3e27033bb9"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[Pi]", "6"], "960"]], "Output", CellChangeTimes->{3.716567822920334*^9, 3.7177517720293684`*^9, 3.749806768682783*^9, 3.7504098689081135`*^9},ExpressionUUID->"fffd2d6d-b9e5-4409-82b2-\ aab7c8bdec4f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Problema 2.4", "Section", CellChangeTimes->{{3.7165697756073103`*^9, 3.7165697839363284`*^9}},ExpressionUUID->"7d6ade1a-2135-48f4-b517-\ b816ff18e1e3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"2", "/", "c"}], " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", " ", RowBox[{ RowBox[{"Sin", "[", RowBox[{"n", " ", "Pi", " ", RowBox[{"x", "/", "c"}]}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "c"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"c", ">", "0"}], ",", RowBox[{"n", "\[Element]", "Integers"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.716569787999264*^9, 3.7165698555377555`*^9}, { 3.7165700230088377`*^9, 3.716570033775617*^9}},ExpressionUUID->"a3fdad90-d8ec-476b-81fa-\ a82dad2f677f"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"c", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"Cos", "[", RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}], "+", RowBox[{"2", " ", "n", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}], RowBox[{"4", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]]}]], "Output", CellChangeTimes->{{3.7165698359887853`*^9, 3.7165698567722635`*^9}, { 3.716570023930812*^9, 3.716570034478818*^9}, 3.717751772482541*^9, 3.7498067691358013`*^9, 3.7504098693611317`*^9},ExpressionUUID->"fa75f819-e1d2-4d96-8dc0-\ 63f99bedf6ef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"y", "^", "2"}], " ", RowBox[{ RowBox[{"Sin", "[", "y", "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"n", " ", "Pi"}]}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"n", "\[Element]", "Integers"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.716570678219717*^9, 3.716570750055545*^9}},ExpressionUUID->"34a6fc0f-fd52-4d5e-9bd6-\ 5ef0aac93a91"], Cell[BoxData[ RowBox[{ FractionBox["1", "24"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[Pi]", "3"]}], "+", RowBox[{"3", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}], "-", RowBox[{"6", " ", "n", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}], "+", RowBox[{"n", " ", "\[Pi]", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.7165707517588525`*^9, 3.717751773607662*^9, 3.749806770244918*^9, 3.7504098704702473`*^9},ExpressionUUID->"3c7f6e77-fbb9-4f32-a273-\ 90a217ed94c7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"y", "^", "2"}], " ", RowBox[{ RowBox[{"Sin", "[", "y", "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"n", " ", "Pi"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.716570767041741*^9},ExpressionUUID->"49235353-c731-4c80-b95b-\ 43e89e01f69e"], Cell[BoxData[ RowBox[{ FractionBox["1", "24"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "3"], " ", SuperscriptBox["\[Pi]", "3"]}], "-", RowBox[{"6", " ", "n", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"6", " ", SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "n", " ", "\[Pi]"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.7165707674949155`*^9, 3.7177517739827023`*^9, 3.74980677061983*^9, 3.7504098708295383`*^9},ExpressionUUID->"4f32383a-76f2-4a65-9680-\ 321e1a675d28"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Problema 2.7", "Section", CellChangeTimes->{{3.716891067497424*^9, 3.7168910704196124`*^9}},ExpressionUUID->"d48cc16e-e905-49ed-b73f-\ 47ff48ee86e9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Piecewise", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"x", "<", RowBox[{"a", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}], ",", RowBox[{ RowBox[{"a", "/", "2"}], "\[LessEqual]", "x", "<", "a"}]}], "}"}]}], "}"}], ",", "0"}], "]"}], RowBox[{"Sin", "[", RowBox[{"n", " ", "Pi", " ", RowBox[{"x", "/", "a"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "a"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"a", ">", "0"}], ",", RowBox[{"n", "\[Element]", "Integers"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.716889563414275*^9, 3.716889588385703*^9}, { 3.7168896261084976`*^9, 3.7168897219156456`*^9}, {3.7168909621892576`*^9, 3.7168909889108725`*^9}},ExpressionUUID->"84506153-469b-4331-815a-\ 0ff901e29989"], Cell[BoxData[ FractionBox[ RowBox[{"100", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], "-", RowBox[{"Sin", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}], ")"}]}], RowBox[{ SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]]], "Output", CellChangeTimes->{3.717751774904676*^9, 3.7498067724162855`*^9, 3.7504098726259937`*^9},ExpressionUUID->"3f9ceb8f-afc2-4f2f-8cc0-\ 779735c22deb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", " ", RowBox[{"Sin", "[", RowBox[{"n", " ", "Pi", " ", RowBox[{"x", "/", "a"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"a", "/", "2"}]}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"a", ">", "0"}], ",", RowBox[{"n", "\[Element]", "Integers"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7168898900899277`*^9, 3.7168898954029975`*^9}, { 3.716890994552103*^9, 3.716890994692743*^9}},ExpressionUUID->"1b5ecd22-c6f8-4160-ba1e-\ e67dd23b909f"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"50", " ", RowBox[{"(", RowBox[{ RowBox[{"n", " ", "\[Pi]", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"n", " ", "\[Pi]"}], "2"], "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox["n", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]]}]], "Output", CellChangeTimes->{3.7177517750453167`*^9, 3.749806772619363*^9, 3.7504098727978287`*^9},ExpressionUUID->"1e296ad6-db98-4b23-9844-\ 224f7ca92c62"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "a_", ",", "m_"}], "]"}], ":=", RowBox[{"Total", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], ")"}]}], "4", RowBox[{ RowBox[{"Sqrt", "[", "6", "]"}], "/", RowBox[{ RowBox[{"(", RowBox[{"n", " ", "Pi"}], ")"}], "^", "2"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "a"}], "]"}], RowBox[{"Sin", "[", RowBox[{"n", " ", "Pi", " ", RowBox[{"x", "/", "a"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "m", ",", "2"}], "}"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7168904128647327`*^9, 3.7168905111252675`*^9}, { 3.7168905520671577`*^9, 3.716890569865941*^9}},ExpressionUUID->"a903c290-f6e3-4103-9bdc-\ 3b5765a3a622"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "10", ",", "41"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.71689051525071*^9, 3.7168905342371206`*^9}, { 3.716890573319436*^9, 3.7168905868365107`*^9}},ExpressionUUID->"10cb0428-ba65-43a0-a585-\ 846915861ee7"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1nk0VusXB3Ay3CguzqFE3pe3ek1JlAjtnSZT/AiVNBAZUypx0WRoVnSV mahLEqUMyTxEIpIMRTrHcCWUMXN+5/5x1lmftZ6z1tl7f59nPfIOJyydFvHw 8CQzz3/v+PMOgusdb2x5XRGosePQvi2VTWzTvWxXuLnxQI6jrRYsVBUHsdl/ QWzmXXEF250QXxrKEmBfgxIT37Xl+23AQ9/7+CQrGiJ31JlF7zsGTbMuEcOs NPDb/1eGltVZ+KO9izvEyge54GsTUtsvQ9LbRK8BVg3M+Gq97JC8B5lPr7V7 qH0GhyN8woM9KeAMjdGDp7rhUjDXPpzIAs9epe7szH64ioYzP/7KBWH5YO5X 7WEY6Lozq+xdCLfEapWTjozB7IzYI96ZUnBotyrhq/sF+/Z1UrtnKsDrdbDD Ce4MXNq6oO8yVAVZJ5fuWW40D97mwrcUUmogyd/9u/peHuypTcxrf1QHgYlz FuODvNhix52gnBqAp4nCQj8+5L+5o1aWbIQ1Z475WikL4Ei4vtL6Gx+gZyLS ZkmRICY8/Fe7Y7AJjHvdzt3xWowi51SzTh5vBrOeMBU5OWG8xdFzC6Ja4HuF w8U3GUvQ0M3Wb3ZHG6iJt6zcdlgEszfFlEW8/ATCMGHfMSaKrpxbafmr2mHX kO2kgrUYfnrS7acZ1wFt5Y68tqriaGpbwL9WthNyrlYeYk+IY9agJRT6f4Vj At5Ufb0E5kkpkrQPBStYNa2zjRJYa0CMCPhTUK+9skGxWQLnO/T/VDtPgZbH 66LAdgkUU++PvhJMgWCTZKzWNwmst1i93S6cgn/u51on8BKYJfTM0SWdgh7d qbfHNxAYrJ+tGPaVgihr0/KYTQQeTimWLOuiwPTE/fzqzQReaEhe/6OXguxk w0fyWwmcMdPI1R2kIFgoOqR5N4F8J3yEY6coWNWqg/rOBPImcofkxWhoGw7d 5OZGYNrcafZPCRpuCnepRR4n8Oc76d0vJGkY17++cuQ0ga26vgYsGRoqH36e eXiRwM1xLy4HrKbBt1httDGIwOXa5zymuDSotgX2/75MYHJObL6LMg0RS1Ta 9oUSOKD/w2z1OhqOnvLPWRpDoHt2Cr+gNg1aGp05SvEErmv5eVhiMw3Co5i7 8z6Bm1LO2ojr0fDMSzDvYgqB/sUyEv8CDUHrXfPi0wickDLZX7CVBpuR2rxX Twg87TkFgdtomDsZ/nL8OYEPmlV5e3bS0KA+/lI8l8C4oki384Y0JA/b5Kvl E5j76Gi4kDENRidlX7mUECiqcsVwxJQGWfULr0LKmXrmjc7uNqNh+Cf9Kvk1 gYvRLi7anIZ7J1ILOmoJVMjlVeC1pMF1nXDhdD2BkucF18nuoUHvp0eh1AcC P4pY3l5jRYPY04ZCzWYCQ6ZH5NjWNHR7ahT9r41AP9aawsU2NOSq3S063k6g z0+XXRTj6z8mi653EviS6/MgZS8NBzNti1NpAoME9uYc2EeDumdRcWUPgUTf IccFxnxq7BK6j8ApO92Y8P00tAwFlvz+TqBK2riBhC0NaRm9JTI/CFR8PGZ6 iXHAccNS7REC09UF0zoZm69NL7UeJ7Cs2MFY+QANCkMiZacmCVz5NH2NI+Nf T06W3Z4hsLhiZONNxjUeTWVP5glcJZN7KplxnKpWeQ0PiZdvDHxKYXxyMKr8 Xz4Sk49OukUz3vZktpzvDxIHwrK4foylPA5VsIVJFFFxJI0Y96uUVeiLkNjv +HaTIOPCAU6lrRiJFt2isVnM/91Ov1zpQ5C43K/GyISxg3t/ZYQUib/N5yya mHo3qpi+zpIm0dlNrNKI8eKBzNf1siRSSY3PM5n+dDwWrxpgkRjO46a5iPFT tzNVizkk/nnT7uB2pr+Byq1Vq9eQOO5/wdib6b/Nd51qAyUSFb5OSN1l5jXn ulAdsI5EvaMlNUnMfBuUHN5Ea5Ao2ho5douZf3J/5ZvcjSQafSwKcrdg8uR6 vWZYl8RhkffeY0x+ZJWGakSAREFpJ9XE3Uyevpm/VTYgUTg+eHQzk7d7LpK1 jobM90SDxzYjJk+KvrWXTEhcGPAPebaLydO3z7UJZiRyExPOijJ57nK+X9dm RaJL6N6SeAMa1jmr1JvaM5YOsBLTpaHTlXUiw5HEWumDvJ3M/rrpQYiJupBo TwlKx2kx/faatWjwJPGV5pGu7+tpeBBQ22wRwNR70S+jg9m/y+64f7GJZOo1 cBB2FKehKuLw+bwYElfXNzQeFaXhTOQe1vIEEvvERub3L6GhMU7X/tNDErdM jsqoCNBwI3VJ74HnJFa1FEe4M+fNQmH64JF3JEqsGIou+kJBZkliaNl7Epd5 FYxYfqbArvxvNYWPJC51q6Z6WijIr/Y/2f2ZxLt2v0YWGig4/cFk3OkbiYpR sddlyyno6xuYdeOTRKevB3U2pVDQIKG6xFtHElube/TLT1BQkBkYq8onhYss CzYIXP0K/rzK/6v7IoULPCrmmkKdINzhZ+iZvQy/BT3frnWzA3pT5CMSA5bj 7fEEVv7GdohQlObPt5ZGK+2Hi3c9/QRhMceq7dkr0CtW6Pla6zawjThYv7Rv Bb7fERSkOdoCU9v/mU4slsGHO512KQQ0Q3evgW/5FVk0ox5bCMp8hGT99TLv 7FdiE/vT/IuYD5AR4i3uvFYOr5Wl8zfpNMIV66MmfBNy+ONO3K/IjAbY2JGU duUdC63uJxs3ltZBlFJsxjsTNvp+c7VKHK+BC6WhUSb5bBTq3qCVOl0Fu2Ws /3m7Sh4fHOUY+gpWwlbP6gPi1+TxRrpYx+T2MkiUdVhVNyGPF6MvWC7cL4RV Fan3zA4o4JedNTnHFuVB2Npy5Q/FCph0v/7j8sQsODbG31ijzEERd6E3vuap 4JA1yr52m4MRCW7H4tKjwCNwz5xxOAc3X0rkXjCOAu892a1L/+bg+2UHpuz6 I+HqhPetsHscrEp48U6QGwmZOtOzkfEcVDzDp7KQdBemyxZaUtI5eMctoWD4 7h0I+7A0tLKag2Jfm7U0e69CzIPjLpdrOIitxm9TWVfhwZn6bYa1HBzNX6Mx s/8K5EqFzdTWc3DXQFupTn0IdNgSLk3NHNykd+ecek4gcLult3V1czBer99U fdYX1LP95B72crD6sbSwk4cPbA5pn3bq42CMT+9Wzy/eYMqNf9b/nYN5W15w F5ecglPubLmREQ4WzPuUGfK6QoDepennYxzUsM7JD6WdIESk6+OZCQ7meNQG ppY5QNTTBzempjh4ZKe1fvei/ZB8kd/51QwHRetlre3KLSHdwskgYI6D4GVf d5jPCLIVqlZu+c1Bx2ylxDQ+HSgeWzO9sMCsp8w3/Hcf/D++BLvM "]]}, Annotation[#, "Charting`Private`Tag$10656#1"]& ]}, {}, {}}, 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, 10}, {0., 0.5424379593135746}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7177517751234493`*^9, 3.749806772728713*^9, 3.750409872907178*^9},ExpressionUUID->"324b7ed5-262b-44de-8a56-\ 1ec0c0c18935"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"16", " ", RowBox[{"6", "/", RowBox[{"Pi", "^", "4"}]}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.716891413783942*^9, 3.716891422753653*^9}},ExpressionUUID->"9c1b9dac-ba0f-4a10-bdb3-\ 23f574bc6be4"], Cell[BoxData["0.9855342964496963`"], "Output", CellChangeTimes->{{3.7168914181281586`*^9, 3.7168914234724803`*^9}, 3.717751775139076*^9, 3.749806772744334*^9, 3.7504098729228*^9},ExpressionUUID->"a2f73ce2-4dfe-440c-9f7d-b309445368f2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"n", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7168915788328886`*^9, 3.716891595647191*^9}},ExpressionUUID->"0a2b18ae-b9d0-414f-98cd-\ d55b8db98c74"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[Pi]", "2"], "8"]], "Output", CellChangeTimes->{3.716891596381646*^9, 3.717751775139076*^9, 3.749806772759956*^9, 3.750409872954043*^9},ExpressionUUID->"025292e4-2275-44c5-90ee-\ 83ed444863fa"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Problema 2.8, ocupando a metade direita (n\[ATilde]o deve mudar nada)\ \>", "Section", CellChangeTimes->{{3.7384281525312614`*^9, 3.7384281766675997`*^9}},ExpressionUUID->"12bd74df-8b63-4fda-bb51-\ ed9f8f60c44a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"n", " ", "Pi"}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"n", " ", RowBox[{"Pi", "/", "2"}]}], "]"}]}], ")"}], "^", "2"}]}], " ", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"n", "^", "2"}], " ", RowBox[{"Pi", "^", "2"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.73842791743682*^9, 3.738428020837385*^9}},ExpressionUUID->"90fb6597-9c91-4197-88fc-\ e445512c448c"], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.7384280122967653`*^9, 3.73842802192412*^9}, 3.7498067729786544`*^9, 3.750409873172742*^9},ExpressionUUID->"3af74715-6968-4cbe-b5d9-\ 86f5df03cc15"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"2", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"n", " ", "Pi"}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"n", " ", RowBox[{"Pi", "/", "2"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"n", " ", "Pi"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "12"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.738428040051918*^9, 3.738428072444172*^9}},ExpressionUUID->"f43d7b0b-e131-4a97-a32d-\ d4f1a4fddb99"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["2", "\[Pi]"]}], ",", FractionBox["2", "\[Pi]"], ",", RowBox[{"-", FractionBox["2", RowBox[{"3", " ", "\[Pi]"}]]}], ",", "0", ",", RowBox[{"-", FractionBox["2", RowBox[{"5", " ", "\[Pi]"}]]}], ",", FractionBox["2", RowBox[{"3", " ", "\[Pi]"}]], ",", RowBox[{"-", FractionBox["2", RowBox[{"7", " ", "\[Pi]"}]]}], ",", "0", ",", RowBox[{"-", FractionBox["2", RowBox[{"9", " ", "\[Pi]"}]]}], ",", FractionBox["2", RowBox[{"5", " ", "\[Pi]"}]], ",", RowBox[{"-", FractionBox["2", RowBox[{"11", " ", "\[Pi]"}]]}], ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.7384280682743015`*^9, 3.7384280728593235`*^9}, 3.749806772994276*^9, 3.750409873188363*^9},ExpressionUUID->"461f106e-211d-485d-8793-\ 086e7181ceb5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Problema 2.29", "Section", CellChangeTimes->{{3.717433332004343*^9, 3.717433335114052*^9}},ExpressionUUID->"69c346f1-e8d9-483c-ac77-\ 21907b63b067"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mc2", "=", "1000", " ", RowBox[{"(*", " ", RowBox[{"nucleon", ",", " ", RowBox[{"em", " ", "MeV"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.717435460076275*^9, 3.7174354870166626`*^9}},ExpressionUUID->"e2ac66dc-ee7f-4b87-8b56-\ 144b5fa54eb5"], Cell[BoxData["1000"], "Output", CellChangeTimes->{3.7174354882042913`*^9, 3.717751775154703*^9, 3.749806773009897*^9, 3.7504098732039847`*^9},ExpressionUUID->"b239cc3f-3233-4ae8-a8ea-\ 0a96e9ae8e95"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hbarc", "=", RowBox[{"2", " ", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}], " ", RowBox[{"(*", " ", RowBox[{"em", " ", "MeV", " ", "A"}], " ", "*)"}]}]}]}]], "Input", CellChangeTimes->{{3.717435495423815*^9, 3.717435517098013*^9}, { 3.71743556486876*^9, 3.717435565665721*^9}},ExpressionUUID->"40e9bd6f-d287-4955-9414-\ 18bd74073403"], Cell[BoxData[ FractionBox["1", "500"]], "Output", CellChangeTimes->{3.7174355202546015`*^9, 3.717751775154703*^9, 3.7498067730310006`*^9, 3.7504098732196054`*^9},ExpressionUUID->"dbf5c984-5125-46be-971e-\ 053f2183b6a4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"10", "^", RowBox[{"-", "5", " ", RowBox[{"(*", " ", RowBox[{"em", " ", "A"}], " ", "*)"}]}]}]}]], "Input", CellChangeTimes->{{3.7174355261927385`*^9, 3.717435537350185*^9}, { 3.717435567915962*^9, 3.7174355684316425`*^9}},ExpressionUUID->"ec211567-1157-4446-b92b-\ 5d793553f819"], Cell[BoxData[ FractionBox["1", "100000"]], "Output", CellChangeTimes->{3.7174355390066137`*^9, 3.7174356053262243`*^9, 3.71775177517033*^9, 3.749806773045961*^9, 3.7504098732352276`*^9},ExpressionUUID->"115f3aa3-afc1-4d28-89da-\ fdf2d0b4f4ff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v0", "=", "100", " ", RowBox[{"(*", " ", RowBox[{"em", " ", "MeV"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7174355433352013`*^9, 3.7174355617277985`*^9}},ExpressionUUID->"23dab2a8-94f8-4f91-b77c-\ 4d71d931cfba"], Cell[BoxData["100"], "Output", CellChangeTimes->{3.717435571994525*^9, 3.717751775185957*^9, 3.7498067730619183`*^9, 3.750409873250849*^9},ExpressionUUID->"2df46929-9d75-47bb-b9be-\ f3277d9679d8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"e", "+", "v0"}], ")"}]}], "/", "e"}], "]"}], ",", RowBox[{"-", RowBox[{"Tan", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", " ", "mc2"}], "]"}], " ", RowBox[{"a", "/", "hbarc"}], " ", RowBox[{"Sqrt", "[", RowBox[{"e", "+", "v0"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", RowBox[{"-", "v0"}], ",", "0"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "6"}], "}"}]}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"Red", ",", "Black"}], "}"}]}], ",", RowBox[{"PlotLabels", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7174333412709627`*^9, 3.7174334694409547`*^9}, { 3.7174335104453516`*^9, 3.7174335219309587`*^9}, {3.717433582968753*^9, 3.717433606080606*^9}, {3.7174336884644394`*^9, 3.7174338133997107`*^9}, { 3.7174340035138454`*^9, 3.717434020109375*^9}, {3.717434050815792*^9, 3.717434066786255*^9}, {3.7174341399034696`*^9, 3.717434171766261*^9}, { 3.7174353918189554`*^9, 3.71743541821241*^9}, {3.7174355878087206`*^9, 3.717435633001066*^9}, {3.7498068133238106`*^9, 3.7498068667406363`*^9}, { 3.749806900174912*^9, 3.7498069018307753`*^9}},ExpressionUUID->"82f0a304-fad4-4968-9897-\ 3f27aa7b972a"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwdxQc41usfgHHz5UW8XjLKXkcoo6yM5zGysuePkhEqIbtlnbJyUigZkYiT SseWFV8UHZwiskLRMLM5tv+4r+tz3aLul6w96WhoaIr/63//q8T/3709AupM 7sWG14gh/31HrpJ3CfjLxQzXzicjRe+ZTeo2AXJDWUTKmQy01FoYJrBJgDWl tOYMVw6qEPfalVwnABsJq9cu5qLQKPEo+TUCMh5PadVQ8pHqyFda9RUCvOxU 3T5vFaDaB6cYTRcIMD2q4nnN4xkKW+aLs5sjIDpv6tfQ/HOkZdnH7DJLAIkD JLY9ixCQrdgCJwmYnD66bClUjN6GGXClfyWgN6QzVX6zFMUO0qfmjhKAGj0l 78SXISOVJp4XwwRkHzuw/ZlajtrnNQ40DBBgdFbjcYpABepyVxT93kXAed8f wqGsVWjYSEBeoYmAsJ1DpHthNehRwWCJeiMBNet2qGW8BrnQpSnpvSZA8e7s bohhLRqv41SxryHgw4v5wAK2OjR5hEkrrJSAiduL1Y1x9WiFe8nkXS4BmTtC SR9MGhHrWJuX6w0CKML9cZkCzYghWCYfRREQg7oTo/Sb0TYpcUwogoDkgVv0 vD7NaFbO+vTIVQKKncLEnWub0fsrw1ZOAQT0PMpV+92mBSVTFjVtXQl4w/Zp NeHqG8SLD3AZaROwlhcmqJrdisRzfBrlNx0giZuSEnqpHel+juA5uu4A4vHH KhQT2pE7b7KvypoD/Bsm6NuX347y7lYe1FpyAFWO42Ujg+1IJGr3ssm0A6S3 +b2c1u1Agm5JCp5DDiDiRbQf5exEvOIVuZm1DuDFqHB8M+cfxPp06ybjdQeo sSFvdhl2IWotHnXctYei+jdOvRMf0SenHlHBy/bwj/CAlHPkJ3T+hGX3z3U7 0JqplJ1t6kdVrw94C/vbwaWVq64hPENIXOdhet+ULQS9VPe7YjKM3NhJR+/7 2AJNp/8U28lR5HShoQq+28CL/LYCH5WvSILd7c9lTxtgt1Q6qaw0htgaamQL pqxhY0Cx595v46hkyyXzrbs1hN8YmQtQ/IYkbi4Ez363gtFrh+ORzHdkm/5e 7cZpKxhsXTjdq/4D5VW7pzzoswSrvck1T8OfqElszKHU0RLGxcs77A0mkKqy 077QfAtw1bl6udhlEiVWt+o+eGoOfbK9I68vTiEnh/cm91PNQMHAsUM5dRp5 sulG3I03BbN4h9bwphlEsUu4lZZ4Elw4NeI4xmeRUo3vufBwE1gu/3XGW3IO rZZICvpHGkOyoHPdlTPzqFD6I32wjTG0aPX1Nz2YR2sNxrsusUZQmunHkm6+ gPwmmcsOXzEEgX4au3m6RRRbkKXFHGYAXnGXssXKF9H+iI6H4H0CGnKrr3y7 voTGfbwkQ8/ow4msu/HapsvIcv5TrJqHHtgGOthzHlhByolfawdsdSG37lXJ E6ZVVNvQ2BrjoAM1fCecZlZWUTiJdVfeBUOWu6iu/dwa8u0Z5/B/og3GGBSn qetItInoySjShO2Nh7FUzQ3U8oNBM/KP4/DO++aRwuxN9FTRyTbijhrUTThe O8O6jUjP41ouP1SB9piBlwmZO8jGcaZfLuIY5Mvkhczc3ENj8usPt6KVgPP6 kPXfbTSYRzP7rW+YEoxNywfc7qTBpka681+ClOCUXfUj624aXO16W/eNuxIM E/HKk0M0OClZZOo2VoLVuKAqtTkajJeNVIS2FWE7z0YjcD8tzqnK6MJBisA6 p27o7kWLnbU0GGPdFMDUd+mTBBcd1n+uwSfiqAA0fhnmpXx0WI5XU7bWUgHS /l5q0xGiw9sLmlZzSAES6427/Q7R4ax87Wx7IQWo0vTr2kB0uIo32tu8Sh5C LJXlB3zpcFlFcnvSsyNQz8CzMdJJh5/PFSXsT5KDDU+R7EsZ9LiCUzbCO0oO Rkm6Ea9y6HHDsWcBjf5yMKtQdoLhT3rcfa2AuGAlB0+TLuYVldHjddIjqddU ObBazbJW76THhsJ3mz1SZeGt//5KIxoG/N0iYLM8UwbWE3uKgnwY8Fzg/C/m P2SgltHL2yuIAa+n+o45X5cBCx52WpdrDJh1+MI7ptMy0MIjNewWz4CVzrs/ OCUoA8tTfKg4nwFHRdko0T8+BEqRdnn+owxYsFTZ27pAGuyC5gy67RnxaMzI cbv70pBeSBpXc2HEj51iWImb0vCSo+ND4TlGLMbwqcjZTRrYlpaHc68wYimH 4PnzgtLg0QfEZiYjVtgpC45M/Q1O61ZKWY8xYn1jhciiGClg1zNp5QghYUah AYviYCnIzdsNfBxBwq1LkSJlZ6XApoL8h0Y8CRtnfWh6pSMFKVuSpskPSdh8 3o+hZUcSmlUkDV83kzCR+vLWYIgkqPG/vX6Iiwn7jMncJ3lJgFqFofhSPRM+ t2ehJGMvASGOwl3abUzYXTCky8xAAmpXKg+mdTNhR8dGtlQpCThGpZv2/smE DbptYsQnxKFtkeNXLoUZizSFheLz4vDLWbPS/Rwz/vT4PXHNWwzoX10mJoTI uKtheS3bSQyGi8z2BmTIuHOYL7XJRAw0tqMLBlXIuJnvbDezrBiMZKgGMluQ cUnSv8ZpM6LwWS28VDiKjBOiRDQqfESBRX/W0OYHGWu7BgrO+YlAhQBd1VA9 C85G5nfcXERAf+OEZ1E7C94WktnrtRCB7Z/ZGskDLLh2ZOxrnYII3Enx4E5d YcF+VXlGXD+EwW1IOz3hMCt2LXK1N5kVgo8pI1TiCSvWTx8OqN4UAJO33wu3 ctgwncN9m5zPAjAuf/15Wgkbhv2myrH1AnCWoXbCrIkNa92rW7eJEADDu18U Wb6xYZU7mZHztAJwM/gduf23fVg6mkiUIh8EbQu30udV+zCbf2/hfV5+6Okz MLCZZcfqKV/0+1f5oMPMHtLoOLBXxfRX/l4+kLMyvM3Mz4FhnYY/J4kPItv4 LgcYcOCQ3w/fekbmgx1Js7aAJxx4NCX2QsMWD1wrk2R0PUrBrJXJjLRDPEA5 VR7KiilYrT8rV6+aB+pxSPRHUwpOOVg++C6YB8YNDnJWelGwYf4X455f+2Gv 2re4/yEFl1SqyUx+4YZ3Ber166yceKRfr1WmgRsM9jQo9w5wYpZNc3ffLG5Y sj1wy/IQJ/bQ9sxcIriBqXdRTtWQE/O3JbPsdHPB+IMb3S3RnPjGwPQ05xsq PPq2Y3qRiYqLN1djbfOokKK1aXOTj4qHBWjF06KokCa3ovf3ISpWceM9JaBF haJnV2THTal4ZkqvQ6qKE3jT2M+6plKx7VbWC41CCuSG6L/2UODCq8V5443x FGgqZIi8qMeFH3gU8utfoMACXbFAoT0XHvynPM5UhgIlL6l7reFcuB6nttUS HPD7BH1ozXsu/CFhQXXXdR90GojQh4VxY+rKVgFJbB80m0d9877HjW2dmbg5 vrFBnrda/pPn3HhAXmhB2JMNepVnxTcGufF478lCnQusUNlT6H9Wcz9eE3rK FxNAhveno6y/cPJgtfiy2EQlMuhLeRsbHeHB1xdfr6QuM4Ny+bdTB0/yYJo3 vV1/hjBD5XTgJZZYHky+QHfr3VUmsO7K3D5Fy4tNP+77t+s4E5DF5Sc8RHnx HQ1+z8EtEnyvbOqY1+HFVHYFnelwEih+lc7PiObFHFNBOTSPGYHm//Hh/wBF ripc "]]}, Annotation[#, "Charting`Private`Tag$11022#1"]& ], TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwBQQK+/SFib1JlAgAAACMAAAACAAAArrBw9///WMB69eoFSe80v3ANLnkJ /ljAbdcyr4sPpL8xauv6EvxYwMKRD9VaYqy/8saofBz6WMAqqSpL+GOxv7Qj Zv4l+FjAf/82ElAXtL92gCOAL/ZYwPV4YaxWeba/N93gATn0WMAyZdzcsaG4 v7qWWwVM8FjAgMYnAqp4vL988xiHVe5YwLhLut7ENr6/PVDWCF/sWMDGGcBJ W92/v8AJUQxy6FjAyqI0cZJ4wb/FfEYTmOBYwFQOyrQnN8S/htkDlaHeWMB7 Ma3oL9nEv0g2wRar3FjAXQyyYsN2xb/K7zsavthYwGiHxWz+pca/0GIxIeTQ WMAdR1D6ltzIv9xIHC8wwVjAxx7DVOzTzL+epdmwOb9YwFLN9iBFSs2/XwKX MkO9WMDfe3DYBL/Nv+K7ETZWuVjACN+MfQKkzr/oLgc9fLFYwCWW9HraLtC/ 9BTySsihWMBlsojhd83Rvwvhx2ZggljAb8+qHIi71L8EdCqkP4BYwIh3Ttln 69S//AaN4R5+WMCOSv7a9hrVv+wsUlzdeVjA3QoyXit51b/OeNxRWnFYwIMN QYcmMta/kRDxPFRgWMA9Zfkm65fXvxdAGhNIPljAikO99Bs82r8jn2y/L/pX wPWgUPImGN+/C6f7gwV7V8AvHIgfyqzjvxK6QN5Z/lbAjPFKn5iA57/VWtMh HXdWwCToyJbHneu/aEVQ0eb4VcCld8EYZIrvvx0lltfI6lXAAAAAAAAA8L8H Qy8R "]], LineBox[CompressedData[" 1:eJwdi3k41Hkcx8ctmUwYRz1apNQ+Sq4uY74fv8nRjihs5HhSS8m6kmykUoRI MSObRsqRMEiRNku/T2p1SAe2EIru1SqZyewQa/f9PK/n/c/rZbI9yjNEkcFg +Mzw39c55HhG9POQ8f8MwKJy6a6jPTz0vUY2hHzSB1hsl1j3hId6DZoKEQ/1 YccCt2KtFh7KgtwtTmbpQ/2chJE7xTxkFX5ZL9XSh42f/kxdHczDY+yrr/XN 9OCuYZnaxFYeJno2nX6gqwdkXVx6sz8PW3XEN/NU9GB5vl4G5cXD/hfhTWHv 2KDJ88lyo3j4ZkPWPs0qNtzL6xYGGfNQUHH9ytw1bKC4z8+n91F4gy8P0tqm C42hYhN+N4VKYw0OC711wUq4v5jZRWFgWd01FxddMH4/v1TQRiG/mK3YskwX pnMCLhY0Ulgtd4rfN6EDTW/6q2tPUxhFxA4d+Tpgl/WysdubwtnMk9Uxg9ow OYsV9WojhT0vzjobPdOGllSycMSNQmHLhk2dD7TBPakwU8mJwpAyUeS237Rh x56AgOV2FM7be/qaUrY25G3p/pbMpvD6sbFDGx21QbboMVg+dcRAi8e0QDwX Gm/QrUd9HHGTf6JPqIgFPcMFUaVejuixfKHFr0IWyAwSDG55OOKqOt/Q9kwW rNxjG8ZwdcSiiuKPHoksuGJewdy/2hE/++R8EweyQJwt8I42dMTGE3PWXzNh QcH2kCG/54BlOYbrqgO14IDq7CnLrYB6XwKazzcwQeO89QK5H6DV8l2RrAom 5K3x497eDFjCsD14XMSE2vCKg77ugNjcHVuRxITXHS7TSQ6AefuWDMbymeB2 LoXRMR8wpPJHa94rTbCNnlR5X0uwJUH5gsd8TYjoHNKKLuHi60NdGnMqNcBM /LkhV8RF2e4R+95zGtB7ZCrwupCLw5Hm5jWnNMDVel6VYgoXc8P61CIOz/g5 m1xPBXPxOxDLnLbM+O6Y1LiIi2VdseMBGhrgcv/sqHK5AzYKDXTe7J4FJjd9 O/OrOLih227hFW91qN89Ecou5eDQCZvaOL46OJsWTmWLOJg29sKQotQhPPnV 0vQMDrLzi37621IdGpwik+JCOeg9SybNna0OP9xPXuZlxsEe6aodJrfVIKaz Jk2zwB6Njk+7TK5Rg1tvlDmHMtfiPL7gGLVKFS5a+XkfPLEaZ/PMH1hlKINq ZdqtX0QrscWzy7LdSAm8tgw/szhoi62jp31GbivAoKVMNJFijcqXiq2TKxgQ 6GCvkrptBarcsSmPsJomlSNVGexsCxysabse4/WNGF22C/O8sAT59yZXteME CR/8Pld1hxke2WahZGMrJ9ygGKORSGP8Um8uWjwkI5rRXeW5+ob4NsZ05/Pa ceI9USC2L2fh4jPj4QaHvhKei26vQKCA8uZEnaY4KXl0dkzg6qaAdzM//74+ Rkr8JR38KRUFDC4JaO2OkJI9RTnNu+IZOPer6ZQ8WEqcxo2owzhFW8krX3t4 SYlykM7jPn857ZyQ8GHtCilJtpoaFgpG6b7U1jbWsISIBpoCp1VG6Y51Nfx7 byWkLnP/o7D4z3TtQL1e8pCE/NE2GpKMI3Rqb3CmvEdCUmzfjQ34/0WbGW/u k92VECXVDq08wSA9zuCkWl+UEJsgj7Hw+Jd0yVnnndPFM31sfnUaDtCRQjq9 vXCm7z9h/8q/ly4QBWVE5EmI4qV4nzOCJ/T5t7ZxTUcl5Fbre042PqTdh1Jc hYcl5IjlwP1h//u0/Rz9zT8fkBAFhXtviwU3acuAWOPv9kpIUmfih0n/RprR 9s9zebSETJfuVKkXXKb7FFc+fhYuIfKPpdRTQREtpNImr4ZKiOnJbyWFC27e 4K12CzoVLCH/Ak90o2g= "]]}, Annotation[#, "Charting`Private`Tag$11022#2"]& ], {}}, {{}, {}, {}, {}}}, {{}, {}}, \ {{GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{0, 0}, {2.0833332908163267`, 1.2745565187101568`}], Offset[{0, 0}, {2.0833332908163267`, 1.2745565187101568`}], Offset[{0., 0.}, {3.083333270408163, 1.2745565187101568`}], Offset[{0., 0.}, {3.083333270408163, 1.2745565187101568`}], Offset[{0., 0.}, {4.08333325, 1.2745565187101568`}], Offset[{0, 0}, {6.083333533350391, 1.2745565867851687`}], Offset[{5., 1.1102230246251565`*^-15}, {6.083333533350391, 1.2745565867851687`}], Offset[{10., 2.220446049250313*^-15}, {6.083333533350391, 1.2745565867851687`}], Offset[{10., 2.220446049250313*^-15}, {6.083333533350391, 1.2745565867851687`}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], BSplineCurveBox[{ Offset[{0, 0}, {2.0833332908163267`, 1.2745565187101568`}], Offset[{0, 0}, {2.0833332908163267`, 1.2745565187101568`}], Offset[{0., 0.}, {3.083333270408163, 1.2745565187101568`}], Offset[{0., 0.}, {3.083333270408163, 1.2745565187101568`}], Offset[{0., 0.}, {4.08333325, 1.2745565187101568`}], Offset[{0, 0}, {6.083333533350391, 1.2745565867851687`}], Offset[{5., 1.1102230246251565`*^-15}, {6.083333533350391, 1.2745565867851687`}], Offset[{10., 2.220446049250313*^-15}, {6.083333533350391, 1.2745565867851687`}], Offset[{10., 2.220446049250313*^-15}, {6.083333533350391, 1.2745565867851687`}]}]}, {GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], EdgeForm[None], PolygonBox[{ Offset[{58., 7.500000000000012}, {6.083333533350391, 1.2745565867851687`}], Offset[{58., -7.499999999999988}, {6.083333533350391, 1.2745565867851687`}], Offset[{10., -7.499999999999998}, {6.083333533350391, 1.2745565867851687`}], Offset[{10., 7.500000000000002}, {6.083333533350391, 1.2745565867851687`}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], EdgeForm[None]}, {}, InsetBox[ RotationBox["\<\"tangente\"\>", BoxRotation->0.], Offset[{34., 7.549516567451064*^-15}, \ {6.083333533350391, 1.2745565867851687}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{0, 0}, {-0.7031262288320776, 6.}], Offset[{0, 0}, {-0.7031262288320776, 6.}], Offset[{0., 0.}, {-0.7031262288320776, 6.}], Offset[{0., 0.}, {-0.7031262288320776, 6.}], Offset[{0., 0.}, {-0.7031262288320776, 6.}], Offset[{0, 0}, {6.083333533350391, 5.658614961472417}], Offset[{5., 1.1102230246251565`*^-15}, {6.083333533350391, 5.658614961472417}], Offset[{10., 2.220446049250313*^-15}, {6.083333533350391, 5.658614961472417}], Offset[{10., 2.220446049250313*^-15}, {6.083333533350391, 5.658614961472417}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], BSplineCurveBox[{ Offset[{0, 0}, {-0.7031262288320776, 6.}], Offset[{0, 0}, {-0.7031262288320776, 6.}], Offset[{0., 0.}, {-0.7031262288320776, 6.}], Offset[{0., 0.}, {-0.7031262288320776, 6.}], Offset[{0., 0.}, {-0.7031262288320776, 6.}], Offset[{0, 0}, {6.083333533350391, 5.658614961472417}], Offset[{5., 1.1102230246251565`*^-15}, {6.083333533350391, 5.658614961472417}], Offset[{10., 2.220446049250313*^-15}, {6.083333533350391, 5.658614961472417}], Offset[{10., 2.220446049250313*^-15}, {6.083333533350391, 5.658614961472417}]}]}, {GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], EdgeForm[None], PolygonBox[{ Offset[{33., 6.500000000000007}, {6.083333533350391, 5.658614961472417}], Offset[{33., -6.499999999999993}, {6.083333533350391, 5.658614961472417}], Offset[{10.000000000000002`, -6.499999999999998}, { 6.083333533350391, 5.658614961472417}], Offset[{9.999999999999998, 6.500000000000002}, {6.083333533350391, 5.658614961472417}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], EdgeForm[None]}, {}, InsetBox[ RotationBox["\<\"raiz\"\>", BoxRotation->0.], Offset[{21.5, 4.773959005888173*^-15}, \ {6.083333533350391, 5.658614961472417}], {0, 0}]}]}, {}}}, 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, 76.4000011670002}, {All, All}}, ImageSize->{697.7777777777778, Automatic}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-99.99999795918367, 0.}, {-1, 6}}, PlotRangeClipping->False, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.717433398589608*^9, 3.7174334301086135`*^9}, 3.717433470159785*^9, {3.7174335118830066`*^9, 3.717433522837306*^9}, { 3.7174335878442774`*^9, 3.7174336070338345`*^9}, 3.7174337051068497`*^9, { 3.717433736328948*^9, 3.717433814399819*^9}, 3.7174340209375896`*^9, { 3.7174340515658736`*^9, 3.7174340676613493`*^9}, {3.7174341478261952`*^9, 3.717434172563223*^9}, 3.7174354213064933`*^9, 3.7174356340793076`*^9, 3.7177517752172103`*^9, 3.749806773106798*^9, {3.7498068303199806`*^9, 3.749806835584377*^9}, 3.749806868068453*^9, 3.749806902643087*^9, 3.750409873703868*^9},ExpressionUUID->"68e88714-09e7-4c0a-a735-\ 1f91ceb612f3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "sol1"}], "]"}]], "Input", CellChangeTimes->{{3.7498069287122154`*^9, 3.749806943274855*^9}},ExpressionUUID->"274b0488-756d-4d12-9797-\ 27edb81a138c"], Cell[BoxData["\<\"pocoSol1.jpg\"\>"], "Output", CellChangeTimes->{3.749806945160948*^9, 3.7504098750785465`*^9},ExpressionUUID->"8574bf8d-631f-499e-98cd-\ 815eb2059b2d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"e", "+", "v0"}], ")"}]}], "/", "e"}], "]"}], "==", RowBox[{"-", RowBox[{"Tan", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", " ", "mc2"}], "]"}], " ", RowBox[{"a", "/", "hbarc"}], " ", RowBox[{"Sqrt", "[", RowBox[{"e", "+", "v0"}], "]"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"e", ",", RowBox[{"-", "18"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7174359902112427`*^9, 3.7174360209957933`*^9}},ExpressionUUID->"a31d96fe-7a56-4136-81e8-\ 7e5d9227df39"], Cell[BoxData[ RowBox[{"{", RowBox[{"e", "\[Rule]", RowBox[{"-", "18.62852238835341`"}]}], "}"}]], "Output", CellChangeTimes->{3.7174360218240075`*^9, 3.7177517752640896`*^9, 3.749806773129737*^9, 3.7504098751566534`*^9},ExpressionUUID->"5f211a7e-8cd6-4b26-9fdd-\ 4ca3677028ce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z0", "=", RowBox[{"a", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "mc2", " ", "v0"}], "]"}], "/", "hbarc"}]}]}]], "Input", CellChangeTimes->{{3.717435647330727*^9, 3.7174356757243967`*^9}},ExpressionUUID->"fe2dafbb-3ae2-45dd-b084-\ 507b42c314bd"], Cell[BoxData[ SqrtBox["5"]], "Output", CellChangeTimes->{3.7174356776777315`*^9, 3.7177517752640896`*^9, 3.749806773143699*^9, 3.7504098751722755`*^9},ExpressionUUID->"970defb5-817a-425d-9aab-\ 43a577466154"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cot", "[", "z", "]"}], ",", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z0", "/", "z"}], ")"}], "^", "2"}], "-", "1"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "z0"}], "}"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"Black", ",", "Red"}], "}"}]}], ",", RowBox[{"PlotLabels", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7174346962287464`*^9, 3.7174346990571747`*^9}, { 3.717434733185834*^9, 3.717434764532945*^9}, {3.7174351577157288`*^9, 3.7174351907817745`*^9}, {3.7174354311512976`*^9, 3.7174354361674604`*^9}, { 3.7174356805999203`*^9, 3.7174356841940546`*^9}, {3.7498069608082886`*^9, 3.7498069991164713`*^9}},ExpressionUUID->"ddd34492-f566-48fa-acee-\ 7cd7a4b5dd1a"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVxXk8lIsaAOD5RNasTRhHWSJSiVNRp3pfla2SJW2EY0spJBVHElJpX6Sr KyVaUElyI+SzjDBjmLEbu5gZMgwpst57/3h+j7ZXkJOvGIVCufY//9/e+P7O E+1lYKKuPRU+QcO2xhQj/54y+CMx5coGIQ372Vv9836Vgc409acyi4bTVWf5 jrrlsH40qzXrNg31Pvf3Xo0oh127HldaKdMw4jG9WbSODv7S0l76Bup4LeFv 6nZLOvhZzTIJOXV8cH92/01XOizKuetKE6lh+vUNHL04OpRZXatdyFfDhn9e MF166VChGTt+1U4NV7vEltDjK4CmNtHJj1LFVtquzMSpr9A+aJl/X24ZPqRe ratWrIRlNZLGogkqOihWTUwbVIJKrO+FS51UrJbYC25HKmH0VcHGde+pWCDa 36hdUAn22i81i5ypmPTVez7zQhXYWuyK10pfiu5nLjt9ma8G991ad9+eUkFa QEXoyDIGvP8hq2jgooLNfpLJK4wZ0HUp0L7CWgX3ud3kR3swIKtU7ZG3rgqC TXyEVQkD/vES89HrUEat5Wmv6qKZYH5KoBGyXxm/VZdN94qzoMJ73ol2SAkZ ERIN5zRYcHSqZmGtrRLmGNu8kTZlQcET2+aDfylhTALL1cSDBc+OyW7jr1BC Hc/WoqjPLMj5daBwblAR/54SRq4IrIUnBpsT26IVsUNffZFbSx1o87iXHCIV kN7m2i4S1sGj4RdUdT8FPGhVd2SHGBtUek4WEg4KuP23kmmzGhu2HZEwNNVR wCUe/+qbs2SDVOrwfqkqeXy7OnWnXQobbr6ZP+2kLo/fS/Mkhp05AMFRg+Vs OcynrRlY5cmB9zxpsbOFchgbkkL3DuDAyIEBW4tXcrhc7/rl9iscMJYXnTGN kEOHOBeC+YkDr45ynx43lMPcfXOzGWr1cChSnjoeJ4sR7Tsm/DrqQRiz7quE qwzabMhrSBPUQ4Z9cqnIRgapt40+dk/UQx/p7zu+SQazti89c2hJA9wSOzlp riKDPc8HRq22N4CVxb5HtTXSaHk87rteSgPsu7olfXKnNMr/ZPV9826Ez+mR 7zZYSOGHje4veEGN4Lz3uIbIRAqdz4/4Dl5ohJXg1likI4VJk/KDI/GNcPqi UdZ1cSk0mLYf/V3eCPE7KCXCKkncucCZUVjZBLoPUoy/OktimHTz0q39TaB1 93z1TOhi7NXssnro0wLWRmFP9vDF8d8FI55VQS3AVZ71cOkQR+dDCxGz4S1Q kbz/jxCOOH69p/XR534LdJvFWJUVimPmIu8VG4tbwO9jV0vTPXEMGeRPNqm2 Astm22zFVnGU+M9YuiqzFQ7PMSqDkhah4V4J2SQTLkSXzLa6BYvhFsFx9dJt XHh7e3g1008M98bWrOLbckGmrLgJ3cXwdFH8rj+9uLDqJUPSco8Y5q3RiWQ+ 4IKuk+fT93piaLkExmZ+cOEOV9S9qINAz9qwlqOf2kF3/KK4xz4CHzsMpy3/ qxOUDz78wLSmYIkNW/a8VSd0rV7hEosUFGBuCMuxEwJ/+2zfsZmC5iYROyOO d4JBcu1z1moKNivJfWtL6ITgtd1GOvIUVG4w0kkQdYKHlMAx/M0C3DpwMkX2 VRdcCEzu1OfMA6w9ty9CqgeU1UOH0WwOZNYG37E81QsUs5q0c6emYVCVZW43 0gepWfoXo9mTEHNlg0rUwX7womnqZmb/hPVdM4fGOgaAyBgcEb7+AZ9MsGf7 UT5wHF486+gZg1+S9xLzSgVQ4XFdeMJTBLuroTDQcgia+yxkBmqEcGTJzBLH 99/h7VIP0/M7v0PE1mXMYDMhaH8qrirKF0DosSxmYP4IZNufAFU/HjySNoxk KojA5jyLG+vRD+FNmczIehHEaGxzmNzTB0Veph+s48bgZYd12ppzPeAfEJYf uWUcPOIe9WqGdUJqwMhE48w4JGte3qLS1wZmxv7VmP0DHNdIBVxNb4aDPGoD M2QC/Es3D+2xaoBeWtQ8/c+fMKrzrJwtywaGoqi0gfcTWg4sXp61gQHbZu8W EBm/IE5jJPGSqByWZGzcY+k+CYXDisOcw0Vg2/B47pfCFCz3Laqu1/8ACj/W DlSyp2CvfTb1ht1DMG2s9MmK/Q2WvmnGc+8Sye7M++q51tNgolxd/tQ7hxza 4Xmsbm4anM3S1bO7v5Ceh0cbD2fPwH33ZayhZ3TSy/tdGHFmFmyUzypw+hhk iXFwLqk/B0rFJb+aT7LJ9DEfveShORBnZZ7gf24gZ9er5gsy52Fu8cMjhkot 5DuTuj5b9wWoylCUCbDlkhPxrtq+ihSMmDbvCx/sJEuDnDTXn6Rgm31QoCC/ h9x1w2C1KZ2Cia1fLy3E9ZG3nj3ilK8k0PmCo3VZUj95OUHSsieSQDfht93f 03kk7ZBt6pkoAqdOflF3y+GROWo3F8RjCLRXZd7gFPLIviT5AsMrBJq/anMp q+WRmEo1DrlJII0awiuf4JGzWbrqixMJpLq229lY8MmzVSA0+kDg0441xd4d fFLuRvTu4hwCRZ/PXVzL45Npe8pfO+QSaPc9+o/pUT5ZX2vldS6PQHHBPPFk kYBc32TXUvyFwKzXz9PEjATkcK9rqSODwOKmXAW3cAEZm5a8vJ9J4Ojn0tID sQJSw7f7wnkWgbC5+KzjHQG5W+C1KYlN4KZhOZ5jqoBMHznxpr+ZwFNcFdNQ hoDE7DdSoa0E9uq/WBXXKCBbgoW+0lwCuxkexk+6BOTin6e11nUS2DymFska F5BPP+VcLOkiUDgUXj00KyA3hk1wnXoIpBtxjGUlB8mazZvMB3oJPB3j9HGd 0iDpMxOaEPqNwMUJZgcPaAyS/wV8jSMc "]]}, Annotation[#, "Charting`Private`Tag$11760#1"]& ], TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwViWk4FNwCgOdYiqIpjH0ZpcX22UpUnJOtyNLiWqovWSsuJZGyJKkkkcJH viRaUBTZK+eIqIYaMxiRNTTIIENlvd0f7/M+7/Oqepzc7y1AoVAu/uH/Xnat gCuexITUixPnPNVVyVONbHO7LCaM/NutdoOcKhmtKRf+7tgMbcR2Op3zopMK ea3Bje7NsN4oybbWhU5igrLqPP2bIQsVJCvZ0Yny+muXOi83wxDP60kChnSy N/YgYJQ1w7pa15Q4ETopsV+Yz5NlwT3qDw+MHVUh4Z1m/GNfWHC/7qGYbpoy 2b25nJ3DZcH57jkTqoAyod3QfNHDZ8EhW+jgylMihaZSp53F2TDwvVupUYMS 6b0/OG5lyoa0WVFHlfNKxPJ47Oj6LDaMuJIV7TmgSFZNN/V/9WyBq9totzPe K5CiLUceDJ1sgSVF54wmKhSIYwjPezisBRqP6hu65CqQjJ+rhnm3WyCwUnnh flWBbJp1GP9d2wLFHrlSna0UiPlS8xxVrRWOP9qs/axBnoSKtkntGGiFUQG1 TmYcOdKn1G2V7MWBv5riR9XVZMmdKp77u5Mc6Kp2x8deVpY4Oi+Fz5/nQBWl WysixWRJ/U36C68kDtSOunVjkS9D8gU9VbZUc6BVVMa76HoZEjT87WerTDuc S3hVEecnQ4RLJ3NlGO3wRnyMi8FraaJuK7wyQ68Dmno4BFDDaWQb97hcjUkH rE9UqK8LpBHbmMaN36w74B2zFyGXjtHIqVe3LQw8OmDwjX8KFQ/QSLnW2kjG rQ7o1JUp9VqDRizF4eTcVAdUZzj25ndKEfePoZzDZZ3Q9eNvOtdciqTv/Z6j vL0LWvlk1qRqShKym7kyxKoL6sVkF7atkyRcVBLUtK8LWpqvP6eoKEmM9MLN w493QbO1YdcrxSRJ2xqxr59TuuBnbuSwEU+CSLA116ZMdMEDtJlGq2IJEv8f v6yVj7qhjeswDDKVIFA72D5cpBfqmYj4NnqvISu0AxMs/9sHaw8XhdZ3Ucmw TJORHa8fVvid8FFRFyfRlzdLRjkNQJL2dmH7/Aqi2z3nPPllEPYc9Jow4omQ Mj3Ua3r4G2QGWmgEqC8nM8tvppXXcOE2LfbT6iJhYvMevgywHIGRpTyTSxZC xFV8Tnzfs1FoPG29THCNIAnfIc0I3DoGVbt8Gcn9gJz1KWQEVPDg53jz6wYt FJIqqh7JoE5ABvzX5GH7Ej7fms+IZE3Aw7ttG41FFvErD/2iXbGTsNCtwGl5 yDz29Q+tiNz2AxqKmz++KDyHs/15/Ja5H3DeNTaOlvgbb9XxfY+eT0F6e+TQ U6tf2GmIxmYE8SEkD/0HZ2Zwn3zUYp3BNFy99kvMdjyNP6yeqGEPTUO+mRat NJ+PTeYTq0DeDHR/U5UXHD+FxfO27LE88hMGRyQYXov/ga3Z6Qsz1F9QLDtv fvzOJKZOaQ82MH/BGN+WgPa7E1i/pcGrMOY3vJBD95c+PY578pPkSnbNwot2 2ouRiWN4xMzd59PCLPQwdBE35Yxid5fxFpfnc3D0/sof+joj2MOzIBScnocS W1KijU9wMdEJLMEbFuDTpXDDu3VDOHfSa/3dkQVIbX1iy58fwPO6MhXc/EW4 KTrP8LPxV1yg96nf+sgSbIja+dzuRh/m3z6k6r2agsZeyg+6HerBNSf3K+n6 UVBx7myaamEntojbpKFfR0FKg3lVn5o4ON2s/lTJWwrKc6xs1XjFwbxZz3LD BgpSmZ29GZHPwWl+9yy2f6AgilR2iuhVDh6zlXazYFKQ3JuKK5WQg1OpQslO XyiIJ+ka6/2sDXOTexbO8ymokd/qjq624vh7qc21agBxBU4doEuwsZenl7nW BoAy1Z7ZDyyy8I6N+qXJGwGqVM69kD7Kwt8Lm9K8NQC6kjb8tq2OhfdUCx1d rguQUYPBlX9CWHhF12mezXaAGrUuZglymnGsvMNK1j6A/t1ZcaH1GhMf7VaM 2HYAILcRmXyHM0xslD3Cy3YEqNrKs7n4CBNz1a+wgpwBel0hcE/fgIl3Gb9O p/0N0FWlcqZ82Se8zEVzk+txgNQG9TOz9nzEl1KWW/ZGAiT9WOBB0S4Glne2 zj4dBdC3mvEOaSoDF8teXxKKBki/2EhRqu0D7s9YVaV+GaBUeSWFRo8PGGXT dIKuA+RYpK3SF/Iezxeuk1uWBtDsgHDq/SsNOPmUd0haOkART44HU6wasKb+ Y7ZGBkDqVwtCXwo14IOlGgkOmQBxfvqE6UTV44qXeoLpDwD6FWgd7xbwFp95 B8c0iwCa/utC4ii9FovFXbSpLgYI+U+y41hvcM6e2sd7S/60r2XBVPQbzPpo 5RFcDtDUTe50b08N1m2141S/BuiJ67N1orEEv0tN3LwPA3Q/KCC7Q5tgN5fm pK8EoFXTcp8u52Cc0OloK1IH0Kipbk7Khmr8ve9Qzb4Pf/7s+LeEiSock3NX eYABkG74JlarZBVW8O4JC2kC6IHDQaEmnUpsw/UwzGACdFRNlelrX4778x7c 1mYBZLZ0dvW4fRk+5zc0gdkA2UglRdWYl+Jc3oknA20AHVP1XBcr8AKj509E zrYDxBeki4g3FGFO4Ji3aAdAUesi8ZEzz3GAgU5tRidA4ieBb6VIIV42fYr+ VxdAmlsTKkw683FmWXEE6QZIqE9C6i56jLeE8jv29wJkGHb6AnUuGzcaGxoN 9gH0NkJ8TKrtDvaaO5ty9itAa9ImvgqFaeD/AWL4CqI= "]]}, Annotation[#, "Charting`Private`Tag$11760#2"]& ]}, {{}, {}}, {{ GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{0, 0}, {2.2826527270310355`, -0.7845865901878433}], Offset[{0, 0}, {2.2826527270310355`, -0.7845865901878433}], Offset[{0., 0.}, {2.3050134068060335`, -0.7845865901878433}], Offset[{0., 0.}, {2.3050134068060335`, -0.7845865901878433}], Offset[{0., 0.}, {2.3273740865810315`, -0.7845865901878433}], Offset[{0, 0}, {2.390981116591593, -1.1727510140620159`}], Offset[{5., 1.1102230246251565`*^-15}, { 2.390981116591593, -1.1727510140620159`}], Offset[{10., 2.220446049250313*^-15}, { 2.390981116591593, -1.1727510140620159`}], Offset[{10., 2.220446049250313*^-15}, { 2.390981116591593, -1.1727510140620159`}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], BSplineCurveBox[{ Offset[{0, 0}, {2.2826527270310355`, -0.7845865901878433}], Offset[{0, 0}, {2.2826527270310355`, -0.7845865901878433}], Offset[{0., 0.}, {2.3050134068060335`, -0.7845865901878433}], Offset[{0., 0.}, {2.3050134068060335`, -0.7845865901878433}], Offset[{0., 0.}, {2.3273740865810315`, -0.7845865901878433}], Offset[{0, 0}, {2.390981116591593, -1.1727510140620159`}], Offset[{5., 1.1102230246251565`*^-15}, { 2.390981116591593, -1.1727510140620159`}], Offset[{10., 2.220446049250313*^-15}, { 2.390981116591593, -1.1727510140620159`}], Offset[{10., 2.220446049250313*^-15}, { 2.390981116591593, -1.1727510140620159`}]}]}, {GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], EdgeForm[None], PolygonBox[{ Offset[{58., 7.500000000000012}, { 2.390981116591593, -1.1727510140620159`}], Offset[{58., -7.499999999999988}, { 2.390981116591593, -1.1727510140620159`}], Offset[{10., -7.499999999999998}, { 2.390981116591593, -1.1727510140620159`}], Offset[{10., 7.500000000000002}, { 2.390981116591593, -1.1727510140620159`}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], EdgeForm[None]}, {}, InsetBox[ RotationBox["\<\"tangente\"\>", BoxRotation->0.], Offset[{34., 7.549516567451064*^-15}, \ {2.390981116591593, -1.1727510140620159}], {0, 0}]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{0, 0}, {2.2826527270310355`, -0.0002020305127825033}], Offset[{0, 0}, {2.2826527270310355`, -0.0002020305127825033}], Offset[{0., 0.}, {2.3050134068060335`, -0.0002020305127825033}], Offset[{0., 0.}, {2.3050134068060335`, -0.0002020305127825033}], Offset[{0., 0.}, {2.3273740865810315`, -0.0002020305127825033}], Offset[{0, 0}, {2.390981116591593, 0.3879623028484496}], Offset[{5., 1.1102230246251565`*^-15}, {2.390981116591593, 0.3879623028484496}], Offset[{10., 2.220446049250313*^-15}, {2.390981116591593, 0.3879623028484496}], Offset[{10., 2.220446049250313*^-15}, {2.390981116591593, 0.3879623028484496}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], BSplineCurveBox[{ Offset[{0, 0}, {2.2826527270310355`, -0.0002020305127825033}], Offset[{0, 0}, {2.2826527270310355`, -0.0002020305127825033}], Offset[{0., 0.}, {2.3050134068060335`, -0.0002020305127825033}], Offset[{0., 0.}, {2.3050134068060335`, -0.0002020305127825033}], Offset[{0., 0.}, {2.3273740865810315`, -0.0002020305127825033}], Offset[{0, 0}, {2.390981116591593, 0.3879623028484496}], Offset[{5., 1.1102230246251565`*^-15}, {2.390981116591593, 0.3879623028484496}], Offset[{10., 2.220446049250313*^-15}, {2.390981116591593, 0.3879623028484496}], Offset[{10., 2.220446049250313*^-15}, {2.390981116591593, 0.3879623028484496}]}]}, {GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], EdgeForm[None], PolygonBox[{ Offset[{33., 6.500000000000007}, {2.390981116591593, 0.3879623028484496}], Offset[{33., -6.499999999999993}, {2.390981116591593, 0.3879623028484496}], Offset[{10.000000000000002`, -6.499999999999998}, { 2.390981116591593, 0.3879623028484496}], Offset[{9.999999999999998, 6.500000000000002}, {2.390981116591593, 0.3879623028484496}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], EdgeForm[None]}, {}, InsetBox[ RotationBox["\<\"raiz\"\>", BoxRotation->0.], Offset[{21.5, 4.773959005888173*^-15}, \ {2.390981116591593, 0.3879623028484496}], {0, 0}]}]}, {}}}, 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, 79.44053429243493}, {All, All}}, ImageSize->{704.4444444444428, Automatic}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, 5^Rational[1, 2]}, {-8.580837069137969, 6.738750340480963}}, {{ 0, 2.23606797749979}, {-8.580837069137969, 6.738750340480963}}], PlotRangeClipping->False, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7174347652361465`*^9, 3.7174351602785044`*^9, 3.717435191484976*^9, { 3.7174354318857517`*^9, 3.7174354369175425`*^9}, 3.717435684850376*^9, 3.7177517752953434`*^9, 3.749806773185588*^9, {3.7498069772444005`*^9, 3.7498069998038125`*^9}, 3.7504098752660027`*^9},ExpressionUUID->"3658c31b-d87a-454d-b527-\ 063d802c673b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "sol2"}], "]"}]], "Input", CellChangeTimes->{{3.74980700280311*^9, 3.7498070052556624`*^9}},ExpressionUUID->"7218ab4e-95f0-43cd-a861-\ 329bbdb5dc2e"], Cell[BoxData["\<\"pocoSol2.jpg\"\>"], "Output", CellChangeTimes->{3.7498070058805175`*^9, 3.7504098754065957`*^9},ExpressionUUID->"cf1244fa-89ac-43c4-922e-\ dc0c28339879"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"erg", "[", "z_", "]"}], ":=", RowBox[{ RowBox[{"-", "v0"}], "+", RowBox[{ RowBox[{"z", "^", "2"}], RowBox[{ RowBox[{"hbarc", "^", "2"}], "/", RowBox[{"(", RowBox[{"2", "mc2", " ", RowBox[{"a", "^", "2"}]}], ")"}]}]}]}]}]], "Input", CellChangeTimes->{{3.7174358653541045`*^9, 3.7174359038894863`*^9}},ExpressionUUID->"f7dc7e98-f837-4571-9f05-\ 034e698d8eab"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"erg", "[", "2.02", "]"}]], "Input", CellChangeTimes->{{3.7174359172502947`*^9, 3.717435920860056*^9}, { 3.717435962286373*^9, 3.717435963223974*^9}},ExpressionUUID->"a38b75eb-7e82-4895-aa67-\ 0e4b89fc5b22"], Cell[BoxData[ RowBox[{"-", "18.391999999999996`"}]], "Output", CellChangeTimes->{3.7177517752953434`*^9, 3.7498067732135134`*^9, 3.750409875437838*^9},ExpressionUUID->"186fb0c9-c505-49a4-87ec-\ 7b25dafb7ba1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"raiz", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"Cot", "[", "z", "]"}], "==", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z0", "/", "z"}], ")"}], "^", "2"}], "-", "1"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"z", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7174360430450325`*^9, 3.7174360875966845`*^9}},ExpressionUUID->"d41d2ce4-d521-4717-8ccc-\ edde9540a74f"], Cell[BoxData[ RowBox[{"{", RowBox[{"z", "\[Rule]", "2.017070618640391`"}], "}"}]], "Output", CellChangeTimes->{{3.717436065703714*^9, 3.717436088268632*^9}, 3.7177517753109703`*^9, 3.749806773230468*^9, 3.750409875437838*^9},ExpressionUUID->"37e1d8d7-ee02-4f07-aba2-\ 55e9d98fed6b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"erg", "[", RowBox[{"z", "/.", "raiz"}], "]"}]], "Input", CellChangeTimes->{{3.7174360731732626`*^9, 3.717436101473172*^9}},ExpressionUUID->"cf9ff41a-dba2-4df0-9143-\ 1df822bca817"], Cell[BoxData[ RowBox[{"-", "18.62852238835343`"}]], "Output", CellChangeTimes->{{3.717436078798867*^9, 3.7174361024264*^9}, 3.7177517753109703`*^9, 3.7498067732464247`*^9, 3.7504098754534593`*^9},ExpressionUUID->"8b1d7ba0-b98e-42ee-a040-\ f95962a1e856"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cot", "[", "z", "]"}], ",", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z0", "/", "z"}], ")"}], "^", "2"}], "-", "1"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "z0"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z0", ",", "0.9", ",", "20"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7174361444465303`*^9, 3.7174361871854877`*^9}},ExpressionUUID->"db2bc954-4a4b-4720-852f-\ 3fbb2a49e75f"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`z0$$ = 0.9, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`z0$$], 0.9, 20}}, Typeset`size$$ = {324., {95., 99.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`z0$11997$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`z0$$ = 0.9}, "ControllerVariables" :> { Hold[$CellContext`z0$$, $CellContext`z0$11997$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{ Cot[$CellContext`z], - Sqrt[($CellContext`z0$$/$CellContext`z)^2 - 1]}, {$CellContext`z, 0, $CellContext`z0$$}], "Specifications" :> {{$CellContext`z0$$, 0.9, 20}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{371., {137., 143.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.7174361693085723`*^9, 3.717436187701169*^9}, 3.7177517756235037`*^9, 3.7498067732903075`*^9, 3.7504098763438764`*^9},ExpressionUUID->"ba07120a-6adf-4dea-b952-\ 177553d5f431"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"e", "+", "v"}], ")"}]}], "/", "e"}], "]"}], ",", RowBox[{"-", RowBox[{"Tan", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", " ", "mc2"}], "]"}], " ", RowBox[{"a", "/", "hbarc"}], " ", RowBox[{"Sqrt", "[", RowBox[{"e", "+", "v"}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", RowBox[{"-", "v"}], ",", "0"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "6"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"v", ",", "v0"}], "}"}], ",", "0", ",", "8000"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7174362216579337`*^9, 3.7174362914310403`*^9}, 3.7174363343262644`*^9},ExpressionUUID->"4abf40b7-39e9-41ab-bb07-\ 01e55e2aee72"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`v$$ = 100, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`v$$], 100}, 0, 8000}}, Typeset`size$$ = { 324., {103., 107.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`v$12070$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`v$$ = 100}, "ControllerVariables" :> { Hold[$CellContext`v$$, $CellContext`v$12070$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{ Sqrt[(-($CellContext`e + $CellContext`v$$))/$CellContext`e], - Tan[Sqrt[2 $CellContext`mc2] ($CellContext`a/$CellContext`hbarc) Sqrt[$CellContext`e + $CellContext`v$$]]}, {$CellContext`e, \ -$CellContext`v$$, 0}, PlotRange -> {-1, 6}], "Specifications" :> {{{$CellContext`v$$, 100}, 0, 8000}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{371., {145., 151.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.717436270616309*^9, 3.7174362917123213`*^9}, 3.71743633496696*^9, 3.717751775779771*^9, 3.749806773373087*^9, 3.7504098764844685`*^9},ExpressionUUID->"1dd7ee1a-5ed3-4f49-a1fb-\ c2de647a2ce4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Problema 2.32, gr\[AAcute]fico de T", "Section", CellChangeTimes->{{3.7177518108409433`*^9, 3.7177518206544957`*^9}},ExpressionUUID->"6d0d653f-2fa8-4067-a43e-\ 29229ddc6f46"], Cell[BoxData[ RowBox[{ RowBox[{"transmissibilidade", "[", RowBox[{"e_", ",", "a_", ",", "v0_", ",", "mc2_"}], "]"}], ":=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", "a", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "mc2", RowBox[{"(", RowBox[{"e", "+", "v0"}], ")"}]}], "]"}], "/", "hbarc"}]}], "]"}], "^", "2"}], RowBox[{ RowBox[{"v0", "^", "2"}], "/", RowBox[{"(", RowBox[{"4", "e", RowBox[{"(", RowBox[{"e", "+", "v0"}], ")"}]}], ")"}]}]}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7177518544343033`*^9, 3.717751976481229*^9}, { 3.7177521274374657`*^9, 3.7177521401888328`*^9}},ExpressionUUID->"d2c12ca1-a592-4916-b03b-\ 8dd5b59eb457"], Cell["Usando os mesmos valores do po\[CCedilla]o finito para um nucleon", \ "Text", CellChangeTimes->{{3.750409949420556*^9, 3.7504099714779034`*^9}},ExpressionUUID->"904366d2-27e4-4176-ba0e-\ 08dbf7a9941e"], Cell[CellGroupData[{ Cell[BoxData["a"], "Input", CellChangeTimes->{ 3.7504099087738004`*^9},ExpressionUUID->"deffc87e-4922-40db-8d9e-\ bd2e80f50696"], Cell[BoxData[ FractionBox["1", "100000"]], "Output", CellChangeTimes->{ 3.7504099094455194`*^9},ExpressionUUID->"7adfd3fe-7c84-4c10-badc-\ e61213f49c34"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["v0"], "Input", CellChangeTimes->{{3.7504099117418566`*^9, 3.750409912319847*^9}},ExpressionUUID->"fd164518-91f5-46ca-bcd3-\ 5a6f8aff427c"], Cell[BoxData["100"], "Output", CellChangeTimes->{ 3.7504099131477795`*^9},ExpressionUUID->"e48fcb1e-b461-496b-84f5-\ 792e6eaddd77"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["mc2"], "Input", CellChangeTimes->{{3.750409915256661*^9, 3.750409916896903*^9}},ExpressionUUID->"49a50c56-787e-44c8-bc2c-\ 6640130899af"], Cell[BoxData["1000"], "Output", CellChangeTimes->{ 3.75040991847466*^9},ExpressionUUID->"998e093b-0151-46ae-a129-229d93e961df"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"transmissibilidade", "[", RowBox[{"e", ",", "a", ",", "v0", ",", "mc2"}], "]"}], ",", RowBox[{"{", RowBox[{"e", ",", "0", ",", RowBox[{"10", "v0"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0.9", ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.717751982419365*^9, 3.7177520646988735`*^9}, { 3.7177521486741176`*^9, 3.7177521885887413`*^9}, {3.7177522244661093`*^9, 3.7177522254193363`*^9}},ExpressionUUID->"422a0143-f762-455e-a55e-\ 78295c6a22f6"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwd2nc81e8XAHCrQUqLzCIaSkpJSnyOlISIZIXsnX2tuNa91jWLymxJJaJs WSEhO19RlJUk7i2ijPI799c/vd6vuJ/nPuM855w+YpauujZsLCws9uwsLMy/ 2/wih495akJbK/PPFFF+wVWnMFwT7pGmBP16poje8Eqhx7vOw5nzz86Pbpwm Ns3qFyRaaYEn38zB7SHTxHZTMb2IaC1YkVD+zh83TUi9+f474LkWcChZcX5L nSbU0oIJ+xUtcIj7epKraJogq+S0K6Vpg3b/uKb+2DQRk+flIVunDebr2cZZ f0wTKdsIvn3ftKGdfX8CZWma+DD37Vm00AVwOeC5yLOZTsw3k+dJDhfgbJ2n /xlFOvH3n1XTj4ALYBBp8D3/LJ3gkD2X6pRwATTLrZVndejEpswtShalF0Ds IWfiKls6IeXxmKq5SgdiBSnUKzF0wkqwe6v4PR3YsdvHXrSbTjhql45nFOnA 7jne53If6IQbJb2Mv0kHPG9QhiRH6ASZbmuygaEDt82fsTz+SSdS65YeLJzU hR61zflcPAzi3u8hktcFXTBJ+57Ew8cgHks1nmVY6YLP/paQWWEGUXwz4ftY tC5kpNVSjPYxiE7HXUc6+3Qh1jDj9UMVBvH+DtcqjSldWLOi5ptzjkF86mH0 vl7RBZYibrMEbQYxpVTh/3L3RTCiLX9gucwg1mzRrsv2ugiie+6rBrgxiA1q sklikRdByChK8TqJQWwNFLBNT7sI18//uE3zZxA7v45yXq+7CO7a0jclKQxC 6aWvTuBGPUhaw2kgeJNBiHZ/a8/cpQfiuQYheakMgvWbsWbtCT0ou1OXLnaH QTTwKZ5lt9GDO6OtXM8eMYjsA88aJPz14GnL3IY3TxlExOkdp1Tj9UDjrqpd XT6DUPdgVYwq14MNfBYki1IGIRXlUZHTrgfqZ0U/rnrJINbfHT3WOqoHF6K/ /4qtxvloe32YZ8Ml2GE0ek/9NYPQl4zem2x5CfiO+5gFdTEIeVh6WOJzCToK bUbVexiEgIGzeF/MJaBznOlY7mUQAxSt7UKll6BhXPwg7wCDqE6rSTvZegm0 eUc0Aj4xiDsvDgmYDV+C9I2cYm+HGITl0Oat99bpQ/+9PmWxLwzi9O+wxDpR fdh2TPyI5FcGsWvD3Iaxo/rAN8a7V/Abg5hQeM+5xxy98bZV2RSDaNFVi1Aj 6YPXCwtNWzqDyHUo53CM1gciTiXwH4NBuN5KW8kt0gfSgzfz9BkGceEZd2B7 sz6wti8Mnv3FIA6/DlxkfNIHaz9z9Zg5XK8Bus+mX/rwrpQnunKeQczPXJk7 zGkAH10yJvt+M4g+zi4Pve0GcLFhR/nwHwZRLnrqB+mIAWSn7T/1foFBpB4r vHpLzQAkxN91lS8yiAAtie9lpgZw3D2rMGqJQZjZJNt/8DAAK5nHh88uMwgi YPX4UoQBxJubp8ygRW/4WIlkGEAz/xuZmL8Mgi1nYkjphQGscT5/Zus/BjFW a2Rm/sYAXp3/IExDv37f8jFkwADkaM0sP9HZdAWjBz8NQLR7Ul51hUFErsrr bVhtCLGvg7lpaEfh7XrjQobQLQp1NWiNI/Fda2QMgWdC6+4YWkqdRVtS1RCc slWmFtAbLNxb1S8bgn+5xPcV9A+fkXPObobQ8MRueB7dFXfxTSzVEPgTfmz+ jH7xsOF0fqohhERsqi9DJ1UerevMN4Tr+6NlKWjvd9nETIMhDO2MeKKMNpjc VrXlgyFoFt+zYo5fnjXqxFEGfp7L5wc30IL8i6X6HEag1vw8Zy96WdrpqK+A EehOzZUW4PwMnhl4kSJtBMUOv7ik0NUm5w+9VDECLR6LkVScz7ue1XkDhkYg W2Mc8Bfnf4Guuy/Z2Qi0KaN1V9C6jl+zzwcbQdI6hzeluF4cFhvvVj8ygu1p 3u3ncD1NB7KEfV4age33bzIUXO8Sg+MpBzuMoPnOId5i3A/2WpbX784bwVed I/xLuH9eNc9vMOIyhlXFuskb0YJnaLRN241BKoL7vAjut1aFIkroGWO4XEjs FMH9eEhytY91kjEUHck//XKaQURlpc4KPzaGgpw6/3jc3yM7Drr999IYuJd/ aZh8x/nkM3RQHTUGhm+Z3dAEg/jDnnN57+HLEJb3iuPWKIOo+XQepjoug7gL xW3oPYPgNx6pzBq9DMMNsEcHz6fbf97HTX9fht2O6yYq8fzubL1zuH27Cazs 4OQNx/MdXv5TouCqCVz0HR4ZaWEQWknJnF7rTGH25T/Z0UqMh+cGu5dUzUDp R9G/rkwGsfnR30VjEzPI4WVxLk1nEKoc28Ur3M3gJf8t0zSMX3nVZp6+6Wag +fn6mSsY3wKODG2Z+2kGl50uGXyIxfghMqpHT78CO2I/xxQHMIh9vl5Obn7m sCTeAk+NMd5lU1Z2UMzB7J+K3Q1DPD//Jd3oiDMHfq5QrkB9BnH9cPFL6Sxz qDn6dv0lXVzfqbl10+3m4PqHd1RAnUE0WfjkOkhYgAm3+F2OEwzCRsN/2rLD Aq7qNP2sEsLzptyXMdRvAYbqwdGLAhi/5OS0zMYsoCZnm+QJftwfO2eeGS1Y wIznnZS6rQwCFhzcLohbwnr9ir0L6xmE8COjWUUfSzihsusKOyvGh/TSBy9D LOGUuN+Q5wqduHGdV+94jCXYGMy8//qXTnCRu4pk71nCDXk24sMinfijd857 /1tLYL+/cO3bLzrxju34Av8OKzD+cCOj+BudiPtz88lNSSs44ZxbfGWCTqjT fxltlbWCdRF7I9d/pRO1/QUVPOesIKF7r73XGJ14VrA3YLWnFcar+iuun+lE tBn/ymyjFXD3KQsL99IJVT3vfPcuKyg5t2mB7T86warec4Xx0Qo2D7UVTL+j E75HE2onf1jBKWPW4vYuOmHLvTZ0WNAaVkUM7appoxPKFb85Olys4QVf1T+j Rjohb/lV9ravNezTKbKJfU0nDnG9t7YItYZG4cZ9DQ10YrtxScNssjVQhi62 KdTTicUFLwp/lTUEK+y2ulhLJ37esy4abrQGO23/nHs1dGLinN5YTqc1LD92 U5+tphPvU46cVhyzho5Go4S7VXSi6PgMu+U6G9gY58wr/pJOPB0ePrKf1wZ+ isSzx1TQiftRXVa/ttuAnNIK/CmnEwn9BfXhh20g6xVP1ocyOnHVzzXsqZEN OAotfG4soRPWYlcKvaxs4JHMTxF1tEmz1qjiVRv4csc1s7MY51tAWqUz2AYO 6Dy98rWITuwun2Kbe2QDLbNH8xQK6YSIxcDh6uc2EP2yo7nvBZ3YytlqGfHS BmT3bxPwQ7MZPa0T6LCBx9umVeuf04kFlrSZkT4bOMHOInYV/eNx9M7cERvw f9MsIYj+/MchVGneBjpEBe4GFtCJ3rtGL9aw2MImg67Nsuh2tXMjnZy2sObP w4fT+XSi8vbeU1YitrCb646YI7oQ+D2k9tiC1bknqw6gcybW3J87ZAtlH9NW Zp7RidvyX1kjT9vCx4B7+yLR8UO9MjpattClrqtvgA6PbLQQNLQF6SN7YiXR 5EMliaMWtvCkxKj1Xx6dIPU9fJXrZAvLnEKb3qOdg5N/kki2wHE8yfAF2nov VYwIsoXIc+N3EtCXO7101kbZwiPTfWPuaF1f65Cu67bw7j/3nfroc6J6z1PT bSHco9FAEQ1NKsNW2bYQRdoXsgd9zO3IpgMFtjBVdzttK1qaX1x5vtwW7rCu yuJA76rd7F5TbwvPX16+9TuXTgjbs92LbLMFeXKoxzR668aZTp33tjD5x+Dw OHpd2TCL0LAtaIsUvRtG/7hwK7z0uy2wqvvpDaF7vmly683bAtU589AIuiyU 7foPFjvIusRu/RWdIVS2LXadHVQdDppkoEOLrmZI8tnB5oqhmiW07Xlx8UZR O8jQp3/mwvGpj/c9ttxvB/oXbVVF0AeD4qRXjtrButUr9MPorfyni9LADvIX bP/TQP8pWDgur2EHR/nPzNmhB87l1/RcsoPZd/LqEehXI9Zn3M3tIPbCh44n 6Oxrgm/XO9mBNa0ipAMdvbXzQg4Jnx9mdfkP+qKqgslotB0YZPJ6XcT1lP/8 Yzgo2Q7uSG7KoaKFfbPthO/awauEirkK9JcnmzwvFdtBoXDJS2ncPy2n3vz5 WWMHP2qbpK6in30MIMe12IFTFNe9Z2if9RNRbz7bwYOTpsEncH+aZGfwWE/a wRN91hEKGoiLySxzdvD1+NKRbjSne/Xd41z20B05mEzC/Z7Wk1T6VNYejnM2 t3zC8xJ8VV1RjbCH/L7cvYDny3o1S/3YOXtYnaV6IQt9QN6pXeSKPchGL0x4 4XmsSVP+Eh9lD/z8W0rk8Pxmyf52lEqyx/zZ/30eOrIt90dTpj2IFc6k7iml Ezor25ZZi/Dnl1l+7cR4MGpJ3+z1yR7GQ69ayGP8aFp6cHvjN3twdVRd3YDO TTLanjdrDyGbXknoYrwhNTZIjq91AO0u2QpSJZ1Ysy8NDI84wJU170r7MV7t /3nW5WSkA7Q5CpI3YvzTPBnvKXHdAUqj2SjFaOeIXl/udAdwfPbI0QTjZa6I TdhAvgMklqo252M8lVIPvR3w3gHoEfGXnJtxvz+orKvc7QhWUfBbvoNOHL4k s03xtSOYf55vZRvA83TXV3hXhyPc+Nn98iPa43uN2Pp+R1gdHslRMojxIERL anDKERbHOq+74H0g+8xJOXCrE9ivvyjNwHpKbk22U5WVE0ioFLzaN0knTpQL 1iqyOcMsq0OpywKdCHibPzy7zhl6JL/+tMH7qnrwNHsOrzPw3s9aMl3C+4DN VZVP0hnaW7lcLuD9pqZR30rXdgbdsjN2SngfGgw69d/JcAbr8TQ/BU4G4cVa NcN6/CocHVoRuIf3bf65K7saXV0grjJ7+rIC5heaFena/i5A6+1IDz2J+ecF 3q39FBfoXyOl8kSRQTjrv2WbSnEB0YcptvMEg9hrdWxoU4MLNDySuxd/mkHc D+BJM+V3haTskOqK85gv5ddsnKt1hYOcO0M/XmEQVVwb/22KcoNXdtlCKaEM wsMm3G851g0EKKMziWH4ebXLv8avu0F1q49ANNZn10nfvr9Md4PjznLnfcMx 3xuq67cpcAOS4l8hzWisF0pIxeXv3eCgJ29bRyKOz+Kjs8Vud/gYESJy8i7m V5U6Exr73eHH3N9UoXtYX/I1Wckdcge1arrsIvpUa5HxuhPu8P7ZclnRA8zX jsWpFZ9HH3D+tB3ru3puZQlOkjtMpm643piH+WRZ9seCeneQik4XMqnAfGsd C9uqZndIsZgQOoD1nIeZ0V6jdneoGsr/toxu4eAmsfa7Q+f17m+3qxjENR33 Dbp0d+gti7Ssq8V8Z1JBeZbfA7Z8lfD70Mgg1iol253d7gEz/Hcmbr1hELKJ 9Ng0cQ94kXGHX6+JQcQcu/dBRdoDeNhLSpuaGYQiZbVXkooHrCmbHb7fyiAy Rbqyj7p4gJZxD0mwG5/vtq8tytMDzu6ZzKtHz9eHzQ76esBY6Y9Mp3eYXzrK QXiYB8ztyswpxXx0pSStv/e2B8hLHLYAzF/NL9hy+9Z7gB0Xu9hWrCd3hi25 V/B7Aj3jYmLDGIP4XH4te07EE4417zI6hfVj+o+lD4fEPWEj+/Ev1Wg+s2WV Rwc84eTQPo2icQbBdfwvb9IpT3jlq6GfgPnzT/q/8qvOnpAYLVeyHvPtZ7uC 6I/dPeHI33cTPmhHk5WdY96eoLgj9MsQeqx5hWYc4glsRqxEPubrfVksZmdv ekJ83edgRaw3a43Z2MRqPeFqx40qUczvAxND5Uxee4LGW8NuH/SJJjanWy2e kKvgWtGGLjrK3rP+P3xemtYa71kG8XgjR/biN08orMl/VIb1gs1ZyoejDE8w j6h3XI31xE4yB4/7L0/w5/65+iI6/TuH79d/nlCeUdg2gY5vXKXes8UL9urs fboa6xPNv1Qyj4AXsFedPa+BXiu7ulB9uxdMfF5qj0OH3lst/GqvF7xoT/Ta jPWNd8Aaep6iF/Bxb7DgxvrH7DDn9Qg7L1AX3BzzFuuj46d0w+2dvcB/9PP+ JfRW3TT/c+5ekOf7dFAS66lm9wNW6655QQ0b2Z+Cln2uIxsfh58HxwqksR7j eZW61+2GFyje3PBbHz3ZOSqsc9sL5gwT9MnMeu0HadWW+15AOrbaqgW97lBq 781iLyjVk2kxwPpunBht8anwgqGUN3RfdK22VI1hjReUEVuOpKC9XasfCTZ7 AVXYcft7tE7QmvSlNi94r6H25hdaKv5CwkC3F5ytD7mxCevJkWcjvpkDXnDN riJFDV1Vvf9q0LAXGCbf/M8Sfbvdy8J83Au0OSLlA9Dn6avVd/7wgpfN7j65 6LID+4Wy2Ulwcd+WX2xYz95Q9OKJWEsC/8MqYXxol/NV7PbrSUDbIKssiRa/ qj0luY0EnrGnzmui/wXcHuISJkHzkEGGCbovZrjnuygJdpuLiDqj43I9q/L2 kSB/a+GrSLRDZeXzuIMkuP4qdCQZfbp1VbarLAmkQlhP3EdvH9BKvXAc/91Y pjkPvfD9VpyMEgkmj/EmMuvxnqWh0M0qJBAaKbheh362bp/P7FkShCyv7XiL jhLydOrRJEEqi/jZHrT1/sorxTok6Dm+avkjmlBYpXdTnwTyr0roI2hBDS01 n8skOOpHiH5D/zK+ddLQnARXOR8n0tEdjkOHjtuQgPRhQWUWneMvuUvQkQQ5 mwj532hKtIfAkgsJ1saGui6ir6S+XD/gSYKFTx2Ty+gTORxsVb4kUFI/8vQf mrfi/HxGIAleVZU//38/ovnmJDmUBNGdbitMv+3//OlKBAlSqmyTmc7+tvcd xJBg6EqOF/P3Qxbc34glkuCwtEYm8/NNOF++ZLuJ3+eY0Rbm8+UEOApGU0ng LPKlh9nf2CR5PqvhDgnEtrCMzaAtZfxUeB6SIIvv9H/T6KLjD0eMckhAjlD6 /RW96lRXSFY+CRK2amkMo/XV/4oyikjwV7i7ux/9WFey9ngFCc7k7IvvYq6P 8aUrlBoS5htlIU3odKe8DIEWElC0FzYUoeme/SetO0hw8J1b7mPm/AesGnjW Q4I3CtnUdPRIjKng6c+4n3z6f4SgZZOjyuPGSHB64g7VE03NKDbs/0YCXZfi y9bovc/W33L5RYK0ZasuFbR/yXG58gUS+Eo3ex5mzl+1zX/sKyToq+I1FWXu 346qLSmc3lBpysq1iPu96MfVhPrt3gAHrv3KQq9eSDm4QcIbVg65z8WiDVgb 2w0lvUF/MU7NG724aft6+hFvOJ04PnkaDUfao/jPeYORWvzZD3geryss7rXS 8gY2kgZrNXpUZXdT3kVvaDkUwH8PHa5HXq1i5g2fZUetbdCtJOmwq57eIO9m ljGO8cGwLC6gLsMb0slxza0Yb3JqK4TWP/AGOa49HI/QS03jFQaPvcFJ7e2L YHRmv9LC1AtvWGzsdT+MHlukk7Y1ecOJo+cy4zGeuSpquzrPeEPiuqVvMhj/ Pm0/3W7y2xv8XynvWIPWYjl+4PyyN0Sd+Tv9EeOlVP3O7wdW+wD5rI4Jsz80 qTZvyxDwAU7/1rROjK/WehlmHso+sPl76h2DeQZh7PT9vG+CD1w7Mei8B+P9 6ZQIKYq0Lwz+p1bIifdLw2by/dVUP8jzUF2l8pFBKHQGVJyN9gPb2f3VrOgX sde6I+P94JfrkYTaDwzizlo/tnWpftC68CNUCe3/z9OSJ98P85uecoV+BiEz 6bCTv98PHPN4t5/E+zTz1aX7kgf84WRq+l8jvH95g/QqHA/7w/NWkoEIOubk xe6nx/zhVg7nyBDe136lF9ikT/lDhPc8zR6tl6dhedjAH8rMn5z278L7NEV5 p0KIPywc4nz3qINB+LgduK/5nz9k7w+3O4j5APeaOb8jH/yBpvEr8e9bjO8Z lTqCn/1Bd8h9/i26pUWDdWLCH1oidrk6oIV3OZqHLfuD15NlyUctDKKuP3t7 hfg1eNYfzieN+Qa3imjaHo9rMLjZeYcz5it3+796bPC5Bgcm84+dQh91y1ef u3YNQlc7J/GjzTKUFuuo16D4jqFw42sG8fy3iZFZyjWw5t1xVYLZ385N2ZZc ew26nPeo0esZxD3eLUlsPAEQ5FZsUfaKQeRmVfFd3BoAoUnzJUnosiP2KQ8E AoAn39faHd2uU5V5WiIAzjmuNO1HL8faPQk/HgB9jzZVZWF+pb+6sprLOgDW KSqTHtVg/Ei2Vb7sEABnKpMso9BXJTY1PHUJAHWXOzlOaMop22ZNvwBgLdTW kEE/J2/siYsLAG/uzd211fj9f1t/21weANMcMpw/MZ/jD+dxtqoOgP1CTnl9 aHHeCnphfQBUtz3Pq0WfOMLzS689ADKrk+oS0Xau5f9ujgZAv2uDkjza459V yNeJAEhyJTfsRJNjN3DI0wNAkxqVvR6d9NSKs/9PAHRU3Qsaq8T1+Lp+q9CG QDBq5gy/iW7zLrvptCUQJv+F0sPQfausBCr5AyHt14VCdzRDvGy7qXgg6J35 oKOFFja3lLwjHwhtyfPD69B7Gdy5DMVAOFPtJsXMV4+QS6VBJRCGeFa9m0Kr p3PLDp8PBPq8pmwH2qevREncKhAe5nw8cxt9F/aFCNgHgvujXtUYZr77OKOe 52ogqJsX3wpGC/tR1Ja9AyFSdWivI/rM8O/omWs4vi/rHK6gXc45tU0E4+fv +vBHD10roKv7X3Qg2AjxrVFGfwt5nfQ2PhDezZpSj6E3T8q/f5UUCLPFy7rS aJuKHSbPMgMhaevUR2E01+Vpm4gXgfBYeN/9v5ifH6k3fxxYGgibil/fnkeb 7O+Z9KwMBP0h1k8MdP5Shat5YyBo9v26OIrus5J+of82EHYneFMG0Wyt935p duLvF0qz96H10iP9jn/A+bTsmmxDB3Isvzz4ORAm2EIvNqOznV3/7RrD+ZOf 43yN7uwZAeFvOJ7r3BteoRdO6odtpgcCee2TK1XonQ+bX6+dxfH8zflXjtZc r7h25Xcg9BMzkyVoEqlAfW45EFTXmUkUoTMHxWO/s5LBYW1bznP0mzO3OoZX k4GmJULOR//I49rct44MxtZSmXloQT6yXvtGMgzAe65ctAr5580GXjKYai7W 56Cdx637KwTJYGXh3vwEfVOrT+j5DjIktm0TYrqmRMPskQQZHuo2lT1GT2yv uZshSYaLe0zvM70p4vDoDWkyqP3Jf8/0CcbDXdFHyMD9LcWQ+ftWBgL2wfJk oCfNSjCfF1MTk+OtSIa/PMknn6KL97BMO58iw/TXS3eY4/sU73nQ6iwZVu1a f/4Zeu2fcXcjTTJs1kg8U4CWMTcu0tYhwwXjssgXaOOmtvkz+mQw6DTgK0ZT DikfP3mZDOufnKaXovNuF107bE6GmCsXN75E97Lsrd5rQwY+hkFANXrFPo1l hyMZlt7tOlyH3tu1QYXXlQxR3AkyjWj/e3NvWP3IYMgaxt2BfsDpwPUnkAze mvlf36Fb3Qc06aFk6OCqWdeP3nGqvutDDH7/Vy0HxtBqOXJbuxLJkBBgu38S 7bE5R//NTTJYy+5y/4FuGEn4WHiXDO1cqj3M/UqW3i+V+JAMCjVdrRy4n+X9 Xwe45JDB5sAsJzc6d9OiiGQRGR4byOkIoZPAyjzzDRnUt1lsUERrxfwtuNZK Bp8i2K2KXtt3i9WoiwxiA5Ih2ugA19b7Wz6SYc9JjRVLtHXm0S+RdDII8vJt i0Vvn+w4ajtLhqbkBGXm+e476hiu8oeM9Ytr3gO0Zlvmnn+sQSB0PVTtJVp2 eY2jJ28QPKL8ok6jOYw/0E1PBsGr/vIpU4wv1Q+9CAXlIJhR1dxyFe37c0MC v2oQLMwU+wSgpyJVZN5pB4GbmuhCGrqnNNdTzSoIrB+UvR9EZ/EG/TkcHQSc rkrtzhgPzSwEzm2MDwK1ldziIGb8zStMmb4RBOsGed9fR8ecnjjxOCMI5G79 11iO9vLUCRR5HgSKGn90uTB+n+4SZ1vbFwRf2i+NFaNJvPf+ag0GwSrHVXLt 6Gyj7QvJI0HQaczzZhy9ZoT/h/h0EJx73fuQH+8Dm4XVjB2swdCm8UAzCL2X a3lAgS8YXuY0/TTA+yZv/3iZJwRDft6omGwdg2hsy5LbphIMP7zuPr+I/uRq VVRxJhgyJyxInugNRUP5rBrBcMPY/1Yh2u3kx+z4S8EgpJmnIIf34eHznUlP HYOh5S7r89MNeP+5VLiNJgXD0q2zBWF4v14JNG03uhUM1re+RGSjV8ewSHWm BENBtVVoM/rSE9WvlZnBoC7e8InnDYOYGe02vfk4GEYWnaUy0VJG39XPVQZD yAxXb20TxnMV4V35o8HA/Sb8mDDmA1H85H7/wyHwN3KALtDJIA513c08OxgC N/acKI3HfOjH0p2985RQ+HVSqTYB6/t9Nrl1dhGhcFpm/0Ap2rq9zKQ/KhQe RLB8+YTuu9uVUBkXCuYJ2ZVSXzHen2FfCL0dCkX81eQ36Ph422ae3FC4VzW+ a2GCQUiLH3CUfBcKxy0vtWp8ZxD2Mcc50v4LhV0m+tJu6PtzZzK5+0JBkb3b JwnN12TWzRgIBc3IjNoB9D/nhBMl46HwfUBnlzPmd20ls1wqi6EwW+4tGD6N 8U+94qmJWBiMfD1Q+ZDBIIYPyguxS4TBx1GFhGa0Pm9J9JPdYdBmo3tqGq08 9Nxhfn8Y+A/9I2R/4PO8n+xJkAuDSB7ZjFp07b3bD+o1woCtUKmm+yfW5wve afu8w8CDj7P0I+abUZ9+cXX5hsGKZcbaJfS/eg9/n2thUJghKiv4C++7OBej huAwUHgUxW+Irpaw3WZGCwN+uS1bu9H2Fy7dSLwbBklK92ur57BefnSE9qcl DH5fqDXwx3y3biH5g3tbGOzQvbt4Hd2o8Ufye0cY2H1e5/8U3c6obBrsCYO1 BXobBtCfjqmurv8UBnyxNjQFzJ9ZmgxDYmfCgDVoV/ss+vREoM9OQQqoUAfl z2F+rnZiqDFNmAJ50+7GpmjNmFN8vDsowPUpysAdfenQmuI1EhQocZAdu422 9U2YmTpAge7ozWfH0RFrH1wtVaYArarwkD/m/y17m6w0HSgwFXAkLhzriZtT iifKnShQK8TWkYy2KijcuNuFAlcXSqay0MvH7lSteFAgZG6oug598Kz3tsIA CqSJ3a1eRifZSLwVSKDASljTQUesV8wlU++FX6fAM+m/4IM+MM3jO5tEAdEu m4MUdKPXkkRbCgWinKYfZKAXwrrJwQ8okDCWMtWONrsffPhrCQW2sUqy78f6 aZ/t/Fq9cgo4Wwl/P4r+Len8ufYlBfa8rC8AdMJzg5jUWgrwDer9dwldXys9 fr6FAjk7Uyhk5r9TsiorWinwQljlciTaRE3wxp4OCqz+NsNzHT3fsQpYeyiQ op2w5SF67+eBlKJBnN9ENmoz+td9XTexIQoYCQqe70a/sm1SjRuhgMfzpNkP aGN64azdVwo0MsY+fkfH/I0+L/STArf8DYW4sZ78KXScNZSDCp7mWhbM9xP+ XBbNE19Dhedshtnn0Szpa4xec1KhZH1Xgx56o3BvwVoeKpg8NIuzRB8S9jSP F8Df/7ZRPwAtb2LMLSNMBTb9KvtQNKQrl3Vvp8I+bb9LzH7JBeGNG/kkqDC7 7Fl1A+0mnFeTLk0FM7vWZmY97WuS5KQkQ4XkYY18Zr8kOP3atqEjVFi2jnR9 gU4QVncVP06FmG03gl+ib5vICL1WoEIEd3wX8/2Ju+n8b2yVqFCU/OBvPbpA +Ov2HBUq6G32+srsp5SZtLdoqFJhi8GVhx3o2vRi72k1Kkx1vVJ6h+4UprQf 0sLx7TjP8YHZ/zFx8u++QAV4nX1oED2Urrvb6yIVlE73yw+hGcJi5FJDKhj5 Sg1+Qc+brN1ndJkKr0lBfhPMflI6479FUyr0DvDMTKJXD/aGpJtT4ZfKb1Vm v2KDSPUBJSsq5Lho+zLQfKYP+z/bUEHl/OHwn8z+UUYMNcSeCgHL5W7Mfo20 yOXBhqtU+CMkNsDsh8iZnoqydaPCl7tHTf+glTIkj671pILgDqOXzPdFVAc3 Dj8h4fzEZM8z+ylaIn9iNHypEMZ5nIfZb9E3/Sw/7Y8e2r/q7wqzPmsciwuk Qg01tY9p28G8hEPBVPh0824Us1/jIpJ8sjuUChkfjPiZ/Rxv04AJTyoVyDBC YZqcYZXEG0kFt6FLHUyHD6pDaTSOf7HzN9NxIoenDGOp4Djv+o/pm6YCtxfj qeBhpT3KdGYGy+n061QY+k3L/n+/aPArQzEZ5zPhlBrTz0Q60j7fwufLJDQx x1NiWnI2JJUKf9mv72G6OiNjdmcGFeQMbGyY428cpNxpuEOFjXf3hDK/b7uI s4btfSpc9p0PXEL3ml78veYhFUozGYbM+fmUceLBk0dU2Dt/aAtz/sYHxbQ1 cqjQSu3LZfbHpkU4l6Zycb58OXYz55/S0hNukU+FLi3p9F/M/pvP3c29z/Hn jU/PM/tTap3H9tWUUGHO/7Y+c30/B7CXHCmnQnPYWlPm+ntLdig/fkmFnU+b zn5HZ4XaGiXWUmHBILNlHK1w8PCXVfVUuJYxbsl8H6j74183/9dU4AsZ+8zs Z7EcTY60aqHC7ed2kQPoy1/rS4/2UGF82OxmJ3rmRrxKTi/up+TdBm3M94/g csf2fiqcdPH828ycv5SZ8TWfqCDBvXqJ2X/crCnG9+ErFdKl5ysL0U/+TN3T msTz/7AtN595nh+WHaifosKY+0roU+Z++Kd9JvcnFVyPfhph9jubC8he5CU8 zxtCPRPQ5qbqLLN/qXAOdqUw33ea5+SLsWMJh4C9fx+GoyWs8h5cWBUO2VXl JGb8COYd6N7JEw6Lnm4/bNHH/I/LvNkZDsXilk7HmOu3e1WVwq5w2NTnvEmG 2Q9916lWsCccON643N2Hvi5lb54iFQ5PZN/6iTD7dZ9uxjvJhQPv8/UizH7w Q5Vf0zzq4XDhv53EG4yHvs4y2uWa4fCPXPGhGq2e7FJgqR0OiS22piVo+viE R7FeOCzTb/Az469c9OBv4yvhcNvN0jEE3dTZyJrtheNN3JjBjP9Tpim8J++E g6SxlkYs8/2n8F7vL/fCgXKatCUUnZC/pS8uKxwue5DfeKOPssalDj8Jh5am d7NX0OSs0B0RReFQ8qfTQgbN891Jsrs5HIKljIs78T477KukaP8rHH6zu59n Q99Yb04emw8HmRd8dXNLzPsgpMZ8IRyeP/WW/IYuaWtQNvoXDmcufensQCuI a6iqr40Aoe4lajr6dLuBtpRwBOibzGcdQetLuFv8UIkA3ZmkJCO8n691PqD6 3ogAG/YaARre/4OpX647HowEZY1nU62Yf/B6hS8n9kXC/mtH/Xsx31lrvcmf 82MktMglujWhly+m/w4ejIT1PW4uFeixIy9mXEcigbSHKyQTXTQ7OHF+KhKS pV6z26F1PY/+x8kSBb8UNyQsYH4V7zGWF7InClz6Ik/vQodauu5fkIwC9oPp 2vxob93Fx25SUaC7z896HYP5/yMbs67IRIG1TffTn3SMlzMKqYoKUXBvuPVF NZ1Zn90IX9CKgmHdiXxjNKf7qSvu3lEw9LS7KxXzP/lBpRciflGw0UnyZBza /pzCqpZrUWAffqwoBN0oJvt0Z0gULGhVt9mjQ7t3/X5Hi4Kzq7QeH0MvH+GM l7uH4w+o5+zD/JI+31G99DYKsp5d/iaOFrFq3fS4PQq0SxUlBdCaHU3Wel1R cGtfue8GdM6jV1x5vVGwFJuvuoD5qp1hob7ZcBQ4eS7c6UAPld+k185HQeCn aN0gdHeA6fZwsWg4ujzD8X0S8yfjq392SUQD941O7xH0K/nA7te7o2GhkX2h H13wKz18lVQ0rKfQpJvRcc4DdIpcNPzj+Gv2GK1hcrkmTCMaIr9OfHRAnzrh lCKuFQ3eDvn6lugT/Nc86y9Eg/NtYsQYva8ndQ+7fjSkvv9vvyZ6reaH+FDz aHh6IiTqILpBwcg8hBQN+fK5ngvfGESlgMMJMd9oKFss+zuDLvztu/WVfzQ8 VP5yewp9v/B2E0twNPA15rENoYP39x0Kjo4GNwGPrDfok0IGrEF3ouHkDLtE Klp2wfbj9vvRkDXY+yoJvf+9d3F1VjSo1LO6x6MFb9x0+PckGhpyHdip6D9c vV2BRdGwtLX+jxu6eFHvfkBzNLhMqO3RZH7+mXMmjLfREFI2KqGGrotX5LNs j4aNXs9kTqPbJXZHn32H47nU63uS+f6r1m/3zYPR8KInsOoA2iXl+37q52hI e5gtuw89N/r5y+/haHiXyvZyN5rNr8locByfx6U3twMt/CBF+fEPnD8FI9Et zO8/HbskOBsNi4vbNm1ES8qHFsfORQMH+9pN69FybY6SnovRMBPqp7QGfeG3 wiYlDhp8Wh2rvYz1Ua/yobcFq2kwcPlVObNeMo2RoIpz0kBRQvTIb7Sj2PqF tRtocPmQ4cUZNEXj09C7bTR4M0I79w3NdbM7VVWQBnvW0qW+ohOHGvXKhWnQ OO2y4ws6k5TflClGA1rRa5lhtETtg9BNEjQoqr+l8xn9lOv2ScpuGpxjBAcP osvuBBc47KfBk70J6z6glSa9HAcO0GBv+3O7PvRrWQcJ7UM0uFkz3N2L7m7W uS17lAbC3yx736ENt6rqPjpGA1eJfJdu9GezE9yCJ2hw+sUKbxd6anZn8IoS DeZZHyS2oz2Utp3wUKYBSfaHTRt6IXLdrzEVGnxOlTvXig5+t5JnoEqDg+Cp 8Ba9evsvuxY1GhiIPDjZgo6xnxBT1EAL1Gs2o7cUDnzMP0+DM5ydTk1oUbXX 2sm6NOCvfdDbiM6+Xs659hINJPusdjJ9YDCv3t+ABlnh7IGv0UV77gdOG9GA VS1ovAF9wuPmMXMTGkhFvDNjurYy+me3GQ1uZCx/qUerrgl6esaCBkrv5q8x 3arjaVNmRYNes2pRpi+m2+3Yb0uDChvtnjr0Vqu2Z932NFCe33Gd6V7JI0r+ TjR45HnOgunbP263ibnQoCS/UZlp49J/Js1uNHhuff0I08Jk6yk3TxpYH30k x/Sn0y3X+L1pQOStqDN9d92hdbW+NHCDm25MW3Ynp9pdo8Gshs0jpiVSliR5 yDQo47VjMD1+xaK8JJgGBa3JaszxPt79Rs0sjAZjkd9fMO0wLdW3KpwGmRqW 0szvv6/oul1eJA0cV2YrmJ7y/zOvR8P19U01ZM7fM2Wz8OVY/HlP7TXM+XVb 28CblUCDiNvcb5g+3CH5UOMGDWp83t56g/6VHC87m0yDNhrVj7leJSZz9am3 aSBwXNaZuZ4+4pcvnkqjwdr2TlfmestP1o58y6DB5jA9CnM/LBbs9ki8S4M+ /7InzP1CVppJGHpIA0xS9nSgYZWhaORjGuSvGSJ3TjD7wVX5B5/SoLSQ/JW5 H8ONotrJBThfzycne9CxXqLcIi9pYLI5t/wjWkshPK2higZqvf/dZJ6PjWxT +5xraTC0EE5hnp+k+NJzL1/TgJN2JXEUnZ6jFWHUSQPPuNVuU2gz9yI+1nc0 iEmJ7KQz96O8YPbj/2gAmheUf6IfvP7S8PsDDQ7oxF2cR+cMBbDd/II+1Hmc FeOF86ORRMUJGswY0YQ40NIuamJfJmnQHnZmPTOePF/aArI/aCDDf12UGW/K +J4Gdi/SIHs6fBXzff83mv1/NmyMAS0F31o5NH+wuH3U5hj46065fAJtX3j1 PTtvDEwLLLErobkE2Ur+CMTALZnVgWfQml/3eY6Ix8D7nocbLqG7QwKmi4/F QEih52NvtHhxo8mhEzEwyLOd7xraa2Jja87JGFj3PTshCM2r/TDnjnIMCHgc zI1EGwq320VpxMAnf/6ANPSnkh0jJldioOMYl089+uCkg857ixiQOCf/rIl5 n4gU1epYx4D9j9yfbWgxitodVYcYeB58KqMPba3jbnLIMwZKe9aE09GT3+t6 2SNi4H7izmRhvM/mRW3f5jyLgRfTTeYhaJ7G+lf8z2PggLb89wj0XiexsvDC GJCUPRwchzYuHsiyLIuB8ndpzWnomnMXyYJ1MVDbItpfgo70AJno/2LARCV3 mI4WbBC85bAcA9US0udt8X4n7Dos96rHAp9otrAb5gdJkZnSbzVjQcXnT6Ef euLJ1cWr2rFwStVWLwydMLXueqFeLLD0GBTcZL6v7q72SulKLLwzmuyuQocH vNpxySsW2qjXitdjvtKeWDgQkok/P/aTUog2q7yl/3EmFgKG5ya2YD4lf/Sa impCHAztSFHo+4nx5dqpfatuxEFolOTPMTSpjnNTQ3IcnL4f+vgn+oX27U/K aXEwqKshvG6GQUg5FvspZsfBgZ1X+JTQoncY+bKVcUCbnDiThebktBYWn4iD LPWC7e7M922097OPTMbB5vuC04Fo1Zsz3+5O4/PllV5GoyniIaXbZ+NgrZy7 fhazX6aYqSv4D5//uin8PXrGoy9y09Z4SE2++koR89OE8juunXzx4Dy+EqaO Pshipx8vEA8yJdpnDNDOsXPi63fEg+jOyXo39PijzTVr98XDXTeT/AdoCr3/ 4RupeHColLItQIsfvRcTfjAedoiBUBXavO6gMcfReOiunA3qRf9b+xvqj8VD bifp4Cg6Q7t6T+iJeDhV+m+AgT55k7pBWTEerH2DIpfRHwY051aIeBDe/U2G c45B/A/n3iJh "]]}, Annotation[#, "Charting`Private`Tag$12150#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.9}, 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., 999.9999795918368}, {0.9, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.717752040467948*^9, 3.7177520662302885`*^9}, { 3.717752143376675*^9, 3.7177521889794087`*^9}, 3.7177522261537914`*^9, 3.749806773513687*^9, 3.7504098765469537`*^9},ExpressionUUID->"3426fa77-600c-48b9-b8b2-\ 03233d543816"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"transmissibilidade", "[", RowBox[{"e", ",", "a", ",", "v0", ",", "mc2"}], "]"}], ",", RowBox[{"{", RowBox[{"e", ",", "0", ",", RowBox[{"2", "v0"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7177522286540585`*^9, 3.717752240436572*^9}},ExpressionUUID->"039aecfc-b793-448a-943e-\ 0d3d7e7f51eb"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwd13k8lF8XAHBEKhRKZakkFVLyC2XJPSJUsjNjK9s8MyVLtmRJRVlSImWN lJKSLUsU2YmSrRIqhKzzIHuW93r/ms/3M9tz7zn3nHN32job0thYWFi+sbKw rLyKhS8+SdzepGp9P+Kxs1KQasEayR2OjEwUp7a7Qg1oqMwrI0WC8R4xGkok C2Q9UPXBi/TVjM/os2OApKzADVQb1qw9Rf+FujcZ2tJ/RKEPSgGFI3QSiasv D8m4pqC6iI6LA/RlJPwf+eXay9coOObBh3uyLODQwJ5ZqJKLpBnI/FAmC0gR f1O0P+UiV84IH9cXrHDozYN1riN5aOm4XMnYo1Wg0hKQKbLrDdpa4a0+epsT erMjGPxu79DJYk7dfvoGuFS4ZGZmVI5kl22nNo9tAK8NnO48MeUoTPRswy4V Xlg93J7s2VmO3G2LPIwreUFgT+DwefsKpNHvUpnXygd76gRTR10qUc/oDxuv qY2wet7v54BvNRJdLEhYVNgKX474Pyyzr0OfeBTWsluJgsoP18msmkbUfIo/ psFXFJjrr91i625EbSHMPbEJomCnnDUI842olyNV40CnKDDCNW4ESjehhcUt V6kWO2ErW9Cw1N0mJMWcm043E4MZq/R5XuNmFNxQ3GtiKg5rt+fnbv7cgo6F Hy9N1ZOArDWRMs3RXxFNZp5HlucgeE3p7hW92oFOS9LGN2vJwf2s0COhgl0o p9XP48ORI5DA0hIxyNeDlPmlMtn9VSDx+rX7m9l6Ef1f5MOnVIDqjfvn6t/1 IefqP4cyTx+DhL3ydXryf1Co+erdixc0IDTuz3hO6gCyq/EhZBmacMIw1rbj 5yAq4xQ0cDDThrnbHZ2CY0NIlu/qg0H3k1Aff7br/dQwsv57VFr3gg4cpqc9 lagbQTz8LI2t7jrgzlT/7P9pBBUdLHez8NOBZK65z62NI2iTk+Zbxh0d8Fx2 oXp9G0G1A7onA7J0IG2wO+Jp7wg6+PMs482kDvQtBa6LXRpBLB+upYj5nQbb NdZafw6OouTEKpGZ27qQYt0wqxw+ihIspb+ZPNCFusG9bssRoyhG6F5EbqIu /KnPmS6NGkV3Hlivds3UBec4urBq3CjyvvOPHGnUhdLEjEHRp6PI8IpsRc9G PThEDPKEFI0i9jMPzzXE6kFtyXHJP79H0es7Sh3NhvrA8Yf13NxBJrKNX89R ZKoPziZJi8KHmIj/ec+BZHN9uBGR+E9FnolcykKvO9vqw1vdDHlvRSaSnmyX 5HbVB5vfEZndakyUYubjdTxCH/zXbdxLM2SiKPF3Am8+68O5y1z31VyZyL3o qP5DHQNIcgq6c+EVE+WZ17B91zcAu8u8OkaZTDQ9r5+3ycQA+irUDY5kM9Fl ZXuhMCsDeKFLlV/MZaIr70J7vZ0M4AvXhkuu75goqOSbF/WuAUht5PTiqmei uPKLyRtbDeDaXJjcQj8Tddj+M9JrMwD5jPbDrwaYSGTVjdW3Og1AMTY1xnKI iRLVYxzY+gxAdc0Nj/xRJnpSWSI/PmUAxValmaaTTJRezVXXsMUQrNSOlZ9g JdH7uqcTIRaGILCqVHNZkEQ5Wxsv+p01BNUfwSN2wiRKIebHXOwMQT9XWbFG hEShbHokxcEQimNefQjZQSJjpdnh3T6GcF5g6OuSOImG0k72lcUZwh4bJJ4m Q6JNIeS3ue+GIPnILZZNg0SrvwlSRn8Ywvb5x8pHj5NoTlzja1e3IZQIno72 1CTRz9KY1ppBQ1iSofv1aZMobVat6f6cIWj4cQnkniaRKiOqTlbQCLxdZiY3 UUh0Tkux+BzVCOj03vBBBomYEoJV2ZZGcL9+yXnjeRK5rpv7OGdtBNOvKvqV HUjk++lNZ8g5IziSqR0f7Eiiu0ZHFtK8jYBXXkyez5VE+WcPKw8lGIFRyd6W X94kYvOSLzzfbQTFhcljl26RKMhMoCynzwiqe/u2eIaRiFt5qnZ+0AjiFTNG XW+TSGApty10wgh6mZWpjHASSQTKzb5YZQxKvB3nNe6RSO/uocPDu43Bwpyz pTiORAnPZfMczhuDdw5hUfycRLXf7WqTnIxBm//w7ztpJJpc96CjxdUYltLD VM6+INEpx3lWFR9jePThLrHwkkTzshW63GHGUFPo9VIik0Rmb40H0l8Zg+9F u6gTeSTa3HBJmDlmDJkN7UXZpSQ6tpx2QGzKGBSv76s/U0Yip4OdaqZzxrie 7qhYV06i6khglLCawCHT7AtnK0jkQVmbd4ffBJYM4wv/VZGotStOV0bOBDia KC0s9SSK+Ft8zeWSCfSbXahWa8W/13zXxtLHBGovUOorsHWy7dS0/U2g9epm UuMLjr/zWlbRIBPY8lXlvsZXHI8h46ufH5hAlbGZg2IbiYju4SsH8k2gt5RZ MNdBIo3SkjNCRSZwmY9n2LGTRDuTIlRXl5hAlt6T493YnZaHl35UmcDmh5Zu VT9IZNB23e/2FxP4J7X8PuAXiVQ+C/qOTJoAJ8fN+209JBLMGLFomzWBoHDl q+g3iabD3itXLphA9Fky7il29knav3h2U9gq7mzr3EuiPdVZ3qc2mUJZ4H3t uT4S8RVrXX5xyBS+aBz/0z9Aov4XHp4MV1MQn4kX2M8kkem2pZ/PPU2B8Uj4 1jXsqvCbWoPeptC7rXjHF+wU9+it5wNMgd7AmnaZJJGtamGRQ5QpCBR9PP1m DOd/08KSU74plEzEXuT+SyJdjRv0zCJTqObevtcIuzifp5EsMYU/27evjsVO iN+e7FJjCglFO9XFJklkTgN11zZTOE3dWi81RaIvswFBHvOmoK6yK3nTDN5P B+6xvCX8/LKflHSxc39EUafZKNAcKrgmCDuy/KnkJS4KNL4Rhmls/bCaei8R CtynnzxcP0ui0iU9uUJRChQb3fZfwpa52JYwJ04BXKdYZOdItN500NF7P34/ LS7jHvbHHVy8vqoUYG4u+6Q3j+MRec/r3TEKePERI77YL9lFuhc0KSA++VA7 DTt0UDrHT48C/uzK75axtV/rGvtbU2CcVzf5yT8SVWpGxly/ToGNTSrDNQsk 6iPefvK+SQFhR83FfuzVQb1sbqEUSGHVcOJYxN+vUXC0i6RAocIGZ8D+qNWh pvGYAq/3h8xlYI/S2S+pPKNApfA33g/Y64P3p8u9oEBy80JoD7Z+rf/m3TkU 4FAtSdu4RKIWbfFhjnIKODbdT3TCnmScFl2qosBLFtH2gKWVeudpMv2BAlHF 5r4x2KYfat/3N1Ege7Ju+j32pcHxyZ9fKKAcMvm5GTtmrbDUt+8UmP+Vz9eH 3X7CMaqmmwJOwiONnMsk+nfuwYf3fRRwfm2gtxVbJPT9UsEgBba7yx+RwD5T x3fu+TgFfPvNT2li+w8pJT6aokBRz21PY+xH6+xbYuYo8CJh53pb7J6T+UdD WKnQN3Iq0Ad7lcMv12scVLC2a7YLwha/teb55bVU6KbEZkdiE/Xm/Of5qKAX VB2bih00HKBlK0CFEAVh+Wzs51yvfM0FqXBK5zYUYQ+dWu4/uZMKzIcpaXXY XBckRNR3U+F9l8KaZmzpMAMDZUkq/IgubWvDPp3uffPQfiootRYI/8J2+vjk 7T5ZKnR5RTb1YoePfBzbJU8FUql6fhA7i3t6t4giFW4n10YzsZukd1hsOkqF do4NaRPYEzrad7nVqDAeuV5mGnuj48Uq9uNU+HhcRWoOW+523PyCNhVOjHLH /8M2eVUhM6VDBRGpqWuL2J6fRuxH9alQ5XTu1xJ29KhAXJ8xFQKWf7xexn7D gz7/oFJBf6J6ecXf9zPYv1pS4euBmIoVz5+OUGywpoKtU9XyyveFnYqcqu3x fiuX5678vsqd309KGHh9f1l/r/y/VQb39/wLVLCrnAldeb4rDfLrM12osJy+ +dXK8ycxz6inulOh/ErTib/YpeuDvZK8qPBfZ5wNid11IPtVtC8VFBT7Joew WfXae8KvUmFXhxh7P3Zticku90AqcCp6pHdh3z3QZEcNpsJ3n/yv7djURJ0U lTAqBH80CGjFFl1f2yt6lwqNEjk5n7AH/NR3c0RR4ZjdMVr1yv6PltAGo3G8 djnGl2DDp7z+7CQq/JxVjnqFveao7N4HT3D8A3MpKdiN6el071QqqAe4PIrD tg57MnAskwpT/WYVN7CvnooYaimhghryNjfF1n7Lve9NOc63a9FGJ7B59wU7 JFRTIWNU7Yvy//PZf8S+Acfnzy+3HSv78eECc+oHFaJPPZbsxucnWHHgQHs3 Febmb7k2Yuun2TmX9OF8TlfTWjl/XcHmYzdHqTCg9ep+PDaLtvbElkUq/BUq a9LFri2o+G+BxQw4GrUClbDv7kVuXexmsPNSQ9VubFFOhcnn3GYQYuw6M4/r A1TvmlYUMYPIWknRR9hrFJIUtouaQei7apNg7ManQpfYxM3A8nHYNhds6xt8 s3X7zEAoQJymin1VY3nOQtkMFErcfn3B9Us711sJkBlsiNXOLsLmFZ/2Flc3 gwcu9luTsB+tGv03ctIMrnxfSCWwS8vbF/3MzUDG6PK3MVwfWdTyWR9dNgPn r6afxnH9NNf4U9fmZwZPjsWofcLO1doaxXfdDLRrvdBzbIau956AUDN4r8nW bondZKF6iog3A9Om6OhSXL8fe1ZHSRebgdQdriRXXO8XLs9Y0crMwFZGr18T 29RPYm9iFX7e6fISIex1gaGFGxrMQOzP5t1luH+4Rej+nPhpBj/yidY1K/0n /eveQhZz4PkZIR6I+1NiJuf4OLs5DGeJ5htgz+YcKZJaaw6tM4e6tmOnF8bp JPCZw8X03OUC3N8Eas5c9BczBz2Wl159uP/1d/cXHdcwB4jgzN8/geO/ZeZ0 c5A5uG5a7eyJ+21Ube3v8lvmsLfkvbAKdtLluMuvw81hD7ePNyt2fsfRp1HR 5pBcYKx3axT3k6TABdNUc/hgvs06fgTPSxL8LzuqzcFY+s25V0N4/Uf2r+nj sIC7v/wuxveTyMXcrnwmwAL4dQ/bZ+P5Y33SUJdKsAVYz17/chY7/ffF5Wth FnD7otGq9dh/LlxV4b5vAW5cax6cw/PLGf+H+aLPLIDVnfJ4G553dFK+vThR awGDvCEvLuN5SIJ56l48tyWcOExys7eQqPuanD26bwnamdGzHjW439yLbQ9J toLVqVufdGSQ6Bmv1OWa+DMQIS7U5vKARGWuO47vfXkWbMw7BLR98H6LPhI5 amwNT4IntJZt8DzhO8/CaLQGNdVtrk0n8Hx1inNhF8UGNi8dkCg9iPPls+St 76020H/S5kqzEInCqpcOilrZwmJNRsUkO4nuuQ2et+60ha3S//mGTjCRr8D2 DWJmdiAo7CFyrYeJPmWvNUcWdpD/vGMTYG/XnUqxtLKDdu07csvdTPT+5kel aBs7WJgbHvTDZpv1JrjP24Fa0sb9fl34PtT+rXja2w7K9ZQEA34yUWRSxIX6 BDsI0jiZmt7ORGmSHHXuXXbg9AjZXmphomYRtX+OPXYga6swq469sMFPmt5r B9ts9mbzYutOT94xG7CD7vVLt140M9Fkea+R6pgdLLM+6/vVxERgWfmDk8Ue LDjZpAwamajtTsB43A57qFE4uHT6ExOtnmQVLDtjD8q/ZyeyaphoNivmTq+1 PYT/5Su5jj3sKMO+xs4eFCutc4yxG/9Ykrp0eyioTNg8V43vcx0FVZ3O9nCp +dIndewDFY6us1ft4T1n39+uSiYyjfxeL/PEHpxUfwsplTORtp6LmtFTe5Az DV/Hh63MzVngmWoPWuOauwbKmEj0ptzj4pf28K6z8fMD7KHL4V6ncu2h7MVm gelSfL+0Ob6bXmUPX9IDdd+9Z6LUg9lXEv/Yg5jxLwd6MRM5CYzPFQzag0JK zw4NbLn5gx5Nw/bQ2SLxTxS7tCLLgX3MHn5Iuu7twPfTNtMs6vlZezhr9dTU AHuNX+Z/CmtpcDPiO/fxt0zE+PCq/5MUDc6PHCs7UYjXlzFq80eaBq/+O0/Z hz0Zuf8HiwwNHC4wNvFgX7V81XLoEA1aTrSzNb1hohgyvTRWmQZ5q/dkm2PX CqTH0XRoULvhu55HARNJ2r7QXXSkQdiEsFdNHn7/oVLWhDMN/MzJ6Exs4nsd 38BFGnwU3/o9GjtFf7i12YMG9ZHm7xnYokja4rkfDTSTFYS5sTeLZNCNbtMg aPY7txm+j7N9zb6alk4DyROab7leM1Ey37GexAwaGJ1mXZrJwflxulk9KosG MpJ3bHqx/SonVvvn0uBGKdetYuzZnEO3jd/R4PAvQfpFbGZ4XuxyPQ3ahu6g X/j+33GiMMdkmAZ/dtkYtGQx0TG9FKrHKA2YW94al2O/MA5fiiJpsHVg3i8b 2/ss7WTrXxq4dfEfu4st5MHXY7hAAyHDiXA9bOqjc3z6PARYiTeofMnE8Xpq XOC8gQAnwxvx1dgSL5FVOB8BeiNFO95gz+YJpDUIECBbdzMmHju6vgxObycg 70vfSXvsr9OCLidlCBhT/5K+kMFEqgvsm8/LEnDK5qT1GPYz1rG3IYcIGJBo OtKL7cldzfnhMAFhLTPUj9gCYq5JWkCAh1afcSK28em6Bg0DArqXeeRPYL8z zHO3NyLg/Q9dBYQtTn0kFGhCgMJDGUt57ElbT6LCjIDkp68FxLDveYktqdkS EC0wp7r4Cp/vJ977kRsBz8ZW2Rdh87PkFyp5ENB8dHj/a2wjy/HjCpcI8HpN 2ZKO3bqJcWa/DwGsPqnaidjfbpiECwcQ4HPRQzwQe2vPXeEtNwj4wPt90A+b qvoxlT+IgDTNuw2XsNunj5WuvUVAjWPXlAN2J/3g+EwkAeP5lLcm2CKVDn5/ owi4IfPcWx/bSjR1LfmAgJY2QbNT2D/bton1xxHAe1rLTQ276wSXUetjApiT W0RksEWfaf76nEJA77H3LVLYNmzXHeqfEfD4tvGLPdg9RbMB5S8ICFWXyd2O 3bevPzcrh4CQNFKRF3tP8E619FwCFC8YDHBjE72Wn1LzCbCQccxbiz2Q0NKX WIQ/f+XNy1XYEnPrXePeEfCxv72VBfucycml+yUETHE+FFlKx/WDp2zz7XIC qNz9nHPYUucXHgdXElD3+uzLaWyH6sMygdU4HglnHCex08Xc3vrXEuC6s/P0 BPbIlQwtnzoCROKadMawpTsGWzw/EkBYHDnPxHY8vNvatYEA+YK1z0awmWS8 17lmAiwvNXkNYh/Q+cZOayVg1qVowwC283P+COuvOB9k/lb2Y2ex626zbCOg fNo9pg97zDokjdJOALlaMbQXW7a4Ut6ok4CfD4/E/cZ2FWQp1/1JgOP0hdoe 7BwPZd2TXQSka3/etOK/TZ7tx3tw/nyg+ndjyx3IIdR6CdBJZ1uzYvfQ0QmV fgIKd1RndGHn9Uv4HxkgYFg/wW3F08fsueSGCJg8d8V0xQpJSdEyIwQIRdIo K770r33XPiYB/aMnPVf8hrI5a88YAWJJe1+vePa1gYrYBAFfKyd5Vv6P+4hC w8ZJvJ7DbIErFn0nZM0xTcCrhNrNK88rB8vj0zMEGLioVa9Yu/J3wMAcASn7 iciV9Vpq1wq0/yPgr85Bn5X9cPmYnlq/SAC/RuzVlf0K1I9QLF4m4MzNuMcr +xnb6lGfwUqHssD93X+wM6jmVo9W0SHr1SmVlXiUd6qSERx0kHdkvh7C/mq9 61oAJx0GpDdor8RvqJdzo8daOiwYpc6OYi8xRlIILvx5rawqEpt/tFGBykOH GcauzHFspalYc2U+OiTn7f82ha17+cqI9EY62MYWCMxi2y7aXtkuQAerbREu 89ihHNKPWQXpUGi11WcZOzGEV+6vEB0ES99IseH8zeGZquoVoUPR+jvT7Ngd AiWDNaJ0kHzyrmcd9ljsY59CMTpc8F2zaj02+/YgnpfidGhjOCE+bOk9+rJ3 JOjQG+zIvRXbV6HHy/ggHdqrfaZXzt/doup1mv/RIVCqY3rlfKaovkw4LEcH 4evbN66c34+a7qVCR/D6muWTDmNvo6xe043owDH0h/0k9n8dQ7HNanQQH079 rYutefbzvkp1Ohw8JPDTCNuJHqOXqkUH162du89gl1ySinbUowOvujmL+0q9 +7de8qwBHbY9qHh7Gbvf/2+RvhEdSuYeR/pjrw9+9/MQhQ4FMs8jb2GfidHd M3+GDj2313akYC+/cc276YTXu4MrqHOlfq3OufXYhQ7eHNdje7GLjMdtSlzp 4BhZUz+C7T7mvH7akw42wXHhK/V2YK8jneZPhxuxtvdEcT1ufkAX1LhLhxHD 4IAL2Jm9z8izkXQQ2pd2xxM77L/+Kp8oOkjxcxZexdZqsHd9HUOHjadNHO6v 1H8O23qxZDp8e6l4vBT7qbulH2sOHdbmclUL4/5zvTzeaFsuHZIG0kr3Ylvz dkgq5tPhHt/490PYQulmX12KcD70GzN0sO/8NpXpKsf5mHrh7xVsL0OD7pIW OvgST4sGsU8d1DzuO0WH8wEb6r/gfsny5Qur+wwdzpZKePdi51+mlTjM0SGI bfTYX2yxisDDFot0KD5L2cmH+/W8SYWkEgcDfF+28epiv/CB9bObGPBWOuf1 R+y1NUrf3OQYkPQuvqkT9/sSh7p7DgoM2LbY8YyJ7c5rrm93hAF93+uiWPA8 0WV2+YOhCgPcr0UViWO/GSl4K6vBgNsTM9JO2Ax++UekEQPUHi895cDzSI2V zDkHNwb0L1dnaeJ5hd+O8fahBwOiPn+dt8I+w0jmabzEgNqzhK0H9rTrxhw5 XwZ0RH4LScEWD8bX1EAGeCVXHWHPx/NWzvuwuw8YILC3n/sDthKnflZeIQOm 9saoMvC8dZM7hG3gLQPXt0diAdhNfOXGQiUMeN37ViwRmyEiN3elnAEz9sue rdjRsluPadczIHefp9OxlfnOoqulvZMB+QN84buK8LxkI7iH5xcDzq8dPQDY twhDL9TNgDeMXUOW2GIXK0VS+hjAyHTLeYBtcPM5zZHJgO68MyFceJ5MuNVd kDTGAE7pRjZJ7IG7QuuaJxiArCBaE/tqfFiGwgze73gm73Xsj4+qWM7NMcDE W2A6CXvLsyXD+H8M+FjIPV2Mbfvy8NNPiwzQLK3l7cTOyHKZWV7G+/n3qOY8 9v8AcW8FLA== "]]}, Annotation[#, "Charting`Private`Tag$12191#1"]& ]}, {}, {}}, 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., 199.99999591836735`}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7177522411241465`*^9, 3.749806773551585*^9, 3.7504098765781965`*^9},ExpressionUUID->"4dd7bdba-d873-4bad-928d-\ 644b0714c9ce"] }, Open ]] }, Open ]] }, WindowSize->{759, 813}, WindowMargins->{{Automatic, 512}, {82, Automatic}}, Magnification:>0.9 Inherited, FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 244, 5, 26, "Input",ExpressionUUID->"74b18e43-55e8-4348-8c9b-c78938c5b277"], Cell[827, 29, 204, 3, 30, "Output",ExpressionUUID->"6bccc36e-9012-4112-ab16-03d83235f3b5"] }, Open ]], Cell[CellGroupData[{ Cell[1068, 37, 158, 3, 60, "Section",ExpressionUUID->"4b33d1d6-75ce-4d5a-ab99-46097f5bf80c"], Cell[CellGroupData[{ Cell[1251, 44, 472, 14, 26, "Input",ExpressionUUID->"3d7dc887-0463-48ab-94ff-a3d764fdf1b2"], Cell[1726, 60, 250, 6, 56, "Output",ExpressionUUID->"a4a092f5-3fb2-454d-af60-fddaefdb0c0d"] }, Open ]], Cell[CellGroupData[{ Cell[2013, 71, 754, 20, 26, "Input",ExpressionUUID->"6201e6ad-d072-412e-85bb-20343b2ed3a3"], Cell[2770, 93, 739, 21, 58, "Output",ExpressionUUID->"62c0c138-d725-4c06-9408-df29197ac10e"] }, Open ]], Cell[CellGroupData[{ Cell[3546, 119, 299, 7, 26, "Input",ExpressionUUID->"4421f43c-acb0-45bf-a716-5fcebe07deb9"], Cell[3848, 128, 560, 17, 58, "Output",ExpressionUUID->"d5d2bb63-1cb1-4b37-96f0-4c5a3e81fb42"] }, Open ]], Cell[CellGroupData[{ Cell[4445, 150, 427, 11, 26, "Input",ExpressionUUID->"f412323a-ad48-42b6-b7f0-9c695c89415b"], Cell[4875, 163, 176, 3, 30, "Output",ExpressionUUID->"1818300a-5e61-4fc9-b2c5-d081639dfd74"] }, Open ]], Cell[CellGroupData[{ Cell[5088, 171, 401, 11, 26, "Input",ExpressionUUID->"2ac053d5-0835-4f07-8fb9-a78f7360a70a"], Cell[5492, 184, 386, 11, 61, "Output",ExpressionUUID->"ad8c6847-2d4d-47d5-8cd9-7223b10a12f7"] }, Open ]], Cell[CellGroupData[{ Cell[5915, 200, 178, 4, 26, "Input",ExpressionUUID->"0e323149-73a7-4e4d-95e7-27875b2ca0d3"], Cell[6096, 206, 202, 4, 30, "Output",ExpressionUUID->"b3178d6b-fd52-49dc-8dca-b495ea074ce5"] }, Open ]], Cell[CellGroupData[{ Cell[6335, 215, 429, 13, 26, "Input",ExpressionUUID->"dabe922e-4880-478e-a3fc-f3807a7a2091"], Cell[6767, 230, 7189, 137, 216, "Output",ExpressionUUID->"ffe1d788-9efc-4216-9cdc-be61226b2677"] }, Open ]], Cell[CellGroupData[{ Cell[13993, 372, 432, 13, 26, "Input",ExpressionUUID->"2e03702b-14fe-402f-9f22-6cd4546f47e5"], Cell[14428, 387, 6886, 132, 216, "Output",ExpressionUUID->"fba3ced7-cd59-4a85-a466-a18cdcb2a412"] }, Open ]], Cell[CellGroupData[{ Cell[21351, 524, 773, 24, 26, "Input",ExpressionUUID->"7ba48fe6-262a-4b5d-bd89-38793f296e3a"], Cell[22127, 550, 12666, 230, 216, "Output",ExpressionUUID->"9469b813-9d9a-4bcb-902a-4daf5a33aa91"] }, Open ]], Cell[CellGroupData[{ Cell[34830, 785, 901, 28, 45, "Input",ExpressionUUID->"e1ca2066-8c26-43bb-8a1f-74f99b39cf96"], Cell[35734, 815, 17804, 314, 213, "Output",ExpressionUUID->"38ec7305-297a-4f4c-b977-b14679ce70a5"] }, Open ]], Cell[CellGroupData[{ Cell[53575, 1134, 337, 10, 26, "Input",ExpressionUUID->"aa3a97eb-1ec6-4938-b090-4176253703c0"], Cell[53915, 1146, 252, 6, 56, "Output",ExpressionUUID->"cc37833d-472a-4267-9ae3-c61856bc1181"] }, Open ]], Cell[CellGroupData[{ Cell[54204, 1157, 333, 10, 26, "Input",ExpressionUUID->"90d33ad7-f86b-4f2d-9831-da3e27033bb9"], Cell[54540, 1169, 253, 6, 56, "Output",ExpressionUUID->"fffd2d6d-b9e5-4409-82b2-aab7c8bdec4f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54842, 1181, 161, 3, 60, "Section",ExpressionUUID->"7d6ade1a-2135-48f4-b517-b816ff18e1e3"], Cell[CellGroupData[{ Cell[55028, 1188, 701, 20, 26, "Input",ExpressionUUID->"a3fdad90-d8ec-476b-81fa-a82dad2f677f"], Cell[55732, 1210, 832, 22, 58, "Output",ExpressionUUID->"fa75f819-e1d2-4d96-8dc0-63f99bedf6ef"] }, Open ]], Cell[CellGroupData[{ Cell[56601, 1237, 521, 15, 26, "Input",ExpressionUUID->"34a6fc0f-fd52-4d5e-9bd6-5ef0aac93a91"], Cell[57125, 1254, 802, 23, 53, "Output",ExpressionUUID->"3c7f6e77-fbb9-4f32-a273-90a217ed94c7"] }, Open ]], Cell[CellGroupData[{ Cell[57964, 1282, 380, 12, 26, "Input",ExpressionUUID->"49235353-c731-4c80-b95b-43e89e01f69e"], Cell[58347, 1296, 775, 22, 53, "Output",ExpressionUUID->"4f32383a-76f2-4a65-9680-321e1a675d28"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59171, 1324, 159, 3, 60, "Section",ExpressionUUID->"d48cc16e-e905-49ed-b73f-47ff48ee86e9"], Cell[CellGroupData[{ Cell[59355, 1331, 1116, 32, 45, "Input",ExpressionUUID->"84506153-469b-4331-815a-0ff901e29989"], Cell[60474, 1365, 532, 16, 68, "Output",ExpressionUUID->"3f9ceb8f-afc2-4f2f-8cc0-779735c22deb"] }, Open ]], Cell[CellGroupData[{ Cell[61043, 1386, 640, 18, 26, "Input",ExpressionUUID->"1b5ecd22-c6f8-4160-ba1e-e67dd23b909f"], Cell[61686, 1406, 632, 19, 68, "Output",ExpressionUUID->"1e296ad6-db98-4b23-9844-224f7ca92c62"] }, Open ]], Cell[62333, 1428, 1017, 31, 45, "Input",ExpressionUUID->"a903c290-f6e3-4103-9bdc-3b5765a3a622"], Cell[CellGroupData[{ Cell[63375, 1463, 384, 10, 26, "Input",ExpressionUUID->"10cb0428-ba65-43a0-a585-846915861ee7"], Cell[63762, 1475, 4946, 99, 216, "Output",ExpressionUUID->"324b7ed5-262b-44de-8a56-1ec0c0c18935"] }, Open ]], Cell[CellGroupData[{ Cell[68745, 1579, 250, 7, 26, "Input",ExpressionUUID->"9c1b9dac-ba0f-4a10-bdb3-23f574bc6be4"], Cell[68998, 1588, 243, 3, 30, "Output",ExpressionUUID->"a2f73ce2-4dfe-440c-9f7d-b309445368f2"] }, Open ]], Cell[CellGroupData[{ Cell[69278, 1596, 335, 10, 26, "Input",ExpressionUUID->"0a2b18ae-b9d0-414f-98cd-d55b8db98c74"], Cell[69616, 1608, 247, 6, 56, "Output",ExpressionUUID->"025292e4-2275-44c5-90ee-83ed444863fa"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69912, 1620, 226, 5, 60, "Section",ExpressionUUID->"12bd74df-8b63-4fda-bb51-ed9f8f60c44a"], Cell[CellGroupData[{ Cell[70163, 1629, 716, 23, 26, "Input",ExpressionUUID->"90fb6597-9c91-4197-88fc-e445512c448c"], Cell[70882, 1654, 206, 4, 30, "Output",ExpressionUUID->"3af74715-6968-4cbe-b5d9-86f5df03cc15"] }, Open ]], Cell[CellGroupData[{ Cell[71125, 1663, 583, 18, 26, "Input",ExpressionUUID->"f43d7b0b-e131-4a97-a32d-d4f1a4fddb99"], Cell[71711, 1683, 887, 28, 54, "Output",ExpressionUUID->"461f106e-211d-485d-8793-086e7181ceb5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72647, 1717, 158, 3, 60, "Section",ExpressionUUID->"69c346f1-e8d9-483c-ac77-21907b63b067"], Cell[CellGroupData[{ Cell[72830, 1724, 290, 7, 26, "Input",ExpressionUUID->"e2ac66dc-ee7f-4b87-8b56-144b5fa54eb5"], Cell[73123, 1733, 206, 4, 30, "Output",ExpressionUUID->"b239cc3f-3233-4ae8-a8ea-0a96e9ae8e95"] }, Open ]], Cell[CellGroupData[{ Cell[73366, 1742, 407, 11, 26, "Input",ExpressionUUID->"40e9bd6f-d287-4955-9414-18bd74073403"], Cell[73776, 1755, 227, 5, 53, "Output",ExpressionUUID->"dbf5c984-5125-46be-971e-053f2183b6a4"] }, Open ]], Cell[CellGroupData[{ Cell[74040, 1765, 345, 9, 26, "Input",ExpressionUUID->"ec211567-1157-4446-b92b-5d793553f819"], Cell[74388, 1776, 251, 5, 53, "Output",ExpressionUUID->"115f3aa3-afc1-4d28-89da-fdf2d0b4f4ff"] }, Open ]], Cell[CellGroupData[{ Cell[74676, 1786, 254, 6, 26, "Input",ExpressionUUID->"23dab2a8-94f8-4f91-b77c-4d71d931cfba"], Cell[74933, 1794, 203, 4, 30, "Output",ExpressionUUID->"2df46929-9d75-47bb-b9be-f3277d9679d8"] }, Open ]], Cell[CellGroupData[{ Cell[75173, 1803, 1655, 42, 45, "Input",ExpressionUUID->"82f0a304-fad4-4968-9897-3f27aa7b972a"], Cell[76831, 1847, 13850, 263, 374, "Output",ExpressionUUID->"68e88714-09e7-4c0a-a735-1f91ceb612f3"] }, Open ]], Cell[CellGroupData[{ Cell[90718, 2115, 232, 5, 26, "Input",ExpressionUUID->"274b0488-756d-4d12-9797-27edb81a138c"], Cell[90953, 2122, 173, 3, 30, "Output",ExpressionUUID->"8574bf8d-631f-499e-98cd-815eb2059b2d"] }, Open ]], Cell[CellGroupData[{ Cell[91163, 2130, 704, 22, 26, "Input",ExpressionUUID->"a31d96fe-7a56-4136-81e8-7e5d9227df39"], Cell[91870, 2154, 292, 7, 30, "Output",ExpressionUUID->"5f211a7e-8cd6-4b26-9fdd-4ca3677028ce"] }, Open ]], Cell[CellGroupData[{ Cell[92199, 2166, 296, 8, 26, "Input",ExpressionUUID->"fe2dafbb-3ae2-45dd-b084-507b42c314bd"], Cell[92498, 2176, 216, 5, 36, "Output",ExpressionUUID->"970defb5-817a-425d-9aab-43a577466154"] }, Open ]], Cell[CellGroupData[{ Cell[92751, 2186, 1062, 28, 45, "Input",ExpressionUUID->"ddd34492-f566-48fa-acee-7cd7a4b5dd1a"], Cell[93816, 2216, 13107, 248, 365, "Output",ExpressionUUID->"3658c31b-d87a-454d-b527-063d802c673b"] }, Open ]], Cell[CellGroupData[{ Cell[106960, 2469, 231, 5, 26, "Input",ExpressionUUID->"7218ab4e-95f0-43cd-a861-329bbdb5dc2e"], Cell[107194, 2476, 175, 3, 30, "Output",ExpressionUUID->"cf1244fa-89ac-43c4-922e-dc0c28339879"] }, Open ]], Cell[107384, 2482, 441, 14, 26, "Input",ExpressionUUID->"f7dc7e98-f837-4571-9f05-034e698d8eab"], Cell[CellGroupData[{ Cell[107850, 2500, 236, 5, 26, "Input",ExpressionUUID->"a38b75eb-7e82-4895-aa67-0e4b89fc5b22"], Cell[108089, 2507, 213, 4, 30, "Output",ExpressionUUID->"186fb0c9-c505-49a4-87ec-7b25dafb7ba1"] }, Open ]], Cell[CellGroupData[{ Cell[108339, 2516, 531, 17, 26, "Input",ExpressionUUID->"d41d2ce4-d521-4717-8ccc-edde9540a74f"], Cell[108873, 2535, 295, 6, 30, "Output",ExpressionUUID->"37e1d8d7-ee02-4f07-aba2-55e9d98fed6b"] }, Open ]], Cell[CellGroupData[{ Cell[109205, 2546, 211, 5, 26, "Input",ExpressionUUID->"cf9ff41a-dba2-4df0-9143-1df822bca817"], Cell[109419, 2553, 263, 5, 30, "Output",ExpressionUUID->"8b1d7ba0-b98e-42ee-a040-f95962a1e856"] }, Open ]], Cell[CellGroupData[{ Cell[109719, 2563, 690, 21, 26, "Input",ExpressionUUID->"db2bc954-4a4b-4720-852f-3fbb2a49e75f"], Cell[110412, 2586, 1851, 38, 298, "Output",ExpressionUUID->"ba07120a-6adf-4dea-b952-177553d5f431"] }, Open ]], Cell[CellGroupData[{ Cell[112300, 2629, 1121, 34, 45, "Input",ExpressionUUID->"4abf40b7-39e9-41ab-bb07-01e55e2aee72"], Cell[113424, 2665, 2003, 39, 314, "Output",ExpressionUUID->"1dd7ee1a-5ed3-4f49-a1fb-c2de647a2ce4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[115476, 2710, 184, 3, 60, "Section",ExpressionUUID->"6d0d653f-2fa8-4067-a43e-29229ddc6f46"], Cell[115663, 2715, 875, 26, 45, "Input",ExpressionUUID->"d2c12ca1-a592-4916-b03b-8dd5b59eb457"], Cell[116541, 2743, 211, 4, 31, "Text",ExpressionUUID->"904366d2-27e4-4176-ba0e-08dbf7a9941e"], Cell[CellGroupData[{ Cell[116777, 2751, 131, 3, 26, "Input",ExpressionUUID->"deffc87e-4922-40db-8d9e-bd2e80f50696"], Cell[116911, 2756, 157, 4, 53, "Output",ExpressionUUID->"7adfd3fe-7c84-4c10-badc-e61213f49c34"] }, Open ]], Cell[CellGroupData[{ Cell[117105, 2765, 156, 3, 26, "Input",ExpressionUUID->"fd164518-91f5-46ca-bcd3-5a6f8aff427c"], Cell[117264, 2770, 134, 3, 30, "Output",ExpressionUUID->"e48fcb1e-b461-496b-84f5-792e6eaddd77"] }, Open ]], Cell[CellGroupData[{ Cell[117435, 2778, 155, 3, 26, "Input",ExpressionUUID->"49a50c56-787e-44c8-bc2c-6640130899af"], Cell[117593, 2783, 130, 2, 30, "Output",ExpressionUUID->"998e093b-0151-46ae-a129-229d93e961df"] }, Open ]], Cell[CellGroupData[{ Cell[117760, 2790, 588, 14, 26, "Input",ExpressionUUID->"422a0143-f762-455e-a55e-78295c6a22f6"], Cell[118351, 2806, 18584, 322, 226, "Output",ExpressionUUID->"3426fa77-600c-48b9-b8b2-03233d543816"] }, Open ]], Cell[CellGroupData[{ Cell[136972, 3133, 482, 13, 26, "Input",ExpressionUUID->"039aecfc-b793-448a-943e-0d3d7e7f51eb"], Cell[137457, 3148, 10791, 194, 231, "Output",ExpressionUUID->"4dd7bdba-d873-4bad-928d-644b0714c9ce"] }, Open ]] }, Open ]] } ] *)