nicolasg
/
Ondas
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Primera versión de los archiovs de Mathematica con las simulaciones

This commit is contained in:
Nicolas G. 2023-07-12 21:37:54 -03:00
parent bd80f5cf01
commit 1f09e3600e
5 changed files with 18757 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10322
Notebooks/1-OsciladorArmonico.nb Normal file
View File

File diff suppressed because it is too large Load Diff

970
Notebooks/2-DosParticulas.nb Normal file
View File

@ -0,0 +1,970 @@
(* 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[ 34791, 962]
NotebookOptionsPosition[ 29321, 863]
NotebookOutlinePosition[ 29786, 881]
CellTagsIndexPosition[ 29743, 878]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Dos part\[IAcute]culas acopladas", "Title",
CellChangeTimes->{{3.898186241363925*^9, 3.8981862551632557`*^9}, {
3.898187720916862*^9,
3.898187725716125*^9}},ExpressionUUID->"480d5f7d-45fb-40a1-bc21-\
04aa8b6ee330"],
Cell[CellGroupData[{
Cell["Sin rotaci\[OAcute]n", "Section",
CellChangeTimes->{{3.8981879197215033`*^9,
3.8981879241770906`*^9}},ExpressionUUID->"b974cc17-55a0-4238-9726-\
89063ea3bdd0"],
Cell[BoxData["Quit"], "Input",
CellChangeTimes->{{3.8981879582410917`*^9,
3.8981879586966057`*^9}},ExpressionUUID->"42198e70-59cc-4baa-887a-\
d542477e9c01"],
Cell[CellGroupData[{
Cell["Posici\[OAcute]n", "Subsection",
CellChangeTimes->{{3.89818754854432*^9, 3.8981875523990498`*^9}, {
3.898187762325726*^9,
3.898187763579722*^9}},ExpressionUUID->"ee16e0b6-b83f-423c-8a48-\
c49492382792"],
Cell["\<\
Para despejar la posici\[OAcute]n de cada part\[IAcute]cula escribimos la \
condici\[OAcute]n para que el centro de masas est\[EAcute] en el origen y la \
ecuaci\[OAcute]n que define \[Delta]x\
\>", "Text",
CellChangeTimes->{{3.8981877712604923`*^9,
3.8981878082431*^9}},ExpressionUUID->"13ffddb6-291b-4611-aca3-14e06aae2f1a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Ecua", "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"m1", " ",
RowBox[{"x1", "[", "t", "]"}]}], "+",
RowBox[{"m2", " ",
RowBox[{"x2", "[", "t", "]"}]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",", " ",
RowBox[{
RowBox[{"\[Delta]x", "[", "t", "]"}], "==",
RowBox[{
RowBox[{"x2", "[", "t", "]"}], "-",
RowBox[{"x1", "[", "t", "]"}], "-", "a"}]}]}], "}"}]}]], "Input",
CellChangeTimes->{{3.896457308734207*^9, 3.896457330022421*^9}, {
3.896457376989176*^9, 3.896457399517359*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"3fdf529b-6ca2-4052-93f5-28cbb9234fe8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"m1", " ",
RowBox[{"x1", "[", "t", "]"}]}], "+",
RowBox[{"m2", " ",
RowBox[{"x2", "[", "t", "]"}]}]}],
RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",",
RowBox[{
RowBox[{"\[Delta]x", "[", "t", "]"}], "\[Equal]",
RowBox[{
RowBox[{"-", "a"}], "-",
RowBox[{"x1", "[", "t", "]"}], "+",
RowBox[{"x2", "[", "t", "]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{3.896457414022626*^9, 3.8981885540157557`*^9},
CellLabel->"Out[1]=",ExpressionUUID->"01da35b0-cd67-4fdc-b6bc-e7b684ceae69"]
}, Open ]],
Cell["\<\
De donde podemos resolver para las posiciones de cada una de las \
part\[IAcute]culas\
\>", "Text",
CellChangeTimes->{{3.8981878131637497`*^9,
3.898187830834487*^9}},ExpressionUUID->"4f8b2285-0cd8-4343-8c01-\
3e5e523df48d"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{"Ecua", ",",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "[", "t", "]"}], ",",
RowBox[{"x2", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.896457416406809*^9, 3.896457426276842*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"26cc42a2-1bd0-4fb4-b7db-245ea00419b1"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"x1", "[", "t", "]"}], "\[Rule]",
RowBox[{"-",
FractionBox[
RowBox[{"m2", " ",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}],
RowBox[{"m1", "+", "m2"}]]}]}], ",",
RowBox[{
RowBox[{"x2", "[", "t", "]"}], "\[Rule]",
FractionBox[
RowBox[{"m1", " ",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}],
RowBox[{"m1", "+", "m2"}]]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.896457427412499*^9, 3.898188555742094*^9},
CellLabel->"Out[2]=",ExpressionUUID->"2338d8af-ad8a-46a4-b7db-f84f2f6ad291"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"x1", "[", "t_", "]"}], "=",
RowBox[{"-",
FractionBox[
RowBox[{"m2", " ",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}],
RowBox[{"m1", "+", "m2"}]]}]}]], "Input",
CellChangeTimes->{{3.896457456940403*^9, 3.8964574636284323`*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"f8972876-dd7e-4c11-b1c5-61dc36d9c99e"],
Cell[BoxData[
RowBox[{"-",
FractionBox[
RowBox[{"m2", " ",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}],
RowBox[{"m1", "+", "m2"}]]}]], "Output",
CellChangeTimes->{3.896457466398056*^9, 3.898188558024366*^9},
CellLabel->"Out[3]=",ExpressionUUID->"e7952def-6cf1-4fc0-bbea-43768e8561eb"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"x2", "[", "t_", "]"}], "=",
FractionBox[
RowBox[{"m1", " ",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}],
RowBox[{"m1", "+", "m2"}]]}]], "Input",
CellChangeTimes->{{3.896457468557444*^9, 3.8964574701165743`*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"58bca70d-f0e6-4a30-946e-1554264bdf22"],
Cell[BoxData[
FractionBox[
RowBox[{"m1", " ",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"\[Delta]x", "[", "t", "]"}]}], ")"}]}],
RowBox[{"m1", "+", "m2"}]]], "Output",
CellChangeTimes->{3.896457470909659*^9, 3.898188558911467*^9},
CellLabel->"Out[4]=",ExpressionUUID->"1ca25d75-5688-48e8-8112-66809e8d0bc1"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Soluci\[OAcute]n", "Subsection",
CellChangeTimes->{{3.898187847546523*^9,
3.898187856978285*^9}},ExpressionUUID->"6decf108-24d7-4a03-be4f-\
0fd59c5e9a16"],
Cell["La soluci\[OAcute]n para la distancia relativa toma la forma", "Text",
CellChangeTimes->{{3.898187861370549*^9,
3.8981878704579697`*^9}},ExpressionUUID->"753c7e11-3e39-4276-8b7d-\
a52d4b4139bd"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Delta]x", "[", "t_", "]"}], ":=",
RowBox[{"A", " ",
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"\[Omega]0", " ", "t"}], "+", "\[Delta]"}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.896457479568157*^9, 3.896457492670999*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"a0a4084c-a24d-48c8-b8f7-daf8e3a9d4a6"]
}, Closed]],
Cell[CellGroupData[{
Cell["Animaci\[OAcute]n", "Subsection",
CellChangeTimes->{{3.8981878752743683`*^9,
3.898187885345747*^9}},ExpressionUUID->"d1cdfd61-dc32-41f3-abbe-\
95b4ba474db6"],
Cell["Para hacer una animaci\[OAcute]n les damos valores a las constantes", \
"Text",
CellChangeTimes->{{3.898187889658066*^9,
3.898187898313472*^9}},ExpressionUUID->"a125df6f-4922-45c7-a22c-\
8a0b91af419d"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Omega]0", "=", "2"}], " ", ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"A", "=", "2"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"m1", "=", "5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"m2", "=", "5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"a", "=", "5"}], ";"}]}], "Input",
CellChangeTimes->{{3.896375953501997*^9, 3.8963760407089233`*^9}, {
3.896457513235818*^9, 3.896457539363508*^9}, {3.896457596259014*^9,
3.8964576439066343`*^9}, {3.896457717649619*^9, 3.896457738249598*^9},
3.898187901057806*^9},
CellLabel->"In[6]:=",ExpressionUUID->"e6917571-3a29-4ce5-93a0-8c8218badcfa"],
Cell["Con lo cual tenemos", "Text",
CellChangeTimes->{{3.8981879022358093`*^9,
3.8981879052253113`*^9}},ExpressionUUID->"37c132dd-4c82-458a-9b8e-\
a777da667b2e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Animate", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "10"}], ",",
RowBox[{"-", "5"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "5"}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"Orange", ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"x1", "[", "t", "]"}], ",", "0"}], "}"}], ",",
RowBox[{"m1", "/", "5"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"x2", "[", "t", "]"}], ",", "0"}], "}"}], ",",
RowBox[{"m2", "/", "5"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.896375817168126*^9, 3.8963759443904457`*^9}, {
3.896457552029765*^9, 3.896457576652191*^9}, {3.896457660292104*^9,
3.896457708378468*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"729a51b4-d4eb-4e4a-af91-f2413b14be68"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`t$$ = 2.7485733032226562`, 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, 10}}, Typeset`size$$ = {
468., {118., 124.61120000000003`}}, 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[{{-10, -5}, {10, 5}}], {Orange,
Disk[{
$CellContext`x1[$CellContext`t$$], 0}, $CellContext`m1/5]}, {
Red,
Disk[{
$CellContext`x2[$CellContext`t$$], 0}, $CellContext`m2/5]}}],
"Specifications" :> {{$CellContext`t$$, 0, 10,
AppearanceElements -> {
"ProgressSlider", "PlayPauseButton", "FasterSlowerButtons",
"DirectionButton"}}},
"Options" :> {
ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle ->
"Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating ->
True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
ImageSizeCache->{827., {144.861328125, 152.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.896457579444209*^9, 3.896457587248307*^9}, {
3.896457692080243*^9, 3.896457709211211*^9}, 3.898188567375654*^9},
CellLabel->"Out[12]=",ExpressionUUID->"b6945712-0de8-46fe-8d19-06a61a6a0d55"]
}, Open ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Con rotaci\[OAcute]n", "Section",
CellChangeTimes->{{3.898187945233396*^9,
3.8981879493847513`*^9}},ExpressionUUID->"7b684eea-f038-4be2-8190-\
458ab7df58a0"],
Cell[BoxData["Quit"], "Input",
CellChangeTimes->{{3.898187950586862*^9, 3.898187951048921*^9}},
CellLabel->"In[40]:=",ExpressionUUID->"eed998e3-8ae2-458a-b79d-a508c50d8295"],
Cell[CellGroupData[{
Cell["Posici\[OAcute]n", "Subsection",
CellChangeTimes->{{3.898188599215283*^9,
3.8981886028680553`*^9}},ExpressionUUID->"ad0106d0-60fc-4834-a536-\
eeed2b1b7852"],
Cell["\<\
Escribiendo la condici\[OAcute]n para que el centro de masas est\[EAcute] en \
el origen y la definici\[OAcute]n de las coordenadas relativas\
\>", "Text",
CellChangeTimes->{{3.898188594216194*^9,
3.8981886310384398`*^9}},ExpressionUUID->"a48ebb11-4795-4b6a-8c4c-\
fb19b5790f04"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Ecua", "=",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"m1", " ",
RowBox[{"x1", "[", "t", "]"}]}], "+",
RowBox[{"m2", " ",
RowBox[{"x2", "[", "t", "]"}]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"m1", " ",
RowBox[{"y1", "[", "t", "]"}]}], "+",
RowBox[{"m2", " ",
RowBox[{"y2", "[", "t", "]"}]}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"m1", "+", "m2"}], ")"}]}], "==", "0"}], ",", " ",
RowBox[{
RowBox[{"x", "[", "t", "]"}], "==",
RowBox[{
RowBox[{"x2", "[", "t", "]"}], "-",
RowBox[{"x1", "[", "t", "]"}]}]}], ",", " ",
RowBox[{
RowBox[{"y", "[", "t", "]"}], "==",
RowBox[{
RowBox[{"y2", "[", "t", "]"}], "-",
RowBox[{"y1", "[", "t", "]"}]}]}]}], "}"}]}]], "Input",
CellChangeTimes->{{3.896457308734207*^9, 3.896457330022421*^9}, {
3.896457376989176*^9, 3.896457399517359*^9}, {3.8964578290894203`*^9,
3.896457836232074*^9}, {3.8964578754157143`*^9, 3.896457890658156*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"0a5af4df-c4be-42e3-b2cb-461bdc1208dc"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"m1", " ",
RowBox[{"x1", "[", "t", "]"}]}], "+",
RowBox[{"m2", " ",
RowBox[{"x2", "[", "t", "]"}]}]}],
RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"m1", " ",
RowBox[{"y1", "[", "t", "]"}]}], "+",
RowBox[{"m2", " ",
RowBox[{"y2", "[", "t", "]"}]}]}],
RowBox[{"m1", "+", "m2"}]], "\[Equal]", "0"}], ",",
RowBox[{
RowBox[{"x", "[", "t", "]"}], "\[Equal]",
RowBox[{
RowBox[{"-",
RowBox[{"x1", "[", "t", "]"}]}], "+",
RowBox[{"x2", "[", "t", "]"}]}]}], ",",
RowBox[{
RowBox[{"y", "[", "t", "]"}], "\[Equal]",
RowBox[{
RowBox[{"-",
RowBox[{"y1", "[", "t", "]"}]}], "+",
RowBox[{"y2", "[", "t", "]"}]}]}]}], "}"}]], "Output",
CellChangeTimes->{3.896457895671381*^9, 3.898188639866578*^9,
3.8981888871907873`*^9, 3.898188935027437*^9, 3.898189000408153*^9},
CellLabel->"Out[1]=",ExpressionUUID->"fe913b27-fdef-434e-a15a-ed3491be573a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{"Ecua", ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "[", "t", "]"}], ",",
RowBox[{"x2", "[", "t", "]"}], ",",
RowBox[{"y1", "[", "t", "]"}], ",",
RowBox[{"y2", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.896457896680479*^9, 3.896457915777026*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"e1532ae4-d773-48d8-a5f5-06b39a8d7a9d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"x1", "[", "t", "]"}], "\[Rule]",
RowBox[{"-",
FractionBox[
RowBox[{"m2", " ",
RowBox[{"x", "[", "t", "]"}]}],
RowBox[{"m1", "+", "m2"}]]}]}], ",",
RowBox[{
RowBox[{"x2", "[", "t", "]"}], "\[Rule]",
FractionBox[
RowBox[{"m1", " ",
RowBox[{"x", "[", "t", "]"}]}],
RowBox[{"m1", "+", "m2"}]]}], ",",
RowBox[{
RowBox[{"y1", "[", "t", "]"}], "\[Rule]",
RowBox[{"-",
FractionBox[
RowBox[{"m2", " ",
RowBox[{"y", "[", "t", "]"}]}],
RowBox[{"m1", "+", "m2"}]]}]}], ",",
RowBox[{
RowBox[{"y2", "[", "t", "]"}], "\[Rule]",
FractionBox[
RowBox[{"m1", " ",
RowBox[{"y", "[", "t", "]"}]}],
RowBox[{"m1", "+", "m2"}]]}]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.8964579165905113`*^9, 3.898188640142844*^9,
3.898188887256571*^9, 3.898188935095272*^9, 3.8981890009189587`*^9},
CellLabel->"Out[2]=",ExpressionUUID->"3e3bea4f-00ad-4cd6-8b26-9a87ed12b68b"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"x1", "[", "t_", "]"}], ":=",
RowBox[{"-",
FractionBox[
RowBox[{"m2", " ",
RowBox[{"x", "[", "t", "]"}]}],
RowBox[{"m1", "+", "m2"}]]}]}]], "Input",
CellChangeTimes->{{3.896457938972465*^9, 3.896457957054851*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"28868a16-3caf-4152-bbc8-54812671134c"],
Cell[BoxData[
RowBox[{
RowBox[{"x2", "[", "t_", "]"}], ":=",
FractionBox[
RowBox[{"m1", " ",
RowBox[{"x", "[", "t", "]"}]}],
RowBox[{"m1", "+", "m2"}]]}]], "Input",
CellChangeTimes->{{3.8964579468071938`*^9, 3.89645796271911*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"49ee20b9-680b-4600-b0bf-04583f1a93a8"],
Cell[BoxData[
RowBox[{
RowBox[{"y1", "[", "t_", "]"}], ":=",
RowBox[{"-",
FractionBox[
RowBox[{"m2", " ",
RowBox[{"y", "[", "t", "]"}]}],
RowBox[{"m1", "+", "m2"}]]}]}]], "Input",
CellChangeTimes->{{3.896457965511003*^9, 3.896457970375597*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"9c5b1b7e-cd32-47dd-b3b4-e715f9d7ba3f"],
Cell[BoxData[
RowBox[{
RowBox[{"y2", "[", "t_", "]"}], ":=",
FractionBox[
RowBox[{"m1", " ",
RowBox[{"y", "[", "t", "]"}]}],
RowBox[{"m1", "+", "m2"}]]}]], "Input",
CellChangeTimes->{{3.896457974198711*^9, 3.89645797606291*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"1e6b2124-52c1-4df4-9531-f4de460b34e6"]
}, Closed]],
Cell[CellGroupData[{
Cell["Soluci\[OAcute]n", "Subsection",
CellChangeTimes->{{3.898188650022894*^9,
3.898188658141952*^9}},ExpressionUUID->"300e363a-6fa3-4506-a28e-\
0cc805060c32"],
Cell["La soluci\[OAcute]n se escribe", "Text",
CellChangeTimes->{{3.8981886593983603`*^9,
3.898188665837881*^9}},ExpressionUUID->"54817b92-b1d0-41b8-ba4d-\
4f48527812de"],
Cell[BoxData[
RowBox[{
RowBox[{"x", "[", "t_", "]"}], ":=",
RowBox[{
RowBox[{"r", "[", "t", "]"}],
RowBox[{"Cos", "[",
RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.896458004318989*^9, 3.896458019454575*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"b5d963c6-b4c9-4b23-a357-48cf17309d61"],
Cell[BoxData[{
RowBox[{
RowBox[{"y", "[", "t_", "]"}], ":=",
RowBox[{
RowBox[{"r", "[", "t", "]"}],
RowBox[{"Sin", "[",
RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"r", "[", "t_", "]"}], ":=", " ",
RowBox[{"rc", "+",
RowBox[{"\[Delta]r", "[", "t", "]"}]}]}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Delta]r", "[", "t_", "]"}], ":=", " ",
RowBox[{"A", " ",
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"\[Omega]0", " ", "t"}], "+", "\[Delta]"}], "]"}]}]}]}], "Input",\
CellChangeTimes->{{3.8964580340308657`*^9, 3.89645803771054*^9}, {
3.898188679414411*^9, 3.898188685422063*^9}, {3.898188909699025*^9,
3.8981889113308783`*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"114b89ed-032b-4645-8bf0-ec622e8e8b7f"],
Cell["Donde tenemos que el \[AAcute]ngulo est\[AAcute] dado por", "Text",
CellChangeTimes->{{3.8981886909738703`*^9, 3.89818869567738*^9}, {
3.898188914218286*^9,
3.898188918458023*^9}},ExpressionUUID->"313b80ea-ba8c-4d2c-9156-\
68be22c8d474"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Integrate", "[", " ",
RowBox[{
RowBox[{"lz", "/",
RowBox[{"(",
RowBox[{"m", " ",
RowBox[{
RowBox[{"r", "[", "t", "]"}], "^", "2"}]}], ")"}]}], ",", "t"}],
"]"}], "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.896458076440695*^9, 3.896458091361875*^9}, {
3.898188700029801*^9, 3.898188710133851*^9}, 3.898188793013299*^9, {
3.898188904899444*^9, 3.898188922682534*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"c1be3eaf-0440-4a74-8b44-2d77aea22e8b"],
Cell[BoxData[
FractionBox[
RowBox[{"lz", " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"2", " ", "rc", " ",
RowBox[{"ArcTanh", "[",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "A"}], "+", "rc"}], ")"}], " ",
RowBox[{"Tan", "[",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"\[Delta]", "+",
RowBox[{"t", " ", "\[Omega]0"}]}], ")"}]}], "]"}]}],
SqrtBox[
RowBox[{
SuperscriptBox["A", "2"], "-",
SuperscriptBox["rc", "2"]}]]], "]"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["A", "2"], "-",
SuperscriptBox["rc", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]], "+",
FractionBox[
RowBox[{"A", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Delta]", "+",
RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"A", "-", "rc"}], ")"}], " ",
RowBox[{"(",
RowBox[{"A", "+", "rc"}], ")"}], " ",
RowBox[{"(",
RowBox[{"rc", "+",
RowBox[{"A", " ",
RowBox[{"Cos", "[",
RowBox[{"\[Delta]", "+",
RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}]}], ")"}]}]]}], ")"}]}],
RowBox[{"m", " ", "\[Omega]0"}]]], "Output",
CellChangeTimes->{
3.898188793862525*^9, {3.8981889233192043`*^9, 3.898188935541335*^9},
3.8981890012595463`*^9},
CellLabel->"Out[11]=",ExpressionUUID->"0b03e658-f1aa-4d7b-9f70-03a8551a57b3"]
}, Open ]],
Cell["Es decir que", "Text",
CellChangeTimes->{{3.898188943482963*^9,
3.89818894721768*^9}},ExpressionUUID->"0dd4c4bf-990f-4363-a4d3-\
5d419d7ac1f9"],
Cell[BoxData[
RowBox[{
RowBox[{"\[Theta]", "[", "t_", "]"}], ":=",
FractionBox[
RowBox[{"lz", " ",
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"2", " ", "rc", " ",
RowBox[{"ArcTanh", "[",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "A"}], "+", "rc"}], ")"}], " ",
RowBox[{"Tan", "[",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"\[Delta]", "+",
RowBox[{"t", " ", "\[Omega]0"}]}], ")"}]}], "]"}]}],
SqrtBox[
RowBox[{
SuperscriptBox["A", "2"], "-",
SuperscriptBox["rc", "2"]}]]], "]"}]}],
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["A", "2"], "-",
SuperscriptBox["rc", "2"]}], ")"}],
RowBox[{"3", "/", "2"}]]], "+",
FractionBox[
RowBox[{"A", " ",
RowBox[{"Sin", "[",
RowBox[{"\[Delta]", "+",
RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}],
RowBox[{
RowBox[{"(",
RowBox[{"A", "-", "rc"}], ")"}], " ",
RowBox[{"(",
RowBox[{"A", "+", "rc"}], ")"}], " ",
RowBox[{"(",
RowBox[{"rc", "+",
RowBox[{"A", " ",
RowBox[{"Cos", "[",
RowBox[{"\[Delta]", "+",
RowBox[{"t", " ", "\[Omega]0"}]}], "]"}]}]}], ")"}]}]]}],
")"}]}],
RowBox[{"m", " ", "\[Omega]0"}]]}]], "Input",
CellChangeTimes->{{3.898188939937871*^9, 3.8981889408207903`*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"723d2ab1-2464-4ea3-aa5a-01d47ff4c4bf"]
}, Closed]],
Cell[CellGroupData[{
Cell["Animaci\[OAcute]n", "Subsection",
CellChangeTimes->{{3.898188730021204*^9,
3.898188735076913*^9}},ExpressionUUID->"aca16a25-b56d-4c0a-add0-\
d30b160a349c"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[Omega]0", "=",
RowBox[{"1", "/", "50"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"A", "=", "2"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Delta]", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"m1", "=", "8"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"m2", "=", "5"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"rc", "=", "8"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"lz", "=", "5"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{"m", ":=", " ",
RowBox[{"m1", " ",
RowBox[{"m2", "/",
RowBox[{"(",
RowBox[{"m1", "+", "m2"}], ")"}]}]}]}]}], "Input",
CellChangeTimes->{{3.896458282345139*^9, 3.896458283025153*^9}, {
3.896458345384122*^9, 3.896458369558832*^9}, {3.8964584187654963`*^9,
3.896458447726945*^9}, {3.898188721141343*^9, 3.89818872182968*^9}, {
3.8981888104766083`*^9, 3.898188867263801*^9}, {3.898188981521991*^9,
3.898189076328623*^9}},
CellLabel->"In[94]:=",ExpressionUUID->"82f5f3c4-ae67-41e3-9ca7-f3d813c39c7e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Animate", "[",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{
RowBox[{"Polygon", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "10"}], ",",
RowBox[{"-", "5"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"10", ",", "5"}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"Orange", ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"x1", "[", "t", "]"}], ",",
RowBox[{"y1", "[", "t", "]"}]}], "}"}], ",",
RowBox[{"m1", "/", "5"}]}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"x2", "[", "t", "]"}], ",",
RowBox[{"y2", "[", "t", "]"}]}], "}"}], ",",
RowBox[{"m2", "/", "5"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.896375817168126*^9, 3.8963759443904457`*^9}, {
3.896457552029765*^9, 3.896457576652191*^9}, {3.896457660292104*^9,
3.896457708378468*^9}, {3.8964582591628838`*^9, 3.896458268554235*^9}, {
3.896458379423952*^9, 3.8964583795688343`*^9}, {3.898189063068075*^9,
3.898189088240901*^9}},
CellLabel->
"In[103]:=",ExpressionUUID->"5ccced87-5f94-4bbd-991f-63eae327c52a"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`t$$ = 22.47868537902832, 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, 100}}, Typeset`size$$ = {
468., {118., 124.61120000000003`}}, 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[{{-10, -5}, {10, 5}}], {Orange,
Disk[{
$CellContext`x1[$CellContext`t$$],
$CellContext`y1[$CellContext`t$$]}, $CellContext`m1/5]}, {Red,
Disk[{
$CellContext`x2[$CellContext`t$$],
$CellContext`y2[$CellContext`t$$]}, $CellContext`m2/5]}}],
"Specifications" :> {{$CellContext`t$$, 0, 100,
AppearanceElements -> {
"ProgressSlider", "PlayPauseButton", "FasterSlowerButtons",
"DirectionButton"}}},
"Options" :> {
ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle ->
"Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating ->
True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
ImageSizeCache->{827., {144.861328125, 152.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.896458286998783*^9, {3.8964583310683126`*^9, 3.896458379913609*^9},
3.898188750571588*^9, {3.898188806218657*^9, 3.898188869839446*^9}, {
3.8981889558918657`*^9, 3.898188984122568*^9}, {3.898189063893229*^9,
3.898189089053257*^9}},
CellLabel->
"Out[103]=",ExpressionUUID->"4c953d68-042f-4350-8ed7-100664874395"]
}, 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->"0d356e19-cbe2-47c8-984e-a5f9b886db41"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 226, 4, 127, "Title",ExpressionUUID->"480d5f7d-45fb-40a1-bc21-04aa8b6ee330"],
Cell[CellGroupData[{
Cell[831, 30, 169, 3, 87, "Section",ExpressionUUID->"b974cc17-55a0-4238-9726-89063ea3bdd0"],
Cell[1003, 35, 160, 3, 60, "Input",ExpressionUUID->"42198e70-59cc-4baa-887a-d542477e9c01"],
Cell[CellGroupData[{
Cell[1188, 42, 214, 4, 70, "Subsection",ExpressionUUID->"ee16e0b6-b83f-423c-8a48-c49492382792"],
Cell[1405, 48, 340, 6, 75, "Text",ExpressionUUID->"13ffddb6-291b-4611-aca3-14e06aae2f1a"],
Cell[CellGroupData[{
Cell[1770, 58, 760, 21, 42, "Input",ExpressionUUID->"3fdf529b-6ca2-4052-93f5-28cbb9234fe8"],
Cell[2533, 81, 638, 18, 65, "Output",ExpressionUUID->"01da35b0-cd67-4fdc-b6bc-e7b684ceae69"]
}, Open ]],
Cell[3186, 102, 237, 6, 45, "Text",ExpressionUUID->"4f8b2285-0cd8-4343-8c01-3e5e523df48d"],
Cell[CellGroupData[{
Cell[3448, 112, 341, 8, 60, "Input",ExpressionUUID->"26cc42a2-1bd0-4fb4-b7db-245ea00419b1"],
Cell[3792, 122, 754, 22, 65, "Output",ExpressionUUID->"2338d8af-ad8a-46a4-b7db-f84f2f6ad291"]
}, Open ]],
Cell[CellGroupData[{
Cell[4583, 149, 412, 11, 63, "Input",ExpressionUUID->"f8972876-dd7e-4c11-b1c5-61dc36d9c99e"],
Cell[4998, 162, 350, 9, 65, "Output",ExpressionUUID->"e7952def-6cf1-4fc0-bbea-43768e8561eb"]
}, Open ]],
Cell[CellGroupData[{
Cell[5385, 176, 388, 10, 63, "Input",ExpressionUUID->"58bca70d-f0e6-4a30-946e-1554264bdf22"],
Cell[5776, 188, 327, 8, 65, "Output",ExpressionUUID->"1ca25d75-5688-48e8-8112-66809e8d0bc1"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[6152, 202, 164, 3, 48, "Subsection",ExpressionUUID->"6decf108-24d7-4a03-be4f-0fd59c5e9a16"],
Cell[6319, 207, 204, 3, 45, "Text",ExpressionUUID->"753c7e11-3e39-4276-8b7d-a52d4b4139bd"],
Cell[6526, 212, 351, 8, 64, "Input",ExpressionUUID->"a0a4084c-a24d-48c8-b8f7-daf8e3a9d4a6"]
}, Closed]],
Cell[CellGroupData[{
Cell[6914, 225, 167, 3, 48, "Subsection",ExpressionUUID->"d1cdfd61-dc32-41f3-abbe-95b4ba474db6"],
Cell[7084, 230, 211, 4, 45, "Text",ExpressionUUID->"a125df6f-4922-45c7-a22c-8a0b91af419d"],
Cell[7298, 236, 751, 17, 172, "Input",ExpressionUUID->"e6917571-3a29-4ce5-93a0-8c8218badcfa"],
Cell[8052, 255, 165, 3, 45, "Text",ExpressionUUID->"37c132dd-4c82-458a-9b8e-a777da667b2e"],
Cell[CellGroupData[{
Cell[8242, 262, 1277, 36, 160, "Input",ExpressionUUID->"729a51b4-d4eb-4e4a-af91-f2413b14be68"],
Cell[9522, 300, 2265, 45, 321, "Output",ExpressionUUID->"b6945712-0de8-46fe-8d19-06a61a6a0d55"]
}, Open ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[11848, 352, 167, 3, 67, "Section",ExpressionUUID->"7b684eea-f038-4be2-8190-458ab7df58a0"],
Cell[12018, 357, 175, 2, 60, "Input",ExpressionUUID->"eed998e3-8ae2-458a-b79d-a508c50d8295"],
Cell[CellGroupData[{
Cell[12218, 363, 166, 3, 70, "Subsection",ExpressionUUID->"ad0106d0-60fc-4834-a536-eeed2b1b7852"],
Cell[12387, 368, 293, 6, 45, "Text",ExpressionUUID->"a48ebb11-4795-4b6a-8c4c-fb19b5790f04"],
Cell[CellGroupData[{
Cell[12705, 378, 1311, 37, 72, "Input",ExpressionUUID->"0a5af4df-c4be-42e3-b2cb-461bdc1208dc"],
Cell[14019, 417, 1114, 33, 70, "Output",ExpressionUUID->"fe913b27-fdef-434e-a15a-ed3491be573a"]
}, Open ]],
Cell[CellGroupData[{
Cell[15170, 455, 430, 10, 64, "Input",ExpressionUUID->"e1532ae4-d773-48d8-a5f5-06b39a8d7a9d"],
Cell[15603, 467, 1090, 32, 70, "Output",ExpressionUUID->"3e3bea4f-00ad-4cd6-8b26-9a87ed12b68b"]
}, Open ]],
Cell[16708, 502, 348, 9, 63, "Input",ExpressionUUID->"28868a16-3caf-4152-bbc8-54812671134c"],
Cell[17059, 513, 327, 8, 63, "Input",ExpressionUUID->"49ee20b9-680b-4600-b0bf-04583f1a93a8"],
Cell[17389, 523, 348, 9, 63, "Input",ExpressionUUID->"9c5b1b7e-cd32-47dd-b3b4-e715f9d7ba3f"],
Cell[17740, 534, 325, 8, 63, "Input",ExpressionUUID->"1e6b2124-52c1-4df4-9531-f4de460b34e6"]
}, Closed]],
Cell[CellGroupData[{
Cell[18102, 547, 164, 3, 48, "Subsection",ExpressionUUID->"300e363a-6fa3-4506-a28e-0cc805060c32"],
Cell[18269, 552, 174, 3, 45, "Text",ExpressionUUID->"54817b92-b1d0-41b8-ba4d-4f48527812de"],
Cell[18446, 557, 338, 8, 62, "Input",ExpressionUUID->"b5d963c6-b4c9-4b23-a357-48cf17309d61"],
Cell[18787, 567, 844, 23, 169, "Input",ExpressionUUID->"114b89ed-032b-4645-8bf0-ec622e8e8b7f"],
Cell[19634, 592, 249, 4, 45, "Text",ExpressionUUID->"313b80ea-ba8c-4d2c-9156-68be22c8d474"],
Cell[CellGroupData[{
Cell[19908, 600, 539, 13, 93, "Input",ExpressionUUID->"c1be3eaf-0440-4a74-8b44-2d77aea22e8b"],
Cell[20450, 615, 1632, 49, 70, "Output",ExpressionUUID->"0b03e658-f1aa-4d7b-9f70-03a8551a57b3"]
}, Open ]],
Cell[22097, 667, 153, 3, 45, "Text",ExpressionUUID->"0dd4c4bf-990f-4363-a4d3-5d419d7ac1f9"],
Cell[22253, 672, 1688, 50, 134, "Input",ExpressionUUID->"723d2ab1-2464-4ea3-aa5a-01d47ff4c4bf"]
}, Closed]],
Cell[CellGroupData[{
Cell[23978, 727, 165, 3, 48, "Subsection",ExpressionUUID->"aca16a25-b56d-4c0a-add0-d30b160a349c"],
Cell[24146, 732, 1109, 28, 250, "Input",ExpressionUUID->"82f5f3c4-ae67-41e3-9ca7-f3d813c39c7e"],
Cell[CellGroupData[{
Cell[25280, 764, 1508, 41, 110, "Input",ExpressionUUID->"5ccced87-5f94-4bbd-991f-63eae327c52a"],
Cell[26791, 807, 2478, 50, 321, "Output",ExpressionUUID->"4c953d68-042f-4350-8ed7-100664874395"]
}, Open ]]
}, Closed]]
}, Closed]]
}, Closed]]
}
]
*)

3639
Notebooks/3-TresParticulasEnLinea.nb Normal file
View File

File diff suppressed because it is too large Load Diff

975
Notebooks/4-CadenaDeOsciladores.nb Normal file
View File

@ -0,0 +1,975 @@
(* 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]]
}
]
*)

2851
Notebooks/5-OndasEnUnaDimension.nb Normal file
View File

File diff suppressed because it is too large Load Diff