(* 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[ 11939, 346] NotebookOptionsPosition[ 9123, 288] NotebookOutlinePosition[ 9463, 303] CellTagsIndexPosition[ 9420, 300] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Part\[IAcute]cula livre", "Section", CellChangeTimes->{{3.7971547053154097`*^9, 3.797154709331237*^9}},ExpressionUUID->"649df02d-ac81-456b-9102-\ 028c8f8bff67"], Cell[BoxData[ RowBox[{ RowBox[{"qc", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"qf", "/", "tf"}], " ", "t"}]}]], "Input", CellChangeTimes->{{3.796552230252684*^9, 3.796552310950285*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"5f373662-2d0a-40b4-b403-4c8df185ebc9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"m", "/", "2"}], " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"qc", "[", "t", "]"}], ",", "t"}], "]"}], "^", "2"}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tf"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796552318761162*^9, 3.796552335742695*^9}, { 3.796552394379511*^9, 3.796552453463889*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"3d9b0698-12a4-4c85-b6eb-20f2f10c5b24"], Cell[BoxData[ FractionBox[ RowBox[{"m", " ", SuperscriptBox["qf", "2"]}], RowBox[{"2", " ", "tf"}]]], "Output", CellChangeTimes->{3.797154742662964*^9}, CellLabel->"Out[66]=",ExpressionUUID->"164ad52d-68d3-4dfd-be62-b4bd8fa02718"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dq", "[", "t_", "]"}], ":=", " ", RowBox[{"C", " ", RowBox[{"Sin", "[", " ", RowBox[{ RowBox[{"Pi", "/", "tf"}], " ", "t"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"dq", "[", "0", "]"}], "\[IndentingNewLine]", RowBox[{"dq", "[", "tf", "]"}]}], "Input", CellChangeTimes->{{3.796552348895048*^9, 3.7965523787255993`*^9}, { 3.796552556515905*^9, 3.796552561860818*^9}, {3.7971541453762693`*^9, 3.7971541456276903`*^9}, {3.797154531530052*^9, 3.797154541278653*^9}, { 3.7971546005855083`*^9, 3.797154601297229*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"3f64ae0f-97bf-4c8a-9d73-f01f593d0191"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.797154742676997*^9}, CellLabel->"Out[68]=",ExpressionUUID->"4a882bfc-070d-4b58-927a-1e8249474339"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.797154742681938*^9}, CellLabel->"Out[69]=",ExpressionUUID->"db117530-797b-485d-b474-a9ed22ea3a14"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"m", "/", "2"}], " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"qc", "[", "t", "]"}], "+", RowBox[{"dq", "[", "t", "]"}]}], ",", "t"}], "]"}], "^", "2"}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tf"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796552482012339*^9, 3.796552485812105*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"1f103226-677c-452e-9748-e9b517393c26"], Cell[BoxData[ FractionBox[ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["C", "2"], " ", SuperscriptBox["\[Pi]", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["qf", "2"]}]}], ")"}]}], RowBox[{"4", " ", "tf"}]]], "Output", CellChangeTimes->{3.797154742903162*^9}, CellLabel->"Out[70]=",ExpressionUUID->"bd13f338-495d-43ef-8c87-c13fbdada97c"] }, Open ]], Cell["Note que a varia\[CCedilla]\[ATilde]o depende de C^2", "Subsection", CellChangeTimes->{{3.7971546353090277`*^9, 3.797154651372303*^9}},ExpressionUUID->"6d165095-403b-4e1a-9fe7-\ 4f2f9692db64"] }, Open ]], Cell[CellGroupData[{ Cell["Oscilador harm\[OHat]nico", "Section", CellChangeTimes->{{3.797154719716161*^9, 3.7971547281472588`*^9}},ExpressionUUID->"1cfc1cd1-4b80-4df8-bf82-\ cf23d4b594f2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"oh", "[", "t_", "]"}], " ", "=", " ", RowBox[{"A", " ", RowBox[{"Cos", "[", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"k", "/", "m"}], "]"}], " ", "t"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.79655261647577*^9, 3.796552653714003*^9}, { 3.796552738667963*^9, 3.796552771592495*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"3356e0c7-8dd0-44e7-83cf-d1d7d4fe57e5"], Cell[BoxData[ RowBox[{"A", " ", RowBox[{"Cos", "[", RowBox[{ SqrtBox[ FractionBox["k", "m"]], " ", "t"}], "]"}]}]], "Output", CellChangeTimes->{3.79715474291778*^9}, CellLabel->"Out[71]=",ExpressionUUID->"edb907fb-c4f6-47a1-a171-9fcef053284c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"toh", " ", "=", " ", RowBox[{ RowBox[{"Pi", "/", RowBox[{"Sqrt", "[", RowBox[{"k", "/", "m"}], "]"}]}], "/", "2"}]}]], "Input", CellChangeTimes->{{3.796552814151513*^9, 3.796552874458117*^9}, { 3.7971542529313383`*^9, 3.797154253121223*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"c0855fd1-fa65-4579-b590-7631eccd7d24"], Cell[BoxData[ FractionBox["\[Pi]", RowBox[{"2", " ", SqrtBox[ FractionBox["k", "m"]]}]]], "Output", CellChangeTimes->{3.797154742991634*^9}, CellLabel->"Out[72]=",ExpressionUUID->"73adf084-68d2-4737-a0ce-bd488b814989"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"m", "/", "2"}], " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"oh", "[", "t", "]"}], ",", "t"}], "]"}], "^", "2"}]}], " ", "-", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", "k", " ", RowBox[{ RowBox[{"oh", "[", "t", "]"}], "^", "2"}]}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "toh"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796552675010522*^9, 3.796552685921481*^9}, { 3.7965527809210653`*^9, 3.796552801823285*^9}, {3.7965528542475023`*^9, 3.796552855312202*^9}, {3.797154162728425*^9, 3.797154162836084*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"9e1315a5-2ddb-4779-9096-e84cac3b608a"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.797154743080633*^9}, CellLabel->"Out[73]=",ExpressionUUID->"ebc8cc8b-5a63-4a98-8f49-2d34e94161aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"doh", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"B", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"k", "/", "m"}], "]"}], " ", "2", " ", "t"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"doh", "[", "0", "]"}]}], "Input", CellChangeTimes->{{3.796552905376416*^9, 3.79655292870217*^9}, { 3.796552973256971*^9, 3.796552973445969*^9}, {3.7971542846147833`*^9, 3.7971542852815638`*^9}, {3.797154489132389*^9, 3.7971544937187977`*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"3286b033-13c8-44aa-bc75-e01038c0be05"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.797154743095009*^9}, CellLabel->"Out[75]=",ExpressionUUID->"64baf291-c8f0-4e45-81fc-f3a18298fae5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"doh", "[", "toh", "]"}]], "Input", CellChangeTimes->{{3.797154498521975*^9, 3.7971545215425653`*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"f976c31c-45e0-4f0a-945d-5cbdfb0605d1"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7971547431719017`*^9}, CellLabel->"Out[76]=",ExpressionUUID->"204d3130-4f3c-4c52-a936-28094c298512"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"m", "/", "2"}], " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"oh", "[", "t", "]"}], "+", RowBox[{"doh", "[", "t", "]"}]}], ",", "t"}], "]"}], "^", "2"}]}], " ", "-", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", "k", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"oh", "[", "t", "]"}], "+", RowBox[{"doh", "[", "t", "]"}]}], ")"}], "^", "2"}]}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "toh"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.796552985022111*^9, 3.796553004461796*^9}, { 3.797154166253333*^9, 3.797154166355701*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"329c44e9-9fcc-41e4-90e5-3c380142161b"], Cell[BoxData[ RowBox[{ FractionBox["3", "8"], " ", SuperscriptBox["B", "2"], " ", SqrtBox[ FractionBox["k", "m"]], " ", "m", " ", "\[Pi]"}]], "Output", CellChangeTimes->{3.797154743518311*^9}, CellLabel->"Out[77]=",ExpressionUUID->"03f838e2-72a5-4779-b695-9dc8c5dd214e"] }, Open ]], Cell["Note que a varia\[CCedilla]\[ATilde]o depende de B^2", "Subsection", CellChangeTimes->{{3.7971546353090277`*^9, 3.797154674187758*^9}},ExpressionUUID->"dc4164b6-e32c-4c26-be82-\ 66fa4f6bcdaa"] }, Open ]] }, WindowSize->{808, 911}, WindowMargins->{{Automatic, 452}, {-146, Automatic}}, 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[CellGroupData[{ Cell[580, 22, 170, 3, 67, "Section",ExpressionUUID->"649df02d-ac81-456b-9102-028c8f8bff67"], Cell[753, 27, 284, 6, 30, "Input",ExpressionUUID->"5f373662-2d0a-40b4-b403-4c8df185ebc9"], Cell[CellGroupData[{ Cell[1062, 37, 514, 14, 30, "Input",ExpressionUUID->"3d9b0698-12a4-4c85-b6eb-20f2f10c5b24"], Cell[1579, 53, 242, 6, 54, "Output",ExpressionUUID->"164ad52d-68d3-4dfd-be62-b4bd8fa02718"] }, Open ]], Cell[CellGroupData[{ Cell[1858, 64, 663, 14, 73, "Input",ExpressionUUID->"3f64ae0f-97bf-4c8a-9d73-f01f593d0191"], Cell[2524, 80, 149, 2, 34, "Output",ExpressionUUID->"4a882bfc-070d-4b58-927a-1e8249474339"], Cell[2676, 84, 149, 2, 34, "Output",ExpressionUUID->"db117530-797b-485d-b474-a9ed22ea3a14"] }, Open ]], Cell[CellGroupData[{ Cell[2862, 91, 529, 15, 30, "Input",ExpressionUUID->"1f103226-677c-452e-9748-e9b517393c26"], Cell[3394, 108, 406, 12, 56, "Output",ExpressionUUID->"bd13f338-495d-43ef-8c87-c13fbdada97c"] }, Open ]], Cell[3815, 123, 202, 3, 54, "Subsection",ExpressionUUID->"6d165095-403b-4e1a-9fe7-4f2f9692db64"] }, Open ]], Cell[CellGroupData[{ Cell[4054, 131, 172, 3, 67, "Section",ExpressionUUID->"1cfc1cd1-4b80-4df8-bf82-cf23d4b594f2"], Cell[CellGroupData[{ Cell[4251, 138, 428, 10, 30, "Input",ExpressionUUID->"3356e0c7-8dd0-44e7-83cf-d1d7d4fe57e5"], Cell[4682, 150, 262, 7, 58, "Output",ExpressionUUID->"edb907fb-c4f6-47a1-a171-9fcef053284c"] }, Open ]], Cell[CellGroupData[{ Cell[4981, 162, 364, 8, 30, "Input",ExpressionUUID->"c0855fd1-fa65-4579-b590-7631eccd7d24"], Cell[5348, 172, 232, 6, 74, "Output",ExpressionUUID->"73adf084-68d2-4737-a0ce-bd488b814989"] }, Open ]], Cell[CellGroupData[{ Cell[5617, 183, 776, 20, 30, "Input",ExpressionUUID->"9e1315a5-2ddb-4779-9096-e84cac3b608a"], Cell[6396, 205, 149, 2, 68, "Output",ExpressionUUID->"ebc8cc8b-5a63-4a98-8f49-2d34e94161aa"] }, Open ]], Cell[CellGroupData[{ Cell[6582, 212, 599, 13, 52, "Input",ExpressionUUID->"3286b033-13c8-44aa-bc75-e01038c0be05"], Cell[7184, 227, 149, 2, 34, "Output",ExpressionUUID->"64baf291-c8f0-4e45-81fc-f3a18298fae5"] }, Open ]], Cell[CellGroupData[{ Cell[7370, 234, 205, 3, 30, "Input",ExpressionUUID->"f976c31c-45e0-4f0a-945d-5cbdfb0605d1"], Cell[7578, 239, 151, 2, 34, "Output",ExpressionUUID->"204d3130-4f3c-4c52-a936-28094c298512"] }, Open ]], Cell[CellGroupData[{ Cell[7766, 246, 837, 24, 30, "Input",ExpressionUUID->"329c44e9-9fcc-41e4-90e5-3c380142161b"], Cell[8606, 272, 284, 7, 58, "Output",ExpressionUUID->"03f838e2-72a5-4779-b695-9dc8c5dd214e"] }, Open ]], Cell[8905, 282, 202, 3, 54, "Subsection",ExpressionUUID->"dc4164b6-e32c-4c26-be82-66fa4f6bcdaa"] }, Open ]] } ] *)