976 lines
35 KiB
Mathematica
976 lines
35 KiB
Mathematica
|
(* Content-type: application/vnd.wolfram.mathematica *)
|
||
|
|
|
||
|
|
(*** Wolfram Notebook File ***)
|
||
|
|
(* http://www.wolfram.com/nb *)
|
||
|
|
|
||
|
|
(* CreatedBy='Mathematica 13.2' *)
|
||
|
|
|
||
|
|
(*CacheID: 234*)
|
||
|
|
(* Internal cache information:
|
||
|
|
NotebookFileLineBreakTest
|
||
|
|
NotebookFileLineBreakTest
|
||
|
|
NotebookDataPosition[ 158, 7]
|
||
|
|
NotebookDataLength[ 35675, 967]
|
||
|
|
NotebookOptionsPosition[ 31915, 888]
|
||
|
|
NotebookOutlinePosition[ 32380, 906]
|
||
|
|
CellTagsIndexPosition[ 32337, 903]
|
||
|
|
WindowFrame->Normal*)
|
||
|
|
|
||
|
|
(* Beginning of Notebook Content *)
|
||
|
|
Notebook[{
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell["Cadena de osciladores", "Title",
|
||
|
|
CellChangeTimes->{{3.898189426701078*^9,
|
||
|
|
3.8981894362684717`*^9}},ExpressionUUID->"d14c2b00-a4d4-4941-8b3f-\
|
||
|
|
1fb29f47131c"],
|
||
|
|
|
||
|
|
Cell[BoxData["Quit"], "Input",
|
||
|
|
CellChangeTimes->{{3.896981875196876*^9, 3.8969818757803297`*^9}},
|
||
|
|
CellLabel->"In[29]:=",ExpressionUUID->"a1e50851-356a-46af-8eb3-95b619cbc946"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell["Cadena infinita", "Section",
|
||
|
|
CellChangeTimes->{{3.898189838057465*^9,
|
||
|
|
3.8981898430164423`*^9}},ExpressionUUID->"db3435a5-ec8f-440a-b482-\
|
||
|
|
d159dad01f48"],
|
||
|
|
|
||
|
|
Cell[BoxData["quit"], "Input",
|
||
|
|
CellChangeTimes->{{3.898190863293729*^9,
|
||
|
|
3.898190865299613*^9}},ExpressionUUID->"9d75e468-85f8-4e41-9fe1-\
|
||
|
|
527029cde8f4"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell["Posici\[OAcute]n", "Subsection",
|
||
|
|
CellChangeTimes->{{3.8981896291631527`*^9,
|
||
|
|
3.898189635986691*^9}},ExpressionUUID->"1c36d814-8bc4-450f-adc5-\
|
||
|
|
20e2fcf4d0cb"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"tab", ":=",
|
||
|
|
RowBox[{"Table", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"a", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}],
|
||
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]", "tab"}], "Input",
|
||
|
|
CellChangeTimes->{{3.896967540636846*^9, 3.8969675634013147`*^9}, {
|
||
|
|
3.8969676264622393`*^9, 3.896967627893523*^9}, 3.896967659403421*^9, {
|
||
|
|
3.898189850512991*^9, 3.89818985272077*^9}},
|
||
|
|
CellLabel->"In[1]:=",ExpressionUUID->"06067cb5-9bd2-479e-8b80-5b1390f34d40"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"0", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"1", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"2", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"3", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"4", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"5", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"6", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"7", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"8", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"9", ",", "t"}], "]"}]}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{
|
||
|
|
3.898189869718911*^9, 3.8981899102537813`*^9, 3.8981900603129*^9, {
|
||
|
|
3.898190115258012*^9, 3.8981901290626717`*^9}, 3.8981902193273487`*^9},
|
||
|
|
CellLabel->"Out[2]=",ExpressionUUID->"86d13259-e442-4d0c-814f-2ced23ec2658"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Do", "[", "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"a_", ",", "t_"}], "]"}], ":=", " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"b", " ", "a"}], " ", "+", " ",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"a", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "\[IndentingNewLine]",
|
||
|
|
"]"}], ";"}],
|
||
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]", "tab"}], "Input",
|
||
|
|
CellChangeTimes->{{3.89696758283634*^9, 3.89696765001157*^9},
|
||
|
|
3.896970145766357*^9, 3.896980476623335*^9, {3.89818985849691*^9,
|
||
|
|
3.898189860272627*^9}},
|
||
|
|
CellLabel->"In[3]:=",ExpressionUUID->"4051fdbf-3e6b-480f-b3dc-60463a93ab8e"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"0", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"b", "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"1", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"2", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"3", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"3", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"4", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"4", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"5", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"5", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"6", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"6", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"7", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"7", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"8", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"8", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"9", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"9", ",", "t"}], "]"}]}]}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{
|
||
|
|
3.898189871902272*^9, 3.898189910314497*^9, 3.898190060369315*^9, {
|
||
|
|
3.8981901153217793`*^9, 3.898190129118561*^9}, 3.8981902193817883`*^9},
|
||
|
|
CellLabel->"Out[4]=",ExpressionUUID->"6f35d23d-a584-49a9-85d5-1c12c0a4f994"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell["Soluci\[OAcute]n", "Subsection",
|
||
|
|
CellChangeTimes->{{3.898189874297193*^9,
|
||
|
|
3.8981898768389177`*^9}},ExpressionUUID->"6a82e6d3-61c4-49c1-b485-\
|
||
|
|
60d47094a57d"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"a_", ",", "t_"}], "]"}], ":=",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "+", "\[Delta]"}],
|
||
|
|
"]"}]}]}], ";"}], "\[IndentingNewLine]", "tab"}], "Input",
|
||
|
|
CellChangeTimes->{{3.8969677035368767`*^9, 3.896967758139599*^9}, {
|
||
|
|
3.8969678050130577`*^9, 3.896967810203188*^9}, {3.897053650348673*^9,
|
||
|
|
3.897053650603285*^9}, 3.897057033734136*^9, {3.898189880800672*^9,
|
||
|
|
3.898189881304631*^9}},
|
||
|
|
CellLabel->"In[5]:=",ExpressionUUID->"f09094eb-ca3f-41a8-a85f-022b4943bee4"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ",",
|
||
|
|
RowBox[{"b", "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"3", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"4", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"5", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"6", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"7", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"8", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"9", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}]}]}],
|
||
|
|
"}"}]], "Output",
|
||
|
|
CellChangeTimes->{{3.898189882378446*^9, 3.898189911903243*^9},
|
||
|
|
3.898190061938931*^9, {3.898190115333956*^9, 3.898190129127049*^9},
|
||
|
|
3.898190219406131*^9},
|
||
|
|
CellLabel->"Out[6]=",ExpressionUUID->"bde30bb3-958d-4382-afc9-800dde4405f0"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell["Animaci\[OAcute]n", "Subsection",
|
||
|
|
CellChangeTimes->{{3.898189887072125*^9,
|
||
|
|
3.8981898892976522`*^9}},ExpressionUUID->"41180d3a-f981-4025-a677-\
|
||
|
|
c0fa28061952"],
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Omega]0", "=", "2"}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"A", "=",
|
||
|
|
RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Kappa]", "=", " ",
|
||
|
|
RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"b", "=", "3"}], ";"}],
|
||
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "=", " ",
|
||
|
|
RowBox[{"2", " ", "\[Omega]0", " ",
|
||
|
|
RowBox[{"Sin", "[",
|
||
|
|
RowBox[{"\[Kappa]", " ",
|
||
|
|
RowBox[{"b", "/", "2"}]}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"tabp", "[", "t_", "]"}], ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Join", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{", "Orange", "}"}], ",",
|
||
|
|
RowBox[{"Table", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Disk", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"a", ",", "t"}], "]"}], ",", "0"}], "}"}], ",", "1"}],
|
||
|
|
"]"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], "]"}], " ", "//",
|
||
|
|
"N"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
|
||
|
|
CellChangeTimes->{{3.8969679176014833`*^9, 3.896967954435062*^9}, {
|
||
|
|
3.896967994429302*^9, 3.89696800633785*^9}, {3.896968072142446*^9,
|
||
|
|
3.8969681026919622`*^9}, 3.896968179989766*^9, 3.8969682136760263`*^9, {
|
||
|
|
3.896969189879067*^9, 3.8969692301007442`*^9}, {3.896980612726336*^9,
|
||
|
|
3.896980613613016*^9}, {3.8969807619403563`*^9, 3.896980764578993*^9}, {
|
||
|
|
3.896980800547594*^9, 3.8969808006182203`*^9}, {3.89698083773923*^9,
|
||
|
|
3.896980838913813*^9}, 3.8969809325171213`*^9, {3.8970537070829353`*^9,
|
||
|
|
3.897053729066731*^9}, {3.897056233181769*^9, 3.8970562365411882`*^9}, {
|
||
|
|
3.897056287092618*^9, 3.8970562962523193`*^9}, {3.897056624433226*^9,
|
||
|
|
3.897056626567359*^9}, {3.897056657855568*^9, 3.89705668005437*^9},
|
||
|
|
3.897056975891984*^9, 3.897057007082261*^9, {3.898189663338439*^9,
|
||
|
|
3.898189663915093*^9}, {3.8981897086584*^9, 3.89818971039482*^9}, {
|
||
|
|
3.898189804554688*^9, 3.898189818178281*^9}, 3.8981899943685427`*^9, {
|
||
|
|
3.898190028961454*^9, 3.898190046687601*^9}, 3.8981900956623497`*^9, {
|
||
|
|
3.898190174101582*^9, 3.898190205973226*^9}, 3.898190954450697*^9},
|
||
|
|
CellLabel->"In[7]:=",ExpressionUUID->"f413e5bf-b5dd-4906-a212-ac3158ded337"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Animate", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Graphics", "[",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Polygon", "[",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "5"}], ",",
|
||
|
|
RowBox[{"-", "5"}]}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"30", ",", "5"}], "}"}]}], "}"}], "]"}], ",", " ",
|
||
|
|
RowBox[{"tabp", "[", "t", "]"}]}], " ", "}"}], "]"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.898190132009942*^9, 3.898190162301826*^9}, {
|
||
|
|
3.898190209134244*^9, 3.898190210068904*^9}},
|
||
|
|
CellLabel->"In[14]:=",ExpressionUUID->"a0d867f7-f6eb-4ce2-a5cf-78cffb9fd7c1"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
TagBox[
|
||
|
|
StyleBox[
|
||
|
|
DynamicModuleBox[{$CellContext`t$$ = 27.360916137695312`, Typeset`show$$ =
|
||
|
|
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
||
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
||
|
|
"\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
|
||
|
|
Hold[$CellContext`t$$], 0, 50}}, Typeset`size$$ = {
|
||
|
|
468., {70., 76.3369142857143}}, Typeset`update$$ = 0, Typeset`initDone$$,
|
||
|
|
Typeset`skipInitDone$$ = True},
|
||
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
||
|
|
1, StandardForm, "Variables" :> {$CellContext`t$$ = 0},
|
||
|
|
"ControllerVariables" :> {},
|
||
|
|
"OtherVariables" :> {
|
||
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
||
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
||
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
|
||
|
|
Typeset`skipInitDone$$}, "Body" :> Graphics[{
|
||
|
|
Polygon[{{-5, -5}, {30, 5}}],
|
||
|
|
$CellContext`tabp[$CellContext`t$$]}],
|
||
|
|
"Specifications" :> {{$CellContext`t$$, 0, 50,
|
||
|
|
AppearanceElements -> {
|
||
|
|
"ProgressSlider", "PlayPauseButton", "FasterSlowerButtons",
|
||
|
|
"DirectionButton"}}},
|
||
|
|
"Options" :> {
|
||
|
|
ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle ->
|
||
|
|
"Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating ->
|
||
|
|
True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
|
||
|
|
ImageSizeCache->{827., {96.861328125, 104.138671875}},
|
||
|
|
SingleEvaluation->True],
|
||
|
|
Deinitialization:>None,
|
||
|
|
DynamicModuleValues:>{},
|
||
|
|
SynchronousInitialization->True,
|
||
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
||
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
||
|
|
UntrackedVariables:>{Typeset`size$$}], "Animate",
|
||
|
|
Deployed->True,
|
||
|
|
StripOnInput->False],
|
||
|
|
Manipulate`InterpretManipulate[1]]], "Output",
|
||
|
|
CellChangeTimes->{{3.898189892708777*^9, 3.898189921496675*^9},
|
||
|
|
3.8981899952017117`*^9, 3.898190069130842*^9, {3.89819010633807*^9,
|
||
|
|
3.898190177883396*^9}, 3.8981902244027233`*^9},
|
||
|
|
CellLabel->"Out[14]=",ExpressionUUID->"faac998e-16eb-4fe8-af22-96a36caa85f0"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]]
|
||
|
|
}, Closed]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell["Cadena finita", "Section",
|
||
|
|
CellChangeTimes->{{3.898190284716926*^9, 3.898190287680686*^9}, {
|
||
|
|
3.8981908393883543`*^9, 3.8981908414357986`*^9}, {3.89819106028913*^9,
|
||
|
|
3.89819106221673*^9}},ExpressionUUID->"27d5fa20-6a59-4c09-aa61-\
|
||
|
|
aa0c3d262773"],
|
||
|
|
|
||
|
|
Cell[BoxData["Quit"], "Input",
|
||
|
|
CellChangeTimes->{{3.8969818947643843`*^9, 3.8969818952997837`*^9}},
|
||
|
|
CellLabel->"In[8]:=",ExpressionUUID->"c333ccc6-362e-4ffd-b0c2-ade6f08e9dd2"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell["Posici\[OAcute]n", "Subsection",
|
||
|
|
CellChangeTimes->{{3.8981896291631527`*^9,
|
||
|
|
3.898189635986691*^9}},ExpressionUUID->"26a56441-74dc-4dcb-ae7a-\
|
||
|
|
3f313551af13"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"tab", ":=",
|
||
|
|
RowBox[{"Table", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"a", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}],
|
||
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]", "tab"}], "Input",
|
||
|
|
CellChangeTimes->{{3.896967540636846*^9, 3.8969675634013147`*^9}, {
|
||
|
|
3.8969676264622393`*^9, 3.896967627893523*^9}, 3.896967659403421*^9, {
|
||
|
|
3.898189850512991*^9, 3.89818985272077*^9}},
|
||
|
|
CellLabel->"In[1]:=",ExpressionUUID->"777ca69f-a76b-4682-8925-d5cb3b1c2faa"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"0", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"1", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"2", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"3", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"4", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"5", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"6", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"7", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"8", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"9", ",", "t"}], "]"}]}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{
|
||
|
|
3.898189869718911*^9, 3.8981899102537813`*^9, 3.8981900603129*^9, {
|
||
|
|
3.898190115258012*^9, 3.8981901290626717`*^9}, 3.8981902193273487`*^9,
|
||
|
|
3.8981910138476877`*^9},
|
||
|
|
CellLabel->"Out[2]=",ExpressionUUID->"f493a7c9-a868-4f5a-b517-cadc825ccb5f"]
|
||
|
|
}, Open ]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Do", "[", "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"a_", ",", "t_"}], "]"}], ":=", " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"b", " ", "a"}], " ", "+", " ",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"a", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "\[IndentingNewLine]",
|
||
|
|
"]"}], ";"}],
|
||
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]", "tab"}], "Input",
|
||
|
|
CellChangeTimes->{{3.89696758283634*^9, 3.89696765001157*^9},
|
||
|
|
3.896970145766357*^9, 3.896980476623335*^9, {3.89818985849691*^9,
|
||
|
|
3.898189860272627*^9}},
|
||
|
|
CellLabel->"In[3]:=",ExpressionUUID->"88478d08-bf05-4559-a79c-c7186149f8e5"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"0", ",", "t"}], "]"}], ",",
|
||
|
|
RowBox[{"b", "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"1", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"2", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"3", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"3", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"4", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"4", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"5", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"5", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"6", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"6", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"7", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"7", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"8", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"8", ",", "t"}], "]"}]}], ",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"9", " ", "b"}], "+",
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"9", ",", "t"}], "]"}]}]}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{
|
||
|
|
3.898189871902272*^9, 3.898189910314497*^9, 3.898190060369315*^9, {
|
||
|
|
3.8981901153217793`*^9, 3.898190129118561*^9}, 3.8981902193817883`*^9,
|
||
|
|
3.898191013905608*^9},
|
||
|
|
CellLabel->"Out[4]=",ExpressionUUID->"9a01dc44-5958-4cb3-86eb-a7ac17acbbdf"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell["Soluci\[OAcute]n", "Subsection",
|
||
|
|
CellChangeTimes->{{3.898189874297193*^9,
|
||
|
|
3.8981898768389177`*^9}},ExpressionUUID->"96c7d6d6-8736-4881-80ed-\
|
||
|
|
acfea4afeb24"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Delta]x", "[",
|
||
|
|
RowBox[{"a_", ",", "t_"}], "]"}], ":=",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "-",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "-", "\[Delta]"}],
|
||
|
|
"]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Kappa]", " ", "b", " ", "a"}], " ", "+",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "t"}], "+", "\[Delta]"}],
|
||
|
|
"]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "tab"}], "Input",
|
||
|
|
CellChangeTimes->{{3.8969677035368767`*^9, 3.896967758139599*^9}, {
|
||
|
|
3.8969678050130577`*^9, 3.896967810203188*^9}, {3.897053650348673*^9,
|
||
|
|
3.897053650603285*^9}, 3.897057033734136*^9, {3.898189880800672*^9,
|
||
|
|
3.898189881304631*^9}, 3.898190930844493*^9},
|
||
|
|
CellLabel->"In[5]:=",ExpressionUUID->"503e194c-3aa0-4d36-ab1a-dd1535450d28"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"0", ",",
|
||
|
|
RowBox[{"b", "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"2", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"3", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"4", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"5", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"6", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"7", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"8", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}], ")"}]}]}],
|
||
|
|
",",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"9", " ", "b"}], "+",
|
||
|
|
RowBox[{"A", " ",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "-",
|
||
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}], "-",
|
||
|
|
RowBox[{"Cos", "[",
|
||
|
|
RowBox[{"\[Delta]", "+",
|
||
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
||
|
|
RowBox[{"t", " ",
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}]}]}], "]"}]}],
|
||
|
|
")"}]}]}]}], "}"}]], "Output",
|
||
|
|
CellChangeTimes->{{3.898189882378446*^9, 3.898189911903243*^9},
|
||
|
|
3.898190061938931*^9, {3.898190115333956*^9, 3.898190129127049*^9},
|
||
|
|
3.898190219406131*^9, 3.898191013914915*^9},
|
||
|
|
CellLabel->"Out[6]=",ExpressionUUID->"00d565ec-ad49-4797-bc70-a0e8660d2503"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell["Animaci\[OAcute]n", "Subsection",
|
||
|
|
CellChangeTimes->{{3.898189887072125*^9,
|
||
|
|
3.8981898892976522`*^9}},ExpressionUUID->"bb82b19d-2246-4407-a1e6-\
|
||
|
|
e33d2ba5cef6"],
|
||
|
|
|
||
|
|
Cell[BoxData[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Omega]0", "=",
|
||
|
|
RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"A", "=",
|
||
|
|
RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Kappa]", "=", " ",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Pi]", "/",
|
||
|
|
RowBox[{"(",
|
||
|
|
RowBox[{"b", " ", "9"}], ")"}]}], " ", "7"}]}],
|
||
|
|
";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"b", "=", "3"}], ";"}],
|
||
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "=", " ",
|
||
|
|
RowBox[{"2", " ", "\[Omega]0", " ",
|
||
|
|
RowBox[{"Sin", "[",
|
||
|
|
RowBox[{"\[Kappa]", " ",
|
||
|
|
RowBox[{"b", "/", "2"}]}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"tabp", "[", "t_", "]"}], ":=",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Join", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{", "Orange", "}"}], ",",
|
||
|
|
RowBox[{"Table", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Disk", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"x", "[",
|
||
|
|
RowBox[{"a", ",", "t"}], "]"}], ",", "0"}], "}"}], ",", "1"}],
|
||
|
|
"]"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}], "]"}], " ", "//",
|
||
|
|
"N"}]}], ";"}]}], "Input",
|
||
|
|
CellChangeTimes->{{3.8969679176014833`*^9, 3.896967954435062*^9}, {
|
||
|
|
3.896967994429302*^9, 3.89696800633785*^9}, {3.896968072142446*^9,
|
||
|
|
3.8969681026919622`*^9}, 3.896968179989766*^9, 3.8969682136760263`*^9, {
|
||
|
|
3.896969189879067*^9, 3.8969692301007442`*^9}, {3.896980612726336*^9,
|
||
|
|
3.896980613613016*^9}, {3.8969807619403563`*^9, 3.896980764578993*^9}, {
|
||
|
|
3.896980800547594*^9, 3.8969808006182203`*^9}, {3.89698083773923*^9,
|
||
|
|
3.896980838913813*^9}, 3.8969809325171213`*^9, {3.8969819587555637`*^9,
|
||
|
|
3.8969819983465567`*^9}, 3.896982028394356*^9, {3.896982063161879*^9,
|
||
|
|
3.8969820636256437`*^9}, {3.89698405227217*^9, 3.896984052631715*^9}, {
|
||
|
|
3.897058396191249*^9, 3.89705842050231*^9}, {3.897059172499297*^9,
|
||
|
|
3.8970591751705303`*^9}, {3.8970592158206797`*^9, 3.897059284537736*^9}, {
|
||
|
|
3.898190981434123*^9, 3.898190982163364*^9}, {3.898191068594631*^9,
|
||
|
|
3.898191089929871*^9}},
|
||
|
|
CellLabel->"In[29]:=",ExpressionUUID->"9a6f9ae2-ace2-4ee3-abee-b1fb7490c34f"],
|
||
|
|
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
RowBox[{"Animate", "[",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Graphics", "[",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"Polygon", "[",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{
|
||
|
|
RowBox[{"-", "5"}], ",",
|
||
|
|
RowBox[{"-", "5"}]}], "}"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"30", ",", "5"}], "}"}]}], "}"}], "]"}], ",", " ",
|
||
|
|
RowBox[{"tabp", "[", "t", "]"}]}], " ", "}"}], "]"}], ",",
|
||
|
|
RowBox[{"{",
|
||
|
|
RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
|
||
|
|
CellChangeTimes->{{3.898190132009942*^9, 3.898190162301826*^9}, {
|
||
|
|
3.898190209134244*^9, 3.898190210068904*^9}},
|
||
|
|
CellLabel->"In[14]:=",ExpressionUUID->"a96c13f0-6e31-48b0-a52a-625c927208e0"],
|
||
|
|
|
||
|
|
Cell[BoxData[
|
||
|
|
TagBox[
|
||
|
|
StyleBox[
|
||
|
|
DynamicModuleBox[{$CellContext`t$$ = 33.460283279418945`, Typeset`show$$ =
|
||
|
|
True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
|
||
|
|
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
|
||
|
|
"\"sin t\[IAcute]tulo\"", Typeset`specs$$ = {{
|
||
|
|
Hold[$CellContext`t$$], 0, 50}}, Typeset`size$$ = {
|
||
|
|
468., {70., 76.3369142857143}}, Typeset`update$$ = 0, Typeset`initDone$$,
|
||
|
|
Typeset`skipInitDone$$ = True},
|
||
|
|
DynamicBox[Manipulate`ManipulateBoxes[
|
||
|
|
1, StandardForm, "Variables" :> {$CellContext`t$$ = 0},
|
||
|
|
"ControllerVariables" :> {},
|
||
|
|
"OtherVariables" :> {
|
||
|
|
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
|
||
|
|
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
|
||
|
|
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
|
||
|
|
Typeset`skipInitDone$$}, "Body" :> Graphics[{
|
||
|
|
Polygon[{{-5, -5}, {30, 5}}],
|
||
|
|
$CellContext`tabp[$CellContext`t$$]}],
|
||
|
|
"Specifications" :> {{$CellContext`t$$, 0, 50,
|
||
|
|
AppearanceElements -> {
|
||
|
|
"ProgressSlider", "PlayPauseButton", "FasterSlowerButtons",
|
||
|
|
"DirectionButton"}}},
|
||
|
|
"Options" :> {
|
||
|
|
ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle ->
|
||
|
|
"Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating ->
|
||
|
|
True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
|
||
|
|
ImageSizeCache->{827., {96.861328125, 104.138671875}},
|
||
|
|
SingleEvaluation->True],
|
||
|
|
Deinitialization:>None,
|
||
|
|
DynamicModuleValues:>{},
|
||
|
|
SynchronousInitialization->True,
|
||
|
|
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
|
||
|
|
UnsavedVariables:>{Typeset`initDone$$},
|
||
|
|
UntrackedVariables:>{Typeset`size$$}], "Animate",
|
||
|
|
Deployed->True,
|
||
|
|
StripOnInput->False],
|
||
|
|
Manipulate`InterpretManipulate[1]]], "Output",
|
||
|
|
CellChangeTimes->{{3.89697031837705*^9, 3.896970349146681*^9},
|
||
|
|
3.8969703841315327`*^9, 3.8969806379504957`*^9, {3.8969806758034773`*^9,
|
||
|
|
3.896980702615971*^9}, {3.8969807900190372`*^9, 3.896980804497095*^9},
|
||
|
|
3.896980856822782*^9, 3.896980949775291*^9, {3.896982013398593*^9,
|
||
|
|
3.8969820416122217`*^9}, {3.89698208259657*^9, 3.8969821017037086`*^9}, {
|
||
|
|
3.896984008323372*^9, 3.896984028057538*^9}, 3.89698407019971*^9, {
|
||
|
|
3.897058386800404*^9, 3.8970584396275578`*^9}, 3.897059191004683*^9, {
|
||
|
|
3.89705923146852*^9, 3.897059277064404*^9}, 3.8981910421021442`*^9},
|
||
|
|
CellLabel->"Out[14]=",ExpressionUUID->"f7aaa2af-e568-4f81-a410-1d600d5c3710"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]]
|
||
|
|
}, Closed]]
|
||
|
|
}, Closed]]
|
||
|
|
},
|
||
|
|
WindowSize->{1200, 627},
|
||
|
|
WindowMargins->{{0, Automatic}, {Automatic, 0}},
|
||
|
|
TaggingRules-><|"TryRealOnly" -> False|>,
|
||
|
|
Magnification:>1.3 Inherited,
|
||
|
|
FrontEndVersion->"13.2 para Linux x86 (64-bit) (January 30, 2023)",
|
||
|
|
StyleDefinitions->"Default.nb",
|
||
|
|
ExpressionUUID->"8807e77d-9565-49ec-8d4d-2c97f33a22ca"
|
||
|
|
]
|
||
|
|
(* End of Notebook Content *)
|
||
|
|
|
||
|
|
(* Internal cache information *)
|
||
|
|
(*CellTagsOutline
|
||
|
|
CellTagsIndex->{}
|
||
|
|
*)
|
||
|
|
(*CellTagsIndex
|
||
|
|
CellTagsIndex->{}
|
||
|
|
*)
|
||
|
|
(*NotebookFileOutline
|
||
|
|
Notebook[{
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[580, 22, 166, 3, 127, "Title",ExpressionUUID->"d14c2b00-a4d4-4941-8b3f-1fb29f47131c"],
|
||
|
|
Cell[749, 27, 177, 2, 60, "Input",ExpressionUUID->"a1e50851-356a-46af-8eb3-95b619cbc946"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[951, 33, 162, 3, 87, "Section",ExpressionUUID->"db3435a5-ec8f-440a-b482-d159dad01f48"],
|
||
|
|
Cell[1116, 38, 156, 3, 37, "Input",ExpressionUUID->"9d75e468-85f8-4e41-9fe1-527029cde8f4"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[1297, 45, 166, 3, 70, "Subsection",ExpressionUUID->"1c36d814-8bc4-450f-adc5-20e2fcf4d0cb"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[1488, 52, 596, 14, 115, "Input",ExpressionUUID->"06067cb5-9bd2-479e-8b80-5b1390f34d40"],
|
||
|
|
Cell[2087, 68, 936, 26, 43, "Output",ExpressionUUID->"86d13259-e442-4d0c-814f-2ced23ec2658"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[3060, 99, 775, 19, 200, "Input",ExpressionUUID->"4051fdbf-3e6b-480f-b3dc-60463a93ab8e"],
|
||
|
|
Cell[3838, 120, 1450, 43, 77, "Output",ExpressionUUID->"6f35d23d-a584-49a9-85d5-1c12c0a4f994"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[5337, 169, 166, 3, 48, "Subsection",ExpressionUUID->"6a82e6d3-61c4-49c1-b485-60d47094a57d"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[5528, 176, 707, 16, 93, "Input",ExpressionUUID->"f09094eb-ca3f-41a8-a85f-022b4943bee4"],
|
||
|
|
Cell[6238, 194, 2974, 83, 106, "Output",ExpressionUUID->"bde30bb3-958d-4382-afc9-800dde4405f0"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[9261, 283, 167, 3, 48, "Subsection",ExpressionUUID->"41180d3a-f981-4025-a677-c0fa28061952"],
|
||
|
|
Cell[9431, 288, 2483, 56, 302, "Input",ExpressionUUID->"f413e5bf-b5dd-4906-a212-ac3158ded337"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[11939, 348, 741, 20, 64, "Input",ExpressionUUID->"a0d867f7-f6eb-4ce2-a5cf-78cffb9fd7c1"],
|
||
|
|
Cell[12683, 370, 2152, 42, 225, "Output",ExpressionUUID->"faac998e-16eb-4fe8-af22-96a36caa85f0"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]]
|
||
|
|
}, Closed]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[14896, 419, 255, 4, 67, "Section",ExpressionUUID->"27d5fa20-6a59-4c09-aa61-aa0c3d262773"],
|
||
|
|
Cell[15154, 425, 178, 2, 60, "Input",ExpressionUUID->"c333ccc6-362e-4ffd-b0c2-ade6f08e9dd2"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[15357, 431, 166, 3, 70, "Subsection",ExpressionUUID->"26a56441-74dc-4dcb-ae7a-3f313551af13"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[15548, 438, 596, 14, 115, "Input",ExpressionUUID->"777ca69f-a76b-4682-8925-d5cb3b1c2faa"],
|
||
|
|
Cell[16147, 454, 964, 27, 70, "Output",ExpressionUUID->"f493a7c9-a868-4f5a-b517-cadc825ccb5f"]
|
||
|
|
}, Open ]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[17148, 486, 775, 19, 200, "Input",ExpressionUUID->"88478d08-bf05-4559-a79c-c7186149f8e5"],
|
||
|
|
Cell[17926, 507, 1476, 44, 70, "Output",ExpressionUUID->"9a01dc44-5958-4cb3-86eb-a7ac17acbbdf"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[19451, 557, 166, 3, 48, "Subsection",ExpressionUUID->"96c7d6d6-8736-4881-80ed-acfea4afeb24"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[19642, 564, 1003, 24, 93, "Input",ExpressionUUID->"503e194c-3aa0-4d36-ab1a-dd1535450d28"],
|
||
|
|
Cell[20648, 590, 5298, 149, 70, "Output",ExpressionUUID->"00d565ec-ad49-4797-bc70-a0e8660d2503"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[25995, 745, 167, 3, 48, "Subsection",ExpressionUUID->"bb82b19d-2246-4407-a1e6-e33d2ba5cef6"],
|
||
|
|
Cell[26165, 750, 2384, 59, 276, "Input",ExpressionUUID->"9a6f9ae2-ace2-4ee3-abee-b1fb7490c34f"],
|
||
|
|
Cell[CellGroupData[{
|
||
|
|
Cell[28574, 813, 741, 20, 64, "Input",ExpressionUUID->"a96c13f0-6e31-48b0-a52a-625c927208e0"],
|
||
|
|
Cell[29318, 835, 2545, 47, 225, "Output",ExpressionUUID->"f7aaa2af-e568-4f81-a410-1d600d5c3710"]
|
||
|
|
}, Open ]]
|
||
|
|
}, Closed]]
|
||
|
|
}, Closed]]
|
||
|
|
}, Closed]]
|
||
|
|
}
|
||
|
|
]
|
||
|
|
*)
|
||
|
|
|