3640 lines
137 KiB
Mathematica
3640 lines
137 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[ 139683, 3631]
|
|
NotebookOptionsPosition[ 127288, 3424]
|
|
NotebookOutlinePosition[ 127753, 3442]
|
|
CellTagsIndexPosition[ 127710, 3439]
|
|
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$$ = 42.94211387634277, 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., {155.861328125, 163.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 ]]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell["Tres part\[IAcute]culas en l\[IAcute]nea", "Title",
|
|
CellChangeTimes->{{3.8981891240672903`*^9,
|
|
3.898189144502944*^9}},ExpressionUUID->"e8855943-34d6-4c26-b222-\
|
|
0f6ddfd6c0eb"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{
|
|
"x1", ",", "x2", ",", "\[Omega]0", ",", "A", ",", "m1", ",", "m2", ",",
|
|
"\[Delta]", ",", "m"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.896465810473068*^9, 3.896465834306896*^9}, {
|
|
3.896466207804522*^9, 3.896466208010026*^9}},
|
|
CellLabel->
|
|
"In[146]:=",ExpressionUUID->"610c3a71-e66a-4b15-a70d-249d847ba2db"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Ecua", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"x1", "[", "t", "]"}]}], "+",
|
|
RowBox[{"mC", " ",
|
|
RowBox[{"x2", "[", "t", "]"}]}], " ", "+", " ",
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"x3", "[", "t", "]"}]}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "m0"}], "+", "mC"}], ")"}]}], "==", "0"}], ",",
|
|
RowBox[{
|
|
RowBox[{"u", "[", "t", "]"}], "==",
|
|
RowBox[{
|
|
RowBox[{"x2", "[", "t", "]"}], "-",
|
|
RowBox[{"x1", "[", "t", "]"}], "-", "a"}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"v", "[", "t", "]"}], "==",
|
|
RowBox[{
|
|
RowBox[{"x3", "[", "t", "]"}], "-",
|
|
RowBox[{"x2", "[", "t", "]"}], "-", "a"}]}]}], "}"}]}]], "Input",
|
|
CellChangeTimes->{{3.8964658073612757`*^9, 3.89646580915353*^9}, {
|
|
3.8964658449531727`*^9, 3.896465952399041*^9}, {3.896465989391653*^9,
|
|
3.8964659903346786`*^9}},
|
|
CellLabel->
|
|
"In[138]:=",ExpressionUUID->"01c9dddd-8f50-481a-b053-ad6b5cba4aa5"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"x1", "[", "t", "]"}]}], "+",
|
|
RowBox[{"mC", " ",
|
|
RowBox[{"x2", "[", "t", "]"}]}], "+",
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"x3", "[", "t", "]"}]}]}],
|
|
RowBox[{
|
|
RowBox[{"2", " ", "m0"}], "+", "mC"}]], "\[Equal]", "0"}], ",",
|
|
RowBox[{
|
|
RowBox[{"u", "[", "t", "]"}], "\[Equal]",
|
|
RowBox[{
|
|
RowBox[{"-", "a"}], "-",
|
|
RowBox[{"x1", "[", "t", "]"}], "+",
|
|
RowBox[{"x2", "[", "t", "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"v", "[", "t", "]"}], "\[Equal]",
|
|
RowBox[{
|
|
RowBox[{"-", "a"}], "-",
|
|
RowBox[{"x2", "[", "t", "]"}], "+",
|
|
RowBox[{"x3", "[", "t", "]"}]}]}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.896465992142009*^9},
|
|
CellLabel->
|
|
"Out[138]=",ExpressionUUID->"8752d520-7aae-4789-8300-eeadc5fc0d28"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"Solve", "[",
|
|
RowBox[{"Ecua", ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"x1", "[", "t", "]"}], ",",
|
|
RowBox[{"x2", "[", "t", "]"}], ",",
|
|
RowBox[{"x3", "[", "t", "]"}]}], "}"}]}], "]"}], " ", "//",
|
|
"Simplify"}]], "Input",
|
|
CellChangeTimes->{{3.8964659931918373`*^9, 3.896466017807691*^9}},
|
|
CellLabel->
|
|
"In[140]:=",ExpressionUUID->"d87f75df-edc0-45ad-95c5-0899e883051e"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"x1", "[", "t", "]"}], "\[Rule]",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"a", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+", "mO"}], ")"}], " ",
|
|
RowBox[{"u", "[", "t", "]"}]}], "+",
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"v", "[", "t", "]"}]}]}],
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}]]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"x2", "[", "t", "]"}], "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"u", "[", "t", "]"}], "-",
|
|
RowBox[{"v", "[", "t", "]"}]}], ")"}]}],
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}]]}], ",",
|
|
RowBox[{
|
|
RowBox[{"x3", "[", "t", "]"}], "\[Rule]",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"a", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}], ")"}]}], "+",
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"u", "[", "t", "]"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+", "mO"}], ")"}], " ",
|
|
RowBox[{"v", "[", "t", "]"}]}]}],
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}]]}]}], "}"}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.896466010398193*^9, 3.896466018405561*^9}},
|
|
CellLabel->
|
|
"Out[140]=",ExpressionUUID->"97d7f797-1cf0-47b6-b40d-c4f36841e303"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"x1", "[", "t_", "]"}], ":=",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"a", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}], ")"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+", "mO"}], ")"}], " ",
|
|
RowBox[{"u", "[", "t", "]"}]}], "+",
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"v", "[", "t", "]"}]}]}],
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}]]}]}]], "Input",
|
|
CellChangeTimes->{{3.896466032519013*^9, 3.8964660514299717`*^9}},
|
|
CellLabel->
|
|
"In[160]:=",ExpressionUUID->"fecb16ea-8cd0-40c1-816d-07e456aae014"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"x2", "[", "t_", "]"}], ":=",
|
|
FractionBox[
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"u", "[", "t", "]"}], "-",
|
|
RowBox[{"v", "[", "t", "]"}]}], ")"}]}],
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}]]}]], "Input",
|
|
CellChangeTimes->{{3.896466036670145*^9, 3.896466055645743*^9},
|
|
3.896466444376399*^9},
|
|
CellLabel->
|
|
"In[161]:=",ExpressionUUID->"9401939a-48fd-4c65-a3a4-104183b35748"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"x3", "[", "t_", "]"}], ":=",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"a", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}], ")"}]}], "+",
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"u", "[", "t", "]"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+", "mO"}], ")"}], " ",
|
|
RowBox[{"v", "[", "t", "]"}]}]}],
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}]]}]], "Input",
|
|
CellChangeTimes->{{3.896466047862411*^9, 3.896466059622033*^9}},
|
|
CellLabel->
|
|
"In[162]:=",ExpressionUUID->"0c927a51-d467-4029-9bab-911cb405e75d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"u", "[", "t_", "]"}], ":=",
|
|
RowBox[{
|
|
RowBox[{"A1", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{
|
|
RowBox[{"\[Omega]1", " ", "t"}], "+", "\[Delta]1"}], "]"}]}], "+",
|
|
RowBox[{"A2", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{
|
|
RowBox[{"\[Omega]2", " ", "t"}], "+", "\[Delta]2"}],
|
|
"]"}]}]}]}]], "Input",
|
|
CellChangeTimes->{{3.896466078198612*^9, 3.8964660816375513`*^9}, {
|
|
3.8964661131890383`*^9, 3.896466138357229*^9}},
|
|
CellLabel->
|
|
"In[144]:=",ExpressionUUID->"1551db4a-1b61-4204-9cb3-43367532d8c6"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"v", "[", "t_", "]"}], ":=",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"-", "A1"}], " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{
|
|
RowBox[{"\[Omega]1", " ", "t"}], "+", "\[Delta]1"}], "]"}]}], "+",
|
|
RowBox[{"A2", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{
|
|
RowBox[{"\[Omega]2", " ", "t"}], "+", "\[Delta]2"}],
|
|
"]"}]}]}]}]], "Input",
|
|
CellChangeTimes->{{3.896466142237874*^9, 3.896466153749095*^9}},
|
|
CellLabel->
|
|
"In[145]:=",ExpressionUUID->"d6b27062-68a5-411c-a6aa-0ad0b301c509"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"m", "=",
|
|
RowBox[{"mO", " ",
|
|
RowBox[{"mC", " ", "/", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"mO", "+", "mC"}], ")"}]}]}]}]], "Input",
|
|
CellChangeTimes->{{3.8964662504036827`*^9, 3.896466259315775*^9}},
|
|
CellLabel->
|
|
"In[147]:=",ExpressionUUID->"e4cabb10-84e8-4eba-88b9-4a587f388c02"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"mC", " ", "mO"}],
|
|
RowBox[{"mC", "+", "mO"}]]], "Output",
|
|
CellChangeTimes->{3.896466260147415*^9},
|
|
CellLabel->
|
|
"Out[147]=",ExpressionUUID->"26bb5e29-4734-46b0-be78-272cc6598458"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[Omega]1", " ", "=", " ",
|
|
RowBox[{"Sqrt", "[",
|
|
RowBox[{
|
|
RowBox[{"k", "/", "m"}], " ",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"2", "mO"}], "+", "mC"}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+", "mO"}], ")"}]}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.896466264995545*^9, 3.896466274755899*^9}},
|
|
CellLabel->
|
|
"In[148]:=",ExpressionUUID->"c260966e-4170-4f96-990e-0954d0023ec8"],
|
|
|
|
Cell[BoxData[
|
|
SqrtBox[
|
|
FractionBox[
|
|
RowBox[{"k", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+",
|
|
RowBox[{"2", " ", "mO"}]}], ")"}]}],
|
|
RowBox[{"mC", " ", "mO"}]]]], "Output",
|
|
CellChangeTimes->{3.896466292340008*^9},
|
|
CellLabel->
|
|
"Out[148]=",ExpressionUUID->"5f929b07-df7a-474f-bf82-b76c075c7126"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[Omega]2", " ", "=", " ",
|
|
RowBox[{"Sqrt", "[",
|
|
RowBox[{
|
|
RowBox[{"k", "/", "m"}], " ",
|
|
RowBox[{"mC", "/",
|
|
RowBox[{"(",
|
|
RowBox[{"mC", "+", "mO"}], ")"}]}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.896466169821315*^9, 3.896466225604034*^9}},
|
|
CellLabel->
|
|
"In[149]:=",ExpressionUUID->"bb725d3d-7790-406d-b367-1485ddff751a"],
|
|
|
|
Cell[BoxData[
|
|
SqrtBox[
|
|
FractionBox["k", "mO"]]], "Output",
|
|
CellChangeTimes->{3.8964662942276278`*^9},
|
|
CellLabel->
|
|
"Out[149]=",ExpressionUUID->"89cbf8de-be64-4cf8-ace4-c8eb5d6181b5"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{
|
|
RowBox[{"mO", "=", "16"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"mC", "=", "12"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"a", "=", "4"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"A1", "=", "0"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"A2", "=", "1"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Delta]1", "=", "0"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Delta]2", "=", "0"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"k", "=", "1"}], ";"}]}], "Input",
|
|
CellChangeTimes->{{3.896466310891921*^9, 3.896466369754278*^9}, {
|
|
3.896466459631918*^9, 3.8964664778955297`*^9}, {3.896466517753235*^9,
|
|
3.896466519406209*^9}, {3.8964665535896883`*^9, 3.896466601268578*^9}},
|
|
CellLabel->
|
|
"In[215]:=",ExpressionUUID->"7962cabd-1925-4615-973e-ce48b024238d"],
|
|
|
|
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"}], "}"}], ",", "1"}],
|
|
"]"}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"Red", ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"x2", "[", "t", "]"}], ",", "0"}], "}"}], ",", "1"}],
|
|
"]"}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"Orange", ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"x3", "[", "t", "]"}], ",", "0"}], "}"}], ",", "1"}],
|
|
"]"}]}], "}"}]}], "}"}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8964663988351297`*^9, 3.896466419465828*^9},
|
|
3.896466491873114*^9, 3.896466535120387*^9, {3.896466565903591*^9,
|
|
3.896466566006496*^9}},
|
|
CellLabel->
|
|
"In[198]:=",ExpressionUUID->"63923443-a520-4e9f-b88d-7688acffd857"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`t$$ = 33.94275665283203, 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., {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}, 1]}, {Red,
|
|
Disk[{
|
|
$CellContext`x2[$CellContext`t$$], 0}, 1]}, {Orange,
|
|
Disk[{
|
|
$CellContext`x3[$CellContext`t$$], 0}, 1]}}],
|
|
"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., {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.89646642616704*^9, 3.896466451885272*^9},
|
|
3.896466492422591*^9, 3.8964665352759647`*^9, 3.896466566244445*^9},
|
|
CellLabel->
|
|
"Out[198]=",ExpressionUUID->"6df792b1-9d7d-4206-bbf7-56375dd92800"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData["Quit"], "Input",
|
|
CellChangeTimes->{{3.896981875196876*^9, 3.8969818757803297`*^9}},
|
|
CellLabel->"In[56]:=",ExpressionUUID->"a1e50851-356a-46af-8eb3-95b619cbc946"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"tab", ":=",
|
|
RowBox[{"Table", "[",
|
|
RowBox[{
|
|
RowBox[{"x", "[",
|
|
RowBox[{"a", ",", "t"}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.896967540636846*^9, 3.8969675634013147`*^9}, {
|
|
3.8969676264622393`*^9, 3.896967627893523*^9}, 3.896967659403421*^9},
|
|
CellLabel->"In[1]:=",ExpressionUUID->"06067cb5-9bd2-479e-8b80-5b1390f34d40"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["tab"], "Input",
|
|
CellChangeTimes->{{3.896980374163293*^9, 3.8969803744426823`*^9}},
|
|
CellLabel->"In[2]:=",ExpressionUUID->"ac56e44d-a928-4c99-9436-f0ab9506bc09"],
|
|
|
|
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.896980376017908*^9, 3.897053558413403*^9,
|
|
3.897056117617526*^9},
|
|
CellLabel->"Out[2]=",ExpressionUUID->"a8f095b2-e768-403f-8884-289d73c72b9b"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
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]",
|
|
"]"}]], "Input",
|
|
CellChangeTimes->{{3.89696758283634*^9, 3.89696765001157*^9},
|
|
3.896970145766357*^9, 3.896980476623335*^9},
|
|
CellLabel->"In[3]:=",ExpressionUUID->"4051fdbf-3e6b-480f-b3dc-60463a93ab8e"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["tab"], "Input",
|
|
CellChangeTimes->{{3.896980436880673*^9, 3.896980437183235*^9}},
|
|
CellLabel->"In[4]:=",ExpressionUUID->"33c56382-adbe-4d41-848f-ef936e210a0d"],
|
|
|
|
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.896980438149284*^9, 3.896980503616301*^9},
|
|
3.897053595399106*^9, 3.897056149145746*^9},
|
|
CellLabel->"Out[4]=",ExpressionUUID->"a3fe5894-97ac-445e-a145-5bf7e95e43a8"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]_", "]"}], ":=", " ",
|
|
RowBox[{"2", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"\[Kappa]", " ",
|
|
RowBox[{"b", "/", "2"}]}], "]"}]}]}], " ", ";"}]], "Input",
|
|
CellChangeTimes->{{3.896967760672062*^9, 3.8969677970916986`*^9}},
|
|
CellLabel->"In[5]:=",ExpressionUUID->"4a6c8d23-d41d-47d4-ba77-51fb3e36ea0a"],
|
|
|
|
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]"}],
|
|
"]"}]}]}], ";"}]], "Input",
|
|
CellChangeTimes->{{3.8969677035368767`*^9, 3.896967758139599*^9}, {
|
|
3.8969678050130577`*^9, 3.896967810203188*^9}, {3.897053650348673*^9,
|
|
3.897053650603285*^9}, 3.897057033734136*^9},
|
|
CellLabel->"In[49]:=",ExpressionUUID->"f09094eb-ca3f-41a8-a85f-022b4943bee4"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["tab"], "Input",
|
|
CellChangeTimes->{{3.896967812224346*^9, 3.896967813497026*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"9a639527-d595-4a40-95cb-e18b63b71f54"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], ",",
|
|
RowBox[{"b", "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"3", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"4", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"5", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"6", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"7", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"9", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}]}],
|
|
"}"}]], "Output",
|
|
CellChangeTimes->{3.896967814143569*^9, 3.8969805507239428`*^9,
|
|
3.897053654418146*^9, 3.897056214841854*^9},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"85b74624-2bbd-4f60-8ea7-0e4d4830a185"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"tabp", "=",
|
|
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"}], "}"}]}], "]"}]}], "]"}]}]], "Input",\
|
|
|
|
CellChangeTimes->{{3.896967850134481*^9, 3.896967874846192*^9}, {
|
|
3.896980562877956*^9, 3.8969805835102673`*^9}},
|
|
CellLabel->"In[8]:=",ExpressionUUID->"88f7a14b-13fb-480f-bdda-9db721358a7d"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
TemplateBox[<|"color" -> RGBColor[1, 0.5, 0]|>,
|
|
"RGBColorSwatchTemplate"], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"b", "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"2", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"3", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"4", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"5", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"6", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"7", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"8", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"9", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}], ",",
|
|
"0"}], "}"}], ",", "1"}], "]"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{
|
|
3.896967876761869*^9, 3.896970178868383*^9, 3.8969702905398617`*^9, {
|
|
3.896980574300589*^9, 3.896980583928383*^9}, 3.89705366102934*^9,
|
|
3.897056219496977*^9},
|
|
CellLabel->"Out[8]=",ExpressionUUID->"7c3fcd2c-1039-4b08-b990-4b038231e129"]
|
|
}, Open ]],
|
|
|
|
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[{"b", "=", "3"}], ";"}]}], "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},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[{"{",
|
|
RowBox[{
|
|
TemplateBox[<|"color" -> RGBColor[1, 0.5, 0]|>,
|
|
"RGBColorSwatchTemplate"], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"b", "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"2", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"3", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"4", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"5", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"6", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"7", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"8", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"9", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "-",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}]}],
|
|
",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}]}], "}"}], "]"}],
|
|
",",
|
|
RowBox[{"{",
|
|
RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.896967892226446*^9, 3.896967935843163*^9}, {
|
|
3.8969679795988398`*^9, 3.8969679890490627`*^9}, {3.896968060196245*^9,
|
|
3.896968061299532*^9}, {3.896970300581212*^9, 3.896970334254909*^9}, {
|
|
3.8969703664491673`*^9, 3.896970381594178*^9}, {3.896980630159478*^9,
|
|
3.896980700588657*^9}, {3.89698078802908*^9, 3.8969807890104227`*^9}, {
|
|
3.896980855036306*^9, 3.896980855317944*^9}, 3.8969809478217688`*^9, {
|
|
3.8970536773325253`*^9, 3.89705367848533*^9}},
|
|
CellLabel->"In[50]:=",ExpressionUUID->"ae2b648e-9fdd-421d-8563-6e8cc77a7288"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`t$$ = 49.716820031774205`, 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}}], {
|
|
RGBColor[1, 0.5, 0],
|
|
|
|
Disk[{$CellContext`A
|
|
Cos[$CellContext`\[Delta] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{$CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + $CellContext`b $CellContext`\[Kappa] - \
|
|
((2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{2 $CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + (
|
|
2 $CellContext`b) $CellContext`\[Kappa] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{3 $CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + (
|
|
3 $CellContext`b) $CellContext`\[Kappa] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{4 $CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + (
|
|
4 $CellContext`b) $CellContext`\[Kappa] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{5 $CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + (
|
|
5 $CellContext`b) $CellContext`\[Kappa] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{6 $CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + (
|
|
6 $CellContext`b) $CellContext`\[Kappa] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{7 $CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + (
|
|
7 $CellContext`b) $CellContext`\[Kappa] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{8 $CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + (
|
|
8 $CellContext`b) $CellContext`\[Kappa] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1],
|
|
|
|
Disk[{9 $CellContext`b + $CellContext`A
|
|
Cos[$CellContext`\[Delta] + (
|
|
9 $CellContext`b) $CellContext`\[Kappa] - ((
|
|
2 $CellContext`t$$) $CellContext`\[Omega]0)
|
|
Sin[$CellContext`b ($CellContext`\[Kappa]/2)]], 0}, 1]}}],
|
|
"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.8970536871348352`*^9,
|
|
3.897056246284544*^9, 3.897056631208324*^9, {3.897056662560657*^9,
|
|
3.897056683906067*^9}, 3.897056980315922*^9, 3.897057042653612*^9},
|
|
CellLabel->"Out[50]=",ExpressionUUID->"d389c265-bf38-4a2b-9cea-fdb3a3d46619"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData["Quit"], "Input",
|
|
CellChangeTimes->{{3.8969818947643843`*^9, 3.8969818952997837`*^9}},
|
|
CellLabel->"In[29]:=",ExpressionUUID->"c333ccc6-362e-4ffd-b0c2-ade6f08e9dd2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"tab", ":=",
|
|
RowBox[{"Table", "[",
|
|
RowBox[{
|
|
RowBox[{"x", "[",
|
|
RowBox[{"a", ",", "t"}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"a", ",", "0", ",", "9"}], "}"}]}], "]"}]}]], "Input",
|
|
CellChangeTimes->{{3.896967540636846*^9, 3.8969675634013147`*^9}, {
|
|
3.8969676264622393`*^9, 3.896967627893523*^9}, 3.896967659403421*^9},
|
|
CellLabel->"In[1]:=",ExpressionUUID->"a2ba17f4-a3a7-4550-8563-a979150a963e"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["tab"], "Input",
|
|
CellChangeTimes->{{3.896980374163293*^9, 3.8969803744426823`*^9}},
|
|
CellLabel->"In[2]:=",ExpressionUUID->"a747cc67-ae8b-416a-b031-1961c7df8ea3"],
|
|
|
|
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.896980376017908*^9, 3.896981923084919*^9,
|
|
3.896983959169297*^9, 3.897058311100162*^9, 3.897059112557844*^9},
|
|
CellLabel->"Out[2]=",ExpressionUUID->"aefdd241-fce2-4d87-8123-94e1b96fe72a"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
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]",
|
|
"]"}]], "Input",
|
|
CellChangeTimes->{{3.89696758283634*^9, 3.89696765001157*^9},
|
|
3.896970145766357*^9, 3.896980476623335*^9},
|
|
CellLabel->"In[3]:=",ExpressionUUID->"9dc85bc9-1a41-4776-88c9-8de1071d5c22"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["tab"], "Input",
|
|
CellChangeTimes->{{3.896980436880673*^9, 3.896980437183235*^9}},
|
|
CellLabel->"In[4]:=",ExpressionUUID->"d7ad13c5-dbc3-4eb4-bb87-e65c5bee11a6"],
|
|
|
|
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.896980438149284*^9, 3.896980503616301*^9},
|
|
3.8969819312944*^9, 3.896983962048533*^9, 3.8970583151539288`*^9,
|
|
3.897059116576997*^9},
|
|
CellLabel->"Out[4]=",ExpressionUUID->"4d03953b-bdc5-42ec-b266-5670f23ba589"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]_", "]"}], ":=", " ",
|
|
RowBox[{"2", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"\[Kappa]", " ",
|
|
RowBox[{"b", "/", "2"}]}], "]"}]}]}], " ", ";"}]], "Input",
|
|
CellChangeTimes->{{3.896967760672062*^9, 3.8969677970916986`*^9}},
|
|
CellLabel->"In[5]:=",ExpressionUUID->"098c8de5-fd8e-4930-b6c8-59465ea214b4"],
|
|
|
|
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]"}],
|
|
"]"}]}], ")"}]}]}], ";"}]], "Input",
|
|
CellChangeTimes->{{3.8969677035368767`*^9, 3.896967758139599*^9}, {
|
|
3.8969678050130577`*^9, 3.896967810203188*^9}, {3.897058319600478*^9,
|
|
3.897058329048204*^9}, {3.89705912302897*^9, 3.897059139764065*^9}},
|
|
CellLabel->"In[6]:=",ExpressionUUID->"c1c67e6f-2166-4b2c-ad1e-2afa8fcb15a3"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData["tab"], "Input",
|
|
CellChangeTimes->{{3.896967812224346*^9, 3.896967813497026*^9}},
|
|
CellLabel->"In[7]:=",ExpressionUUID->"bbff060f-9685-4e2f-be9c-7701fb4d8cc2"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",",
|
|
RowBox[{"b", "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"2", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"3", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"4", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"5", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"6", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"7", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"8", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"9", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.896967814143569*^9, 3.8969805507239428`*^9,
|
|
3.896981937140533*^9, 3.896983968758008*^9, 3.897058342698185*^9,
|
|
3.897059145697693*^9},
|
|
CellLabel->"Out[7]=",ExpressionUUID->"f0f028fe-e799-4c0b-8e78-7b5d13c6ef50"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"tabp", "=",
|
|
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"}], "}"}]}], "]"}]}], "]"}]}]], "Input",\
|
|
|
|
CellChangeTimes->{{3.896967850134481*^9, 3.896967874846192*^9}, {
|
|
3.896980562877956*^9, 3.8969805835102673`*^9}},
|
|
CellLabel->"In[8]:=",ExpressionUUID->"778c1995-6484-41ee-9250-54db059ba188"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
TemplateBox[<|"color" -> RGBColor[1, 0.5, 0]|>,
|
|
"RGBColorSwatchTemplate"], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"b", "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"2", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"3", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"4", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"5", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"6", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"7", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"8", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"9", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}], "-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}]], "Output",\
|
|
|
|
CellChangeTimes->{
|
|
3.896967876761869*^9, 3.896970178868383*^9, 3.8969702905398617`*^9, {
|
|
3.896980574300589*^9, 3.896980583928383*^9}, 3.896981942943769*^9,
|
|
3.896983972426125*^9, 3.896984060140828*^9, 3.897058344658846*^9,
|
|
3.897059151729889*^9},
|
|
CellLabel->"Out[8]=",ExpressionUUID->"9d6ba0ed-099d-40bd-a59a-5f88602a0f7c"]
|
|
}, Open ]],
|
|
|
|
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[{"b", "=", "3"}], ";"}]}], "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}},
|
|
CellLabel->"In[38]:=",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[{"{",
|
|
RowBox[{
|
|
TemplateBox[<|"color" -> RGBColor[1, 0.5, 0]|>,
|
|
"RGBColorSwatchTemplate"], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"b", "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"2", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"2", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"3", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"3", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"4", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"4", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"5", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"5", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"6", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"6", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"7", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"7", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"8", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"8", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",",
|
|
RowBox[{"Disk", "[",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"9", " ", "b"}], "+",
|
|
RowBox[{"A", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "-",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}],
|
|
"-",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"\[Delta]", "+",
|
|
RowBox[{"9", " ", "b", " ", "\[Kappa]"}], "+",
|
|
RowBox[{"2", " ", "t", " ", "\[Omega]0", " ",
|
|
RowBox[{"Sin", "[",
|
|
FractionBox[
|
|
RowBox[{"b", " ", "\[Kappa]"}], "2"], "]"}]}]}], "]"}]}],
|
|
")"}]}]}], ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}]}],
|
|
"}"}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.896967892226446*^9, 3.896967935843163*^9}, {
|
|
3.8969679795988398`*^9, 3.8969679890490627`*^9}, {3.896968060196245*^9,
|
|
3.896968061299532*^9}, {3.896970300581212*^9, 3.896970334254909*^9}, {
|
|
3.8969703664491673`*^9, 3.896970381594178*^9}, {3.896980630159478*^9,
|
|
3.896980700588657*^9}, {3.89698078802908*^9, 3.8969807890104227`*^9}, {
|
|
3.896980855036306*^9, 3.896980855317944*^9}, 3.8969809478217688`*^9, {
|
|
3.896982011269656*^9, 3.8969820405096617`*^9}, {3.896982080483683*^9,
|
|
3.896982100747919*^9}, {3.8969839901226873`*^9, 3.896984027202508*^9},
|
|
3.896984068060305*^9, {3.897058357226432*^9, 3.897058358996797*^9},
|
|
3.897058437649188*^9, {3.897059165948509*^9, 3.897059166869648*^9}},
|
|
CellLabel->"In[37]:=",ExpressionUUID->"9aab4d60-2971-4ed3-9cd9-2cb167c8e2aa"],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
StyleBox[
|
|
DynamicModuleBox[{$CellContext`t$$ = 4.238409996032715, 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}}], {
|
|
RGBColor[1, 0.5, 0],
|
|
Disk[{0, 0}, 1],
|
|
|
|
Disk[{$CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] - $CellContext`b \
|
|
$CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] + $CellContext`b \
|
|
$CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1],
|
|
|
|
Disk[{2 $CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] -
|
|
2 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] +
|
|
2 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1],
|
|
|
|
Disk[{3 $CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] -
|
|
3 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] +
|
|
3 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1],
|
|
|
|
Disk[{4 $CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] -
|
|
4 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] +
|
|
4 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1],
|
|
|
|
Disk[{5 $CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] -
|
|
5 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] +
|
|
5 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1],
|
|
|
|
Disk[{6 $CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] -
|
|
6 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] +
|
|
6 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1],
|
|
|
|
Disk[{7 $CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] -
|
|
7 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] +
|
|
7 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1],
|
|
|
|
Disk[{8 $CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] -
|
|
8 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] +
|
|
8 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1],
|
|
|
|
Disk[{9 $CellContext`b + $CellContext`A (
|
|
Cos[$CellContext`\[Delta] -
|
|
9 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]] -
|
|
Cos[$CellContext`\[Delta] +
|
|
9 $CellContext`b $CellContext`\[Kappa] +
|
|
2 $CellContext`t$$ $CellContext`\[Omega]0
|
|
Sin[$CellContext`b $CellContext`\[Kappa]/2]]), 0}, 1]}}],
|
|
"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}},
|
|
CellLabel->"Out[37]=",ExpressionUUID->"1cd0a908-6910-4678-8daa-eb36615892e2"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[", "\[Kappa]", "]"}]], "Input",
|
|
CellChangeTimes->{{3.8970571507458553`*^9, 3.897057154131201*^9}},
|
|
CellLabel->"In[51]:=",ExpressionUUID->"fb8a053c-12eb-46e6-9122-e3601704c1ef"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[Pi]", "/", "b"}]], "Input",
|
|
CellChangeTimes->{{3.8970571908957567`*^9, 3.897057192663074*^9}},
|
|
CellLabel->"In[54]:=",ExpressionUUID->"2e0a4e46-fc9a-458b-8408-319037f06f58"],
|
|
|
|
Cell[BoxData[
|
|
FractionBox["\[Pi]", "3"]], "Output",
|
|
CellChangeTimes->{3.897057193367929*^9},
|
|
CellLabel->"Out[54]=",ExpressionUUID->"a43980f0-8b13-4ea0-82e7-8da47cedfa22"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Plot", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"\[Omega]", "[", "\[Kappa]", "]"}], "/", "\[Kappa]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"\[Kappa]", ",",
|
|
RowBox[{
|
|
RowBox[{"-", "\[Pi]"}], "/", "b"}], ",",
|
|
RowBox[{"\[Pi]", "/", "b"}]}], "}"}]}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8970571451003227`*^9, 3.8970572035837*^9}},
|
|
CellLabel->"In[55]:=",ExpressionUUID->"e5815e8c-d63c-4132-adbe-188dbd89b906"],
|
|
|
|
Cell[BoxData[
|
|
GraphicsBox[{{{}, {},
|
|
TagBox[
|
|
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
|
|
1.], LineBox[CompressedData["
|
|
1:eJwV0Xk8FHgfB/DqybE9GuX6OTcm0qESbaJ99CNRKbk9jqRyVa4Ku+QYxSKb
|
|
Sq6UHCMh4RG5fc3EYzRoxop1zbqSI5lIjBz72z++r+/r/d/n9fmoXPS1dNuw
|
|
bt26KHL//H7NMg1LBh+0Ux9XseIpOGS7VWZJPR8+Se34mviQgpVkZiXFa/lw
|
|
1uhcp0sqBTt/3/+d/ZoPr8bUoxayKHio6UXL8UI+uH6KpSuXU/CYA91dN4UP
|
|
3Xvdiy70UfBMZEKmsjcfRG3UOtPVxfGGHj+pGVk+SJcuqs7Xi+NkPzO5xsbP
|
|
YOl+S5ZN24Ir1bcP9vlOQ4N1r0iF5Facu3o4ma7yCTa6vz06n7EV9xwz9EYV
|
|
k7CUE5ZwU1sCP4l4JV/nOgH2NjSRyEoJnLNXdoLy7SOwDXeyjI5J4iBBXe6W
|
|
+DFItrU5WdAkiXl1bD0j/Q/gYCHU2qorhWP4rTPbO0bA7dC6dO//SWGmwqGb
|
|
P4UNQ4tcgMmUvDRucR+c/6Y5BHuKN+WZhkjjXXiZ2hL/Fyg3Pw6b4UnjQbqI
|
|
iOinfpCzqh7dc1AGq4wKNDK29MLTaJEHkzEy+PslnwPJht0Q3oaHd3bK4PnO
|
|
0mF+TicEafx4TVwS4SAq7z29nQs/rLfX3XcWYX9xZ02xRi6s8Fm3V4l9lgfu
|
|
+FdxIUAn3LbdHGHXroGjx3O48OfOzEQvS4TN7gzkjwVxYbcu7zrdBmHqbH/o
|
|
LjUulFsXlSw5Isxm9KkV3+TABr+MFTNPhPWYpVP+Fu3QZ2RiejccYak/GBdp
|
|
eu3Q2u5lakZDeHqE0xO3vR2y947XUiIQzhSaac6ebwNvWZi7ewth4ZN7cjiP
|
|
2sC/QagkKgph7ju6k8ZwKyyEsh0d4hD2HEhsG7nOhtcpaidSkxFOWgwstkxk
|
|
QUwbq9n1BcJeCsFqLaEs6I2v27hGbKgf+vioBwuutTu8Ti1E+PPt29Eaeix4
|
|
qxTwy9uXCBuL3z8vPNgMsymBfuolCC+q5YtX72mG14Mah5vLEHay6vNVedME
|
|
QR4pc+l1CGsF8j6kFDbB78qPq3bUIyz6aMiRktwEdXJRc0XE5byPJt89m8Dy
|
|
3/PMOkCYcuXrtveUJnCdzH3XyUAYaJs5MQ6NwG0IeDzeRPosOqrJ/8IEA0+x
|
|
7tw2hCPM899M9DPBCwYkZdoRHpyVsBtpZsIWZ42uSOIMnbHQrnQmfLQ9MOXy
|
|
DmFFxu/s2pNM0PG/YivJRVims8c9NosB4h927bvQifAPSzfSqRYN0PGXKSuz
|
|
l/T3ZEBT8ecGYJ0983JdH8IsfZNGafUGiC+2Qi7EYiI/dW1dAih0vhCs1E/2
|
|
kL91jWcB4GOrHJIwgLDgqGLeL+vroUhb76rbIMkXZy5d4FID6R8PDhV9QNhD
|
|
37BBQrsGNmfIUoXHSN987as3hWqAQ5njOhEv2yDG6YJqoBuHhol+RFhWmec1
|
|
M1cF/6+jbbIfR9i87GrjwehKGP6v2hRvEuFu93O+6faVcGuxUW7vFMLOcmfl
|
|
hTUq4fIAtSKY2CtMy6+bUwF0bTF9qU8Ix5wQKATLV0B4km4InkaY0f/bDXhZ
|
|
DmalOhWhMwifuPfrjztp5TD9RI/DJOYYXGm5b1kO0vdb7ET4CPNyz2y7uFAG
|
|
Ab3hpfHES35S7I0GZXDBbSUp+QvZXyibeqqzFLT4bIm4OYSPOwbT8+eLQbkm
|
|
mCu8gPCv9Qs+0ZnFYLdj2eEQcYFKgJ6baTHY1F5xcyOmjPtylbOKoNpDdIVB
|
|
3OXvtpZy+iVEgrROwCLZJ97c8Td6AYwrir5/I0A47UvbDlezApCaeug1Rdxq
|
|
bTprIMiHh8JzkRJLCGsqGMeumOWDgbXa4fPEgudHKvyXnkNHmlbeLPEdxg7J
|
|
SxbP4MUU4+X6ZYRrVXN4eDkHFnoHLFSIP0erFPz4PAfGFisCMbGlmaJB7zId
|
|
NLZlG4YSK/Rt9bXIy4bWsn0jfGIz/Xt6+62y4WKK4l2xFYRpWWLCm1ezQHYI
|
|
KtSJRz1E0llWWWCXSb3nRGw/IUgKX82AvKT/GDcQ1xd/1ThinQEudjXz3cTU
|
|
wJk33/KfQtX4mNoM8eSGD1+8bdKBJWokqriKcIgi54xTYRrs3rfW6Us8OPx2
|
|
FG1IA7sjnbG3iY3ym27+YfcIqkvMIZl486Ga/FP/SoWmpZ8La4ifns0V0nVI
|
|
gsOqnLtrxOPPDBJPv0oEdseCgLKGsPZyP9VFLBE2VZdPKRGz8iRxdH0CrG2d
|
|
Pa9HLLFW1J6GEsAj1HfYhPiczalzRX4PYEgmYtKaeHZ9RPB76n2oFDjHeRMH
|
|
lRyW6FiIhymX3apBxJRzvvsF+Xeh60CMYSSx7uv+yyaUOHgXIhB/RNx+UTLa
|
|
pyEWuDpikE3sKn4qJ+l6DATziudeEMd7VvBGuqLga2bedC3xdunP3zfFRgJP
|
|
eaW0kbiSoSqndeQ2ZFsPrbCJz/g4HrKfjgBDgXV7B/GwfIIVLYMGGhw71R7i
|
|
z/EPhszoYaCZMbHGI5YdX1VIFwmBSM1NF0aJDQ28bKeuBgHTsspkgtg7ree+
|
|
LicQhv/89mqaOGXOmB190B9OpzGffSFmnC4T6kq9Bo3XFZXmibtMj9FOLHmD
|
|
v+FG+UXiPatK86NMT+BPBz1ZIg4vWbwcEXcJ1JxDc5aJnzfl1h3Jc4IbNIrW
|
|
KrH5bqfn/rqWkGC89/ga8Zuv8XyX4eOwsS239h//DQZbRsI=
|
|
"]], LineBox[CompressedData["
|
|
1:eJwV1Hk01VsbB3CZinKO+Zepa7q4htRL8kae3VuGSpMiY+lUosF0NFyzKyeX
|
|
QhkTUhlDmU7GpEzHEBkyZMiQseKHkvF4d3/stddnrb32etZ6vs8jR3Mxu8jJ
|
|
wcHBwOf3XfUjjLQfNgTu92nl6+sE0nLZcmH3oj3Us4VvrWEPlO+cidd0gKMO
|
|
gdkr2CH8pz3ZDlegLTjAYQlbSr2Cc+cxV9DwEkhbwJ5tO84annKHbAvlK/PY
|
|
tX+P3ItiXId53RbmDHaC7I2TRvK3QOwAD+MrtnvdJonF157wT1J97xi2ifOj
|
|
gUwrHxCiSxcNYW8T255i89MP1sk1og972W6wkGESANOHndkfsT9w0z11vwSC
|
|
ns+qDQtbz1LfTug/QdD6QbK9EjstiwdN+TGgY4XVUoztbRbHkyD1L/Rydlql
|
|
Y4+nnpvwcAoBHb9d44nYZkuqjUeKQoEporQcia2c/Dpi3SwMNi+U5fpiP5hn
|
|
0LuTw+HCRtopOravgkqW5c0I6CiK97mEPXlj9t7OmvtwIKfG/ij2G5nbJ0fs
|
|
o8BwhHJZ/Pf/gi6FS2LR8GW8bYoHe4zTWkywMRo2VQb1/mATaMuEZpf+rlhg
|
|
tJVuacW2zO+1juGLB4rqrRf/YH9NqS3LrogHxUOsF9ewfWPzpKvoj0A0S+AP
|
|
S+wU7zsDM/0JUNHjdUwNmzTSoh3MfwxqYxxkwxqB3kmHD73USobAATHXPOzN
|
|
MdzCemHJoMOvYh+LnRQ8435i/xO46WgScQ67+lqNtm/OU5AKe7hjZpVAgrpu
|
|
xV0BqZDZH+k+s0Ig67yxCVpfKqjbC8w3YT9TtZWY1kkD2ZC4kUxsHRljT+5v
|
|
aSBVOylKw7bllNHfaZEBV5ufFjcuEyijifUmRDULJMM/8dxeItCcoQEpFpQF
|
|
Ui4awZbYem8KZJ98zoIhn2xPdezmvKSAoqhskEvSyW1bJNCPGI/9X9g5kPp3
|
|
rt1W7OQdESNJTrkgsmmlKngB53l6DQ1E5oIpTLacxq7NupIkU5EL+ev5Z5Sw
|
|
vyoZWyUI50HBxUHudz9/18tufliWB7JNnfT5HwRq4rtaGiVQAG4HhvoN5gl0
|
|
tq6H6NhdAH46V7fyYs/dNr4uQiuAzu+zH5vmCERwKOx48KoAdkgv9Fhi0xZ6
|
|
UsPPFsK7OzK8V2YJtDhsfD8kjwka6t3kzRkChSYzp+t7mVBJFbfdjb3tjIIp
|
|
H+8riLzrfmhhmkD7e9i8wdav4P54RK47dlgL0zuIqwjE9dKfXvxOIMVyBUd/
|
|
82KwUrwsq/2VQMei1w1uLJXCwlxRFH2MQJKjR7ci5TLgSRt/Lo39RTtpls+8
|
|
DNTWGrbXjBLoVod+SmJuGeiUlPmJYieLePLVXCqH6wW5RtkjOD/3f7SLdL6G
|
|
xtLTVysHCXSwzqPQ0qoS1lTstLw+EWi7i/STva6VEP64aaMwtihRfU/+TiVo
|
|
szwOZfTg/eEgculbYSVw3QyQbO/G886bL+Ev+Bb2JQqMyXURKN5wxje97i1o
|
|
7xHUTGnH/ahyOriwqwr2OG3I0msiUIeVzG5X0ypw3pB2/10jgcpnPihO0apg
|
|
seXcNxPsu1K6HAPhVTBxQot9sgHXQ+ctqpmsAvWVpsjzLAK5yj9TjE6shl3e
|
|
DqGO1Tgv/n3rWjy10G/wppWvnEDsvcdeuXWwQKPHcfl5JoHsTiUwHCdZsEV+
|
|
JlICu/zypMVZNgueNbEL72QQyCs28JepSj0wz7fco6XjfpJFuire9XDDvCFe
|
|
OBXn4Zls2YBCA+jRepVsk/F+4Zt7c5jeCHzHpzWiY/C++hhV/6dwM8QVKO5J
|
|
DiDQYWZb15BKM0zkzAoM++N8RgmOJUIzhPazzBWwy0/e5RS/1gxipq/2pfji
|
|
eWkN1ONlNYNmuVvoYy8C+b93zxnzaQGu1eTvXtcJFEfLYLV7fIBfUKfc5Egg
|
|
Y2tGdtRgK4zyv7BrOkKgIEv3uvw7HfBkM100VYxAqkQfl5tcF9Q8GAxw7RJH
|
|
Rktn2J3zPaC/ztcldlcc7ZsSMu2J7gObYz/lIw3EUT67/3Sg62dQaVccHRsW
|
|
QxuErvVeEBiC1jk26yRDDPVzPpfqthmGoV8aBXv/FEMejPk9j2tHYLUhVUqS
|
|
KYq8hD4GakuMAiOXMmhsJIr2bq/KkgkeA/Wqdr6aOhGkpeb6xYIch4On3/bR
|
|
DEVQnCbT6AyaBKleF/V/a4VRSQ1vcEn2FPBUlfkn7xZGB8+Tc8Mc3+Ctj06r
|
|
d44QEhiKc7Y9+h0sbAOk5+SE0F3ySP1fxdPwV8/xS4cYguh14Pu0YW4Scrie
|
|
mlQPU5H7ttELHRtJULbQoAf2U5FSyap8LT8Jp2xMtv2vm4rCptUeZwqSoFZG
|
|
/Hr9norsrUJiXaVJ8HO9XfKymIq4NY2D2VokpJVOFHqFUZHpp0onyfMkuLWf
|
|
kCv6LxVxXO9W3uJAQonFwxYHbSpiUsnRNUcSwKeBR1yTirYZ/kEbcibBgquT
|
|
n65IReRLH+sMT/x+eZOvMpWKooL2HNZ5QAJf5DN9zy8UZCJrxqcSTcJEukGQ
|
|
/GcKWit1qpOIIyH27A2rhh4KciDj9q8lkvBzNSN1awsF6dr80qvOJME8Pa79
|
|
ZQkFfftJWWZmkyDpGuN3qpCCnkQoFae/xPXWbS5ZfEFB/LXm2qFMEmr7D32E
|
|
FAqqsL82511MQk9gaPFwEgXRV27nOpeRkMDYqRr0kIJUYhKc7StIyKTdUlWO
|
|
oqC+HYXqZm9J0Ip7VMIKo6D/A8ZGCLk=
|
|
"]]},
|
|
Annotation[#, "Charting`Private`Tag$5849#1"]& ], {}}, {}},
|
|
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
|
Axes->{True, True},
|
|
AxesLabel->{None, None},
|
|
AxesOrigin->{0, 3.819718790112378},
|
|
DisplayFunction->Identity,
|
|
Frame->{{False, False}, {False, False}},
|
|
FrameLabel->{{None, None}, {None, None}},
|
|
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
|
GridLines->{None, None},
|
|
GridLinesStyle->Directive[
|
|
GrayLevel[0.5, 0.4]],
|
|
ImagePadding->All,
|
|
Method->{
|
|
"DefaultBoundaryStyle" -> Automatic,
|
|
"DefaultGraphicsInteraction" -> {
|
|
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
|
|
"Effects" -> {
|
|
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
|
|
"Droplines" -> {
|
|
"freeformCursorMode" -> True,
|
|
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
|
|
AbsolutePointSize[6], "ScalingFunctions" -> None,
|
|
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
|
|
(Identity[#]& )[
|
|
Part[#, 1]],
|
|
(Identity[#]& )[
|
|
Part[#, 2]]}& )}},
|
|
PlotRange->
|
|
NCache[{{Rational[-1, 3] Pi, Rational[1, 3] Pi}, {3.8197187901123697`,
|
|
5.999998996430126}}, {{-1.0471975511965976`, 1.0471975511965976`}, {
|
|
3.8197187901123697`, 5.999998996430126}}],
|
|
PlotRangeClipping->True,
|
|
PlotRangePadding->{{
|
|
Scaled[0.02],
|
|
Scaled[0.02]}, {
|
|
Scaled[0.05],
|
|
Scaled[0.05]}},
|
|
Ticks->{Automatic, Automatic}]], "Output",
|
|
CellChangeTimes->{{3.897057155884897*^9, 3.897057204551734*^9}},
|
|
CellLabel->"Out[55]=",ExpressionUUID->"6f6ada20-c267-468c-99b8-dc9e8e73b05a"]
|
|
}, Open ]],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Clear", "[",
|
|
RowBox[{"b", ",", "x"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.897065888959359*^9, 3.8970658905664186`*^9}, {
|
|
3.897066004341474*^9, 3.897066004813036*^9}},
|
|
CellLabel->"In[55]:=",ExpressionUUID->"1e348821-12b6-4dbb-b5cd-4f7e2e3df661"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"Series", "[",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"x", "+", "b"}], ",", "y"}], "}"}], "/",
|
|
RowBox[{"Sqrt", "[",
|
|
RowBox[{
|
|
RowBox[{"b", "^", "2"}], "+",
|
|
RowBox[{"2", "b", " ", "x"}], "+",
|
|
RowBox[{"x", "^", "2"}], "+",
|
|
RowBox[{"y", "^", "2"}]}], "]"}]}],
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"Sqrt", "[",
|
|
RowBox[{
|
|
RowBox[{"b", "^", "2"}], "+",
|
|
RowBox[{"2", "b", " ", "x"}], "+",
|
|
RowBox[{"x", "^", "2"}], "+",
|
|
RowBox[{"y", "^", "2"}]}], "]"}], "-", "b"}], ")"}]}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"y", ",", "0", ",", "2"}], "}"}]}], "]"}], ")"}], "//",
|
|
"PowerExpand"}], "//", "Expand"}], "//", "Normal"}], "//",
|
|
"Expand"}]], "Input",
|
|
CellChangeTimes->{{3.89706579254504*^9, 3.897065865449572*^9}, {
|
|
3.897065896926681*^9, 3.897065905806693*^9}, {3.8970660138956127`*^9,
|
|
3.897066126685153*^9}, {3.897066354281601*^9, 3.8970663550252028`*^9}},
|
|
CellLabel->"In[66]:=",ExpressionUUID->"7c43a354-c26c-462d-8b7b-0a73fe9e4217"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"x", "+",
|
|
FractionBox[
|
|
SuperscriptBox["y", "2"],
|
|
RowBox[{"2", " ", "b"}]], "-",
|
|
FractionBox[
|
|
RowBox[{"x", " ",
|
|
SuperscriptBox["y", "2"]}],
|
|
SuperscriptBox["b", "2"]], "+",
|
|
FractionBox[
|
|
RowBox[{"3", " ",
|
|
SuperscriptBox["x", "2"], " ",
|
|
SuperscriptBox["y", "2"]}],
|
|
RowBox[{"2", " ",
|
|
SuperscriptBox["b", "3"]}]]}], ",",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"x", " ", "y"}], "b"], "-",
|
|
FractionBox[
|
|
RowBox[{
|
|
SuperscriptBox["x", "2"], " ", "y"}],
|
|
SuperscriptBox["b", "2"]]}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.897066046893485*^9, 3.897066060877616*^9}, {
|
|
3.8970661047759657`*^9, 3.897066127196508*^9}, 3.897066399529684*^9},
|
|
CellLabel->"Out[66]=",ExpressionUUID->"c402c2cc-27eb-4b5b-ab52-6079cb82d866"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"Series", "[",
|
|
RowBox[{
|
|
RowBox[{"Sqrt", "[",
|
|
RowBox[{
|
|
RowBox[{"b", "^", "2"}], "+",
|
|
RowBox[{"2", "b", " ", "\[Epsilon]", " ", "x"}], "+",
|
|
RowBox[{
|
|
RowBox[{"\[Epsilon]", "^", "2"}], " ",
|
|
RowBox[{"x", "^", "2"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"\[Epsilon]", "^", "2"}],
|
|
RowBox[{"y", "^", "2"}]}]}], "]"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"\[Epsilon]", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.8970676430061274`*^9, 3.897067733484735*^9}},
|
|
CellLabel->"In[70]:=",ExpressionUUID->"c94abc51-199d-4812-ba18-9e0f899cfe4b"],
|
|
|
|
Cell[BoxData[
|
|
InterpretationBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
SuperscriptBox["b", "2"]], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
SqrtBox[
|
|
SuperscriptBox["b", "2"]], " ", "x", " ", "\[Epsilon]"}], "b"], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
SuperscriptBox["y", "2"], " ",
|
|
SuperscriptBox["\[Epsilon]", "2"]}],
|
|
RowBox[{"2", " ",
|
|
SqrtBox[
|
|
SuperscriptBox["b", "2"]]}]], "+",
|
|
InterpretationBox[
|
|
SuperscriptBox[
|
|
RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
|
|
SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1],
|
|
Editable->False]}],
|
|
SeriesData[$CellContext`\[Epsilon],
|
|
0, {($CellContext`b^2)^
|
|
Rational[1, 2], $CellContext`b^(-1) ($CellContext`b^2)^
|
|
Rational[1, 2] $CellContext`x,
|
|
Rational[1, 2] ($CellContext`b^2)^Rational[-1, 2] $CellContext`y^2}, 0, 3,
|
|
1],
|
|
Editable->False]], "Output",
|
|
CellChangeTimes->{3.897067689869812*^9, 3.8970677341695642`*^9},
|
|
CellLabel->"Out[70]=",ExpressionUUID->"4d0e42bd-4f0e-4168-9782-035007c489b6"]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"PowerExpand", "[", "%", "]"}], "//", "Normal"}], ")"}], "/.",
|
|
" ",
|
|
RowBox[{"\[Epsilon]", "->", " ", "1"}]}]], "Input",
|
|
CellChangeTimes->{{3.897067692061687*^9, 3.89706775350828*^9}},
|
|
CellLabel->"In[73]:=",ExpressionUUID->"80d8afaf-4aa6-4c33-995c-27a2ff281f33"],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"b", "+", "x", "+",
|
|
FractionBox[
|
|
SuperscriptBox["y", "2"],
|
|
RowBox[{"2", " ", "b"}]]}]], "Output",
|
|
CellChangeTimes->{{3.897067696565785*^9, 3.897067703998959*^9}, {
|
|
3.897067736012952*^9, 3.897067754388975*^9}},
|
|
CellLabel->"Out[73]=",ExpressionUUID->"12e1e320-411c-4fad-94dd-d48b9451766f"]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
},
|
|
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->"3e87b72b-1397-4036-9e9c-f248933bd9b4"
|
|
]
|
|
(* 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, 343, "Output",ExpressionUUID->"4c953d68-042f-4350-8ed7-100664874395"]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[29342, 865, 185, 3, 127, "Title",ExpressionUUID->"e8855943-34d6-4c26-b222-0f6ddfd6c0eb"],
|
|
Cell[29530, 870, 365, 8, 60, "Input",ExpressionUUID->"610c3a71-e66a-4b15-a70d-249d847ba2db"],
|
|
Cell[CellGroupData[{
|
|
Cell[29920, 882, 1085, 31, 42, "Input",ExpressionUUID->"01c9dddd-8f50-481a-b053-ad6b5cba4aa5"],
|
|
Cell[31008, 915, 901, 28, 75, "Output",ExpressionUUID->"8752d520-7aae-4789-8300-eeadc5fc0d28"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[31946, 948, 435, 12, 62, "Input",ExpressionUUID->"d87f75df-edc0-45ad-95c5-0899e883051e"],
|
|
Cell[32384, 962, 1564, 49, 142, "Output",ExpressionUUID->"97d7f797-1cf0-47b6-b40d-c4f36841e303"]
|
|
}, Open ]],
|
|
Cell[33963, 1014, 645, 20, 74, "Input",ExpressionUUID->"fecb16ea-8cd0-40c1-816d-07e456aae014"],
|
|
Cell[34611, 1036, 467, 14, 72, "Input",ExpressionUUID->"9401939a-48fd-4c65-a3a4-104183b35748"],
|
|
Cell[35081, 1052, 611, 19, 74, "Input",ExpressionUUID->"0c927a51-d467-4029-9bab-911cb405e75d"],
|
|
Cell[35695, 1073, 562, 16, 64, "Input",ExpressionUUID->"1551db4a-1b61-4204-9cb3-43367532d8c6"],
|
|
Cell[36260, 1091, 529, 16, 64, "Input",ExpressionUUID->"d6b27062-68a5-411c-a6aa-0ad0b301c509"],
|
|
Cell[CellGroupData[{
|
|
Cell[36814, 1111, 312, 8, 42, "Input",ExpressionUUID->"e4cabb10-84e8-4eba-88b9-4a587f388c02"],
|
|
Cell[37129, 1121, 223, 6, 66, "Output",ExpressionUUID->"26bb5e29-4734-46b0-be78-272cc6598458"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[37389, 1132, 454, 13, 64, "Input",ExpressionUUID->"c260966e-4170-4f96-990e-0954d0023ec8"],
|
|
Cell[37846, 1147, 315, 10, 86, "Output",ExpressionUUID->"5f929b07-df7a-474f-bf82-b76c075c7126"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[38198, 1162, 377, 10, 64, "Input",ExpressionUUID->"bb725d3d-7790-406d-b367-1485ddff751a"],
|
|
Cell[38578, 1174, 188, 5, 70, "Output",ExpressionUUID->"89cbf8de-be64-4cf8-ace4-c8eb5d6181b5"]
|
|
}, Open ]],
|
|
Cell[38781, 1182, 864, 21, 222, "Input",ExpressionUUID->"7962cabd-1925-4615-973e-ce48b024238d"],
|
|
Cell[CellGroupData[{
|
|
Cell[39670, 1207, 1486, 45, 189, "Input",ExpressionUUID->"63923443-a520-4e9f-b88d-7688acffd857"],
|
|
Cell[41159, 1254, 2307, 47, 321, "Output",ExpressionUUID->"6df792b1-9d7d-4206-bbf7-56375dd92800"]
|
|
}, Open ]],
|
|
Cell[43481, 1304, 177, 2, 60, "Input",ExpressionUUID->"a1e50851-356a-46af-8eb3-95b619cbc946"],
|
|
Cell[43661, 1308, 445, 10, 60, "Input",ExpressionUUID->"06067cb5-9bd2-479e-8b80-5b1390f34d40"],
|
|
Cell[CellGroupData[{
|
|
Cell[44131, 1322, 175, 2, 37, "Input",ExpressionUUID->"ac56e44d-a928-4c99-9436-f0ab9506bc09"],
|
|
Cell[44309, 1326, 860, 25, 70, "Output",ExpressionUUID->"a8f095b2-e768-403f-8884-289d73c72b9b"]
|
|
}, Open ]],
|
|
Cell[45184, 1354, 614, 15, 148, "Input",ExpressionUUID->"4051fdbf-3e6b-480f-b3dc-60463a93ab8e"],
|
|
Cell[CellGroupData[{
|
|
Cell[45823, 1373, 173, 2, 37, "Input",ExpressionUUID->"33c56382-adbe-4d41-848f-ef936e210a0d"],
|
|
Cell[45999, 1377, 1399, 42, 77, "Output",ExpressionUUID->"a3fe5894-97ac-445e-a145-5bf7e95e43a8"]
|
|
}, Open ]],
|
|
Cell[47413, 1422, 402, 9, 64, "Input",ExpressionUUID->"4a6c8d23-d41d-47d4-ba77-51fb3e36ea0a"],
|
|
Cell[47818, 1433, 626, 15, 64, "Input",ExpressionUUID->"f09094eb-ca3f-41a8-a85f-022b4943bee4"],
|
|
Cell[CellGroupData[{
|
|
Cell[48469, 1452, 173, 2, 37, "Input",ExpressionUUID->"9a639527-d595-4a40-95cb-e18b63b71f54"],
|
|
Cell[48645, 1456, 3741, 102, 272, "Output",ExpressionUUID->"85b74624-2bbd-4f60-8ea7-0e4d4830a185"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[52423, 1563, 657, 19, 60, "Input",ExpressionUUID->"88f7a14b-13fb-480f-bdda-9db721358a7d"],
|
|
Cell[53083, 1584, 5465, 155, 532, "Output",ExpressionUUID->"7c3fcd2c-1039-4b08-b990-4b038231e129"]
|
|
}, Open ]],
|
|
Cell[58563, 1742, 1262, 25, 145, "Input",ExpressionUUID->"f413e5bf-b5dd-4906-a212-ac3158ded337"],
|
|
Cell[CellGroupData[{
|
|
Cell[59850, 1771, 6996, 175, 922, "Input",ExpressionUUID->"ae2b648e-9fdd-421d-8563-6e8cc77a7288"],
|
|
Cell[66849, 1948, 5268, 103, 225, "Output",ExpressionUUID->"d389c265-bf38-4a2b-9cea-fdb3a3d46619"]
|
|
}, Open ]],
|
|
Cell[72132, 2054, 179, 2, 60, "Input",ExpressionUUID->"c333ccc6-362e-4ffd-b0c2-ade6f08e9dd2"],
|
|
Cell[72314, 2058, 445, 10, 60, "Input",ExpressionUUID->"a2ba17f4-a3a7-4550-8563-a979150a963e"],
|
|
Cell[CellGroupData[{
|
|
Cell[72784, 2072, 175, 2, 37, "Input",ExpressionUUID->"a747cc67-ae8b-416a-b031-1961c7df8ea3"],
|
|
Cell[72962, 2076, 904, 25, 70, "Output",ExpressionUUID->"aefdd241-fce2-4d87-8123-94e1b96fe72a"]
|
|
}, Open ]],
|
|
Cell[73881, 2104, 614, 15, 148, "Input",ExpressionUUID->"9dc85bc9-1a41-4776-88c9-8de1071d5c22"],
|
|
Cell[CellGroupData[{
|
|
Cell[74520, 2123, 173, 2, 37, "Input",ExpressionUUID->"d7ad13c5-dbc3-4eb4-bb87-e65c5bee11a6"],
|
|
Cell[74696, 2127, 1447, 43, 77, "Output",ExpressionUUID->"4d03953b-bdc5-42ec-b266-5670f23ba589"]
|
|
}, Open ]],
|
|
Cell[76158, 2173, 402, 9, 64, "Input",ExpressionUUID->"098c8de5-fd8e-4930-b6c8-59465ea214b4"],
|
|
Cell[76563, 2184, 920, 23, 64, "Input",ExpressionUUID->"c1c67e6f-2166-4b2c-ad1e-2afa8fcb15a3"],
|
|
Cell[CellGroupData[{
|
|
Cell[77508, 2211, 173, 2, 37, "Input",ExpressionUUID->"bbff060f-9685-4e2f-be9c-7701fb4d8cc2"],
|
|
Cell[77684, 2215, 6844, 185, 567, "Output",ExpressionUUID->"f0f028fe-e799-4c0b-8e78-7b5d13c6ef50"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[84565, 2405, 657, 19, 60, "Input",ExpressionUUID->"778c1995-6484-41ee-9250-54db059ba188"],
|
|
Cell[85225, 2426, 8849, 230, 744, "Output",ExpressionUUID->"9d6ba0ed-099d-40bd-a59a-5f88602a0f7c"]
|
|
}, Open ]],
|
|
Cell[94089, 2659, 1411, 29, 147, "Input",ExpressionUUID->"9a6f9ae2-ace2-4ee3-abee-b1fb7490c34f"],
|
|
Cell[CellGroupData[{
|
|
Cell[95525, 2692, 11057, 260, 1308, "Input",ExpressionUUID->"9aab4d60-2971-4ed3-9cd9-2cb167c8e2aa"],
|
|
Cell[106585, 2954, 7161, 138, 225, "Output",ExpressionUUID->"1cd0a908-6910-4678-8daa-eb36615892e2"]
|
|
}, Open ]],
|
|
Cell[113761, 3095, 212, 3, 60, "Input",ExpressionUUID->"fb8a053c-12eb-46e6-9122-e3601704c1ef"],
|
|
Cell[CellGroupData[{
|
|
Cell[113998, 3102, 200, 3, 37, "Input",ExpressionUUID->"2e0a4e46-fc9a-458b-8408-319037f06f58"],
|
|
Cell[114201, 3107, 173, 3, 56, "Output",ExpressionUUID->"a43980f0-8b13-4ea0-82e7-8da47cedfa22"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[114411, 3115, 448, 11, 60, "Input",ExpressionUUID->"e5815e8c-d63c-4132-adbe-188dbd89b906"],
|
|
Cell[114862, 3128, 7494, 142, 315, "Output",ExpressionUUID->"6f6ada20-c267-468c-99b8-dc9e8e73b05a"]
|
|
}, Open ]],
|
|
Cell[122371, 3273, 277, 5, 60, "Input",ExpressionUUID->"1e348821-12b6-4dbb-b5cd-4f7e2e3df661"],
|
|
Cell[CellGroupData[{
|
|
Cell[122673, 3282, 1363, 36, 114, "Input",ExpressionUUID->"7c43a354-c26c-462d-8b7b-0a73fe9e4217"],
|
|
Cell[124039, 3320, 862, 26, 75, "Output",ExpressionUUID->"c402c2cc-27eb-4b5b-ab52-6079cb82d866"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[124938, 3351, 623, 16, 64, "Input",ExpressionUUID->"c94abc51-199d-4812-ba18-9e0f899cfe4b"],
|
|
Cell[125564, 3369, 999, 29, 77, "Output",ExpressionUUID->"4d0e42bd-4f0e-4168-9782-035007c489b6"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[126600, 3403, 333, 8, 62, "Input",ExpressionUUID->"80d8afaf-4aa6-4c33-995c-27a2ff281f33"],
|
|
Cell[126936, 3413, 324, 7, 71, "Output",ExpressionUUID->"12e1e320-411c-4fad-94dd-d48b9451766f"]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|