(* 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[ 55143, 1155] NotebookOptionsPosition[ 54052, 1114] NotebookOutlinePosition[ 54423, 1130] CellTagsIndexPosition[ 54380, 1127] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Movimento sobre um carrossel que gira - c\[AAcute]lculo no referencial \ girante comparado com transforma\[CCedilla]\[ATilde]o de coordenada\ \>", "Title", CellChangeTimes->{{3.6526879881795006`*^9, 3.652688001914856*^9}, { 3.6527008881793823`*^9, 3.6527009157563243`*^9}, {3.65282622128722*^9, 3.6528262314159746`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Omega]", "=", "1", " ", RowBox[{"(*", " ", RowBox[{"frequencia", " ", "angular", " ", "do", " ", "carrossel"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6526877509762573`*^9, 3.652687755351568*^9}, { 3.6527090958012257`*^9, 3.652709106348853*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.6526877564141445`*^9, 3.652692080145999*^9, 3.6526926973181863`*^9, 3.652698067193598*^9, 3.652698418194687*^9, 3.6526985490043106`*^9, 3.652699569738302*^9, 3.652700580461622*^9, 3.6527010057591486`*^9, 3.6527090070055237`*^9, 3.6527095825821424`*^9, 3.652822873158989*^9, 3.6528253011099267`*^9, 3.652825630225587*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r0", "=", "0.5", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{ "posi\[CCedilla]\[ATilde]o", " ", "inicial", " ", "do", " ", "objeto"}], ",", " ", RowBox[{ RowBox[{"com", " ", "\[Theta]"}], "=", "\[Pi]"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.6526891208214045`*^9, 3.6526891250248284`*^9}, { 3.6527091090677977`*^9, 3.6527091486956263`*^9}}], Cell[BoxData["0.5`"], "Output", CellChangeTimes->{3.6526891258686385`*^9, 3.6526920802866354`*^9, 3.6526926973650646`*^9, 3.652698070006298*^9, 3.6526984207261143`*^9, 3.6526985518951435`*^9, 3.652699572597884*^9, 3.6527005830243073`*^9, 3.652701005899782*^9, 3.652709007146155*^9, 3.652709582722777*^9, 3.652822873236038*^9, 3.65282530117297*^9, 3.6528256304317255`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"disco", "=", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], " ", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.652689403943486*^9, 3.6526894083969283`*^9}, { 3.652689516787389*^9, 3.652689541492277*^9}}], Cell["matriz de transforma\[CCedilla]\[ATilde]o do solo para o carrossel ", \ "Text", CellChangeTimes->{{3.6528256835992603`*^9, 3.6528257093124137`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"w_", ",", "t_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c", "=", RowBox[{"Cos", "[", RowBox[{"w", " ", "t"}], "]"}]}], ",", RowBox[{"s", "=", RowBox[{"Sin", "[", RowBox[{"w", " ", "t"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"c", ",", "s"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "s"}], ",", "c"}], "}"}]}], "}"}]}], "]"}]}]], "Input"], Cell["\<\ equa\[CCedilla]\[OTilde]es hor\[AAcute]rias {x(t),y(t)} no sistema solo. \ Lembrar que v0y no carrossel tem que ser transformado para o sistema solo E \ que fixamos o ponto de lan\[CCedilla]amento em x=-r0, y=0\ \>", "Text", CellChangeTimes->{{3.6528257217286997`*^9, 3.652825787251848*^9}, { 3.65282586987755*^9, 3.6528259093288517`*^9}, {3.652825994201087*^9, 3.6528259952928143`*^9}, {3.6528262498772883`*^9, 3.6528262775757675`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"mru", "[", RowBox[{"v_", ",", "q_", ",", "t_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "r0"}], "+", RowBox[{"v", " ", RowBox[{"Cos", "[", "q", "]"}], "t"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", " ", RowBox[{"Sin", "[", "q", "]"}]}], "-", RowBox[{"\[Omega]", " ", "r0"}]}], ")"}], "t"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.652824763597838*^9, 3.6528247726218557`*^9}, { 3.652824817332632*^9, 3.65282483206545*^9}, {3.652825838541083*^9, 3.6528258648471794`*^9}, {3.652826003154056*^9, 3.652826015122051*^9}, { 3.652826292449198*^9, 3.652826302137672*^9}}], Cell["\<\ transforma\[CCedilla]\[ATilde]o polar -> retangular, trazendo a coordenada \ polar para o dom\[IAcute]nio da fun\[CCedilla]\[ATilde]o \ FromPolarCoordinates, que \[EAcute] -\[Pi] < \[Theta] < =\[Pi]\ \>", "Text", CellChangeTimes->{{3.6527091738495607`*^9, 3.6527092492890806`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"xy", "[", RowBox[{"{", RowBox[{"r_", ",", "q_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "qc", "}"}], ",", RowBox[{ RowBox[{"qc", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "<", "q", "<=", "Pi"}], ",", "q", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"q", "+", "Pi"}], ",", RowBox[{"2", "Pi"}]}], "]"}], "-", "Pi"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FromPolarCoordinates", "[", RowBox[{"{", RowBox[{"r", ",", "qc"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6527092562427034`*^9, 3.652709267149729*^9}}], Cell["\<\ ParametricBDSolve exige que par\[AHat]metros correspondentes \[AGrave]s condi\ \[CCedilla]\[OTilde]es iniciais sejam as pr\[OAcute]prias condi\[CCedilla]\ \[OTilde]es iniciais, sem transforma\[CCedilla]\[ATilde]o; o manipulador far\ \[AAcute] a transforma\[CCedilla]\[ATilde]o.\ \>", "Text", CellChangeTimes->{{3.6527093758684626`*^9, 3.652709476334056*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sp", "=", RowBox[{"ParametricNDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"r", "''"}], "[", "t", "]"}], "-", RowBox[{ RowBox[{"r", "[", "t", "]"}], RowBox[{ RowBox[{ RowBox[{"q", "'"}], "[", "t", "]"}], "^", "2"}]}]}], "\[Equal]", RowBox[{ RowBox[{"2", "\[Omega]", " ", RowBox[{"r", "[", "t", "]"}], " ", RowBox[{ RowBox[{"q", "'"}], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"\[Omega]", "^", "2"}], " ", RowBox[{"r", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{ RowBox[{"r", "'"}], "[", "t", "]"}], RowBox[{ RowBox[{"q", "'"}], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"r", "[", "t", "]"}], " ", RowBox[{ RowBox[{"q", "''"}], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], "\[Omega]", " ", RowBox[{ RowBox[{"r", "'"}], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"r", "'"}], "[", "0", "]"}], "\[Equal]", "vr0"}], ",", RowBox[{ RowBox[{ RowBox[{"q", "'"}], "[", "0", "]"}], "\[Equal]", "vq0"}], " ", ",", RowBox[{ RowBox[{"r", "[", "0", "]"}], "\[Equal]", "r0"}], ",", RowBox[{ RowBox[{"q", "[", "0", "]"}], "==", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "q"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"vr0", ",", "vq0"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6526927419756722`*^9, 3.652692750382522*^9}, { 3.6526985017242746`*^9, 3.6526985066465006`*^9}, 3.6526987775539894`*^9, { 3.652699673680544*^9, 3.6526996999267426`*^9}, {3.6526997709750414`*^9, 3.6526997824914885`*^9}, {3.6526998858039675`*^9, 3.6526998952890196`*^9}, {3.6526999580062623`*^9, 3.652699986523923*^9}, { 3.6527002054451485`*^9, 3.6527002116487164`*^9}, 3.6527007101921453`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["ParametricFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{}, {}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, { 0.0874367476365131, 0.08197166587636243}, { 0.18222810297558026`, 0.1358255024317191}, { 0.27073779576926765`, 0.13315455086535802`}, { 0.3575112797365835, 0.08143316377978886}, { 0.4516394623155443, -0.007347854733426912}, { 0.5394859823491253, -0.08816932746972758}, { 0.6346872009943513, -0.13787329990112937`}, { 0.7281522108132057, -0.12816574147938434`}, { 0.8153355580866803, -0.07001063326902106}, { 0.9098736039718, 0.02121659675083076}, { 0.9999999090909091, 0.10024804094746914`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, { 0.0874367476365131, 0.08090369567458766}, { 0.18222810297558026`, 0.12746559200130417`}, { 0.27073779576926765`, 0.1116266937044405}, { 0.3575112797365835, 0.046963725126600256`}, { 0.4516394623155443, -0.04509050859182233}, { 0.5394859823491253, -0.11115559892361665`}, { 0.6346872009943513, -0.12642564594664163`}, { 0.7281522108132057, -0.07740196037964171}, { 0.8153355580866803, 0.004179083230780074}, { 0.9098736039718, 0.08937493944143977}, { 0.9999999090909091, 0.12834702174618903`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, { 0.0874367476365131, 0.07984396759533968}, { 0.18222810297558026`, 0.11939549826670079`}, { 0.27073779576926765`, 0.09184904274707059}, { 0.3575112797365835, 0.017913117173780694`}, { 0.4516394623155443, -0.07109962300031061}, { 0.5394859823491253, -0.11717052830989395`}, { 0.6346872009943513, -0.09879571259704382}, { 0.7281522108132057, -0.022693471356141894`}, { 0.8153355580866803, 0.06128703302641453}, { 0.9098736039718, 0.11605625481609519`}, { 0.9999999090909091, 0.10415981267620744`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, { 0.0874367476365131, 0.07879243663407876}, { 0.18222810297558026`, 0.1116081822210312}, { 0.27073779576926765`, 0.07372482040530459}, { 0.3575112797365835, -0.006267252216927747}, { 0.4516394623155443, -0.08743897872291118}, { 0.5394859823491253, -0.11109134853087661`}, { 0.6346872009943513, -0.06371549528296311}, { 0.7281522108132057, 0.02544576624054603}, { 0.8153355580866803, 0.09464282937855747}, { 0.9098736039718, 0.10731931496853601`}, { 0.9999999090909091, 0.0516787429232188}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, { 0.0874367476365131, 0.07774905743802465}, { 0.18222810297558026`, 0.10409673959866513`}, { 0.27073779576926765`, 0.05716133039337165}, { 0.3575112797365835, -0.026084496726167965`}, { 0.4516394623155443, -0.09591154799603378}, { 0.5394859823491253, -0.09685594593277226}, { 0.6346872009943513, -0.02730376120671303}, { 0.7281522108132057, 0.061646715198529656`}, { 0.8153355580866803, 0.1046634148537508}, {0.9098736039718, 0.07509702498429204}, { 0.9999999090909091, -0.006536873471333553}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, { 0.0874367476365131, 0.07671378556951527}, { 0.18222810297558026`, 0.09685439581479163}, { 0.27073779576926765`, 0.042069810325321415`}, { 0.3575112797365835, -0.042006785469922474`}, { 0.4516394623155443, -0.09808544986431629}, { 0.5394859823491253, -0.07760167026270944}, { 0.6346872009943513, 0.0063643674428021085`}, { 0.7281522108132057, 0.08405712128907425}, { 0.8153355580866803, 0.09555213349985489}, { 0.9098736039718, 0.03202960165577907}, { 0.9999999090909091, -0.054402034659985464`}}]}}, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, Method -> {"ScalingFunctions" -> None}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, Ticks -> {Automatic, Automatic}], GridBox[{{ RowBox[{ TagBox["\"Expression: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox["r", HoldForm], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Parameters: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"vr0", ",", "vq0"}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{}, {}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, { 0.0874367476365131, 0.08197166587636243}, { 0.18222810297558026`, 0.1358255024317191}, { 0.27073779576926765`, 0.13315455086535802`}, { 0.3575112797365835, 0.08143316377978886}, { 0.4516394623155443, -0.007347854733426912}, { 0.5394859823491253, -0.08816932746972758}, { 0.6346872009943513, -0.13787329990112937`}, { 0.7281522108132057, -0.12816574147938434`}, { 0.8153355580866803, -0.07001063326902106}, { 0.9098736039718, 0.02121659675083076}, { 0.9999999090909091, 0.10024804094746914`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, { 0.0874367476365131, 0.08090369567458766}, { 0.18222810297558026`, 0.12746559200130417`}, { 0.27073779576926765`, 0.1116266937044405}, { 0.3575112797365835, 0.046963725126600256`}, { 0.4516394623155443, -0.04509050859182233}, { 0.5394859823491253, -0.11115559892361665`}, { 0.6346872009943513, -0.12642564594664163`}, { 0.7281522108132057, -0.07740196037964171}, { 0.8153355580866803, 0.004179083230780074}, { 0.9098736039718, 0.08937493944143977}, { 0.9999999090909091, 0.12834702174618903`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, { 0.0874367476365131, 0.07984396759533968}, { 0.18222810297558026`, 0.11939549826670079`}, { 0.27073779576926765`, 0.09184904274707059}, { 0.3575112797365835, 0.017913117173780694`}, { 0.4516394623155443, -0.07109962300031061}, { 0.5394859823491253, -0.11717052830989395`}, { 0.6346872009943513, -0.09879571259704382}, { 0.7281522108132057, -0.022693471356141894`}, { 0.8153355580866803, 0.06128703302641453}, { 0.9098736039718, 0.11605625481609519`}, { 0.9999999090909091, 0.10415981267620744`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, { 0.0874367476365131, 0.07879243663407876}, { 0.18222810297558026`, 0.1116081822210312}, { 0.27073779576926765`, 0.07372482040530459}, { 0.3575112797365835, -0.006267252216927747}, { 0.4516394623155443, -0.08743897872291118}, { 0.5394859823491253, -0.11109134853087661`}, { 0.6346872009943513, -0.06371549528296311}, { 0.7281522108132057, 0.02544576624054603}, { 0.8153355580866803, 0.09464282937855747}, { 0.9098736039718, 0.10731931496853601`}, { 0.9999999090909091, 0.0516787429232188}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, { 0.0874367476365131, 0.07774905743802465}, { 0.18222810297558026`, 0.10409673959866513`}, { 0.27073779576926765`, 0.05716133039337165}, { 0.3575112797365835, -0.026084496726167965`}, { 0.4516394623155443, -0.09591154799603378}, { 0.5394859823491253, -0.09685594593277226}, { 0.6346872009943513, -0.02730376120671303}, { 0.7281522108132057, 0.061646715198529656`}, { 0.8153355580866803, 0.1046634148537508}, {0.9098736039718, 0.07509702498429204}, { 0.9999999090909091, -0.006536873471333553}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, { 0.0874367476365131, 0.07671378556951527}, { 0.18222810297558026`, 0.09685439581479163}, { 0.27073779576926765`, 0.042069810325321415`}, { 0.3575112797365835, -0.042006785469922474`}, { 0.4516394623155443, -0.09808544986431629}, { 0.5394859823491253, -0.07760167026270944}, { 0.6346872009943513, 0.0063643674428021085`}, { 0.7281522108132057, 0.08405712128907425}, { 0.8153355580866803, 0.09555213349985489}, { 0.9098736039718, 0.03202960165577907}, { 0.9999999090909091, -0.054402034659985464`}}]}}, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, Method -> {"ScalingFunctions" -> None}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, Ticks -> {Automatic, Automatic}], GridBox[{{ RowBox[{ TagBox["\"Expression: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox["r", HoldForm], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Parameters: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"vr0", ",", "vq0"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Generator: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["ParametricNDSolve", "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Dependent variables: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"q", ",", "r"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Independent variables: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("ParametricFunction[<>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]}], ",", RowBox[{"q", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["ParametricFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{}, {}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, { 0.0874367476365131, 0.08197166587636243}, { 0.18222810297558026`, 0.1358255024317191}, { 0.27073779576926765`, 0.13315455086535802`}, { 0.3575112797365835, 0.08143316377978886}, { 0.4516394623155443, -0.007347854733426912}, { 0.5394859823491253, -0.08816932746972758}, { 0.6346872009943513, -0.13787329990112937`}, { 0.7281522108132057, -0.12816574147938434`}, { 0.8153355580866803, -0.07001063326902106}, { 0.9098736039718, 0.02121659675083076}, { 0.9999999090909091, 0.10024804094746914`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, { 0.0874367476365131, 0.08090369567458766}, { 0.18222810297558026`, 0.12746559200130417`}, { 0.27073779576926765`, 0.1116266937044405}, { 0.3575112797365835, 0.046963725126600256`}, { 0.4516394623155443, -0.04509050859182233}, { 0.5394859823491253, -0.11115559892361665`}, { 0.6346872009943513, -0.12642564594664163`}, { 0.7281522108132057, -0.07740196037964171}, { 0.8153355580866803, 0.004179083230780074}, { 0.9098736039718, 0.08937493944143977}, { 0.9999999090909091, 0.12834702174618903`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, { 0.0874367476365131, 0.07984396759533968}, { 0.18222810297558026`, 0.11939549826670079`}, { 0.27073779576926765`, 0.09184904274707059}, { 0.3575112797365835, 0.017913117173780694`}, { 0.4516394623155443, -0.07109962300031061}, { 0.5394859823491253, -0.11717052830989395`}, { 0.6346872009943513, -0.09879571259704382}, { 0.7281522108132057, -0.022693471356141894`}, { 0.8153355580866803, 0.06128703302641453}, { 0.9098736039718, 0.11605625481609519`}, { 0.9999999090909091, 0.10415981267620744`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, { 0.0874367476365131, 0.07879243663407876}, { 0.18222810297558026`, 0.1116081822210312}, { 0.27073779576926765`, 0.07372482040530459}, { 0.3575112797365835, -0.006267252216927747}, { 0.4516394623155443, -0.08743897872291118}, { 0.5394859823491253, -0.11109134853087661`}, { 0.6346872009943513, -0.06371549528296311}, { 0.7281522108132057, 0.02544576624054603}, { 0.8153355580866803, 0.09464282937855747}, { 0.9098736039718, 0.10731931496853601`}, { 0.9999999090909091, 0.0516787429232188}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, { 0.0874367476365131, 0.07774905743802465}, { 0.18222810297558026`, 0.10409673959866513`}, { 0.27073779576926765`, 0.05716133039337165}, { 0.3575112797365835, -0.026084496726167965`}, { 0.4516394623155443, -0.09591154799603378}, { 0.5394859823491253, -0.09685594593277226}, { 0.6346872009943513, -0.02730376120671303}, { 0.7281522108132057, 0.061646715198529656`}, { 0.8153355580866803, 0.1046634148537508}, {0.9098736039718, 0.07509702498429204}, { 0.9999999090909091, -0.006536873471333553}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, { 0.0874367476365131, 0.07671378556951527}, { 0.18222810297558026`, 0.09685439581479163}, { 0.27073779576926765`, 0.042069810325321415`}, { 0.3575112797365835, -0.042006785469922474`}, { 0.4516394623155443, -0.09808544986431629}, { 0.5394859823491253, -0.07760167026270944}, { 0.6346872009943513, 0.0063643674428021085`}, { 0.7281522108132057, 0.08405712128907425}, { 0.8153355580866803, 0.09555213349985489}, { 0.9098736039718, 0.03202960165577907}, { 0.9999999090909091, -0.054402034659985464`}}]}}, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, Method -> {"ScalingFunctions" -> None}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, Ticks -> {Automatic, Automatic}], GridBox[{{ RowBox[{ TagBox["\"Expression: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox["q", HoldForm], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Parameters: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"vr0", ",", "vq0"}], "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{}, {}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090884856*^-8}, { 0.0874367476365131, 0.08197166587636243}, { 0.18222810297558026`, 0.1358255024317191}, { 0.27073779576926765`, 0.13315455086535802`}, { 0.3575112797365835, 0.08143316377978886}, { 0.4516394623155443, -0.007347854733426912}, { 0.5394859823491253, -0.08816932746972758}, { 0.6346872009943513, -0.13787329990112937`}, { 0.7281522108132057, -0.12816574147938434`}, { 0.8153355580866803, -0.07001063326902106}, { 0.9098736039718, 0.02121659675083076}, { 0.9999999090909091, 0.10024804094746914`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090880112*^-8}, { 0.0874367476365131, 0.08090369567458766}, { 0.18222810297558026`, 0.12746559200130417`}, { 0.27073779576926765`, 0.1116266937044405}, { 0.3575112797365835, 0.046963725126600256`}, { 0.4516394623155443, -0.04509050859182233}, { 0.5394859823491253, -0.11115559892361665`}, { 0.6346872009943513, -0.12642564594664163`}, { 0.7281522108132057, -0.07740196037964171}, { 0.8153355580866803, 0.004179083230780074}, { 0.9098736039718, 0.08937493944143977}, { 0.9999999090909091, 0.12834702174618903`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090875369*^-8}, { 0.0874367476365131, 0.07984396759533968}, { 0.18222810297558026`, 0.11939549826670079`}, { 0.27073779576926765`, 0.09184904274707059}, { 0.3575112797365835, 0.017913117173780694`}, { 0.4516394623155443, -0.07109962300031061}, { 0.5394859823491253, -0.11717052830989395`}, { 0.6346872009943513, -0.09879571259704382}, { 0.7281522108132057, -0.022693471356141894`}, { 0.8153355580866803, 0.06128703302641453}, { 0.9098736039718, 0.11605625481609519`}, { 0.9999999090909091, 0.10415981267620744`}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090870287*^-8}, { 0.0874367476365131, 0.07879243663407876}, { 0.18222810297558026`, 0.1116081822210312}, { 0.27073779576926765`, 0.07372482040530459}, { 0.3575112797365835, -0.006267252216927747}, { 0.4516394623155443, -0.08743897872291118}, { 0.5394859823491253, -0.11109134853087661`}, { 0.6346872009943513, -0.06371549528296311}, { 0.7281522108132057, 0.02544576624054603}, { 0.8153355580866803, 0.09464282937855747}, { 0.9098736039718, 0.10731931496853601`}, { 0.9999999090909091, 0.0516787429232188}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.090909090865543*^-8}, { 0.0874367476365131, 0.07774905743802465}, { 0.18222810297558026`, 0.10409673959866513`}, { 0.27073779576926765`, 0.05716133039337165}, { 0.3575112797365835, -0.026084496726167965`}, { 0.4516394623155443, -0.09591154799603378}, { 0.5394859823491253, -0.09685594593277226}, { 0.6346872009943513, -0.02730376120671303}, { 0.7281522108132057, 0.061646715198529656`}, { 0.8153355580866803, 0.1046634148537508}, {0.9098736039718, 0.07509702498429204}, { 0.9999999090909091, -0.006536873471333553}}]}, { GrayLevel[0.55], AbsoluteThickness[1.5], Opacity[1.], LineBox[{{9.09090909090909*^-8, 9.0909090908608*^-8}, { 0.0874367476365131, 0.07671378556951527}, { 0.18222810297558026`, 0.09685439581479163}, { 0.27073779576926765`, 0.042069810325321415`}, { 0.3575112797365835, -0.042006785469922474`}, { 0.4516394623155443, -0.09808544986431629}, { 0.5394859823491253, -0.07760167026270944}, { 0.6346872009943513, 0.0063643674428021085`}, { 0.7281522108132057, 0.08405712128907425}, { 0.8153355580866803, 0.09555213349985489}, { 0.9098736039718, 0.03202960165577907}, { 0.9999999090909091, -0.054402034659985464`}}]}}, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, Background -> GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, Method -> {"ScalingFunctions" -> None}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, Ticks -> {Automatic, Automatic}], GridBox[{{ RowBox[{ TagBox["\"Expression: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox["q", HoldForm], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Parameters: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"vr0", ",", "vq0"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Generator: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["ParametricNDSolve", "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Dependent variables: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"q", ",", "r"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox[ "\"Independent variables: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "t", "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("ParametricFunction[<>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]}]}], "}"}]], "Output", CellChangeTimes->{ 3.652692751413842*^9, 3.652692805240996*^9, 3.652698092476653*^9, 3.652698454490257*^9, 3.6526985075684395`*^9, 3.6526985750842957`*^9, 3.6526986782400227`*^9, 3.6526987783509192`*^9, 3.652699707161631*^9, 3.6526998155669303`*^9, {3.652699888585414*^9, 3.6526998960546975`*^9}, 3.652699990380761*^9, 3.652700215133336*^9, 3.6527005938009434`*^9, 3.652700712582939*^9, 3.652701005977913*^9, 3.6527090072086587`*^9, 3.6527095828009076`*^9, 3.652822873486205*^9, 3.652825301314062*^9, 3.652825630533793*^9}] }, Open ]], Cell["\<\ Condi\[CCedilla]\[OTilde]es ajust\[AAcute]veis: v0, m\[OAcute]dulo da \ velocidade inicial e \[Theta], \[AHat]ngulo com o eixo Ox.\ \>", "Text", CellChangeTimes->{{3.652709293990356*^9, 3.652709349725972*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"vr", ",", "vq", ",", "rt", ",", "qt", ",", "u"}], "}"}], ",", RowBox[{ RowBox[{"vr", "=", RowBox[{ RowBox[{"-", "v0"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"vq", "=", RowBox[{ RowBox[{"-", "v0"}], " ", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], "/", "r0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rt", "=", RowBox[{ RowBox[{"(", RowBox[{"r", "/.", "sp"}], ")"}], "[", RowBox[{"vr", ",", "vq"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"qt", "=", RowBox[{ RowBox[{"(", RowBox[{"q", "/.", "sp"}], ")"}], "[", RowBox[{"vr", ",", "vq"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"xy", "[", RowBox[{"{", RowBox[{ RowBox[{"rt", "[", "t", "]"}], ",", RowBox[{"qt", "[", "t", "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}]}], ";", RowBox[{"Show", "[", RowBox[{"disco", ",", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"u", ",", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "#", "]"}], "<", "1"}], "&"}]}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", RowBox[{"ParametricPlot", "[", " ", RowBox[{ RowBox[{ RowBox[{"m", "[", RowBox[{"\[Omega]", ",", "t"}], "]"}], ".", RowBox[{"mru", "[", RowBox[{"v0", ",", "\[Theta]", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"RegionFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], "<", "1"}]}], "]"}]}]}], " ", "]"}]}], " ", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"v0", ",", "1"}], "}"}], ",", "0.001", ",", "2", ",", "0.002"}], "}"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"n\[ATilde]o", " ", "permite", " ", "v0"}], " ", "=", " ", RowBox[{ "\[Omega]", " ", "r0", " ", "ao", " ", "escolher", " ", "0.001", " ", "como", " ", "limite", " ", "inferior", " ", "e", " ", "0.002", " ", "como", " ", "intervalo"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Theta]", ",", RowBox[{"90", "Degree"}]}], "}"}], ",", RowBox[{ RowBox[{"-", "90"}], "Degree"}], ",", RowBox[{"90", "Degree"}], ",", RowBox[{"1", "Degree"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.652692125930522*^9, 3.6526922285070643`*^9}, { 3.652692652321269*^9, 3.652692686020508*^9}, {3.652700247552986*^9, 3.6527004692701883`*^9}, {3.6527005703046494`*^9, 3.6527005742580543`*^9}, { 3.6527007167238617`*^9, 3.652700721567957*^9}, {3.652700757445518*^9, 3.652700789849767*^9}, {3.652709031444767*^9, 3.652709035570061*^9}, { 3.652709358992258*^9, 3.652709369383625*^9}, {3.652709509586429*^9, 3.652709577488031*^9}, {3.6528260881521177`*^9, 3.652826136822443*^9}, { 3.652826320170691*^9, 3.6528263222150545`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`v0$$ = 0.46900000000000003`, $CellContext`\[Theta]$$ = 50 Degree, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`v0$$], 1}, 0.001, 2, 0.002}, {{ Hold[$CellContext`\[Theta]$$], 90 Degree}, (-90) Degree, 90 Degree, Degree}}, Typeset`size$$ = {504., {246., 257.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`v0$43611$$ = 0, $CellContext`\[Theta]$43612$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`v0$$ = 1, $CellContext`\[Theta]$$ = 90 Degree}, "ControllerVariables" :> { Hold[$CellContext`v0$$, $CellContext`v0$43611$$, 0], Hold[$CellContext`\[Theta]$$, $CellContext`\[Theta]$43612$$, 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" :> Module[{$CellContext`vr$, $CellContext`vq$, $CellContext`rt$, \ $CellContext`qt$, $CellContext`u$}, $CellContext`vr$ = (-$CellContext`v0$$) Cos[$CellContext`\[Theta]$$]; $CellContext`vq$ = \ (-$CellContext`v0$$) ( Sin[$CellContext`\[Theta]$$]/$CellContext`r0); $CellContext`rt$ = ReplaceAll[$CellContext`r, $CellContext`sp][$CellContext`vr$, \ $CellContext`vq$]; $CellContext`qt$ = ReplaceAll[$CellContext`q, $CellContext`sp][$CellContext`vr$, \ $CellContext`vq$]; $CellContext`u$ = Table[ $CellContext`xy[{ $CellContext`rt$[$CellContext`t], $CellContext`qt$[$CellContext`t]}], {$CellContext`t, 0, 20, 0.05}]; Show[$CellContext`disco, ListPlot[ Select[$CellContext`u$, Norm[#] < 1& ], AspectRatio -> 1], ParametricPlot[ Dot[ $CellContext`m[$CellContext`\[Omega], $CellContext`t], $CellContext`mru[-$CellContext`r0, $CellContext`v0$$, \ $CellContext`\[Theta]$$, $CellContext`t]], {$CellContext`t, 0, 20}, RegionFunction -> Function[{$CellContext`x, $CellContext`y}, $CellContext`x^2 + \ $CellContext`y^2 < 1]]]], "Specifications" :> {{{$CellContext`v0$$, 1}, 0.001, 2, 0.002}, {{$CellContext`\[Theta]$$, 90 Degree}, (-90) Degree, 90 Degree, Degree}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{569., {320., 329.}}, 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.65282610045018*^9, 3.6528261406730127`*^9}] }, Open ]] }, Open ]] }, WindowSize->{1048, 997}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, Magnification:>1.4 Inherited, FrontEndVersion->"10.2 for Microsoft Windows (64-bit) (July 7, 2015)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 336, 6, 349, "Title"], Cell[CellGroupData[{ Cell[941, 32, 292, 6, 42, "Input"], Cell[1236, 40, 382, 5, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1655, 50, 409, 11, 42, "Input"], Cell[2067, 63, 384, 5, 41, "Output"] }, Open ]], Cell[2466, 71, 348, 10, 42, "Input"], Cell[2817, 83, 155, 2, 42, "Text"], Cell[2975, 87, 579, 20, 42, "Input"], Cell[3557, 109, 453, 7, 70, "Text"], Cell[4013, 118, 712, 19, 42, "Input"], Cell[4728, 139, 292, 5, 70, "Text"], Cell[5023, 146, 792, 24, 97, "Input"], Cell[5818, 172, 369, 6, 70, "Text"], Cell[CellGroupData[{ Cell[6212, 182, 2162, 59, 97, "Input"], Cell[8377, 243, 38376, 695, 199, "Output"] }, Open ]], Cell[46768, 941, 220, 4, 42, "Text"], Cell[CellGroupData[{ Cell[47013, 949, 3819, 98, 367, "Input"], Cell[50835, 1049, 3189, 61, 672, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)