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