Commit 2bc2e555 authored by himyss's avatar himyss

asd

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