(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 30015, 668] NotebookOptionsPosition[ 28268, 626] NotebookOutlinePosition[ 28625, 642] CellTagsIndexPosition[ 28582, 639] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Aqui uso unidades em que c=1 !", "Subsection", CellChangeTimes->{{3.761987717488682*^9, 3.76198772304068*^9}},ExpressionUUID->"6e91ec0e-b98b-4d0a-aa88-\ 8ac870e6d8f5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"x0_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{"x0", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "[", RowBox[{"y0_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{"y0", "*", RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", "\[Phi]", "]"}], "-", "\[Phi]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]y", "[", RowBox[{"y0_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{"y0", "*", "\[Phi]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"x0_", ",", "y0_", ",", "k_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{ FractionBox["1.", "8."], "k", "*", "x0", "*", "y0", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["x0", "y0"], "-", FractionBox["y0", "x0"]}], ")"}], "*", RowBox[{"Sin", "[", RowBox[{"2", "*", "\[Phi]"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", FractionBox["x0", "y0"]}], "+", RowBox[{"6", "*", FractionBox["y0", "x0"]}]}], ")"}], "\[Phi]"}], " ", "+", RowBox[{"8", "*", FractionBox["y0", "x0"], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]z0", "[", RowBox[{"x0_", ",", "y0_", ",", "k_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{ FractionBox["1.", "8."], "k", "*", "x0", "*", "y0", "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", FractionBox["x0", "y0"]}], "+", RowBox[{"6", "*", FractionBox["y0", "x0"]}]}], ")"}], "\[Phi]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.704472112908635*^9, 3.7044723088118753`*^9}, { 3.704472421080607*^9, 3.7044724364741898`*^9}, {3.704472495592678*^9, 3.704472496855459*^9}, {3.704472583074587*^9, 3.704472640838118*^9}, 3.704472703364975*^9, {3.704472897456777*^9, 3.704472911961913*^9}, { 3.7619882854961452`*^9, 3.7619882897837677`*^9}, {3.761988329857232*^9, 3.7619883889753103`*^9}, {3.761988454402944*^9, 3.7619884564737997`*^9}, { 3.761988597998279*^9, 3.761988609355392*^9}, {3.761988861347636*^9, 3.761988874725391*^9}, {3.76199500869696*^9, 3.7619950126688013`*^9}},ExpressionUUID->"b8fe172c-1114-47b2-9211-\ f4a841df4624"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x0", "=", "10.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k", "=", "0.1"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"x0", ",", "\[Phi]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"y0", ",", "\[Phi]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"x0", ",", "y0", ",", "k", ",", "\[Phi]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"4", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7044723126290493`*^9, 3.70447238052319*^9}, { 3.704472707333703*^9, 3.704472719519092*^9}, {3.761988600666325*^9, 3.761988627900446*^9}, {3.7619886676394157`*^9, 3.761988705664633*^9}, { 3.7619950364448338`*^9, 3.761995036739993*^9}, {3.76199507138246*^9, 3.761995073348793*^9}},ExpressionUUID->"ce11e470-3a41-490e-9c4a-\ a3c51ec39cba"], Cell[BoxData[ Graphics3DBox[{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Line3DBox[CompressedData[" 1:eJwt2nk4VP/3APBJZc02luwjsmcdGSrdS5SKEpItFEm2bElZIpIWe5KIbEmW RNHC3JOkbBWyZEtKKZJ9X37v+Xx/888883rO874z7/c557nnPrPl5FmzU0wk EslpHYm0nvT/L8ljuv+9h9199d/HmIFXpLCUmsZAPoxEsrrgG6pJJ6Vb2nFk XKCT7u8Q9w2kIuf3/h3iTCeVuHy1uFdAJ+FX84/9MkRexMV3IJwedtY/JCj9 LZ2069AzzUBz5Gf97obcopM4RB3epn+hk6r0v5W422Mk/OtCIlMuPSyqJ6eX 6TedxLy3k+XXKRT/Kqdj/xM6+Igvd6fN0EnXdhe1nffDSOM25P0htXR8ejS1 KI2NIN3n+3c5JxAjDYwJG25rprPufCL4eQeZIH06btjjFoqRSkVeqzJ9ppNM Rr0OrxMmws7tYNf+eQUjgesf1/3f6PEW6ssrqTIEWOf2pgYkYSShq92BwdN0 zU9y53pTdAhIW1B8OJ+MkSR5uJ0T5+kGPqrR4092E6Q3H6wTsu5gJPltgx2K K/RtxSv73Wj6BG7V0Pn7dAZGKsqKXiVtIIxkV0ZjloyIAXzwjdr3PIyU+It7 eh8voajk9KUv8SjhHVxp1eVTjpFYXg/6XthKzJVizn+izxBqpzyEThU/xUgS qg5kf1lCexmYn6+5E6UZyu9TJ59hJKmsFZNYeWI4Quhg5T0vwlFEankm9TlG 8t762VVGmfAvf3R6TsGXKI0XqLOwo2MkSreg6zKVyKmov978I5DgYdNr0eh8 i4VtaCT09fWI2qaY4vSAK8QG9z0CY/ZtGL4sHhbsaUE0v0sOSjVJJUYHb3Gd Z/mMkdLVbdWDjhKRTLXhsal3Cc1HTtZvy5AXejxYTrAkvB5OvI8cTyOaZi0+ lfB2YKS1b0pePVYE/36enZKQQTjKuGzKHO/CSA5H/n39dpzg3NGQaXMum3D1 +VekrfEVAwObjPkxZ6LXPV2v730BMWCn+G+o/ycmSbb/NpvnS9CclozjPlYQ VkFSvFwl0xiJn0Ml6lsU8ZQvXe9+SCNxwHmI/6I2M25l/GN1X0A2YS5Tp5a8 dYgQ7LOokSsm46bPsHveTU+JseOTA06HZwnmxSND3IfE8H5ZVrhmWUtIbdg1 bPxrPZQ5LX+t2SiN9+ucMtKq/kTM/ZYylAzlBFgMCy21lccHwUPrOE83YfTd 8x0PDz9s+aM75ndQGTc+/nN+rGyQULCwzlCoEAIxr7vPWwrU8MXWrh//+oeJ hG1V0RxcYnBhl4l+zRM13HJcBE4vDRP65xNI60XEYFzxpXLhCzVcQk5Q6u/m 34SHm/3Cdxkx2JRev9GlXg3nSmTeK3nkN9Fi+NDmpK4YbNfogdBhNbz9mcQ9 2drfxO6gRXdTdzH42N9Yqimjjlt1b23JL/pD3JooTPtXIwYxcZF1AXfU8fTb jUmiV0cJPWrtsO4JcRg5Wpqf7KyBZ2lZ+x5QHSckTJVPR9tKwEWettSlMxq4 +6VNa1O644QH9y96zAkJmFjIplqf1cCldvu0ZxmPE874iEz4aQkQPsC2f+mC Bv5M95EBu9s4sfr2u5OGnwQk7lo83R2rgScMefhw5o0TJ1KjQ+CaBDiZ6y2u VWjgO8f2inaKThC0yarlu+USwKrtZlJHouIfXPek7ts0SdzXkm5qX5SAqR/U a5s3UnHrfnF5T9FJwmaT5NaaVQm4bPe51YGNiuPhs9K3FScJ3Y/14plMFFCx ywtt50Xr0AX2ThpNEmuJx62V2CnQsLXpjYUUFY9fCnRvvTJJ3LI/8CxOiAIs Z58GZepR8bIPN0eUSFNESKvYQIYGWifrmM7BC1R8H4U/j2duiihM3JOcakeB 8c9JtS7BVNzcNf7WPuZpwiei3/+NPQVk9GQNL1yi4qyaX/+GCUwTKUe0J745 UmD4ZaZIxBUqHsBf8nqROk2ENPLRVpwp0PiR+Z1CAhWXOpkvx+4zTWieV9Ir 9aBAa6/cG3hAxXedzy5LGJkmciqXpKUvUkBvi/mxAwVUfNEp6s/I4jShMc0s kBdEgQhDjoqGQip+sU9RxIh9hnBTW58gHkKB6/5Z9Y9Lqbhk6589zAozxLRo 2qPJSxSo/97EyvGSikfrWM7dcZkh4ikJE2pXKBCqemhtfSMVJ9/IjeYdnCE2 J4rli8RS4PtPH/WFJiput1H1y9WJGcLxeGQefxwFEoIpm4Y+UHE2/ujiNdIs QQ/eqscST4Hln83l91upeKC5b+0UZZYo6//Y1ZFAAdeUk2n5X6j4OhPv/tHj s4T/Cr+JdDIFmpQFHSeHqLhZHZ+1WPcscdZfqzLuLgVYvTLNjvyi4jy89PP5 v2eJ05XJb6XTKPD6wO3PD4apuJV3Wy51YZaw98rOLEPu0EyEbx+h4hYl9E2H heYI5T2+hq/T0fdfn+nw7R/a5we9BgmWc4Smb6P+gwwKmLVw7/Kdo+Ifm272 7WqbI86MhSaVZFHg7O0g6QPzVJw5rqtD/sccoRTZycySTQFf16VuwQUqnvf2 +GWBmTmi9wOV2Q650nBRRewiFU+3lm0YF5wnupM3Oy8jP/L4A/v8MhWvuLqR r8Rmnrj661y1aC4FuG0u2gWsUPFpkcBbGe7zxLU8pyfHkW9U8Aj8jbzjg1Zw XPA84Rs89PAe8nOSipwlq1S8/WmKlW/GPNGopeMglEeBlHLhK2vIfYK0dzg/ nid6XV2DzZHT9G6/NVyj4qQsKTtLmCeqHv6wjkHeFc+SWYq8rblpx87BeWJP RA15FXmSZyStHXm4/LUfylPzBJt1ifH2BxR4fzEjZQz5oYyrDyU3LBCVbIvr PZCrYzrEMvLxBcMQPoEFIk9o8nQ28toug5I15GZTetbMsgvE4KUf+V3Ia5ar neeQ6+5Y0FjQWiDO9VCmuPIp8GquePA78g3hv0mj+xaIgluTgYbILxcryr9F vv1q/It+qwXiEOcj12DkYqmW29OQ41s9zFvOLBDMjQkT5cjjmhzZXZBLmy3W vrm4QNzKntQfRV4+Hpkvg5xf+8WGihsLxO7vvDdlHlLgR4bRzgi0byIjNe9T ixcIub3Xa9KQv3GubqtE58XNMWJ1fGKBKAxi/ZNWQAG55t3T8sjFugfVTZgW iRE1UelvyN3PBw/ELlHxgVmWmF18iwS3n2az/CNUR2WjEjooH/4qfMsR3r5I VK/zVgPkSTZZ+1lQvo35bT3QFLhI+L9fMecvQvkfmqB6Y4yK//MUVeEgLRFC JjM/Lj6mgGWXdeD+v1S8jkX/+RjPEuEv+FtwBXl4W+y9ZZTn9gZcyi1bloiC +KTsyFIK3JffEqH3m4o77/1SmrhniejoOR+a+4QCp760/TT8TsWvXDURZrm6 RNgofty77SkFvOJe3tnRTsWfuq6jFnMuE0zBuY8jXlLA8J2d+pk2VBdjB9Rs xZcJr6LwXMdXqN7l49RiW6j4cEPdCxblZeKId32ZQRUFTqz9PfOqmYo3Kq2Y 2RkvE8fSbB9J0SmwLTpnJfstFS9uMW6YvL5MGOnF/NSpoYALlcf7YTkVf9fy Ve0DywpRFfdea7qRAlLaFVnp0SifnVrt2EmrRNWAoGPUTwoIRY7vSUf9k+kj ySSIe5Xoc8T3XhumQEFf1Z3Ey1R8aPrfl98Sq0RIT1pQyh/U995PnXJC/XnP zsIiQneVeFBy3LRjjAIZN1V+JJ+l4sqsx1xNglaJK7Y2awNzFCgy2qytZ4HO /fvjjj8zq0RAucJJKWZJuN9282i9IBXf6/2LY2l4jXj9KEHmKkUS3B+kWxmT qXgvzJYeXVgjxmqcvMO3SIJ96u+JWk4UH2a/q2MDCYZuLPpGSkvCb2Py8u0N VDyB31lWToAEGoGy/blykoDni68nJjRwy8syLE+2kyCBxXnRVE0STO4NPpBu 0MAl1v2SPBFAgteq0epOeyRB5poaydVPAyfltTnyz5JghjttsdlbElL3nlpv VKCOr0YE6PT9XQdU/lM2wiOSYNXIg4dnq+NSvZlMB2bWwYcnc7M3/kmCzlIA e1maOn53QXa8fHkd6Hoc9WCbloQfLzNcFmPU8XC5LYqXOJggMlx4fOuKJMT/ TeSV81XH1a/tqJyUZ4LkzPrKfu4tsDo9sDCrrY5be5lsO+jEBJyNotccaFtA dLO6QgGo4beXDn4vaGeCX+EshhmxW+C+UrDBaX9VXO6rLJ9n6XoY2XJE4Mlx KWDiVVQr36KEJ/SfevpJciNEf7/9Nmz/VnDZ/vem3LwMPpxS8y/iLDN8kTqz PbpZFrafqQ2mb9iCnzez3W1wmgWqpphy/+5VAL+8m9f2Vm/Gt1M/b6Qrs8Ln CCe9QboS9LKPjGdHceIPIyWG+B+zwv7n671DHipD5UnH2b7WNewseevvjzOs UL/B+Z9Spwp4sXNtbfNYw9Y/yFV+OMsKkRy1RYvdKmC5sYBiy7KGScYYvgyZ Y4WuPN9ger8KUK66HZbZvYp9PZ31SnKBFap7fpyV+akCJRfj+R6XLWNOOcHN e5dZQY2XP9RnWgV09tjzLVYuYHnvQooFmdhAd9Uhno1bFYJUtGOttaYx1d62 6W8cbKAz/lg1dJcqWP3yl7mv8hMzFysR4BdmAz0tHwfNIFVIZGq7e+blEPaU Mr7NBvnH2w/bo4JVYda8eNx23xA2v8LaloE80E8oqTVEFbQs6czVzj+w8qeJ 3dIibLDUmCRhGaYKoNImHFI8iBWWimHiomzwmddShPuKKjQ9Kf+bN9aPhd3U yvkkxgZ3/O9xWMaowvgn2xze/jZMRPnqHgsKGwiKNs3kp6pCbpTmNne9NsxT tSvYD/k6K6FyvbuqYGzmf1MlvxULOcdKT0A+371S1cHwoBatmQstWHSq7+lG 5D9TO5Yn01TBsbWgceuFD9hpjVs1VEk2sH4RITZ7D133BKmUw7MO+/Zv22oP ci35G4laWapgunuAHMz0FEuVtWrP28IGfavSulvyVCH+0lW5+g9lWI7bT49i 5Kd+KXLtQ256nEMlOfcJZtU1FvMUOW12NNEN+f1VgwW7LyXY3/KDQa+Rz8i5 kAqRS371U2buf4AJ6dm6dyD3PWLuxvcA+b/13+q58jDZc30V3chDr4p0ySMf MFA7nGaWg3nrZBb0I49lmbyxCzk4vRv15LuPaW9sTBpCjs9GcjswvGvAbH7q FjZSTPv+D3mGu++NRIaf+mFbGpWI/V6Wa5lgxD9/o5KOPOzvRve7WDy2GKQR OYW8wUiyKBc5iRRqJ2IUjdFEo41mkT+yO3apjOF11+5TMyMxpVrjE3OM+Ikz i5UMt414CPrhWHq+xKF55Lsc51KrGP5MXvVKfwC2fvPXsgXknENCCW8Ynvxb 6uK4DyYYbKSxiFwOX+OsY/gOrO2LljtWWff0FsMjzm5YfMfwRX/TN3QnbOLx tz6GB9zoPF3P8F3Kb89O2GAzrDG8S8gtYhXcGhgevYE/qN4Uu1rpT2X4Os5i vkaGB6pfc+bQx86UWe5jeNI/gfP/uWSh9E81Zezdyrgpw/sUhPP/c9KR8dlj G7Gc/HUW/63j71HxP/+0OnevbTdeu/c/n2Wqq/zP8e7T4RwSWIxb6FGG8+v1 Vv/npSmn1Y20sfhSF1uG34s61fOfhw2HKh/ej3XkV59huH7rZukmhlvRF02z jmJd1nqRDC8Of5j/n5f27ki95IidqX1cwnA+9qagZoY7mj/J8DuLtbsZ6C8j v7sn5fgnhmspx5rZ+WND+36WMXyo5X58K8Nznxi2pFzA6oTc9FeQv3Am2bcz 8kHZ50jH6GUsuIizeRV524QnuY/hYudesZ9MwPg1zi+sl0J5uyo0OstYh2fl 8vmqJKxtoad+I3InjbmlNeS4pbG8gO5t7G8VeycL8hEv9Z3s+Yz9P2vxpTQN y7tYUbEJ+cbTkwlSyOFYaoqYei721qdhShi5awF/vjNyU7n0dw47yrC5sI0P DRnX9ayO2/1QFbw/YneiI8qxN/vXCkyQ//P46+eCXPKh6d2+zqfYLO+mHZbI /X7yCycg/3T1sgJzdiUGfhabzyBX//iR6R/y0h0rflurqrEd49SDt5H7J7/o +liA+sa+G0ZM6+uwoIwTL8nS6LxmlyJ1ilTBWckh7JD2Z0xTvvvu062o3u81 iOx/qgqL93nXIk/+whJe+/RlKrHBlCbX8FS7Kgia6JPKR1ex/mcq/HrGqF/J 95mPaanBBhOptesmXPh7imLRg1RU7/IPmfBeNXj25GvmaSUhnPyt8IO7ODuc DO5WXWxTB/G8keuiDZJ4LGGxWtDKDs6Srtmt0xqw/+APjwxhWbzWaFavt4cD Lus9JxyNNEHzUd53+zFFfKjEr8ycnxO8jvPNzp3bDnEJbP679VTxljwvUc4w Ltj295KruacW6Ifyt1aYqeIzby2OFUVxAXd/f+6stxaYc6hclnJWxa/wehgc juGC54mPS2/5a4Hr06TrbVGqeObQKbn7d7ngU+2gzOsgLWh4ECx+t1EV53CV rfV8xgXBQ9aCPde0wMhec4+FghoefSRk+NkIF6gox/Zw52lB1XTRI+lCNbxq 9+erQzbccPvQc0PXTi2wUFR59jlFHX/nzOR/bQsPRNkL5V9SosGYwwBdN0Md /2DU5blehgf4eeRUMpRp4H8z2DYzVx2fkl19FCrPA3qiLaOVqjToNbmjafxE HX8TY/U7UJUHhi8abe6j0sCDd/nFwQZ1XKO72zhYlwdklXiPjO2kQX9MfF3v ojrOcuulQ7U1DyycMd+scpAGuT2ZwhKWGniIVOeyeBIPfF/eWKTpQgNSsPz6 WFsNPFNdy6f6Ng+MzCok0k/TQPUoz7sZRw08ICpr7vhdHuC577LR4AwNlkQm 3xe5a+Cd1xU1s7N4oHt3dLaeBw0GGtyln4dp4PR1hbtppTyQcuKdLKsvDdyq OF5jBRp4nOIupcRmHigT28ReF0yDlizJl+NTGrjeQQP6GisvWO2+sEs2jgbc 5U+0S+c1cHav1T4uTuQRO+XxeBoMnjfwPrWigff8+0ii8PJCybqxuKMJNPhn OjxdykzFY1uH9+oL8wKlQnjCN4kGsiXc0ChExb/EkVJuKfDCdxf4FJhCA3Zl 4R8cO6m4k1yqucsBXgjjzJyvzKDBeNzrTcnnqfg+U7JXyU1eyNmX4o09ooHi IRNJpiAqLsBzPeVLPC/ouN/70IXcvDz+mHMomoPGUoI2JvOCz+HnVV6FNCgv q9/Ciu7PuUdl3Rzu8UJwrr53fBENNEdiXjUlUPG0wpeZoiW8IH43b39RCQ20 g+u+7S2g4pkOZx3KP/LC8GHDjENlNFgum7o4/BHNfZ1qWYf5yPCQc8LpaiUN ogP6t7WguWNzcG+G4WYyHJTUzaxBnmnSw12K5hQ2tl0rO0XJcMlvK9My8oeF aSdMO6n4MZndnxWkyTBtVO105jkNApoOM4n2ozlLweQpG5UMsxTvu6ovaOBz Kba+A81NH0g+EV1mZOAzceDyfUmDkP6B11vQnLV3CLvfZkkGXQ0f2VvIO5WX W06OUvEGQ53VDzZkuHdgdvkp8p3VtzTfoTmOOko/V3eSDN+0vnBMIZdQfTQo NEXF10XHiz73JUNUeiRx4hUNDKc6VvoXqPjjVa8ruYlkiPjlQyJX0WC9lcDk dTQ/3rR8Xpd9mwwJt7JvbEXOtvH52DY0b0YVnVDIukuGbUPSPlrIdRaKVs3Q fJrxuedARjYZrjtE+lohf2kn6CaH5twjWul1qWVkSORSc7qN3Mh1MoEx/+ql 8PfcqSBDzIxhey5y7X076e3IL+5YIN15SQZj8qvxMuTP5Nql7NAcHdzMceF2 DRlYDrod/IBcZTTTJh55Ws/Od8l1ZGAau5jRg9yFvTH5JfLHHr0SyQ1kOHIl pWYYeZr5ts/dyE39x0JufSDDuwvFr2eQ/0nMEZhA/qjfdzCplQwe7x/lMVXT 4FSMiM0K8ouJbgeSOsgA3SGB3MjVma5kMZ4zcPl1lCd2k2HSXsBADHn8o4ER xnOGHScrxRL7yaAi6UhWQP5NZ7vOT+S2+lwRCYNkaOo3/rsdefrxW9cakDvO 9/yI/4n2Wb6hXx+5brVwXy7yV55b8Pg/ZJhSqxs/jDz2MS12J/J2+809sZNk 0E8dv+eGXMFXZ3QO7RtvR71g7CwZCK1540DkAp+ohx4hv8cyvydmEZ0LXc0g Crm/nxllYoWKS0k1ud1g4gPP8h6NHMbv3Se7jgWdY8dSQFkUmQ/si21kB5Ef rZeNCkDnfjlsRMtHkA92D1i1TyLX/FV5rhflCcWJkmErwgf5T9IFNtBpUPrp x+0bKK8Oe+lzqknxQYeI6Fl55IZm3VMBs2j+hWGdTnU+gBjfaxeQG9V8q7+M 8vakeYO8+BE+4Fpb8TQkaFC93e6I9V8qPpGgOL/hKB+UHVi64oT8CW3aVBbl v52N6c1RKz7YdPdizWXkNcxbqnNQHZ1/5L/00pEP9cGDzbXIu+/+cd/2A63v 8RMsvPng/a/9clZAg43vBY4GoDoNoAfuuxjHB87vomrfvKaBxZUby0/bqfid Z4URx5P4wC5Qz3YeeXF4i8YfVO+CO7+74Cl80BdlmadSQ4NI+Rdm2p+ouD51 UWRjJh+UGpwPuI98a6l9otN7Kq4jwcd8vYQPEobc1lLf0OBg7dfXcxWob6SH Hwxr5oMLybJKo29pQNek4bIxVDxsNeQtLwc/VH2v0d3XhPp87EH2pWtUfMNj Dlsdbn7IYjqn2Iy8qnuE820UFeeHDXsc+fjh4ubmQ5bNNDgUbP9JO4yKj4/y risS5YedKe6nfD/QoHJryqNMXyrO11k2s2MbP1goMHe1fqKB/egxSa+jKN4r oVbThB9emG3h1O2gwd3RtiElPpRXQux7omP5gWtAV3HmO8rz89/mMW8NnEf/ pr0mlwAMzd1+WLhJG+4L2uj+dtPA950rNOrlFQCa2MQuWS5tuDBzSef6KQ08 yrZNKkJAAGJulezJ49YGV9s1z3IbDVz2Y/H9ZjEB8DEwel5K1oYzunXHcww0 8DS/3ltHlQTgQEdDwYqQNkwk5UitCmrgnHLSM6pGApD9XrzVV1Yb4qysNN49 U8f/2jCFrQ8XgLiS0IyvBtpQO0eaX+tVw+sVdix/GhMAT75mPvV4bUjvURJU dVDGzTzbW469FwRgWfe+118HXua7i6V7y+Mu375VHwvdDBmf1Uwe3tsBeq5H bLljpfGbu8diSWxC6L7uEvvPzzvBvzLeMOyOGN5Zl7YtIlgIvp/mdZyV1IUb 2WKj0aF8OOcjG8+/74VAkunG93Cl3XBtWTPJ/Q4Lfi5eiz1gQQiGwjPX647t hhe7DESDz8xg0qE3vUYEhCGcZ2xl2AMDFa7OhQKRGUyzfbpCRVAYfOmrYtJe GHQWPn7h0DSNNf99yeyDnPLv3Abrsxics2HjdlafxvrCRd9MIi/w98Of+2Cw cyeHade6KYwjKqz/z2ZhcJ7QXTIIwODsg9Szj6vGsRAXL/HHwsLwvsRWJj0U AyP+Uy+Wab8xiR0XOpLEhKE6YfHtmZsYDMpeETpVPYxF9srYv0K+O/PUS7kY DCYFmY+M7RnGtI2fbR1kuFoFdRD5zYXj8qcsfmGsu3LOKYsLg2uU6yfjOAx4 BhoUJi4PYVLRk1avkNfL5vovJGDwM2857YfgIDYu6vLimYQwSJLa8ituY+i+ 9WS3xI4u7NzHC7nqksJQZOGxa+YeBhYQ30MK6sTaVKUr9iLf5umcaZeBwfMV Tp9WegfmF2wkaYtcRtq7B5Dz3F79s+9wO5ZR4sp6GfklMhtnWCYG3jdETG8l tWIbYjq93yPPYfW9130fg0BhIf8Wi0aMvTNlRGcL2p8JjR72HAysrlUcPby9 AeMLJ9ENkZc5OVsbImc9Flz0VrQe64wB8hHkITGS3iHISZPc3FmLddjwq88m LshrfDvv/ETu2s5yWov0BgtfPGRxA3mMBtv2jFwUP/K1oubYc6xZ6dj0a+S6 VpIFxXkYhMmX/x3rqsCs9OcU3iEfcbhz+x1yyR+NImouz7CjZk6bmpD/GYBf X5F/2j5qNZ9bhmVHGQ9+Rj7uKP+b4wEGA7MsLumnCzEmMU3x78hjN/N0mCEn zVll31cqwKqX1234iTyMNfHQCYZfD/r0iyUf4zuzVjSMXIg3KsmLsY54gPl+ thxMoxE3/Yv8YnxG5RXkwN/kst3hDubOOy07jXw1p7wnH3lYco3QpHsy1htp 5jaDvHqhWrGE4XDp37GCROzEqOWVWeTvhHxLyxnX1RW9YeVxA6uY5zGZR970 YG9yFSM+3DBNj+MqllAtu8Zwrt1y3MBwcZJQMkcExlKanbSAfM5DfaaGsU6S IoidCMRgXZzXIvITyU473zF8uY/zwiNf7FWW40uGy1NPVrxneKSmYYqnO7b9 j80Uwy+r0NrqGb4Ywb19kxN25ZWK2BJy9g6zzAaGl/I6F56wwp6yxdAYrr9O Tr6R4WovpJi9DmLqX2SNGE75KBv0n5N4M+dPaGOxO4tNGZ7sXJf3P0/hdTgp hFGNW8wZLl548dn//H//lxBSNrBguBr3i0qG/x/E0BNl "]]}, Annotation[#, "Charting`Private`Tag$33093#1"]& ]}, Axes->True, DisplayFunction->Identity, FaceGridsStyle->Automatic, ImageSize->{229.08052668060873`, Automatic}, Method->{}, PlotRange->{{0., 19.99999512844876}, {-6.283185307179586, 0.}, {-31.651545984917163`, 0.}}, PlotRangePadding->{ Scaled[0.02], Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, Automatic, Automatic}, ViewPoint->{1.2632596735046815`, -2.392595079228455, 2.0321574211041393`}, ViewVertical->{-0.059921765200333925`, -0.03617915766148544, 0.999257115368486}]], "Output", CellChangeTimes->{ 3.704472920553026*^9, 3.7619387691980867`*^9, 3.7619886300926237`*^9, { 3.761988677054144*^9, 3.7619887062331*^9}, 3.761994795975267*^9, 3.761995037188819*^9, 3.761995073761372*^9},ExpressionUUID->"08fc7a25-1a5f-425d-b75a-\ c716559d5a1e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Podemos primeiro \ \[OpenCurlyDoubleQuote]cancelar\[CloseCurlyDoubleQuote] o arrasto na dire\ \[CCedilla]\[ATilde]o z:", "Subsection", CellChangeTimes->{{3.761988954081934*^9, 3.761988968777906*^9}},ExpressionUUID->"86f1c449-6264-4add-ba53-\ 36bbf68b2d1a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x0", "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"x0", ",", "\[Phi]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"y0", ",", "\[Phi]"}], "]"}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{"x0", ",", "y0", ",", "k", ",", "\[Phi]"}], "]"}], "+", RowBox[{"\[CapitalDelta]z0", "[", RowBox[{"x0", ",", "y0", ",", "k", ",", "\[Phi]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"6", "\[Pi]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"y0", ",", "0.01", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.704473076690936*^9, 3.7044731633639593`*^9}, { 3.704532652176908*^9, 3.7045327127966146`*^9}, {3.7045327890808363`*^9, 3.7045327895372*^9}, {3.761988716028163*^9, 3.7619888150727043`*^9}, { 3.761988882926364*^9, 3.761988914055808*^9}, {3.761995041828704*^9, 3.761995042124075*^9}},ExpressionUUID->"3ce7541b-e500-4137-99e1-\ e9e955d7acd7"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 8.84, $CellContext`y0$$ = 0.122, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`y0$$], 0.01, 2.}, { Hold[$CellContext`k$$], 0.01, 10}}, Typeset`size$$ = { 307., {173., 177.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`y0$33637$$ = 0, $CellContext`k$33638$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 0.01, $CellContext`y0$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`y0$$, $CellContext`y0$33637$$, 0], Hold[$CellContext`k$$, $CellContext`k$33638$$, 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" :> ParametricPlot3D[{ $CellContext`x[$CellContext`x0, $CellContext`\[Phi]], $CellContext`y[$CellContext`y0$$, $CellContext`\[Phi]], \ $CellContext`z[$CellContext`x0, $CellContext`y0$$, $CellContext`k$$, \ $CellContext`\[Phi]] + $CellContext`\[CapitalDelta]z0[$CellContext`x0, \ $CellContext`y0$$, $CellContext`k$$, $CellContext`\[Phi]]}, {$CellContext`\ \[Phi], 0, 6 Pi}], "Specifications" :> {{$CellContext`y0$$, 0.01, 2.}, {$CellContext`k$$, 0.01, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{352., {232., 238.}}, 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.704473163820079*^9, {3.7045326849108*^9, 3.704532712981092*^9}, 3.704532790509583*^9, 3.761938779289036*^9, 3.7619879376396627`*^9, 3.7619880552181873`*^9, {3.761988769900854*^9, 3.761988815380972*^9}, { 3.761988889611496*^9, 3.761988914547192*^9}, 3.761994875349689*^9, 3.761995042515193*^9, 3.7619950808896627`*^9, 3.761995145006894*^9},ExpressionUUID->"5b380d3a-cdcf-447c-8cb5-\ cea5ba52de35"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Agora podemos \[OpenCurlyDoubleQuote]cancelar\[CloseCurlyDoubleQuote] o \ arrasto na dire\[CCedilla]\[ATilde]o y:", "Subsection", CellChangeTimes->{{3.761988954081934*^9, 3.7619889965717*^9}},ExpressionUUID->"bef715a3-e609-4f5a-af2d-1f65c468a42b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x0", "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"x0", ",", "\[Phi]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"y0", ",", "\[Phi]"}], "]"}], "+", RowBox[{"\[CapitalDelta]y", "[", RowBox[{"y0", ",", "\[Phi]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"x0", ",", "y0", ",", "k", ",", "\[Phi]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"6", "\[Pi]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"y0", ",", "0.01", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.704473076690936*^9, 3.7044731633639593`*^9}, { 3.704532652176908*^9, 3.7045327127966146`*^9}, {3.7045327890808363`*^9, 3.7045327895372*^9}, {3.761988716028163*^9, 3.7619888150727043`*^9}, { 3.761988882926364*^9, 3.761988934000718*^9}},ExpressionUUID->"4f126999-c325-43f6-a402-\ 6eef980c53e4"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 0.26, $CellContext`y0$$ = 0.3, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`y0$$], 0.01, 2.}, { Hold[$CellContext`k$$], 0.01, 10}}, Typeset`size$$ = { 360., {171., 176.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`y0$36871$$ = 0, $CellContext`k$36872$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 0.01, $CellContext`y0$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`y0$$, $CellContext`y0$36871$$, 0], Hold[$CellContext`k$$, $CellContext`k$36872$$, 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" :> ParametricPlot3D[{ $CellContext`x[$CellContext`x0, $CellContext`\[Phi]], \ $CellContext`y[$CellContext`y0$$, $CellContext`\[Phi]] + $CellContext`\ \[CapitalDelta]y[$CellContext`y0$$, $CellContext`\[Phi]], $CellContext`z[$CellContext`x0, $CellContext`y0$$, $CellContext`k$$, \ $CellContext`\[Phi]]}, {$CellContext`\[Phi], 0, 6 Pi}], "Specifications" :> {{$CellContext`y0$$, 0.01, 2.}, {$CellContext`k$$, 0.01, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {230., 236.}}, 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.761988934531458*^9, {3.761994944638668*^9, 3.761994959785143*^9}, 3.7619951941364737`*^9},ExpressionUUID->"18b18e36-edb1-4341-8e5e-\ ce28b65eef93"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Finalmente, podemos cancelar os dois arrastos, e ficamos com:\ \>", "Subsection", CellChangeTimes->{{3.761988954081934*^9, 3.761989013836916*^9}},ExpressionUUID->"b4c22750-973c-447a-a5e5-\ 4570b8fcaf77"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x0", "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"x0", ",", "\[Phi]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"y0", ",", "\[Phi]"}], "]"}], "+", RowBox[{"\[CapitalDelta]y", "[", RowBox[{"y0", ",", "\[Phi]"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{"x0", ",", "y0", ",", "k", ",", "\[Phi]"}], "]"}], "+", RowBox[{"\[CapitalDelta]z0", "[", RowBox[{"x0", ",", "y0", ",", "k", ",", "\[Phi]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"6", "\[Pi]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"y0", ",", "0.01", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0.01", ",", "10"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.704473076690936*^9, 3.7044731633639593`*^9}, { 3.704532652176908*^9, 3.7045327127966146`*^9}, {3.7045327890808363`*^9, 3.7045327895372*^9}, {3.761988716028163*^9, 3.7619888150727043`*^9}, { 3.761988882926364*^9, 3.761988934000718*^9}, {3.761989022911923*^9, 3.7619890261201057`*^9}, {3.761995215835318*^9, 3.76199521609848*^9}},ExpressionUUID->"9ecd1f16-6371-49ed-9c92-\ bb67ede35825"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 2.42, $CellContext`y0$$ = 0.61, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`y0$$], 0.01, 2.}, { Hold[$CellContext`k$$], 0.01, 10}}, Typeset`size$$ = { 360., {194., 199.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`y0$41380$$ = 0, $CellContext`k$41381$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 0.01, $CellContext`y0$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`y0$$, $CellContext`y0$41380$$, 0], Hold[$CellContext`k$$, $CellContext`k$41381$$, 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" :> ParametricPlot3D[{ $CellContext`x[$CellContext`x0, $CellContext`\[Phi]], \ $CellContext`y[$CellContext`y0$$, $CellContext`\[Phi]] + $CellContext`\ \[CapitalDelta]y[$CellContext`y0$$, $CellContext`\[Phi]], \ $CellContext`z[$CellContext`x0, $CellContext`y0$$, $CellContext`k$$, \ $CellContext`\[Phi]] + $CellContext`\[CapitalDelta]z0[$CellContext`x0, \ $CellContext`y0$$, $CellContext`k$$, $CellContext`\[Phi]]}, {$CellContext`\ \[Phi], 0, 6 Pi}], "Specifications" :> {{$CellContext`y0$$, 0.01, 2.}, {$CellContext`k$$, 0.01, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {253., 259.}}, 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.761995267918006*^9},ExpressionUUID->"2f8241c9-3805-4b3f-b5ef-\ c9b0566a86d2"] }, Open ]] }, Open ]] }, WindowSize->{636, 436}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, 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, 177, 3, 54, "Subsection",ExpressionUUID->"6e91ec0e-b98b-4d0a-aa88-8ac870e6d8f5"], Cell[760, 27, 2649, 74, 284, "Input",ExpressionUUID->"b8fe172c-1114-47b2-9211-f4a841df4624"], Cell[CellGroupData[{ Cell[3434, 105, 1103, 28, 151, "Input",ExpressionUUID->"ce11e470-3a41-490e-9c4a-a3c51ec39cba"], Cell[4540, 135, 11740, 203, 366, "Output",ExpressionUUID->"08fc7a25-1a5f-425d-b75a-c716559d5a1e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16329, 344, 266, 5, 54, "Subsection",ExpressionUUID->"86f1c449-6264-4add-ba53-36bbf68b2d1a"], Cell[CellGroupData[{ Cell[16620, 353, 1263, 31, 145, "Input",ExpressionUUID->"3ce7541b-e500-4137-99e1-e9e955d7acd7"], Cell[17886, 386, 2560, 49, 489, "Output",ExpressionUUID->"5b380d3a-cdcf-447c-8cb5-cea5ba52de35"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20495, 441, 257, 3, 54, "Subsection",ExpressionUUID->"bef715a3-e609-4f5a-af2d-1f65c468a42b"], Cell[CellGroupData[{ Cell[20777, 448, 1195, 31, 124, "Input",ExpressionUUID->"4f126999-c325-43f6-a402-6eef980c53e4"], Cell[21975, 481, 2256, 44, 485, "Output",ExpressionUUID->"18b18e36-edb1-4341-8e5e-ce28b65eef93"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24280, 531, 217, 5, 54, "Subsection",ExpressionUUID->"b4c22750-973c-447a-a5e5-4570b8fcaf77"], Cell[CellGroupData[{ Cell[24522, 540, 1428, 35, 145, "Input",ExpressionUUID->"9ecd1f16-6371-49ed-9c92-bb67ede35825"], Cell[25953, 577, 2287, 45, 565, "Output",ExpressionUUID->"2f8241c9-3805-4b3f-b5ef-c9b0566a86d2"] }, Open ]] }, Open ]] } ] *)