Commit 7522eed2 authored by Marcus Haberland's avatar Marcus Haberland
Browse files

added icegiant data analysis (ig_binary.py) and did some corrections for a final full calculation

parent ccd1b36d
......@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 426261, 8732]
NotebookOptionsPosition[ 415419, 8532]
NotebookOutlinePosition[ 415918, 8550]
CellTagsIndexPosition[ 415875, 8547]
NotebookDataLength[ 427153, 8751]
NotebookOptionsPosition[ 416322, 8551]
NotebookOutlinePosition[ 416807, 8569]
CellTagsIndexPosition[ 416764, 8566]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
......@@ -65,7 +65,7 @@ Cell[BoxData[
3.8473438940922456`*^9, 3.847343916088636*^9}, 3.84734403544915*^9, {
3.8473491371609745`*^9, 3.847349166304777*^9}, {3.847874557725421*^9,
3.847874590344273*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"cd236665-4b12-47d5-be32-e8f58207ec4a"],
CellLabel->"In[1]:=",ExpressionUUID->"cd236665-4b12-47d5-be32-e8f58207ec4a"],
Cell[BoxData[
RowBox[{
......@@ -88,8 +88,8 @@ Cell[BoxData[
3.8473494439365377`*^9}, 3.8473503269956827`*^9, 3.847350382222766*^9,
3.847695393020214*^9, 3.847729102701709*^9, 3.8477833590319386`*^9,
3.847784154727334*^9, 3.847786360295149*^9, 3.8477881608191633`*^9,
3.8478747716896*^9},
CellLabel->"Out[2]=",ExpressionUUID->"5107b08f-56a8-4781-99ba-dbe1705e62a5"]
3.8478747716896*^9, 3.8484186859648123`*^9, 3.8484187470167046`*^9},
CellLabel->"Out[1]=",ExpressionUUID->"d72fc05b-ef9e-48b2-be6f-52c8564dfbdd"]
}, Open ]]
}, Open ]],
......@@ -116,7 +116,7 @@ Cell[BoxData[
3.8472765758995595`*^9, 3.8472766269554434`*^9}, 3.847343923788*^9, {
3.8473440377525673`*^9, 3.8473440414841614`*^9}, {3.8478746011631217`*^9,
3.847874609248762*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"b2396ad7-fd94-4c15-9528-b0bc92e86f3a"],
CellLabel->"In[2]:=",ExpressionUUID->"b2396ad7-fd94-4c15-9528-b0bc92e86f3a"],
Cell[BoxData[
RowBox[{"1", "-",
......@@ -126,8 +126,8 @@ Cell[BoxData[
FractionBox[
RowBox[{"2", " ", "\[Pi]", " ", "t"}], "P"], "+", "\[Phi]"}],
"]"}]}]}]], "Output",
CellChangeTimes->{3.8478747717208433`*^9},
CellLabel->"Out[3]=",ExpressionUUID->"349d8443-5fac-4e1b-9eb5-1125d8442a7d"]
CellChangeTimes->{3.8478747717208433`*^9, 3.8484187522557015`*^9},
CellLabel->"Out[2]=",ExpressionUUID->"36cbf6f0-e24e-478c-99ed-e07a17e694c5"]
}, Open ]],
Cell[CellGroupData[{
......@@ -135,7 +135,7 @@ Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"dff", "//", "FortranForm"}]], "Input",
CellChangeTimes->{{3.847874642743387*^9, 3.8478746474439087`*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"41d5f326-f13a-4196-abfa-be44efd25dd5"],
CellLabel->"In[3]:=",ExpressionUUID->"41d5f326-f13a-4196-abfa-be44efd25dd5"],
Cell["1 - K*Cos((2*Pi*t)/P + \[Phi])", "Output",
CellChangeTimes->{{3.8465773481688013`*^9, 3.8465773588740954`*^9},
......@@ -146,10 +146,10 @@ Cell["1 - K*Cos((2*Pi*t)/P + \[Phi])", "Output",
3.8473440519893513`*^9}, 3.8473494440927505`*^9, 3.847350327089411*^9,
3.84735038236336*^9, 3.8476953930826983`*^9, 3.8477291027615485`*^9,
3.847783359078802*^9, 3.847784154774198*^9, 3.8477863603420134`*^9,
3.8477881608660383`*^9, 3.8478747717520857`*^9},
3.8477881608660383`*^9, 3.8478747717520857`*^9, 3.8484187567058797`*^9},
CellLabel->
"Out[4]//FortranForm=",ExpressionUUID->"a65cf569-ed6d-4a09-b85b-\
b6a882ff3d1d"]
"Out[3]//FortranForm=",ExpressionUUID->"95a9c391-6034-4261-b59b-\
a484ded743dd"]
}, Open ]],
Cell[CellGroupData[{
......@@ -164,8 +164,9 @@ Cell[BoxData[{
RowBox[{"dfK", "//", "FortranForm"}]}], "Input",
CellChangeTimes->{
3.8473439247577534`*^9, 3.8478746140181074`*^9, {3.8478746551940475`*^9,
3.84787465816754*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"7e56139a-5a87-4dcf-9e1d-8638971af412"],
3.84787465816754*^9}, {3.848418639204132*^9, 3.8484186429785976`*^9}, {
3.8484187590486183`*^9, 3.848418760597478*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"7e56139a-5a87-4dcf-9e1d-8638971af412"],
Cell[BoxData[
RowBox[{"-",
......@@ -184,8 +185,9 @@ Cell[BoxData[
3.847344024197633*^9, 3.8473440520205917`*^9}, 3.8473494441239934`*^9,
3.8473503271309814`*^9, 3.8473503824198155`*^9, 3.8476953931295624`*^9,
3.847729102817399*^9, 3.8477833591100454`*^9, 3.847784154821062*^9,
3.847786360388877*^9, 3.8477881662446604`*^9, 3.8478747717520857`*^9},
CellLabel->"Out[5]=",ExpressionUUID->"ac9da24c-a611-444e-898d-46a305791444"],
3.847786360388877*^9, 3.8477881662446604`*^9, 3.8478747717520857`*^9,
3.8484187610492706`*^9},
CellLabel->"Out[4]=",ExpressionUUID->"13781176-4a1a-447d-a070-9b96d49367c3"],
Cell["-((f0 + f1*t)*Cos((2*Pi*t)/P + \[Phi]))", "Output",
CellChangeTimes->{
......@@ -193,10 +195,11 @@ Cell["-((f0 + f1*t)*Cos((2*Pi*t)/P + \[Phi]))", "Output",
3.847344024197633*^9, 3.8473440520205917`*^9}, 3.8473494441239934`*^9,
3.8473503271309814`*^9, 3.8473503824198155`*^9, 3.8476953931295624`*^9,
3.847729102817399*^9, 3.8477833591100454`*^9, 3.847784154821062*^9,
3.847786360388877*^9, 3.8477881662446604`*^9, 3.847874771767707*^9},
3.847786360388877*^9, 3.8477881662446604`*^9, 3.8478747717520857`*^9,
3.84841876105326*^9},
CellLabel->
"Out[6]//FortranForm=",ExpressionUUID->"bd5fc6d7-30da-4f3f-8331-\
6a870ec613cb"]
"Out[5]//FortranForm=",ExpressionUUID->"46619ecb-c4d6-49ed-b4fe-\
77904d9adf5a"]
}, Open ]],
Cell[BoxData[""], "Input",
......@@ -219,7 +222,7 @@ Cell[BoxData[{
3.8465775726216717`*^9}, 3.8468373710191526`*^9, 3.8472767610446157`*^9,
3.847343925554169*^9, 3.847874615697926*^9, {3.8478746617659907`*^9,
3.8478746655074797`*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"885058cf-75d4-47bb-98dc-f2956bf3ece7"],
CellLabel->"In[6]:=",ExpressionUUID->"885058cf-75d4-47bb-98dc-f2956bf3ece7"],
Cell[BoxData[
RowBox[{"-",
......@@ -239,8 +242,9 @@ Cell[BoxData[
3.8473440242757416`*^9, 3.8473440520789175`*^9}, 3.8473494441876*^9,
3.8473503271791363`*^9, 3.8473503824823046`*^9, 3.8476953931920466`*^9,
3.847729102871255*^9, 3.84778335917253*^9, 3.8477841548679256`*^9,
3.847786360435743*^9, 3.847788166463075*^9, 3.8478747717989492`*^9},
CellLabel->"Out[8]=",ExpressionUUID->"7bedfd97-2048-4787-a46f-0f5cc0471c46"],
3.847786360435743*^9, 3.847788166463075*^9, 3.8478747717989492`*^9,
3.8484187632095175`*^9},
CellLabel->"Out[6]=",ExpressionUUID->"a0e9f985-9cf6-47a4-b599-de07b8a7323e"],
Cell["(-2*K*Pi*t*(f0 + f1*t)*Sin((2*Pi*t)/P + \[Phi]))/P**2", "Output",
CellChangeTimes->{
......@@ -249,10 +253,11 @@ Cell["(-2*K*Pi*t*(f0 + f1*t)*Sin((2*Pi*t)/P + \[Phi]))/P**2", "Output",
3.8473440242757416`*^9, 3.8473440520789175`*^9}, 3.8473494441876*^9,
3.8473503271791363`*^9, 3.8473503824823046`*^9, 3.8476953931920466`*^9,
3.847729102871255*^9, 3.84778335917253*^9, 3.8477841548679256`*^9,
3.847786360435743*^9, 3.847788166463075*^9, 3.8478747717989492`*^9},
3.847786360435743*^9, 3.847788166463075*^9, 3.8478747717989492`*^9,
3.848418763212509*^9},
CellLabel->
"Out[9]//FortranForm=",ExpressionUUID->"8f7f6b43-f8e4-45eb-878c-\
bb52e1b690b2"]
"Out[7]//FortranForm=",ExpressionUUID->"719bfc95-2274-4b34-8cdf-\
ad853fe40335"]
}, Open ]],
Cell[CellGroupData[{
......@@ -270,7 +275,7 @@ Cell[BoxData[{
3.846577631591188*^9}, 3.846837379132104*^9, {3.8472767675027714`*^9,
3.847276774729669*^9}, 3.8473439268440995`*^9, 3.847874617597887*^9, {
3.8478746680686474`*^9, 3.847874671762413*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"07f94485-1306-4bb2-99a6-ee184147e89e"],
CellLabel->"In[8]:=",ExpressionUUID->"07f94485-1306-4bb2-99a6-ee184147e89e"],
Cell[BoxData[
RowBox[{"K", " ",
......@@ -288,8 +293,8 @@ Cell[BoxData[
3.8473440521111665`*^9}, 3.847349444218842*^9, 3.8473503272103815`*^9,
3.8473503825341053`*^9, 3.8476953932556214`*^9, 3.8477291029261084`*^9,
3.8477833592037725`*^9, 3.847784154899168*^9, 3.847786360482606*^9,
3.8477881665239143`*^9, 3.847874771830192*^9},
CellLabel->"Out[10]=",ExpressionUUID->"ce8e2986-0c9a-41ec-b914-b953e7aaf33d"],
3.8477881665239143`*^9, 3.847874771830192*^9, 3.848418766940545*^9},
CellLabel->"Out[8]=",ExpressionUUID->"ddf433ef-eb5a-448a-bf06-a19e329ab66a"],
Cell["K*(f0 + f1*t)*Sin((2*Pi*t)/P + \[Phi])", "Output",
CellChangeTimes->{
......@@ -298,10 +303,10 @@ Cell["K*(f0 + f1*t)*Sin((2*Pi*t)/P + \[Phi])", "Output",
3.8473440521111665`*^9}, 3.847349444218842*^9, 3.8473503272103815`*^9,
3.8473503825341053`*^9, 3.8476953932556214`*^9, 3.8477291029261084`*^9,
3.8477833592037725`*^9, 3.847784154899168*^9, 3.847786360482606*^9,
3.8477881665239143`*^9, 3.847874771830192*^9},
3.8477881665239143`*^9, 3.847874771830192*^9, 3.8484187669445343`*^9},
CellLabel->
"Out[11]//FortranForm=",ExpressionUUID->"09ce27e9-933a-46d5-8d5f-\
7e6f35c93bc6"]
"Out[9]//FortranForm=",ExpressionUUID->"8ed43709-e9c1-4476-838c-\
3ec65f4db9c8"]
}, Open ]],
Cell[CellGroupData[{
......@@ -317,7 +322,7 @@ Cell[BoxData[{
CellChangeTimes->{{3.8478746309080763`*^9, 3.847874638503445*^9}, {
3.8478746743620462`*^9, 3.8478746813351507`*^9}, {3.8478756840592427`*^9,
3.847875690364787*^9}},
CellLabel->"In[50]:=",ExpressionUUID->"582df3f1-a47a-45f6-9415-7bdb67df538d"],
CellLabel->"In[10]:=",ExpressionUUID->"582df3f1-a47a-45f6-9415-7bdb67df538d"],
Cell[BoxData[
RowBox[{"t", " ",
......@@ -329,14 +334,16 @@ Cell[BoxData[
FractionBox[
RowBox[{"2", " ", "\[Pi]", " ", "t"}], "P"], "+", "\[Phi]"}],
"]"}]}]}], ")"}]}]], "Output",
CellChangeTimes->{3.847874771861435*^9, 3.8478756960913606`*^9},
CellLabel->"Out[50]=",ExpressionUUID->"46f16b0a-c4c1-4d31-89cc-9222086cb0d6"],
CellChangeTimes->{3.847874771861435*^9, 3.8478756960913606`*^9,
3.848418768985082*^9},
CellLabel->"Out[10]=",ExpressionUUID->"7b66f458-0673-4ebb-9ff4-71316fcbbc32"],
Cell["t*(1 - K*Cos((2*Pi*t)/P + \[Phi]))", "Output",
CellChangeTimes->{3.847874771861435*^9, 3.8478756961069813`*^9},
CellChangeTimes->{3.847874771861435*^9, 3.8478756960913606`*^9,
3.8484187689880724`*^9},
CellLabel->
"Out[51]//FortranForm=",ExpressionUUID->"5fcd545f-a8e5-41fa-9e12-\
f68f2928a476"]
"Out[11]//FortranForm=",ExpressionUUID->"7bd2f189-261e-4ca0-8829-\
ea65b551d511"]
}, Open ]]
}, Open ]],
......@@ -359,11 +366,12 @@ Cell[BoxData[
"]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "t1"}], "}"}]}], "]"}], "//",
"Simplify"}]}]], "Input",
"FullSimplify"}]}]], "Input",
CellChangeTimes->{
3.8478746254137506`*^9, {3.847874734608054*^9, 3.8478747387297955`*^9}, {
3.8478750603477726`*^9, 3.8478750613358965`*^9}},
CellLabel->"In[48]:=",ExpressionUUID->"8214e25a-fd05-4c58-8937-45e015ab0d2d"],
3.8478750603477726`*^9, 3.8478750613358965`*^9}, {3.8484187822666435`*^9,
3.848418793288185*^9}},
CellLabel->"In[14]:=",ExpressionUUID->"8214e25a-fd05-4c58-8937-45e015ab0d2d"],
Cell[BoxData[
RowBox[{
......@@ -400,8 +408,10 @@ Cell[BoxData[
FractionBox[
RowBox[{"2", " ", "\[Pi]", " ", "t1"}], "P"], "+", "\[Phi]"}],
"]"}]}]}], ")"}]}]}]}], ")"}]}]], "Output",
CellChangeTimes->{3.847874775113881*^9, 3.8478750697989492`*^9},
CellLabel->"Out[48]=",ExpressionUUID->"97247619-286e-4b98-aa02-c6c014e843c1"]
CellChangeTimes->{
3.847874775113881*^9, 3.8478750697989492`*^9, {3.8484187759374986`*^9,
3.848418796545479*^9}},
CellLabel->"Out[14]=",ExpressionUUID->"194bbce9-ba98-40ad-83b5-c74744f2f081"]
}, Open ]],
Cell[CellGroupData[{
......@@ -432,40 +442,45 @@ Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{"dff", ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "t1"}], "}"}]}], "]"}], "//",
"FortranForm"}]], "Input",
CellLabel->"In[16]:=",ExpressionUUID->"ad8b55a9-d4c4-483a-87ee-841ab5b275ad"],
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{"dff", ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "t1"}], "}"}]}], "]"}], "//", "Simplify"}],
"//", "FortranForm"}]], "Input",
CellChangeTimes->{{3.8484186698159237`*^9, 3.848418674083568*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"ad8b55a9-d4c4-483a-87ee-841ab5b275ad"],
Cell["t1 - (K*P*Cos((Pi*t1)/P + \[Phi])*Sin((Pi*t1)/P))/Pi", "Output",
CellChangeTimes->{3.8473494446950035`*^9, 3.847350327803988*^9,
3.8473503872510376`*^9, 3.847695394096823*^9, 3.847729103454694*^9,
3.8477833597515907`*^9, 3.8477841550241385`*^9, 3.8477863612933073`*^9,
3.847788167541195*^9, 3.8478747753336625`*^9},
3.847788167541195*^9, 3.8478747753336625`*^9, 3.8484188243980904`*^9},
CellLabel->
"Out[16]//FortranForm=",ExpressionUUID->"27a23aa7-b1ac-41cb-8216-\
ef9ebe73450d"]
"Out[15]//FortranForm=",ExpressionUUID->"b394bc1a-2fea-4e13-b225-\
985f855a6f36"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{"dfK", ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "t1"}], "}"}]}], "]"}], "//",
"FortranForm"}]], "Input",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{"dfK", ",",
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "t1"}], "}"}]}], "]"}], "//", "Simplify"}],
"//", "FortranForm"}]], "Input",
CellChangeTimes->{{3.846577473288022*^9, 3.846577485953947*^9}, {
3.846577583869754*^9, 3.8465776029542418`*^9}, {3.846837736729806*^9,
3.846837736901641*^9}, 3.847343928189752*^9, 3.8473440441039295`*^9},
CellLabel->"In[17]:=",ExpressionUUID->"b578157a-d909-496c-a3ef-8b67d2c2ce4c"],
3.846837736901641*^9}, 3.847343928189752*^9, 3.8473440441039295`*^9,
3.848418679043312*^9},
CellLabel->"In[16]:=",ExpressionUUID->"b578157a-d909-496c-a3ef-8b67d2c2ce4c"],
Cell["\<\
(P*(f1*P*Cos(\[Phi]) - f1*P*Cos((2*Pi*t1)/P + \[Phi]) + 2*f0*Pi*Sin(\[Phi]) - \
2*Pi*(f0 + f1*t1)*Sin((2*Pi*t1)/P + \[Phi])))/(4.*Pi**2)\
(P*(f1*P*Cos(\[Phi]) - f1*P*Cos((2*Pi*t1)/P + \[Phi]) +
- 2*f0*Pi*Sin(\[Phi]) -
- 2*Pi*(f0 + f1*t1)*Sin((2*Pi*t1)/P + \[Phi])))/(4.*Pi**2)\
\>", "Output",
CellChangeTimes->{
3.8465776045121326`*^9, 3.8468373874685636`*^9, 3.8468377390994453`*^9,
......@@ -473,10 +488,10 @@ Cell["\<\
3.8473440521580305`*^9}, 3.8473494447574873`*^9, 3.847350327866473*^9,
3.847350387313525*^9, 3.847695394189032*^9, 3.8477291035185223`*^9,
3.847783359814076*^9, 3.847784155071002*^9, 3.8477863613571367`*^9,
3.8477881677057543`*^9, 3.8478747757751284`*^9},
3.8477881677057543`*^9, 3.8478747757751284`*^9, 3.8484188272414904`*^9},
CellLabel->
"Out[17]//FortranForm=",ExpressionUUID->"57cb07e0-1037-4049-a6c4-\
5ad9d0c701dc"]
"Out[16]//FortranForm=",ExpressionUUID->"96671268-e0af-43b2-8550-\
d18ab7596d2f"]
}, Open ]],
Cell[CellGroupData[{
......@@ -492,13 +507,15 @@ Cell[BoxData[
CellChangeTimes->{{3.8465779927783885`*^9, 3.8465780280180845`*^9}, {
3.8468377598933363`*^9, 3.8468377600026846`*^9}, 3.847343929246358*^9,
3.8473440450669365`*^9},
CellLabel->"In[18]:=",ExpressionUUID->"fd6c8356-719f-4e62-90f2-90e70b9636bf"],
CellLabel->"In[17]:=",ExpressionUUID->"fd6c8356-719f-4e62-90f2-90e70b9636bf"],
Cell["\<\
(K*(f1*P**2*Cos(\[Phi]) + (-(f1*P**2) + 2*f0*Pi**2*t1 + \
2*f1*Pi**2*t1**2)*Cos((2*Pi*t1)/P + \[Phi]) +
- P*Pi*(f0*Sin(\[Phi]) - (f0 + 2*f1*t1)*Sin((2*Pi*t1)/P + \
\[Phi]))))/(2.*P*Pi**2)\
(K*(f1*P**2*Cos(\[Phi]) +
- (-(f1*P**2) + 2*f0*Pi**2*t1 + 2*f1*Pi**2*t1**2)*
- Cos((2*Pi*t1)/P + \[Phi]) +
- P*Pi*(f0*Sin(\[Phi]) -
- (f0 + 2*f1*t1)*Sin((2*Pi*t1)/P + \[Phi]))))/
- (2.*P*Pi**2)\
\>", "Output",
CellChangeTimes->{{3.8465780242521315`*^9, 3.8465780288097444`*^9},
3.8468373930818577`*^9, 3.846837766456029*^9, 3.8472767896796484`*^9,
......@@ -506,10 +523,10 @@ Cell["\<\
3.847349445393101*^9, 3.847350328492406*^9, 3.8473503881258307`*^9,
3.847695394949602*^9, 3.8477291041458435`*^9, 3.8477833604202785`*^9,
3.8477841552740784`*^9, 3.84778636199782*^9, 3.847788169008274*^9,
3.8478747780779195`*^9},
3.8478747780779195`*^9, 3.848418837588835*^9},
CellLabel->
"Out[18]//FortranForm=",ExpressionUUID->"e2fb05d2-1cd0-457b-91c6-\
c412ce0aad45"]
"Out[17]//FortranForm=",ExpressionUUID->"f17bdad5-e87c-4e0e-ba48-\
4c215d4f92c1"]
}, Open ]],
Cell[CellGroupData[{
......@@ -525,11 +542,12 @@ Cell[BoxData[
CellChangeTimes->{{3.846578398997497*^9, 3.846578401643093*^9}, {
3.846837770284807*^9, 3.8468377704878826`*^9}, 3.8473439319396143`*^9,
3.8473440461582003`*^9},
CellLabel->"In[19]:=",ExpressionUUID->"0c0f99c8-7a55-4fc8-b9ca-116d7ce38334"],
CellLabel->"In[18]:=",ExpressionUUID->"0c0f99c8-7a55-4fc8-b9ca-116d7ce38334"],
Cell["\<\
(K*P*(2*f0*Pi*Cos(\[Phi]) - 2*Pi*(f0 + f1*t1)*Cos((2*Pi*t1)/P + \[Phi]) + \
f1*P*(-Sin(\[Phi]) + Sin((2*Pi*t1)/P + \[Phi]))))/(4.*Pi**2)\
(K*P*(2*f0*Pi*Cos(\[Phi]) -
- 2*Pi*(f0 + f1*t1)*Cos((2*Pi*t1)/P + \[Phi]) +
- f1*P*(-Sin(\[Phi]) + Sin((2*Pi*t1)/P + \[Phi]))))/(4.*Pi**2)\
\>", "Output",
CellChangeTimes->{
3.8465784040165195`*^9, 3.8468374003210516`*^9, 3.8468377733374743`*^9,
......@@ -537,10 +555,10 @@ f1*P*(-Sin(\[Phi]) + Sin((2*Pi*t1)/P + \[Phi]))))/(4.*Pi**2)\
3.8473440523228035`*^9}, 3.847349445575511*^9, 3.847350329702587*^9,
3.847350388330846*^9, 3.847695395121436*^9, 3.8477291043812137`*^9,
3.8477833606077337`*^9, 3.847784155339987*^9, 3.8477863621192055`*^9,
3.847788169484997*^9, 3.8478747789850345`*^9},
3.847788169484997*^9, 3.8478747789850345`*^9, 3.84841885006606*^9},
CellLabel->
"Out[19]//FortranForm=",ExpressionUUID->"74e17d19-ba1f-4ff7-a413-\
31498242904d"]
"Out[18]//FortranForm=",ExpressionUUID->"ecf962b3-f9d5-47ec-9b8a-\
df0d7ce79464"]
}, Open ]],
Cell[CellGroupData[{
......@@ -557,17 +575,18 @@ Cell[BoxData[
3.8468377783360643`*^9, 3.8468377785391417`*^9}, 3.847276819724882*^9,
3.8473439331305647`*^9, 3.8473440470476894`*^9, 3.847349325696685*^9, {
3.847874705935631*^9, 3.8478747201427956`*^9}},
CellLabel->"In[52]:=",ExpressionUUID->"f98bd923-a771-4ccd-87d8-eaecd6f324a2"],
CellLabel->"In[19]:=",ExpressionUUID->"f98bd923-a771-4ccd-87d8-eaecd6f324a2"],
Cell["\<\
t1**2/2. - (K*P*(-(P*Cos(\[Phi])) +
- P*Cos((2*Pi*t1)/P + \[Phi]) +
- 2*Pi*t1*Sin((2*Pi*t1)/P + \[Phi])))/(4.*Pi**2)\
\>", "Output",
CellChangeTimes->{3.847874779078762*^9, 3.8478757356326475`*^9},
CellChangeTimes->{3.847874779078762*^9, 3.8478757356326475`*^9,
3.848418853643499*^9},
CellLabel->
"Out[52]//FortranForm=",ExpressionUUID->"04e13f9f-29c2-4dd7-89c7-\
1795126963ba"]
"Out[19]//FortranForm=",ExpressionUUID->"975768ea-d9e9-4811-a7e0-\
2139597cfa61"]
}, Open ]],
Cell[BoxData[""], "Input",
......@@ -8530,8 +8549,8 @@ Cell[BoxData[
}, Open ]]
}, Open ]]
},
WindowSize->{574.8, 579.6},
WindowMargins->{{Automatic, -4.7999999999999545`}, {Automatic, 0}},
WindowSize->{1161.6, 613.5},
WindowMargins->{{568.8, Automatic}, {Automatic, 0}},
TaggingRules->Association["TryRealOnly" -> False],
Magnification:>1. Inherited,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (June 19, 2021)",
......@@ -8556,181 +8575,181 @@ Cell[CellGroupData[{
Cell[1013, 34, 157, 3, 54, "Subsection",ExpressionUUID->"44cacd97-0140-4a61-841e-5595bf1e1b98"],
Cell[CellGroupData[{
Cell[1195, 41, 1104, 26, 62, "Input",ExpressionUUID->"cd236665-4b12-47d5-be32-e8f58207ec4a"],
Cell[2302, 69, 976, 22, 48, "Output",ExpressionUUID->"5107b08f-56a8-4781-99ba-dbe1705e62a5"]
Cell[2302, 69, 1024, 22, 48, "Output",ExpressionUUID->"d72fc05b-ef9e-48b2-be6f-52c8564dfbdd"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[3327, 97, 158, 3, 54, "Subsection",ExpressionUUID->"949884f5-a62c-4a6f-9576-6361f53b4772"],
Cell[3375, 97, 158, 3, 54, "Subsection",ExpressionUUID->"949884f5-a62c-4a6f-9576-6361f53b4772"],
Cell[CellGroupData[{
Cell[3510, 104, 772, 14, 43, "Input",ExpressionUUID->"b2396ad7-fd94-4c15-9528-b0bc92e86f3a"],
Cell[4285, 120, 326, 9, 48, "Output",ExpressionUUID->"349d8443-5fac-4e1b-9eb5-1125d8442a7d"]
Cell[3558, 104, 772, 14, 43, "Input",ExpressionUUID->"b2396ad7-fd94-4c15-9528-b0bc92e86f3a"],
Cell[4333, 120, 350, 9, 48, "Output",ExpressionUUID->"36cbf6f0-e24e-478c-99ed-e07a17e694c5"]
}, Open ]],
Cell[CellGroupData[{
Cell[4648, 134, 208, 3, 43, "Input",ExpressionUUID->"41d5f326-f13a-4196-abfa-be44efd25dd5"],
Cell[4859, 139, 780, 12, 45, "Output",ExpressionUUID->"a65cf569-ed6d-4a09-b85b-b6a882ff3d1d"]
Cell[4720, 134, 208, 3, 43, "Input",ExpressionUUID->"41d5f326-f13a-4196-abfa-be44efd25dd5"],
Cell[4931, 139, 804, 12, 45, "Output",ExpressionUUID->"95a9c391-6034-4261-b59b-a484ded743dd"]
}, Open ]],
Cell[CellGroupData[{
Cell[5676, 156, 487, 11, 78, "Input",ExpressionUUID->"7e56139a-5a87-4dcf-9e1d-8638971af412"],
Cell[6166, 169, 775, 18, 48, "Output",ExpressionUUID->"ac9da24c-a611-444e-898d-46a305791444"],
Cell[6944, 189, 542, 9, 45, "Output",ExpressionUUID->"bd5fc6d7-30da-4f3f-8331-6a870ec613cb"]
Cell[5772, 156, 587, 12, 78, "Input",ExpressionUUID->"7e56139a-5a87-4dcf-9e1d-8638971af412"],
Cell[6362, 170, 803, 19, 48, "Output",ExpressionUUID->"13781176-4a1a-447d-a070-9b96d49367c3"],
Cell[7168, 191, 569, 10, 45, "Output",ExpressionUUID->"46619ecb-c4d6-49ed-b4fe-77904d9adf5a"]
}, Open ]],
Cell[7501, 201, 169, 3, 28, "Input",ExpressionUUID->"a540fa33-6a88-4736-aa90-5a554f5a205b"],
Cell[7752, 204, 169, 3, 28, "Input",ExpressionUUID->"a540fa33-6a88-4736-aa90-5a554f5a205b"],
Cell[CellGroupData[{
Cell[7695, 208, 687, 13, 78, "Input",ExpressionUUID->"885058cf-75d4-47bb-98dc-f2956bf3ece7"],
Cell[8385, 223, 909, 19, 56, "Output",ExpressionUUID->"7bedfd97-2048-4787-a46f-0f5cc0471c46"],
Cell[9297, 244, 629, 10, 45, "Output",ExpressionUUID->"8f7f6b43-f8e4-45eb-878c-bb52e1b690b2"]
Cell[7946, 211, 687, 13, 78, "Input",ExpressionUUID->"885058cf-75d4-47bb-98dc-f2956bf3ece7"],
Cell[8636, 226, 937, 20, 56, "Output",ExpressionUUID->"a0e9f985-9cf6-47a4-b599-de07b8a7323e"],
Cell[9576, 248, 655, 11, 45, "Output",ExpressionUUID->"719bfc95-2274-4b34-8cdf-ad853fe40335"]
}, Open ]],
Cell[CellGroupData[{
Cell[9963, 259, 717, 13, 78, "Input",ExpressionUUID->"07f94485-1306-4bb2-99a6-ee184147e89e"],
Cell[10683, 274, 776, 17, 48, "Output",ExpressionUUID->"ce8e2986-0c9a-41ec-b914-b953e7aaf33d"],
Cell[11462, 293, 590, 10, 45, "Output",ExpressionUUID->"09ce27e9-933a-46d5-8d5f-7e6f35c93bc6"]
Cell[10268, 264, 716, 13, 78, "Input",ExpressionUUID->"07f94485-1306-4bb2-99a6-ee184147e89e"],
Cell[10987, 279, 797, 17, 48, "Output",ExpressionUUID->"ddf433ef-eb5a-448a-bf06-a19e329ab66a"],
Cell[11787, 298, 613, 10, 45, "Output",ExpressionUUID->"8ed43709-e9c1-4476-838c-3ec65f4db9c8"]
}, Open ]],
Cell[CellGroupData[{
Cell[12089, 308, 542, 11, 78, "Input",ExpressionUUID->"582df3f1-a47a-45f6-9415-7bdb67df538d"],
Cell[12634, 321, 408, 11, 48, "Output",ExpressionUUID->"46f16b0a-c4c1-4d31-89cc-9222086cb0d6"],
Cell[13045, 334, 215, 4, 45, "Output",ExpressionUUID->"5fcd545f-a8e5-41fa-9e12-f68f2928a476"]
Cell[12437, 313, 542, 11, 78, "Input",ExpressionUUID->"582df3f1-a47a-45f6-9415-7bdb67df538d"],
Cell[12982, 326, 433, 12, 48, "Output",ExpressionUUID->"7b66f458-0673-4ebb-9ff4-71316fcbbc32"],
Cell[13418, 340, 242, 5, 45, "Output",ExpressionUUID->"7bd2f189-261e-4ca0-8829-ea65b551d511"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[13309, 344, 161, 3, 54, "Subsection",ExpressionUUID->"3e271b72-3ac8-4d98-884b-acbac9b96ef8"],
Cell[13709, 351, 161, 3, 54, "Subsection",ExpressionUUID->"3e271b72-3ac8-4d98-884b-acbac9b96ef8"],
Cell[CellGroupData[{
Cell[13495, 351, 552, 14, 43, "Input",ExpressionUUID->"8214e25a-fd05-4c58-8937-45e015ab0d2d"],
Cell[14050, 367, 1289, 36, 125, "Output",ExpressionUUID->"97247619-286e-4b98-aa02-c6c014e843c1"]
Cell[13895, 358, 608, 15, 43, "Input",ExpressionUUID->"8214e25a-fd05-4c58-8937-45e015ab0d2d"],
Cell[14506, 375, 1344, 38, 50, "Output",ExpressionUUID->"194bbce9-ba98-40ad-83b5-c74744f2f081"]
}, Open ]],
Cell[CellGroupData[{
Cell[15376, 408, 260, 4, 43, "Input",ExpressionUUID->"05d09399-80c3-4ece-9751-61550edf7983"],
Cell[15639, 414, 618, 13, 113, "Output",ExpressionUUID->"20b1a792-be65-455e-a6f8-419e306321ab"]
Cell[15887, 418, 260, 4, 43, "Input",ExpressionUUID->"05d09399-80c3-4ece-9751-61550edf7983"],
Cell[16150, 424, 618, 13, 113, "Output",ExpressionUUID->"20b1a792-be65-455e-a6f8-419e306321ab"]
}, Open ]],
Cell[CellGroupData[{
Cell[16294, 432, 266, 7, 43, "Input",ExpressionUUID->"ad8b55a9-d4c4-483a-87ee-841ab5b275ad"],
Cell[16563, 441, 428, 7, 45, "Output",ExpressionUUID->"27a23aa7-b1ac-41cb-8216-ef9ebe73450d"]
Cell[16805, 442, 369, 9, 43, "Input",ExpressionUUID->"ad8b55a9-d4c4-483a-87ee-841ab5b275ad"],
Cell[17177, 453, 452, 7, 45, "Output",ExpressionUUID->"b394bc1a-2fea-4e13-b225-985f855a6f36"]
}, Open ]],
Cell[CellGroupData[{
Cell[17028, 453, 480, 10, 43, "Input",ExpressionUUID->"b578157a-d909-496c-a3ef-8b67d2c2ce4c"],
Cell[17511, 465, 702, 13, 45, "Output",ExpressionUUID->"57cb07e0-1037-4049-a6c4-5ad9d0c701dc"]
Cell[17666, 465, 541, 12, 43, "Input",ExpressionUUID->"b578157a-d909-496c-a3ef-8b67d2c2ce4c"],
Cell[18210, 479, 758, 14, 79, "Output",ExpressionUUID->"96671268-e0af-43b2-8550-d18ab7596d2f"]
}, Open ]],
Cell[CellGroupData[{
Cell[18250, 483, 475, 11, 43, "Input",ExpressionUUID->"fd6c8356-719f-4e62-90f2-90e70b9636bf"],
Cell[18728, 496, 792, 15, 62, "Output",ExpressionUUID->"e2fb05d2-1cd0-457b-91c6-c412ce0aad45"]
Cell[19005, 498, 475, 11, 43, "Input",ExpressionUUID->"fd6c8356-719f-4e62-90f2-90e70b9636bf"],
Cell[19483, 511, 862, 17, 130, "Output",ExpressionUUID->"f17bdad5-e87c-4e0e-ba48-4c215d4f92c1"]
}, Open ]],
Cell[CellGroupData[{
Cell[19557, 516, 476, 11, 43, "Input",ExpressionUUID->"0c0f99c8-7a55-4fc8-b9ca-116d7ce38334"],
Cell[20036, 529, 696, 13, 45, "Output",ExpressionUUID->"74e17d19-ba1f-4ff7-a413-31498242904d"]
Cell[20382, 533, 476, 11, 43, "Input",ExpressionUUID->"0c0f99c8-7a55-4fc8-b9ca-116d7ce38334"],
Cell[20861, 546, 749, 14, 79, "Output",ExpressionUUID->"ecf962b3-f9d5-47ec-9b8a-df0d7ce79464"]
}, Open ]],
Cell[CellGroupData[{
Cell[20769, 547, 574, 12, 43, "Input",ExpressionUUID->"f98bd923-a771-4ccd-87d8-eaecd6f324a2"],
Cell[21346, 561, 337, 8, 79, "Output",ExpressionUUID->"04e13f9f-29c2-4dd7-89c7-1795126963ba"]
Cell[21647, 565, 574, 12, 43, "Input",ExpressionUUID->"f98bd923-a771-4ccd-87d8-eaecd6f324a2"],
Cell[22224, 579, 362, 9, 79, "Output",ExpressionUUID->"975768ea-d9e9-4811-a7e0-2139597cfa61"]
}, Open ]],
Cell[21698, 572, 325, 4, 28, "Input",ExpressionUUID->"6b6e893d-02c0-4960-b3b4-3beab27b7e61"]
Cell[22601, 591, 325, 4, 28, "Input",ExpressionUUID->"6b6e893d-02c0-4960-b3b4-3beab27b7e61"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[22072, 582, 294, 4, 67, "Section",ExpressionUUID->"3f02c15a-868a-4b8f-9c20-808242c0bf13"],
Cell[22975, 601, 294, 4, 67, "Section",ExpressionUUID->"3f02c15a-868a-4b8f-9c20-808242c0bf13"],
Cell[CellGroupData[{
Cell[22391, 590, 157, 3, 54, "Subsection",ExpressionUUID->"43e5d676-1420-409a-8e38-95d47828af85"],
Cell[23294, 609, 157, 3, 54, "Subsection",ExpressionUUID->"43e5d676-1420-409a-8e38-95d47828af85"],
Cell[CellGroupData[{
Cell[22573, 597, 862, 23, 97, "Input",ExpressionUUID->"5b612159-a823-418a-afa7-e3c74890ad1e"],
Cell[23438, 622, 1015, 24, 48, "Output",ExpressionUUID->"00c2ea20-3628-4a86-9507-0c2a5c99c7c0"]
Cell[23476, 616, 862, 23, 97, "Input",ExpressionUUID->"5b612159-a823-418a-afa7-e3c74890ad1e"],
Cell[24341, 641, 1015, 24, 48, "Output",ExpressionUUID->"00c2ea20-3628-4a86-9507-0c2a5c99c7c0"]
}, Open ]],
Cell[CellGroupData[{
Cell[24490, 651, 887, 24, 97, "Input",ExpressionUUID->"206d5d02-4879-4d67-b63a-9374b50c5893"],
Cell[25380, 677, 1019, 24, 48, "Output",ExpressionUUID->"f8469cb2-5055-4e12-93af-823e5ebe0c5c"]
Cell[25393, 670, 887, 24, 97, "Input",ExpressionUUID->"206d5d02-4879-4d67-b63a-9374b50c5893"],
Cell[26283, 696, 1019, 24, 48, "Output",ExpressionUUID->"f8469cb2-5055-4e12-93af-823e5ebe0c5c"]
}, Open ]],
Cell[CellGroupData[{
Cell[26436, 706, 690, 19, 62, "Input",ExpressionUUID->"b07acd07-5606-4e91-8358-a724cadf0a4e"],
Cell[27129, 727, 723, 16, 48, "Output",ExpressionUUID->"a9816b8e-255a-477f-aa04-7b4a9a63556f"]
Cell[27339, 725, 690, 19, 62, "Input",ExpressionUUID->"b07acd07-5606-4e91-8358-a724cadf0a4e"],
Cell[28032, 746, 723, 16, 48, "Output",ExpressionUUID->"a9816b8e-255a-477f-aa04-7b4a9a63556f"]
}, Open ]],
Cell[CellGroupData[{
Cell[27889, 748, 1456, 34, 97, "Input",ExpressionUUID->"c16f39a4-3498-4510-942c-be6e49e010a2"],
Cell[29348, 784, 1053, 25, 56, "Output",ExpressionUUID->"f8cfa365-003b-4e59-838d-00bb81fef103"]
Cell[28792, 767, 1456, 34, 97, "Input",ExpressionUUID->"c16f39a4-3498-4510-942c-be6e49e010a2"],
Cell[30251, 803, 1053, 25, 56, "Output",ExpressionUUID->"f8cfa365-003b-4e59-838d-00bb81fef103"]
}, Open ]],
Cell[CellGroupData[{
Cell[30438, 814, 525, 12, 43, "Input",ExpressionUUID->"5f48f6c6-de8d-4441-81ad-9677632108a6"],
Cell[30966, 828, 491, 9, 32, "Output",ExpressionUUID->"173a828f-8890-48da-8ca5-0dfb88c0fffa"]
Cell[31341, 833, 525, 12, 43, "Input",ExpressionUUID->"5f48f6c6-de8d-4441-81ad-9677632108a6"],
Cell[31869, 847, 491, 9, 32, "Output",ExpressionUUID->"173a828f-8890-48da-8ca5-0dfb88c0fffa"]
}, Open ]],
Cell[CellGroupData[{
Cell[31494, 842, 621, 17, 43, "Input",ExpressionUUID->"ef7a4e21-b493-42cc-b965-67c62b235634"],
Cell[32118, 861, 682, 15, 48, "Output",ExpressionUUID->"9de32292-19c0-4c85-9908-dcf020049902"]
Cell[32397, 861, 621, 17, 43, "Input",ExpressionUUID->"ef7a4e21-b493-42cc-b965-67c62b235634"],
Cell[33021, 880, 682, 15, 48, "Output",ExpressionUUID->"9de32292-19c0-4c85-9908-dcf020049902"]
}, Open ]],
Cell[CellGroupData[{
Cell[32837, 881, 656, 17, 62, "Input",ExpressionUUID->"91e736e9-9f13-4304-ae44-c581f4d53bb0"],
Cell[33496, 900, 691, 14, 32, "Output",ExpressionUUID->"2b0b6b81-8ee6-4a4e-9048-5ec0f747f3e3"]
Cell[33740, 900, 656, 17, 62, "Input",ExpressionUUID->"91e736e9-9f13-4304-ae44-c581f4d53bb0"],
Cell[34399, 919, 691, 14, 32, "Output",ExpressionUUID->"2b0b6b81-8ee6-4a4e-9048-5ec0f747f3e3"]
}, Open ]],
Cell[CellGroupData[{
Cell[34224, 919, 1682, 46, 203, "Input",ExpressionUUID->"692f7468-34fa-4219-ade6-5fe5a5986dbb"],
Cell[35909, 967, 1708, 44, 125, "Output",ExpressionUUID->"cca583b8-cbef-4232-8d97-feec44bec01b"]
Cell[35127, 938, 1682, 46, 203, "Input",ExpressionUUID->"692f7468-34fa-4219-ade6-5fe5a5986dbb"],
Cell[36812, 986, 1708, 44, 125, "Output",ExpressionUUID->"cca583b8-cbef-4232-8d97-feec44bec01b"]
}, Open ]],
Cell[CellGroupData[{
Cell[37654, 1016, 322, 6, 43, "Input",ExpressionUUID->"44a224b0-ffef-4069-ba4a-b29f1e4a89b4"],
Cell[37979, 1024, 428, 6, 32, "Output",ExpressionUUID->"ebc422aa-46ee-4da7-b2ee-cc3fcb8428e3"]
Cell[38557, 1035, 322, 6, 43, "Input",ExpressionUUID->"44a224b0-ffef-4069-ba4a-b29f1e4a89b4"],
Cell[38882, 1043, 428, 6, 32, "Output",ExpressionUUID->"ebc422aa-46ee-4da7-b2ee-cc3fcb8428e3"]
}, Open ]],
Cell[CellGroupData[{
Cell[38444, 1035, 487, 11, 28, "Input",ExpressionUUID->"c838d03b-ac1f-4e66-9fb0-0f4d028e1527"],
Cell[38934, 1048, 568, 11, 48, "Output",ExpressionUUID->"ee960c75-781d-4893-a8d3-a8a5e373d32a"]
Cell[39347, 1054, 487, 11, 28, "Input",ExpressionUUID->"c838d03b-ac1f-4e66-9fb0-0f4d028e1527"],
Cell[39837, 1067, 568, 11, 48, "Output",ExpressionUUID->"ee960c75-781d-4893-a8d3-a8a5e373d32a"]
}, Open ]],
Cell[CellGroupData[{
Cell[39539, 1064, 325, 7, 28, "Input",ExpressionUUID->"b8f3e1f4-e1bc-441e-a571-b2eb2915a894"],
Cell[39867, 1073, 512, 8, 32, "Output",ExpressionUUID->"055f5505-d058-4366-ba2a-f779f12ac501"]
Cell[40442, 1083, 325, 7, 28, "Input",ExpressionUUID->"b8f3e1f4-e1bc-441e-a571-b2eb2915a894"],
Cell[40770, 1092, 512, 8, 32, "Output",ExpressionUUID->"055f5505-d058-4366-ba2a-f779f12ac501"]
}, Open ]],
Cell[CellGroupData[{
Cell[40416, 1086, 520, 14, 62, "Input",ExpressionUUID->"ecc02b72-a3bb-4b77-bdc4-5693e0715092"],
Cell[40939, 1102, 600, 13, 36, "Output",ExpressionUUID->"8bfd6efe-1daa-4929-90c6-b86f813827ed"]
Cell[41319, 1105, 520, 14, 62, "Input",ExpressionUUID->"ecc02b72-a3bb-4b77-bdc4-5693e0715092"],
Cell[41842, 1121, 600, 13, 36, "Output",ExpressionUUID->"8bfd6efe-1daa-4929-90c6-b86f813827ed"]
}, Open ]],
Cell[CellGroupData[{
Cell[41576, 1120, 547, 14, 62, "Input",ExpressionUUID->"359bd401-d86d-4ba5-90b3-89804f5b3c49"],
Cell[42126, 1136, 531, 10, 32, "Output",ExpressionUUID->"583b9798-4248-4fab-aa56-2d0c18f9590c"]
Cell[42479, 1139, 547, 14, 62, "Input",ExpressionUUID->"359bd401-d86d-4ba5-90b3-89804f5b3c49"],
Cell[43029, 1155, 531, 10, 32, "Output",ExpressionUUID->"583b9798-4248-4fab-aa56-2d0c18f9590c"]
}, Open ]],
Cell[CellGroupData[{
Cell[42694, 1151, 630, 13, 43, "Input",ExpressionUUID->"38b02882-02da-4123-8cdf-c61d62571696"],
Cell[43327, 1166, 651, 12, 48, "Output",ExpressionUUID->"49995067-de43-4ab3-a558-ff9ec8483445"]
Cell[43597, 1170, 630, 13, 43, "Input",ExpressionUUID->"38b02882-02da-4123-8cdf-c61d62571696"],
Cell[44230, 1185, 651, 12, 48, "Output",ExpressionUUID->"49995067-de43-4ab3-a558-ff9ec8483445"]
}, Open ]],
Cell[CellGroupData[{
Cell[44015, 1183, 5227, 131, 366, "Input",ExpressionUUID->"0f811783-b567-4bb5-89c3-1a1062e1cc8a"],
Cell[49245, 1316, 42744, 997, 2879, "Output",ExpressionUUID->"4ca4e5a7-1f43-4148-8575-482b33185ab8"]
Cell[44918, 1202, 5227, 131, 366, "Input",ExpressionUUID->"0f811783-b567-4bb5-89c3-1a1062e1cc8a"],
Cell[50148, 1335, 42744, 997, 2879, "Output",ExpressionUUID->"4ca4e5a7-1f43-4148-8575-482b33185ab8"]
}, Open ]],
Cell[92004, 2316, 291, 5, 43, "Input",ExpressionUUID->"0855c393-59c1-4881-b203-0ef68593d9d8"]
Cell[92907, 2335, 291, 5, 43, "Input",ExpressionUUID->"0855c393-59c1-4881-b203-0ef68593d9d8"]
}, Open ]],
Cell[CellGroupData[{
Cell[92332, 2326, 161, 3, 54, "Subsection",ExpressionUUID->"772ebef0-ab66-451b-a94a-0409f4659234"],
Cell[93235, 2345, 161, 3, 54, "Subsection",ExpressionUUID->"772ebef0-ab66-451b-a94a-0409f4659234"],
Cell[CellGroupData[{
Cell[92518, 2333, 379, 8, 43, "Input",ExpressionUUID->"a16454c3-5a10-4b12-af14-f8e1856156ff"],
Cell[92900, 2343, 8780, 162, 1048, "Output",ExpressionUUID->"6dd1ad16-3a31-4cb7-b1d9-a6080f795f06"]
Cell[93421, 2352, 379, 8, 43, "Input",ExpressionUUID->"a16454c3-5a10-4b12-af14-f8e1856156ff"],
Cell[93803, 2362, 8780, 162, 1048, "Output",ExpressionUUID->"6dd1ad16-3a31-4cb7-b1d9-a6080f795f06"]
}, Open ]],
Cell[CellGroupData[{
Cell[101717, 2510, 612, 12, 43, "Input",ExpressionUUID->"fcaa1128-c470-45dc-9bc8-b7ebbbf42b90"],
Cell[102332, 2524, 14003, 347, 182, "Output",ExpressionUUID->"252c86c4-1795-4b3c-8915-834337f1bafa"]
Cell[102620, 2529, 612, 12, 43, "Input",ExpressionUUID->"fcaa1128-c470-45dc-9bc8-b7ebbbf42b90"],
Cell[103235, 2543, 14003, 347, 182, "Output",ExpressionUUID->"252c86c4-1795-4b3c-8915-834337f1bafa"]
}, Open ]],
Cell[CellGroupData[{
Cell[116372, 2876, 269, 4, 43, "Input",ExpressionUUID->"27b00002-b3ff-429e-8008-781e142d825c"],
Cell[116644, 2882, 95875, 1652, 11197, "Output",ExpressionUUID->"6b8e5916-3f00-47a9-815d-6b34a60eac83"]
Cell[117275, 2895, 269, 4, 43, "Input",ExpressionUUID->"27b00002-b3ff-429e-8008-781e142d825c"],
Cell[117547, 2901, 95875, 1652, 11197, "Output",ExpressionUUID->"6b8e5916-3f00-47a9-815d-6b34a60eac83"]
}, Closed]],
Cell[CellGroupData[{
Cell[212556, 4539, 455, 7, 24, "Input",ExpressionUUID->"4406caf4-1d05-4978-8a98-927172faa502"],
Cell[213014, 4548, 11375, 294, 120, "Output",ExpressionUUID->"feb86cbe-a9e8-4363-926a-5cf9e14f6dcf"]
Cell[213459, 4558, 455, 7, 24, "Input",ExpressionUUID->"4406caf4-1d05-4978-8a98-927172faa502"],
Cell[213917, 4567, 11375, 294, 120, "Output",ExpressionUUID->"feb86cbe-a9e8-4363-926a-5cf9e14f6dcf"]
}, Open ]],
Cell[CellGroupData[{