(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 104533, 2132] NotebookOptionsPosition[ 102820, 2098] NotebookOutlinePosition[ 103159, 2113] CellTagsIndexPosition[ 103116, 2110] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{"L", " ", "=", " ", "2."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", " ", "0.1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", " ", "=", " ", RowBox[{"L", "/", "4."}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "m_"}], "]"}], " ", "=", " ", RowBox[{ FractionBox[ RowBox[{"2", " ", "h", " ", SuperscriptBox["L", "2"]}], RowBox[{"d", RowBox[{"(", RowBox[{"L", "-", "d"}], ")"}], SuperscriptBox["\[Pi]", "2"]}]], RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox["1", SuperscriptBox["n", "2"]], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"d", " ", "\[Pi]", " ", "n", " "}], "L"], "]"}], RowBox[{"Sin", "[", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"\[Pi]", " ", "n", " "}]}], "L"], "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "m"}], "}"}]}], "]"}]}]}], ";"}]}], "Input",\ CellChangeTimes->{{3.775322124275565*^9, 3.775322638033246*^9}, { 3.775322672357559*^9, 3.7753227837139263`*^9}, 3.775322845293693*^9, { 3.775322901036523*^9, 3.775322926680105*^9}, {3.775322957287504*^9, 3.775323014543811*^9}, {3.775323056112545*^9, 3.775323106578993*^9}, { 3.775323192547658*^9, 3.775323259519312*^9}, {3.7753240397395277`*^9, 3.775324106150696*^9}, {3.7753241766238117`*^9, 3.7753242175498867`*^9}, { 3.775577142227113*^9, 3.7755771654544697`*^9}, {3.775577226165738*^9, 3.7755773850716133`*^9}, {3.775577421497108*^9, 3.7755774321579533`*^9}, 3.775577627746168*^9, {3.775577659387553*^9, 3.7755776629281816`*^9}, { 3.7755777266888123`*^9, 3.775577775790555*^9}, 3.775581605026321*^9, { 3.808004167132012*^9, 3.808004227511469*^9}, {3.8080043155114727`*^9, 3.808004319820541*^9}, {3.808004490329977*^9, 3.808004505406876*^9}, { 3.8085719682952557`*^9, 3.808572159984316*^9}, {3.8085721981593122`*^9, 3.808572287594261*^9}, {3.80857231794199*^9, 3.80857239127107*^9}, { 3.808572449933587*^9, 3.8085725080920267`*^9}, {3.8085725537723637`*^9, 3.8085725930411367`*^9}, {3.808572679993145*^9, 3.808572680029751*^9}, { 3.808572839940612*^9, 3.808572861232822*^9}, {3.8085729692155943`*^9, 3.808572969603816*^9}, {3.808573024844005*^9, 3.8085730248950443`*^9}, { 3.808573057586055*^9, 3.8085730580716963`*^9}, {3.808573118505105*^9, 3.8085731442926197`*^9}, {3.808573206358472*^9, 3.808573206418375*^9}, { 3.808573265139988*^9, 3.808573355974168*^9}, {3.808573698541648*^9, 3.808573772231113*^9}, {3.84004049140838*^9, 3.840040499607312*^9}, { 3.8400405519388638`*^9, 3.8400405555717993`*^9}, {3.840093539237196*^9, 3.840093548742358*^9}, {3.840093590478526*^9, 3.840093593298184*^9}, { 3.840093703620943*^9, 3.840093706342825*^9}, {3.87188449293123*^9, 3.871884504832776*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"d1c32cf3-1d35-48bc-90f9-974acdfd7fef"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<1 modo\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<2 modos\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "4"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<4 modos\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "8"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<8 modos\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "16"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<16 modos\>\"", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "32"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\<32 modos\>\"", "}"}]}], ",", RowBox[{"MaxRecursion", "\[Rule]", "10"}]}], "]"}]}], "Input", CellChangeTimes->{{3.871884572441202*^9, 3.8718845734623823`*^9}, { 3.871884611541346*^9, 3.8718846412453623`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"3c737894-16e3-4712-9727-e0d3202cb253"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV2Hk0VV8UB3BDSQlREg2SSKIUzfgKTUohQ1KUQuSnDA1kSJEh0SDJlEJ+ ovCuRipKKhkqJSL6mXu8d+97SOh5v9Nfb33Wunedc+7eZ++9nqrLUWtXMRER EXFREZG/v+auvR/LfroaDS/oDd4gtdJogqnysTYlM0i0GI29tpgOvZtJqZSS DUxfuO1IsVDDtpqvrDSlQ5j++8vPcxZ6sD80/OyKkj+0J08QHrUwxfdlkaYX lcJh1JC+aKPFLmQo7Dwfo5SA0R2vVuZvP4gwSWpRtFIW6sfFXliZ+2G3w60C hleMdYcnvZ8tGw4pYdjezfNewHC3qzKbugh1K27vqwsV+F1mU1odcRUna9ci afAdbk1NVaXCkqBYLNcqKloHv6kSF27JpuFhu2l1ncEnxFSYG7rTGXjpmTbb of8ztnidO165JhNDGoay9/75inXsdbcTN2dDbCRv2mz1b3gfZFJ87kgOVgn3 P9x1vwXHv+9/L7krF9Xh+rWVWm04PNJunDwrDyqX+kZyuT9Q/O6nx6mefPQN t7V+0W2HxzKWqFbgfWSxS6pk4jqgsrov5YxEIWTm5tCdnZ14abvhmOPTQsR6 PHDLWNiNA5LXVh61KsIv47zOw6E9MAkzbPBpL0JpVl/KyfAeHExq3uTRWYSz ktq7zkf3QCZUO825uwgyH/LLM6/2YP6Q5+gWdhE0nO+nt+b0wJU95ifDL4Jd cNFumw89mObC2nJIlIUHTx5VQ7UXaplad9apsOC/oqJ45qteKCx80njBngU3 /fkZl9/2IqyrocnZgYXdq4IuTK3thedBycgVjiysX6fvItbUC/Ekla56JxbE TLJkudxeLHTyy5dwYyHeKtzztfJPJEzNNtf2Z+HuMbP5/r4/8cqr578T8Sy0 3a+48FGVjQyXKZTYSxY+cCb0r1jERkWqYU3AKxbKtDduT9Bmo6/7QBJdwULG 3ddT7VezceWkwoavb1hwuVN5sWU7G7WGNk2JNSx0p72N7znJhsm7bzJfG1ng xFZfFdSw0eS89MceLgut76cOOtWzUbz4dU8OzULtFAubskY2KmetSRtgWLgf VTPjXAcbcjxbucgBFo6F116THGHDPJienf6bhcHTH65PX9gHpzlf78SKURjz /JyyOLAP93TWj3oqULBZte/y0tA+CL5Fzg2cSSFftPu8XngfjDuWzYpSpOCU NOxjGNeH3EjLqxlKFMpfK2+xut2HnXekb76aSyFy/oHBU1V9+DchZPyjOoXp DZztb5X7cebRYh/ZlRS8bp0wqVHpxwLJkAMjxBVewtWfFvYjV99sUfsqCifE 5dRalvYj4B5nReEaCk26+iO0ST+GfupsNTKgcPNCYLbikX4o+bu6LjClsGTD pHG3kn6s9Q8QmWJJofBu3qLGsn7kmVLibcT6Myyttlb2IyhB+g7LioJBT1LW ko/9OOLZ88Z2F4UdF7W2Md39SF0fH3LBjoJvk0VSgDwHqZV/7hbvpfDLhF/O VuRgdsiBG377KJzOT+xznMtBdoeIxnInCuGhbUZGmhwwD58o/etMIVHdp0vM iAPr4XSPCBcKT3wSVsR6cDDxYvdNgTsFo+Y1ewXeHCxa23DkzmEKL82+R3j7 c/BoXO+LhQeFKkWNJstQDgTqU84keVJoefYoVOEaB8fTGvXn/kNBZEpzdXoZ B4MSsnKdPhQ231Z1L1LkQvdV8lb3QHLeJBmNyjlcpEf+e6qZeH7cWOc3VS6y M4N9dpymMBrwxWWCNhdjDgfKdIMo3LOKdrI35mK+4bZP3cEkXqI8W8FhLuQW VJfNCiPrDX+fIe/NRftulegA4v7+qnoNPy6E4R+Um4grG7OsLIPJepIrkxPO Uggo3G2ReZkLPUlXScE5Cm3OZWZbn3Khee9K2tXzFKpt74k7veAiaabGyA/i x9uSX/pWcFHvWj5XJ5LCldX+xqm1XGQ0/CkvJ94oq2lAt3PRqjbpREsUhRUT FcbEe7kItnNQmh9NYd6Y6NNZHC56c+IjXIh/dzevNhnmwkov6XEHcd7zeL1r UjSuCXKjvsZQSCoO4udOo2FWeM9X7gKJ312PoucKNPZfPqFuTuyUaLqsV4VG SMPWrkfEct7DWuv1aUz1TqoJj6UwfrDz5861NKxk3AXFxGyHj/8eMqLx9NWP oQ7iio15GnFbaJh8fGdsdJHCybnOC/7bS2PIU92ok9jFUteu5QCN0JC7g5Pj SP6dE4356kaD8/a/0KXEGj8zeTXHaEy0d5rhTyw/57j6u+M0HvjcnHuNWLBj k0NFIFnfJ2asmPhzcW/Z03Aaa6/YreQRl/U8GXwQTZ5X0r8sHU/Or3xBsyiO Rph1cbkm8dkzOpdykmjs9EjMcCT2psZf3U6jUWQwtMOP2KG7bjjtNo1F+czH aGLd7b7OCflk/zKPbSniOaGmV+OLaLSfD7OrJJ7EmvEm5iENqaz2JY3E/M6u 0YgSGkG23770ErcqPloaVkZDI9Xd5jdxlXmUS9Br8n5MdI7EJQoPgh0ST1bR 8N6EuunEGYVaVb51NHwmRr1XIY7tGBP885lG4LSDqVrEp2bWLPdoojFWXrdB n/jg1nTXQ63kPOdrSgyIdwQdveHcQaOk2XGKGfG6AuOaPb003KwDdcyJNdrl RO04NFxiNdV3EsspdOhb8WncMXTjWRP/2Vx8ePswDTltvSu2xL2BEamb/9A4 six+kj0x227J4VsiDJyWB1r99X5mupiKOINzOoNH7Ygbov+kpE5kYL1c4GJD vE2ta6WyJAPdvde0rIjLSmvqrk9h4NZWWrmdeJXdQw8FaQYa436rNxPn0+ni V2UZXJAuCTImXhAdmTZNnsEl/yuJa4iTFhxbHTeDgUr+aPgyYpnS3R+lFBlM wuBmdeJw2w1HopUYjL4LbVMiHuEunjhpDoPEsbRt0sTeUfI3w+eR/SfsjBWS eHSqjq0RU2VQ6nbtFkP8wabaS6DO4JDjf1vriDdxiyVOazIQD/rZUkpcGpmW 8VuLQfenaLNc4pyn3p8HljGQ7Lp+OeRvftjYe/usYPBFR/KkO/EVDiRpfQYj bxSW7yQOmS9nwF7LYMcHGbXZxINPRr64GzAwdBTsEZL89dzVfrTLiIGoT7x7 O7HteSrzhykDr/XZ41nE2v22Ul8tGNzVql44h/ixzfYXMZYMLv6+UTNA7pfp MxM/o10MSpo0Z1YR74lb1py9m8Hl/GvnfYmjdSfn+R9kcLVVvItF7uuMG0In TTcGKR3LY0OJM0R/ybccJt9bZ329OfHjT+2Bpt4MukK5xt9JPej2LzWXD2Bg o7gphUfqie931vjr0wz2xpdsoIgFG3NZASEM3hZoR/kRz1BMVP7vHAM9/vQh mtQj0ydH2QVxDFaoBe5sJPUsQ7AgxiKLgXP2dCl3Ug+13ZSMRHMYNHZepeSJ H9XK8otzGTzXOPinNIJC7c0/DnMKGDxmSxyVJhZsaFjc94SBzxH5pjRSb/ec j34XVcfg63qxyqAzZL/c0GCDTwzWRASdkCf2sT+xnPlM8odd9OZOKIUozYM3 7L+R/Xl7bX8fQuFhlYGHRhcDu7TRNvG//UCWkawYJflzPX2VXgCFT89iIrcK GFT1vb9ScorE10tdok7I4ElD+DMTYvmqPeLfJvCQofooxOIkccRrAS3Dwz8B vEKb4xSmjSXzZ6vxwIglNy8m/Wtqz8YWv208eCefCKdJf6y+9mPPiAUPRx83 lVsRx5qdbgqx5OHF9aZalhsFqduFDdG2PNTebrD3caUwZd/sjzedeQhZ16zx g/RbyXrm9Xs/HgJm/SoPJ/16wouUArVUHljJYavZpP9/MzDb0pbOw96FdpNm Ehc87f+RfIuHMzGr/YzJvLDnoaG8fA4PW8KdVC7voFB0r81fhMUDGeKrVLeR /pCqtu77Gx4cXmoGi5iR/AjIq0gc4OHPoa6XlD6FuOFd+6x/8XDAR0af0iP1 6fifIekRHjybDpgWrSD31cdiUcQ4D7OVPxnk6lJwPUxH+03m41Vod2qUNvle 9no7LVX4WOKauWDiQgpH9EuaJm/jw/ftm7ohOVI/PnzJf2zBh2KCZX7tNAoK /zCh7pZ8zIkyWHVHlsKLbHWN17Z8vN94ydpKmsRP8ZLvmf186L70KrguSaFk 5JDU8HE+1GT9p3aNsyD1QsawM4OPCU57+8+yWcjb6pLx/BcfG2assv3wjAV9 bVUjjPBxUUr7jXcpC89lfjS/GOOjJyRLcWoJmXfr9ymWiwxgZayvjeljMl/u c4h7NWUA9EArslgsGPlaBr2dNwDvalneshzyfLLR7k+bBrAwWNnhKJmfh/qU p3UnDsDWUcLx6l4yz+/aLJ5gNojCaZk3lduKELol4mZx9yDW+zbyc+yLoPrd vDEzYgivzUfZq18WYt3q8ASlFb8goTCnXUamEHvn1Y2I1v9COitleVDefQxV XWw/FjaMWR8TnBaN5iNpgpO/9cLfKJjni4jNeZje+uC2WMVvnHCc8mXgbC4m BofZrPUZwXwd/nOvoByI5DoVtMuPIl/R2TvsTDZ8kwsuyr8cxWhU3ZNNJpl4 tiRKUs57DD84aSbNvzMgZ+6rfVbmD8JcNtTYXUhDi86H+oDSP3B+5nKzJjsJ helY2OkkwIm5B8ulR69iX8EqubnjAtjeOMeTyY7DmYhbYS13x8m8velBlWc4 7vXOTZHZLoTgZIqI+7XjiEqL2N+6QwidRL9CPRzHIWuO+n0rIRZ7tZWP9/pj TmlpoYW9EDWmj9UuGfgjJt6xMtZFCLsjzikZHb44vOoGb0qAkOTBYeWQ5cew IHzGlkl3hLDeVfGIleSK8TVB0l//FUIiDIOCvkNo4nR8upMnRPyR7KTNOIRL 9tS+TUVChN7/bNHQ5QKhlrVfRKkQw+8Nv7Wv2I+Wj/Hp4vVC5OT0j0fesMXj 88MH678I0df/8/0wbJCw3nlxZiPxZo60W7c1tmUvLTZpFSKzyX6PkZ4lnp6q eRf2UwjfkNG+8hsbkaizMt6qXwiffQ1Jcd0m8GlPtVGlhZiWOvmLg54xNLd7 tZUNCjFP1jC16cZKTBD9nHVpWIiN2rm9Hnq6+PFgvef+USEUh7T4vBvqKPXM XKYrEGIBtad5TrICrqtIDQmFQjhmRob8/X/gfyEaKjI= "]]}, Annotation[#, "Charting`Private`Tag$29527#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2}, {-0.1, 0.1}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"1 modo\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.871884510076777*^9, 3.8718845746964207`*^9, 3.8718846417131567`*^9}, CellLabel->"Out[25]=",ExpressionUUID->"d9c99cb8-291b-4877-a1e6-9ba29d8b9454"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1nk0Vd0bB3CkKDI1UakIDQqvRKl8JUREpqRMKd6ohJQpoRAhFRXJGClD xnsUKulqUIqUWaZ7z724RG/m4f7O74+z9vqstfde+9n72c8+Mk4XzJ35eHh4 5qnv/+0hZ3ZDVb+z1uJV3gGm4/u1+A+s9uiS0sWmvhJhcf8N2JGa8KhEyhL3 1Y7wcPxUYFTXXJwsdRrrzCZv/vTThvXpiVd3pbyRIF0XV+53BJ3KNw7ESIXi YtSMgrufI9JWmIbflIqHZsMqdWNfD4QIlmyKlMrEKc13E18uBuOYTXrByGgp Ium72qTF7kCIG2J7cN0bjK7fjsAtiZA3G2a/i6KjXfjCDL9XGny+7kbC3094 WiPdbxeQiVWl4r94eb+hVue3yiKJpyB6D3z5tvc7SnNNTKbLc1HtlrzGhvMD EdtPCgWIFmBMYZ9o/vlmjDUeTxP/Wwi+qVyxNfJtsGqvMW22LoY615GweN4B +Zp/Pn+8UgLjw1XX9F50IPaZTPZEcAlOJa031ajuQNbsfhm5sBLc1vjFWt3U gVm9kuFLMSXov3BCqneuA2WLvjBmk0vwqNvqisfhTsRe6vrz4HUJeKsP6cRw OuFvn23FM1+CL6FqX99v7cLBuqlHkZdKoSn6me/Ozi64rPW3POtXiqeJJzVO aHchNn/95kOBpbj+/Fbab6suRLhny3JDqf4tbC/JkC5wo5xt9eOp/orJq9ya uxCUejXDsLgUOv3XChfpdEPIzSpBhlOK9bcHp54Nd+PC1mKFJdY0vD4Z9Kz4 v25on7ogOGNDg/2OZTYVk914fCjApt+WhkdNmi++8PUg6iu/4WsnGiSlb17+ vbIHV8zTjhu60yCRs/k/NfRgiB6tzAilYSHdmfMmtgdWvhpjioU0ZN6bSvoY 34PACJNbtcU06P4bY9SQ2IMueXqcC42Ga0toOb2PqfErovvul9Mwf4TfdeGL HnxbORLfQqdhsjODeai7ByvvP9jR3ULD4ETXr58qvZCNXCfNw6WB+De2+pB6 L2q+ebkH8hIIbtZ68mZPL5788SqbWEBgZVny+Wf6vZDe6aXSJ0hA5/KJ2Su2 veAV8nh9T4LAw79NUnIRveDRTjB2lSdgMFpn6dXVi6WWBqdrDQgsOxm4i8Xo xco3jaXkIQK/6rettR3oRVXv6nmuMQHvwqg+vbFe/Ly+OWCLGYHUC4ZeUkJ9 4LvvJ3PMhsD4ED22Sr0PDgJ0VTlXApkDFbUit/owYaS/yTecgPsD041ucX3o 55zIUYwgoKHbF1CT0IdlYTS9jkgCtclLtl953IfPsx9q1GIIjB6xie1/0QfH 2ju/q+MIaJWNW9D7+uCu1ixsmUZA8PTNvPX9fXAeSlNoTSfwXWzdwoDhPvh6 aZ048ZiAs5se8c9UH7w/5K2wfkIgWjpeMlWEAVph4A/FPAKt1//p9NvNwHQN f9ahMgIZKjU7f2oxMBpGv5b+gsC5zmO3VHQZMLP0uzr2kgCPRjBYJgxEbE2p j68koDDwNd3yNAMVtyeZhW+p/TlyzkU5lgFJV6aAw2cCItLZvxkMBhZ/vtUZ 30FA++j1zr5+BlpWx6wO6iTgFevwuXeYASPa9Q6XXwSaeCWzuycZyKjQG1Hq JpBCRth3CDPh/yvbLr2PgFKhW12jGhMF+vfDRAcIOPbrV3zfzYRy3UOl75Tv ym581qDFhKyFj+PdQeo84ttDvxkwIVD02kFoiMBrP+O9n22p8axPjV2/CRw+ oJRbHcqE1R2dOokxAlevLEl8G8lEFOw2PqdcSCPDq24xcT4yYdHBcQLLN6c6 vU5gYqnxnUueEwQ6hMVWl+cxcSk7dO7pFBWvPkfgZRET73wf0lWmqXiDPo6V EUwwVq1dQ1DOHA1uoFUxsW421uflDLW/TaMRRT+Y6PaIGc+Yo+IV/Xq5sJWJ +DGz/avmCdQb5Jwu+MVE3iaWdCRltQon7Xw2E9EJr2KcuQRmUxsnns4y8Y/I hyO8vGVQai1gZvOS+BFfrupE2VEiuvHJIhLr5eaeVlGmh+oWZIqREBEjLC7z lSHaleaSJkdis9RsDn1BGQa08yOEtpJIq6rNleQvw0HJrJzLyiSizxU3uVLm +xA/bKxJopnnat6ChdT8KdFiL0BCu33PMWPKry+Fqm7UI9GV/F75LmU/Oe/L U6YkpgpnT61YVIammbMJp61IzOiGvzWnrNZ4qvzbcRKjBxONYyiPhFjMZzmT GBNaNzRF2cTGaIP4WRLjtl4LtgmUIVflgM4VDxL+e1cYnqDs0qUabh5AQjJH /HQRZTqx9emrYBL/ipprtlCWvSVbuzmchFXR8/2zlIOdV3PiokhcOvLIX1qw DJ17JUS4t0n47rzN3ENZc/kSFbf71HpUeK5bU04Y5DX/mURCL8nJwoPyePXU Re10Es6WStbhlC0fjt7LfUKi4l3brUTKxZ79ZSvzSAw2d00/oyxq2NMaUkSi chGRVEb53IbWGQ5BosO4ybOacu1EvfSxShJvt5cH1lLe/O0j3r0lcbGk/c03 yuFPqk4qfSDh7k7b9Z0yI/DF9cQvJFwvVbMbKO+3Kszi/05Czflq/VfKKdue frjQTCLc0XnkI+XZBWn9bR3UeYn+NaiifLz9gZB+Lwnl9Oy2UsovimO3F7FI zH2Yy3pCeeXNG6Zrh0iwK71z71G+eDLI88YfEtn7ogZDKNfv8on7M0HiW3SV y1nKSmIXaHZzJHI846XNKUezXJo/8rGweNcNMXXKA6/tp3YIsrC2UEp7FWWD +0fXpC5lQUOpLm+MOo+s8yb7lixjoeLmRusGynx6+g6XJFmol0lFDmXHtVoh 3dIsGDVWuwRTXvt5ew2xmQXOPbGLcpT9M+RZMkosHJ/QsflD5Uuzn/TimB0s OC9TCn5F+e7mpYdPabFwrkL3rtH/84vLf+HrARZe5l+5KvL//Gqevb3bkAWG Qnj+VypfF4dzfohasiAusa1Jn7KLHWPc34aF1OmW+nkq/+lqHZKkPQvvj/qK lVIO7vtsW+nKwk2y1HEl5XHtXMaZIBYieUwty6n7VZk5mOQTyoK0gH67E+Vr gtsswiNZmLGd419MWaQ+7+3jOBa0vf10TKj7qeDwPOVXNgu+AxZeldT95lQP Ww3lsdBuO7HGnHKxgvLS2SIWDPvnzjKpeqA1XBAgVcmCRJsw70LKRwOLjlnW s6BXpyq8eZbA2p5R0VM/WfCUGRrLoepNr67qB882FsKO1kQqUnYXLtkZy2Ah qamkSJ6qT+FJpRK1kyxE8XeKzlP1jfay7Atk2NiVvsMT/xHwl568bqLARnSi pXryH6q+hezaY6fIRnq7af7kKIEvBi+f+e9kY49kQ/HTEQKM5vJwmiEb0xlj W4ao+rt8/JW2ohcbEz35uwXZBNps5id2+7Cx7ibt2H4WgbRXWgUGV9hYGlj4 jy9JYFvYG2mXcDbm/ru7rItBQHf52+m0h2wo56Rl3emh3htVeunKd2wkL37p e7ONgIvahrQ7H9mYPMMoi2olcEz9SpTwVzY+6mZY3WwhsEdTzYmvlQ3dbfcK gpoI8Olkig4Ps7FXs3Dk0HcCsWahbjWr+3G7W1D39CcCOR66G7y9+vE1bn5L No3AI680od8+/XgcsDHRqpRAjPfsuGtgP/hLywN5Swh4+JbWOUT047qHZo5Z IfW+B8sFGKX0g27qkdWYQ4Aey98kW9uPOOnCOvtUAl3P6VENMgN4myaq+4D6 P6gf4ueobhqAj4Wi/1wogaptesbx2wZgmDlqefI6tT85NcLWGgOwsbs+IxNM wOnJ+5gO4wH47xmTueFHgEz+GMvyGYDdeZmgnrMEhqK/xM3VDSAlNodsNyEw 4/YjaYv/IGYW1k8vEyFgqW53RyloEG1fhupEhAnk8ZLhO0IHEfDGo0pgCQH7 hAnPfbcGUb731KK/Cwm8rVltYJYxiIjaHVuIORpubDj517d2EKXnVzn3cGhY 1jRk/HE1B0s1pu+3fKJBcb/AvEsFB/Ya5rmeV2kozMnd1FLFwYOYJQ/pATSo LT9iZvieg6bvVyNX+NGwl5WQqdjAQbv8SfeiizSYxGw1GiE5+Lo83K3hDA1e rYcT/CSGsPvyLE+JOQ0vPeNVo12HsC640maBPA0HM2T+LVo1jBvCVnKi9FL4 SDvI9tj+xgHx1Lv3Z0uwjWMl1Hx4BOIfQ9q95UqwTHREkD49gsU9vSUvFYrB /yapYOOjUezon3TwVizCWbWK1sVGf1BqWW54QrQQuYZOaa/H/0Bg/Y8msZ58 jA2uFiPv/4fJWJGz1dW5oFkcXBCv+xch6jSzlkvPEGQQllpK/sXesQxRT6ts yHQeankcNobMuvMj04ZZ0NQIjZdSHUdxzQP7R7KPYbvu2xRv4zjirBKv8aql Y6w2ptcjZAIT+QkWn9xSkMBv720uN4lgAadODvkQy37RMvjok/hSUBw3nPMA CwNDLHd7TkHe4+ySNWfiwfPMvqBXYhqxg3nJWol34PWwIEaiehrNA0eeHUuJ wSvFCEFx9xnoBQTlJWZEQPyQ17ZrIrOoyTb/s8wlFB3b6xv9KmdxIfydtb16 MApTIMewn0OV81+7Cn0/2BWoi0vPz8FbYUOffq0XgsPSQzpy5rHCevlO0vUM 8tnSSSLGXHguvxOW5G6DiOQwx18mXHxvc5kmBWxw2nxI/rkZF7Xip/dopR/D 2srKwsPWXBzfUXBK9Ic1bsaeeB/txMWH7PNSGppHcUY9cXSJHxdaP8+5egla QDZ0uYHAE6q/qHBw/FFDzO+6srT5KRf5WZwE5ygDtA71fX+Sy0XN2e/WOlUH cdu6xE6/iFqPfPZB6a364G41vxhWyYWyvo67ybwOOhpiUxY0csH77U9Q3JHd eBE+carxJzWfzQqHIxUaiN/jsOVxCxc+KQ7hkgrqMMpSKtX5xYW9093cDzOq KPet+xTSz4WB3fYwSdMtuL99Z6wZh4utRtdy1sorwLP3kaXMby7y8masFWdk sdn4XFfVXy4cQ3Nj6CZS4Of9kXl7got9dT+ERGck0E3b4+Y4zUV7iqpsjcli VLo9VlaZ42JL17VzIyZTWg/WC41xuVzE7jux/Ha2pNb/AD9B/bU= "]]}, Annotation[#, "Charting`Private`Tag$29599#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2}, {-0.1, 0.1}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"2 modos\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.871884510076777*^9, 3.8718845746964207`*^9, 3.871884641784698*^9}, CellLabel->"Out[26]=",ExpressionUUID->"c73c3a20-9f04-4ea3-a242-92d3c3a0c1e4"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1nlcTF0YB/BW2mV5I8lWvNFCtFDp104pS0qiLGlRIcqrUBIVRQtCu6ho 0TJm5k6UkEilLFFappq50560b2je64/7uZ/v5557z7nPec55zgoXH1s3IQEB gRnq+nu3cuv+/KrHzfByxeLidQHmhiKmi0+1yZsh21iukkZTwsb78cl0eTt8 DPJtCKVtxPaahqcp8q74qGS+34NmCgfXiRe35M+AFXAh0oC2B+x1V02j5ENh eke8nSg8irR/doZHysfhmF7uCnq+H0LE6P9GyGdgzK4kq+DRFexzfFAwOMSA 9Mi7bZvt4yDJD3HauvQl7k4WVg23pWDV7oHuN9fLUUrz0GafSId/7WbEj1Zi z6y2H8ZiWVjImNsqKPgRXpztceOiT0BwTT98NPgCf/k3q/+dKECZV4qCY/9X VJ86KDtJp2Fs9ZY5eScaIJzo5DYkT4ch16QiMqABl9xmFUQtoyM8ZVvwsSsN ME2JlVi9ig65BXY/lRIaYEMTH7NaT4eOoPfHxPIG9E7pXHOzoCOgOT7mmsJ3 8L5c0mSfpuN3zOgc18rvkHlaq1r3lg6hqVxZhVVNqN5Nd3pzhAGFGpMRrGvC 5dJp43nuDGg9aPzmurkJBprSmc5eDLhZzk7Kt2mCz3Q/2ePLwPsEl1UmZ5uQ lGNp9P0KAzF68nqeFU3QVr1tJ5XJwJLA8KMsz2a4esuqf+YxoL1L0aLFrxkz cYUxBd0M7FBmqAhebIa7xfTxyH4Ggj9wfljdakaHxsl72qMMcJdsCWh93owF QTtzjwgzkf1i5IaoVAtsP2yslV3BhA7/MLEnvwVnG9dvqHZkwtrm1WXzohaM TFQx/nVm4mjSsp26ZS2Ys8ii/tJhJmJ1W7sW17eg7KLZuIoHEz0+B+S5fyh3 HcjbdYaJ5Hb7wFM2bDw4OTBvJooJwTIrk6h+Npwflrz9XMrEItkcmeBxNpZr JniUvWZC46B48ymBVnDD9uQVlDOxf7rCz25BK/YyjVZdqmKCscE8U8GgFSeV rWsmvzHhng6xnOut8GAWbrTsZ+JDqFbtu7VtyEsr1zkmR0BvTrXQTe02mEav uKEsTyAr4YjuAaM2zFIxnGhRIHAlPzrtp30b4td6y5qsoNp/7/ZdFNKGNM0P +9mqVHvVlIVeDW3wcA9h7jMiYNJzuXCWSTv2/3dy2M2dwDmN2irvre0o0a7t zTxGoNBPvuOTdTty1QfFuF4Els4UyCc5tCO09EPRDh8CU/PYl9edaIe9lufE lD/V3kDXfl98O66qKwbEXyOwLLZvKnugHW6rckWmHxEoPRKc/XSkHfkLZHIe ZBE4uHG+Y/FkO57Hf59lkUMguV6v6IMQB4kEvzs0j8AixcizP+U4OJFufriZ TmBejsqIFjhg648/7HtJgHah5OEWMw7W3LOafeg1gV02u2wtLDkwiaxX+1hG IGbQn+awhwOBwtWlmW8JSOlW+Jz34KCw6pOkWjUB0XK3/pcxHAzs3NaV8o1A xp2ppPdxHLy4+D2PXU/AzCNq++cEDtRqzI0WfydwWYKZw03nIJMVVB3RRGBm l4inaBEH/+6ZijZpIzDJfthh1c7Bofl+ngrdBO4V6NzZ08HBXL0CE5UeAjoh VWZOvRzcfW0wotlL4D/l4fQToxwoJZmx9fsJDHsZu8SKcZEfye9ZM0igb6Kt 9dt6LpW3XrE+EwQIj5gyKx0ujMOtTjtNErjUYPjopT4XKn4+OeZTBORYKSey LbgQnRuzRvoXNb9nD/wOdOIijBXnf2qGgHSnRPvQES4S04V0jfgEvts/f+Pu wYXNzra9UgIsnNSWv77Ll4ufO6VLEgRZSBytl1e+xsWmIzGbI0RYcHMN/xMf xQX7zkt5A1EW1n/V5kjf5qIirNKlj/I7elzWRAoX76ToGzGbhSFfW91qOheP 1875WSzOQglXUMHoGRfJzE1athIshNvSZhilXLie7ezlUV6yQfZdaiUX2w7p 0PiSLGwbqrHzbaP+R5XxSkKGhflHgjZ18bjQHhGhhVJu/aS2xKmXCz2/MoVf lM8UXifNx7gIHBF3Y89hAcv1K55Pc0GebzS3lGVBIrY3Z50ACd67tEwa5fs+ lr7ykiR6Zz3p9J/LglfbpH20LAn9XwZV3yhr7czaLCxHwph+SHP9PBaqNGYL /lhOIjhhJrqJ8p1UgndkNYk2lY9X185n4bCM+/t6VRLPDJrE/CmP/yiPeaVD YtYL2yzRBSy8dj7jp21Agv9FoXIr5Rs1Sg45xiQGS+vPhlN22FKnt2wriTl3 6U9fU16Zd3lpnDWJt7Zk0BTlH0s2CInbkiDr7jWq/8NC0Q1OR5ADidZm4YqD lG2OG+V5uJConfh8gKC8qOVnbIsHiaZfKaJsytzt98/sPkHiuNuYuYAcC3nF O/a98yXh5zxn6XLKAaoz+voBJNr7lGIMKJsm5S0rDCLxetw70Z6yjKSz8Kor JGKNVxh7U248L9WVcI2Ew/GLoUGUM3qLq2SiSQwPl7rdoHzy3k4lr9sk/vMU L7pHWdeMvPA2nsTsofHK+5QFhs5+XZ5KwvwEIzmDclWKhHpgOgnZ6z6ajyjH WaWGNWSRqH65N+Lv84MTmq0b8klkbEvI/Pu+SsZbnWg6iZY1Hlf/fn9ol2NM TxEJSY2hdX/7f/6nv8uslMTRjmNpf8cXmnPJKO0NNb4Mgaa/49/hsCDh13sS k2F97L2UF4lkDe2tJbHAzTnPkDK3UN/qaR2Ju5xISyXKuc4fH0o3UvFwyqaL UD4jcfTXsVYSc6cG+rlUfA1Z43vKSRJnEm6Nv6As5hr5ZFkPiaT26s93KH+R XSp6YYDExvV1wV6Uk1/QnOtHSKhncQQNKLt5mROaUyR+r9J0lKCssbBRJmqG yi/T3+HfqPmffHPco1uYB7l9F2+k/M0fxbhF92V42OEar6RMeW/Vv6en5/Ow Kz+HxaXyb5l/caW9PA8aN4+ppFJ++ol7XkqZh6UEmSFJufGKJvvcZh4iIrvU XlP5/nD9W+1vhjwUJxypdKd8nL0ver0ZD7c7blmLUxbQvYSuHTw8OqQhZU6t n9W9tQ/sXKn+X43dvketv8G7LtMFnjzsfPo5Qpnyc9NxW0kfHsIWppzKl6by M0VRpOwcD96GqnLPpKj47Truvi6Gh2xPz45sav0b/uGXRsbx0J4pcHUp5dk5 txd2JvDwX2KvUiy1fyQKF79PzuChrWzUzkuMWk+EuKrEcx42PSkqmqb2HxnF xz95PB7UsisKblD7mdHeK2yyhwfmvHSHVmq/8405VM0d4OHkppbT6pTrBRc9 bp/kYZnPe8HyPwRSO68dbJHqAO2FRf6XaQIahV41dVod8K430vQfJXC4x6L4 y+YOKG/afCVthMCtlUrZnw07YO9n7lgxTGA8rjn04zbK0nJ3pYeoenfO2qDa qQPBugt9A38QsDHVyC0L7QD3a18hr4PAxUCJhNcRHQgbiavu5FH1k9kZ/iq6 AymhfoGdJIEFKvddSuOp7xl4ZLZyCLRIyS5+/qQDCqL7tZ6yCRyvH7pG+9qB Ey0all1fCdzwZLqnKXei9nqE/02qHvYa5V2TXNuJxLqJHLVXBLYuysw5u64T xKrSjW9LCQhVxA1Y63XCZoP79oFiqv4rnzk7tbMT/M6yF8sJAu5tG8JtL3Ti iKKoqBhVn43tCzNFvnRifM2Gjt4YKl5qWRU+DZ1Q3/C4ZGM0gd/CaT1NLZ0w CPq0+PwNAkVPY9RpXZ0IT71ymk+dBzRkfZjOfzqx2XEfoz+EwJJq9beESheG U1cO2vpR8TPK5R0L7kIzP93W0Y5ASUZfkn9oF77dD/4vwJaqv2Jqe8IjutD9 rCD5zi4CMp+evE6/3YW9D43/VFoTWH0oP7X1cRe8rdNVFcwJ7A2i7bP71AW3 vPgjh7UJMJ+xPmBFNyLKLx8IXkDgzIZyhtybbpyOKNRwrKHOX1rL026+70bI dWbRZ+p8tk8n8LpUbTf+SU3dve09E/p6Wi5Cjd3YFNRIrHvDhJBJxpyBgW6s YS++2FXERMzuUK+3i3vwpWDhud/pTOScMlt+xrcHTnfv9lYEMNGWX37984pe RKVGNJooMvHL62vSmvN94Ak4Bl/dx4Cq8ewZ9+J+LGFWDa+9ScfWhys8aAsH 4Pv+9JRL3lP4Kx5ayXH6iWizyaqoLzSo9dtLNtgMojZWDFrThZg/Z1CsfHoQ t/vS+rbMLYTIy6QCpeQhaPy8NL84IB/eWsWN4tuH8S7aqXv+8yfItXRJKx0f xtiCqS3kP7kY61ss23l3BL9FNGR+3M8Gc89W4TizUWQJRj+0XpqF4G1h9xmd o3iStSZd9f0jrGBbfU8PG4NgMj2w5mom9HRD4+Q3jGObj6C4qV4GnJZ+nBKs G4dTkGbwWul0jFVFcU+FTOCT56fv7JoHiBc5eMZWeRL1h79qpj9Kw/xW5kOh 8km09j5J+yN2H6JBIXabT08hWDK6hB2ZDIHsgwXcedNYyD+RbLsmEb6JBVHz yqaxcm1Z3vZL9/BC9ZrY3JO/oPxMddem6jjMtfJVuyzzG8KGDP9Z6rfQov6p 7lzJbyg0xc8KCYhGYSqUeQf/IOacjdqlD9fgXKAzV3HmD5wfON0MlLuCS2EP QlpyZrDpmFy05+VzyOtWTJKx5uM6Z3VdlLA3rqWEHW7dwce+MBW/j/e84Gr7 Y1X+bj4GxX/tllbzwpKSkkIbBz5yX9fMvmjniciYA+9uuPARTVee0Mr0wDGd hCGJc3wsE3ghNsvCFStDF2yb/YiPBJOQm1skD2BmU6B0QxYf5acruiU27kfj D/LLo1w+NkXqhH/d74hYB7qzBY0Pm4DZMs45DuCvtfULK+HD3jY218LSDi2f Y1KF6/i40+swqi69HUXhE0frvvGx2/Pi2pNOlojTP7Qm/TsfzQ60Nzm5W7E9 U4Nh0srHi9C0fxZbmeF5QE1lSA8fnByD3gJpfdxV147Z3c/HumQJIZEnujjN TbZb8ZOP/tMrn9tZaUHF+njbq1E+DkRYDDVLq0JE8GtG7AQf3rmJfSetlNHO 1Pc6PM3HxXBx4RlpBZR4pa9b/4ePC654rCUjiXvLJMf4fD6O3nssZnlgreH/ eiPihA== "]]}, Annotation[#, "Charting`Private`Tag$29671#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2}, {-0.1, 0.1}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"4 modos\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.871884510076777*^9, 3.8718845746964207`*^9, 3.871884641850533*^9}, CellLabel->"Out[27]=",ExpressionUUID->"58dff1fb-a808-47c5-9ef1-85c576aa03a2"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1Xk4Vd0XB3AKDYpIpJIhoQlvmerFF4lMZYyUMotQodEsvApRSSlDpQkZ 73XvKWMolVSizO4956pUSgpFcn/n98d5zvN5zn72WXvvtdZW9Dxk7zNLQECA Rz//f1v6DLXVf/Ix/P3HNTqx0dBQaOuywxxZU+hQMyFWeiuwKe9KNkPWEXzD v9+X6K2HVWtnRY6sN3amiBvL6OnD2ftXzQXZMMix9NSS9KzRr/Hf1lTZeISF m1vFbtmL60t2Jp6VzUB8wsy7cJNAxM5lqJ6RvYWxD6rrVntGwGX3jdLvo0y8 yf0oW69wDqL82L3mK+swWbQ1zuVXJlbbfRtqTG5Cr+rvBS0GeTj+cjOujD1D 6hVnfwWvW5BhSgwICr6Cu8f4bLXZBWBRW1+80n8Dka7C51ELS9AQkLN893AH rA66vpc8UI5xFQPx4qBOlCSEdYwcYsCQMmk+e6ITF9Q1NDaeYCAxZ3v0gdOd iM3vNDsUw4C0lOPIqiz6u+eS893pDOgIHnx1takTKprXXgWVM3Ci90pa0vIu CDk3TJ8bZWA6bUzc+1kXmP6/ahOCmDC1mmo27uiCzdHzLMmjTKSICMTIc7pQ dkM/KyuCCblI0e89Y114UBk951IyE4YBSq/tFLoRM32RY1zARLSpbTqOd+Nn /z8uwTwmZk0WLVq+ugeVGtZCX+wrsbzV5Cc0ehAVKleiu7sSWje633pv7oEG K/hw1P5K+FjMuVZi04PSnmD1qYOVeJrludrkWA9ef7igUBhfibQtslv8m3sw yfMKH2JWYkVEohfbvxf/PduQ+ngRC9q2cmZ9ob1w8A4V3iHNwg5lpppgVC+0 11Ster2chegX5FfLC71o6pQye6TCArXC4MTAw16E10m/3KXPQkHNzxThBX04 kc/ys/ZlQYfvznIo6cM0q99tZyUL1jb1cduIPlgor88YecCC1zX5nboNfch/ p+5xppaFdN2Bj8ve0ZZ6xi5oZuHToT2y1N8+3Jbdp5zTzUI21ynisE0/kpky UTbTLAg2WJqkDvcjyshu8pk+G0sXFYpFT/RjfqL6VJYRG+r75vUeFhiAUpuE j5cpG65TzaGOUgPQqIg4Slmxwdy47fZy/QG8SWMEnHdlwzcfcwuTBzBsvW9R xTE2XsRrvXyylgN1r2mLPwVsbBFvmXVemwOR2iWqesVs3Mvy0N1jxMGSakI7 qIyN0yXnro84cfAg/exQHYse3zUUsjSWA3aLV/GcRnr8uhyZgE4OnHa5KSr2 sCHN2mStRXHQ5XnJkuxjI97oeczMMAdTZ3RKsjhslBX+CbMQ5CL18jG1n4Ns JNepDfRLczFjVyZsMcKGyae4MhETLlT8LgfFziJwUv3l84PmXGx+sOnxYyEC ZaGy719bc/Emz/LgrDkEVs6Uyl5z5qLPN6jAW5TApGR/nEYQF23zkuVaFxPQ dFHLyQjhglnNWNqxhIBvTih78jgXH9+eOtwuQ6BDdf5wYxwXTyIbDKqW0/Pr 6zq5XOFCqSUvSWMVgY+xcYdqcrioq+66MalM/6+59YxSPhcJ92LUqlUIpNh5 1w4XcxEuuuO/tWsJHPA9rxrbyEXc/PDW+5oE5NO/TBZ848L7JbfCQp9ArUd0 QcVPLjitJX4JBgT2bVq8u+o3F8JVGfceGhLIfreFeDGLROtj9S4JYwJL5c4e G5Emkb3q68bQbQTY3+RUfi8n8fR3Zkq4GYFd9eVvBRRJ3FqmlhhpTuCSV7eW 5DoSw2/CvIItCEgWqv3UAglxiVgJIRsC5eHVNw1MSXy/MMXspm1rY2tvZkGi L1tQrGAHgbTvx8udHUhUbZIa1rIloN4g6uHuQiL3GOfYKO2XF/MW+bvR8eWy G+7aEVig23zolB+J9Ul7CgQdCBTN3SN/OpDEZS15y9u0LXu+vUw+QqIslcM2 cSSQFCmtnhNOYpXtBZGDTgRUdxb2344hYf6J8XWc9hMFw9SSBBL/RGuWnNpF QLjJZ7gujcQfktd8xJnArUuT155m0OtfF6M6SNvUL9WqLYuE+16TIFsXAjw9 xT/dufR6vwRls2jHza8spPJJzBu1JqR3E1Ds2+765R4JE0XNpsO064v75o0V kzCrD25soj1jK+QvTJAgZkcUuLoSyFG6slSshsSmOtnL2bT1x9Y9lW4g8Vmk PKGLdt/juuPyzSS8wh+cENtDIPyyg6raCxIvVpSHGtJe5v/xnWYbiYMmK04d oP1wS3ji5nckNl5ISEuhvXuBuI5JLx3v70h2Ie3f/TffW3JJ7M3JHm+gfblU 55LDexKq3Cibt7R1Yp+b7v1MIsbyaQNJ+539vjHvERIVZ5R2D9E+qvwjP2iM xAkfA6lPtKUmEhyOTZJQYL/8xaPNbJadHT1DIt/9wpxu2g5ZxRX/zaZQvdXS /CntHwHGnulzKQzp1T4sp31e/61E1kIK7iLVPpdoa4r5P7ohSWGus4x1KO1X nOnDhTIUdpcXHLGiHVyersBYQUEv2L5HjvbC08qvqxQp1JVOnPlM79d9RyK6 SYWCpEtsfDltaxVrjdZ1FEQFeK0htL/84gy81aTw46tEgDptll9ag6UOhb62 GF4/fT4xnYZ36v6l0JNtWJVI28r82xktYwrfAoMm1GhLs3OCCswoxAvoXm2i z59UsbFbaU3B+N6Lot2072dOa120o1Ch56c5ROePybE90xF7KZjnM+6O0vm2 8MN87qgHhQK96VuBtLucHjb6+lHQX3R8LUnnZ7C2bLJtCIWXozE8Fp3PV8fe ySonUZglTt1eYk/Axzvx75VUCm76iRFudH1odmiTCy9S4HeLzcmj6+cJI+Pe rxwKYjFrdojvJDAaYq/bwqAgUBhpctuKQDUluNzoAYWGGrFdVZYEEu3LZ5i1 FKJyP1q20PW8YuOiJ7nPKKRFZo900fW+fbTVMYRDIX9v7tOirQQWe0TqfRyk MCbSeua8CYGB1+tX7P1MwTFz854jdD8JK0vmbRunkLqNMJMHgbxDFiGyojx4 7Pw7pLWFwMTXprR6HR4IRc0Kaw0Cj9zCQrX1eXCycbJ9t4Hud62rnAuNebhz lOPuup6AUnHcygxrHhR37f9ht4aATaBRsZ8nD2JHq5L4SnS9fq56LnaOh+Mt s+Rd6f4bfHnnqoCLPChsN3LJpPuzrikv/PEVev4jcVdbJQg8z5m/ISKfh9zP 4/YbxOj9sd2d9onggbch2qRChIAhe8KhicdD3XBzTucEG92n/+k/uXkQqmfX fqxuZ+Om5mPtt4aDsKhtT/RtYyOw3+WcpukgFK0n/oi+YkNANwYfdwwilvcs xvI5GyqfX95w9B6EwY9vRZn1bITZBvpqpA3ikWiK2ZH7bIjJ3R0ZHBxE3SK/ MrdYNox2ne7nfRoE1aJoVRfFRkja/hbq2yBqDIz/ykWw8U5w6V3u70G8uadQ 84a+b3M/JO3rW/AeBktDjJcF0vd3WUBru9Z7eGSdFlXZxYbNVvWihvj3dH+6 8MdJjY0U/0rf68ofoJBgs9nwCQsTRkWDB6I/4kysqIrrQCXCNjYxpRuHEM2t kMyYYYJT0pTcpvgZTZkMizYpJv4EdFxbc+oLVFzk9QRMGFhnPGfGt2oYulol o4z0CpjfVPQrl/mGZqXZPm+pchyX269E7h3Byd41tQ+tyrF+2Em00+Y7Mq+a dCpVlWGx+Pe5TVPfESJvVtu/rAxCdddKV2WP4u+j9nMLpkpwUKuqe57VD/hW qJqfTilGkYXn9dqJH5CpXmW+Tvw+xr8sW/Qh8ye+JGoe1cspRKWD+ewM0zFE Ti+S+yRcgOjtCXnMD2O4sVn6p0zqXSj2W3blJ4yjf0ikqWf1HWzRjc+Q3TiB c+MuWo2lt7B35atJwfYJ3GF+7yI88jH+PJU6HPsL6WFTUSpCN3FFaF+YvfJv NJQmKro1Xsfigcqbs5p+Q+PF1c+TYnkQjox13HxkEhtN/53wt8uGQMG+Ukpy Cld97UedirIQcrU0VbJhCoc7GBzR8kzUrEuaKxH8B1J59XnCJRchYRmyPk5s GofeC0wqd6Sjb8Pr9pPV07iva2bjG5GMslwoD+77i2fzr/m+f5MAt1IdCbmZ vzhGZruUBcYgJuFGbF/hDK43WxUujT+K4iG5a2LWfBQNn6iYivFFUk6C+8AO PgxTFta6qvjC2/7r6hI7PiTGjgk3tPhgRXV1mY0zH9Z9Vv23pX1wNm3PkxRP PgL9rOrr7nvhgE7W6PyTfLBrOnyUe9yhFC+1fc4dPuS0nz7rPLILM3oRCzvv 8aFTaGnwp8YJ3V95b+4U8XE7OmSxynwnpDsz3MzK+Xh+Q3gy/aYD+GvtQxOq +bgo7rC8st2W7sNpubPb+Vgwcq9ndrAZiMRfXu1v+XitplswI7INGf/uX5Pf Rcd7taVY4PpWWN1WZ5oM8DHvjuihpW+M8PBE67PYT3y4ty5pkQzSQeYG7TS7 YT4qs7tH3fM24QiV7ag4wsf9xYadlW2aULMO5NSP8eHZrjmXG6gCIcGOW+m/ +Ni++EX1nTYFcCv/DXCf4oPL2hT2IVAa1QH5Gpp/+UjzCbQUCxLBZXnRcT6f jwh/J9/artWG/wNHqQiW "]]}, Annotation[#, "Charting`Private`Tag$29743#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2}, {-0.1, 0.1}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"8 modos\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.871884510076777*^9, 3.8718845746964207`*^9, 3.871884641915803*^9}, CellLabel->"Out[28]=",ExpressionUUID->"f5d3bb27-56b1-4cf0-ae25-04b62a004a9d"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVlHk0VfsbxiNFKUUqBymllDJUolSeyDyVohIpEmUeStdVV4QURaGIE6Uy JUOcs2/Gi4pCCSWcc/Y5hojMhOL89u+P7/quz1rvXu+z3/d5vvKOXkfOCc6b N6+JOv+/Tc71Nlb0ndP+eG9+26zbAW2hg9LeHJoeiPTpnOJ1ctiZkpD8imYF W7kfwrfWqcC0/msBneYEZfoOq8x12jju9Kv0Hu0iyvz3mibKW4CleuPgbVoo kjH2KXqjPVJXHgq/RYtDpi59ymaXJ4JFXinepD2FdaD1mhaff3DC5nHu8Egh WgPlxGYPxUCUH2xnKFcO4fYR3c+dCdhoOdhbFVmN5f+ahJdmp+Jywx4kjNci NWWQ7bngGVYXirMFBD6ivlGxg9uQAQbvYN3HfZ9Rc2XMR7rjBSpd6TI2A804 NKyyMz42DxOb9i/L8fiKE3oN69zfFUBwOnu5zMY2nOmXFadpFEGmXncMqm1Q +xl5+qN2EdQff2tx2tMGly351dcMi3DOWDjppXkbepnC3s0nilCT6LhR178N zZ8a4vYFFiFai6Z14V0bZD0qXGbKiiB7Jfws80I7Zu66dwfpMLDr8BqDDr92 6K8+a3TBmAELhcLNAv+0Y63Mp1cmlgwE1XF/mtxrR4uPsMHEGQZ4svv/Yr9u x1zMig89QQxklo5FLVjSARcvRWPFEgY0+GcYR192QPb90g2hykyYmVeE6BMd CJhNtZZXZ+Js0tpDmpUduJ0Hw0ItJmI02d+lv3Tgxrb6tcWGTPR52dJ4sx2o apT818SBiWTS+oq3OQv2In2vHe8xUaBSZOR4nAUZJ8HPRxOY1FwlV1o5sOAS 20Xf84iJCammHM1LLFyZUJPqzGTCwvIwZy6ZBeF6Bj+7ggmBShPd2wMsMM5J xy4aYEJqeZZY0CQLhwNqz2KECRX7Re3e89goW1AgcWGSiZMz7/ysJNmQ8DzC ejCPQOEO/Wcy+9jYHlo34iBJwDkNIlmRbCS4RWqn7CFwZeRRc1I8GzpLB5aJ aROIxVzq7RQ2Dns93uCtS6CivWSPzys23E4/HFtqSoAmqeW2u50Nk+flnrm2 BOpC1RveKnHwh+7jGfo3Aa1lHwTv7uIgib0u1fcfAhmJDpq2BzgQeTvrZBlC 4PrLO6lD1hzIhPvdJ29S9a29vlLBHBR28VT1E6h6x6B0XiQHYmHLYphJBFb9 XNnx4j4HoT7bL0inEBgROKiv84KDS0Grr+U/o+q30le7fuXA0Udgy8YCqp6x 00ydx0GiSZeGTBGB0APvr80NcLB3a+ZrAYJAXtbvi8YCJGje27aklhKILN/M Zq0iIf46rH19DYFKoYtTurIk7L+d+pj8nsCUcblEhjyJ3kBJc+F6an7N1oa+ 20h0inRP5jQS0O0LyVuoS0JCwua2bhuBAJWG926GJF6m9R/T6aD6+dG6P5mR sGlZ1aLGJiA3l0tLOk5C4dBuUR6XgPXB3zvnnSLhunTJ57ROAlERBhbnHKl+ j3a4HesmMC3BClH1IOE8PrnrTi8BtROb6XG+JErWKQes+EHpofsxpy+T+E+m J/9mP4FmxcUDVSGUfqUqJeNBAqIe1gu3RJD4pq8cdG+I0luQuu7ObRLqh56N 1A1T+vZpWp9IIDFR22u3cozA9+AQr1I6Cf+2BPcN45Ted/U316eRGBVdW7N+ gtK7hPb0RgYJ5bXFgSsmKb2WTmUDOSQCF87FTlBcdT+31fIViRar2jW1vwjM tM+MMggSglkWm+5MEdgub7BUtoyEk8yyYr1pAued7yoGV5FoT2zrG6A4JbtD p6eGxHWrjxXhMwS+DCvamTaQcJeysZD4TWCphp9/XhOJMzlqj6Mp1gssi1n5 jUSuqm3NHMWBFYuy/2ZT/Vy2NJ3+Q6BggfUbTicJB2nNxgKKe01SOXp9JAwc XD//onhtTP905iCJ4ZHRHpVZAmUOQZkFYyTUJpI+WFNsv3OFTfEUiRdJT194 UzwrlC5SPUviki3rQRDFyV+0iDpBLh7amSWFULw3o8GlRZgLtdFtbwIobgtw XM1ewkWU+NCGcxQHmE6+7RHngv9O460exVJrbvkPreIi+2X7aymKmYNrNk3J cNFq17ucS+k7VpHfMk+ei+TWxK90iifv6oct2sRF14LTcocojj/7TV1iKxfT K1rHx6n/V9/l0SWtxoVrX4vr/+fTvFAgbsMuLgLv2MTIUezXGndwmxYXc/Gx l55Q85XI2jymDqpfaKeSDMX5gSVP9utxMaD5tSKC2sdh88NHDIy5KDZSMuqn 9hc9fDn/+FEuFv8o9Yym9qtSKepw5gQXOz5bqTVS+2+ITVl+4RQXk+GTiiIU L9F85/W3CxfCBiTfmvJTtojt2uvuXDxJaJrvQfnNpG2wIdKHi4nZTWEBowQi rq5SoQdy4X5HwNiP8ueC6nMD5dFcMH+Gs/opfz+Nn06qiePi1JB9Ux7lfz2X 26aNiVysKk/ocOsjELK4KIuXxgVbjetf3UNg7rDQhQUEF2Kq30YEqLzR1ydI iZVysf1je0YAh8C+8a01qyq5cL7eL97Lovzz4Kji5jou6gTrTTOpPE+xnnSb kFyYj3FSypsIPMjViD/azYW3VqXiEJV/jeD3enY/uNijkSq86hOBSwqjaR7j VP8xOQWTOgKjrjqOMSI8SKYlbbKoJtD/i8NuUeOB1SCt30q9VwyX6EoTDR5M PeOMrfMIXPuq/bx8Lw//fN5ZWptDvWdMukemAQ+uM+ZnEzOo/Prb/rlix8MB /7p3X+gEHo5/oSlE8FAwnjbNCydgNFJv5cvhgefc373IisAKh6u7v3fx8CYr aveLwwTYn7bJ2v3gYZ7H4ShjcwIX8yI79Sd4OHXXNf2SAZU/L2NfmmgnDpYm Evd3U377WR1dodGJ6cov9pKy1Px/FL8Xu9OJAxmJvgTJhNia9KGuri6kBQkW 2IwycODYdVZnXxeSxNpMhIcY8I0+/YE32IW93x4MMvoZ+CIglU5OdWH57x4f 2W4GHvVE2Hcs6QZd2UdGoJUBlTzX+ib1bvy8wJjdVcaA+UGV7MrQblwL88x0 j2Ig6kKRc6pCD+5ZnTfzU2Pgx4GcCFGlHuRm7FQOUWbAUOpZlr9qD1QvX+LG KjEg+C5u0EyrB9vU0wvKFRgIULjoP32oB7b1j3x30xhw5uwIPxLYg+eu8SWZ ggzoWOc9E/rcg/ROX8L+axEmD2R3nQ/6DuGFt9SPhBfh4o7qwlVVvXDI7M/v Gi8E52V1ZKP8D4Sl2CdVGhbit2tz0pa/+/FwV/zl5eGvsFVHeM65eACvm7zk lGoLYPhE3iV/9SAEnvH/1VhYgMtrTq/n2g1hh5djvN7pfGwbsBb9aj4M7yzF kUWVeVixbFikemYYGnPs/4zE8yBUnpS7IXkEYZFqtQsqX8JNvfjbItNR/P5Q 9Z+IZg6yjR1TyyZH8f0yO8itJBsT/dLLe+6PQSFRZNrYIwtFRw3nx+mNY0PI sUf/LclEkFFYSmHPODr32CV4lKZDnmXSmhY2AbXl2vY05+fQ0gyNo+2YRIO2 26aF35/CTu7jtEDTJP4tURW5EpaGife3ed7Bv8C6dfBGrOQTJAjZXzyiMAXT vzQja96kYgW76Ilg9RTmR50sG594hAVXg632+ExjcZz74uPLkjEv0z6XJzED T/0XThqGifB9mHtbonIGCvPHgyUM76N0a4SIuOdviOei9Ix7LMRNfLeFiP3B cKPy6ofNMehQ/tQUUPIHS8oUpUyFopD3CApd9rM4GfzTX+ZBOE7laoivmZvF 8xm6ue36YMpHj4M7subQtt93j5aXP3J61ySJmfFhwtSzf3PSBRH0sDNsCz7C TRIf7//jDKcjPze+tOTD+9WMQSXdGbIlJXnmx/loZEXrDJPncCva9m2UIx81 Ngrh7S5OOK+ROLI4gI+bzx7wPl12wPpQSSPh53wwn9+ZUNM+jrndV5Z+zeCj L5CllH79GL797Pz8PJsPolkwZWutNWKOvzplkM+HiHvIg1NWVuArHfELK6G+ /2HbZuNmiY7G6Efzm/gICbB0fqJhCCL819mmFj6EG8+4DlbqI27v6S1prXz8 8rtTbHRID6bPVAp12XxkzsbfUDivg9d/1dcG9/FhFl1XVaKuifvKu6ItByi9 ztLdQhbq8OElW8kP8eEranH1pMt2bDZz51SM80G/Othgpq4IIYHmpzG/+Aj+ 01K13UUeZNFe1zMzfJQaKd/TU1+NEtc0VbVZPt4ffS7uqi6MB2tFJ/h8PnYv 04wYfbhJ+3+bCK+9 "]]}, Annotation[#, "Charting`Private`Tag$29815#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2}, {-0.1, 0.1}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"16 modos\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.871884510076777*^9, 3.8718845746964207`*^9, 3.871884641981435*^9}, CellLabel->"Out[29]=",ExpressionUUID->"888ea745-268d-4c6c-968d-22d52fe2c671"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV2Hc81d8fB3D8VApJyYqQ+S1CdsWbEiUSiajIDmU1ZJRkpGGPSEZ2ZWXd eylJJSmjkDLu/dxrF4mMCPf39td9PB+f+zj3c9b7vM6VcPAyd2ZjYWFpY2Vh Wf00ch79XD/mrHPBsdEp4a+uTtCVo1psYuywmJcwnLSTpuOlqcx6SIQPbMe/ 0q1kJnXGhKSch4WlgC2r2VRLiqmTf1dUQENYFWqFpt7vkuQB9oPC3jQhfTjx w4OjaIcYqGSmPKoQsoDPNn6akTsU4WhLd3m6kBPwDXtdG94BYOU0/zJe6DIM JdDbOqVMoV/x9sEooTAI1Wi4Vy5vB1lbTSPuCiXCWVIIN83IC0I4KmTvCOXC uU52Ua7SYDhl/bj091QlPE23IklQY4GTGXLGcPsrMM2Ze581lgLSZr9G39x7 C5YCnJzrbLPAr1ULUmY+wBL3a81bX3JBoJKXysraBh6aHW3tHYVQzTj4qW3/ F+jWsZyj8xdDg3v6NuvxTkj1lrTSbSqDWRltnuKL3dBme+vB9OtyYFt4tmmb dA8YbXRqiu2qBH2XLtuX6OngO5L8XyshvGOlyE6mB24ZCYanoTlKzI7kyvbA gxnf0/ndlbDRcT5EYWcPuEZLnnzxvRK2tRz4A4o9EGSfGzTWXwmqj793OWn1 QOisa/rh4UpwPrIurcSkBzJW5nYKz1dCU6qD9IGrPeAsRzXaIFQFMXuF9rq9 74E2OwlCwLYKRIIiHEluveBVwnA6NV4FtmOlz63de6GhwXtkFJ1p+Z35D503 k3jRf6IKdijLP9K90Av7+BLCHv6qArnhz50fPHshPJW7v+93FagdFzXou9QL R0eU1Bxmq+CYVKUc641eqHEP8fBaqYLgT/QJo/heSBoyV0vYVA0MEe1r1Jpe OHP4Es+iajU8efnn/hquPvBzv6S28UY1qDPPVZ8o6YO1H7gIUx4SCM7IdEyj 03MCPfrQC6Pjk3GlfZBwJXTq/CYSvPhy7b/2sj4oczo8EcJLAr382EfGFdge 96acii0kMDapv3WI3Adhlt/Z+AVJ4JgmZqrR0AdFg4cvfhUnQawGdUT4ax+c nzKq1d9DgjGv00KM5T54trwtqsWCBI+Ik0HeJv0w0l2so5dCghtd21J5jvVD YUdu+ju0XTO9qgStmJo8dSSVBDsqL06Om/ZD1uMT18wfkqDgdriDm3k/DNxN YHF8RILy3VWHHaz64Sb7zvmQLBI0BfFttbDvh+K4UgtSIQlmBTuKNa70g5rp +bgVMgmOmR2nrTzqh/QkF9HZbyRgbTA6EDXeD7wzbJMq/GRgVG+yk5/oB6iR 83+Kfvvsa+BH9Pa11dPiAmSISHKoWj/ZD/tmpyq4BcnA5RYgFzHVD0NNNp7D QmQQ3PR0Y/BcP5Smm9YlipJht+36Xm8WKvhL/8wblCKDzeL7SxZ8VGiy/up1 XIUMlXsO5W3bTwWqVP7yMVMyuOQAx9N7VMgV3TGUE0qGwylrpI/cp4I3n7rN ujAy/Bf1UW8Urac2QHFHj1+1CpSJpgLLnr+ayuFk8DHy+pUdSwXjLSlqLyPI EDSV0ZmWhO2v55L+fIcMCbCSFZVJhcDa2VejMWSo732h5VNBBYkrKuxf08gg xLfXQ7OXCmILP9dnl5PhU5hqa+NOGtz8VXqzrZcMlyau+1zaRYPnAdMqO/rI IGz5nk9cngav+dmbL6PPy9qc9legQVnR7QyhfjL8rzl4dJcSDUalSaP2VDLs 5fnIFqdGgytZcyvjBBkKU+01TuvSYA37ddGJITKElkRnTZ6kwfve2ODESfz+ t1FfwRAa+KkcMQlkpQBddw//OzRnuPKmV+jIJ4EUn1s0yJzJqWRjo8DXgI0s H0NpUPpZLPsO2kdUNep6BA2up+vyJP+PAoUOwQWMezT4EZOi9GQNBfgntvYV JdNgefv7UPJ6CkyxHjykV0SDkMJH/IG8+P1d6QLu3TRIVrP7FiVGAdPE4Rr+ bzRoXVOk2oCeW1K0fYNOfT/lM4fWb23IFemhgUyIS4ytOAVo3qPKbX00yBD4 cVJBAn+vWsVYlUEDsefcvO92UCBMt/nmyjgNzHuXtfulKVD29N/lI6wEOC/X XyzbRQF2u6zGTLQx//jafrTVlkOCc+j/qFwh6+UpsBIYXZvNRoB1g5KgA9rY RIJt6X8EuF/i/MKrQIGRSYOYkrUEsJU4XPbYTYHtavFPtnARcG6SfnWdMgXu vZKj9vMTMMo+nMxQowD1UouiqgABhhxffNapU2CPnG/IXXT8S6qCPPpbbK2U hiABni62R66gZRyOecQKEXD2It/GtRoUaGC//PeACAG0KPM2CU0K/D3yanOh BAFVeS5aB/bi+604Oq2gHS9m73VEZ5ZzVFvsIEDxobRoGNpgm7k1qyQBnaR1 Ee/QieODmTZSBFwrdxgx2EcBxZgNCtyyBLQ61owd3E8Bl86Thr7yBGhk1czL 6FCgJnIxpQltcPaTlD6aWzvzx3YFAo6EWanYoyvzRqM+on9z0Wceotn8Ajul FAk4FDW9nhsokC702L5bmYA7SbnXf6I7bccD92sQkMEZkhKnR4EDY7fK1h4g oEBiI0+oPgWS02XZzqI/XF54koIeM/t0ogItmDQgU4KOrdk6b3eQgPsLLxu/ oan3CrUp+gREbWzPkD9EAf/drc0ehjg/UinlreiyS0JD7cYEZMXWBCwZ4PzL 1anLmhBw4IqbzUZDnP8+h8jraDtpdxFx9Ip+0a6dxwjYuehheBBtzA++oaYE NES+0opEj5CdmGrmBPzyFYvnOozzv1IqlGZFAKlvqwwT7Vtu4TGF/ph8/yT3 EQq8c1l4YXiKgJCictdt6AttB87NoPmOCqlqoGuyuvJNbAjwjyi4eBF98uA/ FZazBFz4fcelE104nxluiZ5a8mwg0EvP9LuL0CU86qwT6Gy+6ABrWwKaj/rJ rjGiwO8h8dfldgQ4fJAQUEXfjzQ45uxAgFTwUvh9NLH/Z2YtWqYwivcBWmUq ZorXkQA9bvWbj9E91t8T69A+yj1rq9Gyuy70CjgTED3bRulHN7TEnW92JWDD /gCK7FHcf7fUa8TPE3Dpheg1JbSbei+nH3pFaZOwFnpTplSppBsBp/f9XmeE tvUmzQa5ExCpx3rfHb2wuf+W4kUC6iPiNfPRxu9DOsPRTy59VShGZwXKyPSh VcNz1laiDQa9PkR6EsCYH3F4jU6sYtvE8CLgT+utxh70qFuBvaY3AU6h174R 6H3bjSui0R9tt7YOoxkRSZb7fAiIoJxwmkYrnZJLT/QlYFubiTaHMdYPrpZf P9CpASMXuNHd9T66epcIKB8zuLkZfeO/2oEJdFS0i7kI+uOiyU7DKwRc7U3K 3Y3eXjodmI5OCmye3oP2dXzQ8gf9l29QSgMt+InwzrqK6+FflyqgXdIvkRb8 CCAnSLIfQ9eYCa4/fo2A0LFfPmZo7rUvbfLRQ2tevbFAV3quXTH3J+B73vUt p9Ecks9Mn6BXNC/z2qJPd5s+ZqL7ngf/OYdm003VLwogICVqyNEFbTmjncwW SEDd5sPT59FPChkjp9BSDW1OHujjvPL31gQR8GXZds4LnfOuve80eqXOc6sv es7/yu5ytBJfpeBldDqj7rPtdQJ6lyc/+qF/JztKVqHrv/8K9EfrH+W4wnmD gKBvKpsC0Q+YRY326LuSbyKD0D8qzATJ6MLhrKHraJ3zc24bg3E+TT/LBKPj RNJqndBNMaeMb6IH24G7Ft36ba9lCFozfNCW9yYBLOeC9G+h72vdKXNFPzwj IRCKpk0osNWhpTl2t656T/aXE3whBPhl5LuFoSMs/fLc0RlnY8ZW3bNBZL4e zR4xbhKOVnhVf1jgFtY/m4bkVd+85PzwIvqE2Na3q+6U3TD+Bn1WZKxr1XJ9 JdrCoTg/Dw98WnVg7IkYb/TVYemCVbfq/yUa0WomD1xWvWPh0R7RMAJMxdI2 rPpqsV7YJfShUrWE1ff5YD/c9QHdbubBsmoR/nuy4uEETJ7VNV/tj3ezov9V dI88JXK1/29vdDZ/Qm8W7slZHR8BFX8RyQgC9EMLclbHz31E1NMf7dUkHbk6 vnVpDa/a0PVHrc1uoHmPu/LK3CYgzceAuTo/TuxcjkHosqypuNX547x4cu1/ kQTsqU9wvoa2lVi0Ckavv5OQfxVd3pXxpAs9yOn4aXV9nNIZNb51h4B+jtBG b3TR9P2Mb+htF/seeqKZ+cq/d98l4JGdgMUFdD5PYEIvur/34BVX9OIbsSHl e1g/7HX6ndAm196qR6KTL8jvdEDPENw9qvcJeCM563sGfaA8Szw6CtfXEqne FJ3scsh3EN1/u+W4MXpM+MebvdEEvPq9+O4wOjZUxXUEfb2s1E4PTbVoLNaN JUCritVMeXW9rPdgJqMv/rTcoIAOf8ljNoEupY8WyqHlZaxnUuNwPRV2JYmh /ed/7v0TT8A6k5OKXOhPz2LvH0kgoHbHli3r0OLn1KiZ6LVSKn2s6MamGyHG iQQ8uF20fR7rEd9D3qa8JFyPp9c7r9avsv0aJ0+lYP+dkv+t1kP2qd78ErSi 5XONArRV3s2/7KkEJNICrLPQK9zNac/RwyIKx+JX6yntDGNDGgHbvZOXLqNH Qm55vUzH+pD31kcNvVdd9vWWDAJ02LdwKqCjf3zc7I5W8rO9K4VWPbG1mj8T 908Iy74t6FtShUteWQQs05ecJvE82P6+5c6OHAJ8jfcR2WjfQN/ea2gd/sre FPQ7RQGFNnTwlYCX0egLKefaA3MJaLFmVw1A17j94e/Kw3o3kTZhij7JJZR7 uxDrlZ7Ngzk83+6bOdWNFxOwteDamBKaWLN+08ESAq60PSFLolVqiu1T0Z5O bZ786J4d8+wGpQRUKHDH/sPzWG7mztHMMtyP/GP5b9Fvkku/mVUQ0L21e6c5 erF3cbqaTMD+pLjnNni+H4vN1OemEPBZuNnNCP1YXz/ZEb3nWN76vejDxVFa m2oICFi2ZhFCJ98Qv+lWi/Uy9VRzF+YLZQkDbpE6ApaM47qM0Odd4mRD3hDA MXv99w7MIy+E1f270cMSfwp40DxtPc0KbwmQUK03XMI8U60h5dmDHtzur9uF Zl9PqlRpxP3LziEQgc581qc33ETAwprSswMHMZ//lj1ztBXzRLFIwP0DWG8D 62K3fsc8IGm5/yHmrRRFR4YHmrVORTME/XNgnWoD2rRkWPQ8Ot7YrNuzB89v 2aF8NTQhOija1EvA16HfpW2Y5wLr1z8LoOL6OfUsh6mN+3vNyXe0AQLCzypp m2JeFIv9ufDkF+bZQ19TSjCfarYMhi2iOy236sejzTdQeY5OEqBOdum/go4I a5ceRxefP9mzH/3rWpXZ7inMZ49mlz9g3q2zD35S/oeAXTN9vwnMw7YqW6xr /xJw74HpU1bM04++7iV/YqPD8q/UZB7M24Kid69O8tOh8H1fu4sc7lebUFZd ATrsj2tRPIA2fhB0Pxb91PZ2sCj6Jq9XtrIgHXisLkx1yGJeWGPRekmIDtf5 U8R00aRfojJ/t9GhUej0060yeF7WP+9ikaCD/XBTVpUkBZIcv6tu3kWH50Xn jZu3U2DzU7k/qkAHw/6AO8f5sB6MSNwIR3c687FIow2ktq3/uupjxu4LWygQ kMEt5qdLB33ZEqFsNCN+2oiiRwepfT2D05sp8DzwRba2Ph0cgr8qx+N96bjJ cXODI3T4d92v9f1GCsT89ntudYIOlEnVE5vwfsWl8d4rwJUOuzw1Y8SXybDm rfP4qxg6mCbTT0cNkGE7q53fplg6CJuxGp5Ca+qcYrNHy7O57JJEXyAbCbLF 0UF3Gx9BZpChs0hRXz+eDh1f0hYG6GTITVpIa0rE/qWITGvi/VLfNero51Q6 POro3U7F++mtDVVPGTl0GPtGTeT/SoaV4+xua8h0OKM4rHmkiQx/+7OHjAg6 CM7se7/0jAw/52nULiUGdFpQWrN8yTD6S1hBQZkBW/LclBzRg0MnA8PQV4Wq EqXR1I6PAip7GBCVr+D81IcM7aWk47EqDJBy5pep9CZDtWtMg5E6Azg1Du9q 8iTDzW6d/Ff7GNAb22I77U4GflL6xScGDCgUCdI97kiGA1dPLwWdYcDh2neK mhZkeDjzVUgqEtvvaaseUCfDg5+85wPRfRbcdk/RiQzj6i9oSuIAlw86qr3B POQOAzqY9v4ravh7RSX3qHcZ8OlQb5IQ2tkpYjkligGNsbbU1f8jlDrV6NwJ DJhVVqx5o0iGxorEwvl0BvC/k1uskSPDlK+5xscKBrhG+2+dFibD4akWC18a A2ID7tfGsJDh0ChHzge0uGRA8hn0AdrBKXGCAaS7VL//0PtaKFFtaDcBzmNv mCTY/SSvUZ7BgDMHJw3nV0iwxf665sggA7w/1fmcWyYBtV1e5MwPBrAUT6dp LJLgctm9gUOzDHiqGKu58IcEmV5HfIU4B2Cbdmp+0wgJ5ibextSrD0APpGff aydB7o/a5o3RA+DeEpoyk0cCb+lDN53Qqp0LXZ/Q2uda1WrQe2XK+PPQX7uI LOeYARBU6nx8Er3+9Rq/F7EDMHiORK3OJYHnA1NJ94QBaFvf9ds/hwQa+gOB 71KwfadSZ7bHJGhO36AQlDMAlzlfbxB5RIKp49YxY+QB+MO9snAxngQ6pLkT bwcGII5bPMctmATfQ5X7/bUG4b+Albsl1iTIr6uJb0M3Rtt7RaJ9Fw4elt47 CLppx8wd0FxelhXt6L7PdVv40To2gXdk9w/CXuvXYddPkSBb6Z1al84gvDmX IWpsRYIL/aeilfTRkWdERy1IwKJxE0aODYKHZtK48HESyPxofWzhNAj5qQ3P zxvg+B6/4KIYMwim8+8noveQYKNoweTg4CAUqOt2RXKQ4DERRlUdwvbSDDjO oVVzHVrC0BlHtDQ10Da7tj+TGh4E7zMD0UPrSFCgleTiNDIIk3FHBA6gdS1D +wfGBkHIyCZxcQ32L8buI+MXPj+TCG7/w/FnFSwg/g5CwtbNZ7VXqiFjONK2 j2sI0hfvTNb/qYbdZe4tHapD0B9OeqBFrQaTg7ufNYQNQcE9nnUqz6vhvluV S5bUMFxbijz5zrwa5nSfDZ4PHoFybe8V94QquLznbSX/m1GwGbfhXPenEmgl b+99lvgBGTWNHV3KlfDPvTPtv4CfwOdf4Rx3tQJ26a1bcakdh93XDbV5OsrB MFvC9bnAL8jhzrYw21oOfqJ2O+hnJsF7qP4n4fQc5MdPcnab/AbNrgrWmPoy 2MLzm+Pt4m/o4kzdzra2DNhfpZVKPpqCb8EdT4OKS8BDtfb7+qPT4PFzs9IL vWJ4dsQhq25uGoR/2DWYtz+D2Z/Cm4aT/8CxksxOkytPoeqE4f8S9WdAsqvz 4/kNTyD4cHhm5fAMvOI26GWUFIBEv9G3nPBZkAl3Ytpb5sNejbBEoT1zMD9P 5bo9ngtntrctsHbMAZNMVtFKyoHZ5iiGd8g8MFqKisK3ZUMKu+1lc6m/MKfg qjP3Ngu2UKuy2d7+hZk3m7d4MjJgzfUQCy2fBZheE8/pPZMGLE9sSxmbF+Gu pUGepVEq+D4sjdrcsAhrbRxlR+2T4eWuSA5ez39wxi4jrN0/AXiNfOVvbVwC G+ezBpKdsdCn0N7h/2IJTIUK55MZ96AsA6QGbZfBI14pTsk5As6WqvOKrizj PSp+e7t4CNwMfxzS93QFkvX5WjZ8uQrFo6JpG42ZwLlsa3X0uyssOl5+sA8d tDO7fn+HKxymNSecR9eKyantbnGFwS6/+w1o3dyNuryvXUH4zefrV02Y0Cf3 rr+70BUi08PPUY8xYYf5u/2u11zByXxCusSMCa93vS2IFnAFkRcvykysmOCX n76N1dIF7sacbrzvwITvshSOwA4nOK+eOrXBnwlnwrXLfrTbw44wvsPr8pkg H0/30C6yAm+mu74qWn/yquLJLCuoC3ita4+WovzjvJhoBdY+nlq1aOdoEk96 kBXE2jbt9Cpgws1be/RWjK3w3hzE3V3IhNutvw69m7CE7xMDX/KfMcEp/3W2 s6IlxFpVnDV4js8fpf+ZKLcA5k7zS+EvmBDwpe4Dd60Z1o2YjP91MCHHvbRx Lt0QdpoMP1RC+4WM/TgWYQjXmvY/OIt2KzklX+BpCFtejcWQ0KqzF9aeAkMw KjoY4tHJBEbfHb5awgDIEfOOHV1MoNWfDYmQNIDEfXb/5Xxjwo/Hf+jKT/Th aN7uygNUJijnnWrqrNSDmmstH0LGmJCoNvVT5aEGcMxINpagT2v+iVl01wBL r4CGXrTkvKL5630aMOUsW6v2gwmvhjyUTPvVQe5ESNEYuinAw+SCuDokK6jF mI0zQa3mdNezfFXwYTyykJhkQhX0+OtUKIOc8QVa/QwTolYWGo+kysLV9w29 E2hZqmoAY68svD0g9E14lgn0c9VHA/tkwE6rsf0yOkI717BYTAaSZcQb5Oaw P+NNSZvzpYCdtTM3dp4JyT85xBnlEkBU7XM/t8iEfwPdOyRTBWC3crxLFLqm ewhs+vghqGjUoQadeu5zQJwYPwjkJJ3m+8eE0SFXA5Z8Pszvk8ZN6Cnxx0K0 cl544Z6jqLTMhA6ufc/1UtfBhuGFXWfRHy3Z68vF1sIp++Nyd9HeE+Sfkvns 8MdqWXwQHdqxO35tBSvsPGS1OWWFCSaaT5pTU+d1rtUXb3yHTrnEevR6/ozO u33snNNoKRHr4XMVUzrn9jz/nzGTCRRtlZfHH47olBSvY/FHf12X4ipYSddZ krNdykN3uOub16d16xjlVv79gv5S4DGamfFe54EY5ywT/X1P/hv5ZRmd/wMo A1Oh "]]}, Annotation[#, "Charting`Private`Tag$29887#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 2}, {-0.1, 0.1}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"32 modos\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.871884510076777*^9, 3.8718845746964207`*^9, 3.871884642068853*^9}, CellLabel->"Out[30]=",ExpressionUUID->"fbb14f06-2121-469c-9ca1-f2a4016a64af"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "h", " ", SuperscriptBox["L", "2"]}], RowBox[{"d", RowBox[{"(", RowBox[{"L", "-", "d"}], ")"}], SuperscriptBox["\[Pi]", "2"]}]], RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox["1", SuperscriptBox["n", "2"]], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"d", " ", "\[Pi]", " ", "n", " "}], "L"], "]"}], RowBox[{"Sin", "[", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"\[Pi]", " ", "n", " "}]}], "L"], "x"}], "]"}], RowBox[{"Cos", "[", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"\[Pi]", " ", "n", " "}]}], "L"], "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "8"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", "0.11"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.", ",", "15."}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.8718845812312117`*^9, 3.871884581293112*^9}, { 3.871884696220784*^9, 3.871884725688332*^9}, {3.871884768255481*^9, 3.871884769611638*^9}, {3.871884850697874*^9, 3.8718848686863613`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"3ff90849-8760-42a3-a6e0-618a404672ac"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 0.04173569173244479, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0., 15.}}, Typeset`size$$ = { 671., {205., 209.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$65216$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0.}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$65216$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[(2 $CellContext`h $CellContext`L^2/($CellContext`d ($CellContext`L - \ $CellContext`d) Pi^2)) Sum[(1/$CellContext`n^2) Sin[$CellContext`d Pi $CellContext`n/$CellContext`L] Sin[(Pi $CellContext`n/$CellContext`L) $CellContext`x] Cos[(Pi $CellContext`n/$CellContext`L) $CellContext`t$$], \ {$CellContext`n, 1, 8}], {$CellContext`x, 0., 2.}, PlotRange -> {{0, 2}, {-0.11, 0.11}}, Frame -> True], "Specifications" :> {{$CellContext`t$$, 0., 15.}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{716., {263., 269.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.8718845821548557`*^9, {3.871884646814302*^9, 3.8718846499194307`*^9}, { 3.871884720618589*^9, 3.871884728576367*^9}, {3.871884841876553*^9, 3.8718848694976788`*^9}, 3.8719810246550083`*^9}, CellLabel->"Out[41]=",ExpressionUUID->"1bd76f73-57ad-449c-a39e-1a374766bd3f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "h", " ", SuperscriptBox["L", "2"]}], RowBox[{"d", RowBox[{"(", RowBox[{"L", "-", "d"}], ")"}], SuperscriptBox["\[Pi]", "2"]}]], RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox["1", SuperscriptBox["n", "2"]], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"d", " ", "\[Pi]", " ", "n", " "}], "L"], "]"}], RowBox[{"Sin", "[", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"\[Pi]", " ", "n", " "}]}], "L"], "x"}], "]"}], RowBox[{"Cos", "[", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"\[Pi]", " ", "n", " "}]}], "L"], "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "16"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", "0.11"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.", ",", "15."}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.871884757670554*^9, 3.871884772882502*^9}, { 3.871884865603416*^9, 3.871884872409863*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"231c6803-3969-4387-8943-a739af2e5e51"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 1.239530183349619, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0., 15.}}, Typeset`size$$ = { 745., {227., 232.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$65533$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0.}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$65533$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[(2 $CellContext`h $CellContext`L^2/($CellContext`d ($CellContext`L - \ $CellContext`d) Pi^2)) Sum[(1/$CellContext`n^2) Sin[$CellContext`d Pi $CellContext`n/$CellContext`L] Sin[(Pi $CellContext`n/$CellContext`L) $CellContext`x] Cos[(Pi $CellContext`n/$CellContext`L) $CellContext`t$$], \ {$CellContext`n, 1, 16}], {$CellContext`x, 0., 2.}, PlotRange -> {{0, 2}, {-0.11, 0.11}}, Frame -> True], "Specifications" :> {{$CellContext`t$$, 0., 15.}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{790., {286., 292.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.8718845871558323`*^9, {3.871884668352339*^9, 3.871884669883252*^9}, { 3.8718847629792356`*^9, 3.871884775019082*^9}, 3.871884872877233*^9, 3.871981097815189*^9}, CellLabel->"Out[42]=",ExpressionUUID->"21f230b1-f1ff-4cc0-949a-33751c9565a7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "h", " ", SuperscriptBox["L", "2"]}], RowBox[{"d", RowBox[{"(", RowBox[{"L", "-", "d"}], ")"}], SuperscriptBox["\[Pi]", "2"]}]], RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox["1", SuperscriptBox["n", "2"]], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"d", " ", "\[Pi]", " ", "n", " "}], "L"], "]"}], RowBox[{"Sin", "[", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"\[Pi]", " ", "n", " "}]}], "L"], "x"}], "]"}], RowBox[{"Cos", "[", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"\[Pi]", " ", "n", " "}]}], "L"], "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "32"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "2."}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11"}], ",", "0.11"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.", ",", "15."}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.871884593625202*^9, 3.871884595228813*^9}, { 3.871884795299006*^9, 3.871884798841757*^9}, {3.871884877377363*^9, 3.871884877523329*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"01227ba9-a33c-4f10-854f-f1ca870fb99a"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0., 15.}}, Typeset`size$$ = { 360., {108., 113.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$65850$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0.}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$65850$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[(2 $CellContext`h $CellContext`L^2/($CellContext`d ($CellContext`L - \ $CellContext`d) Pi^2)) Sum[(1/$CellContext`n^2) Sin[$CellContext`d Pi $CellContext`n/$CellContext`L] Sin[(Pi $CellContext`n/$CellContext`L) $CellContext`x] Cos[(Pi $CellContext`n/$CellContext`L) $CellContext`t$$], \ {$CellContext`n, 1, 32}], {$CellContext`x, 0., 2.}, PlotRange -> {{0, 2}, {-0.11, 0.11}}, Frame -> True], "Specifications" :> {{$CellContext`t$$, 0., 15.}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {153., 159.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.871884595789805*^9, {3.8718847991568613`*^9, 3.87188480305921*^9}, 3.871884877805237*^9}, CellLabel->"Out[43]=",ExpressionUUID->"444ac279-1447-4cc0-aa3e-4d66058e5e1f"] }, Open ]] }, WindowSize->{808, 667}, WindowMargins->{{176, Automatic}, {Automatic, 400}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 3047, 62, 131, "Input",ExpressionUUID->"d1c32cf3-1d35-48bc-90f9-974acdfd7fef"], Cell[CellGroupData[{ Cell[3630, 86, 3395, 101, 224, "Input",ExpressionUUID->"3c737894-16e3-4712-9727-e0d3202cb253"], Cell[7028, 189, 13562, 259, 233, "Output",ExpressionUUID->"d9c99cb8-291b-4877-a1e6-9ba29d8b9454"], Cell[20593, 450, 13508, 258, 233, "Output",ExpressionUUID->"c73c3a20-9f04-4ea3-a242-92d3c3a0c1e4"], Cell[34104, 710, 13525, 259, 233, "Output",ExpressionUUID->"58dff1fb-a808-47c5-9ef1-85c576aa03a2"], Cell[47632, 971, 12988, 250, 233, "Output",ExpressionUUID->"f5d3bb27-56b1-4cf0-ae25-04b62a004a9d"], Cell[60623, 1223, 12680, 245, 233, "Output",ExpressionUUID->"888ea745-268d-4c6c-968d-22d52fe2c671"], Cell[73306, 1470, 17304, 321, 233, "Output",ExpressionUUID->"fbb14f06-2121-469c-9ca1-f2a4016a64af"] }, Open ]], Cell[CellGroupData[{ Cell[90647, 1796, 1860, 51, 120, "Input",ExpressionUUID->"3ff90849-8760-42a3-a6e0-618a404672ac"], Cell[92510, 1849, 2263, 44, 551, "Output",ExpressionUUID->"1bd76f73-57ad-449c-a39e-1a374766bd3f"] }, Open ]], Cell[CellGroupData[{ Cell[94810, 1898, 1762, 50, 135, "Input",ExpressionUUID->"231c6803-3969-4387-8943-a739af2e5e51"], Cell[96575, 1950, 2234, 44, 597, "Output",ExpressionUUID->"21f230b1-f1ff-4cc0-949a-33751c9565a7"] }, Open ]], Cell[CellGroupData[{ Cell[98846, 1999, 1811, 51, 135, "Input",ExpressionUUID->"01227ba9-a33c-4f10-854f-f1ca870fb99a"], Cell[100660, 2052, 2144, 43, 331, "Output",ExpressionUUID->"444ac279-1447-4cc0-aa3e-4d66058e5e1f"] }, Open ]] } ] *)