(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 183591, 4571] NotebookOptionsPosition[ 155702, 4107] NotebookOutlinePosition[ 156067, 4123] CellTagsIndexPosition[ 156024, 4120] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["An\[AAcute]lisis Matem\[AAcute]tico II", "Title", CellChangeTimes->{{3.698422872527462*^9, 3.698422878492705*^9}},ExpressionUUID->"8bce67b6-016c-45cb-99ee-\ 4de89fcac647"], Cell["Clase de Trabajos Pr\[AAcute]cticos", "Chapter", CellChangeTimes->{{3.6984228841457243`*^9, 3.698422891732194*^9}},ExpressionUUID->"b8597453-cd75-4fbd-a5b6-\ 37475b7c4c65"], Cell["JTP: Ing. Talijancic Iv\[AAcute]n", "Chapter", CellChangeTimes->{{3.698423100822274*^9, 3.698423109918743*^9}},ExpressionUUID->"7eb0c3f2-1e57-4868-9211-\ daf079e3a279"], Cell[CellGroupData[{ Cell["Unidad Tem\[AAcute]tica 5: \[OpenCurlyDoubleQuote]Integrales de L\ \[IAcute]nea\[CloseCurlyDoubleQuote]", "Chapter", CellChangeTimes->{{3.7014470488346357`*^9, 3.7014470639323845`*^9}, { 3.707670973924513*^9, 3.707670995713643*^9}, {3.713696388926263*^9, 3.7136964186106873`*^9}},ExpressionUUID->"35dd12b3-f21e-4e3f-bb78-\ 8f77ce917a58"], Cell[CellGroupData[{ Cell["Problema 1:", "Section", CellChangeTimes->{{3.7014470670635943`*^9, 3.7014470694473567`*^9}},ExpressionUUID->"274b3d03-0e79-4646-917e-\ f08caf34dc23"], Cell[CellGroupData[{ Cell["Inciso a):", "Subsection", CellChangeTimes->{{3.713723840635755*^9, 3.713723844753791*^9}},ExpressionUUID->"f00d4c90-2f5f-4f85-b1ec-\ 5747fce2ca66"], Cell[CellGroupData[{ Cell[TextData[{ "I) La par\[AAcute]bola y = ", Cell[BoxData[ FormBox[ RowBox[{ SqrtBox["x"], ":"}], TraditionalForm]],ExpressionUUID-> "50ab8ac3-f312-45f4-a1c4-5bf0151086c1"] }], "Subsubsection", CellChangeTimes->{{3.713723855865394*^9, 3.7137238748427258`*^9}, { 3.713724071811665*^9, 3.71372407469207*^9}},ExpressionUUID->"d52638b3-33ea-4d03-b5a6-\ 546d71b539ef"], Cell[BoxData[ RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"PointSize", "[", "Large", "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.713724102029948*^9, 3.713724144651245*^9}, { 3.71372418943722*^9, 3.713724202526371*^9}},ExpressionUUID->"5884dc46-e598-4536-90f6-\ c7c5d6b5601e"], Cell[BoxData[ RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{ SqrtBox["x"], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.713724076568886*^9, 3.713724089352579*^9}, { 3.7137241995039587`*^9, 3.713724204466289*^9}},ExpressionUUID->"47dd86f9-a2fd-437a-acd9-\ f7c8daa7ee61"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g1", ",", "g2"}], "]"}]], "Input", CellChangeTimes->{{3.713724206122571*^9, 3.713724210860395*^9}},ExpressionUUID->"bce4db34-c08a-4ab1-b8af-\ d0887cca54f1"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[1, 0, 0], PointSize[Large], AbsoluteThickness[1.6], PointBox[{{0., 0.}, {1., 1.}}]}, {}}, {}}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVjHk41AkDxx3P5kj0tsvulM3rGu16CdFG8VXZJEm5Uk1S4s1RbBFDtge5 ch8tyhnjzn2rcT6IJDPEuo8xjhnzi0W9kd7pj+/zfZ7v8/185G+4WzgKCQgI 3ObnW59xXOhvXrQ2iLK6GuRfr4D5EpsbkyRtUGPPr3xHxEFm52B0JckIn8Lc zyZSUlBP/9PNm3wOLSL2odVSGVDX/YGWRrJCryErbYGXBYHvFxO+yl3CD4+r I7okctDPfRV4nWyHu0f99r/YoEHv3aGyeNJNNBcMxDykFEBRPz2vLdUJrSbO nVbsQkgUimasyTnD1Dtgjnm5GONB41E25Dt4uMVOzpEqRfOzNp0okieelwia TPPKoc3wKVe+4oUrtGOJqg8qUCCqrkZPvY/VyphuyneViPdKViLkqIhz+bTV IlEFB/Pb318g/wlJNSGFvI1qBAVE+DwmPUK9aZG9L6UedFmnGpuGR8j4udtT qaUen2oN1xSuBEN3QPSfM0oNcOOtuzemhoCcS2aZsxtgdcX+v1y5cHjne57o u/wSZB0dm3PkaAScNr6aKdWEm54EKZyUCK34rnuTvBYcEo73rfBIhIZYe1WS dCuE4rVHRzsTUZ1hTP9ytBUZpdRU9ftPcKxQRHE0tBUjS8JyA4y/8EhVoEpS tg3m139SkotMgTerqJ3+Wzv0zh1Xr95ORxelVn3ZqAOi47PRE9YZmIh8q6Ry swNDriGEyIsMnAiY69YJ6kBDu6PtC7VMJPhFcJjNHbCdKSQJjGVCp7tlQlmv E/E/66TSjjxHzcNcnVzlLogmmmR9WMlB8R/+x5NnX2PzyPRm1l4axm7M6Fds vQZv3MfG8iQNAQ2xe6qku8FUyd9Zk0jDljTF1sO4G+mNO+77/ZYLzbcNyYyC bmjPtp3Z4Z+HRrakvqdLD+y1DNb2iRZi5fzk3cKxN6h9p2VsvL8UCrf2MS9F 98E2aGykLaIK7pRbslHyDLiX31NLXqvHKK8+i2M/gNXY912Cgk14Ib6V1vz7 e3S1dDT1HWuFMdff79aBYThTTXZd4rZDfkDTWHHqb7SIaX0tvt2JcansdP/r o8jNbt/eq9yNzYsTYvXcMRjKvHpuWfIGKapeBuGmE1DrHKvr+LUPq+ZPXEoT JzFgaMkr4L2DJYVMzfGagpu4K2NQg4EIs5USN6lp9AxffCUZzYSKRKyFbtk0 LE/ZTrNYAzjg6O5Sc3oGhzMjLmYqvYdX+7O1BMYMprYTBm49HALu1fR3Osxi zqQvW6ZtGB/nfOgJ87MoS5mk9suPwOuAb1/OXRZoYcLhv/iOQnCfdG7xRxbW HS4vOTWOYZGy5jfpMYedRiEW5T9OYFKvZtRiZQ4Pds9JTFMmUR2ipJzvxIYE XVVgyGwKJllnnzoNsaF/3/xL2+cpbGlGh5uZzyM1JzJbMXUaT4ZM6VKv5mFn rd0rZjqDu9V3+hmaC6gedEygb8xAJcRo+dLzBei+KRNi/zWLIr0ScqjYIv79 u9N6ghELVNW1/HjvReho68RVsVkgW1NHaGOLmFyNep0dPIf4qr05xw2WwD10 IZikxYZhLTMsKXcJZI7akiCTjQemT2SCd3DQruTF8AiYR7ymGVvkNgcxA4MO FkoLuMypd3Pt4YCwbI4Tal+AgqbrnlYyFxXW0id1/1iEcKNM/uMwLrJ7g9Jm 9iwhyVtNPnuGi4+dFL89rUsY7klSlDi5jKm4pvXddzhwo91UCMxcxkb/UVKg JBdfpp2tCzeW4ZGo0Ex9yYVsVZiZoCUPP/Yq7GbZLaOO2xt6NJ8Hy8HiLdnt ZfRr7Tec+8zD6rUst7FCHmo/eLDTLAk02ZcGS54lsJJaYhdKI9DQ52Y6cY7A Yc4Rg39yCdQY/PqvkgsEZibcdl3LJ1AsS0s1u0jgUeCI7+EiAk+Hn1ZG3iDw v0Pi8awyAl7nQ6bFqQQsXWmV+i8JqBpe1Rfhe1rWhJizDALk0r3CQ3wPM2qz yGyAgML+4a5cvkcZs561gwR+2rKwOlVOIM8n7P3jYQI76k67BvM9PlJOf2tM EJg+qJ0izCQgH3hmkrpIYCx9xY7J566d1a6bWSIwvKtUKZvPZWgcDDDlEnjL +aXsBJ/7T639rCxB4GWeXGcAnyupWF6grxGokxmPvMD/uZ96dkJlg0Bl8FML ef5Ps8slMuYjgUIH6Ylm/m9hw/vDtc8EaAxGdix/P8+sF+/aJJB5PNbZnr9n bilLa3whkFpmdvBbu4TTpZK3CSTJ7Vz/+pVAT0zw52/9f7Xjheg= "]]}}, {}}}, 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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.713724211135632*^9, 3.714927286763064*^9, 3.714929364416602*^9, 3.714930707394518*^9, 3.714933186474231*^9, 3.715529289150237*^9, 3.7155383679747133`*^9},ExpressionUUID->"c1ec1069-fc2e-44f2-861b-\ 7b06bd0dd057"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["y", "4"], "*", "2", "*", "y"}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "-", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ SuperscriptBox["y", "3"], RowBox[{"\[DifferentialD]", "y"}]}]}]}]], "Input", CellChangeTimes->{{3.713723882677496*^9, 3.7137239589333687`*^9}, { 3.713723989167725*^9, 3.713723991083991*^9}},ExpressionUUID->"8bae5b7c-c5ed-4429-af46-\ 76cbe4e0d190"], Cell[BoxData[ FractionBox["1", "12"]], "Output", CellChangeTimes->{3.7137239273231287`*^9, 3.713723963694825*^9, 3.713723998640129*^9, 3.714927287161202*^9, 3.714929364481902*^9, 3.714930707438424*^9, 3.714933186545199*^9, 3.71552928921535*^9, 3.715538368052763*^9},ExpressionUUID->"908565d8-5f09-42d5-886a-\ 8b91d8b62713"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"g1", ",", "g2"}], "]"}]], "Input", CellChangeTimes->{{3.7137242175612783`*^9, 3.713724231201714*^9}, { 3.713724773209652*^9, 3.7137247737067633`*^9}},ExpressionUUID->"20563c35-8754-4285-bffe-\ c8e6c07478a8"] }, Open ]], Cell[CellGroupData[{ Cell["II) Los segmentos paralelos a los ejes y = 0; x = 1:", "Subsubsection", CellChangeTimes->{{3.713723967042046*^9, 3.7137240112318783`*^9}},ExpressionUUID->"3ec0df28-79eb-4f22-a0c4-\ a8f9b63dd734"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.713724354628545*^9, 3.713724416498034*^9}},ExpressionUUID->"02ae9b74-e7d6-4c34-865f-\ db5e7ab080cb"], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], Thickness[0.01], Opacity[1.], LineBox[CompressedData[" 1:eJxF0X0s1AEcBvDDVnmdLKefGZFsmBinTUUqkXSVO6ImmbdlFC1aV21NOkte IlbRaXROJXMnKhXuOHMqOs4dN113Tuf9cjHHZl6qrb7fZ3v27PP34xifTksy JJFI1D/9u8eSpgYE05EBpH+ZbDgdryIoB/6bbCoraiKCwLv9tnEqiQjw3n4f 3gMiESx4IvQtJDLBOdn51+4Rd8CJmToijygDbykLrf41XwN+1+8dEmLPBUfn KEaE+c3g9MYrHo8X34MXiod6DAz44J6Obr54fyc4hRFqfkbbBe4w9t6ovygC 17K71m13fQYHktue0Rt6wR4iRUu3mxgsDaTPvZzrB6eZpEpkXhLwF3lUm0XR IJgeHK3WaKTgPVX5UVXOQ+DR9VLphVvD4PFQMZsslIN55SrGgOMImHPXKM/1 +jewPuHsTPJHBdg0KJfWaKME37QcN1PHqMBm7e6kYeoo2P/qyTXhCppVU8De yVKDYyMpfcZhY+A3sqTS9iW0Xy/PcOLhD/COI8n60iAN2JfiW9I8gVYtFH5i M8fBWp9wJuE9AXaZ9ZgxGER3OWdJMrInwfelsgSa8xRYRxeUGHahX0daH/a7 PA1m9+VUjlnNgJdFMTesOtGjJXy95aVZ8NLAPuK2hRacUeYkYLSibfqcLDWx P/FfWf2q3Tp64Xx1mqJuDsyP4zItjuvAH8RpYcoT6LcBblsbwtH1dhwWNQpd Ia9oKohHZ53KVZsw0O6B5/w316JduLZGwy/QTvbyntpX6O2rtIjgRvSmlqOp zFa02pNSbjSIVjydjx2UoeXmXGe2HP111pV3SIlufe4gyp5Gt5C/F4Rr0U3M CpqjDl2XYK0ULKI5Egm7eBlddbA4JW4FzeJRPb3W0I8cTPUbG+jf5AtD6w== "]]}}, {}}, 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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0, 1}, {-1., 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.713724368360776*^9, 3.713724381231751*^9}, { 3.713724413886177*^9, 3.713724416736412*^9}, 3.714927287214444*^9, 3.714929364558963*^9, 3.714930707495101*^9, 3.7149331867490788`*^9, 3.715529289253667*^9, 3.7155383681132193`*^9},ExpressionUUID->"d33644b3-b06c-4249-a627-\ 6edd228a3876"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ SuperscriptBox["x", "2"], RowBox[{"\[DifferentialD]", "x"}]}]}], " ", "-", " ", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{"y", RowBox[{"\[DifferentialD]", "y"}]}]}]}]], "Input", CellChangeTimes->{{3.71372424544203*^9, 3.71372434291827*^9}, { 3.713724518783443*^9, 3.71372453343369*^9}, {3.713725031439721*^9, 3.71372503205971*^9}},ExpressionUUID->"2cf69a7c-5367-4252-b07d-\ 13240a0160c6"], Cell[BoxData[ RowBox[{"-", FractionBox["1", "6"]}]], "Output", CellChangeTimes->{3.713724343954688*^9, 3.713724488603013*^9, 3.713724534164289*^9, 3.713725032320816*^9, 3.7149272872534018`*^9, 3.714929364591764*^9, 3.714930707536591*^9, 3.714933186794003*^9, 3.715529289291202*^9, 3.715538368183949*^9},ExpressionUUID->"975b109c-0b2c-4549-aee1-\ c84f406b50a8"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Inciso b):", "Subsection", CellChangeTimes->{{3.713724570697782*^9, 3.713724574376309*^9}},ExpressionUUID->"9c6b4492-f6bd-4d4f-afcb-\ 6a8143a1edaf"], Cell[TextData[{ "Calcular la integral curvil\[IAcute]nea ", Cell[BoxData[ RowBox[{ SubscriptBox["\[Integral]", "C"], RowBox[{ RowBox[{"(", RowBox[{"x", "+", "y"}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]],ExpressionUUID-> "525498ea-4ba7-4da7-98d1-bc2b3d0161c8"], ", para A(1,0) ; B(0;1). Siendo:" }], "Text", CellChangeTimes->{{3.713724581783986*^9, 3.713724651604982*^9}},ExpressionUUID->"73af9738-3750-434d-93a8-\ ddeceb77a0e8"], Cell[CellGroupData[{ Cell["I) Arco: ", "Subsubsection", CellChangeTimes->{{3.7137246576541443`*^9, 3.7137246622859*^9}},ExpressionUUID->"5f09fcb7-abd8-4594-adb2-8f2f22d194e8"], Cell["\<\ x = Cos[ t ] y = Sin[ t ]\ \>", "Text", CellChangeTimes->{{3.7137246664761963`*^9, 3.713724685247058*^9}},ExpressionUUID->"5daecf6d-ea66-4014-ba86-\ 9949d8d0714b"], Cell[BoxData[ RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"PointSize", "[", "Large", "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.713724694145965*^9, 3.713724730033182*^9}, { 3.713724781262374*^9, 3.713724781941806*^9}},ExpressionUUID->"2477fab9-9b92-4fe2-9ea4-\ 56e27954ff17"], Cell[BoxData[ RowBox[{ RowBox[{"g2", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.713724732244421*^9, 3.713724800079329*^9}},ExpressionUUID->"d25e085d-04f0-4ee3-96bc-\ b3b1c35fb837"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g1", ",", "g2", ",", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", RowBox[{ "PlotLabel", "\[Rule]", " ", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.713724786371513*^9, 3.7137248494050303`*^9}, { 3.7137250462053623`*^9, 3.713725063491496*^9}},ExpressionUUID->"c3d13d9c-e007-4edd-9598-\ ca836c1de433"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[1, 0, 0], PointSize[Large], AbsoluteThickness[1.6], PointBox[{{1., 0.}, {0., 1.}}]}, {}}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJw113k0Ve3fBnBNKCQy1KNQpIkKJYQLoUgpKTKUUCllyNBTMpQilDqG0BOp zFGGQ+bQyZwoQ4aSOcc5Z0clhN679a7fXmuvvT9/7r3u6zussXMxPTWfi4uL Te6/z/+/vuF/b9EVORV//lBwFpL5NzIcOMBTz/3XPl3p6pHhJpj9sPfdLHFK 78YeTqY57OTlJWaIb3DX6UWEn4CkuCdzili0ryT6v2J7FDyU0fxFLHddS5ud eQZx1TuX/yC+2hF6WyvBCdKJ2ee/EV/rMbhwN9wFXto0Qxbxk6pbIy6VbijO aEsbJu7iGLRHF7tjfPranT5iztCWf1/RPTEPET+6iUOf0xhDmZeQG7akp404 3aCcLpByGYXzvho3ET/L5tPZnuCN2cJW8oEUAoU0Bf3D/bBCdSi9kDgmuC/h /Rt/aO6zkcsmrudqn3SovAb1l34p8cQJZ91bbxUHQNRic2Yk8cOz503/KbgB bkktlRDimpmXvs/oN8FbFvve/e//4h5pbcgMwl6qb/AMsWKU1JR1+i1MfY+4 akUcMmxUwkoOxoD6lu06xJvF1y7nSwiFm59hAzexf5FutG74XYT+aZuemKNw sWhPypk991C1pDFjiLijMeR15pt7uFw59YBBLH5MVUWtkoYBKZOEK8T73p1t NC6OQKvZNuZp4vDiLVP31CLRo+/z0pR4/bhSa8vLSBTHWHVvID4UZxRrRY+C 5HJlk3ezFKrrv0mcyozGagVv+kvik30jD5I3x+BipmLcI+IlMm+Kh9NioGs5 OnmB2CHDvcsxORbnJB92LCT+9GvU+vSj/zBjbqItMUPhheP6ImPaIzSaiSlP /aawdp5NtbBAAoZNfCLaiNk6il99DyXgZKlC3F1ixor7e492JmDCeVPL9DSF AwVCdvNYj/EmbHNz3hQFLrPOwT2CiSh00Y0PIV40f6nci8OJ2OK6sOM4seK2 XYvFYhLh8/129CLi8KG43D7pJOjRqlSNJyl8FtjrdUkpGfabY/nLJihceG7y +M6RVIw9eUMPJta5bufLiU3F8GR6nRmxNH8P88DnVBzkS8TITwpq4YoXlp5J w5HRcwf4iO/yL/gZ9G86AlQUuLZ/J+e3I+KP/X8ZYGz6p0ScorDR0K7QyjUL y+b/ftfKIedDfJ639r0seEhedIggTlUNnpbNygLNeL2gAPHTixaKbCoLub/q nKZZFI5P8bheccmGWOeIbimTQpuXRWWQcw42hPq79g9SEF5mr33uPB1iPw/F 0oh7rtBr9G/TsSfusy6IN5ou/iOdQcedhi0rYgcolHeUu7eN0uEs/K7eoJ+C bry/i6ZTHvwk1CxCvlCgOoR0fp/Nh4L6OcGcTvI/ytQ+KJ0pwMtpEy1TYiW2 jYN9YAEO1Ah8H+ugkObgER2RVICnh8Q5W4kvlcf2jvcXQPtHyKbkdgpW17Mn M2wLwbdDp8y7hcKVpx61Sy2LsPzWC6v6tyRv6yKybhqXIKfz5l5rYvrlEzFp TiV4yzlVzGqgoBqosPxtSAl8+I2U+YlzpcZeCdeWwNiq2Um/jsI2QZ6RGP1S CCpaz3tcRWH7tqll97TK8I5VUTdTRkHB9Yj68hXlaI36U+FO7BAsvobaUI5B i9mNzFKSByF2WZ1aOQ716xq3llBYuPaJ5DWrcszQ1DsTi0j+gvtOMePLoTjA K7kxn0J/uVLz83UVUNFeYl6VQUHiz2KeWaVKOIfLy5nFkPMdNns43pgBT3c5 Tk40BRdWz6I91gyYLvmhJkRslFt8hnJioMhQxKYhitSzg2fVEcqAPt+LZo0I ChOsXpGuWgY0igK8uMMoxNd4Oi7Y8wY9jWXlGgEUjGs/dInoVMHZ3o6z4zyF I7QVNxW212ByV0DQC2UKbvttpzIdG7DOotPA5TsHjcGvntdpN8F5/yWhshcc 5AnLTnHWvYcvL1fmdxsOzjz4bMO9tQXMSQXRhsUc7PeWUzNd1oY9nU8ChLLY +EqbS2jva0dmk2R+vgEb+60nEmhtHdgmIynC9YmFUfE1iWZPunDCdm27ux0L sSJSewXvfIL8Pa23qn2jULQdG6ed7oHhke27n9uP4vQC2xMKt79gbWzl8dn3 TMye3do5crEX+jeO7BHTZ4JrV1L9B/0+aD8fH1uYOILQeMNPBuv6odEa1pw2 9xU2i74V6P3ux26Omu+q41/Ro2Pl1Fs6gJDHDB7rtGFsaapW3xo6CNlVN0/6 TQ+hTkWw1FR/CAdGZ/NvGA5B6ZxE6YWJIfzqrZTwDxhEw6DsW4usYayR3Zqh 9WYAmTe2fGw1/wp+vWu9xmP9SMpriIjnHkFR1iKPpxL9aDgYFrD92Qh+Ha00 o5n0QSfJed1+LSYE6PPb9S/0Ipo10J7SxkT1fsPDd6O+QFBadZjr+CiU9FuX q13twcHxJM/V3aPwrZmJV074BHa9qLWXDQvOAVuaI7q7cNHIZWymkYX7vK5d R0Y7sIoheEtKlw13n+ASE5GP8JArUBFOZmONEdPuuXYblmnnJfdwcRAjumKX E1ogqhy4XM2Kgx8TIoydVu/hosFIb0rhQJr7pvV5wya4xiZ/Mh7nwCk1r8Lx cgO2ldveLFYiOa3ZzDB8VIMDTOvF889QmBc/wgoMq8Ew225RC7FFblHSa58a vJrVu5jkSMFJvaZml3UNUizD4g3OUVDxZHXLrazB8d2N2tcvkHPJ1PT/Gl6N h3MNqZ/dKWik366TCKwCn38ce7M/yWnJzm2HSQ7+vZ4SLE5ycfRWi3WUFQMF 45OiRcRfOmiq7fsYWC5fK2tNcsVWcZw7Js/AEKurNj6WgoyuVZ0V+zViX95Q lHxIcvlj5YODLq9Ra1nksegxBbFN299xuVdi4sqHQs90CpYjssfU7CuhcVmP xvuM1Mm6xQ/cDldic9gw8wHxWH66Tq9yJRy/FsmWkVyvrZDdWvqjAr665jlz zykczusoPONVgatiHsqOuRT2i1/TD75cjhMSQmXdxWSuaZQs5T1XjmunxvVs SB0xcReaCLIsR75zmukn4uK9fRk3d5Xj7ira/G5SdxLNzc/OTL9C8mch+odX FC7vPFZRPf8V1mWpWGe8ptDcLh3OLVyKM6KW9Pn1pM/VipVMjJdAgM9e2IO4 eWvgpaEPJfgsw/trgLif8SyREVWC4oXSZm9InTTYwTfovbIE35vMbfwbKSx9 NXKqTboYM98upfc0U2BZspK1thYi9qi17O6PFH61vTf2EShESp5BYiax/KG1 14tHC2AwLhQlTuq6i7hVnEpqAfbc3107Qpys1pC8fk0BIkS+eAd1Uah64Bny U/glFAPO8aZ+prA76Hax3gTpO8zMHB/SdxyfJHt4tZC+pGq0r4147I9MU0oO Heyye2ZbSJ/S0E51XexCB8dIrLCbeIWtp2PNcC5U8z/WKg1TKH0mUbCjIwdF PWxexggF2hj9T3NxFtTaPb9fIX3z9t6SeI2HWViyWm2khNhz6vVM8tUsdDnw 2M0Ri9VX/rqimYUHv8u7/UhfLl3PzYHvC6gX3J64+o0Cv4ybQOmNTBzdm1V0 YpzCG37nRyH6mah+/eJLLLFTTE+ZOXcmtGSeBX8gtm2eTfsWlIGExeEO+qTv u9QqG68OfYYhLV4tmR8U+Ey+x9jR0mAx1OlbTeaE/PpNXhtN0xDIr9wyRfwp xvgbJZyGn72XMzaTOWNvjfwr78hUGN1rGrxDbKvn0hcWnYJPq+94G/+isCHH TzwxLgmTlk+Ucsgcw2tusfPU8SS07AjL7yZ+4Ru+QE4qCeEeNqXcZO5JMF2c lJyQiHd3nh4+Riy1Y/n6xKdPMZle8mSS+PA/Cly0tMcwoj+skyJz1z7urrIx u8cIfHrQx4A4sql8g+mqx+CZXhZ5nnhNUNQC4bsJ6J/MZecTFyxdPSExEo8n qS6H9Mic11trfPGjVTw+r3eXPU18//lFy8jGOGRH+FgFEfM5OFxeQn8IlYzE n9XEXBKqmt98H6BrYFOnDpkbLTPdHFLHYiFdYPb2OLFs6AYBW4dYuBX7y3oT f2Y2s98axuCs/Ke5bOKfXM47E0Xu48SRWPsVZI5NSGblWQRFga1Y5bWN+ONh 13r+6Uhs0B5j7yH+p8Goyr0nAqObtHk9ibfWpBpoptMw4ZrHqibWVM6o4ayi wW22WqqL+Fuvxq9Hd+/hrHdrPptYJyKydj4zDPIDPcuEyJwuv8/U1P7dHUSt 7f6whlhQLNfwNf028qaapxX/7gW0odhrfiFYpJ7mcZA4L95ntschGLFLQ6qP E0d4aQ9qGt1Chqm973niSav3RydFAlEjPSceSOz58dSo2fQN/FZ4NU0jXjmX uTK7JwDzsy/pxBE7qg5aOKZfQyQap//uLY/qYzxe3/XHsiGnC8XEFUtE/DSY vtityqXHIOY6pOI7Rr8KUb5Q34a/e8Z367Ekvys4pcK/uoXY1de4/5jRv+CP CpDqIvbyqz0uIOqFroVjN3uJvW/FOJf3uCP+tNnBv3uZm4Lvavd0N4jHZ/r+ 3dtMFvqyjJjOWBA+s2yMeJUqeF74nYO4vA7PT2KBDbUJwqKnMe+Y98lJYnPe pEbP9JM4y/tM6jfxdbEC42w/S3Dkm3T+7pmnajlXvNIPYUMJs3qOWHPnvGSv dB08e04+l5jHWkRZLpmm8b899v8AU7DHjg== "]]}}}, AspectRatio->1, Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ "\"Trayectoria de integraci\[OAcute]n\"", TraditionalForm], PlotRange->{{0, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.713724791191016*^9, {3.713724827001544*^9, 3.7137248497412653`*^9}, 3.713725064284555*^9, 3.714927287383213*^9, 3.714929364655843*^9, 3.714930707611319*^9, 3.7149331868706617`*^9, 3.715529289406842*^9, 3.715538368281334*^9},ExpressionUUID->"4a4b44ab-fdde-4bc4-ba5f-\ c33b772f57de"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", FractionBox["\[Pi]", "2"]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "+", RowBox[{"Sin", "[", "t", "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.713725239313073*^9, 3.7137252881539793`*^9}, { 3.713725375690365*^9, 3.713725375957904*^9}, {3.745775286995983*^9, 3.7457752988875628`*^9}},ExpressionUUID->"2eb5bc8e-104f-4834-bafb-\ 4cb025de3d6a"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "-", "\[Pi]"}], ")"}]}]], "Output", CellChangeTimes->{{3.713725284186499*^9, 3.713725288460507*^9}, 3.7137253766219597`*^9, 3.71492728750215*^9, 3.714929364743621*^9, 3.714930707689741*^9, 3.714933186969345*^9, 3.7155292895660686`*^9, 3.715538368356739*^9, 3.7457753061989803`*^9},ExpressionUUID->"c9979519-309a-457a-a23b-\ ff504da990fe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.745775312868175*^9, 3.745775319503612*^9}},ExpressionUUID->"56149f16-d8bf-4302-a147-\ d5cb73438555"], Cell[BoxData[ RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}]], "Output", CellChangeTimes->{ 3.745775319836924*^9},ExpressionUUID->"4421e540-8644-46d0-8bd7-\ cbb1481b1980"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", FractionBox["\[Pi]", "2"]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", "t", "]"}], "+", RowBox[{"Cos", "[", "t", "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.713725239313073*^9, 3.7137252881539793`*^9}, { 3.713725375690365*^9, 3.713725375957904*^9}, {3.7137257135551157`*^9, 3.713725714012854*^9}, 3.745775456625257*^9},ExpressionUUID->"af2c56b0-5b8b-4990-b40a-\ 7104c109eea4"], Cell[BoxData[ RowBox[{"-", "1.2853981633974483`"}]], "Output", CellChangeTimes->{3.713725714309024*^9, 3.7149272876175528`*^9, 3.714929364790289*^9, 3.714930707727992*^9, 3.7149331870142937`*^9, 3.715529289613426*^9, 3.715538368432547*^9, 3.745775457744721*^9},ExpressionUUID->"03492220-252f-4e66-bf63-\ 958ab3e2ed93"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"g1", ",", "g2"}], "]"}]], "Input",ExpressionUUID->"a98ac41f-9585-\ 494f-a421-30204697deae"] }, Open ]], Cell[CellGroupData[{ Cell["II) Segmentos rectos AO y OB, donde O es el origen:", "Subsubsection", CellChangeTimes->{{3.713725571390465*^9, 3.713725595033052*^9}, { 3.713725688548686*^9, 3.7137256897826567`*^9}},ExpressionUUID->"6a632cb7-58f0-4404-8c36-\ 5955bad8719e"], Cell["Para el segmento AO, tenemos: x = t ; y = 0.", "Text", CellChangeTimes->{{3.71372560952369*^9, 3.713725638577791*^9}, 3.7137257537700872`*^9},ExpressionUUID->"79f8110d-5eca-4a76-8398-\ ba9bb9815e6c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "0"], RowBox[{ RowBox[{"(", "x", ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.7137256424139233`*^9, 3.713725659361961*^9}, { 3.713725760719468*^9, 3.7137257917941093`*^9}, {3.7137258392302027`*^9, 3.713725841397357*^9}},ExpressionUUID->"9e655fea-2f53-491c-8612-\ 4bcbd4b69776"], Cell[BoxData[ RowBox[{"-", FractionBox["1", "2"]}]], "Output", CellChangeTimes->{{3.713725767290845*^9, 3.713725792387937*^9}, 3.71372584161222*^9, 3.714927287656432*^9, 3.714929364827957*^9, 3.714930707764625*^9, 3.71493318705663*^9, 3.715529289649932*^9, 3.71553836850098*^9},ExpressionUUID->"e51c9cd8-c87d-4247-a97c-\ d02364f21d25"] }, Open ]], Cell["Para el segmento OB, tenemos: x = 0 ; y = t. Como dx = 0:", "Text", CellChangeTimes->{{3.7137256740956373`*^9, 3.713725686193866*^9}, { 3.7137257411803293`*^9, 3.7137257523826036`*^9}, {3.713725876072744*^9, 3.713725883197949*^9}},ExpressionUUID->"431d621a-32b0-44c4-843d-\ e9767bd9fa6b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", " ", "=", " ", "0"}]], "Input", CellChangeTimes->{{3.713725865758931*^9, 3.7137258672634087`*^9}},ExpressionUUID->"e802681c-e838-4b65-ad26-\ a1da4c8942f5"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.713725867442259*^9, 3.7149272876611433`*^9, 3.714929364834058*^9, 3.7149307077710533`*^9, 3.7149331870619783`*^9, 3.715529289685104*^9, 3.715538368560782*^9},ExpressionUUID->"3694650d-94f5-48a7-b986-\ 0a4c2645b5e0"] }, Open ]], Cell["Por lo tanto:", "Text", CellChangeTimes->{{3.7137258105464697`*^9, 3.713725812879229*^9}},ExpressionUUID->"92ef2603-cce4-47b3-923e-\ 3af082e56095"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c", " ", "=", " ", RowBox[{"c1", " ", "+", "c2"}]}]], "Input", CellChangeTimes->{{3.713725814096485*^9, 3.713725819010295*^9}, { 3.713725859500786*^9, 3.713725859820985*^9}},ExpressionUUID->"aebcbe49-e71f-43a7-8801-\ d716bfeeda20"], Cell[BoxData[ RowBox[{"-", FractionBox["1", "2"]}]], "Output", CellChangeTimes->{3.713725819750853*^9, 3.7137258854538116`*^9, 3.714927287691452*^9, 3.7149293648608*^9, 3.714930707798218*^9, 3.714933187093877*^9, 3.7155292897187023`*^9, 3.715538368623715*^9},ExpressionUUID->"ce2cde79-368f-4d9f-aaae-\ fcc8bfcba94c"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"c1", ",", "c2", ",", "c"}], "]"}]], "Input", CellChangeTimes->{{3.7137258306420107`*^9, 3.713725833683117*^9}},ExpressionUUID->"1a7bbb8c-566b-4b82-a778-\ 619cfd6600e4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Inciso c):", "Subsection", CellChangeTimes->{{3.714321710366935*^9, 3.71432171420382*^9}},ExpressionUUID->"01fa2d87-b999-4a10-9deb-\ d08c7e77bc28"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["y", "2"], "-", SuperscriptBox["z", "2"]}], ",", RowBox[{"2", "*", "y", "*", "z"}], ",", RowBox[{"-", SuperscriptBox["x", "2"]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.714323297622533*^9, 3.714323331010125*^9}, 3.714323663024433*^9},ExpressionUUID->"5375a690-11db-464e-a766-\ 37651054933f"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"t", ",", SuperscriptBox["t", "2"], ",", SuperscriptBox["t", "3"]}], "}"}]}]], "Input", CellChangeTimes->{{3.71432338177477*^9, 3.714323407764429*^9}, 3.7143236694013577`*^9},ExpressionUUID->"514eb30e-a64b-4eb2-8f46-\ 482f185b7833"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"Dot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"t", ",", SuperscriptBox["t", "2"], ",", SuperscriptBox["t", "3"]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", "t"}], "]"}]}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.714323628335162*^9, 3.7143236487914133`*^9}},ExpressionUUID->"9e6109ec-1189-42df-98d9-\ e76a8139b317"], Cell[BoxData[ FractionBox["1", "35"]], "Output", CellChangeTimes->{3.714323649108148*^9, 3.7143270596641912`*^9, 3.714927287746181*^9, 3.714929364914554*^9, 3.714930707848014*^9, 3.714933187153657*^9, 3.715529289774138*^9, 3.71553836870465*^9},ExpressionUUID->"c5cfb26b-c884-490c-9d72-4c1c83d9afd3"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "r"}], "]"}]], "Input", CellChangeTimes->{{3.7143237145504293`*^9, 3.7143237188685083`*^9}},ExpressionUUID->"82a414d9-17ed-4a5e-86ae-\ 13e5b02b28b9"] }, Open ]], Cell[CellGroupData[{ Cell["Inciso d):", "Subsection", CellChangeTimes->{{3.7143237244524*^9, 3.714323728751925*^9}},ExpressionUUID->"6b03002f-1f43-4565-967d-\ ff99a88fdb62"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "x"}], "+", "4"}], ",", RowBox[{"x", "-", "y"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.714323297622533*^9, 3.714323331010125*^9}, 3.714323663024433*^9, {3.7143237509861717`*^9, 3.7143237672459917`*^9}},ExpressionUUID->"2fc6e14f-f6e8-4a88-8f53-\ b63b247f296d"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], ",", SuperscriptBox["t", "2"]}], "}"}]}]], "Input", CellChangeTimes->{{3.71432338177477*^9, 3.714323407764429*^9}, 3.7143236694013577`*^9, {3.714323776369504*^9, 3.714323781931831*^9}, { 3.7143239470492907`*^9, 3.7143239487285843`*^9}},ExpressionUUID->"9d658a9b-17cd-4943-afbd-\ 8258d718d4ad"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "2"], RowBox[{ RowBox[{"Dot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], ",", SuperscriptBox["t", "2"]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", "t"}], "]"}]}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.714323628335162*^9, 3.7143236487914133`*^9}, { 3.714323925571121*^9, 3.714323941704275*^9}},ExpressionUUID->"312015f3-11f4-498c-8eba-\ bf1d28531f8a"], Cell[BoxData[ FractionBox["4", "3"]], "Output", CellChangeTimes->{ 3.714323649108148*^9, {3.7143239270981417`*^9, 3.714323950157175*^9}, 3.714927287801179*^9, 3.714929364969702*^9, 3.714930707901647*^9, 3.714933187212818*^9, 3.715529289833637*^9, 3.715538368911496*^9},ExpressionUUID->"1f784c76-689a-45b5-a8ab-\ 774e7642f404"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "r"}], "]"}]], "Input", CellChangeTimes->{{3.7143237145504293`*^9, 3.7143237188685083`*^9}},ExpressionUUID->"ff9af7fd-3de5-4493-962f-\ 610ec3701d91"] }, Open ]], Cell[CellGroupData[{ Cell["Inciso e):", "Subsection", CellChangeTimes->{{3.7143237244524*^9, 3.714323728751925*^9}, { 3.714328009901327*^9, 3.7143280099830437`*^9}},ExpressionUUID->"9015c3a7-c50c-485d-9985-\ 329484c0b55c"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"2", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7143280289258337`*^9, 3.714328058450386*^9}},ExpressionUUID->"4525c30a-77b4-4c5f-8d87-\ 1cbeba6b01b7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dr", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.714328291161928*^9, 3.714328333698736*^9}},ExpressionUUID->"1e713834-1e17-4132-a6a9-\ 7f6fb5a83ebb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"2", " ", RowBox[{"Cos", "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.714328334277177*^9, 3.714927287845991*^9, 3.714929365011162*^9, 3.714930707941181*^9, 3.714933187257338*^9, 3.715529289876937*^9, 3.715538368982483*^9},ExpressionUUID->"0bc1b193-0c75-45ed-9cb4-\ 8715ac451a73"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dx", "=", RowBox[{"dr", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7143283177830877`*^9, 3.714328375697248*^9}},ExpressionUUID->"0d27a22e-93fe-43ab-ae33-\ 020c7737b6ec"], Cell[BoxData[ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Sin", "[", "t", "]"}]}]], "Output", CellChangeTimes->{{3.714328319949548*^9, 3.714328345980152*^9}, 3.71432837731242*^9, 3.714927287875555*^9, 3.7149293650394707`*^9, 3.7149307079682007`*^9, 3.71493318728843*^9, 3.7155292899108343`*^9, 3.715538369044447*^9},ExpressionUUID->"5c7c3e24-5a5a-4c69-82ff-\ 9b32f4b5b7c1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dy", "=", RowBox[{"dr", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.714328384843943*^9, 3.7143283874865828`*^9}},ExpressionUUID->"3430d445-55da-40e7-b23c-\ 493d85c4db5b"], Cell[BoxData[ RowBox[{"2", " ", RowBox[{"Cos", "[", "t", "]"}]}]], "Output", CellChangeTimes->{3.714328387871306*^9, 3.714927287905346*^9, 3.714929365069696*^9, 3.7149307079936323`*^9, 3.714933187319956*^9, 3.7155292899474697`*^9, 3.7155383691074657`*^9},ExpressionUUID->"c7fefc91-374a-4da6-9728-\ cfdc1b0319d3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]}]], "Input", CellChangeTimes->{{3.7143284196693153`*^9, 3.71432843157695*^9}},ExpressionUUID->"0fb40e57-3099-4c45-a58e-\ e92b5ecd70a9"], Cell[BoxData[ RowBox[{"2", " ", RowBox[{"Cos", "[", "t", "]"}]}]], "Output", CellChangeTimes->{3.714328431861565*^9, 3.7149272879361258`*^9, 3.714929365099962*^9, 3.7149307080200043`*^9, 3.714933187351656*^9, 3.71552928998203*^9, 3.715538369168078*^9},ExpressionUUID->"87754f0c-6ff1-4aec-985e-\ e834d5083aa9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}]}]], "Input", CellChangeTimes->{{3.714328429068915*^9, 3.714328438445258*^9}},ExpressionUUID->"91a91daa-f877-43dd-a819-\ 1c53288a0498"], Cell[BoxData[ RowBox[{"2", " ", RowBox[{"Sin", "[", "t", "]"}]}]], "Output", CellChangeTimes->{3.714328438831479*^9, 3.71492728796524*^9, 3.7149293651313543`*^9, 3.714930708047879*^9, 3.7149331873812227`*^9, 3.715529290113202*^9, 3.715538369230948*^9},ExpressionUUID->"516f3a85-9c6e-47db-9aaf-\ 55c67b2632ff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", "\[Pi]"}]], RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}], "+", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "4"], "*", RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], "-", RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", "\[Pi]"}]], RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}], "-", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "4"], "*", RowBox[{"Cos", "[", "t", "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]], "Input", CellChangeTimes->{{3.714328390452867*^9, 3.7143283999795113`*^9}, { 3.714328444551003*^9, 3.7143285207885647`*^9}, {3.714328567995493*^9, 3.714328569139269*^9}, {3.7143286661393623`*^9, 3.714328668361804*^9}, { 3.714328717563695*^9, 3.714328728928338*^9}, {3.7463775789459763`*^9, 3.746377662528687*^9}, {3.746377693173758*^9, 3.746377704271785*^9}},ExpressionUUID->"a914ede4-3153-4c0a-8376-\ 7fb0820795c3"], Cell[BoxData[ RowBox[{"-", "\[Pi]"}]], "Output", CellChangeTimes->{3.71432857013183*^9, 3.7143286705416*^9, 3.714328729713903*^9, 3.714927288095083*^9, 3.714929365195407*^9, 3.714930708102077*^9, 3.714933187449048*^9, 3.715529290234268*^9, 3.715538369331341*^9, 3.746377704714534*^9},ExpressionUUID->"22e8f886-817b-43a3-a10e-\ f3240b50a5b9"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"r", ",", "dr", ",", "dx", ",", "dy", ",", "x", ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.714328035644829*^9, 3.714328039305314*^9}, { 3.714328747713067*^9, 3.7143287537388573`*^9}},ExpressionUUID->"7f9d7f99-23e2-4bd4-8f89-\ a152c3948596"] }, Open ]], Cell[CellGroupData[{ Cell["Inciso f):", "Subsection", CellChangeTimes->{{3.714328762624135*^9, 3.7143287658983994`*^9}},ExpressionUUID->"3dc46330-c48f-48f5-a488-\ d060aa57904b"], Cell["\<\ La regi\[OAcute]n de integraci\[OAcute]n se compone de los siguientes 3 \ caminos:\ \>", "Text", CellChangeTimes->{{3.7143289308185673`*^9, 3.71432894132167*^9}},ExpressionUUID->"ba79d978-08c5-4780-bd33-\ 5f0659cf3765"], Cell[BoxData[ RowBox[{ RowBox[{"g1", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.025", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.714328946246223*^9, 3.714329031612186*^9}},ExpressionUUID->"57c7262a-cd27-46e0-85dd-\ 0f516658d6cc"], Cell[BoxData[ RowBox[{ RowBox[{"g2", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7143288441339912`*^9, 3.714328924554669*^9}, { 3.7143290157891817`*^9, 3.7143290346015244`*^9}},ExpressionUUID->"deefbe2b-a335-438d-b286-\ 13b73dae5924"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g1", ",", "g2", ",", RowBox[{"ImageSize", "\[Rule]", " ", "Large"}]}], "]"}]], "Input", CellChangeTimes->{{3.714329021609585*^9, 3.714329053741233*^9}},ExpressionUUID->"e3025da1-e9d4-47c2-9d47-\ 2cefc8d04eb1"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[1, 0, 0], PointSize[0.025], AbsoluteThickness[1.6], PointBox[{{0., 0.}, {1., 0.}, {1., 1.}}]}, {}}, {}}, LineBox[{{0, 0}, {1, 0}, {1, 1}, {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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->Large, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 1.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.714329027905139*^9, 3.7143290543951406`*^9}, 3.7149272881608047`*^9, 3.714929365377513*^9, 3.714930708171516*^9, 3.714933187522805*^9, 3.715529290294239*^9, 3.715538369420802*^9},ExpressionUUID->"69012817-7dcb-48f5-a6b5-\ 5d1e559eff12"] }, Open ]], Cell["La integral cerrada en toda la trayectoria es:", "Text", CellChangeTimes->{{3.714329062605682*^9, 3.714329071025823*^9}},ExpressionUUID->"2693969a-13d3-45f4-91d5-\ 14e00266f8f7"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]}]], "Input", CellChangeTimes->{{3.714329095384563*^9, 3.714329108546239*^9}},ExpressionUUID->"aa9e108a-4b52-4461-bf1c-\ 958891e8fcbb"], Cell["\<\ Primero concideramos la recta inclinada y vamos desde (0,0) a (1,1):\ \>", "Text", CellChangeTimes->{{3.71432912697089*^9, 3.7143291471623363`*^9}},ExpressionUUID->"3ae6a4b0-2d9b-4b05-a5a5-\ 7d64964f185f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", "x"}]], "Input", CellChangeTimes->{{3.714329150449741*^9, 3.7143291567031717`*^9}},ExpressionUUID->"3ec2431c-bb7f-46be-b254-\ 58be654daed9"], Cell[BoxData["x"], "Output", CellChangeTimes->{3.7143291578383713`*^9, 3.714927288198373*^9, 3.714929365419532*^9, 3.714930708202943*^9, 3.714933187560512*^9, 3.7155292903379583`*^9, 3.71553836948991*^9},ExpressionUUID->"ac6f3f91-9329-419d-810e-07c30ffa7f40"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dy", "=", "dx"}]], "Input", CellChangeTimes->{{3.714329159200626*^9, 3.714329165862598*^9}},ExpressionUUID->"a630ebca-f604-450e-903d-\ f874cd223f0d"], Cell[BoxData["dx"], "Output", CellChangeTimes->{3.714329166666576*^9, 3.714927288228259*^9, 3.714929365456902*^9, 3.714930708271392*^9, 3.7149331876461*^9, 3.715529290367836*^9, 3.715538369534295*^9},ExpressionUUID->"36d37d61-30fe-4e04-9d26-\ ab0e50ae1279"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"x", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.714329172985857*^9, 3.714329184345005*^9}},ExpressionUUID->"c7265501-3fc3-4e3a-8603-\ 0ad85b4637a2"], Cell[BoxData[ RowBox[{"2", " ", SuperscriptBox["x", "2"]}]], "Output", CellChangeTimes->{3.714329185037484*^9, 3.714927288259664*^9, 3.7149293654925213`*^9, 3.714930708294503*^9, 3.714933187680319*^9, 3.715529290395473*^9, 3.71553836957621*^9},ExpressionUUID->"deb4b73c-ffff-4e3f-b34d-223dfc875f15"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "x"}], "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.7143290725386267`*^9, 3.714329077659144*^9}, { 3.714329194772616*^9, 3.714329210643038*^9}},ExpressionUUID->"80f816e0-49b3-4430-b53d-\ c67987884ac0"], Cell[BoxData[ FractionBox["2", "3"]], "Output", CellChangeTimes->{3.714329210904375*^9, 3.7149272883100243`*^9, 3.7149293655307093`*^9, 3.714930708319149*^9, 3.7149331877156973`*^9, 3.715529290429386*^9, 3.7155383696373167`*^9},ExpressionUUID->"4ac2e54b-852e-4ca2-9dbd-\ 218c5d3d541b"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"y", ",", "x", ",", "dy", ",", "dx"}], "]"}]], "Input", CellChangeTimes->{{3.714329267546405*^9, 3.714329284403329*^9}},ExpressionUUID->"6ffddadd-c7d1-4d9e-8e93-\ 5f96db438a8d"], Cell["Para la el segundo trayecto, concideramos de (1,1) a (1,0):", "Text", CellChangeTimes->{{3.7143292174114122`*^9, 3.71432924063652*^9}},ExpressionUUID->"52f44cab-51b0-4b89-81f3-\ 0d83fd7c607a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", "1"}]], "Input", CellChangeTimes->{{3.714329248858079*^9, 3.714329250601595*^9}},ExpressionUUID->"30ec3f3c-5e33-47bd-b6b7-\ 0894d3948264"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7143292517789993`*^9, 3.714329287581767*^9, 3.714927288348037*^9, 3.714929365571817*^9, 3.714930708371077*^9, 3.714933187751122*^9, 3.715529290464404*^9, 3.71553836968192*^9},ExpressionUUID->"2510192e-263d-4e63-8d98-7ae0e9d00d69"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", "y"}]], "Input", CellChangeTimes->{{3.71432925400272*^9, 3.714329258489316*^9}},ExpressionUUID->"4b3996c0-5678-45a6-b6be-\ 6d958ee70553"], Cell[BoxData["y"], "Output", CellChangeTimes->{3.714329259527761*^9, 3.714329291528453*^9, 3.71492728837992*^9, 3.71492936560788*^9, 3.7149307083779697`*^9, 3.714933187782267*^9, 3.715529290501093*^9, 3.715538369725226*^9},ExpressionUUID->"75f92a05-e22b-40d1-a607-\ aec08cb154a6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "0"], RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "y"}], "]"}], RowBox[{"\[DifferentialD]", "y"}]}]}]}]], "Input", CellChangeTimes->{ 3.714329260515012*^9, {3.714329294753895*^9, 3.71432931702141*^9}},ExpressionUUID->"99b70ee3-86d3-491f-9a1d-\ 94a75b30767c"], Cell[BoxData[ RowBox[{"-", FractionBox["4", "3"]}]], "Output", CellChangeTimes->{3.714329317862512*^9, 3.714927288418664*^9, 3.714929365648693*^9, 3.7149307084034986`*^9, 3.714933187818618*^9, 3.7155292905386877`*^9, 3.7155383697867193`*^9},ExpressionUUID->"45ec7fe0-677c-4d3a-9471-\ 71e439fd777d"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.714329389207437*^9, 3.714329394189207*^9}},ExpressionUUID->"1deb8ce4-1073-48e4-8ab4-\ d17980c4d191"], Cell["Para el ultimo trayecto, tenemos:", "Text", CellChangeTimes->{{3.7143293318251553`*^9, 3.714329339297172*^9}},ExpressionUUID->"15a92876-7a27-4cc6-a3f5-\ dc1c8e7dbc98"], Cell[BoxData[ RowBox[{ RowBox[{"c3", "=", "0"}], ";"}]], "Input", CellChangeTimes->{{3.714329340812285*^9, 3.71432937914106*^9}},ExpressionUUID->"3eb5859a-f752-4161-ad16-\ a2843436833c"], Cell["El total es:", "Text", CellChangeTimes->{{3.714329382183429*^9, 3.714329384827057*^9}},ExpressionUUID->"b455fac9-1809-4640-a8fc-\ f979d469527a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ct", "=", RowBox[{"c1", "+", "c2", "+", "c3"}]}]], "Input", CellChangeTimes->{{3.714329397714806*^9, 3.7143294017910633`*^9}},ExpressionUUID->"9e23d87a-ef6d-4b4a-b94e-\ ba2875281131"], Cell[BoxData[ RowBox[{"-", FractionBox["2", "3"]}]], "Output", CellChangeTimes->{3.714329402017467*^9, 3.7149272884633904`*^9, 3.714929365697055*^9, 3.71493070843729*^9, 3.7149331878910503`*^9, 3.715529290585865*^9, 3.715538369955699*^9},ExpressionUUID->"1e7cbe50-c1d1-40a8-8777-\ a75d69777d66"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"c1", ",", "c2", ",", "c3"}], "]"}]], "Input", CellChangeTimes->{{3.714329404258986*^9, 3.714329411851969*^9}},ExpressionUUID->"f718fd86-88f7-498c-950a-\ 15dc402f1c33"] }, Open ]], Cell[CellGroupData[{ Cell["Inciso g):", "Subsection", CellChangeTimes->{{3.714329424976036*^9, 3.714329429603146*^9}},ExpressionUUID->"23ffc6d2-fbc4-4971-8b30-\ 5e40f285ceac"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7143294573771152`*^9, 3.714329473268289*^9}},ExpressionUUID->"5ae58c7e-5951-40fa-a4ec-\ 05b442ec86b3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ds", "=", "1"}]], "Input", CellChangeTimes->{{3.71432948295821*^9, 3.714329528291431*^9}},ExpressionUUID->"89535753-2197-455c-9f6c-\ 7fa4b6e57bf1"], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.714329498352976*^9, 3.714329528818449*^9}, 3.714927288576339*^9, 3.714929365744246*^9, 3.714930708469008*^9, 3.714933187940002*^9, 3.715529290629403*^9, 3.715538370039908*^9},ExpressionUUID->"de548d70-c59d-44ea-afe8-\ 278f524c6650"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Cos", "[", "t", "]"}]}]], "Input", CellChangeTimes->{{3.714329554300315*^9, 3.714329558820538*^9}},ExpressionUUID->"4f083623-19f9-434f-9385-\ ef23ec808593"], Cell[BoxData[ RowBox[{"Cos", "[", "t", "]"}]], "Output", CellChangeTimes->{3.71432956066073*^9, 3.714927288609351*^9, 3.7149293657829847`*^9, 3.714930708488428*^9, 3.714933187969717*^9, 3.715529290659433*^9, 3.715538370084794*^9},ExpressionUUID->"1f5441cf-066d-477f-94b1-\ dba389241845"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", RowBox[{"Sin", "[", "t", "]"}]}]], "Input", CellChangeTimes->{{3.714329561823761*^9, 3.71432956595816*^9}},ExpressionUUID->"ba40110d-0a2b-4302-89b4-\ 675eef8af853"], Cell[BoxData[ RowBox[{"Sin", "[", "t", "]"}]], "Output", CellChangeTimes->{3.7143295666094503`*^9, 3.714927288644854*^9, 3.714929365820622*^9, 3.714930708507917*^9, 3.714933188001369*^9, 3.71552929069228*^9, 3.715538370131804*^9},ExpressionUUID->"77dd56bf-ec3a-4b90-b98c-\ 4dbff577eaa5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", FractionBox["\[Pi]", "2"]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "+", RowBox[{"Sin", "[", "t", "]"}], "-", "1"}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.7143295371839743`*^9, 3.714329577125513*^9}, { 3.7463788146023493`*^9, 3.74637883642522*^9}},ExpressionUUID->"66359b41-afd6-433c-b4bf-\ 6424aae50732"], Cell[BoxData[ RowBox[{"2", "-", FractionBox["\[Pi]", "2"]}]], "Output", CellChangeTimes->{3.714329577364686*^9, 3.714927288693809*^9, 3.714929365872592*^9, 3.714930708542245*^9, 3.714933188050061*^9, 3.715529290740108*^9, 3.715538370201447*^9, 3.746378836780879*^9},ExpressionUUID->"26ae734a-bca6-4718-bd75-\ 90d1ce87fbe5"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"r", ",", "x", ",", "y", ",", "ds"}], "]"}]], "Input", CellChangeTimes->{{3.7143295844115963`*^9, 3.714329596781251*^9}},ExpressionUUID->"1862be44-a03b-4eea-ab83-\ 062fbccad862"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Problema 2:", "Section", CellChangeTimes->{{3.714329630005677*^9, 3.714329639860972*^9}},ExpressionUUID->"3f39fc42-453e-452f-bd0e-\ d793f62c06a5"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"3", "*", "y"}], ",", RowBox[{ RowBox[{"-", "x"}], "*", "z", "*", "y"}], ",", RowBox[{"y", "*", SuperscriptBox["z", "2"]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.714323297622533*^9, 3.714323331010125*^9}, 3.714323663024433*^9, {3.7143296793819027`*^9, 3.714329706936051*^9}},ExpressionUUID->"f2e97772-a1a1-4ed3-b650-\ b59f8ec35051"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["t", "2"], "+", "1"}], ")"}], ",", RowBox[{"2", "*", SuperscriptBox["t", "2"]}], ",", SuperscriptBox["t", "3"]}], "}"}]}]], "Input", CellChangeTimes->{{3.71432338177477*^9, 3.714323407764429*^9}, 3.7143236694013577`*^9, {3.714329722595211*^9, 3.714329735136837*^9}},ExpressionUUID->"1811de31-c4a4-42a7-a369-\ 8eb8ac8481b4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["t", "2"], "+", "1"}], ")"}], ",", RowBox[{"2", "*", SuperscriptBox["t", "2"]}], ",", SuperscriptBox["t", "3"]}], "]"}]], "Input",ExpressionUUID->"bc6717fc-aad4-\ 455c-9b77-fd5e14a32db8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"6", " ", SuperscriptBox["t", "2"]}], ",", RowBox[{"2", " ", SuperscriptBox["t", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", SuperscriptBox["t", "2"]}], ")"}]}], ",", RowBox[{"2", " ", SuperscriptBox["t", "8"]}]}], "}"}]], "Output", CellChangeTimes->{3.714329859472575*^9, 3.714927288758786*^9, 3.714929365932789*^9, 3.714930708587056*^9, 3.714933188101615*^9, 3.715529290796863*^9, 3.7155383702902527`*^9},ExpressionUUID->"c01212a7-dc0c-4408-b511-\ f8c481017607"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["t", "2"], "+", "1"}], ")"}], ",", RowBox[{"2", "*", SuperscriptBox["t", "2"]}], ",", SuperscriptBox["t", "3"]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", "t"}], "]"}]}], "]"}]], "Input",Expres\ sionUUID->"be810db8-c62e-4b22-ad70-1deff37d7acc"], Cell[BoxData[ RowBox[{ RowBox[{"12", " ", SuperscriptBox["t", "3"]}], "+", RowBox[{"6", " ", SuperscriptBox["t", "10"]}], "+", RowBox[{"8", " ", SuperscriptBox["t", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", SuperscriptBox["t", "2"]}], ")"}]}]}]], "Output", CellChangeTimes->{3.714329852147222*^9, 3.714927288796319*^9, 3.714929365970683*^9, 3.7149307086069803`*^9, 3.7149331881339293`*^9, 3.715529290828083*^9, 3.715538370359717*^9},ExpressionUUID->"417884c5-8cfd-4649-a5d3-\ 5d89642f9000"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"Dot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["t", "2"], "+", "1"}], ")"}], ",", RowBox[{"2", "*", SuperscriptBox["t", "2"]}], ",", SuperscriptBox["t", "3"]}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", "t"}], "]"}]}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.714323628335162*^9, 3.7143236487914133`*^9}, { 3.714329832895609*^9, 3.714329844675029*^9}, {3.714329962383815*^9, 3.714330007755158*^9}},ExpressionUUID->"1106f47f-16b3-46f8-bac1-\ a7bd8f488099"], Cell[BoxData["1.5137085137085138`"], "Output", CellChangeTimes->{ 3.714323649108148*^9, 3.7143270596641912`*^9, 3.7143297433048077`*^9, { 3.714329841339604*^9, 3.714329844911726*^9}, {3.714329963354864*^9, 3.714330008066475*^9}, 3.7149272888388243`*^9, 3.714929366016642*^9, 3.714930708635894*^9, 3.714933188175159*^9, 3.715529290868392*^9, 3.715538370406747*^9},ExpressionUUID->"0640e3c5-0c81-4afd-99a6-\ e50db411d44a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"6", "/", "11"}], ")"}], "-", RowBox[{"(", RowBox[{"8", "/", "9"}], ")"}], "-", RowBox[{"(", RowBox[{"8", "/", "7"}], ")"}], "+", "3"}], "//", "N"}]], "Input", CellChangeTimes->{{3.746379420301783*^9, 3.746379447365324*^9}},ExpressionUUID->"74ec200b-e5a0-4c8e-9f48-\ d56a603669af"], Cell[BoxData["1.5137085137085138`"], "Output", CellChangeTimes->{{3.746379443553734*^9, 3.746379448397408*^9}},ExpressionUUID->"a8f3fe97-61aa-48b1-b528-\ 990e47462ab6"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "r"}], "]"}]], "Input", CellChangeTimes->{{3.7143237145504293`*^9, 3.7143237188685083`*^9}},ExpressionUUID->"64954e06-884e-497a-8acd-\ 1bae8596851d"] }, Open ]], Cell[CellGroupData[{ Cell["Problema 3:", "Section", CellChangeTimes->{{3.71433006532583*^9, 3.714330068628474*^9}},ExpressionUUID->"40ab42e6-7e0f-4489-9ea6-\ ad36b941369b"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"3", "x"}], "-", RowBox[{"4", "y"}], "+", RowBox[{"2", "z"}]}], ",", RowBox[{ RowBox[{"4", "x"}], "+", RowBox[{"2", "y"}], "-", RowBox[{"3", SuperscriptBox["z", "2"]}]}], ",", RowBox[{ RowBox[{"2", "*", "x", "*", "z"}], "-", RowBox[{"4", SuperscriptBox["y", "2"]}], "+", SuperscriptBox["z", "3"]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.714323297622533*^9, 3.714323331010125*^9}, 3.714323663024433*^9, {3.7143296793819027`*^9, 3.714329706936051*^9}, 3.7143301216688337`*^9, {3.714330292840447*^9, 3.7143303300365763`*^9}},ExpressionUUID->"58267bd7-c179-4c26-99b3-\ d436a8abf8d6"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"4", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], ",", "0"}], "}"}]}]], "Input", CellChangeTimes->{{3.71432338177477*^9, 3.714323407764429*^9}, 3.7143236694013577`*^9, {3.714329722595211*^9, 3.714329735136837*^9}, { 3.714330138391469*^9, 3.7143301441868477`*^9}, {3.7143302795189877`*^9, 3.714330289491385*^9}, {3.7143310182885942`*^9, 3.7143310218293753`*^9}, { 3.746981434058239*^9, 3.7469814361476917`*^9}},ExpressionUUID->"9b97a5ff-2a06-4d88-8386-\ 54b3b06234d9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{ 3.746981442591921*^9},ExpressionUUID->"08c984dc-6bf2-4185-a972-\ 79949ea8f8f9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"3", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.7469814436849213`*^9},ExpressionUUID->"a50eb2f0-b162-411a-b5cb-\ 776471d01d68"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", "\[Pi]"}]], RowBox[{ RowBox[{"Dot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"4", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", "t"}], "]"}]}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.714323628335162*^9, 3.7143236487914133`*^9}, { 3.714329832895609*^9, 3.714329844675029*^9}, {3.714329962383815*^9, 3.714330007755158*^9}, {3.7143310777649593`*^9, 3.714331160450276*^9}},ExpressionUUID->"7e1fdab0-4a6e-4357-8e3a-\ 2fe629d2ccae"], Cell[BoxData[ RowBox[{"96", " ", "\[Pi]"}]], "Output", CellChangeTimes->{{3.714331156376808*^9, 3.7143311609942293`*^9}, 3.714927288967352*^9, 3.7149293660883713`*^9, 3.714930708784191*^9, 3.7149331882334633`*^9, 3.71552929093146*^9, 3.715538370518003*^9},ExpressionUUID->"21953a6f-5c63-43cc-88d1-\ 4559996e044d"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "r"}], "]"}]], "Input",ExpressionUUID->"ff071572-24ac-\ 4aa0-a16e-d26f59de9af2"] }, Open ]], Cell[CellGroupData[{ Cell["Problema 4:", "Section", CellChangeTimes->{{3.7149272983079576`*^9, 3.714927300958859*^9}},ExpressionUUID->"cd9051b7-c13f-4823-a47e-\ ebc8eae85a58"], Cell["\<\ Lo primero que hago es hallar una ecuaci\[OAcute]n param\[EAcute]trica de \ r(t): Sabemos que la recta va de (2,0,0) a (2,1,5)\ \>", "Text", CellChangeTimes->{{3.714928919965604*^9, 3.7149289669228983`*^9}},ExpressionUUID->"2529db37-87ca-4742-9afc-\ e79022ab07ce"], Cell[BoxData[ RowBox[{ RowBox[{"g1", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.714928552041325*^9, 3.7149286259385357`*^9}, { 3.714928695986477*^9, 3.714928893729701*^9}},ExpressionUUID->"d3424f38-25ab-427d-8c86-\ b5af3465225b"], Cell["\<\ Para determinar su ecuaci\[OAcute]n nos valemos de la ecuaci\[OAcute]n \ parampetrica de una recta:\ \>", "Text", CellChangeTimes->{{3.7149289398934517`*^9, 3.71492899576586*^9}},ExpressionUUID->"27b67944-32eb-4bbe-ae48-\ a6b3ccf3ba01"], Cell[BoxData[ RowBox[{ RowBox[{"g2", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "t", ",", RowBox[{"5", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.714928518274037*^9, 3.714928542378598*^9}, { 3.714928872762982*^9, 3.7149288969132423`*^9}},ExpressionUUID->"53e08530-19f0-4b3c-9ac0-\ 7cb27091c85f"], Cell["Aqu\[IAcute] vemos la gr\[AAcute]fica de r(t).", "Text", CellChangeTimes->{{3.714928999741674*^9, 3.71492901141223*^9}},ExpressionUUID->"490fb235-dcb3-4ceb-a9e2-\ 2a0d3c5f7d2e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g1", ",", "g2"}], "]"}]], "Input", CellChangeTimes->{{3.714928899966406*^9, 3.714928904625104*^9}},ExpressionUUID->"bc031cee-0d9b-467c-8807-\ adba9938e5f2"], Cell[BoxData[ Graphics3DBox[{ {RGBColor[1, 0, 0], PointSize[Large], Point3DBox[{{2, 0, 0}, {2, 1, 5}}]}, {{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Line3DBox[CompressedData[" 1:eJxF0H9Q0nccBnAQTAqGfnWrOYeKo5iIXXVezd3qzVabJrUtlX6aJTNd5kw5 vZquFR5mrlldx8pJG+L6ceYJq2F3noUdUjaGmNLKJiohEvFDLPraqE22f/x8 n7vnn9dfzz1s8f7sPWEkEint/1JIKIKsPa7Bm09Ea859K563vLBmzZy3vPHZ 0e9iZUAbsXN9CW0w51Lab9yGWDmojMoKT0IX8q3bVJrpp+dBrWkYKV1qRE4P SfMy4jVQDIM/eiUW5Is3Tbl6j2uhbDJ5Qqt+iPyAOR2annfBAraMO/6eDfki LTZGJvfAiag/eKrdE8iv2deaBj7QQ+FIbg/F5ESuL/kpbpvXAJJbMvF+rhs5 vmR1ZMdXfXC1nJHz5nof8rBge1TcYiOoava5l22ZRr4ytPtajtoEtcp/Nj33 PkVukqWZb/MGgGSxCa5XB5AnnPIE26buArey6GAuD0fueTE+9ueyIXDiZzfT b8wgP+/uNjJPWGDjZMmh0xV/I2eyLvkdjnuQ7TiVEh//Evn3ezuLWjj3wd8r PnKn4xXyGUG748vDDyANu89au+tf5JUrDNqFvcOAAV5gDcwiH1cbjg+y/wKh b/uLJBFJMOevSu4pkqtHYFRfSN7OJyNP+TBitqjbCt3HDPmJOOEZreziK4vG oDS8ymY2hyE/wNqV9ChvHEokNZ2MZgpyvldEf7DRBquKU8wbCqjIYyKnaYaX NhiO5tOr0sORU3sUmnfOPYJb6loFnzIP+b607ofzhXY4SuZ9bholvH29uEU3 Y4eF1urMMm0EctzzVpTzzAQ8u8iWK7+hIe/MyaDI1zmg9d1YapdoPvLDmXVK rdMByuaivoLEBcjZo1nDv9RNwl75TjPjMeHvr5LJY1c4gfbxhaBSR0eeFz8Q JFucEJj86KC+nkHsMTbay6WP4erq5XH9Ba8hb6LmV2ZzXKCrq8KKU5nEP2Od rWEGFzSJvhBScMLDD0lz0yuewCdWVVt9fyRyUlu+xh7thpZkRUe/MAq5pFnT GK13Q/3NxiZhF+E3Uo7RsDIPbI4TXTByMORYloRfy/SCsKxvB9ZAuDX1ruXr 6164/LaYY8IJ//Vn4DjyfbC099KZT3dEI9+pWYmxZn3QnKrnDekIP1Knklov T0F5gDr4Oy8GeYeLpWBu8EPplWeJDScJT5K9nhlx0Q8/DDEaDX2En02g46GQ H3SBJcFQKEbwH/B6nAQ= "]]}, Annotation[#, "Charting`Private`Tag$3407#1"]& ]}}]], "Output", CellChangeTimes->{3.714928905123693*^9, 3.714929366152664*^9, 3.714930709094349*^9, 3.714933188322215*^9, 3.7155292910963373`*^9, 3.715538370632111*^9, 3.746981657387938*^9},ExpressionUUID->"689709d9-f9ac-468c-88f8-\ b36cae39cdb0"] }, Open ]], Cell["\<\ Ahora para calcular el trabajo, aplicamos el mismo procedimiento que en los \ problemas anteriores:\ \>", "Text", CellChangeTimes->{{3.7149290229719763`*^9, 3.71492903753948*^9}},ExpressionUUID->"e0375938-da57-4956-876a-\ 489062585989"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{"2", ",", "t", ",", RowBox[{"5", "t"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.71432338177477*^9, 3.714323407764429*^9}, 3.7143236694013577`*^9, {3.714329722595211*^9, 3.714329735136837*^9}, { 3.714330138391469*^9, 3.7143301441868477`*^9}, {3.7143302795189877`*^9, 3.714330289491385*^9}, {3.7143310182885942`*^9, 3.7143310218293753`*^9}, { 3.71492907878058*^9, 3.71492908393381*^9}},ExpressionUUID->"ccc2fa3c-62ff-49c6-af47-\ 5ca221e94bc3"], Cell[BoxData[ RowBox[{ RowBox[{"F", "[", "t", "]"}], ":=", RowBox[{ FractionBox["k", SuperscriptBox[ RowBox[{"(", RowBox[{"Norm", "[", RowBox[{"r", "[", "t", "]"}], "]"}], ")"}], "3"]], "*", RowBox[{"r", "[", "t", "]"}]}]}]], "Input", CellChangeTimes->{{3.714323297622533*^9, 3.714323331010125*^9}, 3.714323663024433*^9, {3.7143296793819027`*^9, 3.714329706936051*^9}, 3.7143301216688337`*^9, {3.714330292840447*^9, 3.7143303300365763`*^9}, { 3.7149292082212553`*^9, 3.714929215899762*^9}},ExpressionUUID->"6324bf5d-ec33-479c-b6ff-\ da9dfb366dd6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.7149292374741793`*^9, 3.71492923924657*^9}},ExpressionUUID->"89ccc028-2c46-45b3-afbf-\ 5c994a2068e0"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", " ", "k"}], SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"26", " ", SuperscriptBox[ RowBox[{"Abs", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]], ",", FractionBox[ RowBox[{"k", " ", "t"}], SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"26", " ", SuperscriptBox[ RowBox[{"Abs", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]], ",", FractionBox[ RowBox[{"5", " ", "k", " ", "t"}], SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"26", " ", SuperscriptBox[ RowBox[{"Abs", "[", "t", "]"}], "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]]}], "}"}]], "Output", CellChangeTimes->{3.714929239582181*^9, 3.7149293661721478`*^9, 3.714930709359342*^9, 3.714933188414928*^9, 3.715529291192358*^9, 3.71553837067549*^9},ExpressionUUID->"3f3510f6-1db1-400d-ab27-fb3c23e2e6be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"Dot", "[", RowBox[{ RowBox[{"F", "[", "t", "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", "t", "]"}], ",", "t"}], "]"}]}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.714323628335162*^9, 3.7143236487914133`*^9}, { 3.714329832895609*^9, 3.714329844675029*^9}, {3.714329962383815*^9, 3.714330007755158*^9}, {3.7143310777649593`*^9, 3.714331160450276*^9}, { 3.714929250918844*^9, 3.7149292838386087`*^9}},ExpressionUUID->"1a9ab1ea-c36b-4f31-901a-\ dbc004d1c0cb"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "30"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15"}], "+", SqrtBox["30"]}], ")"}], " ", "k"}]], "Output", CellChangeTimes->{{3.714331156376808*^9, 3.7143311609942293`*^9}, 3.714927288967352*^9, 3.7149292877010117`*^9, 3.714929366383871*^9, 3.7149307095776167`*^9, 3.714933188616076*^9, 3.715529291521777*^9, 3.71553837088101*^9},ExpressionUUID->"e1e4fc5e-95df-4170-9d02-\ 34ab204e10c6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "30"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "15"}], "+", SqrtBox["30"]}], ")"}]}], "//", "N"}]], "Input", CellChangeTimes->{{3.714929343239202*^9, 3.714929343771734*^9}},ExpressionUUID->"6d085829-61e3-4bee-8309-\ 0ae9b1ae897a"], Cell[BoxData["0.3174258141649446`"], "Output", CellChangeTimes->{{3.71492934407975*^9, 3.71492936648276*^9}, 3.7149307096176434`*^9, 3.7149331887298927`*^9, 3.71552929155407*^9, 3.7155383709715347`*^9},ExpressionUUID->"7ccb2dbc-4d1b-4df2-a7d3-\ 14f275108998"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"g1", ",", "g2", ",", "F", ",", "r"}], "]"}]], "Input", CellChangeTimes->{{3.714929294244594*^9, 3.7149292987162437`*^9}},ExpressionUUID->"a3afaa09-f4ec-439c-8c70-\ 1c1e0f66933a"] }, Open ]], Cell[CellGroupData[{ Cell["Problema 5:", "Section", CellChangeTimes->{{3.714929401043857*^9, 3.714929404794011*^9}},ExpressionUUID->"330274df-6929-4612-88b8-\ fac320b27ac9"], Cell[CellGroupData[{ Cell["Nota:", "Subsubsection", CellChangeTimes->{{3.714930129598509*^9, 3.7149301325271597`*^9}},ExpressionUUID->"6be553ff-9377-4211-b3fd-\ 20fbffb560be"], Cell["\<\ Para obtener informaci\[OAcute]n te\[OAcute]rica hacerca de este \ procedimiento de c\[AAcute]lculo de la integral de l\[IAcute]nea de una funci\ \[OAcute]n escalar, ver \[OpenCurlyDoubleQuote]C\[AAcute]lculo en Varias \ Variable\[CloseCurlyDoubleQuote] de Thomas - 12Ed. P\[AAcute]gina 901 en \ adelante.\ \>", "Text", CellChangeTimes->{{3.714930135711473*^9, 3.714930199128223*^9}},ExpressionUUID->"e1059215-a7a4-4db9-bb21-\ 3762684b2d78"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "t_", "]"}], ":=", "k"}]], "Input", CellChangeTimes->{{3.714929419684752*^9, 3.714929424008357*^9}, { 3.714929691581107*^9, 3.7149297051543303`*^9}, 3.714930025987185*^9},ExpressionUUID->"7a92d99a-f328-4ca7-a696-\ 313d675511bb"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.714929715672584*^9, 3.71492973559492*^9}, 3.714930023160887*^9},ExpressionUUID->"930dcdcd-73d9-4b80-88cd-\ 5deb7c0dc4a3"], Cell["La masa esta dada por:", "Text", CellChangeTimes->{{3.714932985121318*^9, 3.714932990568225*^9}},ExpressionUUID->"431b5201-364b-4eb1-9f7b-\ 05755294af3e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m", "=", RowBox[{ SubsuperscriptBox["\[Integral]", FractionBox[ RowBox[{"-", "\[Pi]"}], "2"], FractionBox["\[Pi]", "2"]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "[", "t", "]"}], "*", RowBox[{"Norm", "[", RowBox[{ RowBox[{"r", "'"}], "[", "t", "]"}], "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]], "Input", CellChangeTimes->{{3.71492991632274*^9, 3.7149300035241013`*^9}, { 3.714932995066009*^9, 3.714932995911147*^9}},ExpressionUUID->"4c852bb8-fe7b-47a6-964b-\ ca059d70c6f7"], Cell[BoxData[ RowBox[{"2", " ", "k", " ", "\[Pi]"}]], "Output", CellChangeTimes->{{3.7149300046293173`*^9, 3.714930030881942*^9}, 3.714930709744363*^9, 3.71493299709114*^9, 3.714933072761904*^9, 3.714933188796093*^9, 3.715529291643867*^9, 3.7155383710318413`*^9},ExpressionUUID->"ad3c78d9-1fcc-4b23-838e-\ 38a17dbe15f3"] }, Open ]], Cell["Los momentos de incercia son:", "Text", CellChangeTimes->{{3.714933089621874*^9, 3.714933097599003*^9}},ExpressionUUID->"a27917f1-e8f0-4484-bd0f-\ 6fa1c3b82912"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ix", "=", RowBox[{ SubsuperscriptBox["\[Integral]", FractionBox[ RowBox[{"-", "\[Pi]"}], "2"], FractionBox["\[Pi]", "2"]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "[", "t", "]"}], "*", RowBox[{"(", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], ")"}], "*", RowBox[{"Norm", "[", RowBox[{ RowBox[{"r", "'"}], "[", "t", "]"}], "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]], "Input", CellChangeTimes->{{3.714933000030954*^9, 3.714933007457321*^9}, { 3.71493304053506*^9, 3.714933043745262*^9}},ExpressionUUID->"6796aa94-5ff6-47da-a23e-\ 5bccaa03f1f9"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.714933045594102*^9, 3.714933074412751*^9}, 3.71493318884717*^9, 3.7155292917068157`*^9, 3.715538371080668*^9},ExpressionUUID->"6113a893-4555-4635-a850-\ 6b82876e0f04"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Iy", "=", RowBox[{ SubsuperscriptBox["\[Integral]", FractionBox[ RowBox[{"-", "\[Pi]"}], "2"], FractionBox["\[Pi]", "2"]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "[", "t", "]"}], "*", RowBox[{"(", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}], ")"}], "*", RowBox[{"Norm", "[", RowBox[{ RowBox[{"r", "'"}], "[", "t", "]"}], "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]], "Input", CellChangeTimes->{{3.714933053238243*^9, 3.7149330600908413`*^9}},ExpressionUUID->"d2d9b949-54b9-469f-80c2-\ 70b0fd8969aa"], Cell[BoxData[ RowBox[{"8", " ", "k"}]], "Output", CellChangeTimes->{{3.714933060457486*^9, 3.714933076574843*^9}, 3.714933188897682*^9, 3.715529291765058*^9, 3.715538371132803*^9},ExpressionUUID->"015b887e-6fc7-4365-92bd-\ 4d29c836bd2e"] }, Open ]], Cell["Por lo tanto las coordenadas del centro de masa son:", "Text", CellChangeTimes->{{3.7149331146437607`*^9, 3.71493312101087*^9}},ExpressionUUID->"99fa8651-3ebf-4a76-8880-\ b84adaae47f3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Xg", "=", RowBox[{"Iy", "/", "m"}]}]], "Input", CellChangeTimes->{{3.7149331366435547`*^9, 3.714933142033939*^9}},ExpressionUUID->"7a4b1f48-e44e-467a-992a-\ cf22d5fca04f"], Cell[BoxData[ FractionBox["4", "\[Pi]"]], "Output", CellChangeTimes->{3.7149331422771473`*^9, 3.714933188922597*^9, 3.715529291798347*^9, 3.715538371158003*^9},ExpressionUUID->"89db18dd-53c0-4423-a32e-\ c5c362845832"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Xg", "//", "N"}]], "Input", CellChangeTimes->{{3.714933150299411*^9, 3.714933151557118*^9}},ExpressionUUID->"0f172d5d-89e2-4522-a977-\ c1c523360969"], Cell[BoxData["1.2732395447351628`"], "Output", CellChangeTimes->{3.714933151832181*^9, 3.7149331889458714`*^9, 3.715529291834819*^9, 3.7155383711826897`*^9},ExpressionUUID->"2c8c711c-2cc3-458d-9545-\ 653dd6eaf184"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Yg", "=", RowBox[{"Ix", "/", "m"}]}]], "Input", CellChangeTimes->{{3.714933123100514*^9, 3.714933128585203*^9}},ExpressionUUID->"604396a2-1a4f-45b9-becc-\ 48d35cfeae28"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7149331291023273`*^9, 3.71493318896979*^9, 3.715529291869256*^9, 3.715538371211335*^9},ExpressionUUID->"4935e8a4-7f7f-415e-9c3f-\ b0c6da91da45"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{ "f", ",", "r", ",", "m", ",", "Ix", ",", "Iy", ",", "Xg", ",", "Yg"}], "]"}]], "Input", CellChangeTimes->{{3.714929707787472*^9, 3.71492971389581*^9}, { 3.714933155498205*^9, 3.714933167076503*^9}},ExpressionUUID->"9d71b0ae-fbdc-43fa-8736-\ c83a3ea557bf"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Problema 6:", "Section", CellChangeTimes->{{3.714930247370286*^9, 3.714930250438389*^9}},ExpressionUUID->"b1977fbf-f834-4c9f-9ead-\ 92bc0ced60b1"], Cell["\<\ Para obtener informaci\[OAcute]n te\[OAcute]rica hacerca de este \ procedimiento de c\[AAcute]lculo de la integral de l\[IAcute]nea de una funci\ \[OAcute]n escalar, ver \[OpenCurlyDoubleQuote]C\[AAcute]lculo en Varias \ Variable\[CloseCurlyDoubleQuote] de Thomas - 12Ed. A partir de la \ p\[AAcute]gina 905.\ \>", "Text", CellChangeTimes->{{3.714930135711473*^9, 3.714930199128223*^9}, { 3.714930258774675*^9, 3.714930270037743*^9}},ExpressionUUID->"01c4f270-43dd-447f-a134-\ 4d2cf48fa97a"], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.714930409910716*^9, 3.7149304285416613`*^9}},ExpressionUUID->"c184dd2c-4900-4803-87f3-\ 4330667066bd"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "t", "]"}], ":=", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], ")"}], "2"]}]}]], "Input", CellChangeTimes->{{3.7149304062557487`*^9, 3.714930476558796*^9}},ExpressionUUID->"289324bf-cf2d-46e2-87b8-\ 3b63b646c49e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", "*", "\[Pi]"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "[", "t", "]"}], "*", RowBox[{"Norm", "[", RowBox[{ RowBox[{"r", "'"}], "[", "t", "]"}], "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.71492991632274*^9, 3.7149300035241013`*^9}, { 3.714930497614868*^9, 3.714930504370845*^9}},ExpressionUUID->"58763efc-cddf-4275-bf62-\ 1c2df0bf8f98"], Cell[BoxData[ RowBox[{"12", " ", "\[Pi]"}]], "Output", CellChangeTimes->{3.71493057561129*^9, 3.714930709968079*^9, 3.71493318903401*^9, 3.715529291953609*^9, 3.71553837127875*^9},ExpressionUUID->"41a37421-1875-4a67-b1c1-3543a530f628"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot3D", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"1", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], ")"}], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}], ",", "0.1"}], "}"}]}], "]"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7149307436217623`*^9, 3.714930764633864*^9}, { 3.714930833754917*^9, 3.714930874620915*^9}, {3.7149309508634377`*^9, 3.714931011756797*^9}},ExpressionUUID->"988ca55e-e43b-4e92-875d-\ 954b7657460b"], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJyNlntUzekeh/eULgjVpozIkcqtXVHn5BS+r8ilrClKJZxMh3FkKE1LU1Nz dNBphLGcsLGMxCB008WUy+uWVBrVyJZKF1K6aFe7y67d/h1/nLe15p3zXWu/ a+0/9rOeP/b6/fZ6P8+MoJB127REIpHq00dbNHKI6HdHDg9MryqNZQLYlCSU pB0tgrhz8cEeF+UQFRRxInuTAHcqFs8UdlWB/mbLydfjuiF/tN2LacfV4Jif f6L0QyO0X7r1qOpkLwwkVzf7RA7Dzu3zPji3t8DZ7UdnJGYrwStmo+7sSSqQ 63iEt6R9hHClu1yWo4aJG1ctst4xCAFLfzY9YtQNh2d0BTx10CLHz51fdzJy API+X7Fj9zkF/OlETHzZSh2yTbrnzU6PPihV04eJij7YED2p7XSEPpnaePyk 87seWHp1s1TbSAnPL7xL+Sl5LDmsmzNhtnsXfDQY/aNPxyDE1rw48cPV8cTo y0LdX/Q6YOHfJWsKDqhg07xGY5JjSMoiXRLf2DdDwfopyct+G4YgR8tU2/dG JHDN3H9kmTeAh3mBMqJSDVMXJ8W0vDYm2n7iO989qATthuV1pfECTKyprL3+ g5hcURZ4Vpo9hIRdNmej2gQIj7xgF9smJg4mgQVR71NpgWt9YaxKgI6wtIFY lZgc/TpZoYwpo7lSO9mt2wLsS5dliO6ISdR4K8/eibVUPulu7MM5ApgkOKb+ aCMm6W6OeU8y3lG/hVOmm65Sg3PrXxreexsTnTBvP+vkVroiu7y1b/Iw2Bfl xqY4G5Hin6SjsmbJ6VBYG+w4PwSFmRa3zV5NIKGp8R6iym6qL7tW5VCnhOsZ k+sqWw3IOzt7U4t1vdTCzl9SXtMPVdKcsC0lo0l8+bHsfGk/lZY/6t167tP7 Nvvu2pnTuiQm4WBnf7KSZhY/H5du3QPukqaL5nu1SahiX9+FnUP09sGk26rv 5bDc6maKYp+IXNb+Kmv2RxU1uGJpOT+gDcI9Xx+TZgzBmlC/iHRrNb3ftHlm WGgTRPdGRxyz7YdicrHaxFigv9mvevnL+TdQdcRfWZHSAxVNB++NShPoxsrc XQsNK2BM7b/7Vq3oAsvLvitbBwRqayj91wT3HFjgG0e9p8ohtySvUa9boAsk LX91enuXBmY1uL5w+sTHXrEJOS3QUwa3irXmv6AvXe6VZ57qAq17f3ukJVfT 8DWCYVFAPR09M8KrSaKAwCkPtMP7h+n0oPzvXb55T1vqrL/Ur++HDTYV2Utu qmhXuXzZ0nXt1CSwpyIoXgVOVTGpyTOH6FIz2/ZghZw2TLN6ljMkIi1Xqw+c 9VTSpPvtgm9iD/UYTOx9OahNmp86Br107qe/Zk2X2Gr1UZta8SXBQo88sKzW vdyqoGnmNbV5TgO0e1u7rN97DNkqCbbv3dpN7z5tjPK2G6SZKx/9LNk1jkwr PNS+e0snfWVcVtf9dogea/N5vm+WIfF2MTmeefkDtTr0mbPL2mG6RD/ryajd RuTaw6Bov+tvaedst/lx36hpkFvCevMYYxK82N9n49Bruo8ULu5YKdCAuJQU 9WoxOXRkwzy93Gc0v32zeO0zgVrN0SmLeiYmjsFey5wDT9N17U4TAgWBPr74 zDBQEJN/ki/813/1BITFBmcS6wV6w6VE91K9mGw1iZ51sU4Gl9os9pJQgSa5 ePns3yMmVe47Qw/OagSH0/W9selq+nTKMouducbk+qZ3R4vsWyDP4tXUFUnD 1KNZ9KEs14h8DHbaIFF1gMwy/6arm4raPo70aoo2JDULwiHkbhc4Gd/x6bww SK8tUmzxnzueHM6wCtnuqYBQnQWnovMH6J8fj0tVmo0lq17oLfo6tQ/8MsZ8 UfSfPlpmdG9tXYceOTBmf3xI+QBk95409XVQUMn+5wMx90eRuepxJ/tzBiGp MGq10/ku+q2kps01+zMyK+yKrsRXBcV1RwvH3Omgqpt2y4+XDcMcL+WS5tRh MLs7dqu0o5lmuA6ccOoegF6Lb0ffylPD/eSMQ10NDXTamcQhK0EB2dLVgZ17 Bdg05CD7fK2Mls7Q970xvRt+TYkkN94KMK30XrW/WwFNvLxcNnUPfp/z/Pc7 8Mdd+P9cJMJ2gefMx/aC58zHdoTnzMf2hefMx3aH58zH9ojnzMd2iufMx/aL 58zHdo3nzMf2jufMx3aQ58zH9pHnzMd2k+fMx/aU58zHdpbnzMf2l+cj/39k l3nOfGyvec58bMd5znxs33nOfGz3ec58rAd4znysE3jOfKwfeD7y+5Gu4Dnz sd7gOfOxDuH5yPNH+oTnzMe6hefMx3qG58xHO4fjIz7SPzxnPtZFPGc+1ks8 Zz7WUTxnPtZXPGc+1l08Zz7WYzxnPtZpPGc+1m88Zz7WdTxnPtZ7PGc+1oE8 Zz7WhzxnPtaNPGc+1pM8Zz7WmTwfef5If/Kc+ViX8pz5WK/ynPlYx/Kc+Vjf 8pz5WPfynPlYD/Oc+Vgn85z5WD/znPlYV/Oc+Vhv85z5WIfznPlYn/Oc+Vi3 85z5WLdjvf2/Q7jvf7iXGNf03mMc63ast7Fu17S3Gde0nxnXtFcZx/pQ065m HOtSrG+xLsL6BOs0rD+xjsX6EOtMrFexbsH6UNOuYxzrCqyvsE7D9gvbEU17 iXGsx7AO0bR/GMf2WtNOYBzbZex+w3YZ2yNsZ7F9xHYW20dNd4RxTXeQcWzX NN0XxjW9/xn/L+1raBE= "], {{ {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[ GrayLevel[1], 3], StyleBox[ GraphicsGroup3DBox[ Polygon3DBox[{{2, 3, 1}, {41, 39, 40}, {9, 10, 7}, {4, 1, 3}, {7, 8, 9}, {7, 10, 4}, {16, 14, 15}, {10, 13, 17}, {35, 33, 34}, {4, 6, 7}, {13, 14, 17}, {10, 17, 4}, {11, 13, 10}, {6, 4, 5}, {14, 16, 17}, {13, 11, 12}, {23, 28, 31}, {25, 26, 28}, {25, 23, 24}, {19, 22, 23}, {21, 19, 20}, {45, 48, 39}, {17, 23, 31}, {29, 31, 28}, {19, 17, 18}, {25, 28, 23}, {35, 17, 31}, {30, 31, 29}, {28, 26, 27}, {23, 17, 19}, {62, 63, 61}, {57, 58, 53}, {48, 46, 47}, {38, 36, 37}, { 35, 38, 39}, {35, 39, 48}, {41, 45, 39}, {41, 44, 45}, {44, 42, 43}, {46, 48, 45}, {35, 36, 38}, {17, 35, 48}, {42, 44, 41}, {48, 61, 17}, {53, 48, 49}, {53, 49, 51}, {50, 51, 49}, {48, 53, 61}, {53, 55, 56}, {57, 53, 56}, {54, 55, 53}, {52, 53, 51}, {33, 35, 32}, {61, 53, 58}, {4, 61, 1}, {61, 59, 60}, {32, 35, 31}, {61, 4, 17}, {1, 61, 63}, {58, 59, 61}, {19, 21, 22}}]], Lighting->{{"Ambient", RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, { "Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{0, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}, {GrayLevel[0], Opacity[0.2], EdgeForm[None], GraphicsGroup3DBox[ Polygon3DBox[{{213, 215, 216}, {237, 250, 249}, {245, 237, 249}, {242, 240, 241}, {196, 192, 237}, {226, 237, 239}, {193, 195, 194}, {237, 205, 196}, {243, 241, 239}, {239, 241, 240}, {239, 248, 247}, {237, 245, 239}, {244, 248, 239}, {239, 240, 226}, {222, 230, 231}, {222, 194, 230}, {205, 226, 222}, {193, 225, 233}, {234, 193, 233}, {190, 192, 191}, {236, 225, 226}, {244, 239, 245}, {226, 205, 237}, {193, 194, 225}, {230, 232, 231}, {233, 235, 234}, {229, 218, 222}, {222, 228, 227}, {222, 226, 194}, {192, 252, 237}, {246, 239, 247}, {226, 238, 236}, {211, 221, 220}, {210, 219, 212}, {213, 214, 205}, {210, 211, 220}, {222, 218, 205}, {205, 218, 212}, {223, 224, 218}, {216, 217, 213}, {196, 191, 192}, {212, 213, 205}, {212, 218, 211}, {213, 212, 215}, {204, 205, 208}, {199, 201, 200}, {201, 199, 202}, {202, 196, 205}, {203, 205, 204}, {206, 202, 203}, {225, 194, 226}, {202, 205, 203}, {227, 229, 222}, {208, 209, 204}, {199, 196, 202}, {196, 199, 197}, {203, 207, 206}, {224, 211, 218}, {210, 212, 211}, {197, 198, 196}, {251, 237, 252}}]]}, {GrayLevel[0], Opacity[0.2], EdgeForm[None], GraphicsGroup3DBox[ Polygon3DBox[{{104, 102, 103, 105}, {188, 186, 187, 189}, {178, 176, 177, 179}, {176, 174, 175, 177}, {180, 178, 179, 181}, {66, 188, 189, 67}, {182, 180, 181, 183}, {174, 172, 173, 175}, {166, 164, 165, 167}, {170, 168, 169, 171}, {162, 160, 161, 163}, {172, 170, 171, 173}, {164, 162, 163, 165}, {168, 166, 167, 169}, {130, 128, 129, 131}, {184, 182, 183, 185}, {156, 154, 155, 157}, {154, 152, 153, 155}, {146, 144, 145, 147}, {144, 142, 143, 145}, {148, 146, 147, 149}, {152, 150, 151, 153}, {160, 158, 159, 161}, {142, 140, 141, 143}, {134, 132, 133, 135}, {138, 136, 137, 139}, {158, 156, 157, 159}, {140, 138, 139, 141}, {132, 130, 131, 133}, {136, 134, 135, 137}, {150, 148, 149, 151}, {126, 124, 125, 127}, {84, 82, 83, 85}, { 120, 118, 119, 121}, {122, 120, 121, 123}, {118, 116, 117, 119}, {114, 112, 113, 115}, {116, 114, 115, 117}, {96, 94, 95, 97}, {112, 110, 111, 113}, {108, 106, 107, 109}, {106, 104, 105, 107}, {110, 108, 109, 111}, {102, 100, 101, 103}, {100, 98, 99, 101}, {98, 96, 97, 99}, { 124, 122, 123, 125}, {186, 184, 185, 187}, {90, 88, 89, 91}, {88, 86, 87, 89}, {80, 78, 79, 81}, {78, 76, 77, 79}, {82, 80, 81, 83}, {86, 84, 85, 87}, {94, 92, 93, 95}, {76, 74, 75, 77}, {68, 64, 65, 69}, { 72, 70, 71, 73}, {92, 90, 91, 93}, {74, 72, 73, 75}, {64, 66, 67, 65}, {70, 68, 69, 71}, {128, 126, 127, 129}}]]}, {}, {}}, {GrayLevel[0], Line3DBox[{2, 1, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}]}}, VertexNormals->CompressedData[" 1:eJzt12k41HsbB3BJREqpiKgnW9JiDanc2mVJIVuLQiWSJSHRSdGJREey5LFE izqJoyKDfo1iEI11ZsyMfRsz8/8PHZIiTy+el8+5fq+f6+p7Xd83n/vdfd1v 7jUe/vanxMXExKZ/du7PkpzP9OwZEoxPXdWMjbdCHGZCJ2WADgv9AvctmSsC Vmxho6ySJfrNZeflvEQ6vBpZPj/5OwkXP9gFBbp5IFZjxpIV4k2QYbZU+Qtb CA+dmQPcu3UogNXm9+EmCxYwXHufepGgU6yf6vevYmRpNmsfGtUKM5+HLJ31 SEi6dPrFjmVvUOkWvm2pWxsYJFSvOJnNh2vKiZ79D5jIqvLTNekoNoy49d2u p/IgMcjJSS22E+XEJ3VM1nKgYPUa8WHVYWg6ecXX/EsP2kQQLFNfLkxeFWRu onKhTtyCJ5zkIRm/tzEEiwNJkYyUZVIfwOL39EP7UgjELntTVGPGgD7iL/oj KwQFf5em1IgIZPXQVDzRuB2owg+J+TdLYPB8mZzmThIpBtdFF8u2geIR+o8E nj8oOIX+GP+bRMdpUvr225pggueiQc0KggntFpWscRJ1TbXrK5s0gYP5uZpN rl7wTE/av/obieqff0y0md8El3J8tmrQExAIbhjFN/KRSrrCjqRLvdAZcngk 6uExZFHbW6j2g0TUMquZ+1w6lKsbbj13LB8tvNF3s+IeiRZpf57PSGoBHdf1 I0paecjkX+JZo09J5JZp5UrVaIHexButgtpnKGKuyleFOBLFPC98jJpboOeu SZsBvwQVHg1QnDEkkZzw7t67P/efrVgUMLGmBxE2L5WWUYZR6ub7DVQnLrDH tvJUn/SghWYVRinuw2gOxSPjgh0XNkTecYxLGUay/rbvLE71oOnXSfFsAy4U n+Ibx8UKkWP7nqwxGzoKDyG2Tx9lgcF3MbltGgS6qB2urmZWh5pV10x93MYE W1WG04EKIcq3NhS+PdyIUvdOHrCVYUHUhGaCWD2JJBOTH91TTEG8FofNYR7N EF2W7nmUS6LyA87v7xyOR0m/Cxo+DTWBMmXUYZ4xgWyWG1xRufUBXdQKvbtN igWPlaf0TSVESKftYjtir0cz5fNbYyPpYDvACzabIZFKFsdznt1xoG5u/+0l nw7R55zVaJMkYkRdKxVo+kHFPGrZ2tVNkDv/yyHnOwTa+fBsWKrpW1jw+nHS NRsmxBawb+dvJ1HhreLM6HslIBdla9yo1QYaX7XCFaRJxPFxH5NNq4AtXwsV yvvb4AFb62rgMhL1Sa8aP8GhgFKEn7wurQ2qZMUa97T2InVFiT2E8RB8doyp PbOhE1JH0yjwaRB9Mpz58uJmH5hbtt/qyOVCesYCc4YOE0Ug9Y8DVXy43qNk OOXGBndpZ50C03p0n179IlmGgPN/lp6JDWFCJMdAwqfrAwr/I7JF/wYBLAfr xBfHGbDidrk8m1WDdqmPKdYcJiA6jZ1l18OA6qrAXBegIua3GoP9NAKq8n/f t6SuHWw0H8WlWXgj03T1T6NfSdgf5+7jpNAEY0d4hQZO9qi2odpbY44IuNVQ 2VBAhzhG9K0HoUXIGK2OpBIC8I1tzimd7ILZOTvqpSVj4AS7PGdDFwmxFdQ8 E24TdJ/br4+ML4FJ7cpctoiEWp3cCqpbE6xwHFT54pMNloIfcI9Cwvc/zhrt eNcMOTkH3OmHiyBT1+5g4AUSXtMbiDXmrVDrFXp9B60d9E58DmrVEoCE5FOX iNEOaNP5I9vwzyb49D6MoeMoBPkjs9pv81nwVfnowzu720BF+0LQbLgATnvd qjWkdcA31/Q8ljgXjvKm1RcZjUC2yh5N0yoOLPXcFUIz6QMtFPpdkT8IVCK+ /LJKJ7gGndgtvMaHM+cCpm/cZ8KTRSc9876yYXVYdqayFQnrLIqM1qu+hvd2 fqM2E61Qf/aUuncYCQoW5ZfLgguhtDdMtVKrFa5vD2nNWEzAkmtysUsdqqHF 4X7gw0QWhNvtz103RsLMx5mV61xDYUWxt5rEoSZ4/jI7pGCSBKlYurfra18w PtivNPnzbt8p5k/JM0Vw5OOtjy8SykDsv/knXzgRHUbMisAkDv7NMQnEerhH 6L1XR0VAadmuPutXh/UKad021SQStCmUe40jLVifyuUMO14iwOvM+hEzIQvr ByOPSGovF4JwnnUw70UX1pcfsdymdZYPzjseKd5e0of15Mxs+5RLPChR2nv2 fOYA1j3TArt8rYeA/gNVJY8PYV21LynFbKAfIP9Y2twlI1iPl3wtp23VC4Ss dKIjwce6zEma5BupTtjiudGmOlqI9YZLW5O79JhQc1g5d1crgfXTNjreL1c1 g/Wq6qnQdhLrC5yXVlymVoN47+7uxpsirF+ZqrZrX1kM8X4bMsIFePdWcK8O H8pE1Tt7aFHTeI89lzs+FfkOlaTpMkvL8R68SNNuYlkjGl1eGVW1Du/P9hiV 1RS1IWdT5dWKliTWpYMcnLVy2Wj3q2b+lxUE1uuz0iReru1B34IEcDZbgPXz BTetxdr7kAzzWYdh9wjWB3T1FNXsB9EaXZeNzdxhrMc133lFSRtG95rfT3hl DmI94laMaDJ3BBXX0xcWavVj3X/86pcHvgJUHpNTPn2lB+uP555+qU0KkfQT DQ19Nw7W9wc4hxZqkahx8Jh6UEA71ust8jgK8iLUqmfJeJP9CestgzFvJV6I kG17iZ/p4iqsqz922sf/KkKei9OuyVk9wnrJx7I+qc8idGEjb4tJfwHC+asF Tzb4p4tQpWxpvbj+B6zPfXv8vfgoifxtZhfXuTVh3UOZOjd4kkBLPChXtl5g YN1lQ8sr82Ih+rt5dNcOey7WN3dEFuSqC9DulZuEPuM9WB/J50Rn2I2g7HfC Wafkfqzzao08GGbDqOHl6o2bxIew/k6DI/mYP4AKV3E7y0x4WPfe6KM34dWH ymr7wh10+VhXoMUJz5/oRiz5pu7P/QKs79uqkPTX4w6kHTfHbOshAuvPqzwi nP9sRSLtPfo3LpBYP7/dxfHI93p01YK2ndgnwnrqbdf1UiUViCI8tvRQA943 nz24y8w9FjkITeTcZ/F+0OKAy+HTJSBmLns/uQfv7goRa/O6aZAnUAuxCMB7 l5VvQMzaFjBI75mIKiSx/vToQEKdHgvK1Fgqe3MIrIt8TFw3TncCU4NSvHOP EOssg2Dwr+wFU/kKR9EDPtZvF2n6n7EbgPPzDFIjKDys27RJbTtXMAQORTIH 6u4OYf2GzPWb/s08+GsiRdHJcADr634sTJl8zYccWvh+k+xerKsHPZHc6CSE ju4EmkxFJ9a1D06ZDxcQoFK5wCuNYGJ9XC1MurTs5x+SWxQ31tuM9eK0/e6i EBGEfDdkKh2iYX28wNa6skcE88cCTjGcS7D+vzP6D/Nf/st/+S//5f9v/h/f 9NZZ "]], Axes->True, AxesLabel->{ FormBox["x", TraditionalForm], FormBox["y", TraditionalForm], FormBox["z", TraditionalForm]}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGridsStyle->Automatic, ImageSize->{369.0337781314135, 221.56930365559026`}, ImageSizeRaw->Automatic, Method->{"DefaultBoundaryStyle" -> Directive[ GrayLevel[0.3]], "RotationControl" -> "Globe"}, PlotRange->{{-1.998270300546559, 2.}, {-1.9998465151282017`, 1.9991472060830102`}, {1., 4.999386084070412}}, PlotRangePadding->{ Scaled[0.02], Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, Automatic, Automatic}, ViewPoint->{2.2019467572874105`, -2.2940139489980056`, 1.1571216357298113`}, ViewVertical->{0., 0., 1.}]], "Output", CellChangeTimes->{{3.714930835059086*^9, 3.71493086069591*^9}, { 3.71493095868356*^9, 3.714931012271969*^9}, 3.7149331890885*^9, 3.715529292049775*^9, 3.715538371344623*^9},ExpressionUUID->"53647a83-16c6-4339-bcba-\ fe5de8c296da"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"f", ",", "r"}], "]"}]], "Input", CellChangeTimes->{{3.714929707787472*^9, 3.71492971389581*^9}},ExpressionUUID->"305b5003-0df8-4b95-86e3-\ 0be851a8d262"] }, Open ]], Cell[CellGroupData[{ Cell["Problema 7:", "Section", CellChangeTimes->{{3.714931798201099*^9, 3.7149318241477537`*^9}},ExpressionUUID->"3ea1c08b-9112-4b34-a714-\ f43ba9747e42"], Cell["\<\ Para demostrar la independencia de la trayectoria, tenemos que demostrar la \ siguiente igualdad:\ \>", "Text", CellChangeTimes->{{3.714931867801323*^9, 3.714931885337747*^9}, { 3.714931916631605*^9, 3.7149319274060717`*^9}, {3.71552916510784*^9, 3.715529180520131*^9}},ExpressionUUID->"1cd88ba8-a0bf-42ce-8bf2-\ cdf638777d42"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{ RowBox[{"6", "*", "x", "*", SuperscriptBox["y", "2"]}], "-", SuperscriptBox["y", "3"]}]}]], "Input", CellChangeTimes->{{3.714934680400465*^9, 3.714934720891131*^9}, { 3.714934765909294*^9, 3.714934766374208*^9}},ExpressionUUID->"2f7418db-1739-4147-9fac-\ 07602640f971"], Cell[BoxData[ RowBox[{ RowBox[{"n", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{ RowBox[{"6", "*", SuperscriptBox["x", "2"], "*", "y"}], "-", RowBox[{"3", "*", "x", "*", SuperscriptBox["y", "2"]}]}]}]], "Input", CellChangeTimes->{{3.714934723146134*^9, 3.714934771653254*^9}},ExpressionUUID->"3f130522-2221-4b9b-8a00-\ 01156c6a866c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"m", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.714934756917268*^9, 3.714934789421041*^9}},ExpressionUUID->"115448b9-307f-43b7-a410-\ 6fbb35d3e0a1"], Cell[BoxData[ RowBox[{ RowBox[{"12", " ", "x", " ", "y"}], "-", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}]], "Output", CellChangeTimes->{{3.714934778129616*^9, 3.7149347897627983`*^9}, 3.7155292922307167`*^9, 3.715538372214508*^9},ExpressionUUID->"d2e821ad-5e12-4d35-9212-\ 58564fc051db"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.714934756917268*^9, 3.714934800772064*^9}},ExpressionUUID->"e5dca830-5dc1-4f38-bc81-\ 5a248e6554c6"], Cell[BoxData[ RowBox[{ RowBox[{"12", " ", "x", " ", "y"}], "-", RowBox[{"3", " ", SuperscriptBox["y", "2"]}]}]], "Output", CellChangeTimes->{3.71493480216886*^9, 3.715529292268463*^9, 3.715538372234568*^9},ExpressionUUID->"5a628e98-61ec-4bbd-9f86-\ 93b52908218b"] }, Open ]], Cell["Por lo tanto es independiente de la trayectoria.", "Text", CellChangeTimes->{{3.714934806503374*^9, 3.714934816716277*^9}},ExpressionUUID->"506ade70-a18f-44e6-9e23-\ f8772e4df25b"], Cell["Verificamos, realizando la integral de l\[IAcute]nea y tenemos que:", \ "Text", CellChangeTimes->{{3.714935199358658*^9, 3.714935205865425*^9}, { 3.7155291865221148`*^9, 3.7155292016745777`*^9}},ExpressionUUID->"7ef3ce9d-5a0f-417e-8ba1-\ 6f05c1067bc2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "3"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", "*", "x", "*", "4"}], "-", SuperscriptBox["2", "3"]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.714935047488484*^9, 3.71493507732821*^9}, { 3.715529206195051*^9, 3.715529206753516*^9}},ExpressionUUID->"afb8e606-fc54-4e85-9079-\ 54b0f51d82ad"], Cell[BoxData["80"], "Output", CellChangeTimes->{3.714935078258424*^9, 3.715529208162815*^9, 3.715529292306408*^9, 3.7155383722604113`*^9},ExpressionUUID->"0542da44-df36-4a9f-b7dc-\ 3caa6372670d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "2", "4"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", "*", SuperscriptBox["3", "2"], "*", "y"}], "-", RowBox[{"3", "*", "3", "*", SuperscriptBox["y", "2"]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}]}]], "Input", CellChangeTimes->{{3.714935081955688*^9, 3.7149351339777403`*^9}, { 3.715529210342333*^9, 3.715529210979931*^9}},ExpressionUUID->"f9be7026-f249-4d79-a885-\ 74c970283152"], Cell[BoxData["156"], "Output", CellChangeTimes->{3.714935134910738*^9, 3.7155292115665073`*^9, 3.715529292343237*^9, 3.715538372286353*^9},ExpressionUUID->"ccb64a42-be88-4c42-b3ec-\ 013afdfab99d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "+", "c2"}]], "Input", CellChangeTimes->{{3.715529214638619*^9, 3.7155292194526854`*^9}},ExpressionUUID->"5d912080-d1af-47eb-90f8-\ 717b1e534f56"], Cell[BoxData["236"], "Output", CellChangeTimes->{3.715529219805705*^9, 3.7155292923726683`*^9, 3.715538372307946*^9},ExpressionUUID->"4a1faf59-7512-4280-a391-\ eb482f67a8ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"6", "*", RowBox[{"9", "/", "2"}]}]], "Input", CellChangeTimes->{{3.746983784948251*^9, 3.746983787339808*^9}, { 3.746983834305685*^9, 3.746983841496348*^9}, {3.7469839132860603`*^9, 3.746983917190646*^9}, {3.746984013305416*^9, 3.746984028515957*^9}},ExpressionUUID->"0a6d0be0-85e5-4863-b420-\ 2ce1f11d78a7"], Cell[BoxData["27"], "Output", CellChangeTimes->{ 3.746983787700836*^9, {3.746983838014209*^9, 3.746983843314114*^9}, 3.746983917458014*^9, {3.7469840228747683`*^9, 3.746984028909624*^9}},ExpressionUUID->"a457c559-0dff-490b-882f-\ 96ec99811374"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"m", ",", "n", ",", "c1", ",", "c2"}], "]"}]], "Input", CellChangeTimes->{{3.714935209029894*^9, 3.714935213597728*^9}, { 3.7155292257983513`*^9, 3.715529227616501*^9}},ExpressionUUID->"20538052-8da9-41a0-8937-\ 2ab8b51fc195"] }, Open ]], Cell[CellGroupData[{ Cell["Problema 11:", "Section", CellChangeTimes->{{3.715533017202469*^9, 3.715533019395032*^9}},ExpressionUUID->"4dbc8a0d-f7e6-47f7-ba12-\ f9d525ea0ae1"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"x", "*", "y"}]}]], "Input", CellChangeTimes->{{3.715533619788671*^9, 3.71553366422684*^9}},ExpressionUUID->"09c8d292-4105-4186-be29-\ 6edba87157f9"], Cell[BoxData[ RowBox[{ RowBox[{"n", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", SuperscriptBox["y", "2"]}]], "Input", CellChangeTimes->{{3.715533643480139*^9, 3.715533653058207*^9}},ExpressionUUID->"a9b89f04-ee41-4ffd-94b1-\ ffe393585105"], Cell["La regi\[OAcute]n del plano, sobre la cual debemos integrar es:", "Text", CellChangeTimes->{{3.71553380926011*^9, 3.7155338205759363`*^9}},ExpressionUUID->"40a79fdf-256c-4e63-b32a-\ 842d4746de68"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RegionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y", ">", SuperscriptBox["x", "2"]}], ",", RowBox[{"y", "<", "x"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1.1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.715533695933025*^9, 3.715533800837878*^9}},ExpressionUUID->"7a26a756-0148-44de-a1d6-\ b4be07498761"], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJylW3lYj+n3TpvQ0NdUY5dkH8OkaKSOfWlIydbYyhImZJmyZ0tTTdI2FEqU hDCZEKJsqTRJhVTSovq0ZwlF4/d0Xe7303W6XPOba/rnXPfp/bzvc86znfe5 77fXYocZyxQVFBRqlRQUmqzHcfe3jZoOptze3BwRtzjsLHGr7qFwzzbsuoSP 2Gt/M8U4QcL6vpFmtmF/SRj3478D5hb3A8b9gJfO7xUX65ouYdyft4PfB5hb 3B8Y9wc+71CZNdn4sYQbdl9+lVnzVMJ4Po+bt5s/B5hbPB8YzwfG84EnHNit bhv2TMJoD+6D9vC88Tj5c4G5RXuA0R5gtAc4MbOvn1NkvoTRPtwH7QNG+3je eR54O4C5RfuA0T5gtA94zUL1kFjXQgmjvbgP2guM9vJxwfuJ54m3C5hbtBcY 7QVGe4HRXvwO7QVGe4HRXj6OeD/yvPF2AXOL9gKjvcCaspeRirYvJIz243do PzDaD4z2A6P9fNzxfuZ55O0E5hbtB0b7ga+ue3JlsnGJhBEPfod4gBEPMOIB RjzAiIePUz4OeJ55u4G5RTzAiAfY5kNsgpeWTMKID79DfMCIDxjxASM+YMQH jPiAER8fN7wfeBzA3CI+YMQHjPhwHeIDRnzAiA8Y8QEjPmDEB4z4gBEfH1e8 X3gcwNwiPmDVvcczMmvKJIx4cR3iBUa8wIgXGPECI15gxAuMeIERLzDi5eOO 9xOPC5hbxAuMeOFHvMCIFxjxAiNeYMQLjHiBES8w4gVGvMCIFxjx8n7jcQFz G9neLb9LcoWEET/8iB8Y8QMjfmDED4z4gRE/MOIHRvzAiB8Y8QMjfmDED4z4 eZzA3M4IWF1lE1YlYeQDfuQDGPkARj6AkQ9g5AMY+QBGPoCRD2DkAxj5AEY+ gJEPYOQDGPngcQNzi3y872XVEO5cI+UDGPkARj6AkQ9g5AMY+QBGPoCRD2Dk Axj5AEY+gJEPYOQDGPkARj6AkQdgbpGfB7OO7HGKrJXyA4z8ACM/wMgPMPID jPwAIz/AyA8w8gOM/AAjP8DIDzDyA4z8ACM/wMgPMPICjPwc7dLBIzDwpZQf YOQHGPkBRn6AkR9g5AcY+QFGfoCRH2DkBxj5AUZ+gJEfYOQHGPkBRn6AkR9g 5Al4oPX7P5aGBUnWacnPflOML0nYcu6PjbGutyR8I934glNkmnRd2xLVFEXb TOm6mfUPi720siQcoh70qUtyDpU6Fwx9VJNE5T1XdD7p/Fy6z+HApr8C6T5j eu8If76hSLoPsHSfyKV/9jEvlu6zb7hZvH3/Uuk+w+KH/BWlWCZd93SKVva7 3HLpOmBctyOjocTkcqXk77Mg//Uen2rJ2r1erFBsWEsjYh6pqvWWjyfkA+MJ GOOF54e/ZyI/iI/XmTxeXpchfsTB92keP9+nePz4HeLGOEL8GDeDrDp6mhmH 04dvAvxWhO2jEb387z7fkEE3nQzPPqq5QrmnN6f3MX9EkanLap0i4+n03pgB 68qL6K9JA+vf5WaTs9mgof5PXtD6hx1UTS/nkkWH4OGX7xRTp3l1HV188kgv U8MkO6qEFq6v6lBsKN63dFdajNtcJv1ubKT5AnerCkpe8HaKjqeMtNfdXBI5 ulK6ziuu80YttRqKbQhf+6pLNR0K+3Rz8LpaUmr9w4S4UtF+i6Obr7tekNqP dgNj/UB/wi9d/7n/gdGvwBjn6H9g/A756HdjfGWU4lMpnrcBe8Y1BpfS2LoP vfdrJUp5xrjFOEE/AiMPWfETeps3FkoYz0H/wqJfgZEnmaHBzw8GV7UY91g/ gBe7eG43qqtpYZFnnjesp8jHk66+c046P5D6AesAMOLFOom8KH9M7zZIQ44x 3xEHxjXiQF6B+fxGXBgvsF/y87xg/UTc9ivXJ1oslGOsF55q90y6Jt+X4sO8 Rz6AMT6w7mHcAPNzHvwf8wrjBusG8grMz1nwf8w79AvWFaxbwPxcA//XH2Gj rda7QFoH0C9oNzA/N8D/MW53Gyx6bt//ibRu4XdY74CxPuC5WMcwbrCOAa8t zZltZ1cu/Q79g/57WzC0rZLtHWm+YV7CL83Tz/nFuoV+BUb+sG75HDwXExj4 UMLID8Yx1klgxI/xjbxg/GKdw3jEvMO4wHiS4vk83nA/5B33w3zh4/5LdQDG J8YNxi0w1kHkERZ5wDqLcYTf4//YL/BcWDwXWLr/5/j4dfDDBnh2HxSwcwhx nuHagNUveuy0l9p9aLptbdkvv0ntG6CgMKDXLxepKFHZady9Ry3272mGUQ11 RTdI38DlVttFLc+J9iwILI9685T8P3pd6HOv5f6dGbbu3ZWiPIr5tt57nnvL /ftAifqSeyrFlDfx4qoHt1q+Z64cOWzrq14y0js75qHhA/n+bRH6U+KGFPn+ vTD5q0czZ8n3b7eE2q77Q1Oo649XlLscO0XeGQU6qXNe0Cvrg9n2z8R70Pte 0/WuiPfV4tmGAcoyMvn7VMelXW+Sh1vVvKApvhT0h0dnmcVtSjjQmNrO6iB5 by7ddD4jkV6PWWqUNDaUEvQXKQ/f+JBmF+WaTdX4k4zGnnF3T82g+FdZR77b G0PlUx4tW2jxhLbWWzbO+xhPw8xiNY7qZ5HvJaeTR6beIre83/cNnZBLWjk1 mqfrxXzT/5/t7bb5dGffrjYHtdLo0OqYadufFFB706QlxsUZNPTEgoEvPYto U51mnn3RE/I8MnwafVdMMwfX3y9tk0sRz+q2/O9GCWWvUEs/O6DpXGeegvLO UrGO/WrdamwBvZiY5tn5iYxeneppN2lyEYWNbrTSq5dR2vGonqu3F9HV0nea qdoiHwHL9/5eXUIWf+8dHLCukhb/HuY6Z3IZKbfRHdGtaxXN1Kx277y5nMa6 9dW/ZldNiyOiI1QLKym/doOSqkKtZNNbTVv1V2/xXvVik//HSfL98sQPqVbm +3+U5nPM/Nhp8SXB1KP/anu1e3el6x6nGu2anZLaYj5q1Pd0P24TRQ9HGAQP zW1ZfwZGz5q/8c0V+Xmt44CMNSp36Y52aeCrufJ6/UavA626RmZL7cD+EaaY sU1DN1EaxwZK9UbWjvcpLrfux04PcqX96LBD2m8+KXnSfoP9Q2fj4dZTPqVK +8fBFfl77Wwe0sDC5R0nzsqX4vil0Py664gCaR5i3a/QOrdDZX6GtI6ZDzfx X7PhEbnskt0+1b5QitNAbWdv81z5OTXqpNtJ+24fC39CbeMaJzVqFbeor2ct tfvWc2EuubjXm8Wtl9fXw4/GHx/duVRqN/YV/W+PVs+9lU/+ke9vTr3W8v1j 8vApuuZiXE7MMmqzslu59Jz1s3RMG8+US+sA6pLVFt9H9dlXQmlz9M5PNqts UZ8Hb5lz+PmdMrLZFjzltmXLeiY3+lr+1mHyc4NVLzy3zflUTSErt6ucmdiy fjnw6dzo7atqydxuo6Lqfnm94tiu1Oppp0gal6P58GLMCrJZPb74/W/BVGCz 5Zni66kUpbun836lVLo9wtzlTL9Iyj07q2/vjuk095Tx0KIV0ZRuo7ynv/pj 2n03pEeRzQ1q771y8KAJ2bTB8sKxI953Kfdyh/g7BnnUarpvUeCeFPJoSN4x /U0+5Ws8LW777iHN97uuUBBdSE9UPL5ReP6Ikumnr8vE+uqVUdJH7dVT6j83 WmfI+2JakZRo6j8wjw4cOxZf8baE0snZ7+0WMb+7tQleZCqjNSbxiRULCsn3 2LU/E/8oI7f7WSntQ15QXxp/feqycjp02TAt7W4x3dGo3JxhW05hRues9eKL ScEoQMntbgWpp0eG9uoio/HGxyJUqyopuXLy70F9yqnT3FU6mreqqMTc/ezy yArKWh6lMaRNDa2f0eFJVudq6jbruGdQuxoy8x7iuqVHNWW/VY91OFVD2tMC jfKsamj8ufkqpaL+mNuY00pVvI8E3NT2tN5QSwp6Fh0qymrpVemyrV/H1dI2 twm+H11f0iofqy419+T1Cub1yxHmludynKl/j1HOZw6eJxUTo79PGzjQpclL t+7wi6ahJ/PbRm3bQhPry0sGZV6lTKXKu5d2uZJuubX1xYMx1Hjh2ptlRbul eX+gX7ttFU6/04C0/K+X2seTpsKbwfezvWlF60l322UcoZUddZMDB5nRhQTP xtkpN1q879gciHhaonKCJpZ1/WRzTP7+btQQN7PVuyJSf2R4wKcsi8y3vGmT bFQhzaOOhYfu+66poL5LRjx6vaeU2h3dtfzkpgQKf2NpMGf/Uek+81MVF9nq 3KItz329vtJ9QnGb/vYZdiWettTo9tB4LX8fuqowO2bAERnJupdEj68qFP3Q sN7KolqaR+GXZId3q1aTwmCl/aO+rSSjHPsD8ZriPdH7o0nexEo6cF3bN6dL rTRPzGSOI/Le19A2ndDbvi9raLfdiNruYt2blWNxi/aflNa5Pnqb6KHjGcpM sg9aMzqNPGw0/7Tc/Qf9nL8k13XEQ6keGX/3ok3E81KKeRDyaceDAmlfDzN+ k+GgU0jKwbYm19rKWrzv6K3cOzvEQdTV5kte9rCW8xJ43xu65qfaQ5mFZPqX 2y8Za6qoWrNhxt6O8nPWvsfd25g5VlBaWN6Per4t34/W5m6tG3O4nHL9Dse2 T5fXh21TdM57WNdQxz87Usilapo6sFC/2x75e5F/1O1U7Th5/Yi6dGGdT8Du 8hrKLT611S+glvr3T2xfMVx+/uSx++BGfZuXFKJ9Lsn7jPz9KX/FgrbW4enk 8v0Wu6zYizTo/f2vTWszyXVM5clfll8jmeO3dhH3XtDH2n77HnzMJu3dT1fd 9ysmWUVAoFbnZ+R0zS3qxLwSWu+pMrDK5Dk5n16ktXpWGSU23lw6qf0L8r2V vnF9u3L6ycGgg5t+Mem7RqmUdRXvj5NVI4r+kNFPIVpbf0+opIExv9L2/DKq /LBgFMVUk2d9TdiJ7VXU8HTaxE9mtTTSIcpk/sFaymt9XsN2Ug51d3z1Jnb0 Pap43ae1Qr/nNKx8qMN5q1TS81AdE2BXQBZbJ62Nq0wnhbB1P27vVUT6a1rv /yr/MV298WHb+p6ldGiq42OHi/kUXry2v+ONcqp8tNX+vnUJWTq5rl7ZPYFc lTY12voFk1220mEr06e0+dSFyLiy27R62jFDDXpGBzTC8pyuJtMNq6JuZjvz KSPzVvAD5Yfk9XhHq4KJhZRS17PN1fzML+pkuK6F60y4zoPrKrhugesCOM/O eWrO63IelPOEnEfjvBLnVTivwM/R+bnxl3RE/6Q/4joYrjvhug6um+A6BM7j c96b88ScR+U8I+fdOO/EeRfOM/Bz9X+rn+K6G65r4boRrsPgOgbO+3OenPPI nGflvCPn3TjvxHkWziv8V30X18lw3QnXbXCdA9cFcN6c88qcZ+U8I+fZOK/E eZT/qifjuhquS+E6Dq574LoAzptzHpnzqJxH5LwZ54n+qz6N62y4LoXrOLjO gesAOC/OeWHOi3IekPNe/1XPxnU1XIfCdRpcx8B5fc5rc16X85ict/u3+jau A+K6Ga4r4boLrkPgPDznoTnvynnGf6tv47oernvhuhCuk+A6Ac6Tc16Y86D/ Vr/GdThcp8J1G1y3wHl7zlNzXvbf6s+4TobrRrhugusGOE/OeeF/0odxXQ7X qXCdBtcpcF6e89D/pNfiOhiuA+E6CM77c56b64i4robrSriugusIOG/OdTlc l8J1GVyHwHl3rmPhOg6uW+A8Pdd5cF0D5/G5zuGfeP0v8fecj+Tn9/DjHA1+ vH/Dj3Mz+HFOBj/OweDHezn8OAeDH+cA8HM+5//L18OP93b4ca7FeTv4kSfO D3AehH9HwPk7rvuHH3nlOnz4kWeug4cfeee6c/jRD1zXDT/6heum4Uc/cR0y /Og3ruOFH/3Ida/wo1+5ThR+9DPXUcKPfuc6Q/gxDrjuDn7OD3P+m+sdMK++ xINjnnFdyJf0ERIf9dkPHgx+8F7wg7+DH7wj/OAd4QfvCD/4NPjBO8IP3hF+ 8I7wg++EH/wy/OA74Qd/DD/4TvjB08KPcy34wXPCD90C/NB9wA+9CPzgdeGX zss++3E+Bj90IvCDH4Yf52Lwg3fl52Xwc/0E15/gPAx+8M/wQ5fCdQTwA/P1 CuML6xmu+9B7eorj7Srpu6poU5V3puFBFLKh4meP40GUdaRKL16sW5oDS1tl jLxEinXqE9836bSuuUfvEjaga+hmjdokGl7YUxYo1iftY0dm+4t1yE455ytr YRdHL1+rI9adC9+E9yu2yaTIe/oekWKd+Thw3Zh1wr7Pbgw1EuvKZNNR8xqT cmhsdeL1O2Id8bVs7egubKJCsn2EWDfW6K+859FkPc5vqhbrhGaseWZak9X8 fa+BWBeuTjAo0G6yQVt8t4h1wOZB5+r5TbafzdF4Me9VrT81HG+yURMiVZ+V U2Thi9ZlYr5Hjhx0ZWqTzmVVsuaQJntHI8G3Se9Rd76Xo7Af+25dWSnmbVqc 2cFnwqZWVDl0EHkNcbkepNBM32Xkf3iz2/GzZKLX0aRzhFwfZ7booopJ+NkW vHRU7ZK180U+sQ9M+qYh9JfQ62T8eO2l4aPkfPbDj6rl5ifk359hn6jukWg/ UVjsEyP1/famj0ygaJ9Ur2G/3pKu+zssMCKu2fdk2EdcJiw8ulBY7CNpcwdc KQ/9i8xilt76UfQnrvO/PyT3SbPvv7DPfDV8y0pjYbHP/Bm3yGmXsA4OjQ1R wo/rtOoLW79v9n0W9iHrKRP23BPjAfvQ3+kDvb8S9truRE1T8X9cZ6N+rpdL s++lsE+FztcIshIW+9SUkrpTgcKqHPD7Lln4cd2ZnpuNNWrl3ythH6txyLn0 XIw37GP+9fG3+whreWrh5Nni/7jurf74WUeafS+Efe6HPeFp9k3j8/M+t1Y1 oXqusIdjBywuFH6Jxwz9dYR/s+9zsA+OvW9Ut7VpPH/eB7W9z3wIFvbN8gaT y8KP6xK+XT0+u9n3L9gnZTN7KN5qGv+f98nYzj5qxTYv6NDL52aNwo/rVl2a YanT7HsS7KNeeUod1Jrmy+d9dHGok9YgYUdvvTtnnPDjuo6jjRbaNfs+A/us wYqyruZN8+vzPqs2eL7uOmFLlM8sdRd+XBeT1N0+stn3DdiHs1+m9vdXlOv+ z10aM+SysJ5e3useKMr364VWSpteNfs+APv0zq3RhtlN8/fzPj1zdL9RjUkV pN/JyVlLzG9cp/xM5mLUTE+PfbyvyqGxOs30bQ1J6lPGCZt1bN5v85rp307b pfo4N9ObY59P8dox3a6ZLizE6tUsd2GdB40JONZMD2pR+2fwnWZ6bNQBIz31 v3vcTCd5vNo+armwvj/5pb82lNcLH2NTZu2NlF+Hdb2t5QmDet2X5Fp5rnD6 ibP0UfX4EcfQs7Tm9p65WWKdOG2x3bBCrCfT1LIWuYh5X5E6M/UrYYu+W+N3 RMzjXXXlrfoKGztw95LspvNWr/guR4VVM5223U7Ms9nHfjMY1HR+Ytnp4Csx b45Hzza/LGzw0qI/nMU8qLzXa8U4Yd8Yz1m2t+m8cfXb+OXCHro7av19MU7H vsv566ywo6fr7vifGHeynTezX4vxWZLV2nOOGEdebU+W/iCs5+KqgCAxLgz8 Pd/saDqHq0w/UST6Obv7+lYJwmY5xlwYIPpt58k57dWFdf4UFOfQxE99b9J1 hrB67ntSLoq8plzV7R/QlF/36MrtIk9Gui5dHIRtXxTVs3vEPpJNdW4dHbKP FIM8vp8r9r1Mw58WTREW6znyin0R/8c6jv0Q9+P7qVrpWx1fYXF/3MfLXbed wa8XKFG7m2yiqN8W2Pf74YKo0z58H3bSWNjXPtdXJYu6zGfuyBwrYd1irEIK RR3Wd0da+1XCete8Wdko6q68GcN63RI2WzF+j7uoswba/T3SXNi+2r8FaT3L pl82J83MFvXV2gGzLx8TdVS8p/8aO2EXBnvLtEXdpJo2ZHy9bgEp93eqmy/q pEhrLUsS9nTUPMVQURfNKGpYsFdYC+MxHcpEHfR+Vf7P94V9e6dvtyGi7gl+ e3fj/4Q9Yq4+wFHUOeN3nnGZI+zYrJeG10RdU97GxydIWJntk7GtulaTt59T cJGoZ7wqYqdPEnXL8O7zzwxo0n2OtDyXIOqUVRk6uZeFrb3b6fyIUeFkl99u 5YKR4aT3R4zp1NortNDkQtdFor496fxqhqmoYydMcLh5z+YOmZxwc50t6tYc e5W650n3qXxZhwWXRZ1qlDRNc5uwBpuzncaJutQlt9N3asLu9Dzh/UDUoak1 RZP8hU0+uvb0PFF3dlE6b6sjrMfT7oWvRZ2p3+66yWNhhy5RqvlB1JVZ/sfN ugn7uFL2YYeoI517uM1ZLOw2p1S1BFE36kWsXhohrK5CtJb60VJK/t5qXbWo FxPdA3VniLpw7TUjZwNh13y9Y0iAqAO1J/T4bYuwmkFLR+WJui82VSkgXtir fc2m6DXp8+aWhakKOzTrm0GGoq5TXlc6t6+w/wcnu89c "], {{ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 0.3], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNmXn8l1MWx+/9ZpcRKRFSKkphbEnIkhApZa9IJCWJ0aKNbJliypp935mx jH3ft2zZs4YZa5bsZgZz3q/7fl6PP87v3Pvc5XzOueee5/N8f22HHTlgTCOl tDD+NAm9Zk5phZD/RPvE0EuEXjZk+Wi/EvrRkM7R/lPIf6N9cuiTQiaHTAgZ H7JHSDPXLRfSP/rbhmzIuugvHbJMyIpq5q3k3OVD1glZLWT1kBNizfSQqbn0 mbdyyKqp7MUerdTYbO1485DRsWavkIEhbV3D3JYhK7i+TUgLn62tZl4754Kj vVjYe7uQzUI2V3ciHiFjwsZ+Ifvk8mwt9+6sZu/11WDposZOVzV+b6DG5obq DiEbqTuGjA0bQ0IG5YKvmXHpIMY1xNdZm93U2NxCjc3uamxuqcZmDzU2t1L/ OeTosHdQyIEhPaO/ScimIduqN1OvZ1zaxLyVQn6L9hchb4YsCNlefODaWRtb h+woJrD0VoNl15BtUrG5mxqb/dxrh5ADQvqH7BHS13HOanc183ZyP+wNDRkQ MtB17NHL9b3Esm9IH+3v6Xrw7qXeJWQ/x8G1vxr7Q8TXXxu9XT/IcXANVjPv QG2DaXLI6JAjxNXNczsmZHjIoSEjxIf9YeID1yER74ND9o72YY6Da6R6kHsP MWa93Ju4j3IcXIerh2hvH+0daewOEt8BYh+jZmzcHzAeJb6DQ/4SuDYL2ZQ6 4TgYJ6jBOEnbYByrHdZPdByMx6oPd3yg/reLfVuELBkyRXzgOib63UO2CDnO fcF1vProkPYxtmrI0iF/1QZYTgS3sT9Z38B+ks/oz9AHMJ6qZv0/Qy4PuSJk pvtxtqelgm9qyOnqaSF/U4NxthqMIwLTodTBaJ8ZcoK4zlKD5Ww1GM9RnxJy rnqGerxY5/oMvOep8ft8NXgvERNYLgyZJfaL1GC/WM28S507J+Qq8YGrA3Uq ZNlcYnGGflypZt7Vzj1HO5ON0TU+w49/aA9c14sbvDeoL1Bmusd1+sm8Gx3D j5vU+HGz+4H9FvVlIX93HHvXap+9bvc8wX6HGl/vVOPHXWqw361mj3vU4LpX jR/3qfHjfjV4H1CD90E1uB5SE4+H1fjxgutZ96KadY+H3JZKPj6hxo8n1fjx lBo/nlbjxzNq/HhWjR/z1PjxnBo/nleD4xFxEVdynLtI/XhJXPjxvutZ97L+ sO4VNXzj9ZDH9OMNNX68qcaPBWr8eEuNH2+r8eMdNX68q8aPaeKiLswXFzgW iou4fqAmrh+q8eMjNev+pcaPf6vxY1zk/VYhPUI+jf5r+vSZGp8+V+PTe+Ii LrwPeBfx/likn/i3duzVHH4W8q1xBO9i19P/Wp/x9Rs1Y985F59+0B/8+FGN H/AtOAV87HvnMo93AHWb+v6Tc/F1uu95uBdc71fXwgXhd/BIOOP/bMMB4V/w MHgftirOiIbP/ezeH6fCSeGbcNSKO7IefvF7Knyv4kzwGHgRPApeBS/LuXAn 7KzuOOvhei1TzSNX1YfWzoM7tnb/iiPC5/YxBryP4ZgpF97VwvG19GM194Uf 43NDG23dq5UY27oG3rSe9jvoE5yS9hqp5pSdUs0pO6eaO3YVd3ufVVxz/VRz zS7GvaV44e9wfeK6vty/kWreuaGY4HZwPrgYnKdPqvnl5qnml91SzR0rLomG z8F94BhwEXIXHrV1qvnoFvpT8euK8+2qzxXHhIc2yWUt9uBJFa9EVzwdva32 4V+99aGnfmCvl+srHtw91by2p/0dnQf3xS/4cPUOuD3V/A++BeeDFw1xHXe4 4pV7OF5x075iGug8uAs8Dm5ZcU24zXi/n7grcP9GLhh2cnygfvdzX+wcKI4d tNlPn/qKlzXwp6HaHuqafmKH//GNwVl21M4w18Axh4lvV/3eN9W8ljOGiy6V C/fr4/g+zoXvUUeq9zHvueodfLO44W+j3Qu+NzLV3HRUqnnnEWI/0j78El6H Xfjc8alwPHCPdR7Yj7I/RDvsC6eDR8GrhtuH/3HXx9lnLvxkkpjgexNSzU0n immK88A01X7FO49LNfcdL6Zpzhvr+DRtg+UE8U3SRsXDiF/F+c52DP52qvue 4jh2Kg7IHjOdB75Z9isOCp/7KpV35zviPs15FWc9LdV8l33hqMvkwv0q/spe 8NbZ+lzx0XNSzV/PTDV/Pcu95jqv4qZztY2vFxgL1p2Ras56nj5cYH+cfrN3 xSd4H48wLuNSzV8v0jb8jTsNTyUX52gDvne5GK92Hj5cYx/b8Df4XMXz7taH a5039w/jFfe9ItX8795Uc9nr9eNG+8vlci8uEy98D/4Hb73ZPvjgdbe57+32 Kw56l36y7qZUc9Y7Us1Z70w1N8WH6rvxMM/yEu1XPO+5VHPQh1LNWe9PNWd9 QIyPOI9vMNq3pJqDwuHIkUu1gQ9wvMdSzVkfTzX3fTDV3PTpVPPXJ1PNX58S xwtirTjrs6nmrPNSzZVfcN+X7IOVfJmfau77jPbnO+/LVLjY26nm7sSm+v1i R32A472Wav76eqr56xup5q9vppq/Lkg171yYai77Vqr5a8Vn33EMn+B97+nz QvsV//s61fz1g1Rz1o9SzVnpw1NpvyJuOOsnqeasn6aas34m7i/sg3uR/beM 0SLxfWV/nhgrH752jGeLxdorMOzg+wOscNDvxP6D/VExNkBOudDxb1PNZX/Q n5/sH8fvAvKbU+STS+j3z8573z0Wp5rfY/P4mD9NXst7Ge7CO/qI0PvK/44M GSzXbCYfbhpyeLT3lKceFXpo9f4OWVkes4q/W7An79Ql/Q1nZTk+PAdeyp7N jc9EY9TS3y14x20cupW1uJXf3NQx7hbty0KvnktNob1T6N72W+fyOy/fXH3A Yn+NkKa58PDdQ/e1Tzzh5XDyrqE72e+Yiw3239J92XMt49JUP+Du+NLEOGxt XJsbh7bGZRfj0cKYdNNn/MVvfreZnmqf5+jramLgnPn24KzBzVnjyzb6Vn1f dDInVswFKzjB28azBOPaucbYVmxgbJdrjOuIE4ztPRtwdcg1ro5iIzbrGufj 9QdfeubyWzy52iUXXk6aobv4nPGuxpzf5DfIxc+NcuGKS6bCF2nzLbaJYzzv b3upVHIIzgRfgp9samyJzXqeNc828/nmtg9JRXfzObW9u2eN3tI29rcVwyPO 4zn5Ra15xTvYw7PgW3kb2/jaU38Z38rn/N7OvVsz2lv7/NVob6ct/No5l/wm t7kr/P6Irzvmcn+Wci5ruNdLOU4cJjoHH1nPHeGddax73prKme0ifp4f4zz2 2949+Xbj+xP+PCmX3wJYQ7uPmEfmcq9+SSUXdjMfiHtf87Wfc5p6Jv1s873M NzbnjC/99X0j28SeGskc8p9aOcD2bmLA1gTnkRvEFdx8b1KzqF3V/1Nor2J9 2FX8fKsOdD56L9t722Z+B2NBHJJnxxzGmZfce6C2qLfcQ+7g/saQs6a+UmfX TeW7hO8TvoOouYPdn9o61Oc8G5Tr/5sMdi3PhjiHuQfa5tuONrXoAOcwH357 WC41hmeMYedobW2cyr2F73KPuf98I1HLh9k+2L0Pcn/0sFzqH+OHOGe4bfaY 7Z5z1CNsMz7cHB7mnmAgTsQri5f54CIvtzCHifloz2VP2wP14yj34fnhzuGs jjD+7D/GNnEYa3wG2x7k2Y4xh8ipUeYV+TvSnD7I2G1sfRjvHOoG9+hWMR8j 7qHOJ37cUe4yNYl7P8483MV2D/eb4J4DbO+hMLactYt9uOOdG3GPc6nN5ADv eL6tsX+seB4OfZWxfTzkanPg6ZBrPMeXQ24yT54Pud4zujOkWaPUhSVCX5HL 3bo/9JW55D/vHngJ71PqHVyF32H4H+uU6nnoi3O5x9QXOMny6qm2+T3nZOfz exfP4Q78/sTvUPzOw+892FpCmzOcv3YYbNcoZ7VS6OaNUgebhr4ll1p7fsif GqXO/BbtFRql3qwc+hPj2TrayzZK3FYP/Vou9XjVaK/WKDX0upCPc3lfLg75 NpfadpJ4TvR8JrrnKrHuhVzqd6tof+m5vBv6jlzwUJeorVUuTDI3iN9k49kl /szN5d37VcjXudTdrvH8vFzee20axWf8fYN8b5R6t37oc3PhN+tF+8xc3vPr RPuuXGrWutGelwsXWC7ayzRKXrcPfVounKJltJdulHfpeyGzXNspnr2UC6fp EO1ncuEa94QszOU+PhD6g1zu4COhP8zlDj4R+qNc7tRk48hZV+fNu2KGzzlr 7FFnfzU+Jxsj/udOPlF74RbwPPKRM3/XOM8wf9h3umuY3zHmzMmFE3HG3J3e 7neCOTrFPZuYm9PNz2niqfjhdNttY8/vcnk/vhP67Vy4TyOeX5gL573b+BJb 4ve5MZzl2eDrs7ngAxv7fe+eTeLZJbnwo89C5udSM1/PJVfIk9meB2fBud2Q y9ldnst95i5/E+21GiXfuN/35vKc2vB7LvWB2pAbpT6cYa6QJ2d59mA+J5d6 RC06PWTJRuHKL5pz5Nur5iJ5uMDcJW+5fy0a5b6QIw+ZJ9SM23OpG9SbB3Op OdSwJ3OpY9S2R3OpbxflUmuYT349Zo6R+4tysftLyM+5cM8fQ37KhUOTg0+Z h9zR1tYB8vc+c3gmeZcLZ+VSXpDL99D/ASfCvCA= "]], PolygonBox[CompressedData[" 1:eJwtlEdPVkEYhe9clCBGRBDEAvgBihoLgtiiGIxGg0YSFyxYuCCaGIkSfoI7 NfYSaywrC7Fg773XqNiNbtTYYkssxPoc33fxfGfemXvvN3PmzCTqGqbOiaMo qoU28DNE0Qb4RTsNvQSDeaAOLaXvupR6BlpDvQ5dDBl6Dl7CMsiCAngBSyAT esJRKOf9evQv759DS6inocXUHWivpZ1MuwQ9BYPoq0Vz6fuBLoCB0A9+B5tz mvcFno2hlHYKzIdv0BcGwFkYxniDnoV70IV6AjoRTsJQ6tloBAegI3Wlz2me vIH+4f9wtIef9oyPQkfDQ+hBXYVOhsdaN/UUtBr2QRJ1GdqW91+jKzQHKFIf Y1vcm05S/Uls3ibBbSijnonOZegt+sbb+sYTX7PWmgvrYSXkBPPkIgzn/UY0 hjXwGfpo3vAcFgX773zYoXXzfLl8gZsaox6Hjofv8FV7EJnHx7QPjNegnekr oJ2A1sg8WOj/oW+nwyHYDHnyWcqz+bF52cI7H91TeVmsNTH2yccmudcPgrWr fG0XPKuNvtdnPFsNnqXTvve1vtcnPFva867UOdAcWSayaGfHtvbp9H3xPa12 z5TlI77Wet+bO5497VEmdUZs78qzdNqblFvqsZ6tg8Hale7dcc+ePNRZu6E9 CHbmdBYvexbqPIt7YYxnUllsRiuCZVJn67zvtc7YkNgyqOzNQlfDB/e2OzTB LciWd7Ab7vvYSLgLO6G3vIJd0C22s5MKy4Nlusi/oey9g16ewWuwDQqD3RFX YCskgt0R8uaZZ0Ee6W7RHaK7I8Oz2ORzUyZfBbuTdBcV+txaNCef43btTWxZ Tfastga7O5TZjeifYHdNmWfxsGczz+d2Vd/wOcrbR8HOSoV7/zTYWdMevHdP Un0OS4PdiQX+jXbMJRVGBMtYSmwey1v17fc90t7oDpZ3q9xrefgPrg6UYQ== "]]}]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 0.3], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNmXn8V1Max3NPZWaYMcy+YsxmjGUsQwtaEBVpUbMQEyNbpU2r0r7ZpYWi UpH2hqkJMxmllEhFlMqSpUgZxjAM87xf531ftz8+v3PPPec8+7mf5/v6Hd6h S6vORY0aNQ6JPynGIv4cHtgQ8/MDpwZOC8yOd3sCRwX+E/O6geaBc32uFzjP sX6gpedOD7RybBBo7dgw8PvAWYEmgbaBxoEzAm1cbxRooTzsuMB37Ptj4OzA OYHfBc5UVjtlMB8bGBYYHviDejjTyfMXBi7VVmz8WH/aBy72GZ8uccSWPzkS m8s8h09/dsT2yx2x9xp1o+9K7cPejq631Q78aBq4wnfsu8h3zQJXGy9kXaUM 5h20BR86K4tzIwO9A30C12kfdnXVH/zo5oiM7o7Eo4cj/vXyXEflddTGPo74 9N/AtYGBgf7ait99XcfensrDjn6+Y98gbcKWAeYGP65XRidlX6zdNzjnzCe+ 7xIYpU3oHKoPPc1/T2Mw3BGfRjji02jPYdcYR/y40RFbbg8MUfYt2oHtN7mO 7YP1g1h+6p6bPdddm25zH+9uVQbzVwMvBTYH7lAPtr8SeNG1z9Q9KTDeHOP3 BEf8mOiIH3c54sdkz6LzHkdsudcR/2YoF3nTinx/7gxMcR277lYefk/1Hfvu Vzc6pwfGKes+ZYwTI7R7pno4szQwLzA/sMAzyHhQu7F3tiP2znGc4rmp2rvQ c/ixyBE9f3HExr8F5nrur+pA9kOuPyDu0tfP3fNw4H/aMyuwRDuQtVgZc/R1 uH4+so9PzweeDqwNPOF5bPm7tmLjPxyx5QvtWxZ43Gf0LPccMVvhiJ4nHR9V zz/V85Q6kL3S9cdcX6wdq3zHvmfUgew16mYv5MDzavcu1O7Sn+XKXuDaC64h 7zl1o2e9I3btl7IOuGaj+rB9k+eeLXLtM64r8h1Yp7zt7mP9Zc8T482ur/fc CmMDr7FnizKe1KZt2oqsrcp4wbxRU9RiSlnHa4G68fytlO/izsDrgR1iq/Le cMTGNx25x285ctd3eYa97ziy911H9v4r8F5gj9jl3lop694dqJmyDW+7d6f7 9k/5/IeB2imvvR/Yqwz0wIXwEpzygTpYb+I7+AXehV/gvDYhp3Xgy4HjAgfs 0wvAlfQDZR/AHP5v6fmyD2Be9gHMz1IPfAavw33wIvzfxn3/NhbY2Mh11r6U 8tpHReZ7ZJT8305Z9bUdm+DYC/UZHoIL4IbjQ85XU8X/cEr7ouL7S7QV/rpU fzq4VvYHnOEOULdri6onuEx74c3LtekK59h4pfOWyu5gPODGq8zDNc6xu5Pz ss9ABz3CRfoGOrsPm+DKLu7tpc8l93ctKu7vVlTc3127ezovub9XUXF/b23v 6xw98N1A7YMT++tDP/edGDE+KGXevtr1fsavqzJ+G+sHp9xT4MMAZVHj3MGt 7h2kPmyFSwerA+4bVVTcP7SouH9YUXH/cH0Y6bzk/tFFxf1j1H2Tc2TBd7er Hw6FU08Je7+RMuf3Uf9I7WP9ZvXBDWO1FxllL3CbsnqoY4i2jlUfHAk3zVQe HDSpqLh/fFFx/4Si4v6J2n2385L7JxcV99+jLVOcT1DPDO3l+zdNO6a6j3iN 28efaa6N1JaS+5FR9gLTldVNnwdp0wP6BhfBM4+7Dx6ZX1Tc/2BRcf9s7Zjr HN3znKNnoefLPmBhUfUBi9wHhy5RLtz6sHY85L5p6kfuaZHb76XcC/AOnl2q 7iVFxf+LlTVZubM8v1R99UPGd1LuIzj3hD5jE9z7WFH1AcwbxN4fpKoXIDbL lLXc82UfsLyo+oAVyoVL1ygLvoV34eiV7lvg/BF1r3JtofNH1YkMeL9R2PKj lHsBvrXc7Su1Y6360A3vlt9BuLTsfRg3qgOOXldUPQHzY0PuBYGvpHx+k+fP iPmhKfcLZU+wSXl8D/gunOXvVni+7BVeVO5m5xvdu8U1uHi7OrYpa437Nqhj u2ucf9UzfIvgWTi3aej7Wco8/LJrrylrh/OyJyj7hF2eL/kePoaf4Tg4+ryQ dWTKvA0nf+Aa5/a493x/i8PzzQO/SLkvQNZe950d8yNS7l92em63suBNeoNW sXZ0ylyK/ewlPnA63F4ncKA8D79/TZ6EH/le852GX+CaT3wPh37s/mPNJ3IO 8bsOR3zT7yXfRr5pn/n8bXsrvm9flyuQ/13vDXeKu/W5z9/3XnJ/+d5+qvyy 9yLu3J0v3EM9U7/co58am9fMO/VFnR9mrZV9aeHzT6yvLea1pmd/bv7fNq+1 fCbGxJU4/8p8kt9fmity8UPv9zLzU9v3P/aeYc+vzfOH5m5/5ZQ9JX4eYw4/ KqqecpfxgJuISeOU5a7WrqOVeULKeW1vDg/ymTzQ65KXhinbusxY8l0innVS ziV7uH9nGiv6xGO056SUc9nFvPEtJXenppxXnk9POZfl7yy+k5OsveOsv5NT rqGB1t3ByqzpHSQXzVLOB/FvknLOtljXR/jcMuWY4nuLlHPzvnE9yudzUq4P ZOLTYfpVw28gcaiXcr1Ost7pIZtbR4ca51reTew5N+Xc7zbPR/o8WZ8nWUtN rSf0n22N0msf6z0iPyeYI3T+JlV383jvJ/E+0ftDfk7xvmFvXe8Y+WyQqnye bvyJ9QHqIlenmiPq6GTjT37q6Tt5O817SL3UsR7IbX3vLfk5x3iSt5PMHbFs aDyJx7nGhDg1T1X8mhlD8sm3vjCfTcwpOeS7Wdu6a5WqGm9prskhXLKf9wA+ q2GuGpsv6oselPrid05ra5h64Zu7v/E+0JhTLy2sGfoK+hL6kfnxbq/678Mn /bg78I62jw/sSvneME7w+d7AuynH7OrAdvM/L7DV2t0ZGKvtgwPrrcUugVdS rov7A+9ZZ72Ifcqx7x54NeU6og+AL+HVETF/M+Wc30K8U87PHepD15jAWynX S7/A6ynXxYDAcynX2nWBZ1OuwXGBTSnH/p7ASynX9V2BF1POJ3puVdeOwA0p 1xF6blQXevqrq29gXcq5mhbYnPK9mUktpFw73QLPpHwnhgc2pFyPiwLbrJHR gY0p1+/tgResiwcDL6dcUzcHnk/5rgzUPmwbEngj5XvQObDWmngqsDrlPgb9 XbWBHF5jHolNT+NDHnqYC+J3vTEkDyPNxZrA04G25nmQuSbP15pr/Bumj/g0 Sr/w6Tb9wo+b9GVVYGXKv+lXBNqlzNPEtY+xxadO+kUtL0i5non3VGNODiea R+p6Usq1TZ4nm2tq8IGU65Aa7J1yHZKrGeaLnCw0L9T+lJTrnzzMMhfU/tyU 65//RcxJ+f6Rh6Hmgns2PeW7Rt3dmXLt/R8vxF/p "]], PolygonBox[CompressedData[" 1:eJwt1EVzFWEQheFbNBvcXYM7wQmEEAgkhHCBXKRwCW4J7sHd3d3d3T1A8aN4 u/osns0s5vvm9OlJKypJFZdLJBJJlMcCSyQeoRMKMQeX0Ar5mItraIMCzMc9 dMAozMMttEMSN/EVI/TsORahEtLxCmtQA73xEitQDT3xGhtQC33xBptRB/3w HvvRCNn4gMNogsF4h91ogCy8xXbUQyY+4jiaYQi+4z46YjR+4DE6I4WFeIYu GIMvuIzWGI4XKEEVdMdSTEQ3PfuM82iJYcrmOtoqo084jTTkYjEmoKsy+4bb aI+RmI1zaIE8LNMd/OyqKMIxNEUOzmAWhuqMv/iJihiHMn2jf9tYPLHoRKEy OKF35iizjZiCPppRqWbms6qNtZiMXprxOs3cZ10TqzRzn3V1PFXmKWX8UDPx WXgnr1h0Ml+Z37DoZIEy9KyLUVmZn1Wmucroombg2Xun71h0NqlMLyjTPM3o gUXHvdveibuagWfvnd+Cqciw6ORWi456N+tiB6ahv0XnZmAfGmIgfuG3sq6A JRY7kq5v8OxWKxvPcDp2oT4G6OxNyjpDZ23T2X7mTBxCYwzSrNYre5/ZJCy3 6EoP/NOd/C7jLbr3x6Ib3sEjeqe/y3fsqMXO+a55x3Za7Fim7njSYsd8t5rj oMXOZutOey12NEuZrNSd/C7+DzigzDwr3/E9ysC/3Xfau3xK7/ZOX7XYSd9F /0f9B331eUs= "]]}]}, {}, {}, {}, {}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl08lXzXEcx+F7TZkyZyhSxpQ50sof4BwbG3vnWNho4T9oZSbznIxllnlI yExkCMk8Nc+qS8jzOxZPr8/72+aezi1xUcaCpeFQKFTOckdwp/jRRaOIJoZ4 kkhlLvNYyGKWkUkWOeRTRCkVVFJFNTXUUkc9DTTSRDMt/KCVNtqJMN9nWsLP 4PfaQqIPOYYE3tjNNLGNKd7K9DR93Ke0r44mnkZ7lL7SkfpaG6hnK5O9vdST 9HT3phdx1HkbriMYRqkdqye0li2k2C/0OM9JtjdrDZvYGfyNvYU55n5Gqvup VlFNCZO8bdRKNpBkP9Gj9HAf0SgdSgwV9iAdzEAe20M0T4uZ6X6k38nlIRO9 Zek31jPBfqCHuc94e51+ZS07gi+Jt049xD1m2Hf1C7dJt+/oQW4x3S7Sz9xg jn1TD3CdaXahfqKANPua7ucqU+0r+pFLzLYv6z66uXO0u67RD6xmnH1R93KB sfYqfU82A+zz2l/P6Tv6ubdrtP7VPXR1n9FZelZ384tddPCHlUSC7yettNPG Csp5Sz6/w///z/4BnrB+8A== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl01dXzwEAgOGfuqpv4WPIjKzcuVAklC39s0fIpmnvJDNlj6YVQipCZqXI SpQ6x6lrzzkunm/wvoOT0yaHBgVBUENUWBAMITI8COJ4TD11xLOYT6Rwk1Se E2IqS/hMGqUspZFlTGMFHSynjJW8YBUJrOELqylnLS9JZzrr+co6KtjAKzJI ZBPf2Eglm2liCzPYxne2UsV2XrODmWTyg53cIos3ZDOLXDrJ4TZ5vGUXSezh J7u5w17esY9kDtDFfu5ykPccYjZH+MVh7nGUDxxjDsf5TT7VFNDMCeZykm4K uc8pWjjNPM7SwxkecI5WiphPMX84z0NK+MgFFnCJXi5Sw2XauMJCrtHHVR5x nXZusIhanvKEZzQwhQgGdNfPX/roppMOWmiijmpKKSafPDIIkcgkYpnIBMYz jrHEMIbRRDOKkYxgOMMYGvb/g3+a43oB "]]}}}], AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{Automatic, Automatic}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "ScalingFunctions" -> None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True}, PlotRange->{{0, 1.1}, {0, 1.1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7155337811374607`*^9, 3.715533823544011*^9}, 3.71553769906602*^9, 3.7155383723884172`*^9, 3.747561530545117*^9},ExpressionUUID->"36eb2ad2-1343-438e-8580-\ 522de3dab5e5"] }, Open ]], Cell["\<\ Aplicando el teorema de Green y haciendo la integral de la divergencia, \ tenemos que:\ \>", "Text", CellChangeTimes->{{3.7155338321823263`*^9, 3.715533843631269*^9}, { 3.747561489587554*^9, 3.747561514976688*^9}},ExpressionUUID->"aff38f8f-c646-4fb2-88d5-\ ff6c181b649d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ SubsuperscriptBox["\[Integral]", SuperscriptBox["x", "2"], "x"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"m", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.7155376833612432`*^9, 3.715537688700255*^9}, { 3.7475615173327427`*^9, 3.7475615178397503`*^9}, {3.747563940597402*^9, 3.747563947616581*^9}, {3.747564162124711*^9, 3.747564168301996*^9}},ExpressionUUID->"93d95602-c230-4d3d-b811-\ e3ea078ed34a"], Cell[BoxData[ RowBox[{"-", FractionBox["1", "12"]}]], "Output", CellChangeTimes->{ 3.71553770262075*^9, 3.715538372406431*^9, {3.747561522026634*^9, 3.747561531870875*^9}, 3.747563949229817*^9, 3.7475641688814774`*^9},ExpressionUUID->"b7e334f9-33a6-4d55-a500-\ 4de286c127b0"] }, Open ]], Cell["Realizando la integral en C, tendriamos lo siguiente:", "Text", CellChangeTimes->{{3.747561576241007*^9, 3.747561599293132*^9}},ExpressionUUID->"4867f22a-48b0-4f9f-b931-\ d5dc4a32b2fe"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "3"], "+", RowBox[{"2", "*", SuperscriptBox["x", "5"]}]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "+", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "0"], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"2", "*", SuperscriptBox["x", "3"]}]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.7475616231443653`*^9, 3.74756181681137*^9}, { 3.747563992183989*^9, 3.7475640210003777`*^9}, {3.747564181655992*^9, 3.7475642479926662`*^9}},ExpressionUUID->"f76237dc-cc28-4cee-b919-\ 4498eda4a0ef"], Cell[BoxData[ FractionBox["3", "4"]], "Output", CellChangeTimes->{3.747561774524365*^9, 3.747561820418014*^9, 3.747564023214553*^9, 3.7475642532399397`*^9},ExpressionUUID->"73f46a0b-7c35-4272-97d5-\ 14927899a6f2"] }, Open ]], Cell["\<\ Aplicando el teorema de Green y haciendo la integral de la divergencia, \ tenemos que:\ \>", "Text", CellChangeTimes->{{3.7155338321823263`*^9, 3.715533843631269*^9}, { 3.747561489587554*^9, 3.747561514976688*^9}},ExpressionUUID->"31d02447-abfa-46f6-9047-\ 59ad4938c4ad"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ SubsuperscriptBox["\[Integral]", SuperscriptBox["x", "2"], "x"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"m", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.7155376833612432`*^9, 3.715537688700255*^9}, { 3.7475615173327427`*^9, 3.7475615178397503`*^9}, {3.747563940597402*^9, 3.747563947616581*^9}},ExpressionUUID->"95afaaa7-2374-400a-a9e4-\ 54339991f4d1"], Cell[BoxData[ FractionBox["1", "5"]], "Output", CellChangeTimes->{ 3.71553770262075*^9, 3.715538372406431*^9, {3.747561522026634*^9, 3.747561531870875*^9}, 3.747563949229817*^9},ExpressionUUID->"ec655571-a986-4d19-a648-\ d786934832b3"] }, Open ]], Cell["Realizando la integral en C, tendriamos lo siguiente:", "Text", CellChangeTimes->{{3.747561576241007*^9, 3.747561599293132*^9}},ExpressionUUID->"47349c1f-173e-4df0-acc1-\ 08b2d2f21e9c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", SuperscriptBox["x", "4"]}], "-", SuperscriptBox["x", "4"]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "+", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "0"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", SuperscriptBox["x", "3"]}], "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.7475616231443653`*^9, 3.74756181681137*^9}, { 3.747563992183989*^9, 3.7475640210003777`*^9}, {3.747585919994726*^9, 3.7475859202563543`*^9}, {3.747585976644991*^9, 3.747585977441052*^9}},ExpressionUUID->"36412a9b-8f5c-47c5-b237-\ 38657ec005bf"], Cell[BoxData[ FractionBox["1", "30"]], "Output", CellChangeTimes->{3.747561774524365*^9, 3.747561820418014*^9, 3.747564023214553*^9, 3.747585929171639*^9, 3.7475859777123613`*^9},ExpressionUUID->"cc81e641-ccca-494c-b4b4-\ 07327040e2be"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"m", ",", "n", ",", "c1"}], "]"}]], "Input", CellChangeTimes->{{3.715533983347557*^9, 3.715533992366042*^9}},ExpressionUUID->"e3cc5b41-837f-4d8a-a6de-\ 44a44d885319"] }, Open ]], Cell[CellGroupData[{ Cell["Problema 12:", "Section", CellChangeTimes->{{3.7155339769442883`*^9, 3.7155339807172956`*^9}},ExpressionUUID->"7d1fe8e4-82a4-4f4c-91f0-\ 1277c3de6d6b"], Cell["Planteamos:", "Text", CellChangeTimes->{{3.715534011739319*^9, 3.715534016461343*^9}},ExpressionUUID->"c0b9555e-a113-47fa-95d8-\ 2b790919c94c"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", SuperscriptBox["y", "2"]}]], "Input", CellChangeTimes->{{3.715534018915473*^9, 3.715534030818739*^9}},ExpressionUUID->"48668205-453f-4b50-9494-\ d7d2ef308c98"], Cell[BoxData[ RowBox[{ RowBox[{"n", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", SuperscriptBox["x", "2"]}]], "Input", CellChangeTimes->{{3.715534033442649*^9, 3.7155340431013527`*^9}},ExpressionUUID->"3d5f2893-9b39-4cc6-b2c0-\ 7197e824a713"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RegionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"y", "<", RowBox[{"1", "-", "x"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1.1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.715533695933025*^9, 3.715533800837878*^9}, { 3.7155341105742607`*^9, 3.715534143992723*^9}},ExpressionUUID->"0a33826b-f60d-4839-ac21-\ c714efca4a1f"], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJx1l2lU1mUaxhGNPGSKJJqmZyRRCXPPFfVm1MYUJdTGzFxAzNFIcKVhnEFD ekVDHIIMRY2Ug0ivO4TihoqCBLLLIrEp+/ImBCqGzvTh9+ec5z3w5TnXn2e5 r+u+7vt5XuvVnos+MzUxMTnZxcTkz3HvsT2t7X08ZzDe8I66vjrilIB77DVJ co24quHD7n37zbW/o+Fx3+rnuUakaXjNcuvrV3RZGj7jWZ//gf19Dbf5xjXl GAo0/P4B3x6uEb9qODlnWLCXvlTDHit7hF/RlWu4T/VjvanrIw3Hb8q79IF9 pYZdnl+5E2hVrWGzr49l5xhqNKzv6V86IKVOw4tCNzS4RDRo+Kn14rZIH4N0 pos6og8YfcDoA0YfMPqA0QeMPmD0AaMPGH3A6ANGHzD6gNEHjD6d+ULVQR3R A4weYPQAowcYPcDoAUYPMHqA0QOMHmD0AKMHGD06qwM17ypvdYQ/GP5g+IPh D4Y/GP5g+IPhD4Y/GP5g+HdW56qv1byqPNURvmD4guELhi8YvmD4guELhi8Y vp31LbVOVZ+qeVN5qSP8wPADww8MPzD8wPADw6+zvqv2GbXOVN+peVF5qCN8 wPABwwcMHzB8Orsn1L6o9gW1TlQfqbqrcasj8YOJH0z8nd1jat9W+5Zax6rP VV+ouqpxqiPxdnavqveI2kfVvqLWnepTNc+qbmpc6r2u3mNqH1f7mlr3ap2o PlPzpr4j1HtTvTfUPqr2GbUuVV+r7xT1XlbvJbVPq31MrXv13aPe8+o9p/Z9 tS+q7yb1naDek+q9ob6z1HeFeq+q7zD13aG+y4auKG3eFdQodp88Pbsm4ojs yG6rnB5XL15unwfPtf9ZCuZaFT4pqpWFSx3br+huyviE0WnnTGukyqdsTK7h ruybOC/B3bZKrmXZn/fSZ0iVfs2FoU4VYl5plmrqmiN/HbIjsmTLQ/noWWZF oFW+hB38869MwnsceTkg5YHU/mVd/xM+JdrId+axjn3Yl3M4lziIiziJGx7w gie80QF9VvsF/Gdyi0EY+a7OC7ze/0ur7gZ53i80eF3EPkFXMP/nHHUfdZ66 D+v4vxo3mDxXT3jv8/SRDTLC+Qfvq7rzRrzB+Gam3mnFnsV1or/32W9e+gQj 3cDau+vt9c6zvGtkZsvzIfutko10B1MHraG7ZrUfrZK8t779+IRPulHewNSh c6+jE+MSK2SSdcjtki3ZRnkH0xeiv774zqbah+L73qoSd9s8I9+A6Vvd/sga OMKiXNLm2D17UlRo5DswfXbl5oZeFRNK5c1PWyz9goqN5oHpx5sze5nNiCuS cZNc+nYfYhwHmP45/Nrs+nOmBZKf8P4Qp/ZyI55g+l9RtHfWUKdc8Zk3YkxI 3iMjHcH0s6DvT188eDBTbHIspheeqzTKE5h+FdA9afpbKb9IyorWuYMDqo18 AKY/tZaNMe/qmigbqx4sWbvW2GdgrX95TTiVa7gkfTfdcNM7GPsYTL8asdgy YJ59pFxpi9zYNKBR+848vjOPcziXcziXuOFB3PBAB3RBB3RBV3RGV3QmT+SN PJE38o4PyDs+wEf4Ch/hK3yJ//AlPsXn+A2f43vqBn9RN9QRdYifqEPqkrrG P9Q1dU6fwC/0CfoGfQd/0HfoQ/Qx/EAfo6+Rb/qk2kfxx6mRx93zM85rfvji 6j/W+2UmaPk3fdR++PDUZC3foeYhGTHH07X8hr5p5btWl63ls3xEaVjT1Dwt f6Pkp1gfQ6GWr38u8ko3jyjW8lN+Pnyr47sdfcd/mu6rILOOvjXqjntgXmnH eyfnw4Vhgy53vE/+VTAxyu27jvfFYLeBsSc9O/r2nfouNw1zO/r+F15V9ybY NEroua3JlpMaNP83Dd9/OXV5neb3+UdPntb5dtzfkX0Sf3SI6ri/Tb4pDmlL 67i/l3V5tjumueP+jvnyje0e/cs1f/ZsHOlhK6WaH7OS/3sz8W6R5j//2NtR k60KNL9NO9YWqHfJ1fzVFDh622B9puanBU+Sf7Y1/KL5Jy5j3C4LXaLml1kf Tfnhtynxmj9G9RywcWd6pNH9bWmS9mD7C4PMsF+Wu7R3xz2KTujGOvZBV3Tm HM4lD+SFuIiTvJFHeMCLPJN3eKMDvsAn6IRu+AhfoSs64zt8SB7ICz7Ft+SN POJrfE6eyTt1QF3gC3xC3VBH+AhfUWfUHb7Dh9QldYpP8S11TF3ja3xO3dMH qAPqwrxb3BCHlv1G7yt8Mm7+kTUemY2yepDjmoKMYxJwM+5j2yf1UvRgYf8j Uy9K5eSseeUD68SvjySs1d0ShzP10w/PrJEB9rnNPoYUOTT01bFL1lVJ/tnY YMd3M+X3MGsbi8AKsUnceSqvNEecLKf1S7nwUDzyHJPcvsuXKP8l5n4FZRJf 27fMMLdIur4oa9v+okQb+c481rEP+3IO5xIHcREnccMDXvCENzq80tvCPeia QX76qrV6TssOWbXbbqXjowb5W+zlCr/Ms3KpffbCV8zrZbNp9fzY49flja2r Zl8fXSsZw80Lm6YmyYZa70nef6+WNU7hr78WcU+SXELsxm+vFJ+pYeFBZtli nXd6UEP4I0lesDZ+0OX7sn3BXYsTd8qlj+vYnJOehZJ762FX1/pSWbn1j4YJ NsXayHfmsY592JdzOJc4iIs4iRse8IInvNEBXb5Z0Bzdpluk/U6g76i/I5gX dvp+1cs5BgltWO/qm35A8yG+jDoSvLR2t/Hvh7Hpr3pnpB7V1rEP81jHPNa1 2DwuvLShQYKSdS8tdDHyYdhr97YE10nx3k8uDNbfkJO9h90YealGtp4zVE62 uitd/R1iqoqrxKx+5j5byZAVL5ad+LFbpTi/fP1ETHO2xG3dduhTu///jrcs SHCIypPedfv3WTmXS+XQiMLU5Q/E3TV6Z/q2Uhk3xfP3pb1LJODMnirLSb/K jGGDdjetLhOHw9fSdL4F8uiMacjk6Q+l1b/5QltaruydUh3u069CorfZHvLo nyVjbqWdSnxcKQmJ8Sa376bK/fkX4s1Tq8XuqE2a3uW2/Pt+aJJzZK0MNwwc /47hsrzt4pNzYGe9PJ1V9v3jKdGSXONWVrSsURv5zjzWsQ/7cg7nEgdxESdx wwNe8IQ3OqALOqEbOqIrOqM7eSAv5Im8kUfySp7J+/8AHo7Wlg== "], {{ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 0.3], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxVl3sc1+MVx58nXYiIRO5d0E10kUu51HSnqHQRkW4KFWlUiqJGWmXNzGpW LGu2kVXuNja2zGbLomZjbqshmjHbMNvO+/W8v6/f9sf5ned6znnO85zP5/tr MXbakKl1Ukp142e30PuH5BDGmqoZP0BdN+RAdb2QZur6IQepG4QcrN495KiQ Jto+xLE9Qg4LaRiyZ8gRIXuFNAppEbJ3yD4hJ4W0DmkT0tKxxiH/CNkUsm/I odrD1uHaw9bR+uQcHZ3DT1vPQOzt1MTeXk3sx6iJt4MaP8eqDzOupuamjRq7 nfTTPKSzmjN9EvKc5+gacqS5OUFNvCeqsX2cfg7XRiPzcnHI0JBzQ07WN2c6 xTMQ+6lqYj9NTeynq7HdQ01ueqqJ/SxtYeOzkOc9R2/jJt6+xsr99DeObkpb 8zrAfveQM9XY7RVyvLYG6ocYB6mJcaR2sTEk5Az3DVX39vzoPiHD1H31085c fB6y2fMNd75fyNn6IQcjHMPfKGMlB+eriXGMceD/AseI96KQwc6dZ7zs/0/I Fv2MNVZibOid8oZWhCwP+WpIjqLbqu3xxkpcE9TkY6IaP5eoifeykAuNZZJj xH65Y8R+lfvZNzWVN0Rc09TjQq7UNz4XhVwfMi9kumPsn6I99u8WMb+sz6tD LjWWa9T4n+UefM5W4/Na9RUhc9T4n6vGZ72w/4qxz9TeFGP6oj5v0B/z8x2j f6Njs7Q9zrMtcIxYvmQc+G8Qvl7T/0LnmeNN8d5P1MYw7+bL+r7R+7slZHHI Esfws1SNvT3C/pv6/ErIzeb4Nvdhb7lj2PqaY9j7VsjXQ+5QbtXGN9TsW2kc lb35xtco/L6tvT2jvd24VmkLG6vVvMd9Ys1O7a3RN2v3jfFdrl0bcnfIt0Oa xPhfXds02n9zHg4Be5u47k5tVbzCXMUlFbcc4FzFKweai3mep+IY5uAQMBmM BvsPtV9xD+uoafAJbIITwFFqDxxtngpGEwd4C/6CrS2cg2da2t9kG975Zyrc 8wNjbe3+Jto4MtX4oLX+wNhjU41v2qYa37RLNY4Br8FasKpTqvFNB3PRVruc o6N2j3Btx1TjG/qfpsI39xkTWHt8qvFN11TjmxOM9ST7bcwZ/ee02UL/3Zwj drC8wtruzlXcc0qq8Wj7VOOhU1ONe05PNe7pkWr8xLoK48Ac8GySfeIG83ul Gq8M8Ax9nOMMfe1zhn72ibu/feI7y/3dtNHf+AY6V3HMUOMCy8H8zbaJGV4C +web317p/7lqSKpx28BU46pzjWm4fWIaYX+A5x9pfKPsV5w0SlsX2N9iGx8U HtzzgOcZqV3igwsuNC7we4zxjXGOmMY6969UuP9+4xvnXMVJ41ONkyYY93jX vaB/crTVuyNO8AlcWeE6cHmaMcEXlxrH5faJa4p9YppqHz9Xur/isKnGMd05 1oHzcAAcBYfwfurmwlvrU42rKh4Bbxfrb6ZzE907PdU4bFaqcdjsVOMw+vDV XNfXz4XDNqTCV/NS4VT8zbd/jb7n6/NG+xUXztHfAufwAYdUHLXQudccn2Me r9bn7rlw20b9gaeL9LfY/vWOwUl8N4MpYEydXL5LfpgKdy3VH3mCT+Cahrlw 24Puh49u1d5y+7d49/S3u3eJ/m9zbq9c+OmhVLgOrrgz1XjuDvevsA+nrXR/ xbXY3DsXznvYOO5INe5cpd2K8+jvtL1Cf3DV3a5bY3+XbdbvlwsXPuo6uO47 qXDgWtc3zoVHH4n2/rlw5GPRPiAXjnw8FZ68173PhDwd8oR3vMQcN4u1B4Y8 Ge1fplKLYPGvQ9algpvPpoLx8NO/U/neZe7FVO4NXGA/dvivtCPkz6nkZ1sq dUB9EhfxfS8VfmM9HHdN6BYhN/GmQjcPuS7aV4U+LGR0tGeEPjxkMm8u9BEh M6L9+1Rqb4a+fvc//hi/RM06agy8AMsGGT/t0eoXPQsCpoAnM8NPy5Bl2md8 sn622f5tKnh0Tsgf9FXFRn+D+7YZ1/Swd2gu62eFbhVye7SvDX1UyF3Ezbxv dWLoQb7/CaHPstYmhR7iOxwT+gu53At12sB8gg31zefk0Of6Zi4NPdw3dnno Ub6ZDe4hVy+ZE/JzcYz1ygVzx4XuJ75dF7qNd0rNUTPUy7wYOznkR9GeG7p1 yHejPTZ0H+t9TuijQ+6J9pWhD+EM0R4feoCYNi30QeQo2leEPjikS7Rnhz4y 5JvG+JJvkbjBR7DxVduc/efWwBPqn4V8P5X3yrcX313vpJIbap5a+FUq9bDD t8z5Xk/lHsDBv6RSc9Tte6nkcrV+uR+w9a1U7hDs+DCVHFPD1BffYZz3N/Zp /yKVemulpl/VHt9J1bfis449796ezhN3Z2On3cV5fFT1zLdFD9exv5P2Nun3 ssjrSPHkY3N2r/pp2296tqXmgj64/UfPT863m7sqb2+Yux3O3a6NP5mjV9xb 5Q2by5x/y/ZS9y4xlme8x1f1vVFf1ADv/ychT4Xsp/5pKpjzgnk4x/EnXTPX vXAc2PiU6ze752znX/fcb9i+yXmw4AHvGbxb6z08511cFGM9cnlXxEqd4pPv IL6HeAOjY+wUsfF+5zpr4xPt9M0FB8GZ3rngI1h0ei61hJ2euWANZzwjFzwd 7Z1/pi/sfarN++zzro7LpQ43mJ9mcgQ18m4qdfKufWoQLG9mzP1zwXHeALUE /8F9vH84DBwA//mf08rcfu5dfOQ61rznXvDw1FzqnzjPzIUzyPnZuWAobwm+ 473yPo/PBe8ecYw5MKprLthHrXbKBVt5kyeFnpLLG++YC85udO/fUxk/IZfa oC5OzAU3H3f+Y+2/bU4491r9wr+bPDPnHZYL9oF7I3LBR857Xi54ip2hufAB Z++cCx9QI4NzwT5y3j0XfMRml1z44GHz95FvkHvBLzg3MBc+W2Zeye9q7+RD 433fcfzyDbKfce6yT5v629Ocs7eJ8fON1lD7jzkONi4KfUEuGMw3S2PP9ag2 V5unpp6dfftr8yF9UfcP6oO6A+v5boSr33Qcv9TT7r6Nd7wPcgW21PNNsq+O 9cJ3el3r6GX7tLe6jjX810nWzgP2wYH1rofTF4ZekAvePOI5V+q/kffVPhee Xmc+4Y81avrk9phcuBY/3ThrLpj1gevuUX9gjle7d5W2uA++DzvkwrXk6dhc OHu9udzLu5sf+oaQH3vn73snO43/LmPf2/gftg+ebzEP5KRtjF2YC35Qx3wj Ust8/4AfcHK7XLAPPDs/9M25cDD7TnPvOvf3TOX7EZ4gzv8C3ja0nw== "]], PolygonBox[CompressedData[" 1:eJwtlEdoVVEURe/5fEIIIYRPECxRY+9GY8Pee429ZOLMgXHiWMUWe2yJLZao 0dh7L6ioIAgBQRAEQRAEQRAEERFxbc4ZLM66/73Pu2WfW7ZyTWV1JqU0HbLQ zVI6BD/wJliPb4An+CVYhJ+HHDxgPJbaAH/xqzAaPwZ/8CswEj8Kv/HLMB4/ Dv/wa7AEb4YSeMh4IvUEJLhOWUa9AK3gEeN21N3wDp8LrfEd8AbvDG3wnfAW r4AVeA28xF9De7wWPuCroBTfA+/xKmiL74IWzRUm4ychAzcYT6WegizcZLyA eg6K4T7jMup++IzXaE74QfiK10MXvA6+4Q3QHT8MP/Fm6IrXw3e8ETrhB+AL Xgs98CPwC78Im/FN8Ax/Dh3xffAJXweVeBMUwT3tGfUsFMLd5HMdAHeSz3km fhry4Tbj2dQzUBDvdKDuhY/4WuUGb4Q8uJX8LBebr6Uk3u0fz/QfrWVgfFtr 0t5OMj+LTKxtGDxOvkbt9RTzb2VjbjPM9zY/srjQPKu5yNoI8ywoczqb+eZ7 WRzZHGWeDWVUWRxnniVlshrfYr6XOViNbzfPjua00fwdPXsKW/Eq82y/SJ7d CeZZStEbY8yzpB7RWcwzP/uiOIs55tkojL2eZX7WBZHNvpE9ZVTZ7RfZU4aV pUGRPWVKWauIs1bmlI3h5nNTRtQ7fcx7Sz2krPc270VlXr2yHF4l75lt5neA el+/6aynmWcrL7I71Lw3lWFlrzyyowzqLhli3tu6U9SbvczvCvWoeren+V2h Hlb2B5vfLeoB9f5S86zrDvgPBC2Yiw== "]]}]}, {}, {}, {}, {}}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwt0tc3FgAAxuFP0aI0rpoio6FBUqQImS2UNhESRQMNSRpSyaiQivgq5fQX dCEX/rEe53TxnPNevVe/6Orm0qaQQCDwhwXM7zXEkkIOJVTQQCud9DDACGME mWKaOX4zQ5rDJ3TSw0VecolX3OQAo2zlMeeZ5gI32M9HEujgLL84RyOpjBDP I87wk3Ia2McwcbRTxhSnuU4KQ8TykBJ+UEo9e/nAFh5wku+c4hrJvCeG+xzn GyeoI4l3RHOPYoIco5Y9DLKZNgqZpIgadjNAFK3kM0EBV9lFP5to4ShfyaOa nfSxkbvkME4uVSTylg3c4QhjZHOFHfSynttk8oUsKtnOG9Zxi0N85jAVbOM1 a2nmIJ/I4DLdpPOM57xgPsqndPFXR6uZZRUriWQFy4kgnGUsZQmLWUQYoSz8 3/c/TptFPA== "]]}}], AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{Automatic, Automatic}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "ScalingFunctions" -> None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True}, PlotRange->{{0, 1.1}, {0, 1.1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.715534127927285*^9, 3.715534144321907*^9}, 3.715534183884674*^9, 3.71553772322864*^9, 3.715538372463616*^9},ExpressionUUID->"ab797f02-e4d1-42c4-b767-\ dea387d4f522"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"1", "-", "x"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"m", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.715533891967011*^9, 3.7155339626830263`*^9}, { 3.71553407939316*^9, 3.71553408385392*^9}, {3.7155377150086*^9, 3.715537717936685*^9}, {3.715538461626549*^9, 3.715538462312784*^9}},ExpressionUUID->"b4e536f2-f39e-429d-afda-\ 84cb31d3ddc5"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.715534087333392*^9, 3.7155341856705236`*^9, 3.715537724656782*^9, 3.715538372581707*^9, {3.715538450557096*^9, 3.715538462656311*^9}, 3.74756512795086*^9},ExpressionUUID->"3ea4e8bd-d9ba-4d43-80a0-\ 808636b5f8be"] }, Open ]], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{"m", ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.71553835417002*^9, 3.715538364352868*^9}},ExpressionUUID->"31d13491-04dc-4a90-9759-\ 5679dd0ff025"] }, Open ]], Cell[CellGroupData[{ Cell["Problema 13:", "Section", CellChangeTimes->{{3.7155387159181004`*^9, 3.715538719681554*^9}},ExpressionUUID->"e54f107d-96ed-4bbb-8f99-\ 9527435271ae"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"2", "*", SuperscriptBox["x", "2"]}], "-", RowBox[{"8", "*", "x"}], "+", "10"}]}]], "Input", CellChangeTimes->{{3.71553892527247*^9, 3.71553894030228*^9}, { 3.715539167095504*^9, 3.715539167882991*^9}},ExpressionUUID->"4f46a160-dbf9-412b-b032-\ 31dd0c9310f8"], Cell[BoxData[ RowBox[{"10", "-", RowBox[{"8", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}]], "Output", CellChangeTimes->{3.715538940664048*^9, 3.715539170705551*^9, 3.74756697224684*^9},ExpressionUUID->"5a238081-96cf-491b-804b-b3d84424694a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], "=", " ", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", "*", "x"}], "+", "1"}]}]], "Input", CellChangeTimes->{{3.7155389374670067`*^9, 3.7155389500294447`*^9}, 3.7155390041632833`*^9, 3.715539169369832*^9},ExpressionUUID->"5671e800-f5dc-467c-84e4-\ d67170a44ccb"], Cell[BoxData[ RowBox[{"1", "+", RowBox[{"4", " ", "x"}], "-", SuperscriptBox["x", "2"]}]], "Output", CellChangeTimes->{ 3.7155389506948843`*^9, {3.715539002147871*^9, 3.715539004497452*^9}, 3.715539172581316*^9, 3.7475669742754393`*^9},ExpressionUUID->"36803cc9-c401-4f43-b57c-\ 9c38ed1feab9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RegionPlot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"2", "*", SuperscriptBox["x", "2"]}], "-", RowBox[{"8", "*", "x"}], "+", "10"}], "\[LessEqual]", " ", "y", "\[LessEqual]", " ", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "+", RowBox[{"4", "*", "x"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.715538728731667*^9, 3.715538901273106*^9}, { 3.7155391605107737`*^9, 3.71553916471214*^9}},ExpressionUUID->"313dfa7a-9581-459c-a4ff-\ 124f117b066c"], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxlWHlcU1cWDiELIA9C4oIRFQesoeO4Nrbalnc0Yi1uEdFSZCK2SFsjKLi0 cUFciLZasTRUtC5ExRaFxmplwAbrrhOtKxihghtoKxYhEEREMmn7+96bYfLP /X3v3vude7Z7z0m/9+ZHzREKBIKlHgLBH6Pn5YcLNIYXrPLYJ6+b7ALqPF7t Vz1Xp3nGHjatOGZ0CAnrgbEOuPOI/RP1q0cbGDG3Hxj7gbEPGPtrR687rVdJ uf3A2A+M/cDgAd61qCzBwDjZtMCNb+k03hw/MPiBwQ8MfmDwA4O/x5PNNq2u C8cPDH5g8AODHxj8wOA/eCZ7ksbAcPzA4AcGPzD4gcEPDDsBJ52z6Uz2Bvbt 7duuqE3+nHxgyAeGfGDIB4Z8YMgHhvzO8lJKLoeZ7DJOHjDkAUMeMOQBQx4w +I+FRumZ2gCOHxj8wOAHBj8w+Dvz+WwuKzA65BwfMPiAwQc8t/Xe71rdczYx 7PlyptaDOo+CP38ibnxtQsVDveopm3NDtMahlHDfgTE/rNBbUqv24vQHxjrb Gr9P7Vofkuy8fNfocLAJsQpfm96XmwfGfPuQwEyr0Y+LF2DMX/iTT8btB4a/ O88H/hnvAdx5/5In5/QBhn3+ilcFbc973KQ2uTgMOwGDD34CHzDmcS6cH/mH 8wFjvnO+QB/MI96wHxjyO8cHzvu/+augcN+zIRazhHb2mV+hNslon/pErtUo oledC+NUFjmHHbmae2qTmB7fnrHPoWxhN348fo7KIuX2/xWfXejosEm5TG0j O+P5jHqXiyGsa/218DUDI+PmIS/WFj5LY/CkqpfVL2rUCtKOmnvIauxg18a3 7DBbFXS8aeQtrc6DgIvenzPYpm/n5qEf8KL1/9pm1wq49dAXGP6EH4GxDv6H HZFvwGuLZobVqltZ2AX+RXwj/oGjvKNCBIJmdsGf/vHh1iMesR4Y6+s+bVRa zAGcPaAXzoe87vN5fIFd28b6zrL2tumFnH/gF5wb+Yi4BIZfb96z7TNbvTj5 oZMn/aq0eXP++iue+HxFPiKugeHv3YkVgw2MP8c3NnrIUocygIsXYOiFEX7o jOEvxAPGzt+hP84F/YHhN5wD9gDGPPSE/shHfAfGPtgHcoAxj/sN9un8vkEP xDf0Qbzg/od+X/x06Ee9ir+vcH8hXoERr8hn2APxBgx+6N+ZH/cJ4g35inND HjDWIy6xHn6FfuDDPdD5HQLuXAdiHvsw4jvyD/4FRrwjvjEPe2Ae+Qf7wR7w B+oz+AN88B/0hv2AoXdnDD3xvfMI/eCfzvcv7lucD+8FMN4HnBf5Bz7ELfgQ 3zg/7AOMeIH/YJ/o4W8VWWe0c/dpt+rDA2r78/X+6vvTv7Sn8e8j7r+xXmu+ tqZJqXhPVrjtehNn39AJSYuYUv59xHu4Y/6GcF2cH00q3/PAOIKvJyXBjr9Z ekq59zBmyJjbxoRm7ryQNy/pre+MwXL6+vTpC+aLT7n4xrkmXrpQaEyU0zLr HLtWyb+nyK+ymwEvat5WcPGYM3LyE9dCBQ3bmX/S3NzOHsp7N0GTLaC/ndgy ZvCgZ+zMhNiXnzwUUtZMcbgtpJlt3RD6g/GSF03IzcpWvdPAFq/vqHNN86f+ mRdiNMFSkt9pbFp5XUYDZs8eMzJTRK0+YwsTD8up+K6mTlvZzooF9RM1NxV0 ZH/KxkOnBbQ35Xr3zBYF/fBr4kOtj4sdM3RkOuPv7qOmPd7hqG5jfeyuaF2e By04XfdQHS+kuE0+8tqPPDh9Lk2/kaSyC2lAoNtq7vz5I2qeuDxp5/aJOUxS CzthZfhMTam7n8qqP2C+7u4fGvtWqVd4Ud74nvmOz5q5es9n6k/1empix+// Slgb5kNBoSuKjTESGjfiq2kahQ8tGp2YpQpxsEEFuhqlyJdyY9NO6Y9JadOa PVfVHX7UZUtBrfEkX++deDPmW/MvUup6UV15JERGN59RmbnDwYbmNDORMwO4 uC3r42pyXZBRUeqZVKaQr/9KI/blOdJa2FO9cuNUX8npn5X/alBKxNx9FRy/ cbd1tScdd/6y0zxKQbtriuq1D9rY3bb4SZotCrrzmu9F/QMhVy8h/t+oPSgS xHhw79Ou4ohnykECCsoIfU9T7vF/71brbaZK+4Dvaw/6nnAqBwrJdrf8mPG4 kFsXdsiy25rs+X/33KHLdm212x/9mndXGoV8vYn8/j3f2aC8z+fVvRLbc9ds CbXlb/2YaeTfs67nlx0wd5Vw/SW+x43q95syyptEwY39BWv5+hT1pirSJ171 jQ9nb/Xx97rYLvuSKX1nm6uLlHvf0hsUXW33+fcN+TpqqfZ744cy+sExdKxt L1/PljXlTbH8u5G7nyCveXv/Uv2MADKFdFvC/Mz3Pzjv931ZnepAAJWvD97K OJ3cewd77Ks7stZ+ln/vxievC7S45DT77REf6Ya3cfVw+7fqRENEM+upeFdc u9WLlp906UwlDeziwy82WbP96OOvZbnWRyKaPOZinGqFnILeeOepcpwHBdK2 lcxHApp45u9ROtaTlAmXX7bkCWmZePgYQ76Iel+9SoYU9/0Wx9zQVomo7lxm D9sjMS1OO1tlfN3JXhknWJXKSmni/pRd1rFiqhHmJKoaJbT6SMmq1BsSWrpM x0Qe7EKDvkle5RBIqeCntvPasb6UFdLVoHu1kT258GisKp+hzd2Xx2gmSUnU mFuij2aoKLDFY6qggc1rEq20u/wptrKoSb+ggTWufzuZeVVG825eTFA5pSRL sac4yvyJ5nlb7amNbLgsPerUQfd78cXZauP+ZjZnR7mv7UUA1Q/UDDetEFNm xrAaZW85mZ1ZJubTVrb7zA/uKfspaF3Ck1mabp50tupWe80HfH58mX1gsSOf r7cff9JtsaODrxciWzR3lWcVlCrq+VR9/gX7vNA2UfNYQbF9VOuZL1zsuoo5 19UuBX12denlumZ3fjVOD41uVFDwk3EigcmDXqluH2qwK+jN1FvTdJFCCpor Kak7oKCgjrxIE9vOPhr5Ug/LOb4/qApv7G6pVVD1wO9n6bbw/MjTo/HGYn0z f94F5ec+dwgFtPnNzUs1Hq1c/e+/NSzCUvKUffzSt9+Zx7vjYojK0u+/+mXc nxhN67Z/aZ8houL7tYXmInc/0avPGk1YE9cfzFpuizX1amJbHBsidHN8qFpW 8tyl5/vlPu/P627LlJBWtiTIcsaHPlnyyR11joRGTOmdxNz1oQ8v/R5rkjZx 7/ONu0/q60KbWF9BBfNobgAtCbp0zXyliQ3JkFuMhQGU9erVTPtyvh9efmfb ascMd/3aPNOmXR7A1S+XRD8X6y/y9Vqvd0JjVW7/Re/dGG2I6GAXl56vUw8R 0Lwrc49aO9zve/qJvdYxQsp8unuNamUbV8+iPpjT/NvfLWIh/Zxc/0+Ds5V9 Jdk51tDTk14a+Y9Sa3IrW7BhQJgl25O2/ha3QdW3hfu/YcgTe6WxpoWd2tPz vH6wmDYNfHPQnFQnW1977bbTKaHsEUlpmqtOFnqFlygLzEf5/iaSprxwZbjz q3t0uiNXSp4ywxf2jWJa5qUoMhZJKT9i1DCTQkKZ6060uF5313P9x+5gdjSx KXHj8sw53vTBG9MyNL81cv9XZB35brJluoPVvt/PZC3oQuM/7aU3rGxkTyUk ndP2Zyjw4DLfEQWNbPGlunvKG7405npKpG4X3x8tmR6Sb/5QSqMrhg4zlDA0 fOukx0qjlCwVUz9gwvzoWiqT7jgvpV9n74zUDPCnpf8OidGslFL2uVtRmuUy ru7LvP1Ls2uyjJYMyhjS1X3/hp1yO/mBu5/29RtqctdLUdFlgloV/39TYWmM RPChgNYsnLzPfvwF108m+O+t1gr48dHAkDrn5wLquD8hskQhoCsh6f+w9PXg 4uDjnCEDLVUe5D1Fs9FRLaBW3dlp1TP4OvaMePAV80Qn138Ft4syHK0iOh2x mjUMllBGbkihOZTvtw5WZgba3uX/T/W9Y9BapvL9VmDmgGtauZSGMQs7alb5 0gF7mbR2KN9fbUyaG6N557/+Xzw4epXq5nM2SKkSp3f1oMqyb7v2Kmhmp1Q1 VanFXrT6doDfiLMNrLT0x0QmzY8G9Zn8jWOTkxU0LPpRP0FO0z+TTTMte8pq jkuyrFVyGnXy4lGjt5huZRSfv/KRnMKrD+lVjIjCXIX3lM/kVOPnKDfuf8bO tV0ZZpiloG1eI+I1vwtprytlp3mJgiI0/mHz93jS/KnJ2T2meFLppoWyXn5P Wb/PL5drBWIK3rQrVtNDQi3xjfOZt7xJEdttrWaHg+3z8+FeluHu+Dq6paHu FQcbf6j3gzZJAJ28KPepfSyma30rvpNccufz93sqtOVCWu9bPlsjFFJlWu8w QXED21Bu+Moaw/+/kuy6u8YerqD/AFI9LTg= "], {{ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 0.3], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJxNlnmU12UVxu8LssPAwCDLyOqAIIrD4ICAINuwCiIoEiiRGKIomOCGlWRG YoWVK5AKkZWWQEgIZYRL6tGW03KyXMr9VKfFteyctJ6n+/kd5o/n3Pd7v+97 3/ve+9z7vgPOXzN/dYuI2FAiWkreJtwqjBMmCG2EDsJ+4VvCvcJOYaOwSujI nLbCpcJRjDsh2wkPCdcK64WJ2KsWqvjfXuiK3va6ITvx3zZbCTXovO4ybPQQ +ghHM57C+BihF3Ztry//ewr9kP4/iLl90FWzZjA6rztHmC4MEwYIvYVaoYm1 dUJ/7PnfcazzPkP553WLhTnCKcKJ7O19Djj+wnXsU8dew/lveychhwj1SNs+ GVueu1Y4QWgQDmLf3zOFGcLxwneFbdg4xNqR+N2NGDdi7yT26ccZlghzhTFg JPtvZ83YSO6sImf7hAcjubI6kh9tgPPrfN9Ljp3fXcIWYTbrrTeH7mQvx80c HB/JmfuF+4TucYRzHVlXxfcnIrliTqznfFXs7TxXA+e+B7pefHtNH3I8iFid QE6G813ha1d86c0e9m1yJE+6oe/VLJfD8a+G/xVe9mXPwew5NZI7tjMtknPH Ym8AeemL3cF8DyVv5oB5VMfe/dmjR7N9+jHX65cLCyM5eB12vId5M6OZ3XrO cKZwGrnwecyBCh9PJmczmO+125jjtQ9EcnGWcHokd/xvRSTPzsB2FfbXRfJ7 BHbNP/NhO2PvZ+6YK6OFLwg3YcM8byB3e4XvCVcJuyP7kfP/UWE+35bufebI 2ZE9xRw4i3zUEtPp5OL7wjeFU4VJ2OgifDyy5l0zH8NWJX9N2PiycDN2Kzyz /lxhEfF7OLKH+jznCR8hZouIn+N7h3B7ZO3cI9wd2Wu+xtxG4jSXuFXO2YGz zousy03CNfybzJl93h3kZAzxWBBZH5uFT3M2z13GWU7Hz7HEaSHnvj6yn5qX K4ULm8VoMb5dLFwUyYNJ5Mb+ziQujol7gPnXHr+W4FsTvhzD/6WRHHDsXP/m 0zTy0YQvy/HR/l6Az4vxbQ55XIluCb7Z3xX4at0lkX1P1+j/e5fH7mlX8s/6 NZF90HH+RiQHKz3Rsi16z2nJOReR33ms99yrWduSHLi/uaYvj+x31u1h3IVc XY7+h8IPImvpdqRr44rIGhvBnHXk6Bbh/MgecCn7+nx78WMce+3GD/PG/DGn aoi5+3MLBeCakjww391f3Fv8Lvgkc+zvp/B5KHOOR25gbPkZxjcIn7Nt4vTZ yHpw/s3JKZzjes7y+ci7qAU5uYHxevzoTt42krsfRdbnQOFLkT3FXDIfN3HW CrfMq4eZ0xn5RcZLWe+5X8XmVHAzcdiHf+4h5uZmzmHdjejtzwHWOCcziYPt fQU/zVfX/inNcuycuufdGke46bE5uYs5Dcg7mH9Y+HFkP3Vf3RrZW7byPRob t2HnbuZ6X/cc9/pR2NmCfeftFnyuZ47vgmXEZSp27sG+7dwV2Uvu5J/17mXb I3v+DsZjkf4eQ353clbrvh7ZJ7ZhtxHdDtbehd4+b2StuWG+uyZda6sZuw7c 7/12acV4P98e+z5oLXwn8h1gXt3HuJazOLYjkYcYH+K7gZgdbjb3MPr7seve 7PvzAXzexvco/PA7yb1xFvp6bO7Czn58tZ8PMvZZvs1a63vjd22zM9Tw3/Pc g9cq+e9H9idzdR/xO5Hz+M79o3NYss7de9xfXI9r+facdeitM5/NdfO8Hefx Wf4sLCzJ+53k2DmaJ92ZJWv+DeGckvXhGnRNuj4Pstcw5EH2PcBeAznXfs5+ hWx8GNk7H8KOa3kDawZi1//cPwZhsw6/Pcd961rmeO1rwtkl62C65IySvXIj OahwyWPX+xr9b1/yXvqP8Ap5f1mYU7JXvi0sK9kjzpU8r2RfGyd5asn8O2Z/ ioxbtcZdS/akfwvLS/apfwovktN66UaUHDdJ/iGynzdqPKqkDx0lX4q8ny/W +HHGs52fkueeK/lqZB8+S+P5JePXSfL1yHt4lcZPMvb90JI7okHyscg73PeM 7xvX4k+EX0feEaM154nId4fvDt9DvoMmRt5HXfj2uBq5B717l3viOORexlfx 7T7pfuh6mU1O9pGXdtr3L+gHaPy3yL77iPDLyH74X+HCkn25u+TRJfvcNMl/ RdbLo8KvInvLeun7l3x//F0YUnjXSJ5W8h3xprC05J33js9RkqtnSH4QydUX yZ9zd6XkUSXfOLUla8N10Vfjn0X2iueFdznXc8I/iMMzQp+Sd0Hrkms8v5fk U5FvOe//XqQPnvt05HznsDd5XCm5oGS9DJecWrKP/kLoV7KfTyq5t/etcQxK 1kvPkuu9dqJ5V5ILjvHiknF2/F4ghlVS/DbyjWwff4OfE6QfVvLdNl5yaMm3 nfPWoWTujpMcXPJN59gfS/wHSdaVfAO+Dl+n4ftPI/1/Fru22Vnyrci+ZI60 LcmT3+GHfRgrOabkm8s12oY6dZ5/H5nrRa77km8ax2MWMfkrXDFP3A8aqccp JfnkOJgL7l/mQ6uSPDAHzDv3a3Pv55H9xb3lpcgadv3+D+/inV0= "]], PolygonBox[CompressedData[" 1:eJw1lOdvj1EUx++l9qi9X2hrxE4RtaNqt2hr1GiNGkVKtakVJWaQImhE0kQk XknES3+AWLEldggRkpKKTazg8805ffHp+Z7f8/Q+957zPTepsCR3Xb0QQj4k wKIYQiLot73wFTaTnyeOhvHodBil32ECOgPqo9fBCPRwKEdvgBXobNiOPgyN 0JvgHHoazELPhh3oZPgN5eRnie2hKfodcTnMhxTy3rASPRO+QRn5GWJD+AtD ycu0NkR0VyhEV0EqejDkoMfAMHSa9qCzwQ8YRF5CzIYu6M6Qgp4L12Ae+W5F eAbjotVCNShAf/Ta7fG1Bkarjdbsge4Lq1QbeA6Ton1rLExFvyBWwFZ4pXNG O0sG9EMnwwz0atUQnRnt3UTog06C6egir8UQKA1WE337kT/THnK0VrS11aOg 2sIR5DH4BYXklcRDMACdH+1sxVADDcjziLsgF/2auDNYT3uR94c1wXr2Qfsm Px7MQ3r22M+id7qT3yWOrOu5vBbNK6r5AvRC2GhbDXn8eau6BevxLfmQ306q t/Cgrmfu8cY8K4YT6MxgXmwY7V15ci26SbRn1e79L+4tzcAlaMtvi4npcBFa ky8K5qkO0Tam2i2Bq9CRfKn6DFfk62jP5Lk50Txa5TXrptmL5rVlXqsLflbV bBmiXbReH4Qn3hP1QjVpE61n6pX2pFn6494+67386f9b6XvTjGo2tUfV5gYx NViNisg7RZvNo8G88c+1PKLZ+x5sljSDpeTvg83maUiIdiadRR554z3J957p rqhx7+jOuK7eR7s7tAd5vWe0WZHn70HzaLVvFcwr+uZp98wnWEy+L9gd1gy9 Hk4Fm4n70CJaLzTTtdCSvICYpXfQl33tbcFm56VrzZDWukNMC7bmFPKJ0WZ3 i3uv1teSB7Oi3Wm6yyrcO0vhQDAPLUE/DXa37oeb7sFq/8ZDuB3s7ivws332 d3VGrTU52re15n9S/pnz "]]}]}, {}, {}, {}, {}}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwl0udbjQEcx+FzkigqK6stu0UlmWULhYyyyUzIyOpf8wohRXZGSUZmySgj GXeXF/f1+f6e57w55zrJ5VUlx4KBQOACj0l3bGcHn9w7NZrP9i79oru1Wbs5 Z3/VYdqjJ/WbPmWGPZMsLruH6wh67XL9qXt1FPtYxWoKeebdGv2l1dqnL5hl 5zKbq+4YHd3/BTjAX/OgjuUQG9hICa+826RBYnntLtV3ulnf6gOuU+bewjzm M4izhJHATZ/p/+E+aJQ2aSNVdgQddo0mcds+oR91qqYwhcmk8cjzhZrKBCYx kek89G6BTiOZTvcQPc4tO1Fv6FEN5709WI/QYMdrvc7VOeTxxj1QzxBKHCGc ZwDjGUedz90n0m7XSr2mY3Q/61hPMS89X6u/9bT+0RzN5rldpFf0HkPtNj2s tTpS97CClSyj1fPl+l1P6Q/N1AyWsoRLnt2lhQL3YhbxxN1FhX1R77DV3kZ+ 8P///B8V4Fgy "]]}}], AspectRatio->1, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{Automatic, Automatic}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "ScalingFunctions" -> None, "TransparentPolygonMesh" -> True, "AxesInFront" -> True}, PlotRange->{{0, 5}, {0, 5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.71553883021476*^9, 3.715538901568451*^9}, 3.71553916543992*^9, 3.747566980462254*^9},ExpressionUUID->"a7001e41-dbfa-4231-90f6-\ b1d61e3d3dc2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], "\[Equal]", RowBox[{"g", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.715538914119535*^9, 3.715538915754184*^9}, { 3.71553895456034*^9, 3.7155389756054077`*^9}},ExpressionUUID->"c5e865e0-500a-428c-b36b-\ 485e0ef01095"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "3"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.715538975888146*^9, 3.715539009827532*^9, {3.7475669696181917`*^9, 3.747566989089139*^9}},ExpressionUUID->"87a44805-97cd-481c-8d05-\ ed7b7a3765a4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "1", "3"], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"f", "[", "x", "]"}], RowBox[{"g", "[", "x", "]"}]], RowBox[{ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.715539232986998*^9, 3.7155392439964457`*^9}},ExpressionUUID->"0f246668-180d-457e-b5ec-\ 4ebf2cb7df25"], Cell[BoxData["4"], "Output", CellChangeTimes->{3.7155392446024*^9, 3.747566990925251*^9},ExpressionUUID->"689b3ce4-9b00-42ee-8af4-\ 662d5b58a0dc"] }, Open ]], Cell["Haciendo las integrales de l\[IAcute]nea", "Text", CellChangeTimes->{{3.7155398573439093`*^9, 3.715539861516017*^9}},ExpressionUUID->"8dcad07e-ece6-4e1d-b674-\ d5d3ea42c0b9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "3"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", SuperscriptBox["x", "2"]}], "-", RowBox[{"8", "x"}]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.715539748223044*^9, 3.7155398180732117`*^9}, { 3.7155398633740063`*^9, 3.715539864241276*^9}, {3.747566808261374*^9, 3.747566817559657*^9}, {3.7475675782765627`*^9, 3.747567579850918*^9}},ExpressionUUID->"12760660-df1a-40f4-b7d2-\ faaa104ec920"], Cell[BoxData[ FractionBox["8", "3"]], "Output", CellChangeTimes->{3.7155398190392838`*^9, 3.715539864548209*^9, 3.7475668180975733`*^9, 3.7475669928774347`*^9, 3.74756758073868*^9, 3.747585615169765*^9},ExpressionUUID->"a1abedb5-ad99-48cb-b91b-\ a35d6c341902"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "3", "1"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], SuperscriptBox["x", "2"]}], "+", RowBox[{"4", "x"}]}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Input", CellChangeTimes->{{3.7475668348084373`*^9, 3.747566834908861*^9}, { 3.747566912305479*^9, 3.747566919737926*^9}, {3.7475675829509573`*^9, 3.747567584239963*^9}, {3.747585610094782*^9, 3.747585611979987*^9}},ExpressionUUID->"599fad0e-c158-4a06-8141-\ 660d5a374f67"], Cell[BoxData[ FractionBox["4", "3"]], "Output", CellChangeTimes->{3.7475669207192707`*^9, 3.747566995791128*^9, 3.747567585086512*^9, 3.747585617689404*^9},ExpressionUUID->"3ce9138a-8973-41e9-854e-\ 496049fd3761"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "+", "c2"}]], "Input", CellChangeTimes->{{3.747566998022112*^9, 3.74756699987374*^9}},ExpressionUUID->"e4f76bbb-85ba-42ed-b7ec-\ c73c1b8dd0ed"], Cell[BoxData["4"], "Output", CellChangeTimes->{3.747567000144744*^9, 3.747567587899498*^9, 3.7475856219241047`*^9},ExpressionUUID->"87a2ac48-de13-4c99-96be-\ 2a94cc7df406"] }, Open ]], Cell["\<\ Utilizando el otro planteamiento del teorema de green, tenemos:\ \>", "Text", CellChangeTimes->{{3.747585795210373*^9, 3.747585822558157*^9}},ExpressionUUID->"b08aeb33-88fa-49a8-a51f-\ 763622b0f0e8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "1", "3"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", SuperscriptBox["x", "2"]}], "-", "10"}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"02c274af-\ 6e7b-45d2-b8cf-7eb9b413da65"], Cell[BoxData[ RowBox[{"-", FractionBox["8", "3"]}]], "Output", CellChangeTimes->{ 3.747585564728252*^9},ExpressionUUID->"a59557b8-968d-4abb-82b7-\ cdf074b7a5d7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "3", "1"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", "1"}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellChangeTimes->{{3.747585571616193*^9, 3.7475855724217377`*^9}, { 3.747585692687915*^9, 3.747585694663311*^9}},ExpressionUUID->"8776cf2a-00a7-468a-a836-\ b205683cd6ee"], Cell[BoxData[ FractionBox["32", "3"]], "Output", CellChangeTimes->{3.747585573303875*^9, 3.7475856969559107`*^9},ExpressionUUID->"a6db8496-7077-45ec-959d-\ e2849aadfc42"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox["1", "2"], "*", RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "1", "3"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", SuperscriptBox["x", "2"]}], "-", "10"}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "+", RowBox[{ SubsuperscriptBox["\[Integral]", "3", "1"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["x", "2"]}], "-", "1"}], ")"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], ")"}]}]], "Input", CellChangeTimes->{{3.715539748223044*^9, 3.7155398180732117`*^9}, { 3.7155398633740063`*^9, 3.715539864241276*^9}, {3.747566808261374*^9, 3.747566817559657*^9}, {3.747567674185091*^9, 3.747567740614942*^9}, { 3.747568061702601*^9, 3.747568062074769*^9}, {3.747585699245678*^9, 3.747585701073967*^9}},ExpressionUUID->"0b9a7733-1fb8-4b18-ac91-\ 4c53bf2d238f"], Cell[BoxData["4"], "Output", CellChangeTimes->{3.7155398190392838`*^9, 3.715539864548209*^9, 3.7475668180975733`*^9, 3.7475669928774347`*^9, 3.747567742127817*^9, 3.7475680633240747`*^9, 3.747585701848568*^9},ExpressionUUID->"b27cb123-044a-4061-9d60-\ 701df1f042f9"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{Full, Full}, WindowMargins->{{Automatic, -103}, {Automatic, -891}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 181, 3, 98, "Title",ExpressionUUID->"8bce67b6-016c-45cb-99ee-4de89fcac647"], Cell[764, 27, 182, 3, 69, "Chapter",ExpressionUUID->"b8597453-cd75-4fbd-a5b6-37475b7c4c65"], Cell[949, 32, 178, 3, 58, "Chapter",ExpressionUUID->"7eb0c3f2-1e57-4868-9211-daf079e3a279"], Cell[CellGroupData[{ Cell[1152, 39, 349, 5, 58, "Chapter",ExpressionUUID->"35dd12b3-f21e-4e3f-bb78-8f77ce917a58"], Cell[CellGroupData[{ Cell[1526, 48, 160, 3, 67, "Section",ExpressionUUID->"274b3d03-0e79-4646-917e-f08caf34dc23"], Cell[CellGroupData[{ Cell[1711, 55, 158, 3, 54, "Subsection",ExpressionUUID->"f00d4c90-2f5f-4f85-b1ec-5747fce2ca66"], Cell[CellGroupData[{ Cell[1894, 62, 384, 11, 45, "Subsubsection",ExpressionUUID->"d52638b3-33ea-4d03-b5a6-546d71b539ef"], Cell[2281, 75, 695, 21, 30, "Input",ExpressionUUID->"5884dc46-e598-4536-90f6-c7c5d6b5601e"], Cell[2979, 98, 380, 11, 38, "Input",ExpressionUUID->"47dd86f9-a2fd-437a-acd9-f7c8daa7ee61"], Cell[CellGroupData[{ Cell[3384, 113, 208, 5, 30, "Input",ExpressionUUID->"bce4db34-c08a-4ab1-b8af-d0887cca54f1"], Cell[3595, 120, 3965, 78, 246, "Output",ExpressionUUID->"c1ec1069-fc2e-44f2-861b-7b06bd0dd057"] }, Open ]], Cell[CellGroupData[{ Cell[7597, 203, 571, 17, 45, "Input",ExpressionUUID->"8bae5b7c-c5ed-4429-af46-76cbe4e0d190"], Cell[8171, 222, 334, 6, 50, "Output",ExpressionUUID->"908565d8-5f09-42d5-886a-8b91d8b62713"] }, Open ]], Cell[8520, 231, 265, 6, 30, "Input",ExpressionUUID->"20563c35-8754-4285-bffe-c8e6c07478a8"] }, Open ]], Cell[CellGroupData[{ Cell[8822, 242, 205, 3, 45, "Subsubsection",ExpressionUUID->"3ec0df28-79eb-4f22-a0c4-a8f9b63dd734"], Cell[CellGroupData[{ Cell[9052, 249, 508, 14, 30, "Input",ExpressionUUID->"02ae9b74-e7d6-4c34-865f-db5e7ab080cb"], Cell[9563, 265, 2131, 49, 231, "Output",ExpressionUUID->"d33644b3-b06c-4249-a627-6edd228a3876"] }, Open ]], Cell[CellGroupData[{ Cell[11731, 319, 532, 14, 45, "Input",ExpressionUUID->"2cf69a7c-5367-4252-b07d-13240a0160c6"], Cell[12266, 335, 377, 8, 51, "Output",ExpressionUUID->"975b109c-0b2c-4549-aee1-c84f406b50a8"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12704, 350, 158, 3, 54, "Subsection",ExpressionUUID->"9c6b4492-f6bd-4d4f-afcb-6a8143a1edaf"], Cell[12865, 355, 469, 14, 39, "Text",ExpressionUUID->"73af9738-3750-434d-93a8-ddeceb77a0e8"], Cell[CellGroupData[{ Cell[13359, 373, 158, 2, 45, "Subsubsection",ExpressionUUID->"5f09fcb7-abd8-4594-adb2-8f2f22d194e8"], Cell[13520, 377, 177, 6, 58, "Text",ExpressionUUID->"5daecf6d-ea66-4014-ba86-9949d8d0714b"], Cell[13700, 385, 696, 21, 30, "Input",ExpressionUUID->"2477fab9-9b92-4fe2-9ea4-56e27954ff17"], Cell[14399, 408, 477, 14, 44, "Input",ExpressionUUID->"d25e085d-04f0-4ee3-96bc-b3b1c35fb837"], Cell[CellGroupData[{ Cell[14901, 426, 419, 10, 30, "Input",ExpressionUUID->"c3d13d9c-e007-4edd-9598-ca836c1de433"], Cell[15323, 438, 6522, 121, 392, "Output",ExpressionUUID->"4a4b44ab-fdde-4bc4-ba5f-c33b772f57de"] }, Open ]], Cell[CellGroupData[{ Cell[21882, 564, 591, 16, 48, "Input",ExpressionUUID->"2eb5bc8e-104f-4834-bafb-4cb025de3d6a"], Cell[22476, 582, 462, 11, 50, "Output",ExpressionUUID->"c9979519-309a-457a-a23b-ff504da990fe"] }, Open ]], Cell[CellGroupData[{ Cell[22975, 598, 234, 6, 30, "Input",ExpressionUUID->"56149f16-d8bf-4302-a147-d5cb73438555"], Cell[23212, 606, 177, 5, 34, "Output",ExpressionUUID->"4421e540-8644-46d0-8bd7-cbb1481b1980"] }, Open ]], Cell[CellGroupData[{ Cell[23426, 616, 654, 18, 48, "Input",ExpressionUUID->"af2c56b0-5b8b-4990-b40a-7104c109eea4"], Cell[24083, 636, 329, 6, 34, "Output",ExpressionUUID->"03492220-252f-4e66-bf63-958ab3e2ed93"] }, Open ]], Cell[24427, 645, 143, 3, 30, "Input",ExpressionUUID->"a98ac41f-9585-494f-a421-30204697deae"] }, Open ]], Cell[CellGroupData[{ Cell[24607, 653, 253, 4, 45, "Subsubsection",ExpressionUUID->"6a632cb7-58f0-4404-8c36-5955bad8719e"], Cell[24863, 659, 210, 3, 35, "Text",ExpressionUUID->"79f8110d-5eca-4a76-8398-ba9bb9815e6c"], Cell[CellGroupData[{ Cell[25098, 666, 417, 10, 45, "Input",ExpressionUUID->"9e655fea-2f53-491c-8612-4bcbd4b69776"], Cell[25518, 678, 352, 7, 50, "Output",ExpressionUUID->"e51c9cd8-c87d-4247-a97c-d02364f21d25"] }, Open ]], Cell[25885, 688, 300, 4, 35, "Text",ExpressionUUID->"431d621a-32b0-44c4-843d-e9767bd9fa6b"], Cell[CellGroupData[{ Cell[26210, 696, 188, 4, 30, "Input",ExpressionUUID->"e802681c-e838-4b65-ad26-a1da4c8942f5"], Cell[26401, 702, 274, 5, 34, "Output",ExpressionUUID->"3694650d-94f5-48a7-b986-0a4c2645b5e0"] }, Open ]], Cell[26690, 710, 157, 3, 35, "Text",ExpressionUUID->"92ef2603-cce4-47b3-923e-3af082e56095"], Cell[CellGroupData[{ Cell[26872, 717, 264, 6, 30, "Input",ExpressionUUID->"aebcbe49-e71f-43a7-8801-d716bfeeda20"], Cell[27139, 725, 330, 7, 50, "Output",ExpressionUUID->"ce2cde79-368f-4d9f-aaae-fcc8bfcba94c"] }, Open ]], Cell[27484, 735, 224, 5, 30, "Input",ExpressionUUID->"1a7bbb8c-566b-4b82-a778-619cfd6600e4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27757, 746, 157, 3, 54, "Subsection",ExpressionUUID->"01fa2d87-b999-4a10-9deb-d08c7e77bc28"], Cell[27917, 751, 482, 14, 33, "Input",ExpressionUUID->"5375a690-11db-464e-a766-37651054933f"], Cell[28402, 767, 338, 9, 33, "Input",ExpressionUUID->"514eb30e-a64b-4eb2-8f46-482f185b7833"], Cell[CellGroupData[{ Cell[28765, 780, 539, 16, 45, "Input",ExpressionUUID->"9e6109ec-1189-42df-98d9-e76a8139b317"], Cell[29307, 798, 310, 5, 51, "Output",ExpressionUUID->"c5cfb26b-c884-490c-9d72-4c1c83d9afd3"] }, Open ]], Cell[29632, 806, 214, 5, 30, "Input",ExpressionUUID->"82a414d9-17ed-4a5e-86ae-13e5b02b28b9"] }, Open ]], Cell[CellGroupData[{ Cell[29883, 816, 156, 3, 54, "Subsection",ExpressionUUID->"6b03002f-1f43-4565-967d-ff99a88fdb62"], Cell[30042, 821, 425, 12, 30, "Input",ExpressionUUID->"2fc6e14f-f6e8-4a88-8f53-b63b247f296d"], Cell[30470, 835, 457, 12, 33, "Input",ExpressionUUID->"9d658a9b-17cd-4943-afbd-8258d718d4ad"], Cell[CellGroupData[{ Cell[30952, 851, 606, 18, 45, "Input",ExpressionUUID->"312015f3-11f4-498c-8eba-bf1d28531f8a"], Cell[31561, 871, 342, 7, 51, "Output",ExpressionUUID->"1f784c76-689a-45b5-a8ab-774e7642f404"] }, Open ]], Cell[31918, 881, 214, 5, 30, "Input",ExpressionUUID->"ff9af7fd-3de5-4493-962f-610ec3701d91"] }, Open ]], Cell[CellGroupData[{ Cell[32169, 891, 207, 4, 54, "Subsection",ExpressionUUID->"9015c3a7-c50c-485d-9985-329484c0b55c"], Cell[32379, 897, 365, 11, 30, "Input",ExpressionUUID->"4525c30a-77b4-4c5f-8d87-1cbeba6b01b7"], Cell[CellGroupData[{ Cell[32769, 912, 258, 7, 30, "Input",ExpressionUUID->"1e713834-1e17-4132-a6a9-7f6fb5a83ebb"], Cell[33030, 921, 445, 12, 34, "Output",ExpressionUUID->"0bc1b193-0c75-45ed-9cb4-8715ac451a73"] }, Open ]], Cell[CellGroupData[{ Cell[33512, 938, 231, 6, 30, "Input",ExpressionUUID->"0d27a22e-93fe-43ab-ae33-020c7737b6ec"], Cell[33746, 946, 391, 8, 34, "Output",ExpressionUUID->"5c7c3e24-5a5a-4c69-82ff-9b32f4b5b7c1"] }, Open ]], Cell[CellGroupData[{ Cell[34174, 959, 231, 6, 30, "Input",ExpressionUUID->"3430d445-55da-40e7-b23c-493d85c4db5b"], Cell[34408, 967, 326, 7, 34, "Output",ExpressionUUID->"c7fefc91-374a-4da6-9728-cfdc1b0319d3"] }, Open ]], Cell[CellGroupData[{ Cell[34771, 979, 230, 6, 30, "Input",ExpressionUUID->"0fb40e57-3099-4c45-a58e-e92b5ecd70a9"], Cell[35004, 987, 323, 7, 34, "Output",ExpressionUUID->"87754f0c-6ff1-4aec-985e-e834d5083aa9"] }, Open ]], Cell[CellGroupData[{ Cell[35364, 999, 229, 6, 30, "Input",ExpressionUUID->"91a91daa-f877-43dd-a819-1c53288a0498"], Cell[35596, 1007, 323, 7, 34, "Output",ExpressionUUID->"516f3a85-9c6e-47db-9aaf-55c67b2632ff"] }, Open ]], Cell[CellGroupData[{ Cell[35956, 1019, 1200, 33, 48, "Input",ExpressionUUID->"a914ede4-3153-4c0a-8376-7fb0820795c3"], Cell[37159, 1054, 355, 7, 34, "Output",ExpressionUUID->"22e8f886-817b-43a3-a10e-f3240b50a5b9"] }, Open ]], Cell[37529, 1064, 307, 7, 30, "Input",ExpressionUUID->"7f9d7f99-23e2-4bd4-8f89-a152c3948596"] }, Open ]], Cell[CellGroupData[{ Cell[37873, 1076, 160, 3, 54, "Subsection",ExpressionUUID->"3dc46330-c48f-48f5-a488-d060aa57904b"], Cell[38036, 1081, 233, 6, 35, "Text",ExpressionUUID->"ba79d978-08c5-4780-bd33-5f0659cf3765"], Cell[38272, 1089, 714, 22, 30, "Input",ExpressionUUID->"57c7262a-cd27-46e0-85dd-0f516658d6cc"], Cell[38989, 1113, 622, 19, 30, "Input",ExpressionUUID->"deefbe2b-a335-438d-b286-13b73dae5924"], Cell[CellGroupData[{ Cell[39636, 1136, 265, 6, 30, "Input",ExpressionUUID->"e3025da1-e9d4-47c2-9d47-2cefc8d04eb1"], Cell[39904, 1144, 1614, 39, 379, "Output",ExpressionUUID->"69012817-7dcb-48f5-a6b5-5d1e559eff12"] }, Open ]], Cell[41533, 1186, 188, 3, 35, "Text",ExpressionUUID->"2693969a-13d3-45f4-91d5-14e00266f8f7"], Cell[41724, 1191, 303, 9, 30, "Input",ExpressionUUID->"aa9e108a-4b52-4461-bf1c-958891e8fcbb"], Cell[42030, 1202, 219, 5, 35, "Text",ExpressionUUID->"3ae6a4b0-2d9b-4b05-a5a5-7d64964f185f"], Cell[CellGroupData[{ Cell[42274, 1211, 177, 4, 30, "Input",ExpressionUUID->"3ec2431c-bb7f-46be-b254-58be654daed9"], Cell[42454, 1217, 269, 4, 34, "Output",ExpressionUUID->"ac6f3f91-9329-419d-810e-07c30ffa7f40"] }, Open ]], Cell[CellGroupData[{ Cell[42760, 1226, 177, 4, 30, "Input",ExpressionUUID->"a630ebca-f604-450e-903d-f874cd223f0d"], Cell[42940, 1232, 267, 5, 34, "Output",ExpressionUUID->"36d37d61-30fe-4e04-9d26-ab0e50ae1279"] }, Open ]], Cell[CellGroupData[{ Cell[43244, 1242, 203, 5, 30, "Input",ExpressionUUID->"c7265501-3fc3-4e3a-8603-0ad85b4637a2"], Cell[43450, 1249, 313, 6, 34, "Output",ExpressionUUID->"deb4b73c-ffff-4e3f-b34d-223dfc875f15"] }, Open ]], Cell[CellGroupData[{ Cell[43800, 1260, 398, 11, 45, "Input",ExpressionUUID->"80f816e0-49b3-4430-b53d-c67987884ac0"], Cell[44201, 1273, 296, 6, 51, "Output",ExpressionUUID->"4ac2e54b-852e-4ca2-9dbd-218c5d3d541b"] }, Open ]], Cell[44512, 1282, 232, 5, 30, "Input",ExpressionUUID->"6ffddadd-c7d1-4d9e-8e93-5f96db438a8d"], Cell[44747, 1289, 202, 3, 35, "Text",ExpressionUUID->"52f44cab-51b0-4b89-81f3-0d83fd7c607a"], Cell[CellGroupData[{ Cell[44974, 1296, 175, 4, 30, "Input",ExpressionUUID->"30ec3f3c-5e33-47bd-b6b7-0894d3948264"], Cell[45152, 1302, 289, 4, 34, "Output",ExpressionUUID->"2510192e-263d-4e63-8d98-7ae0e9d00d69"] }, Open ]], Cell[CellGroupData[{ Cell[45478, 1311, 174, 4, 30, "Input",ExpressionUUID->"4b3996c0-5678-45a6-b6be-6d958ee70553"], Cell[45655, 1317, 290, 5, 34, "Output",ExpressionUUID->"75f92a05-e22b-40d1-a607-aec08cb154a6"] }, Open ]], Cell[CellGroupData[{ Cell[45982, 1327, 372, 11, 45, "Input",ExpressionUUID->"99b70ee3-86d3-491f-9a1d-94a75b30767c"], Cell[46357, 1340, 312, 7, 51, "Output",ExpressionUUID->"45ec7fe0-677c-4d3a-9471-71e439fd777d"] }, Open ]], Cell[46684, 1350, 210, 5, 30, "Input",ExpressionUUID->"1deb8ce4-1073-48e4-8ab4-d17980c4d191"], Cell[46897, 1357, 177, 3, 35, "Text",ExpressionUUID->"15a92876-7a27-4cc6-a3f5-dc1c8e7dbc98"], Cell[47077, 1362, 193, 5, 30, "Input",ExpressionUUID->"3eb5859a-f752-4161-ad16-a2843436833c"], Cell[47273, 1369, 154, 3, 35, "Text",ExpressionUUID->"b455fac9-1809-4640-a8fc-f979d469527a"], Cell[CellGroupData[{ Cell[47452, 1376, 214, 5, 30, "Input",ExpressionUUID->"9e23d87a-ef6d-4b4a-b94e-ba2875281131"], Cell[47669, 1383, 309, 7, 51, "Output",ExpressionUUID->"1e7cbe50-c1d1-40a8-8777-a75d69777d66"] }, Open ]], Cell[47993, 1393, 223, 5, 30, "Input",ExpressionUUID->"f718fd86-88f7-498c-950a-15dc402f1c33"] }, Open ]], Cell[CellGroupData[{ Cell[48253, 1403, 158, 3, 54, "Subsection",ExpressionUUID->"23ffc6d2-fbc4-4971-8b30-5e40f285ceac"], Cell[48414, 1408, 318, 9, 30, "Input",ExpressionUUID->"5ae58c7e-5951-40fa-a4ec-05b442ec86b3"], Cell[CellGroupData[{ Cell[48757, 1421, 175, 4, 30, "Input",ExpressionUUID->"89535753-2197-455c-9f6c-7fa4b6e57bf1"], Cell[48935, 1427, 295, 5, 34, "Output",ExpressionUUID->"de548d70-c59d-44ea-afe8-278f524c6650"] }, Open ]], Cell[CellGroupData[{ Cell[49267, 1437, 205, 5, 30, "Input",ExpressionUUID->"4f083623-19f9-434f-9385-ef23ec808593"], Cell[49475, 1444, 298, 6, 34, "Output",ExpressionUUID->"1f5441cf-066d-477f-94b1-dba389241845"] }, Open ]], Cell[CellGroupData[{ Cell[49810, 1455, 204, 5, 30, "Input",ExpressionUUID->"ba40110d-0a2b-4302-89b4-675eef8af853"], Cell[50017, 1462, 298, 6, 34, "Output",ExpressionUUID->"77dd56bf-ec3a-4b90-b98c-4dbff577eaa5"] }, Open ]], Cell[CellGroupData[{ Cell[50352, 1473, 467, 13, 48, "Input",ExpressionUUID->"66359b41-afd6-433c-b4bf-6424aae50732"], Cell[50822, 1488, 337, 7, 47, "Output",ExpressionUUID->"26ae734a-bca6-4718-bd75-90d1ce87fbe5"] }, Open ]], Cell[51174, 1498, 233, 5, 30, "Input",ExpressionUUID->"1862be44-a03b-4eea-ab83-062fbccad862"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51456, 1509, 156, 3, 67, "Section",ExpressionUUID->"3f39fc42-453e-452f-bd0e-d793f62c06a5"], Cell[51615, 1514, 506, 14, 33, "Input",ExpressionUUID->"f2e97772-a1a1-4ed3-b650-b59f8ec35051"], Cell[52124, 1530, 493, 14, 33, "Input",ExpressionUUID->"1811de31-c4a4-42a7-a369-8eb8ac8481b4"], Cell[CellGroupData[{ Cell[52642, 1548, 295, 9, 33, "Input",ExpressionUUID->"bc6717fc-aad4-455c-9b77-fd5e14a32db8"], Cell[52940, 1559, 586, 17, 37, "Output",ExpressionUUID->"c01212a7-dc0c-4408-b511-f8c481017607"] }, Open ]], Cell[CellGroupData[{ Cell[53563, 1581, 448, 14, 33, "Input",ExpressionUUID->"be810db8-c62e-4b22-ad70-1deff37d7acc"], Cell[54014, 1597, 557, 16, 37, "Output",ExpressionUUID->"417884c5-8cfd-4649-a5d3-5d89642f9000"] }, Open ]], Cell[CellGroupData[{ Cell[54608, 1618, 791, 22, 45, "Input",ExpressionUUID->"1106f47f-16b3-46f8-bac1-a7bd8f488099"], Cell[55402, 1642, 438, 7, 34, "Output",ExpressionUUID->"0640e3c5-0c81-4afd-99a6-e50db411d44a"] }, Open ]], Cell[CellGroupData[{ Cell[55877, 1654, 367, 11, 30, "Input",ExpressionUUID->"74ec200b-e5a0-4c8e-9f48-d56a603669af"], Cell[56247, 1667, 172, 3, 34, "Output",ExpressionUUID->"a8f3fe97-61aa-48b1-b528-990e47462ab6"] }, Open ]], Cell[56434, 1673, 214, 5, 30, "Input",ExpressionUUID->"64954e06-884e-497a-8acd-1bae8596851d"] }, Open ]], Cell[CellGroupData[{ Cell[56685, 1683, 155, 3, 67, "Section",ExpressionUUID->"40ab42e6-7e0f-4489-9ea6-ad36b941369b"], Cell[56843, 1688, 820, 24, 33, "Input",ExpressionUUID->"58267bd7-c179-4c26-99b3-d436a8abf8d6"], Cell[57666, 1714, 658, 15, 30, "Input",ExpressionUUID->"9b97a5ff-2a06-4d88-8386-54b3b06234d9"], Cell[CellGroupData[{ Cell[58349, 1733, 208, 6, 30, "Input",ExpressionUUID->"08c984dc-6bf2-4185-a972-79949ea8f8f9"], Cell[58560, 1741, 319, 10, 34, "Output",ExpressionUUID->"a50eb2f0-b162-411a-b5cb-776471d01d68"] }, Open ]], Cell[CellGroupData[{ Cell[58916, 1756, 778, 21, 45, "Input",ExpressionUUID->"7e1fdab0-4a6e-4357-8e3a-2fe629d2ccae"], Cell[59697, 1779, 327, 6, 34, "Output",ExpressionUUID->"21953a6f-5c63-43cc-88d1-4559996e044d"] }, Open ]], Cell[60039, 1788, 141, 3, 30, "Input",ExpressionUUID->"ff071572-24ac-4aa0-a16e-d26f59de9af2"] }, Open ]], Cell[CellGroupData[{ Cell[60217, 1796, 158, 3, 67, "Section",ExpressionUUID->"cd9051b7-c13f-4823-a47e-ebc8eae85a58"], Cell[60378, 1801, 278, 6, 35, "Text",ExpressionUUID->"2529db37-87ca-4742-9afc-e79022ab07ce"], Cell[60659, 1809, 630, 18, 30, "Input",ExpressionUUID->"d3424f38-25ab-427d-8c86-b5af3465225b"], Cell[61292, 1829, 250, 6, 35, "Text",ExpressionUUID->"27b67944-32eb-4bbe-ae48-a6b3ccf3ba01"], Cell[61545, 1837, 607, 17, 30, "Input",ExpressionUUID->"53e08530-19f0-4b3c-9ac0-7cb27091c85f"], Cell[62155, 1856, 187, 3, 35, "Text",ExpressionUUID->"490fb235-dcb3-4ceb-a9e2-2a0d3c5f7d2e"], Cell[CellGroupData[{ Cell[62367, 1863, 208, 5, 30, "Input",ExpressionUUID->"bc031cee-0d9b-467c-8807-adba9938e5f2"], Cell[62578, 1870, 1803, 34, 449, "Output",ExpressionUUID->"689709d9-f9ac-468c-88f8-b36cae39cdb0"] }, Open ]], Cell[64396, 1907, 250, 6, 35, "Text",ExpressionUUID->"e0375938-da57-4956-876a-489062585989"], Cell[64649, 1915, 558, 12, 30, "Input",ExpressionUUID->"ccc2fa3c-62ff-49c6-af47-5ca221e94bc3"], Cell[65210, 1929, 601, 15, 52, "Input",ExpressionUUID->"6324bf5d-ec33-479c-b6ff-da9dfb366dd6"], Cell[CellGroupData[{ Cell[65836, 1948, 181, 4, 30, "Input",ExpressionUUID->"89ccc028-2c46-45b3-afbf-5c994a2068e0"], Cell[66020, 1954, 1051, 32, 58, "Output",ExpressionUUID->"3f3510f6-1db1-400d-ab27-fb3c23e2e6be"] }, Open ]], Cell[CellGroupData[{ Cell[67108, 1991, 641, 16, 45, "Input",ExpressionUUID->"1a9ab1ea-c36b-4f31-901a-dbc004d1c0cb"], Cell[67752, 2009, 478, 12, 51, "Output",ExpressionUUID->"e1e4fc5e-95df-4170-9d02-34ab204e10c6"] }, Open ]], Cell[CellGroupData[{ Cell[68267, 2026, 329, 11, 48, "Input",ExpressionUUID->"6d085829-61e3-4bee-8309-0ae9b1ae897a"], Cell[68599, 2039, 268, 4, 34, "Output",ExpressionUUID->"7ccb2dbc-4d1b-4df2-a7d3-14f275108998"] }, Open ]], Cell[68882, 2046, 234, 5, 30, "Input",ExpressionUUID->"a3afaa09-f4ec-439c-8c70-1c1e0f66933a"] }, Open ]], Cell[CellGroupData[{ Cell[69153, 2056, 156, 3, 67, "Section",ExpressionUUID->"330274df-6929-4612-88b8-fac320b27ac9"], Cell[CellGroupData[{ Cell[69334, 2063, 158, 3, 45, "Subsubsection",ExpressionUUID->"6be553ff-9377-4211-b3fd-20fbffb560be"], Cell[69495, 2068, 455, 9, 35, "Text",ExpressionUUID->"e1059215-a7a4-4db9-bb21-3762684b2d78"], Cell[69953, 2079, 280, 6, 30, "Input",ExpressionUUID->"7a92d99a-f328-4ca7-a696-313d675511bb"], Cell[70236, 2087, 390, 11, 30, "Input",ExpressionUUID->"930dcdcd-73d9-4b80-88cd-5deb7c0dc4a3"], Cell[70629, 2100, 164, 3, 35, "Text",ExpressionUUID->"431b5201-364b-4eb1-9f7b-05755294af3e"], Cell[CellGroupData[{ Cell[70818, 2107, 590, 18, 54, "Input",ExpressionUUID->"4c852bb8-fe7b-47a6-964b-ca059d70c6f7"], Cell[71411, 2127, 334, 6, 34, "Output",ExpressionUUID->"ad3c78d9-1fcc-4b23-838e-38a17dbe15f3"] }, Open ]], Cell[71760, 2136, 171, 3, 35, "Text",ExpressionUUID->"a27917f1-e8f0-4484-bd0f-6fa1c3b82912"], Cell[CellGroupData[{ Cell[71956, 2143, 690, 21, 54, "Input",ExpressionUUID->"6796aa94-5ff6-47da-a23e-5bccaa03f1f9"], Cell[72649, 2166, 226, 4, 34, "Output",ExpressionUUID->"6113a893-4555-4635-a850-6b82876e0f04"] }, Open ]], Cell[CellGroupData[{ Cell[72912, 2175, 644, 20, 54, "Input",ExpressionUUID->"d2d9b949-54b9-469f-80c2-70b0fd8969aa"], Cell[73559, 2197, 247, 5, 34, "Output",ExpressionUUID->"015b887e-6fc7-4365-92bd-4d29c836bd2e"] }, Open ]], Cell[73821, 2205, 195, 3, 35, "Text",ExpressionUUID->"99fa8651-3ebf-4a76-8880-b84adaae47f3"], Cell[CellGroupData[{ Cell[74041, 2212, 202, 5, 30, "Input",ExpressionUUID->"7a4b1f48-e44e-467a-992a-cf22d5fca04f"], Cell[74246, 2219, 225, 5, 51, "Output",ExpressionUUID->"89db18dd-53c0-4423-a32e-c5c362845832"] }, Open ]], Cell[CellGroupData[{ Cell[74508, 2229, 177, 4, 30, "Input",ExpressionUUID->"0f172d5d-89e2-4522-a977-c1c523360969"], Cell[74688, 2235, 221, 4, 34, "Output",ExpressionUUID->"2c8c711c-2cc3-458d-9545-653dd6eaf184"] }, Open ]], Cell[CellGroupData[{ Cell[74946, 2244, 200, 5, 30, "Input",ExpressionUUID->"604396a2-1a4f-45b9-becc-48d35cfeae28"], Cell[75149, 2251, 200, 4, 34, "Output",ExpressionUUID->"4935e8a4-7f7f-415e-9c3f-b0c6da91da45"] }, Open ]], Cell[75364, 2258, 318, 8, 30, "Input",ExpressionUUID->"9d71b0ae-fbdc-43fa-8736-c83a3ea557bf"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75731, 2272, 156, 3, 67, "Section",ExpressionUUID->"b1977fbf-f834-4c9f-9ead-92bc0ced60b1"], Cell[75890, 2277, 507, 10, 35, "Text",ExpressionUUID->"01c4f270-43dd-447f-a134-4d2cf48fa97a"], Cell[76400, 2289, 370, 11, 30, "Input",ExpressionUUID->"c184dd2c-4900-4803-87f3-4330667066bd"], Cell[76773, 2302, 339, 10, 30, "Input",ExpressionUUID->"289324bf-cf2d-46e2-87b8-3b63b646c49e"], Cell[CellGroupData[{ Cell[77137, 2316, 511, 15, 45, "Input",ExpressionUUID->"58763efc-cddf-4275-bf62-1c2df0bf8f98"], Cell[77651, 2333, 243, 4, 34, "Output",ExpressionUUID->"41a37421-1875-4a67-b1c1-3543a530f628"] }, Open ]], Cell[CellGroupData[{ Cell[77931, 2342, 1019, 27, 33, "Input",ExpressionUUID->"988ca55e-e43b-4e92-875d-954b7657460b"], Cell[78953, 2371, 12190, 206, 239, "Output",ExpressionUUID->"53647a83-16c6-4339-bcba-fe5de8c296da"] }, Open ]], Cell[91158, 2580, 209, 5, 30, "Input",ExpressionUUID->"305b5003-0df8-4b95-86e3-0be851a8d262"] }, Open ]], Cell[CellGroupData[{ Cell[91404, 2590, 158, 3, 67, "Section",ExpressionUUID->"3ea1c08b-9112-4b34-a714-f43ba9747e42"], Cell[91565, 2595, 343, 7, 35, "Text",ExpressionUUID->"1cd88ba8-a0bf-42ce-8bf2-cdf638777d42"], Cell[91911, 2604, 387, 11, 30, "Input",ExpressionUUID->"2f7418db-1739-4147-9fac-07602640f971"], Cell[92301, 2617, 373, 11, 30, "Input",ExpressionUUID->"3f130522-2221-4b9b-8a00-01156c6a866c"], Cell[CellGroupData[{ Cell[92699, 2632, 257, 7, 30, "Input",ExpressionUUID->"115448b9-307f-43b7-a410-6fbb35d3e0a1"], Cell[92959, 2641, 311, 8, 34, "Output",ExpressionUUID->"d2e821ad-5e12-4d35-9212-58564fc051db"] }, Open ]], Cell[CellGroupData[{ Cell[93307, 2654, 257, 7, 30, "Input",ExpressionUUID->"e5dca830-5dc1-4f38-bc81-5a248e6554c6"], Cell[93567, 2663, 277, 7, 34, "Output",ExpressionUUID->"5a628e98-61ec-4bbd-9f86-93b52908218b"] }, Open ]], Cell[93859, 2673, 190, 3, 35, "Text",ExpressionUUID->"506ade70-a18f-44e6-9e23-f8772e4df25b"], Cell[94052, 2678, 264, 5, 35, "Text",ExpressionUUID->"7ef3ce9d-5a0f-417e-8ba1-6f05c1067bc2"], Cell[CellGroupData[{ Cell[94341, 2687, 455, 13, 45, "Input",ExpressionUUID->"afb8e606-fc54-4e85-9079-54b0f51d82ad"], Cell[94799, 2702, 202, 4, 34, "Output",ExpressionUUID->"0542da44-df36-4a9f-b7dc-3caa6372670d"] }, Open ]], Cell[CellGroupData[{ Cell[95038, 2711, 525, 15, 45, "Input",ExpressionUUID->"f9be7026-f249-4d79-a885-74c970283152"], Cell[95566, 2728, 203, 4, 34, "Output",ExpressionUUID->"ccb64a42-be88-4c42-b3ec-013afdfab99d"] }, Open ]], Cell[CellGroupData[{ Cell[95806, 2737, 179, 4, 30, "Input",ExpressionUUID->"5d912080-d1af-47eb-90f8-717b1e534f56"], Cell[95988, 2743, 178, 3, 34, "Output",ExpressionUUID->"4a1faf59-7512-4280-a391-eb482f67a8ec"] }, Open ]], Cell[CellGroupData[{ Cell[96203, 2751, 344, 7, 30, "Input",ExpressionUUID->"0a6d0be0-85e5-4863-b420-2ce1f11d78a7"], Cell[96550, 2760, 255, 5, 34, "Output",ExpressionUUID->"a457c559-0dff-490b-882f-96ec99811374"] }, Open ]], Cell[96820, 2768, 283, 6, 30, "Input",ExpressionUUID->"20538052-8da9-41a0-8937-2ab8b51fc195"] }, Open ]], Cell[CellGroupData[{ Cell[97140, 2779, 157, 3, 67, "Section",ExpressionUUID->"4dbc8a0d-f7e6-47f7-ba12-f9d525ea0ae1"], Cell[97300, 2784, 252, 7, 30, "Input",ExpressionUUID->"09c8d292-4105-4186-be29-6edba87157f9"], Cell[97555, 2793, 254, 7, 30, "Input",ExpressionUUID->"a9b89f04-ee41-4ffd-94b1-ffe393585105"], Cell[97812, 2802, 206, 3, 35, "Text",ExpressionUUID->"40a79fdf-256c-4e63-b32a-842d4746de68"], Cell[CellGroupData[{ Cell[98043, 2809, 473, 14, 33, "Input",ExpressionUUID->"7a26a756-0148-44de-a1d6-b4be07498761"], Cell[98519, 2825, 21179, 367, 376, "Output",ExpressionUUID->"36eb2ad2-1343-438e-8580-522de3dab5e5"] }, Open ]], Cell[119713, 3195, 287, 7, 35, "Text",ExpressionUUID->"aff38f8f-c646-4fb2-88d5-ff6c181b649d"], Cell[CellGroupData[{ Cell[120025, 3206, 842, 23, 45, "Input",ExpressionUUID->"93d95602-c230-4d3d-b811-e3ea078ed34a"], Cell[120870, 3231, 290, 7, 50, "Output",ExpressionUUID->"b7e334f9-33a6-4d55-a500-4de286c127b0"] }, Open ]], Cell[121175, 3241, 195, 3, 35, "Text",ExpressionUUID->"4867f22a-48b0-4f9f-b931-d5dc4a32b2fe"], Cell[CellGroupData[{ Cell[121395, 3248, 775, 23, 45, "Input",ExpressionUUID->"f76237dc-cc28-4cee-b919-4498eda4a0ef"], Cell[122173, 3273, 221, 5, 50, "Output",ExpressionUUID->"73f46a0b-7c35-4272-97d5-14927899a6f2"] }, Open ]], Cell[122409, 3281, 287, 7, 35, "Text",ExpressionUUID->"31d02447-abfa-46f6-9047-59ad4938c4ad"], Cell[CellGroupData[{ Cell[122721, 3292, 793, 22, 45, "Input",ExpressionUUID->"95afaaa7-2374-400a-a9e4-54339991f4d1"], Cell[123517, 3316, 247, 6, 51, "Output",ExpressionUUID->"ec655571-a986-4d19-a648-d786934832b3"] }, Open ]], Cell[123779, 3325, 195, 3, 35, "Text",ExpressionUUID->"47349c1f-173e-4df0-acc1-08b2d2f21e9c"], Cell[CellGroupData[{ Cell[123999, 3332, 824, 24, 45, "Input",ExpressionUUID->"36412a9b-8f5c-47c5-b237-38657ec005bf"], Cell[124826, 3358, 244, 5, 85, "Output",ExpressionUUID->"cc81e641-ccca-494c-b4b4-07327040e2be"] }, Open ]], Cell[125085, 3366, 221, 5, 30, "Input",ExpressionUUID->"e3cc5b41-837f-4d8a-a6de-44a44d885319"] }, Open ]], Cell[CellGroupData[{ Cell[125343, 3376, 161, 3, 67, "Section",ExpressionUUID->"7d1fe8e4-82a4-4f4c-91f0-1277c3de6d6b"], Cell[125507, 3381, 153, 3, 35, "Text",ExpressionUUID->"c0b9555e-a113-47fa-95d8-2b790919c94c"], Cell[125663, 3386, 254, 7, 30, "Input",ExpressionUUID->"48668205-453f-4b50-9494-d7d2ef308c98"], Cell[125920, 3395, 256, 7, 30, "Input",ExpressionUUID->"3d5f2893-9b39-4cc6-b2c0-7197e824a713"], Cell[CellGroupData[{ Cell[126201, 3406, 470, 13, 30, "Input",ExpressionUUID->"0a33826b-f60d-4839-ac21-c714efca4a1f"], Cell[126674, 3421, 9128, 165, 376, "Output",ExpressionUUID->"ab797f02-e4d1-42c4-b767-dea387d4f522"] }, Open ]], Cell[CellGroupData[{ Cell[135839, 3591, 833, 23, 45, "Input",ExpressionUUID->"b4e536f2-f39e-429d-afda-84cb31d3ddc5"], Cell[136675, 3616, 273, 5, 34, "Output",ExpressionUUID->"3ea4e8bd-d9ba-4d43-80a0-808636b5f8be"] }, Open ]], Cell[136963, 3624, 209, 5, 30, "Input",ExpressionUUID->"31d13491-04dc-4a90-9759-5679dd0ff025"] }, Open ]], Cell[CellGroupData[{ Cell[137209, 3634, 159, 3, 67, "Section",ExpressionUUID->"e54f107d-96ed-4bbb-8f99-9527435271ae"], Cell[CellGroupData[{ Cell[137393, 3641, 359, 10, 30, "Input",ExpressionUUID->"4f46a160-dbf9-412b-b032-31dd0c9310f8"], Cell[137755, 3653, 275, 6, 34, "Output",ExpressionUUID->"5a238081-96cf-491b-804b-b3d84424694a"] }, Open ]], Cell[CellGroupData[{ Cell[138067, 3664, 366, 10, 30, "Input",ExpressionUUID->"5671e800-f5dc-467c-84e4-d67170a44ccb"], Cell[138436, 3676, 311, 8, 34, "Output",ExpressionUUID->"36803cc9-c401-4f43-b57c-9c38ed1feab9"] }, Open ]], Cell[CellGroupData[{ Cell[138784, 3689, 726, 21, 33, "Input",ExpressionUUID->"313dfa7a-9581-459c-a4ff-124f117b066c"], Cell[139513, 3712, 9862, 178, 384, "Output",ExpressionUUID->"a7001e41-dbfa-4231-90f6-b1d61e3d3dc2"] }, Open ]], Cell[CellGroupData[{ Cell[149412, 3895, 348, 9, 30, "Input",ExpressionUUID->"c5e865e0-500a-428c-b36b-485e0ef01095"], Cell[149763, 3906, 359, 10, 34, "Output",ExpressionUUID->"87a44805-97cd-481c-8d05-ed7b7a3765a4"] }, Open ]], Cell[CellGroupData[{ Cell[150159, 3921, 424, 12, 47, "Input",ExpressionUUID->"0f246668-180d-457e-b5ec-4ebf2cb7df25"], Cell[150586, 3935, 150, 3, 34, "Output",ExpressionUUID->"689b3ce4-9b00-42ee-8af4-662d5b58a0dc"] }, Open ]], Cell[150751, 3941, 184, 3, 35, "Text",ExpressionUUID->"8dcad07e-ece6-4e1d-b674-d5d3ea42c0b9"], Cell[CellGroupData[{ Cell[150960, 3948, 565, 15, 45, "Input",ExpressionUUID->"12760660-df1a-40f4-b7d2-faaa104ec920"], Cell[151528, 3965, 268, 5, 51, "Output",ExpressionUUID->"a1abedb5-ad99-48cb-b91b-a35d6c341902"] }, Open ]], Cell[CellGroupData[{ Cell[151833, 3975, 586, 16, 45, "Input",ExpressionUUID->"599fad0e-c158-4a06-8141-660d5a374f67"], Cell[152422, 3993, 221, 5, 51, "Output",ExpressionUUID->"3ce9138a-8973-41e9-854e-496049fd3761"] }, Open ]], Cell[CellGroupData[{ Cell[152680, 4003, 176, 4, 30, "Input",ExpressionUUID->"e4f76bbb-85ba-42ed-b7ec-c73c1b8dd0ed"], Cell[152859, 4009, 176, 3, 34, "Output",ExpressionUUID->"87a2ac48-de13-4c99-96be-2a94cc7df406"] }, Open ]], Cell[153050, 4015, 213, 5, 35, "Text",ExpressionUUID->"b08aeb33-88fa-49a8-a51f-763622b0f0e8"], Cell[CellGroupData[{ Cell[153288, 4024, 294, 9, 45, "Input",ExpressionUUID->"02c274af-6e7b-45d2-b8cf-7eb9b413da65"], Cell[153585, 4035, 168, 5, 51, "Output",ExpressionUUID->"a59557b8-968d-4abb-82b7-cdf074b7a5d7"] }, Open ]], Cell[CellGroupData[{ Cell[153790, 4045, 413, 12, 45, "Input",ExpressionUUID->"8776cf2a-00a7-468a-a836-b205683cd6ee"], Cell[154206, 4059, 175, 4, 51, "Output",ExpressionUUID->"a6db8496-7077-45ec-959d-e2849aadfc42"] }, Open ]], Cell[CellGroupData[{ Cell[154418, 4068, 953, 26, 47, "Input",ExpressionUUID->"0b9a7733-1fb8-4b18-ac91-4c53bf2d238f"], Cell[155374, 4096, 276, 5, 34, "Output",ExpressionUUID->"b27cb123-044a-4061-9d60-701df1f042f9"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)