Skip to content

M
mathematica
Commit 2bc2e555 authored by himyss's avatar himyss
Browse files
Options

asd

parent 3130b7a5
Hide whitespace changes
Inline Side-by-side
Showing with 81664 additions and 354 deletions
resonans10.nb 0 → 100644
View file @ 2bc2e555
This source diff could not be displayed because it is too large. You can view the blob instead.
resonans11.nb 0 → 100644
View file @ 2bc2e555
This source diff could not be displayed because it is too large. You can view the blob instead.
resonans8.nb
View file @ 2bc2e555
......@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 850350, 14621]
NotebookOptionsPosition[ 844569, 14531]
NotebookOutlinePosition[ 844997, 14548]
CellTagsIndexPosition[ 844954, 14545]
NotebookDataLength[ 856647, 14724]
NotebookOptionsPosition[ 850865, 14634]
NotebookOutlinePosition[ 851293, 14651]
CellTagsIndexPosition[ 851250, 14648]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
......@@ -177,7 +177,7 @@ Cell[BoxData[
3.871701793434409*^9, {3.872065693342557*^9, 3.872065697733029*^9}, {
3.873782505658546*^9, 3.873782510479516*^9}, {3.8737825663259*^9,
3.873782609908166*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
CellLabel->"In[3]:=",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[BoxData[
RowBox[{
......@@ -189,7 +189,7 @@ Cell[BoxData[
3.870144988515087*^9, {3.870145025281687*^9, 3.870145047838258*^9}, {
3.871451965683363*^9, 3.87145196928242*^9}, {3.872063208516612*^9,
3.8720632133894377`*^9}, {3.8744963984725924`*^9, 3.874496399276744*^9}},
CellLabel->"In[11]:=",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
CellLabel->"In[4]:=",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[BoxData[
RowBox[{
......@@ -204,7 +204,7 @@ Cell[BoxData[
3.871451836727564*^9, 3.871451840179946*^9}, {3.8714519734346457`*^9,
3.8714519739887877`*^9}, {3.872063215936698*^9, 3.8720632175080347`*^9}, {
3.8744964016057873`*^9, 3.8744964030518217`*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
CellLabel->"In[5]:=",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[CellGroupData[{
......@@ -245,7 +245,7 @@ Cell[BoxData[{
3.873782490792597*^9}, {3.876389075369074*^9, 3.876389082897255*^9}, {
3.876389412725244*^9, 3.8763894128561068`*^9}, {3.876391981459468*^9,
3.876392024603146*^9}},
CellLabel->"In[33]:=",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
CellLabel->"In[6]:=",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -773,7 +773,7 @@ LZGoHqRA64vQZ0KyFvvfu5FmOMqsn31iwazJGvw5rljEcZyCUL9T2xMHv+FF
T6Ys7v1lng/77t7EXdX4cIrR4y+TFCSmT4mf+FmF09LdR//9o+BqF0u8qLwS
/w9ygkaY
"]]},
Annotation[#, "Charting`Private`Tag$24961#1"]& ],
Annotation[#, "Charting`Private`Tag$5349#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -1298,7 +1298,7 @@ YeFngeeUeAP2fXwnRXechLnZZ5eITdfhypgSIftJElx9zu+PH/6Kl7+YMXr8
l4SaI4/u4p5afCJJ7/nnaRKup86Inv1eg1NSXcb//SPBoYchWlxRjf8HqjRS
kQ==
"]]},
Annotation[#, "Charting`Private`Tag$24961#2"]& ],
Annotation[#, "Charting`Private`Tag$5349#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -1822,7 +1822,7 @@ MFjLrFvYSoLStoCDM6Ot+JatiSdqJ8E8wSV6y6xWrHi2aFViNwlZazVz3ki0
ddj30e003XHafvaZpfOma/CX2GIh+0n6/vic25s4/B0vfzZj8ugvCYIjD+/g
nmp8IkXv6ddpEhLSZ0TPNFThtHTX8X//SLjZwxAtKq/E/wNm30b2
"]]},
Annotation[#, "Charting`Private`Tag$24961#3"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$5349#3"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -1880,8 +1880,8 @@ nmp8IkXv6ddpEhLSZ0TPNFThtHTX8X//SLjZwxAtKq/E/wNm30b2
3.874746300909532*^9, 3.8749273112254753`*^9, 3.876385373606865*^9,
3.876391977228801*^9, {3.876392020681591*^9, 3.876392026402017*^9},
3.8764059731375237`*^9, 3.8764567394084787`*^9, 3.8766349883051043`*^9,
3.876810719278267*^9, 3.876812584603676*^9},
CellLabel->"Out[34]=",ExpressionUUID->"041b7042-0fc5-40f4-9732-38dd05a1d5ff"]
3.876810719278267*^9, 3.876812584603676*^9, 3.877176548105459*^9},
CellLabel->"Out[7]=",ExpressionUUID->"b33a0032-6cab-4222-a5aa-4c217c8b30d6"]
}, Open ]],
Cell[CellGroupData[{
......@@ -1913,7 +1913,7 @@ Cell[BoxData[
CellChangeTimes->{{3.8737824405463552`*^9, 3.873782451614056*^9}, {
3.873782628025052*^9, 3.873782714421575*^9}, {3.876392064861974*^9,
3.87639208678445*^9}},
CellLabel->"In[35]:=",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
CellLabel->"In[8]:=",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -2422,7 +2422,7 @@ IBf+mNd/dIzjo96A1Quq/nBhISRLqTXwkUe4b7LqKBfm0zFsWF2AKqM/Cp0f
50LP3zuRPCsBWhE3rRc+yYUrzT15wYECZPZK7cXnf1yolcz98TdHgJLfXB6d
meHChJNo60yrAP0Pdc3IXw==
"]]},
Annotation[#, "Charting`Private`Tag$25315#1"]& ],
Annotation[#, "Charting`Private`Tag$5882#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -2928,7 +2928,7 @@ F9b+4sBCSJVSbeYhr8f+qSp/6DVtw8bU+Kg69r2A9V8O9P/2ieZa8dGqhBm9
x1MccGjrLwgL4SOzl6rPa/7R9ZbI//Y7j49S0+z/zM5y4K+LSMdsBx/9D3F9
ycU=
"]]},
Annotation[#, "Charting`Private`Tag$25315#2"]& ],
Annotation[#, "Charting`Private`Tag$5882#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -3434,7 +3434,7 @@ F9b+4sBCSJVSbeYhr8f+qSp/OLCAjmFjanxUHfdewPovBwZ++0RzrfhoZeKM
3uMpDji09ReEhfCR2UvVZzX/6HpL5H/7ncdHqa/t/8zOcmDSRaRjtoOP/geq
usm7
"]]},
Annotation[#, "Charting`Private`Tag$25315#3"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$5882#3"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -3481,8 +3481,8 @@ usm7
3.874664855121237*^9, 3.874744760331658*^9, 3.8747463032943068`*^9,
3.874927333925172*^9, 3.876385381278721*^9, 3.876392088387301*^9,
3.876405975111207*^9, 3.876456741502846*^9, 3.8766349906827383`*^9,
3.876810722202018*^9, 3.876812587351184*^9},
CellLabel->"Out[35]=",ExpressionUUID->"74781ac3-2219-47a1-8813-d5ec47e1e2ef"]
3.876810722202018*^9, 3.876812587351184*^9, 3.8771766324252157`*^9},
CellLabel->"Out[8]=",ExpressionUUID->"d77f17cd-4044-448a-84b1-ead852a21ee8"]
}, Open ]],
Cell[BoxData[
......@@ -3619,7 +3619,7 @@ Cell[BoxData[
3.874498293997664*^9, 3.8744982953005877`*^9}, {3.8744983674115*^9,
3.87449836949916*^9}, {3.874928039235435*^9, 3.874928044240553*^9}, {
3.8749281073459377`*^9, 3.874928197995701*^9}},
CellLabel->"In[36]:=",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
CellLabel->"In[9]:=",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[BoxData[
RowBox[{
......@@ -3645,7 +3645,7 @@ Cell[BoxData[
3.8720653832249823`*^9, 3.8720653906911573`*^9}, {3.8720654424395943`*^9,
3.872065443404607*^9}, 3.873787124452415*^9, {3.8737923795460577`*^9,
3.873792380778249*^9}, {3.874928208753623*^9, 3.8749282318089123`*^9}},
CellLabel->"In[37]:=",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
CellLabel->"In[10]:=",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[CellGroupData[{
......@@ -3694,7 +3694,7 @@ Cell[BoxData[{
3.874491388118662*^9, {3.874928270951375*^9, 3.8749283525512037`*^9}, {
3.876812600060419*^9, 3.8768126036587*^9}, {3.87681273215998*^9,
3.876812793322846*^9}, {3.876814102439931*^9, 3.8768141026367683`*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
CellLabel->"In[11]:=",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -3802,7 +3802,7 @@ Uu7bUz6gnJQ9MEigzKDt5NBgPni7K8iNjRG4STBTahnlgJ2Bs68nCFyz/kVb
hywTJ3rAAoFEVWVDDuXctdVrDP4SaFSxQ+8S5ZKJ9bNLSwQalw2O0in/D06/
yQk=
"]]},
Annotation[#, "Charting`Private`Tag$34348#1"]& ],
Annotation[#, "Charting`Private`Tag$6590#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -3889,7 +3889,7 @@ nMD1FoUxPw3o9+IvLzszQ+D2B6Jhz2hH7zjDe8QlMBe08vNox64Y6AibI7BF
7PDKDNqZxXf+mZ+n+49zOBRO+/ZpQdaLBQLzI2+5+NAusPZhRv8kcMNmtdN2
tEs31suY/KLzFlzbZka7kqvM+/2bwF1K22z1aP8PQ9JcTQ==
"]]},
Annotation[#, "Charting`Private`Tag$34348#2"]& ],
Annotation[#, "Charting`Private`Tag$6590#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -4015,7 +4015,7 @@ JxhQEqevFIAdJNDZ4DXFgKijhbO3sONfpIUymQygV/u5xy3fb/zZXQvmGFAV
eWNNMnaW5XHCb4EBfkTFs3Ts/E3lG2iLDBhJk9+Thf1hQm52aYkB90L983Kx
/wcsYeJm
"]]},
Annotation[#, "Charting`Private`Tag$34348#3"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$6590#3"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -4075,8 +4075,8 @@ eWNNMnaW5XHCb4EBfkTFs3Ts/E3lG2iLDBhJk9+Thf1hQm52aYkB90L983Kx
3.874928354862849*^9, 3.874928363743246*^9}, 3.876385394074297*^9,
3.876392101757886*^9, 3.876405985466262*^9, 3.87645674954414*^9,
3.876635126033946*^9, 3.8768107304534492`*^9, 3.876812595171134*^9,
3.8768141049887333`*^9},
CellLabel->"Out[49]=",ExpressionUUID->"b9a85259-bac9-4b9b-9eed-ed8472e87875"]
3.8768141049887333`*^9, 3.877176641229903*^9},
CellLabel->"Out[13]=",ExpressionUUID->"98e54699-f92b-4f74-9aef-9694b76949a2"]
}, Open ]],
Cell[BoxData[
......@@ -4113,7 +4113,7 @@ Cell[BoxData[
3.874580473855629*^9}, {3.874580505334504*^9, 3.874580527100831*^9}, {
3.874928388151836*^9, 3.874928391429038*^9}, {3.87492842311789*^9,
3.874928448512492*^9}},
CellLabel->"In[21]:=",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
CellLabel->"In[14]:=",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[CellGroupData[{
......@@ -4181,7 +4181,7 @@ Cell[BoxData[{
3.874498356572147*^9}, {3.874498389168923*^9, 3.874498389261672*^9}, {
3.874928400928302*^9, 3.87492840903554*^9}, {3.874928489593843*^9,
3.874928509247118*^9}},
CellLabel->"In[22]:=",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
CellLabel->"In[15]:=",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -4293,7 +4293,7 @@ lQ2ep6QoY2MstDCNfft3KBv89G7M5U2w8FL64ZuBd9jgv+Z788UpFl6/1bSi
+jYbonMeB87OsjCujPfi7stseHSdz7V4noWXl58fCrrAhgxLZyO/RXJ8zop8
jWfYkC/zVsLgDwsTqF+9N7mxoXSCPre8zEKKv0XBMUc2/A8jO+vQ
"]]},
Annotation[#, "Charting`Private`Tag$17531#1"]& ],
Annotation[#, "Charting`Private`Tag$10759#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -4397,7 +4397,7 @@ gmGYqAc3DcL5+zvOz1HxKldPwXYOGiS9pN1aWKBiX4io8OvFDMi4usatZIn1
v7+kWi/OZUDOYRe9SytU7CB0/oapDCiQqSHq/KNiUHWb+7rfGVA2I7e4ukrF
C/lPdNt+ZsD/ALJhdNY=
"]]},
Annotation[#, "Charting`Private`Tag$17531#2"]& ],
Annotation[#, "Charting`Private`Tag$10759#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -4488,7 +4488,7 @@ uDqKCVYqd1+OjtFxl6d0xP4wJvh40BRnZuhY9a7bou0ME0IML8znsejot1Fz
EnNlwhPbYyYhS3Tcc04nLN+ZCflrPykY/6Gjbcjlh84HmVDKWj//9y8d33qE
9Qg5MOH/AEekbq4=
"]]},
Annotation[#, "Charting`Private`Tag$17531#3"]& ],
Annotation[#, "Charting`Private`Tag$10759#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
......@@ -4581,7 +4581,7 @@ ArHI5doGEkbcv7qlnqMQes+JXGppI6HFkTLnyQUyKA5JkgaHSDj9/HiXUxsZ
n/06ZGmJhN4frSrLXpMhxY/VqXCZhJm/3FnTksmQedJhv88KCafEoyNDE8mQ
t+mHjP4aCVVyrZxvPCVDCXUrfX2dhL/63cKtnpDhfxV5ks0=
"]]},
Annotation[#, "Charting`Private`Tag$17531#4"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$10759#4"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -4635,8 +4635,9 @@ t+mHjP4aCVVyrZxvPCVDCXUrfX2dhL/63cKtnpDhfxV5ks0=
3.8746648696977987`*^9, 3.874744781315197*^9, 3.874746315775642*^9,
3.8749273488502817`*^9, 3.8749284544311523`*^9, 3.874928513809864*^9,
3.876385400075428*^9, 3.8763921072708597`*^9, 3.876405991681736*^9,
3.876456754462017*^9, 3.8766351308403597`*^9, 3.876810735283003*^9},
CellLabel->"Out[23]=",ExpressionUUID->"7d551598-ecbe-4402-b04c-65b58a0bae36"]
3.876456754462017*^9, 3.8766351308403597`*^9, 3.876810735283003*^9,
3.877176646549837*^9},
CellLabel->"Out[16]=",ExpressionUUID->"4d889c1b-c97d-40b1-b600-2b9c5c6751b9"]
}, Open ]],
Cell[BoxData[
......@@ -4710,7 +4711,7 @@ Cell[BoxData[
3.8744979617764797`*^9}, {3.8744985327087917`*^9, 3.8744985361920433`*^9}, {
3.8749278724611273`*^9, 3.874927909776474*^9}, {3.874927957926465*^9,
3.874927997981434*^9}, {3.8749286303735332`*^9, 3.874928669276963*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
CellLabel->"In[17]:=",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[BoxData[
RowBox[{
......@@ -4747,7 +4748,7 @@ Cell[BoxData[
3.874493683714024*^9}, {3.874496600768959*^9, 3.874496605264613*^9}, {
3.874497262237154*^9, 3.8744972838103867`*^9}, {3.8749286815455923`*^9,
3.874928715735958*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
CellLabel->"In[18]:=",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[BoxData[
RowBox[{
......@@ -4802,7 +4803,7 @@ Cell[BoxData[
3.8744976023283577`*^9}, {3.874497789055393*^9, 3.8744977906382*^9}, {
3.874498546539444*^9, 3.8744985786172743`*^9}, {3.8745780816377153`*^9,
3.874578082335264*^9}, {3.874928778844098*^9, 3.874928826414187*^9}},
CellLabel->"In[50]:=",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
CellLabel->"In[19]:=",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[CellGroupData[{
......@@ -4847,7 +4848,7 @@ Cell[BoxData[{
3.874577462967452*^9, {3.874577535754869*^9, 3.874577557947267*^9}, {
3.874643485943836*^9, 3.874643505272416*^9}, {3.874928856044056*^9,
3.874928937230219*^9}},
CellLabel->"In[51]:=",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
CellLabel->"In[20]:=",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -5201,7 +5202,7 @@ fiCL1Xqm2/9qw8MtzvbGF76jPUKideFT2kDbfU/t6PxX5MQbulp1RhuoPcUG
h4y/IjfOUc+yOW2YSfp+aS6kEnnNu6Z5LGqDRh2Psu7HCuQ79WNqeVkbcqLc
jQSmvqD/AWZqxSs=
"]]},
Annotation[#, "Charting`Private`Tag$38887#1"]& ],
Annotation[#, "Charting`Private`Tag$16037#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -5502,7 +5503,7 @@ NJnLYsBmhagnpY8JvF3ewGQnh+STRgKZDwm8b6VYw7Vpst+cKlddjSaw04pQ
+dWzpF9ZL5YuhxP4IDfb7dM8WU/LDIM1QQR2/+v67MgiA8rKLzbe9iOw93Tt
9L9/DNjU2DudfpzA/wMkyHOm
"]]},
Annotation[#, "Charting`Private`Tag$38887#2"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$16037#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -5562,8 +5563,9 @@ NJnLYsBmhagnpY8JvF3ewGQnh+STRgKZDwm8b6VYw7Vpst+cKlddjSaw04pQ
3.8746435119483356`*^9}, 3.8746648801715918`*^9, 3.874744794869657*^9,
3.8747463266025267`*^9, 3.874927364510557*^9, 3.874928945263658*^9,
3.876385819682931*^9, 3.876393777028558*^9, 3.876406008217033*^9,
3.876456767452816*^9, 3.87663514398038*^9, 3.876815336349126*^9},
CellLabel->"Out[54]=",ExpressionUUID->"5296c8a6-3230-40b6-9d83-9e9a18c50d37"]
3.876456767452816*^9, 3.87663514398038*^9, 3.876815336349126*^9,
3.8771766647191772`*^9},
CellLabel->"Out[23]=",ExpressionUUID->"25b17302-df8d-4f47-ac4f-7daf055d11de"]
}, Open ]],
Cell[CellGroupData[{
......@@ -5607,7 +5609,7 @@ Cell[BoxData[{
3.874498646569261*^9, 3.8744986555761833`*^9}, {3.874499514917096*^9,
3.87449953846764*^9}, {3.874643512325345*^9, 3.87464353590913*^9}, {
3.874928963348372*^9, 3.874928974682311*^9}},
CellLabel->"In[56]:=",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
CellLabel->"In[24]:=",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -5839,7 +5841,7 @@ ODWI4x700gtnTEFgKjtO/fIg/lZ3NMr/jylcVi3fYO4/iIVtLNav/DWF4dEs
pt3TQUyNLKv4vGgK2w6WWVslD+KzTYa3biybQnBFCVM7ZxDfE86hoVVTUBn4
VcX3ZRBnH1ZZ+PfPFByjjRs66gbx/wDhQlfb
"]]},
Annotation[#, "Charting`Private`Tag$54475#1"]& ],
Annotation[#, "Charting`Private`Tag$31157#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -6119,7 +6121,7 @@ XibKSRnsrpihw/nlyo82SDLRu9ZdV0/9pAOfgz69UpWJZLZtEvk3T4c1Mcsy
vK2YyOZybf3rBToUfNHbcNmBiQ5+sj535i/J3+WJR25MdEHmORUt0mG2Qjvp
uTcTPduu/3tpiQ6WV7DwnWNM9D+l68VH
"]]},
Annotation[#, "Charting`Private`Tag$54475#2"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$31157#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -6174,8 +6176,9 @@ uTcTPduu/3tpiQ6WV7DwnWNM9D+l68VH
3.8746648844881163`*^9, 3.874744802267324*^9, 3.874746333936838*^9,
3.8749273685806227`*^9, 3.874928983067936*^9, 3.876385823401442*^9,
3.876394291349057*^9, 3.876406012877129*^9, 3.876456801528528*^9, {
3.8766351483332453`*^9, 3.876635152774886*^9}, 3.876815398813102*^9},
CellLabel->"Out[59]=",ExpressionUUID->"298111f0-8b0f-4f4f-9ac3-93f16d8002ea"]
3.8766351483332453`*^9, 3.876635152774886*^9}, 3.876815398813102*^9,
3.877176668451852*^9},
CellLabel->"Out[27]=",ExpressionUUID->"ebb1898a-b3ec-4b7b-b3d7-ecf4747a893d"]
}, Open ]],
Cell[BoxData[
......@@ -6203,7 +6206,7 @@ Cell[BoxData[
3.874578170102661*^9, 3.8745781729058123`*^9}, {3.874578224113624*^9,
3.8745782445705442`*^9}, {3.874928997286684*^9, 3.874929031035754*^9},
3.8749308773647537`*^9},
CellLabel->"In[60]:=",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
CellLabel->"In[28]:=",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
Cell[BoxData[
RowBox[{
......@@ -6258,7 +6261,7 @@ Cell[BoxData[
3.874580115879561*^9}, 3.874580349535874*^9, {3.8745807387762537`*^9,
3.874580778974943*^9}, 3.874584642453106*^9, 3.874664842911748*^9,
3.874665023941506*^9, {3.874929072501927*^9, 3.87492916663186*^9}},
CellLabel->"In[33]:=",ExpressionUUID->"330a3de5-975a-4319-bbb3-e67ba931053f"],
CellLabel->"In[29]:=",ExpressionUUID->"330a3de5-975a-4319-bbb3-e67ba931053f"],
Cell[CellGroupData[{
......@@ -6333,7 +6336,7 @@ Cell[BoxData[
3.876635735043213*^9, 3.876635744877142*^9}, {3.876635775646317*^9,
3.87663579162615*^9}, {3.8766358387581987`*^9, 3.876635845700983*^9}, {
3.876635910664014*^9, 3.876635972981288*^9}},
CellLabel->"In[62]:=",ExpressionUUID->"fa3f5f7f-351e-4286-a26a-6f2ff101ef25"],
CellLabel->"In[30]:=",ExpressionUUID->"fa3f5f7f-351e-4286-a26a-6f2ff101ef25"],
Cell[CellGroupData[{
......@@ -6350,9 +6353,9 @@ Cell[BoxData[
SuperscriptBox[
RowBox[{"TElastic", "[",
RowBox[{"q", ",",
RowBox[{"-", "6"}], ",", "3"}], "]"}], "2"]}], ",",
RowBox[{"-", "20"}], ",", "3"}], "]"}], "2"]}], ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "0.0002"}], "}"}]}], "]"}],
RowBox[{"q", ",", "0", ",", "150"}], "}"}]}], "]"}],
"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.876404699885578*^9, 3.876404757618524*^9}, {
3.8764048070350323`*^9, 3.876404807369154*^9}, 3.876404969420044*^9, {
......@@ -6360,112 +6363,211 @@ Cell[BoxData[
3.876405293219761*^9}, {3.876405407083798*^9, 3.8764054084979467`*^9}, {
3.876405760265066*^9, 3.87640576759112*^9}, {3.876635802819682*^9,
3.87663582056448*^9}, {3.876635854234734*^9, 3.8766358937746162`*^9}, {
3.876635929476169*^9, 3.8766359561778812`*^9}},
CellLabel->"In[63]:=",ExpressionUUID->"928b0d02-edca-46b4-b287-181111eb6ffa"],
3.876635929476169*^9, 3.8766359561778812`*^9}, {3.877175063164755*^9,
3.87717506327586*^9}, {3.87717668495142*^9, 3.8771766889386473`*^9}},
CellLabel->"In[32]:=",ExpressionUUID->"928b0d02-edca-46b4-b287-181111eb6ffa"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwVlnc4FYwfxe+1977mJWRdURLesr7UV2QVDQ2vkYYQIeVab8peUbJJSBIy
MovitRIy82aUZJNRdsav31/nOc/zec757zxH4qKL+WUaAoHASyQQ/q8SPh+s
U8S3tD245heODS+i4DlfnWWzLW0dlxxFsF/E91oq0bbftrT7j57UNdu9gGWW
nVd+/9zSNqmqKaL/PY9Z3s5aj+i2tR2GD33QK5xHv8qc6WbZbW0rppiyE6Lz
qKwqqqfkvK29QK/5HYhzmKTAsLG9sa3N516YTJ6bwWCjzI4Eth1tjV/ij7YK
ZvCmg84zZbEd7VX1BK/oGzNomuN16orujrZwZF9h3fI00krNF7QF72hXrV05
K8Q0jWXss/tNWQhgnjoqWmg4iQqp6qIivATY58p9/TlpEjMVQpkmRQhw0sNJ
9MC3CYw2kvnqr0gAj5ISkwXqBDqE2kSUniCA1CaDxHDROIrR946T4wlQtNUZ
SVYfw+DN6uSZ3UQQN8oqvPlkBB8/TCZLKBAhqV/nzJzvCJbLU1PPqBBBndL3
z5vzIzhxVuVxLRIh4OrrNHPSCOqX5mbEXyaCK6fCLeOob8joHP/8yDMiRMmx
3SuJGsZd9B7y1JdEqE5/zch6Yxj/SjF/UVBOhJYRiu1zs2G82sKeL9RMBKOY
7IBy0jA2yQQUzk8S4ZQjxZn58FcM/nqjPFmeBugqVy8GBw/h41umBzuVaUBy
SPW+nfkQlrMrVDJo0MBg/zBHuegQTmhMVLka0YAcazDT29JB1E/4u0bfiQZM
H+jUKM0MIKOZYcOvfBrgbWCUjnPox+C63d1G+2lhkFlR/ldJH37JH0xWVqeF
v5v+qVAI6UO1xEeXhI7QAntdjswHyz4cdWFcGT9FCyZlB42VGfvwsOiM4F1P
WhCrdJOIsPmE27eLrSre0oK1XORMuFQvnrFzlH3cTAslLoE6Cds9mG8qtRDY
SQvZs/vi1//rQUvpOP+T32nB14XjTXlUD1Z2UbPmGOig41hfGvN2N95U1J2W
MqUD2vui2oYzXdgquFHMakEH6QVH4nVbunA3XYn3T2s6iJZRnb7zvAu7+qXY
37nSgfgX9ege+y7cF8KkdOERHbBOWQy8nu7E6ZGPHjGDdLBR02u8uNGBtglW
xG0HemAs8eWgxLTj+fBsaxN3egg57u05btuO5n5z1Sne9LDF5UraUW5HvOTn
pRFBD5QJmsfan9pQTintl2c+PVTavXIYFm/D+aahsV/z9OBzyySd2PgBfVct
W6ZuMsALJiercsP3eGs6S+6QLwOENOQIO0i/R+eh2aCQQAb4PnDsri3hPdr8
63NENo4BpnlOroqUNyPeT3lzqZwB6KkTei9lm5FVdrDg6zoDSO3pftLF14SJ
Zy487PVjhFqezRInkQascVgR+B3ECHv+dZiC7Xoc8YtJEb/PCJ7xyx563+pR
/lnTU8fHjDBqvbk09qwe36weqCC+Y4SsMsvLrn/V45cEtiFFIhMQ6YJXLlj/
i1ID1TJB95hAxe6IxNbHWjSYP/viRTgTuNNKSNtV1KIT7dK+zodMYB8geGAh
vRZL98gfImcxwfeV2wf93GrxqE+cUXE9EzzkTE+1FajFa6IuN77QM0MKc3IO
vf07LLAWr1ILYYbB30Hj9Xo1yNMcF8Qewwzlz2nstkRq8JYS+8nRRGa4zvX5
s+/PatQibszEvGAG96r7l0+lV2NrRrfoj3ZmEF4+xWqw8wanx4L8M0ksMC92
ILP9/WuUcfphwJXJAnORLvhvZCWG9diRJl6wwIhDoeqSYyXOafZ/q37FAjCr
t21pWIml7E1ejo0scIXZ0LKHsRLxZXpe4xQLmF6ZcDMNrMCLP09y+Sqxwp52
uMwXVo6pnlV9U9Ws8L5FQPtQRSlmTL49RGlkBfU6RXXPtFLMOduQbN/OCvkZ
tBZDAaVYfLDDeuILKxR/+29U0LwUG9fGJkZ3WOFr0TCb6dwrXPDkXvuqywa5
NB3SnoqvEKn2gp8a2CAlKd1UsqEYj01d9yK1s4EOMe+vvJfFaHrOffDUJzYw
uKFVfyqpGM8d8kvvHmcD4p6MFcKNYnRefyjXycgOPd9mRd+RizGe+vZg6zF2
4Oj9mpfvXYTTVP5zdW3scPLhDudvk0Lcq71KU/KJHUT/YrlDVS9Ed5r/8jK/
sgNN9hIPSbYQN8MSCYGL7GD7UbEzg1CInCnkHH0SBxQlnpSXcXiJKjWSq62W
HKCznxiodrQA/Wj2Peqb4QAerRR7euk8rGvkhOYlDrh5Osgwmi4PGcMXJiu2
OKCnYnXy2OgLjOYt1kzi5ASWSXshg6wXmCmlOmp5gBMu3vRNvSrzApuPahwY
8eIEa+JS/7xyLoY2ZNqv0HHBUabpBjnHHDxcUd1xjpkLBN1Gz1NP5OBGbt/B
anYu2N/ed25ONQcdolmZA/i5oMTz8zMk5qDhBffn3HJc8FRfnZyS+AxZFg9P
KxhxQXt6eGR9RzaGkUcc7WK4YDC/WPyuxVM8zLnZ3fiICwpdnLOWdJ7iBpFf
Uz6JCz5+SJkOkH+KDhPH2BYzuKD/zgWa7a0sNCwuyvN7xQVGNj6mJtlZyGLg
/yOxjwsoaDB2cDMTw93FXTpEuSEE+ZoE32Qg3zRRclKCG6xt7dwP5mZgis33
nh1pbqiXHXe6npCBBSbZ6vv2csNq4E4bv0cGdskqMERpc8MWewfh0r4MFBz8
K9XImhtMi0Mj2p89wSw8/qExnRvMvOPXxZ+lo+JrJb8vWX/62LPWi+PTsWw/
z/6VHG7YI3mp50xIOjaJ9cZJF3H/2Tee8u5r6Ti9dv5iQC03pJ11CHysmI5K
+VfWdUe4Ia6E8LHnxmN8Q/KTrd7NA/ND2f0XXqXiJTUTP0U5HmiYbjt/Pj4V
2S3IvakKPJC3PHzIxysVrRKq7vqp8kCVl/FRim4qEkRWh0CfByTPjtLv7khB
FL8RW+fAAx9nfZ9eW0rGD/IXic1FPKD8q+ro2qkkvGm0/+zBMh4Isu1soNNM
QrIT4WVOFQ/oFjz+sHd3Ejrlp1mG/ssD1ebC9f2LicihNFBu2MsDfr73RyOj
E9Fc9ZRz2xoPSNgKpGt1J2A/HB3oAl6gExvkKnOKx5Ojgz6rR3gh7aq5ZNzZ
eGwNcRcjG/CCmup/H8IxHt92pttePsELfy+LeJaT4zHL7vfEqg0vQG+PKnt7
HF4PLlwi3+UFeZU7bUkqcUj4KMxxtZ4XBl/VZ4RxPUKqe9HL8GZeON5sOjq9
HYs/BQzMClt5wST8bvTfP2JxzMYjdr2HF2RmX7dSW2Kx5edH4YgxXhhoTzoT
HhiLsfyBskUMfEAuaVHY2X6IslbzOr8N+P78keMQu/0A3+W5B3ma8MHQ0W/z
rT8e4Nnfqx+WzfjgyX3J3YJDDzAsgWCxcJ4PfChTL8deP8C5Lu7rY058MPVc
uea81wMs01dJ/BjNB0kWbrQJGzGI+6mLmf/xAcONZ3y1jDE49M+WmsQQH0Qa
XLUTXY/GW+3+Pmnf+GAjreJa6HQ05jiGMSZO84FFiY5xdFs0smYni0Zt8kHW
695DFrHR2CVcc8xTnATK6tceV0hFoy0dbYaxPQmke3KNI9OjMPp74cYrJxKY
UcrZbYOjsKbO6qSoKwlaXVSzTZ2jkOxfRTdHJcG+QeqXW5pR+GnL9er9cBLs
kcjbXP0cicarwwpdBSS4ldRJnyEUiWrTNeUWyyTIFpusacwNR5YOr7aLd/nh
gnLGHhuOUGQ5sHDjnyB+OO0kd19oMwSZ4y7zpYTxA5vvmcTvUyHIZHniQu8D
fsge3zz7vCEE6Selp/Qz+cHN7V3kum8IEgiddIr1/ODb2XoudTEYV/bJaq7S
C0Dob0dL79EgHLnfnRseKgD3lJw3hZcDkJiq9pMQJQBCjY01umMBKJ6beOjW
AwFY+R5Kvd0bgFb11s02yQJgVPgglrMsAPvXZsZU8wWA0GMbvnA7ALtt6SSG
OwQg8ZOW0NXte1h/QDVeRVAQXrUd/llOuofP+uLuDWULgoEQ7WCxgz/G2deS
GF8IwshzvL1k5Y9B6zPPlF4KAt/7phU46Y9XRHRb75ULwhHTZ15LGv4oYz3D
J98sCAJyM3e62P0xaxyyb00JQoWMAcP5kjv4ZHmymVNBCN47ex84TX8Hk3k1
OA4XCUGEz8pb8SBfFFe9X3KmVAgsHl1xv+Lui9lnvp91rBQCa9rJrSobXyxO
DM+MrRWCJMsG62gNX2zeNXhwolMIdil++Ti96INLe3ztIn4KQfaO7QVzWx80
xrcVnw4IA6V1bT3K0Bu3bh6xcywTBg4BOSZapGKGTmDef1XC0F1ScMHwABUN
2JqW9d4KQwKd+t3HklR8kGkYIt4sDNlhydzuRCrKdJnl934Whntm2dXVbz3x
xD6bVdgSBsb55LRebU/MmvIJ50MRqO3OUSs9ehuNrcpKqjtFIHddOf2+lwfW
5b/V/9orAnsTbNW6rnvgwa3mAUK/CESK6mqJ2XqgVMoALY6IQMR4hHeXvgdu
fiacavkpAtp6DzpzSR6Yd9po6RMvGYIKpCp5S24iq8mwysLpPz5qsy9qyR1b
NFjKJPvJoHTzJik42g1tVIlzKV/IsK1ndos+0A1X9q5JC3wnw6TL7NsIqhtK
SI4/Yp0lA53V8dnSi27oyVTnsbRFBoXW0/Wuqm4o3UtVbZQQBa5dmRdDBl3x
jvPUq2vXREGs9u6TDSVXVH3SXFK4JgqfCH1pL0dc0GbP1DZpSxSKmwL6iB0u
GFHKbOhNFIONgNLXttUuOPLecFiPRQyOL+afMUxwweifrWwDImLAdJs5rNrU
BWePdF6mBzFo0riWLVHjjBnjnwXOB4pBCzmLHJN9HTkVZrxpeXZBbnRc9Ktk
R4w4veqlwiYOT/Ws3+0He2Q8V1DqnSQONHWu/mNylzHp0+ljxrskQNGCZldy
6UUcvbLv8D9PJMCWtkPNPssGpTRqKhr3SsLJt7Ho6/Q3+oRqhcQXS8LCwO/g
qyfOY4uIW6+P7m5QCdc7kXbJApXk4r1nGndDrI+9TDf9aTTRnwt6c0wKvu5q
SHr32xxtczc4M/qkYLC3TpGN1QwjglcXuSylYfF0WtCvcVMsyHluFjsjDXVG
UZeVB40weDCS38tTBoTODnS/VD+Gt8Muqkz9loE4111tWWz6aOUz+9EpTBb8
r8bYry8iWk5eqadyyoEtx+5y6v4jyHOVV2wqRg6mazgfXsvWxRqKx7LTLgoI
5juu5Ujr4N0rTdJemRTYM9gq296ghQtdFc1NTylwffTHK9HXWvg35DqScigQ
alzK7laohQcFI4sK8yiwf/e4ACVZC+ffm2tNlFLA+OXPox03tNBS8cupU80U
IMtwfCKIaqHa0tK9vT8ocPt1utZnT03MshmX8ZmnQFeGtlW1syZyt/W9f79I
AWLCxsbTS5o4+7SK8/IKBY6zHn4ccEITMy3uJCfvUEDYOf7EbTlN5HrNWsLE
Iw+Hlpz0lT5roJ/s1ukzfPKgVVDGceGjBs4+nFvL5JcHj+BUhbAGDWxy6tQG
EXkYaOCzWy76w4vFt3hIyQN+KffaCfvDh4Vc/1dGHt7RzpcZ+2vguVUqFzdF
Hg7oR/yVdlsDVTosz+QpykPbobVNk0samKFpur6+Tx70Jo9p5Z3XQK7nkKKv
LA+GRYyVHGZ/8kn74ZGKPNwNWrnuoa+BM/6SIyNq8hBaMXhuWEsD/wcAts/N
1:eJwV13c81P8fAPCQkRkhFZKiQlb2uPfL3uOOxN2ZoTTsSKFhhGx3KiszEZEV
KRmZlayMjGjIJsr6Gr/P75+7x/Px+Nx7vV6v9+s+x5w8CC60e/bsUcU+/v9t
WGgmZeAuD5PbLAIzezSA6Xq+mNcNeWhPI7SfHAW4QF7szkiQhxQZPxGecIDD
4reFNpvkIeig4yG+Nwgi2jLelp5SgL0bkv/aDNRB4Y1mgp68AgysXOF5sKsG
P0smncc0FGC2RI3vdJUaoIeSrKwkBZAjuS/NiajBqksd8WKMAtzjT8vS4lAF
Z7qxNYFlBWCtL23tZFAGrrW7Hyp2FMDld95JunYlqJ8ReWLEogjXUQ7d9AMl
ONJzTTfghCKUHdxaendACXoytyl9VorQ/+XfF5K4IgBOQPZBrSIEsEe98cT2
tSDTQC/cpgg6k+Eb1drykCbiMlTdpwjC9M0+CZzysMZafGdyXhG8VBYHZovk
4MWw2mcNISUw3i0e5Z45C0cCyFfXQ5UAJ9L3sj5QFsauf8+rilcCWkt271OW
spDpfembb5oSVM2vza2Ky8KJq76EP+VKcPQ6cmgakQEJ+2ilme9KUFvcJL+p
KQM4nTd7R0AZnjxQy58VkoY9mpq4FGNlCHpLWvTZkoJGXJu/tbUyfAkT/lj7
Sgr0lPpm+jyUYS49NkVHWgrMxee6PmUog36dWQzbaUlw5ORPf7elDNwN3irf
FSXgBHt2fxCTCoyYCNoQt8RhkvnUfjVuFTjY5/DNsUEcLu+VC6kWV4EoLr1Z
PhNx8F4zcntJVAE3g8K4rctiEDp6Sz6nWgU2vPmnzr07BfkFw5/CfVUhtVzv
K2eDCAg53svSvKsKeSu1JM4EEXjEd/r6Towq1HZNPYlwFIGo+378fvmqoDfc
zjtEJwJXXTivuHxVhS1TF9yoyQmQPqbHpA1q8NVrjo28KgzPBueHd43VoJee
bhp9EoZj8ZSSWhs1ULxot30/Vxi4dieszvqogah7ry9YCsO/kcA84adq0P7u
Qp9c9TF4/ahMk4ZVHeiTtvr0EoRA1tyG9y2fOjRWPNRauSYEzxn3zNwQUQc+
2+zlZUMhSPMzSVjCqcNKI0vwLL0Q3Lac+vbNSx3CPhu9xO8KgvZ+waC6AXWw
fxjteZZOADrvR766lYMDbvrmxnWfQ0DS5/pjV4IDrX7DsPeah2CKKVVMsxYH
Q+5H3Tc4DwFtVFE6Uy8OngWwVqe85AOF6M8hVFoE1oJMs0/+HYQn8TzmJY4I
SmUXrH/E8YIEPiMy8RoCca/d1M/OvPCa82TT9QAEGm69+rwqvNCXqKSgloDg
pR1HeMkvHmCikvjb6xFctH72aBN4oPqjue8fDoBzXeWhmozcsCPBw/mDB+Dy
GNnl+sQB0IkZKu47ArB5i05ztfYA9Jg4/X51EuAxg+Phb14HYK7ThxiMAJaT
6UeVJ7jgWHcysHgAEBx8FYI/cULUlxFWkU4AqxZ1rZESDjAqTnu93gtwliC7
6ebHAaxh5EsfhwAe1DadvaTOAbFyI00+vwDeCJtaln1kh6Sk4ZuNWwDDRccH
nJbYIA3/dcpeXAM27v38dMmIFYo/DbxPidCA3nGzh3yG+8A976G3e6wGiIeV
tdEK7APpoPNCmhQNqLahtGguMUGZxMCt6ScakD3+H77hIRNUPeiXVXqlAbBa
IpE3wwh1Bl8yv/zSgHDtLR+vJwzQ1dwTuF9LExKj6sKrYS/MbWavORloArvY
J2/ew3uBSdrHu9JME4KG5jgaV+hAI+XAJSJZEzTfKBTt5tNBmbulRe51TUgf
Iy/TcNMB9WD/aaVnmvDxYp0YZYMGyoyf5ka90IQJU8mm2wM00HnX7+hohSYM
fJylKamkAYY5Xp57DZrw53L4iX5vGrhRf37Px6+aoKKKJBSX9gDRbajfnk0L
tgSWzCjzu8gvowBfdkALNllqX5Fe7qLE3oCPew9rwfC0gsLj67vog/rhxgJR
Lbij2XHPe3cHqXGRileQFgSHXpEK4dtBR2tHQu57awGj0+9tQ/st9JN1XLpk
QAvoWg2PWilvoCjdLDvqqBb0INpCHbYNJHPHKfrWDy24EazNGzqxjoJXfv7W
W9SCR+1VUrNR64jv63TGOIM2zLHc/IufWEMm+SusXAraWP3vM6NNW0VVGozT
vhRtEBm/5yat8xeRb7XxklK0ocVuoX7m2F9EVxmprZGpDREjJgI/dlaQ+SnW
TLYibfg5w8AZXbOCZtg5zz9t0oY/XhTTMpkVJDhyuHlgWRti8PpBCxLL6L6f
ZJYKXgeqr5pf1zVeQhFse9KenNeB+Hjqz/gzSygqtzt5r50O1EuUrXBzLKHY
Ht/ozss6oN/YbByft4iokrX+TqE6cOtQEHt6zQLKmdQzjXqlA5yWcvpr/+bQ
OyvH/4YEdMFLh6fuwOtpVD8vu4o7oQsB6TudfpHTqDF0758cMV14fIHh21mb
adRSlj95TVEX8n6laNRsTKFP7AvdNHhdKPgnoTuGm0LDLTefnQ7VhVbRWeru
4CRaU6CcC5jRhdivM67n9X8iXx1Hx/olXTAf/f7iuvBPtGQheY1xTRe+7Dsu
MLj1A015toVS6fSg/ci058WyH+hr4Vb5S349KFppNM4W+oHeCLpwzZjqQaWW
VZPgvu/oLoPCZ2K5HlxOL8jjYhxHO9x0w1k1erBcu/s4p/sbunm8a3LqnR4o
Xeukj6V+Q95wecfvox5YOkgK5Qp+Q843M84k/dKD+X9BJ+rlx5DuAkP0h4P6
ULB75hKX/whi6R/QVwvUh9i+sHMaGkOIa5rKePCePtB/EXIQ4h5CfFsWLX/u
60OZabGj4e9BJCrcpZWfpA+U64OWQbGDCNzbcFzP9SEgGt3Cjw8gX4Yauakh
fciz/EkxSOhHIwopQhRFA8hvT5UkivSh7wbW39zVDUDopKRp5Z4+NE3mzTDQ
MoBargoTk5FetHov8ciuqQEQe8+SZSm9aP/nKN7LrgZwqD9hppmhF+lcvMUK
VANguUKbWrfajV48JK/PLhtACnPb3bmdz2g/k3iozoYB8K9p5V2p+4y8b2xw
PNk1gO4r9g72wZ+RvE3ySQKrIRhXq7tl7XaiN4e7rKpFDCGGyfN5AGMn6kjX
qgy1NoRCY4kfneIf0WSOmLdAnSFwTRyR/dvQhvS5N7b93hvCkV98tUmxbagw
tDWyq8MQ+Felx+JJbeiai3NWyIAhzLDjL2WttqK/ohld00uGcOgTfi+zTCtW
lZxSVceN4Iau8yfPqmYkWLo+axppBI/KOxIidhsRs0i1mFqcEST5U7ivDDWi
1cf+bqepRvCz2wPFlTeizpDVSbosI6B2P/ydcqkRBZ//O1FdbQQtk+VHK740
oLGdxQHhKSOQ69nCU2vrUYbJ76ZVXWN4+pawZ9j1LYpqfEr709gYmFwS5aNO
v0V+iq4a3QRjqMtU68mde4NMj/2qe25nDBTLHMoh3zdo5+/3Ggc/Y0hQrq5b
uF+L7NLGSjryjMEy3Vb2VWMNEpj9kpqx1wRERVOrve9UIee3efnMLCYgJv+U
DYyqUFHc9XI/ThP4em/tkS9vFVKR4/lgKmgCE043ove/qERWQZabO4om0BYz
WL/newWK5+i1tr9iAorX7FjPkMvRwES28wcvE0jzCGQUOFOOBCu8PRVvmEAi
j0yB204ZKrbmiuAIM4H88qULvNllqCML/+pdhgkob4w+KJp/ifbKdfEI9ZiA
nG14nQ61FBkxZB6LHjQBFo7JN6+ulKLEQY8z62MmYPFObjpQsxQdC+LQ6Zo1
AXZvqWPbEyUI12Lqe4feFCrVr7s8yXmB/K0/9YwrmcKm6bEzTtpFaCawIy7r
iSmY87Gl1P7NR0Ut1KLFPFNQFt7PEVeZj9z3O7arF5mC3GRlyw+/fPQnZ432
a7UpTD/2p7L99xStd5zw4+oxhX3zzSeM9j1FDIduk0P2moGnuqBslVouanMy
DOhmNoMy8c8+KvS5KKqIJ/kopxnkT0/8k+3MQWxQ9LlWwAzGpnafBTnmIO6L
Q5p/FcxAtKQw0TkmGwlXnj3t4mYGvvva63o2MtHPnR2dcg8zUKVK3dBoz0RP
9TucaPzMYGKVv5rvcSY6PeKQln7PDBwmsxl2lDORNF0sR3+qGVTpdfkdo3mC
cPipf7qdZiCyGCJ4D9JQsZ+pI+WQOSx6POApN3yIetMlDML4zaEhsHsfL8ND
tPGeWcbvqDm84mfZYGlMRjoHWvdYi5hDRMKSQLFqMhotQZlHZMwhckdC9Lk8
FbFNS3/L1jcH19mY9s9aSejsfo7WJCNzIEre1ltjTEI2ivMvQk3NwcWLUp7z
MRHlhRUEu1qag/mXN3sizicidWFhQTEHbLxiKfuLPgnoGumA7Ut/c1hVErr6
OCwOJd37o5190xxe9F/UahKIQzUFnyWSgsxB7/P9i6NVsYh+/cGWb4g5pOXY
h43MxqB0yt40pThz6H5NKzTiEI0+ffr39d1Tc8i/a+P86HokOgOD1p1fzOGk
7TuSLISiPcm4/J1Bc5BuUOSQnw9BfbO5/yRHsP0snJoQSA1BgQ+9EuO+m4P8
0puA1I17qGOB+aP5ojnYztKgww13kWu6OuplwoNfJnX40Z9gpLKSE0PHioeS
vvQ7c67BiM2AeeQsBx5Uw0m+w6NBqOJv/w0KDx4807yrbncFIjpjz7JzwnjI
2U56kdB2E2VuZosMquJhRZ694DKNP/I13+fLhPCwPtuQcyzOD+k99WhU0sRD
avP3Cj1BP7SAV7N/rI+HPOvUvH7srUy94Msj4jk8JI01BLxK9kFfzzOxjrrj
wfhfoJh5iCd6UexOZPPGQ9UMuLSKeqK7dF+eqV/Hw/7V4pssDz3QqZIsnYxb
eHjzdzw7TcYd+TGo3raPwIN4523H1NAr6EDlteWJLDzkh9mR2DJckUSM8eGR
XDxcS2UtIfK4Im0Xcc3+fDwMyXfE5sS6ID+e6YSOYjxseH2iP3zfGQ1ed5Yp
r8FDjb96oHKcE/pjomVT/AYPAmUvK2l5nRCzqPDd/Hd4+E1mOFWU4YhU+791
pTbjgTIm5Z5Y6YAyFEieod146CFtiWct26JX7CqPgvvwMJlkxnlbwBZ1TfLV
3xjAw/H35VrTRmRE87Cf49ooHiooRHmDciJyXsOXnJvGg+sc7a/7z88jsWr9
BVEaAvSvrBbmqBGQVvxJ3mN7CVDjq8jjmI5H5EsMuCOMBOhLP5tkQINHMXzv
YzjYCCBmunt5X54ZWrqBzqzzEeBFIGsLo5wR2ocXPLd8hAD1T3Y2V0QNkfDp
7cA5QQLcX1WvHz5qgCyGXn8cP0EAKaPyRa/jeqhKWeFquzQBhGktRCM8tdBn
Th5K01kC6BxNLTqaqImmpldq3yoQoEH5vAW5RgMdSnnJUqZGgJ87Jv+l8AGS
9Y4/W4QIoOTYB/uzcMjQ0IP0VJMAJ+8IkCaOqKPATYnnKfoEeCTm+YtHVgVR
elh6KUbY+gO5qOaflFBx4cxmrCkB8rdSk6R9FNEY8ZlhiCUB3jo1GsaPySGN
2uMzVxwIYOlv3ZEjI40Omt05fP4CAa59mHliYCiJ5r+PGGq6EuB0l004RVsC
PWZOfs53lQBmRdXPfb1PIY+M5WE6DwJ4HAglNOaJIh1ZM9ZFLwJsBWbntM+e
QH9smK41+xMgxK3e8kbJMdQ675xeepMAzVOidUMSQij9bsOn1CAC9ETKtHXf
EEAGBTclvUMIIMN6+TzbcT50VH3AzjacAHi/xdGsYh70r+tsnH4kATpL25zu
kA6grPW5RcE4LL4hbn78wI78ow2EmBMJ0JQgPe5xlRmZCD01/0chQFxcfjuM
MqDjFbR3xx8S4PYITTBLIh3a0LN/+SGFACvZV5hNovagz8O1E1XpBHDl+RXA
8OA/XJ4HH1d2JgHajozr2oSv4m7RXdeMySFA0dYMdwL9Mg7/sNv7xlMCaKVO
LpE45nAnxSVzLhRg+zcQ2nE6+Au3XRfVa1pEgK95cZU3NcdwvYTfdColBPhP
lf7v73N9uIJJLTmRMgLcKkzrMexow92+mem8vxIbvyrjlObLGtw59m3Kf68I
UL7zTtpZLQcnnm3TPPmaAHMmFZ/i6n1xNApV/7rfEqBb6tuukKcLbqCdS/Rt
PXZ+AcK9zyszcMW2HlbPmggw2v13slizChfy50N4UgsWPzHPvOOSLTibsFOv
gtsJEHXVtbjnZg9O6lDYb7ePBODv1fdSqh7G0RdPHDz3mQA3C/nvtLv8wA0D
Th96sPz+azCQOjiNe9mXckP8CwG+vfhq6vB4CXf/0toz3kECeCXJLJ+t+Yuz
3bIYohkmQIXhltx3ww3c2fjSffOjBDAa9fkQZrKD23eCTWVwnAADCpfsBMZp
0LdXbpebfhDA3qNMmqN7L6o0akl5MUmAv7l2pSc3GJGjz+3/QucIcCLaTY9t
nh0pMo6Iey4S4LPQHuEdEidiS1Uik5YJwJCnPyxGPoBqGv+8kVknwEL2y4vt
zw+iOCvTef7/sPkL3Wo6Nw8hl5lCAaYdAnCmXNQsvcCPOLmcg8foLEDvd/LZ
Qw1C6Hde/Yt2BgtoKUy4XXFEGL1VFvhWsc8CJEXnvvfeO47cHPvRAw4LEFwQ
SFHwE0UNpfo0SkcsQOKQyETNggTS9jnzyEkQ+/0Nx92BLknUJs8lFXPMAsbO
/mu0c5BGXa+Hyd9PWkDDL/J4ibMsGnvvXh0tZwHNH0QuGLxVQE73LcxeKVpA
ZYCpYd0PRfTLQGlyQsUCLIyKr6bsV0ZznTTcihoWkKE9vmsUpIo2BykeEyYW
cLlAJCjAHFBwagADK94C0uIF+m5vAaKxs0tXsLSAP+onnwQ/10BMP05+eEC0
gCOuZ8f0ubTQwfnXogoXLeCdUl+WAa0ukqOZGI26YwHpU6/jF1yMUXVTs29l
iAUs1+NbFXAmSDW8kGU83AJO8r9v3nfIFGmy+CrLx1jAC7bPkgr9ZgjPw0j9
9tgCrHbMWjer8Mj99BljuXILCN3D8PRD+DmUjw94PfrLAiaLpvOG/9giz+R+
sZ4pC7jqcypbxt8OKQ2fTW2ZtQD6Fn8h/LYd6nBeuFXyB9vf9hPGZXoHNOd/
Qf3utgXENnPIcBxyRLIZJvUneCzh2aM4nyjzC6hu5ljLFW1LoOHeL/Fw+yL6
EtLRvZFtCbtu13Yq2b3QZceTDxY9zkGLU7ByKF0QwkuuXDipbAX3LAaNL/iH
otvR31K+/LWCQQud6MrySMSdPOBjW38eHKt6esubYtGd9fKr55rOQy9Tf7vE
l1g0S4x3MWk5D/eN87JSJmNR41GD8+ofz0NMtdl3y31xyLPgtYrA4Hk4rHdK
QMs0Dn14k04zunge2o6FEGn749C9HxfiyEetIfJ50yl/93i0JL1USAq2hq5v
IZrjFxLQITPDIu271iApzS1LfyUBaV7LLT4Tag2krmXXE94JKKnAunQ3Enu+
sSUdfycBKQg3VOZQrcEnWezMxbQEFHggsX62yBpc3CzNgnsTEOPq2f5bw9aA
zpgl2KgnImnu2AHnMWtoIqlKtmglImvZqUGTCWsonXlEd8YwERW6pw0f/W0N
dvmm56etEpHx770TTcvWkDMunsXvmYj9f/8yy8JsA/uSNBuuZSUiwVp/mjQl
G6D9UXqidjcR/WUkur1XtQGJjfy5Gfok1GGp1j2Hs4Gfru/mDrAmIf+FPVnq
Ojag3H/zIZ4vCXUdi4JveBu4reKZf0s6CYVEpN0WvmIDHc5/tR7YJ6Gpcw3b
z9JtwEDGbDu9OgnVZee4dGfaQAr8kFl9m4Soi2GfNnJsQMWdrkavKQlpRhqm
GxbawCadbVP/pySU+qZXba7KBl7KRE7lfk9Cpscnb0l12cCuqNU9WhYKKl9i
3qykJUJNxGHRj1YU1PnORfUZPRFWtph66EgUNBNbH5jCRIRnM5y98vYUJHTG
bzeYnQihlMihiIsUFOs2sVf/MBGY35zln/WnoMvfX3F8lSFCRq5BVtZDCjrW
5yyy40AEdgWzi+M9FKSW88516QIRKCxD1i79FGTtffjZd1ciVHAHffw5hI23
v0us9SoRjLQR9I5T0JaxqnT8DSJoNeiGuS9Q0GAzp6pwPBGKPPSmnjBRUdyr
OnPdd0Q43kcJ21CiIuvKrHX/RiIsHvbqY1ejIuHy0MyCZiKwcsG8AKKiiheG
S6wfifA06GnYaR0qGszrj+sdJIJZ+aP4VXMqEqIsdDosE8G5IJHt8kUqmk7o
9kv8R4SDu/0sApepqCyuQvD9OhEMfUrX269SkfaDm+4nd4ngXfcgn9Obii7d
Y2BfYCEBr8vxNOtAKir1FDS5JUKCbUvD9ZY4Kgpwp/lXdIoEDPIF24cSqUjz
6s+0MXESxBJp+C5SqKjvYuGchiwJJs5foy4+oqJ1O4VoJkSCvFG59ZosKtIw
Mf1AtSbB64OiUQplVMRsJOPTSiKB8qQLk0QF9nt97iMbdiQIzbvTdKSKily1
v14mu5CA78a1zekaKopSdWU+7k2CTU6/Mo0GKuo5HWxQ+oAE8hn5keOdVDRe
MNTxPJYE7kcd6B26qGjhtLxxfgIJLB0oGV+7sfnE5kwzHpKgdWxepqGPirTE
iJbROSTgCd09aPmVigiFlV/uPyVBs7x4bdEwFTmIcZ4PKSBB8uOJ6D2jVBQo
1mZzs4QE2mUh7x9/w+IhpmB/qZYEP6QG6xN/UlFjYcL4hTps/qA47uZfVNQl
Nu9o30CC0TC2Z8uTVDQvluts1UqCHmmmh2iaikTFuS5r95IgidDUnTlPRQ/F
F3yFZklwvC4l+94/Knr63GD1yAIJNpr/rLmtYvOJ5/kf/EMC3PxWifEaNr44
+Sb7GubBbfO9G1TEJNFxe4uWDBc3LlHUtqiIt0iEZp2eDJJ6/Oq7mE9I3L23
wkSGijgJ4tttLB4SSmEz7GTwOq6xKb5LRTclnkYNHiZD4wPb/b00ySiiiIa1
T4AM51r4Urxok1GyhG3MZyEyXJ/6V8BCl4zKJLjjW0TJEDm06yy7NxnVF3lw
Np4mg1VcNvc7zJ0SHxLfSpBhaJVgoUefjGYl7lErZMkwEfsx3JAhGW0WjfKW
ypNh1Zv9TjNmpjPKj54rkUHqqhmnGmMyOnFmKSUbR4bw1Ka9/EzJSLbYiD9D
gwzbB72vhGGGM/npj7XJ0CLL6zODmXzGLjPekAwmfMru+fuS0Sk3RbEgEzJY
Nl57tY15JXd/hZs5GXKCMr+YMSejuvFpdSsLMqQ/XOxIxxzF39SqaUUGu9SA
x78xW1mn4aVsyMBvbqt1hiUZHaNcHz5CJkPMq5oOd8zVLKcW/zpi59Ngc/MX
5lA9moAJZzI4Bo88PcyajMxCvtJ2XiRDkpBVjRHmw+/Ko19fJsPgq8nyG5gn
N6N5869h6w978SgL80sF18wkTzJM/vfJrQVzoDcSu+ODne9rl9O/Meu/4Ku4
6kcG3rjkITq2ZHRg5o+6TQAWT++7gfyYx0Q+tOoEkqEvQo9bBnOhYy5e9jYZ
3gkw52hgvp4eNCx4jwxieTNipphhyMqFJYwMw9XML6wws/JIL67dJ8Phg9GS
JMwD5vsCfkaRITAr/sX/nR39nbY7hgyGJBVpa8zubbXRb+PJoHfpeaU5ZpW9
VN7CJDKoszBo6GCmB/fM5GQyFORe7ZPH3HVLTyzkMRm0XtJ4C2NOeyVU4ZFG
hua230dYMF9a2VAnPyGDf5pG3yK237NSva362WSY+ieT3oV553IRXj4PO8/K
4RvFmDuehg0fe0aGiG5Ht3DMyd/tXNifk+Go5W9PEmZHQaXFzWIsvsS4BAnM
EkTOgN+lZFg7EPRpA4vXOnWGtq+cDLff9Yo2YX7f3RRdX0WGB8+rnkRgjmNL
5y2uwdYrZ6BiiFk0zEws/B0ZwtqZRxuw/FiuP1Xh3UiGutY70/6Y327R4Oyb
sfVpyQmJYbb0rcArfSADLE9wh2D5d7Q0ZvhEJ5Y/hOMDpzHPzLq6cHZj+RAh
/fEjlr93LxwKmOknw/iq2nlGzMZPlmkHhshA8gz5k4HVA9/wh+imETIsw4lW
WcwvCMGZad/JoEakO2OG1c+Ixo9W0wUs/g+OHCVh9fcs6A1e9Q8ZOn7ydfVh
9epTQx0++ZcMumPRnwwxM8voL+7ZJIOomGuVOFbfSkLFvOX0trBpX3OrAbsP
XkaxM35jsoXuvRbvOTCL/fNYY2a1hWwhtxabHSri75AddOKyhQiVZZoJ7H7Z
41v9mOuoLSh7Nme/we6jgLFDUThhW3hFm0A3vU5Fy/q3bl4WsQWjtNyznJh/
CuBIjeK2UDwSznoOu9/aW5v4vZVsYTXHab5wGesvsiJsGaq28OBhCnfVHyp6
kxa+3Y6zBdmeYaG3S1T0wstg7JiOLfTTnl+pW6CixCOfn3TjbWFCR/JjwgwV
ET2+CstcsYUPnfeL/CaoqHdI9YCtuy08OlPrpjFORcba6XSRXraQd8FMkQm7
z3GHHH6O+9sCvs6VPWoE679Nv/LiQ20hdaB/zW6AimZ4/5xaSreFEdmvXOYf
qehWHaNUSRd2HoeapZzKqUjl+cR6bq8tHOTjXe96ifW/h7WNKf22sHJcIV2t
lIp8vTyswkdsITMmJJy5mIqunhgIsp2yhU/eWZx3n1KRXdTTjyx77IC++Mzs
V6x/gpXO5UtSdnCr/nC2+S0q2tE8KmcnawfLLjTi9gHYeUhtbFvI28F+Prov
l/2pSGlfcQJStYMY0xZKgA8VybzhruHVw56PV9nxvYLtR/gnY7OdHbxfGzX9
RaQi+oV7ecdi7YCr1v72a0Uq8tz364tVgh2Ytv4WBnkqGjmhxxBNsQORni+V
jbJY/yGxXFxNsQO/X4SKujNU5NyedOpDvh38d66cnHgc63+5uc99G+xg26P3
SSE7FQWTWl62/rUDcUGepdLvFLTatq/uGskepkq/6GXfo6CjmdOrSXb2EF21
Jy/8NgXp+7dLvXa0B64/kgWXAikoRSQyi+GSPeiOvC4R8aMg3D2msCe+9sCw
du1fiBsFhasyGnfH2MP7kDT7XjMKOvhi71e5env4wBZ06dNhCkpr390M4nKA
x0uB3gWFSchxjVn3jqcD/GfdVDnRkoiGNo84efQ7QMVCzuzY6wT0T1e9+LG8
IzzIvSagUh6PXjPzMv1KdITv2rSyHYQ4JJv796zAuiPo4CNVklhikGn4j9h4
KydQsBLTD56PQnqGscYK1k4gRDY7fehnFAJ2ZeYRGyfQ9hqprfgahWSSY8NO
2jrBTITV9nxrFOJ+qhxYd8EJDu69K+aWHYWGm+Pc5jyx8XQ/z4ecj0KX6NW0
9R84QUtoR711YyRybJ+kWYh2glE1hWy2mkhEjEl4lxTrhL2v7/dpKolExjy/
Vb4lOMElsvOMTHokkhJJlPF75AQB9y84Hb4RiVa1pwRz85zAYdl13xHJSLTI
lDRikO8EKV5LNd9ORKKpj+opi8+cYG+St1/ekUg0ZJnEo1rkBKVthofl9kWi
N8441p4yJ8hitla3+xmBKk9Nt/tXOEH/SF2Q+HAEejGXdF+gygm0GNsHNroj
UKbvNK1bjROgrOBvj99FoMdKlHr2WifYU3c3/kpVBErcwgVXvMHGix1wxBVH
oKj6aVVinRP4/3fyHFduBAoJpWzsvsPWTzp09XdKBPofw6xU2A==
"]]},
Annotation[#, "Charting`Private`Tag$62939#1"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$43801#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -6497,7 +6599,7 @@ LA+GRYyVHGZ/8kn74ZGKPNwNWrnuoa+BM/6SIyNq8hBaMXhuWEsD/wcAts/N
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 0.0002}, {0., 1.3506820624401288`*^24}},
PlotRange->{{0, 150}, {0., 34.00714457593476}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
......@@ -6513,8 +6615,9 @@ LA+GRYyVHGZ/8kn74ZGKPNwNWrnuoa+BM/6SIyNq8hBaMXhuWEsD/wcAts/N
3.8764057729348927`*^9}, {3.8764060604743147`*^9, 3.876406080358473*^9}, {
3.876406176389454*^9, 3.876406213636365*^9}, 3.876406268029829*^9,
3.876456813206347*^9, 3.876635750052433*^9, {3.8766358091390533`*^9,
3.8766359766209593`*^9}, 3.8766372207643414`*^9},
CellLabel->"Out[63]=",ExpressionUUID->"0abeeb9e-7454-48ce-8111-ad9935556240"]
3.8766359766209593`*^9}, 3.8766372207643414`*^9, {3.877176679220908*^9,
3.877176690700124*^9}},
CellLabel->"Out[32]=",ExpressionUUID->"7b04d8a8-ee13-4320-8fa2-9af9fb65dbf4"]
}, Open ]],
Cell[BoxData[""], "Input",
......@@ -14555,73 +14658,73 @@ Cell[3195, 89, 684, 21, 58, "Output",ExpressionUUID->"e0e4a777-cdd8-4c82-a643-5a
Cell[3882, 112, 478, 13, 58, "Output",ExpressionUUID->"dfb66df8-f049-433c-9b7f-6e81963b18bc"],
Cell[4363, 127, 500, 14, 58, "Output",ExpressionUUID->"f2af9232-79f4-4bd7-948a-8296e3287ed8"]
}, Open ]],
Cell[4878, 144, 1297, 35, 60, "Input",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[6178, 181, 489, 10, 59, "Input",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[6670, 193, 604, 13, 60, "Input",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[4878, 144, 1296, 35, 60, "Input",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[6177, 181, 488, 10, 59, "Input",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[6668, 193, 603, 13, 60, "Input",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[CellGroupData[{
Cell[7299, 210, 1689, 37, 105, "Input",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[8991, 249, 98430, 1634, 275, "Output",ExpressionUUID->"041b7042-0fc5-40f4-9732-38dd05a1d5ff"]
Cell[7296, 210, 1688, 37, 105, "Input",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[8987, 249, 98448, 1634, 275, "Output",ExpressionUUID->"b33a0032-6cab-4222-a5aa-4c217c8b30d6"]
}, Open ]],
Cell[CellGroupData[{
Cell[107458, 1888, 967, 27, 53, "Input",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[108428, 1917, 94182, 1567, 275, "Output",ExpressionUUID->"74781ac3-2219-47a1-8813-d5ec47e1e2ef"]
Cell[107472, 1888, 966, 27, 53, "Input",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[108441, 1917, 94202, 1567, 275, "Output",ExpressionUUID->"d77f17cd-4044-448a-84b1-ead852a21ee8"]
}, Open ]],
Cell[202625, 3487, 5372, 134, 231, "Input",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[208000, 3623, 1078, 24, 60, "Input",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[202658, 3487, 5371, 134, 231, "Input",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[208032, 3623, 1078, 24, 60, "Input",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[CellGroupData[{
Cell[209103, 3651, 1997, 45, 109, "Input",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[211103, 3698, 21891, 380, 275, "Output",ExpressionUUID->"b9a85259-bac9-4b9b-9eed-ed8472e87875"]
Cell[209135, 3651, 1997, 45, 109, "Input",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[211135, 3698, 21910, 380, 275, "Output",ExpressionUUID->"98e54699-f92b-4f74-9aef-9694b76949a2"]
}, Open ]],
Cell[233009, 4081, 1755, 34, 56, "Input",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[233060, 4081, 1755, 34, 56, "Input",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[CellGroupData[{
Cell[234789, 4119, 3198, 64, 84, "Input",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[237990, 4185, 26232, 453, 291, "Output",ExpressionUUID->"7d551598-ecbe-4402-b04c-65b58a0bae36"]
Cell[234840, 4119, 3198, 64, 84, "Input",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[238041, 4185, 26258, 454, 291, "Output",ExpressionUUID->"4d889c1b-c97d-40b1-b600-2b9c5c6751b9"]
}, Open ]],
Cell[264237, 4641, 2848, 71, 167, "Input",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[267088, 4714, 1434, 35, 60, "Input",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[268525, 4751, 2134, 53, 109, "Input",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[264314, 4642, 2848, 71, 167, "Input",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[267165, 4715, 1434, 35, 60, "Input",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[268602, 4752, 2134, 53, 109, "Input",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[CellGroupData[{
Cell[270684, 4808, 1955, 41, 133, "Input",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[272642, 4851, 42422, 714, 515, "Output",ExpressionUUID->"5296c8a6-3230-40b6-9d83-9e9a18c50d37"]
Cell[270761, 4809, 1955, 41, 133, "Input",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[272719, 4852, 42450, 715, 515, "Output",ExpressionUUID->"25b17302-df8d-4f47-ac4f-7daf055d11de"]
}, Open ]],
Cell[CellGroupData[{
Cell[315101, 5570, 1837, 39, 133, "Input",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[316941, 5611, 33409, 566, 275, "Output",ExpressionUUID->"298111f0-8b0f-4f4f-9ac3-93f16d8002ea"]
Cell[315206, 5572, 1837, 39, 133, "Input",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[317046, 5613, 33435, 567, 275, "Output",ExpressionUUID->"ebb1898a-b3ec-4b7b-b3d7-ecf4747a893d"]
}, Open ]],
Cell[350365, 6180, 992, 25, 60, "Input",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
Cell[351360, 6207, 2396, 53, 88, "Input",ExpressionUUID->"330a3de5-975a-4319-bbb3-e67ba931053f"],
Cell[350496, 6183, 992, 25, 60, "Input",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
Cell[351491, 6210, 2396, 53, 88, "Input",ExpressionUUID->"330a3de5-975a-4319-bbb3-e67ba931053f"],
Cell[CellGroupData[{
Cell[353781, 6264, 641, 17, 60, "Input",ExpressionUUID->"10d5a223-9de9-4a33-b4d5-611af1742e7a"],
Cell[354425, 6283, 697, 22, 47, "Print",ExpressionUUID->"fb6d3a55-cb14-4961-b433-120832708e55"]
Cell[353912, 6267, 641, 17, 60, "Input",ExpressionUUID->"10d5a223-9de9-4a33-b4d5-611af1742e7a"],
Cell[354556, 6286, 697, 22, 47, "Print",ExpressionUUID->"fb6d3a55-cb14-4961-b433-120832708e55"]
}, Open ]],
Cell[355137, 6308, 1274, 27, 71, "Input",ExpressionUUID->"fa3f5f7f-351e-4286-a26a-6f2ff101ef25"],
Cell[355268, 6311, 1274, 27, 71, "Input",ExpressionUUID->"fa3f5f7f-351e-4286-a26a-6f2ff101ef25"],
Cell[CellGroupData[{
Cell[356436, 6339, 1075, 24, 108, "Input",ExpressionUUID->"928b0d02-edca-46b4-b287-181111eb6ffa"],
Cell[357514, 6365, 8134, 151, 259, "Output",ExpressionUUID->"0abeeb9e-7454-48ce-8111-ad9935556240"]
Cell[356567, 6342, 1169, 25, 108, "Input",ExpressionUUID->"928b0d02-edca-46b4-b287-181111eb6ffa"],
Cell[357739, 6369, 14205, 250, 308, "Output",ExpressionUUID->"7b04d8a8-ee13-4320-8fa2-9af9fb65dbf4"]
}, Open ]],
Cell[365663, 6519, 229, 4, 35, "Input",ExpressionUUID->"e6fd2e41-3d19-4e65-9a5e-37a0d46b4ae9"],
Cell[365895, 6525, 2239, 54, 152, "Input",ExpressionUUID->"77111c55-479e-45de-9828-bc692ef6cea3"],
Cell[371959, 6622, 229, 4, 35, "Input",ExpressionUUID->"e6fd2e41-3d19-4e65-9a5e-37a0d46b4ae9"],
Cell[372191, 6628, 2239, 54, 152, "Input",ExpressionUUID->"77111c55-479e-45de-9828-bc692ef6cea3"],
Cell[CellGroupData[{
Cell[368159, 6583, 856, 18, 37, "Input",ExpressionUUID->"298b0827-eb66-4a55-a5a9-9355379ea00a"],
Cell[369018, 6603, 376, 9, 46, "Message",ExpressionUUID->"b9cf468b-a514-40ba-befa-087542ac5020"],
Cell[369397, 6614, 374, 9, 46, "Message",ExpressionUUID->"d358f619-3d46-4400-947d-6008aa12de18"],
Cell[369774, 6625, 374, 9, 46, "Message",ExpressionUUID->"3ac1edcd-2a1a-49f8-8835-d35be24e56ff"],
Cell[370151, 6636, 452, 10, 33, "Message",ExpressionUUID->"3e0f6b02-f2c2-4dbe-bbb5-8e46b5dd6461"],
Cell[370606, 6648, 409, 10, 33, "Message",ExpressionUUID->"f1ea66d7-ae52-466a-a5ed-68814ad82020"],
Cell[371018, 6660, 466647, 7660, 453, "Output",ExpressionUUID->"3ea0b875-fad6-4971-b472-d14bff74f25a"]
Cell[374455, 6686, 856, 18, 37, "Input",ExpressionUUID->"298b0827-eb66-4a55-a5a9-9355379ea00a"],
Cell[375314, 6706, 376, 9, 46, "Message",ExpressionUUID->"b9cf468b-a514-40ba-befa-087542ac5020"],
Cell[375693, 6717, 374, 9, 46, "Message",ExpressionUUID->"d358f619-3d46-4400-947d-6008aa12de18"],
Cell[376070, 6728, 374, 9, 46, "Message",ExpressionUUID->"3ac1edcd-2a1a-49f8-8835-d35be24e56ff"],
Cell[376447, 6739, 452, 10, 33, "Message",ExpressionUUID->"3e0f6b02-f2c2-4dbe-bbb5-8e46b5dd6461"],
Cell[376902, 6751, 409, 10, 33, "Message",ExpressionUUID->"f1ea66d7-ae52-466a-a5ed-68814ad82020"],
Cell[377314, 6763, 466647, 7660, 453, "Output",ExpressionUUID->"3ea0b875-fad6-4971-b472-d14bff74f25a"]
}, Open ]],
Cell[837680, 14323, 81, 0, 35, "Input",ExpressionUUID->"5116605d-8b25-4625-999a-a1e1ba5c771a"],
Cell[837764, 14325, 186, 5, 35, "Input",ExpressionUUID->"c765d048-e0d9-4899-a2c7-4e14e0f6d8cf"],
Cell[837953, 14332, 913, 26, 54, "Input",ExpressionUUID->"91ca8ca7-a915-4a79-ad57-4a7909a6a329"],
Cell[843976, 14426, 81, 0, 35, "Input",ExpressionUUID->"5116605d-8b25-4625-999a-a1e1ba5c771a"],
Cell[844060, 14428, 186, 5, 35, "Input",ExpressionUUID->"c765d048-e0d9-4899-a2c7-4e14e0f6d8cf"],
Cell[844249, 14435, 913, 26, 54, "Input",ExpressionUUID->"91ca8ca7-a915-4a79-ad57-4a7909a6a329"],
Cell[CellGroupData[{
Cell[838891, 14362, 315, 6, 35, "Input",ExpressionUUID->"db3c6203-70b7-4be8-8993-6a4721eb9d47"],
Cell[839209, 14370, 1104, 34, 55, "Print",ExpressionUUID->"c3dc833a-990a-42df-b426-1a5a53a6643c"]
Cell[845187, 14465, 315, 6, 35, "Input",ExpressionUUID->"db3c6203-70b7-4be8-8993-6a4721eb9d47"],
Cell[845505, 14473, 1104, 34, 55, "Print",ExpressionUUID->"c3dc833a-990a-42df-b426-1a5a53a6643c"]
}, Open ]],
Cell[840328, 14407, 1433, 42, 64, "Input",ExpressionUUID->"078161ea-f9d3-4a75-aa7e-f0d965934ce5"],
Cell[841764, 14451, 799, 19, 60, "Input",ExpressionUUID->"9b8a8755-0f98-4463-950f-2baf55054802"],
Cell[846624, 14510, 1433, 42, 64, "Input",ExpressionUUID->"078161ea-f9d3-4a75-aa7e-f0d965934ce5"],
Cell[848060, 14554, 799, 19, 60, "Input",ExpressionUUID->"9b8a8755-0f98-4463-950f-2baf55054802"],
Cell[CellGroupData[{
Cell[842588, 14474, 317, 8, 37, "Input",ExpressionUUID->"7a649e68-0353-4565-82af-28cbb8b733af"],
Cell[842908, 14484, 1645, 44, 275, "Output",ExpressionUUID->"8f6257a3-0d4e-49cf-b138-6b6993ec65f2"]
Cell[848884, 14577, 317, 8, 37, "Input",ExpressionUUID->"7a649e68-0353-4565-82af-28cbb8b733af"],
Cell[849204, 14587, 1645, 44, 275, "Output",ExpressionUUID->"8f6257a3-0d4e-49cf-b138-6b6993ec65f2"]
}, Open ]]
}
]
......
resonans9.nb
View file @ 2bc2e555
......@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 2417582, 40334]
NotebookOptionsPosition[ 2410636, 40231]
NotebookOutlinePosition[ 2411064, 40248]
CellTagsIndexPosition[ 2411021, 40245]
NotebookDataLength[ 2422809, 40461]
NotebookOptionsPosition[ 2415864, 40358]
NotebookOutlinePosition[ 2416292, 40375]
CellTagsIndexPosition[ 2416249, 40372]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
......@@ -43,8 +43,7 @@ Cell[BoxData[
3.871451832796793*^9}, 3.8714523038600388`*^9, {3.87145238207703*^9,
3.871452385670923*^9}, 3.8720846338697147`*^9, 3.8737692337195473`*^9, {
3.876921101890354*^9, 3.876921113792646*^9}},
CellLabel->
"In[149]:=",ExpressionUUID->"502c7901-c122-4614-8b72-a04caf16b1e2"],
CellLabel->"In[1]:=",ExpressionUUID->"502c7901-c122-4614-8b72-a04caf16b1e2"],
Cell[CellGroupData[{
......@@ -183,7 +182,7 @@ Cell[BoxData[
3.871701793434409*^9, {3.872065693342557*^9, 3.872065697733029*^9}, {
3.873782505658546*^9, 3.873782510479516*^9}, {3.8737825663259*^9,
3.873782609908166*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
CellLabel->"In[4]:=",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[BoxData[
RowBox[{
......@@ -195,7 +194,7 @@ Cell[BoxData[
3.870144988515087*^9, {3.870145025281687*^9, 3.870145047838258*^9}, {
3.871451965683363*^9, 3.87145196928242*^9}, {3.872063208516612*^9,
3.8720632133894377`*^9}, {3.8744963984725924`*^9, 3.874496399276744*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
CellLabel->"In[5]:=",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[BoxData[
RowBox[{
......@@ -210,7 +209,7 @@ Cell[BoxData[
3.871451836727564*^9, 3.871451840179946*^9}, {3.8714519734346457`*^9,
3.8714519739887877`*^9}, {3.872063215936698*^9, 3.8720632175080347`*^9}, {
3.8744964016057873`*^9, 3.8744964030518217`*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
CellLabel->"In[6]:=",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[CellGroupData[{
......@@ -251,7 +250,7 @@ Cell[BoxData[{
3.873782490792597*^9}, {3.876389075369074*^9, 3.876389082897255*^9}, {
3.876389412725244*^9, 3.8763894128561068`*^9}, {3.876391981459468*^9,
3.876392024603146*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
CellLabel->"In[7]:=",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -779,7 +778,7 @@ LZGoHqRA64vQZ0KyFvvfu5FmOMqsn31iwazJGvw5rljEcZyCUL9T2xMHv+FF
T6Ys7v1lng/77t7EXdX4cIrR4y+TFCSmT4mf+FmF09LdR//9o+BqF0u8qLwS
/w9ygkaY
"]]},
Annotation[#, "Charting`Private`Tag$5346#1"]& ],
Annotation[#, "Charting`Private`Tag$8849#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -1304,7 +1303,7 @@ YeFngeeUeAP2fXwnRXechLnZZ5eITdfhypgSIftJElx9zu+PH/6Kl7+YMXr8
l4SaI4/u4p5afCJJ7/nnaRKup86Inv1eg1NSXcb//SPBoYchWlxRjf8HqjRS
kQ==
"]]},
Annotation[#, "Charting`Private`Tag$5346#2"]& ],
Annotation[#, "Charting`Private`Tag$8849#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -1828,7 +1827,7 @@ MFjLrFvYSoLStoCDM6Ot+JatiSdqJ8E8wSV6y6xWrHi2aFViNwlZazVz3ki0
ddj30e003XHafvaZpfOma/CX2GIh+0n6/vic25s4/B0vfzZj8ugvCYIjD+/g
nmp8IkXv6ddpEhLSZ0TPNFThtHTX8X//SLjZwxAtKq/E/wNm30b2
"]]},
Annotation[#, "Charting`Private`Tag$5346#3"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$8849#3"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -1887,8 +1886,8 @@ nmp8IkXv6ddpEhLSZ0TPNFThtHTX8X//SLjZwxAtKq/E/wNm30b2
3.876391977228801*^9, {3.876392020681591*^9, 3.876392026402017*^9},
3.8764059731375237`*^9, 3.8764567394084787`*^9, 3.8766349883051043`*^9,
3.876810719278267*^9, 3.876812584603676*^9, 3.8768262671995697`*^9,
3.8769175161137743`*^9},
CellLabel->"Out[7]=",ExpressionUUID->"c633eabe-795e-4048-858e-2898e4d855b6"]
3.8769175161137743`*^9, 3.877053656163892*^9},
CellLabel->"Out[8]=",ExpressionUUID->"81c16a07-7060-4333-b567-b54707486a09"]
}, Open ]],
Cell[CellGroupData[{
......@@ -1920,7 +1919,7 @@ Cell[BoxData[
CellChangeTimes->{{3.8737824405463552`*^9, 3.873782451614056*^9}, {
3.873782628025052*^9, 3.873782714421575*^9}, {3.876392064861974*^9,
3.87639208678445*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
CellLabel->"In[9]:=",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -2429,7 +2428,7 @@ IBf+mNd/dIzjo96A1Quq/nBhISRLqTXwkUe4b7LqKBfm0zFsWF2AKqM/Cp0f
50LP3zuRPCsBWhE3rRc+yYUrzT15wYECZPZK7cXnf1yolcz98TdHgJLfXB6d
meHChJNo60yrAP0Pdc3IXw==
"]]},
Annotation[#, "Charting`Private`Tag$5879#1"]& ],
Annotation[#, "Charting`Private`Tag$9376#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -2935,7 +2934,7 @@ F9b+4sBCSJVSbeYhr8f+qSp/6DVtw8bU+Kg69r2A9V8O9P/2ieZa8dGqhBm9
x1MccGjrLwgL4SOzl6rPa/7R9ZbI//Y7j49S0+z/zM5y4K+LSMdsBx/9D3F9
ycU=
"]]},
Annotation[#, "Charting`Private`Tag$5879#2"]& ],
Annotation[#, "Charting`Private`Tag$9376#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -3441,7 +3440,7 @@ F9b+4sBCSJVSbeYhr8f+qSp/OLCAjmFjanxUHfdewPovBwZ++0RzrfhoZeKM
3uMpDji09ReEhfCR2UvVZzX/6HpL5H/7ncdHqa/t/8zOcmDSRaRjtoOP/geq
usm7
"]]},
Annotation[#, "Charting`Private`Tag$5879#3"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$9376#3"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -3489,8 +3488,8 @@ usm7
3.874927333925172*^9, 3.876385381278721*^9, 3.876392088387301*^9,
3.876405975111207*^9, 3.876456741502846*^9, 3.8766349906827383`*^9,
3.876810722202018*^9, 3.876812587351184*^9, 3.876826269813205*^9,
3.876917518142487*^9},
CellLabel->"Out[8]=",ExpressionUUID->"250b35c4-bbf8-406b-9b42-9c47abf4a1a7"]
3.876917518142487*^9, 3.877053658679406*^9},
CellLabel->"Out[9]=",ExpressionUUID->"fb35dbc9-c781-4f13-b055-22c968660390"]
}, Open ]],
Cell[BoxData[
......@@ -3708,8 +3707,7 @@ Cell[BoxData[
3.876920970890091*^9}, {3.876921067781307*^9, 3.876921084169429*^9}, {
3.8769211208622313`*^9, 3.876921161163322*^9}, {3.876921510869505*^9,
3.87692152268154*^9}, {3.876921609971476*^9, 3.8769216165800667`*^9}},
CellLabel->
"In[152]:=",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
CellLabel->"In[10]:=",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[BoxData[
RowBox[{
......@@ -3739,8 +3737,7 @@ Cell[BoxData[
3.876920066807006*^9}, {3.876920101967966*^9, 3.87692011405026*^9}, {
3.8769204894088497`*^9, 3.876920496097477*^9}, {3.8769216258158407`*^9,
3.87692162682052*^9}},
CellLabel->
"In[160]:=",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
CellLabel->"In[11]:=",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[CellGroupData[{
......@@ -3815,8 +3812,7 @@ Cell[BoxData[{
3.876919805430378*^9, 3.876919827929865*^9}, {3.876920125093225*^9,
3.876920137509491*^9}, {3.8769202116977177`*^9, 3.8769202249889107`*^9}, {
3.8769216342195587`*^9, 3.8769216491350107`*^9}},
CellLabel->
"In[161]:=",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
CellLabel->"In[12]:=",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -3923,7 +3919,7 @@ m5w3OkZDsTHL2fGxIvBwlpSYnqbhLp4sETbSfgcDFl/N0FBCJre7ebQIgvi+
d12do+HE6Y39MaTjXz6+u7BAwzn7E/VSpNP9WR1Klsj9KZQ8GR0pghwDO6rf
Cg3v1dW05JMu2Fa/ResvDXWqD2j4kC6fkVlcW6OhbuXYFJX0/wAVAsbF
"]]},
Annotation[#, "Charting`Private`Tag$263960#1"]& ],
Annotation[#, "Charting`Private`Tag$10084#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -4010,7 +4006,7 @@ jhG40bw45qcefV98ZaWnp2nfFw79l3bUrjMLD7kE5oF6QT7t2FX97aFzBLaK
HF2dRju99M6l+XkC+87bHwmjnXuan/VskcCCiNvOXrSLrLyYUT8J1NumfNqW
dvnm11JGvwhcDKprNaFdxVVc+P2bQFMFbRsd2v8DB/ZdVA==
"]]},
Annotation[#, "Charting`Private`Tag$263960#2"]& ],
Annotation[#, "Charting`Private`Tag$10084#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -4136,7 +4132,7 @@ HoJ9VbSr0W+SARcOFbOvYyc+z4hgsRiw53PQyQTO+yaY17NohgE10VeWp2Ln
2LgTQXMMCCKqnmZiF66tXE2bZ8Bwhsr2HOx348rshQUGhEcEF+Rj/w8FVN8M
"]]},
Annotation[#, "Charting`Private`Tag$263960#3"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$10084#3"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -4199,9 +4195,8 @@ HoJ9VbSr0W+SARcOFbOvYyc+z4hgsRiw53PQyQTO+yaY17NohgE10VeWp2Ln
3.8768141049887333`*^9, 3.8768262836639442`*^9, 3.8769182902330112`*^9,
3.87691925542344*^9, 3.876919871950026*^9, 3.876920093864106*^9,
3.876920192807042*^9, 3.87692023864729*^9, 3.876920501280077*^9, {
3.876921654857696*^9, 3.8769216663026743`*^9}},
CellLabel->
"Out[163]=",ExpressionUUID->"221c6551-6da7-4328-b87e-c39c40807437"]
3.876921654857696*^9, 3.8769216663026743`*^9}, 3.87705366860082*^9},
CellLabel->"Out[14]=",ExpressionUUID->"79f0cae0-170e-49fe-a04c-f4d6a821be22"]
}, Open ]],
Cell[BoxData[
......@@ -4257,8 +4252,7 @@ Cell[BoxData[
3.874580473855629*^9}, {3.874580505334504*^9, 3.874580527100831*^9}, {
3.874928388151836*^9, 3.874928391429038*^9}, {3.87492842311789*^9,
3.874928448512492*^9}, {3.876921712045582*^9, 3.876921739905422*^9}},
CellLabel->
"In[164]:=",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
CellLabel->"In[15]:=",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[CellGroupData[{
......@@ -4354,8 +4348,7 @@ Cell[BoxData[{
3.874928400928302*^9, 3.87492840903554*^9}, {3.874928489593843*^9,
3.874928509247118*^9}, 3.87682938523682*^9, {3.876829465309758*^9,
3.876829465404563*^9}, {3.8769217468570538`*^9, 3.876921764682579*^9}},
CellLabel->
"In[165]:=",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
CellLabel->"In[16]:=",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -4467,7 +4460,7 @@ Gnl+lOQeFkqePzvXUcgGveC2GZc+Fh7xH5QWecoGC8Z9bv8ACwcvK7z3SmWD
hticRzemp1lYWMp/bqcvGx5eFnB7PstC38XC/aFn2ZBh5WIcMM9CGVcVgYZT
bMiTfytt+JeFsdRvPmvd2VAyRp9ZXGShXLBl/hEnNvwPtXDnrw==
"]]},
Annotation[#, "Charting`Private`Tag$268107#1"]& ],
Annotation[#, "Charting`Private`Tag$14253#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -4571,7 +4564,7 @@ TTIQjC9JHOZnwuWV3c0nphl4hK8jZwMPExJfMK/NzjJwKkxC7PVcOqSfX+aV
P89A918yDcHT6fDU2sPw7CIDm8ktIzCeDjlyFRT9fww8U97oLTCSDkWTCnNL
Swz0zn5k0PgzHf4Hj5t34A==
"]]},
Annotation[#, "Charting`Private`Tag$268107#2"]& ],
Annotation[#, "Charting`Private`Tag$14253#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[Medium],
LineBox[CompressedData["
......@@ -4662,7 +4655,7 @@ VdQXfT1ocENouNubQcGC4D006XM0SC54HM1iUVD39pCH62kaZIVyUd+uUDDD
Y/i8oDMN8m1cjYLWKHjwinZIkRMNirZ+lDX8TUGHoJtPnY7RoIK+ffnPHwq2
ngsZ4LGnwf8BA+BxGg==
"]]},
Annotation[#, "Charting`Private`Tag$268107#3"]& ],
Annotation[#, "Charting`Private`Tag$14253#3"]& ],
TagBox[
{RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[None],
LineBox[CompressedData["
......@@ -4755,7 +4748,7 @@ KRQSMl1xb9UqIIPvfv+VfCoJCy3tekTzyBDIM9R2Y4GEOj2UnatZZIjLfRWy
vEzCy+9tvpW/IkOqH7Nz8SoJPzV6MKcnkyHruKOB7xoJRUSjI0MTyFCw+buU
3gYJMd/G5cYzMpRRt638/UvCxgH3cJsnZPgfMW2RGA==
"]]},
Annotation[#, "Charting`Private`Tag$268107#4"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$14253#4"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -4811,9 +4804,8 @@ vEzCy+9tvpW/IkOqH7Nz8SoJPzV6MKcnkyHruKOB7xoJRUSjI0MTyFCw+buU
3.876385400075428*^9, 3.8763921072708597`*^9, 3.876405991681736*^9,
3.876456754462017*^9, 3.8766351308403597`*^9, 3.876810735283003*^9,
3.876826288502097*^9, 3.876829468517942*^9, 3.876918294841653*^9,
3.8769192605826273`*^9, 3.876921769089856*^9},
CellLabel->
"Out[166]=",ExpressionUUID->"2df43d3c-bc98-47a2-9402-9d971fe24e94"]
3.8769192605826273`*^9, 3.876921769089856*^9, 3.8770536742298403`*^9},
CellLabel->"Out[17]=",ExpressionUUID->"4e7c32b4-52a5-47a7-86d2-187b491a6a3a"]
}, Open ]],
Cell[BoxData[
......@@ -4932,8 +4924,7 @@ Cell[BoxData[
3.876918778410515*^9, 3.876918798867394*^9}, {3.87691913760579*^9,
3.876919146052711*^9}, 3.876919224017338*^9, {3.876921776572586*^9,
3.8769217949941807`*^9}, {3.876921827440425*^9, 3.87692187461703*^9}},
CellLabel->
"In[168]:=",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
CellLabel->"In[18]:=",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[BoxData[
RowBox[{
......@@ -5019,8 +5010,7 @@ Cell[BoxData[
3.876918953646962*^9, 3.8769189857952833`*^9}, {3.876919149733493*^9,
3.876919155561823*^9}, {3.876919282082741*^9, 3.8769192970177*^9}, {
3.876921882681993*^9, 3.876921907139308*^9}},
CellLabel->
"In[169]:=",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
CellLabel->"In[19]:=",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[BoxData[
RowBox[{
......@@ -5107,8 +5097,7 @@ Cell[BoxData[
3.874578082335264*^9}, {3.874928778844098*^9, 3.874928826414187*^9}, {
3.8769190129346437`*^9, 3.8769190494311934`*^9}, {3.876919120898912*^9,
3.8769191340082207`*^9}, {3.8769219136365757`*^9, 3.876921929309226*^9}},
CellLabel->
"In[170]:=",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
CellLabel->"In[20]:=",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[CellGroupData[{
......@@ -5169,8 +5158,7 @@ Cell[BoxData[{
3.874928937230219*^9}, {3.8769190668557787`*^9, 3.876919085976407*^9}, {
3.8769191260116863`*^9, 3.876919131547044*^9}, {3.876921938096958*^9,
3.876921941967198*^9}},
CellLabel->
"In[171]:=",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
CellLabel->"In[21]:=",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -5524,7 +5512,7 @@ WLV28/Y/OrBxi5O9cdB3tEdYrD5sSgfKdt1XPz5XiRz5glepzegArbdo3WHj
SuTKPepROqsDMcnfr8xerECecy7p7gs6UFXHq6KfW45OTlVNLS3pwL4INyPB
qa/ofwVywLM=
"]]},
Annotation[#, "Charting`Private`Tag$273557#1"]& ],
Annotation[#, "Charting`Private`Tag$19531#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -5825,7 +5813,7 @@ MYF3yuoZ72bRwcjXgDfrAYFtBEW+XZ2jQ4tjzZqoWAI7rg6TXfuHDq7Zz1cu
RxDYlZ3p9nGRDo0WmXrrLhLY/a/Ls6PLdCivvNR0y5/A3nMNc//+0WFTU/9c
hgeB/weea3A/
"]]},
Annotation[#, "Charting`Private`Tag$273557#2"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$19531#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -5889,9 +5877,9 @@ hgeB/weea3A/
3.876826301932781*^9, 3.876918310162333*^9, 3.87691864021601*^9,
3.876918699891219*^9, 3.876918792176464*^9, 3.876918836363018*^9,
3.8769190011366863`*^9, 3.876919107830249*^9, 3.8769191683937263`*^9,
3.876919273442212*^9, 3.8769193105074663`*^9, 3.876921949757965*^9},
CellLabel->
"Out[174]=",ExpressionUUID->"c4201496-be1c-456a-a397-e6bc971ab617"]
3.876919273442212*^9, 3.8769193105074663`*^9, 3.876921949757965*^9,
3.877053686646181*^9},
CellLabel->"Out[24]=",ExpressionUUID->"474f5211-d058-4ce0-ade1-59476c8e71f8"]
}, Open ]],
Cell[CellGroupData[{
......@@ -5932,8 +5920,7 @@ Cell[BoxData[{
3.87449953846764*^9}, {3.874643512325345*^9, 3.87464353590913*^9}, {
3.874928963348372*^9, 3.874928974682311*^9}, {3.876921959101841*^9,
3.876922009494124*^9}},
CellLabel->
"In[187]:=",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
CellLabel->"In[25]:=",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -6135,7 +6122,7 @@ VPzVg/NFM0Hxc32YO75hX+SkHnh1J9xImejDsRPsm5yzejB9MK8io7cPNz+O
UP04pwc2PJdGUtv7sLSDcEXEgh7IG0t+vdfYh4/wpbvCkh7I7Ew9Ev21D2e/
0Z1dXtYDNVHTl6EVffh/nEGx8Q==
"]]},
Annotation[#, "Charting`Private`Tag$347117#1"]& ],
Annotation[#, "Charting`Private`Tag$34947#1"]& ],
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], Dashing[Large],
LineBox[CompressedData["
......@@ -6383,7 +6370,7 @@ UvOLCVwSjF+WswTiSWzeET7DBK36aqV701S9T5HR3H+pfrg0sXoNVd9tD8No
1XPUfcdYtucJAim5SNSELTCBeyD/5guqHxzgf7AXFpnQZUu+6mIR6PFro7//
/jHBtKXxyZ8xAv0PbyrBnQ==
"]]},
Annotation[#, "Charting`Private`Tag$347117#2"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$34947#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -6440,9 +6427,8 @@ UvOLCVwSjF+WswTiSWzeET7DBK36aqV701S9T5HR3H+pfrg0sXoNVd9tD8No
3.876394291349057*^9, 3.876406012877129*^9, 3.876456801528528*^9, {
3.8766351483332453`*^9, 3.876635152774886*^9}, 3.876815398813102*^9,
3.876826306820046*^9, 3.876918314244718*^9, 3.8769191940714703`*^9, {
3.876921967954865*^9, 3.876922015663508*^9}},
CellLabel->
"Out[190]=",ExpressionUUID->"1bc95cbe-8792-491b-8382-c28f71d63382"]
3.876921967954865*^9, 3.876922015663508*^9}, 3.877053692602148*^9},
CellLabel->"Out[28]=",ExpressionUUID->"8443f89b-8952-4de3-90fc-f25d47b45ae4"]
}, Open ]],
Cell[BoxData[
......@@ -6470,7 +6456,7 @@ Cell[BoxData[
3.876922267694133*^9}},ExpressionUUID->"30ae0cc0-e6d5-4626-bde4-\
fd0d9f6fe04f"],
Cell[BoxData[
Cell[BoxData[{
RowBox[{
RowBox[{"\[Delta]Zero", "[",
RowBox[{"q_", ",", "r_", ",", "u0_"}], "]"}], ":=",
......@@ -6567,15 +6553,161 @@ Cell[BoxData[
FractionBox[
RowBox[{"Cos", "[",
RowBox[{"q", " ", "r"}], "]"}],
RowBox[{"q", " ", "r"}]]}]}]], "]"}]}]], "Input",
RowBox[{"q", " ", "r"}]]}]}]], "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Delta]Zero1", "[",
RowBox[{"q_", ",", "r_", ",", "u0_"}], "]"}], ":=", " ",
RowBox[{"ArcCot", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"SphericalBesselY", "[",
RowBox[{"ang", ",",
RowBox[{"q", " ", "r"}]}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["q", "2"], "-",
FractionBox[
RowBox[{"2", "mass", " ", "u0"}],
SuperscriptBox["t", "2"]]}], "]"}], " ", "r"}]}], "]"}], ",",
"r"}], "]"}]}], " ", "-", " ",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["q", "2"], "-",
FractionBox[
RowBox[{"2", "mass", " ", "u0"}],
SuperscriptBox["t", "2"]]}], "]"}], " ", "r"}]}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"SphericalBesselY", "[",
RowBox[{"ang", ",",
RowBox[{"q", " ", "r"}]}], "]"}], ",", "r"}], "]"}]}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{"q", " ", "r"}]}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["q", "2"], "-",
FractionBox[
RowBox[{"2", "mass", " ", "u0"}],
SuperscriptBox["t", "2"]]}], "]"}], " ", "r"}]}], "]"}], ",",
"r"}], "]"}]}], " ", "-", " ",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["q", "2"], "-",
FractionBox[
RowBox[{"2", "mass", " ", "u0"}],
SuperscriptBox["t", "2"]]}], "]"}], " ", "r"}]}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{"q", " ", "r"}]}], "]"}], ",", "r"}], "]"}]}]}], ")"}]}],
" ", "]"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"\[Delta]Zero1", "[",
RowBox[{"q_", ",", "r_", ",", "u0_"}], "]"}], ":=", " ",
RowBox[{"ArcCot", "[",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Cos", " ",
RowBox[{"D", "[",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["q", "2"], "-",
FractionBox[
RowBox[{"2", "mass", " ", "u0"}],
SuperscriptBox["t", "2"]]}], "]"}], " ", "r"}]}], "]"}], ",",
"r"}], "]"}]}], " ", "-", " ",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["q", "2"], "-",
FractionBox[
RowBox[{"2", "mass", " ", "u0"}],
SuperscriptBox["t", "2"]]}], "]"}], " ", "r"}]}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"SphericalBesselY", "[",
RowBox[{"ang", ",",
RowBox[{"q", " ", "r"}]}], "]"}], ",", "r"}], "]"}]}]}], ")"}],
"/",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{"q", " ", "r"}]}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["q", "2"], "-",
FractionBox[
RowBox[{"2", "mass", " ", "u0"}],
SuperscriptBox["t", "2"]]}], "]"}], " ", "r"}]}], "]"}], ",",
"r"}], "]"}]}], " ", "-", " ",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{
RowBox[{"Sqrt", "[",
RowBox[{
SuperscriptBox["q", "2"], "-",
FractionBox[
RowBox[{"2", "mass", " ", "u0"}],
SuperscriptBox["t", "2"]]}], "]"}], " ", "r"}]}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"SphericalBesselJ", "[",
RowBox[{"ang", ",",
RowBox[{"q", " ", "r"}]}], "]"}], ",", "r"}], "]"}]}]}], ")"}]}],
" ", "]"}]}], "*)"}]}]}], "Input",
CellChangeTimes->{
3.876923130837613*^9, {3.876923357460599*^9, 3.876923420436041*^9}, {
3.876923521602599*^9, 3.8769236406282578`*^9}, {3.876923755547907*^9,
3.876923756901711*^9}, {3.876925892252675*^9, 3.8769259703554497`*^9}, {
3.876926128708639*^9, 3.8769261441149073`*^9}, {3.8769263057080917`*^9,
3.876926308596925*^9}},
CellLabel->
"In[258]:=",ExpressionUUID->"26e7cd0a-68bc-4b89-bb04-a9a58285a2c1"],
3.876926308596925*^9}, {3.877054685953732*^9, 3.8770547118771276`*^9}, {
3.8770547520775623`*^9, 3.8770547718042097`*^9}, {3.8770548341254673`*^9,
3.8770548499642153`*^9}},ExpressionUUID->"26e7cd0a-68bc-4b89-bb04-\
a9a58285a2c1"],
Cell[BoxData[
RowBox[{
......@@ -6587,8 +6719,7 @@ Cell[BoxData[
RowBox[{"q", ",", "r", ",", "u0"}], "]"}], "/.",
RowBox[{"r", "->", "range"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.876923744073125*^9, 3.8769237964388437`*^9}},
CellLabel->
"In[265]:=",ExpressionUUID->"54f0d815-769d-45e2-8fb5-f3c2c8c98cbe"],
CellLabel->"In[30]:=",ExpressionUUID->"54f0d815-769d-45e2-8fb5-f3c2c8c98cbe"],
Cell[BoxData[
RowBox[{
......@@ -6620,29 +6751,29 @@ Cell[BoxData[
3.876923076102734*^9, 3.876923101975613*^9}, {3.876923306897594*^9,
3.876923323724135*^9}, {3.876923700122755*^9, 3.87692371394665*^9}, {
3.876924067369467*^9, 3.876924162680482*^9}},
CellLabel->
"In[266]:=",ExpressionUUID->"c7a20df5-21fd-499a-8b6e-a4b4444ae251"],
CellLabel->"In[31]:=",ExpressionUUID->"c7a20df5-21fd-499a-8b6e-a4b4444ae251"],
Cell[BoxData[
RowBox[{
RowBox[{"TMatriXZero", "[",
RowBox[{"k_", ",", "q_", ",", "u0_", ",", "rr_"}], "]"}], ":=", " ",
RowBox[{
FractionBox["u0", "197.327"], " ",
FractionBox[
RowBox[{"u0", " ",
RowBox[{"Azero", "[",
RowBox[{"q", ",", "u0"}], "]"}]}], "197.327"], " ",
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"k", " ", "rr"}], "]"}], " ",
RowBox[{"Azero", "[",
RowBox[{"q", ",", "u0"}], "]"}], " ",
RowBox[{"k", " ", "rr"}], "]"}], " ",
RowBox[{"Sin", "[",
RowBox[{"q", " ", "rr"}], "]"}]}], ",", "rr"}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.876924202094285*^9, 3.8769243105123167`*^9}, {
3.876924792163044*^9, 3.87692479481323*^9}, {3.876925101169959*^9,
3.876925101644957*^9}},
CellLabel->
"In[267]:=",ExpressionUUID->"815a2236-6e0d-4059-b203-3b68a6fb211d"],
3.876925101644957*^9}, {3.877055150016204*^9,
3.8770551512329473`*^9}},ExpressionUUID->"815a2236-6e0d-4059-b203-\
3b68a6fb211d"],
Cell[BoxData[
RowBox[{
......@@ -6655,8 +6786,7 @@ Cell[BoxData[
RowBox[{"rr", "->", "range"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.876925088763022*^9, 3.876925135399826*^9}, {
3.876925373692383*^9, 3.8769253740823383`*^9}},
CellLabel->
"In[268]:=",ExpressionUUID->"49b2f98d-b3e8-4f46-ab88-f39880b7ccb1"],
CellLabel->"In[33]:=",ExpressionUUID->"49b2f98d-b3e8-4f46-ab88-f39880b7ccb1"],
Cell[BoxData[
RowBox[{
......@@ -6667,8 +6797,7 @@ Cell[BoxData[
CellChangeTimes->{
3.876924730368408*^9, {3.87692494255939*^9, 3.876924963702733*^9}, {
3.876924995745966*^9, 3.8769249974041758`*^9}, 3.876925147051352*^9},
CellLabel->
"In[269]:=",ExpressionUUID->"adab55d6-ed38-443a-bc34-d4d4a96fcbe0"],
CellLabel->"In[34]:=",ExpressionUUID->"adab55d6-ed38-443a-bc34-d4d4a96fcbe0"],
Cell[CellGroupData[{
......@@ -6696,8 +6825,7 @@ Cell[BoxData[
3.8769251603012114`*^9, 3.876925176026589*^9}, {3.87692523927947*^9,
3.876925266351289*^9}, 3.876925858189419*^9, {3.8769260131197233`*^9,
3.876926013228209*^9}},
CellLabel->
"In[270]:=",ExpressionUUID->"dba37721-4a9c-4533-92c6-d5acd2069465"],
CellLabel->"In[35]:=",ExpressionUUID->"dba37721-4a9c-4533-92c6-d5acd2069465"],
Cell[BoxData[
GraphicsBox[{{{}, {},
......@@ -6954,7 +7082,7 @@ daGHCpz/zcqXh1pgq25PBt8+Khy4FaAs+NICt6Q2mJ0coEJueQjjuKolbtsd
JkjL/+F1gztJv1a9Ww7h7wXxRPdON3g551pwZt0WNwTd+Fco7QbtB5Xabcvs
8P8AFFFCAA==
"]]},
Annotation[#, "Charting`Private`Tag$843789#1"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$46681#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -6999,9 +7127,8 @@ JkjL/+F1gztJv1a9Ww7h7wXxRPdON3g551pwZt0WNwTd+Fco7QbtB5Xabcvs
3.876925170948534*^9, 3.8769252030394297`*^9, 3.8769252546417723`*^9,
3.876925296877713*^9, 3.876925420456176*^9, {3.876925995057189*^9,
3.8769260245957527`*^9}, 3.876926170091969*^9, 3.8769262977000837`*^9,
3.8769263412598543`*^9, 3.8769264263252993`*^9},
CellLabel->
"Out[270]=",ExpressionUUID->"947445e5-d507-4f6c-9fdf-120c61929e13"]
3.8769263412598543`*^9, 3.8769264263252993`*^9, 3.8770537167560263`*^9},
CellLabel->"Out[35]=",ExpressionUUID->"9bca3182-4d5d-4018-8cb7-5b8c5d4f9e62"]
}, Open ]],
Cell[BoxData[
......@@ -40247,94 +40374,94 @@ CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1326, 26, 158, "Input",ExpressionUUID->"502c7901-c122-4614-8b72-a04caf16b1e2"],
Cell[558, 20, 1321, 25, 158, "Input",ExpressionUUID->"502c7901-c122-4614-8b72-a04caf16b1e2"],
Cell[CellGroupData[{
Cell[1909, 50, 1104, 31, 180, "Input",ExpressionUUID->"b9f674db-c837-4d5b-aa88-81efadf37bba"],
Cell[3016, 83, 428, 10, 65, "Output",ExpressionUUID->"2a5d2134-7e5a-4dd6-b159-13a26ced4760"],
Cell[3447, 95, 705, 21, 67, "Output",ExpressionUUID->"50b36cf1-20f1-4ef2-aac5-cd75487cd946"],
Cell[4155, 118, 500, 13, 67, "Output",ExpressionUUID->"02ed843f-d486-4310-bf53-a36e7028bca8"],
Cell[4658, 133, 523, 14, 67, "Output",ExpressionUUID->"e8c5698e-9323-4312-9ba4-2fb8d50a337b"]
Cell[1904, 49, 1104, 31, 180, "Input",ExpressionUUID->"b9f674db-c837-4d5b-aa88-81efadf37bba"],
Cell[3011, 82, 428, 10, 65, "Output",ExpressionUUID->"2a5d2134-7e5a-4dd6-b159-13a26ced4760"],
Cell[3442, 94, 705, 21, 67, "Output",ExpressionUUID->"50b36cf1-20f1-4ef2-aac5-cd75487cd946"],
Cell[4150, 117, 500, 13, 67, "Output",ExpressionUUID->"02ed843f-d486-4310-bf53-a36e7028bca8"],
Cell[4653, 132, 523, 14, 67, "Output",ExpressionUUID->"e8c5698e-9323-4312-9ba4-2fb8d50a337b"]
}, Open ]],
Cell[5196, 150, 1296, 35, 71, "Input",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[6495, 187, 488, 10, 69, "Input",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[6986, 199, 603, 13, 71, "Input",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[5191, 149, 1296, 35, 71, "Input",ExpressionUUID->"8acf02de-4007-4da0-99ab-5688c509e7b2"],
Cell[6490, 186, 488, 10, 69, "Input",ExpressionUUID->"e4eb0afd-6ac9-4727-a316-8fe76f4fcecb"],
Cell[6981, 198, 603, 13, 70, "Input",ExpressionUUID->"8fe4d871-c7e0-46fe-8f61-898f90834b8b"],
Cell[CellGroupData[{
Cell[7614, 216, 1688, 37, 127, "Input",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[9305, 255, 98478, 1635, 323, "Output",ExpressionUUID->"c633eabe-795e-4048-858e-2898e4d855b6"]
Cell[7609, 215, 1688, 37, 125, "Input",ExpressionUUID->"221cdf39-c3eb-4a84-8500-19e402ba9a9a"],
Cell[9300, 254, 98500, 1635, 322, "Output",ExpressionUUID->"81c16a07-7060-4333-b567-b54707486a09"]
}, Open ]],
Cell[CellGroupData[{
Cell[107820, 1895, 966, 27, 64, "Input",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[108789, 1924, 94226, 1568, 323, "Output",ExpressionUUID->"250b35c4-bbf8-406b-9b42-9c47abf4a1a7"]
Cell[107837, 1894, 966, 27, 63, "Input",ExpressionUUID->"81e93a97-5638-4def-b308-95c66e4d9014"],
Cell[108806, 1923, 94248, 1568, 340, "Output",ExpressionUUID->"fb35dbc9-c781-4f13-b055-22c968660390"]
}, Open ]],
Cell[203030, 3495, 8536, 216, 649, "Input",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[211569, 3713, 1301, 29, 71, "Input",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[203069, 3494, 8532, 215, 649, "Input",ExpressionUUID->"d800b49f-9b04-4303-885e-198701a8fba7"],
Cell[211604, 3711, 1297, 28, 71, "Input",ExpressionUUID->"036b641c-9c8b-4000-ae1a-448fc6136597"],
Cell[CellGroupData[{
Cell[212895, 3746, 3013, 72, 187, "Input",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[215911, 3820, 22119, 383, 341, "Output",ExpressionUUID->"221c6551-6da7-4328-b87e-c39c40807437"]
Cell[212926, 3743, 3009, 71, 187, "Input",ExpressionUUID->"6f15ea9b-99d5-4a4e-88e1-2b680fb1bba2"],
Cell[215938, 3816, 22133, 382, 322, "Output",ExpressionUUID->"79f0cae0-170e-49fe-a04c-f4d6a821be22"]
}, Open ]],
Cell[238045, 4206, 2401, 54, 108, "Input",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[238086, 4201, 2397, 53, 108, "Input",ExpressionUUID->"eba599fa-45b7-41f1-be81-be340b9f2765"],
Cell[CellGroupData[{
Cell[240471, 4264, 4277, 93, 158, "Input",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[244751, 4359, 26364, 456, 357, "Output",ExpressionUUID->"2df43d3c-bc98-47a2-9402-9d971fe24e94"]
Cell[240508, 4258, 4273, 92, 158, "Input",ExpressionUUID->"d15ee31f-722c-4a79-b9bf-b0ddb3b85de9"],
Cell[244784, 4352, 26380, 455, 357, "Output",ExpressionUUID->"4e7c32b4-52a5-47a7-86d2-187b491a6a3a"]
}, Open ]],
Cell[271130, 4818, 4615, 117, 278, "Input",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[275748, 4937, 3218, 85, 158, "Input",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[278969, 5024, 3411, 86, 192, "Input",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[271179, 4810, 4611, 116, 278, "Input",ExpressionUUID->"1bd789c1-ff1e-482a-8ee3-6d28b8dd4365"],
Cell[275793, 4928, 3214, 84, 158, "Input",ExpressionUUID->"b34b6885-f3e9-46c7-b40c-9e3d7913dae7"],
Cell[279010, 5014, 3407, 85, 192, "Input",ExpressionUUID->"db4db487-96ba-42c4-af20-5155a072d67e"],
Cell[CellGroupData[{
Cell[282405, 5114, 2577, 58, 187, "Input",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[284985, 5174, 42697, 719, 619, "Output",ExpressionUUID->"c4201496-be1c-456a-a397-e6bc971ab617"]
Cell[282442, 5103, 2573, 57, 187, "Input",ExpressionUUID->"fba925bc-a4b1-464a-ab0a-78ae801847ef"],
Cell[285018, 5162, 42717, 719, 601, "Output",ExpressionUUID->"474f5211-d058-4ce0-ade1-59476c8e71f8"]
}, Open ]],
Cell[CellGroupData[{
Cell[327719, 5898, 1737, 37, 158, "Input",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[329459, 5937, 29739, 507, 341, "Output",ExpressionUUID->"1bc95cbe-8792-491b-8382-c28f71d63382"]
Cell[327772, 5886, 1733, 36, 158, "Input",ExpressionUUID->"30fd378a-e97c-49ff-b96a-011fbeff0dfc"],
Cell[329508, 5924, 29755, 506, 322, "Output",ExpressionUUID->"8443f89b-8952-4de3-90fc-f25d47b45ae4"]
}, Open ]],
Cell[359213, 6447, 700, 16, 41, "Input",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
Cell[359916, 6465, 216, 5, 41, "Input",ExpressionUUID->"30ae0cc0-e6d5-4626-bde4-fd0d9f6fe04f"],
Cell[360135, 6472, 3555, 105, 144, "Input",ExpressionUUID->"26e7cd0a-68bc-4b89-bb04-a9a58285a2c1"],
Cell[363693, 6579, 439, 11, 41, "Input",ExpressionUUID->"54f0d815-769d-45e2-8fb5-f3c2c8c98cbe"],
Cell[364135, 6592, 1122, 31, 81, "Input",ExpressionUUID->"c7a20df5-21fd-499a-8b6e-a4b4444ae251"],
Cell[365260, 6625, 733, 19, 62, "Input",ExpressionUUID->"815a2236-6e0d-4059-b203-3b68a6fb211d"],
Cell[365996, 6646, 512, 12, 41, "Input",ExpressionUUID->"49b2f98d-b3e8-4f46-ab88-f39880b7ccb1"],
Cell[366511, 6660, 438, 10, 41, "Input",ExpressionUUID->"adab55d6-ed38-443a-bc34-d4d4a96fcbe0"],
Cell[359278, 6433, 700, 16, 41, "Input",ExpressionUUID->"02d29a46-a713-4510-a6c4-c7885644ebf8"],
Cell[359981, 6451, 216, 5, 41, "Input",ExpressionUUID->"30ae0cc0-e6d5-4626-bde4-fd0d9f6fe04f"],
Cell[360200, 6458, 8680, 251, 669, "Input",ExpressionUUID->"26e7cd0a-68bc-4b89-bb04-a9a58285a2c1"],
Cell[368883, 6711, 435, 10, 41, "Input",ExpressionUUID->"54f0d815-769d-45e2-8fb5-f3c2c8c98cbe"],
Cell[369321, 6723, 1118, 30, 81, "Input",ExpressionUUID->"c7a20df5-21fd-499a-8b6e-a4b4444ae251"],
Cell[370442, 6755, 772, 20, 62, "Input",ExpressionUUID->"815a2236-6e0d-4059-b203-3b68a6fb211d"],
Cell[371217, 6777, 508, 11, 41, "Input",ExpressionUUID->"49b2f98d-b3e8-4f46-ab88-f39880b7ccb1"],
Cell[371728, 6790, 434, 9, 41, "Input",ExpressionUUID->"adab55d6-ed38-443a-bc34-d4d4a96fcbe0"],
Cell[CellGroupData[{
Cell[366974, 6674, 988, 25, 101, "Input",ExpressionUUID->"dba37721-4a9c-4533-92c6-d5acd2069465"],
Cell[367965, 6701, 17264, 302, 355, "Output",ExpressionUUID->"947445e5-d507-4f6c-9fdf-120c61929e13"]
Cell[372187, 6803, 984, 24, 101, "Input",ExpressionUUID->"dba37721-4a9c-4533-92c6-d5acd2069465"],
Cell[373174, 6829, 17283, 301, 318, "Output",ExpressionUUID->"9bca3182-4d5d-4018-8cb7-5b8c5d4f9e62"]
}, Open ]],
Cell[385244, 7006, 721, 19, 41, "Input",ExpressionUUID->"f42e6ca2-34cd-42ea-8328-48f2760ec324"],
Cell[385968, 7027, 304, 7, 41, "Input",ExpressionUUID->"0f9c791f-2f17-4cb3-8cd1-9de7e8fef98c"],
Cell[386275, 7036, 226, 4, 41, "Input",ExpressionUUID->"35ec7d33-ed8d-4844-8a66-90398f0ca722"],
Cell[390472, 7133, 721, 19, 41, "Input",ExpressionUUID->"f42e6ca2-34cd-42ea-8328-48f2760ec324"],
Cell[391196, 7154, 304, 7, 41, "Input",ExpressionUUID->"0f9c791f-2f17-4cb3-8cd1-9de7e8fef98c"],
Cell[391503, 7163, 226, 4, 41, "Input",ExpressionUUID->"35ec7d33-ed8d-4844-8a66-90398f0ca722"],
Cell[CellGroupData[{
Cell[386526, 7044, 641, 17, 71, "Input",ExpressionUUID->"10d5a223-9de9-4a33-b4d5-611af1742e7a"],
Cell[387170, 7063, 697, 22, 53, "Print",ExpressionUUID->"fb6d3a55-cb14-4961-b433-120832708e55"]
Cell[391754, 7171, 641, 17, 71, "Input",ExpressionUUID->"10d5a223-9de9-4a33-b4d5-611af1742e7a"],
Cell[392398, 7190, 697, 22, 53, "Print",ExpressionUUID->"fb6d3a55-cb14-4961-b433-120832708e55"]
}, Open ]],
Cell[387882, 7088, 1367, 28, 90, "Input",ExpressionUUID->"fa3f5f7f-351e-4286-a26a-6f2ff101ef25"],
Cell[393110, 7215, 1367, 28, 90, "Input",ExpressionUUID->"fa3f5f7f-351e-4286-a26a-6f2ff101ef25"],
Cell[CellGroupData[{
Cell[389274, 7120, 1094, 23, 68, "Input",ExpressionUUID->"928b0d02-edca-46b4-b287-181111eb6ffa"],
Cell[390371, 7145, 6650, 126, 336, "Output",ExpressionUUID->"dac58a66-008e-45f5-a6f2-242b29ee03bb"]
Cell[394502, 7247, 1094, 23, 68, "Input",ExpressionUUID->"928b0d02-edca-46b4-b287-181111eb6ffa"],
Cell[395599, 7272, 6650, 126, 336, "Output",ExpressionUUID->"dac58a66-008e-45f5-a6f2-242b29ee03bb"]
}, Open ]],
Cell[397036, 7274, 325, 5, 41, "Input",ExpressionUUID->"e6fd2e41-3d19-4e65-9a5e-37a0d46b4ae9"],
Cell[397364, 7281, 2314, 53, 188, "Input",ExpressionUUID->"77111c55-479e-45de-9828-bc692ef6cea3"],
Cell[402264, 7401, 325, 5, 41, "Input",ExpressionUUID->"e6fd2e41-3d19-4e65-9a5e-37a0d46b4ae9"],
Cell[402592, 7408, 2314, 53, 188, "Input",ExpressionUUID->"77111c55-479e-45de-9828-bc692ef6cea3"],
Cell[CellGroupData[{
Cell[399703, 7338, 1002, 19, 44, "Input",ExpressionUUID->"298b0827-eb66-4a55-a5a9-9355379ea00a"],
Cell[400708, 7359, 392, 9, 52, "Message",ExpressionUUID->"488b6495-633b-48b3-9f71-273f84202e2c"],
Cell[401103, 7370, 392, 9, 52, "Message",ExpressionUUID->"b974a173-bca9-460b-8cdc-67d4f3557adb"],
Cell[401498, 7381, 392, 9, 52, "Message",ExpressionUUID->"4f0e6ddd-764f-42f9-9587-400bb35d30fe"],
Cell[401893, 7392, 470, 10, 39, "Message",ExpressionUUID->"b935dc20-5160-45b1-a9da-2901d0baa4c1"],
Cell[402366, 7404, 428, 10, 39, "Message",ExpressionUUID->"4121cf7a-a134-4e6f-bf41-2170924ef85f"],
Cell[402797, 7416, 2000935, 32604, 528, 1835954, 29899, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"b27338da-7b67-4c27-816b-ac9ceba6cc5e"]
Cell[404931, 7465, 1002, 19, 44, "Input",ExpressionUUID->"298b0827-eb66-4a55-a5a9-9355379ea00a"],
Cell[405936, 7486, 392, 9, 52, "Message",ExpressionUUID->"488b6495-633b-48b3-9f71-273f84202e2c"],
Cell[406331, 7497, 392, 9, 52, "Message",ExpressionUUID->"b974a173-bca9-460b-8cdc-67d4f3557adb"],
Cell[406726, 7508, 392, 9, 52, "Message",ExpressionUUID->"4f0e6ddd-764f-42f9-9587-400bb35d30fe"],
Cell[407121, 7519, 470, 10, 39, "Message",ExpressionUUID->"b935dc20-5160-45b1-a9da-2901d0baa4c1"],
Cell[407594, 7531, 428, 10, 39, "Message",ExpressionUUID->"4121cf7a-a134-4e6f-bf41-2170924ef85f"],
Cell[408025, 7543, 2000935, 32604, 528, 1835954, 29899, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"b27338da-7b67-4c27-816b-ac9ceba6cc5e"]
}, Open ]],
Cell[2403747, 40023, 81, 0, 42, "Input",ExpressionUUID->"5116605d-8b25-4625-999a-a1e1ba5c771a"],
Cell[2403831, 40025, 186, 5, 42, "Input",ExpressionUUID->"c765d048-e0d9-4899-a2c7-4e14e0f6d8cf"],
Cell[2404020, 40032, 913, 26, 65, "Input",ExpressionUUID->"91ca8ca7-a915-4a79-ad57-4a7909a6a329"],
Cell[2408975, 40150, 81, 0, 42, "Input",ExpressionUUID->"5116605d-8b25-4625-999a-a1e1ba5c771a"],
Cell[2409059, 40152, 186, 5, 42, "Input",ExpressionUUID->"c765d048-e0d9-4899-a2c7-4e14e0f6d8cf"],
Cell[2409248, 40159, 913, 26, 65, "Input",ExpressionUUID->"91ca8ca7-a915-4a79-ad57-4a7909a6a329"],
Cell[CellGroupData[{
Cell[2404958, 40062, 315, 6, 42, "Input",ExpressionUUID->"db3c6203-70b7-4be8-8993-6a4721eb9d47"],
Cell[2405276, 40070, 1104, 34, 66, "Print",ExpressionUUID->"c3dc833a-990a-42df-b426-1a5a53a6643c"]
Cell[2410186, 40189, 315, 6, 42, "Input",ExpressionUUID->"db3c6203-70b7-4be8-8993-6a4721eb9d47"],
Cell[2410504, 40197, 1104, 34, 66, "Print",ExpressionUUID->"c3dc833a-990a-42df-b426-1a5a53a6643c"]
}, Open ]],
Cell[2406395, 40107, 1433, 42, 78, "Input",ExpressionUUID->"078161ea-f9d3-4a75-aa7e-f0d965934ce5"],
Cell[2407831, 40151, 799, 19, 73, "Input",ExpressionUUID->"9b8a8755-0f98-4463-950f-2baf55054802"],
Cell[2411623, 40234, 1433, 42, 78, "Input",ExpressionUUID->"078161ea-f9d3-4a75-aa7e-f0d965934ce5"],
Cell[2413059, 40278, 799, 19, 73, "Input",ExpressionUUID->"9b8a8755-0f98-4463-950f-2baf55054802"],
Cell[CellGroupData[{
Cell[2408655, 40174, 317, 8, 44, "Input",ExpressionUUID->"7a649e68-0353-4565-82af-28cbb8b733af"],
Cell[2408975, 40184, 1645, 44, 323, "Output",ExpressionUUID->"8f6257a3-0d4e-49cf-b138-6b6993ec65f2"]
Cell[2413883, 40301, 317, 8, 44, "Input",ExpressionUUID->"7a649e68-0353-4565-82af-28cbb8b733af"],
Cell[2414203, 40311, 1645, 44, 323, "Output",ExpressionUUID->"8f6257a3-0d4e-49cf-b138-6b6993ec65f2"]
}, Open ]]
}
]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment