Skip to content

M
mathematica
Commit 4ac61a29 authored by himyss's avatar himyss
Browse files
Options

data added

parent ffa3296f
Hide whitespace changes
Inline Side-by-side
Showing with 741 additions and 495 deletions
deutron.nb
View file @ 4ac61a29
......@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 95200, 2289]
NotebookOptionsPosition[ 89553, 2191]
NotebookOutlinePosition[ 89981, 2208]
CellTagsIndexPosition[ 89938, 2205]
NotebookDataLength[ 107736, 2535]
NotebookOptionsPosition[ 101858, 2433]
NotebookOutlinePosition[ 102286, 2450]
CellTagsIndexPosition[ 102243, 2447]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
......@@ -46,7 +46,7 @@ Cell[BoxData[
3.866791544874084*^9, {3.867203881456174*^9, 3.867203891918221*^9}, {
3.86859415931714*^9, 3.868594159600313*^9}, {3.868594205588904*^9,
3.8685942118497667`*^9}},
CellLabel->"In[45]:=",ExpressionUUID->"15f55500-85b0-49bd-b8c0-7ea00f0e2245"],
CellLabel->"In[1]:=",ExpressionUUID->"15f55500-85b0-49bd-b8c0-7ea00f0e2245"],
Cell[CellGroupData[{
......@@ -71,7 +71,7 @@ Cell[BoxData[
CellChangeTimes->{{3.8672039064993887`*^9, 3.867204004483068*^9}, {
3.8672040350457573`*^9, 3.867204051044759*^9}, {3.868594165302346*^9,
3.8685941958762693`*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"f1c72a75-7ee7-46f9-a8f7-4cd49fd00c7a"],
CellLabel->"In[3]:=",ExpressionUUID->"f1c72a75-7ee7-46f9-a8f7-4cd49fd00c7a"],
Cell[BoxData[
RowBox[{"{",
......@@ -82,8 +82,9 @@ Cell[BoxData[
3.868362805408889*^9, 3.868364543237402*^9, 3.868418704643059*^9,
3.8684296801198797`*^9, 3.868503326763413*^9, 3.86851076684522*^9,
3.868591730457405*^9, 3.8685945085451393`*^9, 3.868595755218032*^9,
3.86859955362208*^9, 3.8695655152900333`*^9, 3.869628019580538*^9},
CellLabel->"Out[47]=",ExpressionUUID->"787a36b5-5ebb-450b-97f8-6a66d36d74d3"]
3.86859955362208*^9, 3.8695655152900333`*^9, 3.869628019580538*^9,
3.8698124214068537`*^9},
CellLabel->"Out[3]=",ExpressionUUID->"242a245a-39df-462d-8951-540e89edf802"]
}, Open ]],
Cell[BoxData[
......@@ -110,7 +111,7 @@ Cell[BoxData[
3.866789623085449*^9, {3.8667897202033997`*^9, 3.866789728514553*^9}, {
3.868594244912619*^9, 3.86859426617033*^9}, {3.868599535129788*^9,
3.868599540788164*^9}},
CellLabel->"In[48]:=",ExpressionUUID->"40ae1148-daf9-4e15-8762-688f07195dad"],
CellLabel->"In[4]:=",ExpressionUUID->"40ae1148-daf9-4e15-8762-688f07195dad"],
Cell[BoxData[
RowBox[{
......@@ -139,7 +140,7 @@ Cell[BoxData[
3.86678748396309*^9, 3.866787512998473*^9}, {3.868365116728319*^9,
3.868365119682788*^9}, {3.868594293307797*^9, 3.868594304549119*^9}, {
3.868599541924264*^9, 3.8685995475331373`*^9}},
CellLabel->"In[49]:=",ExpressionUUID->"7a2bcc4d-5447-48d1-ac24-841589704be5"],
CellLabel->"In[5]:=",ExpressionUUID->"7a2bcc4d-5447-48d1-ac24-841589704be5"],
Cell[CellGroupData[{
......@@ -148,7 +149,7 @@ Cell[BoxData[
RowBox[{"Norm1", "[",
RowBox[{"k", ",", "q"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.86860390507694*^9, 3.868603917141555*^9}},
CellLabel->"In[50]:=",ExpressionUUID->"b71993bf-44b9-4b50-90b9-025a29b6f35d"],
CellLabel->"In[6]:=",ExpressionUUID->"b71993bf-44b9-4b50-90b9-025a29b6f35d"],
Cell[BoxData[
RowBox[{
......@@ -160,8 +161,9 @@ Cell[BoxData[
FractionBox["4",
RowBox[{"k", "+", "q"}]]}], ")"}]}]], "Output",
CellChangeTimes->{{3.868603908548182*^9, 3.8686039184646873`*^9},
3.869565521238338*^9, 3.869625957956542*^9, 3.869628024261294*^9},
CellLabel->"Out[50]=",ExpressionUUID->"36448c3c-ed58-4b87-bca0-c6f7044cd75e"]
3.869565521238338*^9, 3.869625957956542*^9, 3.869628024261294*^9,
3.869812428243662*^9},
CellLabel->"Out[6]=",ExpressionUUID->"c3aed629-a6fc-486e-8683-c6b9ccef00bb"]
}, Open ]],
Cell[BoxData[
......@@ -182,7 +184,7 @@ Cell[BoxData[
3.868591945528491*^9}, {3.8685920653683558`*^9, 3.868592065938489*^9}, {
3.868592200352151*^9, 3.868592220304749*^9}, {3.868592933204508*^9,
3.868592937488298*^9}, {3.868594321890065*^9, 3.868594328109784*^9}},
CellLabel->"In[51]:=",ExpressionUUID->"ed029352-16a6-45e1-b42a-177020211247"],
CellLabel->"In[7]:=",ExpressionUUID->"ed029352-16a6-45e1-b42a-177020211247"],
Cell[CellGroupData[{
......@@ -191,7 +193,7 @@ Cell[BoxData[
RowBox[{"PsiD", "[",
RowBox[{"k", ",", "q", ",", "r"}], "]"}]}]], "Input",
CellChangeTimes->{{3.8685984536355467`*^9, 3.868598456868614*^9}},
CellLabel->"In[52]:=",ExpressionUUID->"1508f981-ab16-4888-9c9d-70043439577a"],
CellLabel->"In[8]:=",ExpressionUUID->"1508f981-ab16-4888-9c9d-70043439577a"],
Cell[BoxData[
FractionBox[
......@@ -212,8 +214,9 @@ Cell[BoxData[
FractionBox["4",
RowBox[{"k", "+", "q"}]]}]]]], "Output",
CellChangeTimes->{3.868598458698038*^9, 3.8685995629995413`*^9,
3.869565525592538*^9, 3.869625962223899*^9, 3.8696280292131033`*^9},
CellLabel->"Out[52]=",ExpressionUUID->"d7839f75-9aed-4efb-95bf-f0aa05801eb8"]
3.869565525592538*^9, 3.869625962223899*^9, 3.8696280292131033`*^9,
3.869812432237939*^9},
CellLabel->"Out[8]=",ExpressionUUID->"e4db3020-f165-46b8-bef6-9b39b4225155"]
}, Open ]],
Cell[CellGroupData[{
......@@ -276,7 +279,7 @@ Cell[BoxData[
3.868594547173224*^9, 3.868594552292612*^9}, {3.868598275497266*^9,
3.868598275773817*^9}, 3.8685994674679527`*^9, {3.868599511457546*^9,
3.868599518423562*^9}},
CellLabel->"In[53]:=",ExpressionUUID->"cd919aeb-3101-4893-8360-ca90a34b5f8a"],
CellLabel->"In[9]:=",ExpressionUUID->"cd919aeb-3101-4893-8360-ca90a34b5f8a"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{
......@@ -288,8 +291,8 @@ Cell[BoxData["1"], "Output",
3.868592286450618*^9, 3.8685929550022717`*^9, {3.868594532156452*^9,
3.868594555136402*^9}, 3.868595763986228*^9, 3.868598253224373*^9,
3.86859952158809*^9, 3.868599567371044*^9, 3.8695655289855413`*^9,
3.869628033543208*^9},
CellLabel->"Out[53]=",ExpressionUUID->"b0e60b84-1f1f-4268-863d-06c8900b3b0b"]
3.869628033543208*^9, 3.8698124352622843`*^9},
CellLabel->"Out[9]=",ExpressionUUID->"86a70908-b758-4cb1-8f2d-c9ea5b1964b6"]
}, Open ]],
Cell[CellGroupData[{
......@@ -769,7 +772,7 @@ Cell[BoxData[
3.868592681493209*^9}, {3.8685953160084543`*^9, 3.8685953222658443`*^9}, {
3.8685994009874973`*^9, 3.8685994014156713`*^9}, {3.868612439195859*^9,
3.8686124712931223`*^9}, {3.868612700424255*^9, 3.868612713038343*^9}},
CellLabel->"In[57]:=",ExpressionUUID->"589fa93e-41d0-46c0-b8d3-ab8df683f53d"],
CellLabel->"In[10]:=",ExpressionUUID->"589fa93e-41d0-46c0-b8d3-ab8df683f53d"],
Cell[BoxData[
TemplateBox[{
......@@ -801,10 +804,10 @@ Cell[BoxData[
"ConditionalExpression"]], "Print",
CellChangeTimes->{3.868604232135943*^9, 3.868612603799876*^9,
3.868612825817466*^9, 3.869565741857703*^9, 3.869626276514852*^9,
3.869628183693252*^9},
3.869628183693252*^9, 3.869812555675345*^9},
CellLabel->
"During evaluation of \
In[57]:=",ExpressionUUID->"2946d86e-f35b-4b75-b95e-a5caa077a51c"]
In[10]:=",ExpressionUUID->"337280b6-e158-4dad-b3cf-8ba39c1d5cf3"]
}, Open ]],
Cell[BoxData[
......@@ -885,14 +888,15 @@ Cell[BoxData[
3.868595532269759*^9, 3.8685955362275753`*^9}, {3.8686126439376163`*^9,
3.8686126745347157`*^9}, 3.868612839045279*^9, {3.869628388967555*^9,
3.8696283893478117`*^9}},
CellLabel->"In[65]:=",ExpressionUUID->"c95e48ba-da31-4186-9fab-e23d54171786"],
CellLabel->"In[12]:=",ExpressionUUID->"c95e48ba-da31-4186-9fab-e23d54171786"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{3.868595287863023*^9, 3.86859563951444*^9,
3.868596926165069*^9, 3.8685971501862993`*^9, 3.868612678323316*^9,
3.8686128422832127`*^9, 3.869565750199133*^9, 3.869626296911549*^9,
3.869628191962613*^9, 3.869628395777919*^9, 3.869628872721054*^9},
CellLabel->"Out[65]=",ExpressionUUID->"605d794b-f8c9-4677-b077-aada9b92bbd5"]
3.869628191962613*^9, 3.869628395777919*^9, 3.869628872721054*^9,
3.869812556427718*^9},
CellLabel->"Out[12]=",ExpressionUUID->"6beae27f-a003-413e-be5f-41b65ba6a545"]
}, Open ]],
Cell[CellGroupData[{
......@@ -924,27 +928,28 @@ Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
FractionBox[
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["p", "2"]}]], "-",
FractionBox["1",
RowBox[{
SuperscriptBox["p", "2"], "+",
SuperscriptBox["q", "2"]}]]}], ")"}]}],
RowBox[{
SqrtBox["\[Pi]"], " ",
SqrtBox[
RowBox[{
FractionBox["1", "k"], "+",
FractionBox["1", "q"], "-",
FractionBox["4",
RowBox[{"k", "+", "q"}]]}]]}]], ")"}], "/.",
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{"2", " ", "p", " ",
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["p", "2"]}]], "-",
FractionBox["1",
RowBox[{
SuperscriptBox["p", "2"], "+",
SuperscriptBox["q", "2"]}]]}], ")"}]}],
RowBox[{
SqrtBox["\[Pi]"], " ",
SqrtBox[
RowBox[{
FractionBox["1", "k"], "+",
FractionBox["1", "q"], "-",
FractionBox["4",
RowBox[{"k", "+", "q"}]]}]]}]], ")"}], "2"], "/.",
RowBox[{"k", "->", " ", "kProton"}]}], " ", "/.",
RowBox[{"q", "->", "228.465"}]}], ",",
RowBox[{"{",
......@@ -952,97 +957,108 @@ Cell[BoxData[
CellChangeTimes->{{3.868604821326149*^9, 3.86860483549179*^9}, {
3.8686048918037643`*^9, 3.8686049478840723`*^9}, {3.868610320523445*^9,
3.8686103884198303`*^9}, 3.86861285794902*^9, {3.869628970187204*^9,
3.869628984962192*^9}},
CellLabel->"In[67]:=",ExpressionUUID->"af705252-b6bb-4c46-94eb-0f4dbbf1db66"],
3.869628984962192*^9}, {3.8698130811522417`*^9, 3.869813081599278*^9}},
CellLabel->"In[20]:=",ExpressionUUID->"af705252-b6bb-4c46-94eb-0f4dbbf1db66"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwV1Xk4Vev3AHCJQpKGqxRdKkPpIqJjyFrOKKTomlOEyhROKI0yxDFmiBQy
VErm2T6mJIX4RoNriJQhEpIMZfjt3x/72c/n2Wvv533Xu9ba0qfcTRx5eXh4
xsjr/+9FZgu/vud06px6a7JrLvKkDqfhRIdxZBnsvKVe1DelDbe6/C9vj3wJ
XYmZd0KmDCFuIK6FL7ID0ssCxQWnjkP8SPLMbMQwfK0czfKddIXNrjvCfkTM
QiYLsr1Gr4B5joPpeMRqrFtKkYprD4fZliBiLGIzCp675RjvlQQOIERZP70Z
OQvdJ/O+JUF7fmSJmtUW/P12RCnmVDLkxibkX5MVxzexAdKFR1LAwfLJI9Ga
rdgVWZmWvjEV2gdex+yflET2mSajm4Np0LHIUdPZvQNtZz+I83s8hKJNbWtv
hsmjq0nGGVGRbKj03DagxpVH5R8yOf9pZ0N9qyMxOCqPo3MszYsu2fAh5Pdp
hv5uXNR9H6D9KhvmFnbW8gnuQRmLcfv313NAZ9CHHXBTAcOuZS/LDudCU4lE
h98NRcw9Zxyf35QP7RvO5CgXKCI1qPP16b586HYvCPj0SRHnzVc8XjWdD2O7
mcqISljfnSe9UrIA1qW4c5aXlPB1tr7QuFsB7KH1S0K1Mg4cNR0PWFMIHgr7
31RpqeDqjt5rN9SKoPcAa1nymApGV+d+XckqgsN0K8VrzipI8UgX97Aogj02
fuE6iSqYPJnUzH+5CAYjX+vVzKig2OAPc9maIrCacnhWW6CKUn6FW7RpxUCr
uF34XE4N196JpTVolkDhi8f9O0ENS7W8/w04VAJS7VzRQDM1/Li+1X2PRQks
jfafowepYcS5fT3q3iVQLqGo8OKzGp7/SlE5lFsCe/0aMhqS1XGN+r4US4lS
EGPNxjVupOD5KJ7Htl9LYeqVwdyufyhYECAQ7/mrFFr0U639mBS8W87qd+It
g0CjQzsO+FJwZnT+hahEGUyZ3st70EtBtuDiEQ2jMmhxgKbrTzSQZTylwptb
Bo+HYv/prtNApf3FRVEV5Ptnv95S79HA3kTj6/wvykDTNdr8u4gm3idGD2R1
k/HnvwxYeWkiNeftn87V5RDoH7ysBlrocnTmQb91Odjy9ZyKttBC286m/D+O
5aB1U7lhzFMLHcOuiC+7l8MUpzM844EW7ovj0a8LIOOjFbauF9JG/2398tpZ
5aCd+r/9Y++0kSWcqi7ysxx+Vm12TnfWwQ5z1+BCrwqYM1ZONPTXwRsJap9T
LlfAwqDeq5lEHew14k319a8APpFLsgaNOqjr9u7m76gKEDvR8/mnHGDAywPt
ClkVQFlKtWYMAuZgxh+r7grQjqkInVgA7PfONFXrrwCpjSM9hkKIp41Uti8P
VYBM5grhWWlErSMndOymKkDxfyrOBsaIB6c14uwECIC/b8tO5yG+eJ/uaLeP
AKqTtE4jF1H5RvVtTXUC6EU5pikvEXdfo9D4tAjQYzUE6vUhZs+vtXKiE3DU
ffZzkogu/lJxN75iRsCpGsv7DDdd/EovUnl3gQAHwaHSrb66eFYsVbbqMgGn
j7FbJwJ1ceS+/KOE6wS4DIcuJibpYsGwaph0MAFe6yqtx5t10fGwaV3obQKC
Tm7fkrCHioHv/lx9lkeAjkNzo9MBKh6qq72ypoiAmbMXL2vTqRimtraSUUrA
WXZ7b78NFRkwdySskgD9oJsP90ZT8VShzF82rwjgDVU1X06mYmPoeVuFZgK4
kZ8E2rOo6Fz+PGa0hYC9dzRdL9RT0a51cEnrLQEiT8dV6mapWJwgvf+fjwQ0
5N0biOOjYYlx5UxgHwHXi/Xiz6ynYYPVHnprPwGTVenzwgo03Lsv9I3aEAFv
35jVmp+goZzw8BercQLC369k73GhYen04j7dSTK/Xfk7Fy/QsDqn+Kn4FAGl
X4SC06Np6CTu6Zn2i4A7M9WHv9fTcCRI011kgcz3H5flmjYapvfX0kIWCRDk
ES+I6aXhe3O7/uklAi4Jnt9EmaOhcmT6i0cruKAqItUgxE/H2xvnVMZ4uTC2
oeXCx/V0vMPXVrqLjws2EnLd/gp0TP/5zsh9FRfEpN+Fm1Lo+ISjw7mxmgut
Mjd05Bl0PBb8WDZYgAuo1J3WcoKO3vf//eAqxIU51ZBjqS50/DZgLXJ4DRcK
KGr85y/SUaLi+7SUMBd2UKPObomhoxtP9JYHa7nQxdTe+i2FjtK0b5eOiXAh
1mCkueopHQmO3YcZ0oZH46/eKqdjdbHHwch1XOAzpSnZv6CjSkFQnbgoF6os
Jz+ptZPPHRcvJJL2OZEcI9BHR9nUXR5r13NB0V6f3v2NjlErKVXepIfPzP7K
maPjjll7z3bSqa4PMv34Gehwuz5l5wYuWHgaWx7bwMCpe47mTqTX+ywJyf7N
wDFrak4G6aZLTyvnFBjYlMUobCftf93iXDOFgXVvD12cIa0VyC+VwmBgEWfL
+nUbuTAdUtjmYcLAxE7nSAnS2REnA2gnGegiObLib9JWN1aad7kwMOPOfJUY
aQHvzD2eFxmo+u/n2ZWkS88aLK0OYqBAwu7aIfL79scn2lKiGfhyjiFXQ1r0
aOxDtRQy3iLlYATpatoB39dZDHzdxtloTNr1QLehfRm5n9IjFUKktypcl/r9
nIG2QXJAkPt/tX3n9K03DPy7j1JykrTPhpcv5T4y8Ln/PYU/ZD53rXK5Vz3C
QC26eWE46bZ5EXfTGQa28ztYbiJ97XshdYyXiU8LnijHkOezt99MLGAdE9NV
efRWkQ55lVKVL8/EgCMT3m3keatXUqNZaky8lDD8VJ70QN6QQ68uE7+szrf1
IesDEhSFha2ZqN1VE/iLrKex0Pa+9DNMrFIa2iBH+u41nyINLyY2Rty1OSLI
hRnHaqszEUwcfV7hGEjW5wPLU4pLiUx0dvTXjSbr1+TwKt7bj5i4nBwndpuf
Czn7jZ7U1TCR7+L9rzdWcsFhZe+s5BQT9bNXt/wg+2XD7I3m4iUm5uxmbSon
+6l2VOa+wRoWdoXoNHuT/bat3Y3pu4uFg6ct6jrmCWhPXYx7Z8bCsPqGMwem
CfCLSzvrYs/C6931NQTZv4ohDG1eDxa263ycV/tBAMc94osSh4XZB6wNN5H9
jzqSKmFcFq5emB/3HCZgfN8z/h2vWKgR8aSnZJCAJBnHzvJ3LKxNa9k69YWA
WeEcv6HvLPS74l597BMBud3a/9OV0sMUFz/xqv/I9fked50L1MNKk85kVXK+
9Xp/flh6Sw+vdFFz5RsISGWf7fNK0sN67t3nm+sJ2OXqZfKjSA/Ds0tlBmrI
eXcynDL6WQ8FJc/3q5eR85VRydeDh3A4ZW/f6wcE2K2XSK5ZOITfRUU/LJLz
e5dI+oerAvooGHfLjOlLwJCQvKj2JtLfFoVCfQhw5tsfUK6gjxyzMJWVngSw
Zw2cCqz00epwwLkqRwICP15WyyjXR90Ts6ssjQjIfNLdctPLAH1SBqcdJQiQ
svNPo94wwNM/nmf0biHn35bd3ksRBtiXvvaTyV8EhAb7SPhkGuBbFldWUYQA
V8f1Lo5dBtjYe24qf7kClKVZAnQ0RCGH5JsT5P+QuFNIXSF8GMvmPdZGZlRA
azCn7HKGEcq6uu3YKFkBoe97hGVaj+J/H9ueXRUshzcv2q+I0kywOGX/TdZo
KQwIf1LO6ziGZjbJRX3ZJRDso5imaWyKPFdoW32Ci2FWPc7Ud9QMtwwNTBww
KYI1Hzr0tK9YYHlsVp2AUiHkJhyf+zZliVFOcqPMvQWwPX/umxHHGisuzVAv
7MgHyW/v76Xw2WB+U3jIskcujF5pikq7fwI/dlqp2cRlQ46PkV2cuC1ejP/j
q96bBf/gfxat723x0rOXLZMnnsDGErep/jQ7pGz4rF/fmQm63J2jLrancDdH
07ol6BE8y9dbQdlmjy+LbCd3HX4Imca+xMdBe8wfWzGRuu4BvA9oaptPd8C1
3xeHTv5OB2c7ubAJd0dM+XaaoPangbHiT3s5jdMoUc1fGNmXCtfD++6+nz6N
P43ndF4v3IdN8R3nbWrP4KkPgsWWqikwqTyZZX3tLDbPbkmwy0iC7dwLK5Io
ThjWbOT+XeUeFE0K/S7hdUZPXe/kVm4iRJVVH2XWOGNkFNq5nb8D7buvHcoP
c0EdgcsLdjIJcPyfE6m39F3RzMom6SlPPFCkcsSK+N1Q2U+07epUHFyuXq2U
98YNNb3W1831xgL/uP9D6chz+Dt9/z3V7zEw80qw2s3aHTdneNe3zURDUuPy
76sbPNAmvr718cZosJsVYvp5eKDTM+d3qw1vQefvbafcP3hgi/EqYgdPFPxi
HsxJVPNEG0sxysHECCCExAQGYzxxuCtsW4ZhOKg8mFaVnPNE+rGPQVOzoWB0
80vkLTM2Zt21aKxv5gBLP9JQ3YKN9rcD7+Y0cABFNIR6LNm4rqorK+EZB/bF
RwbJ2bBRj34v2L2MA5seaVyptmfjxYNhcooZHOh+EeU05sHGh1/PFw5d4sBZ
fm26Xhgbr36JCqQqcMCucWjFeDgbW57ER5jIcsAqIromNpKNmbezmuylOWD4
17BmXzQbg3yT+zibOaAkE7PP5w4bV2Qqugys5MAM/ev2Bw/Z+EXJuKq9JwQm
BGJ7DmWyMa84svdXRwh8fX3w7sRjNuZs8FLc+jYEOv+N/Usrm42BxZ8sTjeG
QKWDjnB7IRsjuydahUtDoER+pPFCMRvfEuLHNQpCIHcsNliylI1EN/WvM9kh
kOo1wutUwcZ7kSjUkB4CiZS4WhEuG4sorozZ5BCIWdC5VlzJxtB/GU93J4ZA
aO2IllU1GwXyL2jZxIVAQGDc/HING4+p5v2KjgqB/wPx8vnf
1:eJwVlHc81f8Xx0uUlZC0EK4V2aNrdM/BvddMRmaUlazCFQ0y7/0ohUhWSCpK
SUSRkSKzMhoSkhJFRgj1bfzu76/34/l4vN6P9/uc1+scKc8g24McK1as4Fu5
YsX/z3sOv39MlfZTevjkT0dv6zI407K/zyb5AZA/qffpqSVSzr+Li5BIboV8
0xDIUy2hTCvc4kos6QG5dWuqRcLqKemj6c85k/uA1GWZcV+lg6JXEHUxOmQI
dvtV8goefUWZVa5UOVUyAgcOLRZqhA5RmvhupunljkKeXl2tMe8oJeNr3uJS
0ji0k6bWjipNUPxa01yqoidAi7f9tULKLMXgekIDI2QKhnPHzcqCFyinDSlC
WeqzENTTUR7wcJkScpfcFF7yHTpZ3LcNA/9QXLZphtmT5kEhx16Ex3glUJOV
5bVyF6Dk0d6qoVWcsDFQ+uz3pCUwhaCfK6V4YcWA2K7u1T9haI+5zvZTa2HC
bOPMnehfQBHM4wonBKFOnt8uMOQPnC/cmcbwEoGijNVcFhN/oTT7tu7R46LQ
FhczkK6+AkWVV9UIFm+C8u8nk0JLVuLGbmPxD9biILf9+NhHHw68PLbFbqFz
G+S4h4EtaRVu6hPg0FSTAmZX0He1XE6s1u+oSp4ggWOpt/100hpkCs/Of/ux
HZ6NetxxM+fGgrXFa6YzlQDFDqx5vpoHdwtuBhu6Miieda65Fc2LYZwNC9ze
avDb10rcL2Qt1mYb/t6iqgUhBRbhb5UFUCZ25zoOdW0Y6zPtMpkQwOFfNpIT
ZB3wvXoFL6gLouhUrl+hCxlshHPnQkqE8IbH++GZUQPgv7Pl8k1uYfT6sENN
TJQCLWbZFiM+whh1+qK64G4AvdiMa9ak9Tihnr9q0xiCzOx5B9VcEXwSJxis
k2AMS89ZD78lbcSt34cXy3abgTfwkoUWNuIFXtsmPZI59N5NrtJ22YRj4v1Z
b/8zhzsXMu9GyW3G9ib9k1r3LcHb+WaR4KMtuGGPiqubvDX0jj5L05oVx/Ex
7xU5nHuh788Zbcp2adS+BbfEa1whWcfyqLWrNAo7fdkcZOUG1CCBe54p0ph7
lRLfN+oGFR/S1BJ+SOPl3leeQyIHILnpklL3YxLy3d95rajRHWhnSqU8XWRx
5JMHbqZ6wT2RnrXEWQXc9KXxU2GWL9SFbB3VrlVAZj99ZHrCF5pfHHz4eUIB
g/xb7SJ2+cGb0798aObbsTIpc8Dqkx8s/yY1cvIoorLq8eBy9QCgfA5nxBNK
+J6S/2667zB0VIn1xcSqIJ/D+mHfyyEQrKTVXa+vgdWvbCJa1h2D9ztN/onb
aeDUGpuIUd1jsJvqohLlr4FeO9YKzXsdA0W3mHOUbA1s8yi/PfzgGHxOfmb6
aFED54TvVI7tPw4uc96PG8s18Wr39FO1myfAuOZiRZO8Nr6U83GSVIqEiqc3
Rkigjbu8LGPMbSNBsrdWkOmgjRWOtWT7E5Hwd2LkCJWljaaqwlW8rZFQLaai
9PQj+36aQt6E+ynYEdNytSVPBwcWi+4oJEeBqMlSevt6MvY23vAQ84mBuTaL
ZRllMnbRFJreHI+B5+YF+2LoZJzKCPE8fjYGmFZm0jtPkHE49ldN8F223v5S
2bX3bN7blqP+k633ho7om7pYS8h5vGbFwo2xC8oDT3TxtppPzlxGLDB9v5zX
GdTFkoGquYXiWNALTHWcEtDDPP22izfa2frQT6MuR/XweuaXsTa+OGDGJfzT
Bn0sesZh9i4xDtw5Bz1TnfSxc/xBEiUnDvQJtZZvIfroDVOXiZtxMHem/9zV
a/r409tl7nErW5+qtEWI1wATtvwY/MQRDwYFXVrfXhngnpWvQjpD42G+fqN/
oT8FU7a9ZK1AJizbqGVbxlGwNWu+h8uCCb8/m7YtZlNwxzwX95w9EzgFTspZ
tFNQx9bfMDqACaL7Bz/OywM2PrT0P3yRCeS/BftonwGbBYiuvFEmGKTVJM78
BqxZp2kpMs0EyfVfBy15EbkyGVsYS0yQLV7JvySF2K3m3/OJhwUqXRr+FjaI
in09TwqUWQDbLsotlCFG7ck6nhjMAiM/KUp7LSJD5+TmiOMsoN4rtc9vRSyj
LDTbxbDA1KSFaTqMuMEsOLQ+hQXWQUsfcwUMMdD98JPQUhZ4PnK+TDtsiB6s
rYknRlngzTN2f8sJQ0wg6fd/n2CBjx3jxQzTELtSE3bYfWdBwHjin+xcQ5xc
s1+25w8Ljq6r2zfdaYgfuR1s6zYQwDogsSlT0QidZfPqDxgSQPHubPfbaYQf
1hiGDtIJWPQ9HmFANcIUpu9ZsCTAl9H7fsTNCA3O7jKrcSDAnEVc35FqhIKu
Cy9O+RPAkajp+C/PCLtMrALUggioTf7A3VtihD6/S/U6QgnYkaUXeKzZCJ95
9A3diyRA4Na0xpMlIzwW66DsmURAS9ml0XROYzzhbuZkk0pAdKVpxiEhY7T+
kX5e4SIBs/WFP/mVjJHZ252VkkvAy26HRsf9xjh8w3GrcQkB516vYigGGONB
z7KmsFICqO/ukv4cM8Y/lAP7Uu8ScP8Tb0JhqjFquV7ujL9PQNZiw+6pZmNU
CRd/6/SYAOv/Av496jHGdTxrSW+aCOBZsbk87b0xWvDx0na1EHCSJ1SEvGyM
9j128e0dBGgKSLbwclFRMdjp3fQzAr4JPz82JETFI2ffnvr7ggA3MfmBOCUq
Xhc1lRzqJUBU6tU5ezIVo2ZtXG6/IuCFbCxFgUbFPwSvo88bAlB14Mrz/VS0
npZbd6mfgGXN03YFAVTMjZrmEh0goJyszRV6nIpvOxV1IgcJkDZK8d2URsUA
aeGHvMMEvKMbbJnMp2KBg62Z5gcCLlh87ay/RcVITbUzJiMEWFpnnDpfTUU/
/phMk48EcNobq3o9pSJ9aFOa5icC6p1nP2j3UpGS/zKDb5SA8P15adzDVOzN
TmzqYrOKlzl1YJKKyU836cR8JmD80NKP0mUqCos784uPEVAQeK04houGhf9k
vYvY7BRi42wnTMPvKU77xMYJEAr/yyu3jYaEaNu6aDZ3nLxVt6xEQzMfs8sv
2BwX7XSkk0zDbOM78nxfCNBncknm02h44XlzixabF05X9ATb0rDzq0OOBZtv
Jx2INz5AQ8WK7Y172OwSu8rxXQANM+eLmgzZzB1WrBhynIZv2jj/SbH5vq/F
3zUsGsZa7k+eZb/n5TrTk59Kw+RtbUmlbBa0vnBdO5+GodN7NjuzucF454ln
JTTkXf7Pcp5dT+DOAUuvBzT0z+igRrJ5i1K05K8mGta0l4stsPvRJkFaON9N
wx/N+bMubA4Xbm2VH6JhVGTY4F12/2RWB1xq+ErDFh3B3z/Y/e75KRBkv0jD
8xIQoMjmqKkKo28cdIS+VpoV258dIw6i8evouCB8sNiD7d/ptvz6uwp07Luf
fMSR7bdOnVGqiTYdtys78Om9J2C0bMz7vSEdz0YU5/EPEQCZKvz8++i4LrRX
MO4dO5+JvcOFh+iYuBitIMvOV05U+D3do3Rk7N5/tbqPPe8HG1wOJdHRs7lG
tZydz2vOnip/s+m4azHzmOhLAmx3r+a4WERHv1DflMAeAkq1rG4+eUTHpC3L
OZPPCfBe9X5JfI6OqkFjwmT2vAgvxXZW/qWjvkZfp1wzAY0Tspct+EwwzZas
tOYJAVt7D9NPyJig6DjFJK+egN6CP+mvHEzwKvP7a6lKAmLSr/gGeJngPIRf
Kyhn5+80zYAj2ARHZX0mhcoIOBOU9En1jAlGjguaP7vJnh+KuMbZWhMM2fxm
y9V8AqbVH3NJt5mgp1X8qepLBOTKHuyvfmWCdVJpso+zCFjiL40ZmzLBoICH
JbfTCLgzYNBlKGmKw35F9BkW+38nXAOXmaaoxOLxIbP32/uwj9fvnzfFB6+f
aTz3Yeed4Tt8NNcUwyg8hk5ebH8Dj9p+v2eKN4pkg2xc2f4dOEee+GiKo08C
FHt3s/crrY5zEM1QquzBVXFVAjyExPIe/TbDk7s2TLpOskBGoPDNKW5zTFPX
+jo0xoIxXgVBAxFz9FE2POL4kQX+nFrx1UrmGHH/gbVWPwsYSxZ+5S7mGO7W
aJHZwgLmUIT21Wpz7M+ziBIsYEHxzYHnxFELTDtXNEKxYoGkR9wVo1gLrBKS
kjhlyoKsTdvD/iZZ4NJgxUilEQsSE8LFwostULIt3URoJwsCDwoFHHxngXxh
DxKjt7FATcqEm4qWeO3NrROGM0x4mFVhtJJ/NwbxF4z1JDLhRcKZBxFXrdCh
m2l9uioeEl8P8su+sMbLPD6hIBAH3U97IwWNbZH4qZHy2jcGRvk/qJX12eEf
hvnajW6nICFc5YqejT263eaTkHY8CUs66fYnJhxwldh7x8m9x4DvTZ+pQaQT
BhpF/nQrOQp3Ml2XJ+ec0Wb8NTn1CAMk7i5PWp3Zh3JxRs1kWjCIT76+lM/p
hpLudTJHfgTCRGRHypXL+1GcM/e3LeEHpeFWHumb3fGFCCNnW4oPKONbpxev
3bFB3n4mRNwb1lcdnhu54oGmJeclXrV4gGEtaSLA3RPFXHRv2VUegMd3TVeS
t3ph5JPBiYV9rlBsc+Lh0GcvPFKamS0l7wyv4zt6fhZ6Y86Nbw3X4xzA30P+
7EzQQSxImlQX+s8ObFTmveR1fXAmoojDptMGos8N57xe8EGVM8tdWT/3gEhG
X6hb4yFsaInIyomxhFm12ZJ9Ub7Ym982v+OKGUjUHluZS/bDXwkV1YYSJnBv
lvdXFYc//kpeK/y4nAopDxqs6Y/8ke9B7OHmO0bQuz3K7O7ZAHz+pJL4Uo/g
qry/4Lx5IJa7qv/oM6QAWbJU9B7XYZzsPnn7YqA+RDSsUS3rPowVHgLrK0rJ
wDUdd10q+Qi691cUBXvpwGIbT8PhfUH40jCV4qakBbnt/36dEg7Gv72Gw+91
NcBjiZceExyMI7v1549nq0H/r62eQW+CkXM61dSYWwV+0HeVZmuH4OcfrNZc
dyV4yCvK/TktBCWWdX69Wr0dNK4taIovh+C43g3TgIdyYEV8Sj7vwECa8jru
sE4ZMDFPttRxYmArKawdm2QABXR5B50ZOJ9kqCRYKwPqGckseTcGptmsbq8p
kQGRIt3IBi8GBv+mGJATZWDgaYrft2AGhi97R34wkwFfLgOq6VkGiu8L8u/t
JIFH+9jK6XMM1C2W/CjQTAKXpNRHF5IZWFZ3r8mqjgSWG8b1hlMZuPbM1/q3
t0mgKpumHp7FwJDwW+4bkkmwSP0ice06A23qBedVbUgww31h0KyYgRkdG2iF
ZiT48mxXzswNBp6U5h7faESC/r0XNujfZqDG1F6RtZokqPOm8PdWMFCuV+KL
xAYSVCl8bT9WyUBO+qakW2tJcOfbhQTx+wzc9XVvmP5qEhQc/crhV8Ouz8iW
5+CSNGST0xsFahlIN54r/zsjDWm/KVGVdWw9d3rmpS/SkNj4Vd+lgYGw62a1
/og0xDPTf/57xMCHrtfWD/dLw/8ABEuWvQ==
"]]},
Annotation[#, "Charting`Private`Tag$584362#1"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$94900#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -1074,7 +1090,7 @@ aO2IllU1GwXyL2jZxIVAQGDc/HING4+p5v2KjgqB/wPx8vnf
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 300}, {0., 0.10576051518102296`}},
PlotRange->{{0, 300}, {0., 0.011185286571355386`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
......@@ -1085,8 +1101,205 @@ aO2IllU1GwXyL2jZxIVAQGDc/HING4+p5v2KjgqB/wPx8vnf
CellChangeTimes->{{3.8686048309051447`*^9, 3.868604837191936*^9}, {
3.8686103236765223`*^9, 3.868610390025558*^9}, 3.8686128611831083`*^9,
3.869565753444449*^9, 3.8696263002800617`*^9, 3.869628196004326*^9,
3.869628399732347*^9, 3.869628986502192*^9},
CellLabel->"Out[67]=",ExpressionUUID->"e98c5906-814e-490d-b5ad-0e56295f99ab"]
3.869628399732347*^9, 3.869628986502192*^9, 3.869813083825735*^9},
CellLabel->"Out[20]=",ExpressionUUID->"e690fd3a-0037-42ec-aaf7-a005d8ba954a"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["p", "2"]}]], "-",
FractionBox["1",
RowBox[{
SuperscriptBox["p", "2"], "+",
SuperscriptBox["q", "2"]}]]}], ")"}]}],
RowBox[{
SqrtBox["\[Pi]"], " ",
SqrtBox[
RowBox[{
FractionBox["1", "k"], "+",
FractionBox["1", "q"], "-",
FractionBox["4",
RowBox[{"k", "+", "q"}]]}]]}]], ")"}], "/.",
RowBox[{"k", "->", " ", "kProton"}]}], " ", "/.",
RowBox[{"q", "->", "228.465"}]}], ",",
FractionBox["0.0047",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"p", "/", "44"}], ")"}], "2"], "+", "1"}]]}], "}"}], ",",
RowBox[{"{",
RowBox[{"p", ",", "0", ",", "200"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
CellChangeTimes->{{3.869817253296451*^9, 3.869817289793811*^9}, {
3.869817352406551*^9, 3.869817388220334*^9}, {3.869817422212582*^9,
3.86981746543668*^9}, 3.869817584991996*^9, {3.869817615929224*^9,
3.869817632940728*^9}},
CellLabel->"In[48]:=",ExpressionUUID->"c924a6e4-1400-4616-9786-41ee8ec594ab"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwV1Xkw1YsXAHBki3oSIXlxrxRNz5LlRcs5yZJ937Iv1/1a435RSZJdyFYk
S5QSXpQikkRlS5t2S0oko6zdbsnN7/v748yZz5yZM2fOnJlD8zloy+Dj4eFJ
oeL/mZ7FvVi68fmeOoWC2tYqEm4Jq8iHEHWwU+WMQQvl9sO1FcpEG+zvvSN4
k3Kezpjb6lNdcNFEhl1JuVM9nClIPIXlh01iBZRj1i03LZe9gB6dRscTlPNz
DfcsZb6BF0Fqvf6U68Qy7v+MHoS3q0wDjSl3Z/TvZzNHQLRw+7+KlGcTV00c
rv4Igf5yGotXSDh2v06FU/YJxMv3OvdRFuGzC44sGAd/00//FVLOxx+1C5kT
oLvDRM2HsuLxwrnwxEnokOgYUaJ8rXWX1mz0FKQ4X7w7VklCj15C81fmDAQq
SK+0p1yzSyJWu24W5GqiIvkpzw36nY+onoOAmrfi1y6TECsrPDpftgAfx1KH
fl4i4UGzy4rtxd9hOm5ANJ+yiEvNpvACNrTYa4eoUi4osGTOZHJg82enbusK
Et7rlKWqpv2EWmWX+wMXSdj0eq4qJPEXRF15Pe9J+Zrkma9T0b/hT9qKedcL
JPTmDIZ/YS6DNac7SbaMhNSz+T15Gjy4JEbTjT1PwjYCDmjW8WDD4t9bhktJ
YAnlHGVV86KfS2FjRgkJfwy17s6WrcDA2r/u1p8joXzdsGX2Rn6M3vzGa7aQ
BIPxpBG1Yn58RUgZqVBOT3zDc7BAAEeVPIcyCkiQuR+971umEG6UtHLecJqE
llzFlxmiwhiW+kpVM48ED58+v21pwsgwNbYxyiWhgndjclDiSgyKox33yCZB
A9u7J6NF0d8+pcIxgwTTViHLz0wxPP8nxYWZQNWXfdhSs2KY8eXOadl4EjIU
PJ8o7lqDjbLdft1xJET43I60f7AGS+0E+iRiqXk/hz1oeCmOJ7wC2QGHSRj9
Nux9mC2Be4rd2tcFk/D6VHpDtq4khnCNPMhAan9quiurjkliZ7NV4yOChPrw
09feCazDkVT/C8EMEk6wTZf1pKTwXQnfrYMeJChwbxVzdWRQkr/W4pgVCZKl
jNl1R2VwRTB8TbEgQRgkDFTbZLCkRDAi04yEmbjQKQ/j9biXe8cszZiEu/xK
evecZPG2HW+kAZDgvir3TfxhOfQ5pZb16B8SHq/WWcnvroAlMs93aQuR0G+2
9uyTGAXMlF8ye8pPwtu06c2FxQr4tcrdgsFHwphApYHqkAJGbUjQTOKyYIkr
HefsSsMzChETpxdYsHX614//XOgIui8f/XjPgtQnrWMOjptw5lHHjqF6Fuhn
Gd6rtFLG84G599hWLIgzvVnVH6qMRrNskyZzFtwVUMzjZiqjY0tS7yETFujF
8Pjb9SmjUO5g2zd9FmgGtIgu71fBav3U0QZtFmzap+HkqL8VvSYdDW/LskCQ
IzfNr70Nc+zmL14dDQeG2uJqjdXq+L3BkS0eFA4WKow5KWMtnLB9qypiEQb1
L49F9uzYgfLD2rwNbqGwc+3WOv7ju9CAt6YqYTQImL9zSy45I8b4jI5ExgbA
wc4JzToLfZxVy+9scWXCyQOCStxgA1ybFnnHQI0Bvl1H/TUIIzxpJNrab+kL
7ULrbYJc9uPe1KK/JUq9QUM8Ln8ywhQTk0SUP417gtfC7m2WweYY6SJd/l3S
HcpLH8pxMi1xn2m50rz9AbhxSm+w39Ya09pXCFyfdIKI27utS8xt8NCqymm3
UQdo6700n+Zqi+IW03/pfrGDAGPd1gBnO+Rjxqz8ArZQfEWjISjQHkVFVZVe
XLCGnIXWE2GHHHBS0mE8PdQSPldHRhEsRxyT4mGMi5jDA6Pcs/HxTnhqctOi
/U0T4LUaGM2Kc8Z2qazauBZj4NnbyFt2xAWj7i8l3fllCKnSHIv+lAPYNMD8
M7PHAMIO+HZwElzx5AJn+GyXPnw8oeUHZ9wwU1yEqHDYC5J5hQNp5e744916
5YeiCJfXbD3SVeSBWkdYbcfGd0M7S95wS40nMvd5e6o07YRShTK53fZeSJx2
UhUZ0oXWmEUe4pkXlgaa+59X3QE0M6ElRSdv1DNm50XF68DNpyrp715647nf
P3s2SmhDRucfdQV3H6w+V212tkIT8sjJQK8hHxznOL10C9hO/YONYnQXX/zw
vKvH0UwDqlQEeiM++GKFemRrzjZ1EPzOu77dww8X22OKxQNVoVL9emzphB/O
04+2JxzZBio+1ZbcEAYOv+k0HW3cCoMmzfUOUwx83JnDKVFXgf6L0f8A6Y+a
Nkfkj1dugZ83bHbR5/0x3Va329t2Myw3sRqSQ5nUPbQLm8oqgZm6kWEMm4n7
3KM+171XhC53tYAgksALkwZTUn10WOtLtJREEjgW/mpNVBcdPIjy1c8OEXjW
lZ3/uoMOP1gS9VoxBCqNszuKmumwKZWzyE0kMK0lOUOnkg5x9W0Z2fkEWj2f
i74aTwc9IetrDc0EhrTaHSrRo0PyqjS+Ly0ERm+JuL9Fhw7PxTvsZe8SmKQp
5X1Dgw6EnNav2A4C26VFsp4o06FAQ0Z//yMCs69OXJGUpsN31w8vBoYIfNfX
HTqyQAP0Xr959QiBL5KDimNnaJDub3sYPhJYftNaUn6KBvTwB3IV41Q/jsxH
31Ea2CRfYYRMEzjEVh5dekaD4vSPt87PEjg+znC43EeDL9myIv3zBOYKOonZ
dNMgriijVodD4HuZXIfqNhr0lT3kCfhFoEDR4gfnFhpIX/5jW/SbwMZQ++vC
t2jgU/PvpcdcAj+Yq3U219Og9loYZ3mZQM8NG+SDa2nwPzht2lg=
"]]},
Annotation[#, "Charting`Private`Tag$128858#1"]& ],
TagBox[
{RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwV1Wk0lQsXB/AjY8lrTLRcyXx0TBGR2juZpzJkyJDZUxLneZxLQkQiQ6KO
vCiSFDdKTiWZSaUrmRropiJ5Sx0piuSe98Nee/3W/8t/7S97Q2CkS8gKGo12
gjf/38qnlsrPKz7drt525ZITUnBbhL4+gqgFY+MxPQee22JrLmkSLaCpyBmy
4DnfaNxHLKcb6PWb8rfwfF+PGSZEPIFJTvh+DZ7j1yzfWS4dACe/OE9Jntl5
ltt/ZT+D9aFJ/nNAQa14VsePuBGI4q9MHub5QVa/zfew1yAzpXjvBs/c1NWT
sVVv4KWlkkQ6zwkdtfT50ndwp+N/CV48r1rhepBVMAGjaV2C6jyzca5mNnsS
zjGWK6e3U6BytHCGmToFRo+mg6/zfL3JzJAb9xHqP342O8TzQ9OUhk9hX8DY
oBNGtlFQbSaduLmWC7mc2PCTPM+MBF+IrpoBaSat3pDnxHUib7+WzsIx+eKS
ODMKOhu8+DcVf4PF4R6Q5XmVV7Uqs+A7pBwQ4ru2lYKCAqewL9nzYK2p9q7H
lIJ/jErTdTJ+QIurv6Abz6rDM1cjUn9CmYub7TMTXj+Zs58+xi0CORBi8mQL
BY9OjzA/hC3DrR/tfalGFKSfYz/M16fhsKna2vebKWAQsNeglobszl/HzXkm
hU8fIav48Gjgt7FPBhT8tjRs5pbyo9qZ+SvC+hSUrXnllKsogBHc9l3mehRY
TBx/rVssgMJJuRqxuhRkpj6jRRYIIk7QIoe0KZDriNs5nS2MFV8PJLlrUdCY
pzKYJSqCA3x2/QfoFPgFPg5mZIigKDtpX5wmBZf4FNPCU1eix8FL+pnqFOhj
24OpOFG0t1H4h1KmwK5J2Ol9mDg6nl3RECjPy5cDv8tyxTHSIkVGUo6CLKV9
vSpmEtiyYWa2QZaC6MC7LLdOCZSd4LNZlOb1fR/VyRmUxIsB3HSz/1DwdvpV
QOx3aexz569u5KNgOCeTk2sig2yRGlKaxrufrsnKqwkyWLjI9yHkNwl1zDPX
XwiuwWjTnZMLCyQkf7dbNpWVRck0h8yJWRKUlm4XLxnJ4fME1z9ax0mQOR/C
XXNEDm+KC2t3viVBBKQtdFrk8Bk3Q6FjjIQvSYc++lnL427475UboyQ0C6iZ
tnqsQ1n5p0POgyT4rs57dixWAQWYP8vL2kn4W8xopYCvEs5ROTGFRST020ud
641Xwou3gwYYhSQ8z/isXlishApbWRvusUkYF6y00BlVwsleqYu9p0n4tbQ2
ydN7A5rezmF3nCBB6/PPub+8lPGGESeYS5KQ3ts0vsddFTOSq9dHWpFgfsqy
tXKXJq5uZAk/f8uEJLv6q/2HNHFGV0qE/ZoJzYIq+UvZmrhCSEDCeZQJpvG0
UNfHmthdk23ZPMQEg/2Noss2dIyQE+KwHjBBdae+h7u5Fj7sT1/rc40JQvMK
nwU2M7C13alSmcWEEN0FMX0xPeyIuSv751IUONJDZmStDbEqvdhvqi0S6gYT
WA+3bMH3kawe26wI2CqlVStw1Ax1lyv4hJXCIWwxr6TCE5H+aaffxV4CIu9P
GtQ6mmOylLpIT2sonNwrpLZ00AIPH7m5lHktGIK6j4TqE1Z4fG3C4M+JQGgT
lncO97LB7gz6p1+OAaAvmcSeirbDU+923WqO2wf+s9sYTgcdUEciRjTvhQ+U
ne9SmM92wv6zKQMX7PbCzRzTkX6X3bima3Ot7WpPiL67bXeJgzOGrMpdxdno
Di2PKr5meLvgXPRxAWlPN9hvbdK039MVX4ilnTzY5wLFV/Q54QfcMNPC9pmN
qzOcnm1KjorZg+FMqx1d/LvhfRXrT4J0R92mR4Ol/Y7QaZV37tgxD7Q/rlYg
c9Ue+Ha9fHsqyRN9p1xP+w7ZAm3HLb7Sw15YLrbA32xgA+lr5x37T+xFxaNV
s9EFVhC1N6h9PsUbtS4rT7/YYglvkg2D4awPxg6aNP9+tRNk8gtfZpT5okJz
SFRwpTlcltA63F3khzUJHP6zJTugjVxvqVG9D2vrT8jcOINwXqlUYZubP7pY
WuR4BAI0xS/QiD5/tI5R33GlaxtssBf+peIRgNecMo9Wa5hB/RN65ovBAHy8
kFCxsd0Usu7/1lPyDUSP1jhxmrcJ5FNTB/xHA/GRqsbTQZUtvH+gKK7sFYQh
UwGyEcLGcJUu+Ch6LAi1HDIdRD5sBqFvfPJtfsGo4GwtODVtCJV6NxLPTwbj
gRHjJ2NcA6AHVjktRYQgO9OPpbzSAEZsG+r2fAzBpoZfu4q2b4L+8jhtoEJx
tDxx+q8offhx09lM+Wso1r3KWL/9nh4s3yE5aYfCkFWl0X1mjR7Y61lZxn8P
Q1Xlw2q1wzrQ7au7P5wi8IcG4eZdrQ1SQURjCYtA1Z5wQdvL2uBHlIn1xRC4
UbR4ybhMG+ZI6TrDeAJD2/rb5Au0QTV9fmEplcD8jUPZn45pQ1JdS1Yum0DC
smS4d682mArvvs5pIJBOJViniGpD2uqMFR8aCew4oidRKKQNTyXb3dY1E9jU
My51nU8bCAXDn4ntBE4N3ep8M8+AAn05c5seAlcW9/W6jjPgm/fYwMtRAmc2
vVEhmxiAAfLqYq8JVOGM+xTdYUBmqEssvCHwsF3ew66bDFBmdipcmiBwOdTb
TLGKAc5pV0IiPhM4ybgX/4rNgOLMN7cvcAks/6ZmI5HHgA+561b1fyUwwP4P
C4tsBiQVZdUYzRPo7kZ/XJvCgMelXbT9PwnUbI31mExkwNrLv12KFgkU1OmR
VIpjQGC1ccXfSwT2+DQveLEYUHM9an55mUCfTVzJs1EM+Bd55sNZ
"]]},
Annotation[#, "Charting`Private`Tag$128858#2"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0.00013489789812678603`},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{All, All},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.869817259717098*^9, 3.869817291231227*^9}, {
3.869817410754409*^9, 3.869817466754157*^9}, {3.869817591183922*^9,
3.869817634450905*^9}},
CellLabel->"Out[48]=",ExpressionUUID->"dd57294b-38b9-4e1e-a78f-a790c7d844ec"]
}, Open ]],
Cell[BoxData[
......@@ -1129,7 +1342,7 @@ Cell[BoxData[
RowBox[{"k", "+", "q"}]]}]]}]]}]], "Input",
CellChangeTimes->{
3.869629300173646*^9, {3.869629377151785*^9, 3.869629475904372*^9}},
CellLabel->"In[72]:=",ExpressionUUID->"e24edc1d-a3ff-4c8b-bb21-62fa5fe16f06"],
CellLabel->"In[13]:=",ExpressionUUID->"e24edc1d-a3ff-4c8b-bb21-62fa5fe16f06"],
Cell[BoxData[
RowBox[{"Clear", "[", "k", "]"}]], "Input",
......@@ -1145,8 +1358,6 @@ Cell[BoxData[
RowBox[{"(",
FractionBox[
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{"px", "+", "py"}], ")"}],
RowBox[{"(",
RowBox[{
FractionBox["1",
......@@ -1170,9 +1381,9 @@ Cell[BoxData[
FractionBox["4",
RowBox[{"k", "+", "q"}]]}]]}]], ")"}], "2"], "]"}]}]], "Input",
CellChangeTimes->{{3.8696303068554907`*^9, 3.869630331365758*^9}, {
3.869630391073823*^9, 3.869630393423407*^9}, {3.869630598960945*^9,
3.869630604762298*^9}},
CellLabel->"In[84]:=",ExpressionUUID->"f53dd42a-ae11-462a-bf9f-c07d88f298c5"],
3.869630391073823*^9, 3.869630393423407*^9}, {3.869630598960945*^9,
3.869630604762298*^9}, 3.869814938352353*^9},
CellLabel->"In[21]:=",ExpressionUUID->"f53dd42a-ae11-462a-bf9f-c07d88f298c5"],
Cell[CellGroupData[{
......@@ -1181,14 +1392,11 @@ Cell[BoxData[
RowBox[{"PsiP2", "[",
RowBox[{"k", ",", "q", ",", "px", ",", "py"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.8696304109161053`*^9, 3.869630430062149*^9}},
CellLabel->"In[85]:=",ExpressionUUID->"417870a7-4839-4f81-8586-d217e9ba44f9"],
CellLabel->"In[22]:=",ExpressionUUID->"417870a7-4839-4f81-8586-d217e9ba44f9"],
Cell[BoxData[
FractionBox[
RowBox[{"4", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"px", "+", "py"}], ")"}], "2"], " ", "q", " ",
RowBox[{"4", " ", "k", " ", "q", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"k", "+", "q"}], ")"}], "3"]}],
......@@ -1207,10 +1415,11 @@ Cell[BoxData[
RowBox[{"2", " ", "px", " ", "py"}], "+",
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}], "2"]}]]], "Print",
CellChangeTimes->{3.869630432023151*^9, 3.869630611331956*^9},
CellChangeTimes->{3.869630432023151*^9, 3.869630611331956*^9,
3.8698149474004307`*^9},
CellLabel->
"During evaluation of \
In[85]:=",ExpressionUUID->"bf7a1e53-2a8c-4713-ad3f-6433be47849b"]
In[22]:=",ExpressionUUID->"5de6100a-eac1-4d61-85e4-48f2515ee2f3"]
}, Open ]],
Cell[BoxData[
......@@ -1242,10 +1451,7 @@ Cell[BoxData[
RowBox[{
RowBox[{
FractionBox[
RowBox[{"4", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"px", "+", "py"}], ")"}], "2"], " ", "q", " ",
RowBox[{"4", " ", "k", " ", "q", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"k", "+", "q"}], ")"}], "3"]}],
......@@ -1277,76 +1483,67 @@ Cell[BoxData[
3.86963009471539*^9}, {3.869630131374378*^9, 3.869630131770316*^9},
3.86963019598332*^9, 3.869630440713748*^9, {3.8696304731362457`*^9,
3.8696304770559893`*^9}, 3.8696306183960943`*^9, {3.869630881142564*^9,
3.8696308850055428`*^9}},
CellLabel->"In[91]:=",ExpressionUUID->"a4ef5eb4-7778-43b2-8376-e6e4431de66f"],
3.8696308850055428`*^9}, {3.86981492794865*^9, 3.869814957021761*^9}},
CellLabel->"In[23]:=",ExpressionUUID->"a4ef5eb4-7778-43b2-8376-e6e4431de66f"],
Cell[BoxData[
TemplateBox[{
FractionBox[
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["k", "5"]}], " ", "\[Pi]", " ", "px"}], "+",
RowBox[{"2", " ",
SuperscriptBox["k", "5"], " ", "q"}], "+",
RowBox[{"5", " ",
SuperscriptBox["k", "3"], " ", "\[Pi]", " ", "px", " ",
SuperscriptBox["q", "2"]}], "-",
RowBox[{"5", " ",
SuperscriptBox["k", "2"], " ", "\[Pi]", " ", "px", " ",
SuperscriptBox["q", "3"]}], "-",
RowBox[{"2", " ", "k", " ",
SuperscriptBox["q", "5"]}], "+",
RowBox[{"\[Pi]", " ", "px", " ",
SuperscriptBox["q", "5"]}], "-",
RowBox[{"2", " ", "px", " ",
SuperscriptBox["q", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "5"}], " ",
SuperscriptBox["k", "2"]}], "+",
SuperscriptBox["q", "2"]}], ")"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["px", "k"], "]"}]}], "+",
RowBox[{"2", " ",
SuperscriptBox["k", "3"], " ", "px", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "-",
RowBox[{"5", " ",
SuperscriptBox["q", "2"]}]}], ")"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["px", "q"], "]"}]}], "-",
RowBox[{"4", " ",
SuperscriptBox["k", "3"], " ",
SuperscriptBox["q", "3"], " ",
RowBox[{"Log", "[",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["px", "2"]}], "]"}]}], "+",
RowBox[{"4", " ",
SuperscriptBox["k", "3"], " ",
SuperscriptBox["q", "3"], " ",
RowBox[{"Log", "[",
RowBox[{
SuperscriptBox["px", "2"], "+",
SuperscriptBox["q", "2"]}], "]"}]}]}],
RowBox[{
SuperscriptBox["k", "2"], " ", "\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"k", "+", "q"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"k", "-", "q"}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["k", "2"], " ", "\[Pi]", " ", "px"}], "+",
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "k"}], "-",
RowBox[{"\[Pi]", " ", "px"}]}], ")"}], " ", "q"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"4", " ", "k"}], "+",
RowBox[{"\[Pi]", " ", "px"}]}], ")"}], " ",
SuperscriptBox["q", "2"]}]}], ")"}]}], ")"}]}], "-",
RowBox[{"2", " ", "px", " ", "q", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["k", "2"]}], "+",
SuperscriptBox["q", "2"]}], ")"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["px", "k"], "]"}]}], "+",
RowBox[{"2", " ", "k", " ", "px", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"3", " ",
SuperscriptBox["q", "2"]}]}], ")"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["px", "q"], "]"}]}], "+",
RowBox[{"2", " ", "k", " ", "q", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"Log", "[",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["px", "2"]}], "]"}], "-",
RowBox[{"Log", "[",
RowBox[{
SuperscriptBox["px", "2"], "+",
SuperscriptBox["q", "2"]}], "]"}]}], ")"}]}]}], ")"}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "-",
SuperscriptBox["q", "2"]}], ")"}], "3"]}]],
RowBox[{"k", "-", "q"}], ")"}], "3"], " ",
SuperscriptBox["q", "2"]}]],
InterpretationBox[
DynamicModuleBox[{Typeset`open = False},
TemplateBox[{"Expression",
......@@ -1448,8 +1645,8 @@ Cell[BoxData[
3.869567239297608*^9, 3.869626935103006*^9, 3.869629942396744*^9,
3.869630078096586*^9, 3.869630189648635*^9, 3.869630294281685*^9, {
3.869630480764154*^9, 3.869630505310848*^9}, 3.8696306349033403`*^9,
3.869630903121903*^9},
CellLabel->"Out[91]=",ExpressionUUID->"63a40424-d528-4ecd-bf57-728421a50da7"]
3.869630903121903*^9, 3.86981497908293*^9},
CellLabel->"Out[23]=",ExpressionUUID->"bd741071-db04-43f7-98ef-6e9e741872b6"]
}, Open ]],
Cell[BoxData[
......@@ -1459,9 +1656,8 @@ Cell[BoxData[
RowBox[{"PsiPar", "[",
RowBox[{"kProton", ",", "228.465", ",", "px"}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.8696279016627913`*^9, 3.869627911089171*^9}, {
3.869630713019814*^9, 3.8696307684281597`*^9},
3.869630947432231*^9},ExpressionUUID->"d6114d76-496a-4526-9235-\
2e2b26389c18"],
3.869630713019814*^9, 3.8696307684281597`*^9}, 3.869630947432231*^9},
CellLabel->"In[24]:=",ExpressionUUID->"d6114d76-496a-4526-9235-2e2b26389c18"],
Cell[CellGroupData[{
......@@ -1469,24 +1665,23 @@ Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"paral", "[", "px", "]"}], "]"}]], "Input",
CellChangeTimes->{{3.8696307762609797`*^9, 3.8696307859832897`*^9}},
CellLabel->"In[88]:=",ExpressionUUID->"ea14538f-b536-4fe7-a74f-f5e25d13093b"],
CellLabel->"In[25]:=",ExpressionUUID->"ea14538f-b536-4fe7-a74f-f5e25d13093b"],
Cell[BoxData[
TemplateBox[{
RowBox[{
RowBox[{"-", "109.13809733550005`"}], "-",
RowBox[{"1.0000000000000004`", " ", "px"}], "-",
RowBox[{"0.7563855522068201`", " ", "px", " ",
RowBox[{"0.027166391551979432`", "\[VeryThinSpace]", "-",
RowBox[{"0.0007851266342468511`", " ", "px"}], "+",
RowBox[{"0.000023643212121192028`", " ", "px", " ",
RowBox[{"ArcTan", "[",
RowBox[{"0.004377038058345917`", " ", "px"}], "]"}]}], "+",
RowBox[{"1.3930053245744016`", " ", "px", " ",
RowBox[{"0.00047618392705276363`", " ", "px", " ",
RowBox[{"ArcTan", "[",
RowBox[{"0.02187868155499205`", " ", "px"}], "]"}]}], "-",
RowBox[{"59.119288258590586`", " ",
RowBox[{"0.02187868155499205`", " ", "px"}], "]"}]}], "+",
RowBox[{"0.002178093701515095`", " ",
RowBox[{"Log", "[",
RowBox[{"2089.0926720349003`", "\[VeryThinSpace]", "+",
SuperscriptBox["px", "2"]}], "]"}]}], "+",
RowBox[{"59.119288258590586`", " ",
SuperscriptBox["px", "2"]}], "]"}]}], "-",
RowBox[{"0.002178093701515095`", " ",
RowBox[{"Log", "[",
RowBox[{"52196.256225000005`", "\[VeryThinSpace]", "+",
SuperscriptBox["px", "2"]}], "]"}]}]}],
......@@ -1558,10 +1753,10 @@ Cell[BoxData[
0], Re[$CellContext`px] > 0], SelectWithContents -> True, Selectable ->
False]},
"ConditionalExpression"]], "Print",
CellChangeTimes->{3.869630787819367*^9},
CellChangeTimes->{3.869630787819367*^9, 3.869815274817771*^9},
CellLabel->
"During evaluation of \
In[88]:=",ExpressionUUID->"5d9c5e6a-5231-4a6e-a4f7-21f99a3e5607"]
In[25]:=",ExpressionUUID->"ad5eddd5-5fad-4d49-aef0-c2ad504aea37"]
}, Open ]],
Cell[BoxData[
......@@ -1590,45 +1785,47 @@ Cell[BoxData[
RowBox[{
RowBox[{"paral", "[", "px", "]"}], ",",
RowBox[{"{",
RowBox[{"px", ",", "0", ",", "200"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8696309646911507`*^9, 3.869631022431979*^9}},
CellLabel->"In[97]:=",ExpressionUUID->"37c239c3-4ac2-401f-963b-6c070eeb2f73"],
RowBox[{"px", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.8696309646911507`*^9, 3.869631022431979*^9}, {
3.869815292808971*^9, 3.8698152980950613`*^9}, {3.8698153467792473`*^9,
3.869815347142014*^9}, {3.8698165268242598`*^9, 3.869816537101454*^9}},
CellLabel->"In[35]:=",ExpressionUUID->"37c239c3-4ac2-401f-963b-6c070eeb2f73"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwVzGk4FHgAx/GhwzEzj8hRUjRRyMpEQjQ/nhmGxrgmt3YYzB8ppKQsSqtx
lMqTrRyxQqko6aAQKzSxIvU8S5tYSU9tpOxUmmZ3X3yfz7vv6ojdvlHKFArF
87/+l1EgryxbNbB1l8NMz5ybALdVzQzjST1LPB/bq8oWoH1/3QVT0sZSNZns
XwEBuqwSxYtJP6v27PgzZzsBevIHuXPiUVZSkdOrY6YCPHTIanonnmb1Omqr
rlUTQHpyJHFKrGCFVtbW+0v94NGiwp8UayBTpKXTyvNDH91WbWGYEWJOFl95
4egLlwLO/RovU9AKX53LgQ+iNnylM+lWsNxil6vB84anWdQHXTcbaFUzKjVP
8NEw9NPeh3Z24F1vHFa7w8MWLfP6hRmO0JuzVPwq9YB4/lRpVSCQ0v/JPX+e
i91dr63rPV3QkZ5X/rPQDbnBi03kO9nYcnC8abqZA1H3wWgmcYXa0MrcXC4b
7SrLfeKCuFg75KOz/qMLmJqZRW+SPSA5euFwwxlnCD86WfB38sC53DpiEQdU
lD0wkB3jY6LOUd1w31bcOO4wMujrDW4jU1LLc0Rys5N3Kc8H3n+3NSDeAW3S
qtmcEF+MDZ+vH821Q4ybfUtMoB/CFOyhyje2KLnIvBkXK4D86bUFCtdNOPmx
5VBCynZMXUoNED2yxmTt3n0kyR/WVVJ7p6yN6HQ9debw4QB0xoxWXbFnQslr
eLwgMxChyhNG7QZWoDjfUipPDcKm/IvnQjZaQqIn8xw8GozUe/c3q5taICFY
1CHLCkFJhn62bqQ5xg7ZRLJOh8KuYUnh61JTaBeeHc6pCINy2tQYW2kdqpeY
p3YX70A1Z0LUXWyC9iRDzrrLP6Jxza7uamtjlBmVGzgJhKhwzv8SPs9AS9pX
CnksRK+s6P3nP1dj9TaVb2sCwuHQyVZrajFCY79Z3h9D4eAmH6l9nG2I/K7v
VkZhEThFsRwvPrYShXvexAqfR8D7YcHBpGcrkKazSoMRJEJR85ng9Wx9XDJb
JE1+KcL9exJtxtVlWPxJaXn7jkiM6j5Z1uahhxqr6+llryNxlCobj5vQgVlE
LV8eHwWLA0ufNJZoY8S9qWH72yjwe/qy3qYvxWDlgR9Ye6Lh+i6q1CJMC59v
+DgyZqORtM3f1V6oCcWdpJvZu8SY4ejekqQswTYrV07anBimUkmwXEcD3WEb
YuL2EHzQjGsL3E+HlojcLd1LkOEW2RWSSMcOUkF/nEIw6R/XKoyl45+kpQ02
aQS2nE0ZCaF0GEtkX+VHCHI7f9tYAzoyG9ryTxT99+MNDSeo0eGg4n3tZhPB
vg9SpcQSGrJpOcpTdwkMW+yVrp+mYUCzQ6DfShAgvvJi9jgNxMDmS3oHwVip
OzPtEA2/MJe5cB8RtBYYm1RF0/Ap5OWT4ecEi2zUu7yYNCB8+Vr6KEFXk5fw
qjkNedG++1ljBE6a4f00YxoYiZ0GF14RKGjlZgO6NPhkX4yKf08w8Lamdfc3
Kkryxm6fnyGIDxZNj8xRMXVCX31wluAbP3zGfZqKzOL8OlsZwc6+v4Trx6no
LX9AiflCkOXH7S8boUKv+rtv8TyBblA9VfspFRGXN1f1yQlyBDk6eb9TUXct
QaZQEDTPur5b0EPFv0WmIp0=
1:eJwVxXk01AkcAPChou01Vm2byBtHF2qZsfMk+c33S2QY5nD+yptyjZkxyTG5
NnKMSKYoMu2K2FDJuoq2NOx4xaaU5O3b0KFTm1IopabZ3T8+72MVEecv0qdQ
KH7/+X/rIu2pSpqGdb9uk2j6VClcXGhrESs5Cf2MGLuailLQpDbW2EiaoOLG
vKhgVSn00BPEBpIuGH0Vz+w6WAp/KgfZ78W3oZZm6fNrQilcd1FcmhA/hCuC
Oq9GKIW+IyMJ4+JJcGwqSb0/WgI+akPuc7EOVvF35alWlkA/1emb+UJjVFLa
c6OVR8C9yPOP07wVaNGZ7zjlUAwihzkqg2qJ12vs69ljh8DPVvRuuddqnA0/
3LBGWAitQxlJ151t0LLGoZpKL4DNS+2a5mduQHsFx46rnw/iz0crakk6mqqu
ZX5etB/iel782OTniAsXV936a7sCDm43WKPdxcRK7oBqf0M2RPbujWZInJCb
9veXONcs0BiaCmTbnHHAI/PD5FgGMJZklb3c44JVby6vb+XthbBpYgN3lyt+
zIkKy6ClQXXlNfPZQyykmXu/9ppOhvOHXUYG/RGX6EtVOfOSYM9lgl/h64Z6
7KQysVAOXX21UwWh7mgUzjVp6UgAqdcmtZTcgt7dD3oZZDycOMNok8V44LuJ
uAfWU7FwZFqdHZ/iiW+zXxsEZ8rgeX1SsiRxK/LabUtkUilc3Xr0eE6OF64L
rpsZJcWgxxt+XJTFxowD9JsBZSKguLXrVaV5Iz/q7iLQi4IDJrN+g/k+GMnj
hhvHRUD89sjuWQUHUxfUXT5qEg5j2cwoOOaL5EjWjvz9O2FZyc/DBdV+6DAs
ZdtZC6HO2C6tt5yLg8+Oud1ZHgqaRAvPded4uPSsollD3QaVllXmRCAfB3bn
JNN4IaBOn6NIBvg4rsk749YRBFYcwy+rQgSYWtjsqlkXCBdu2xbeGxIgRSv/
hdrvD8qer3RLoT+a/RZsdDNRACXylzFho/74tI7tcJ/Nh/Tvad9abwtAi4r4
tmVJXDhru6Bvz6MA3CDIdXEP8QWDGT1TzY5AHLPMc5pR+MBpesu+yheBqK5/
ZDbQxAbbiHquNjYIQ1IKDtcaesGI96XWoFdB+LB8HOaOe8LgqZ9+AHkwTgoF
MpmNB3w8L3C1ngrGO1+MzEQv3UH3e2Jb3u4QHJnkRbv3uAGHvtUz/X0INuup
k1uqEHqFDlKZnMTiJ54tNA+ApZGSjookEkXrrW8pNwPskFRTB1JInAozUGkd
AT4kftfKTCcxusjG9oUVwOoDs3PaXBJnOO3MYR0Lslq7lMVlJDobbzKFKyxw
MeQ3t10iUb2zpUHrxIK8xQX64x0k3svyze6yZ8GdJd2BZp0k9qxsfKpYywKJ
OfPTvm4S7a2YgcuWs0DFWOHOvkFiFSdGHfCegJnQR3eHR0l84FA2xblAAIab
rqU+JHHL11BvpwYCCqP9U2GMRF1av+WqGgKsE66a1zwj8Z+zztz5pQQI8s6I
Yt+Q6Dfx/OBTOQEnCscunnxLoudQ563HMgLGi80WDU6RGJsSpHwSSUBWubLR
aZbEgSFuwkQAATerrlGkn0jcyJsrm+EQYFL31b/8M4k+Rh8cdVsIiDi3sbZf
S6LMTeyx2JWAxub4WZ2OxM5ked9KJgH/Ago4JY4=
"]]},
Annotation[#, "Charting`Private`Tag$685471#1"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$124026#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -1660,7 +1857,7 @@ QaZQEDTPur5b0EPFv0WmIp0=
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 200}, {0., 81.12437652072705}},
PlotRange->{{0, 100}, {0., 0.020156672528549236`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
......@@ -1673,8 +1870,9 @@ QaZQEDTPur5b0EPFv0WmIp0=
3.8686736607060003`*^9}, 3.868675912288126*^9, {3.86867613698822*^9,
3.868676151839303*^9}, 3.8686773890716133`*^9, 3.869630809858492*^9,
3.8696308592115803`*^9, 3.8696309557226753`*^9, {3.8696309956820498`*^9,
3.869631024177164*^9}},
CellLabel->"Out[97]=",ExpressionUUID->"030448a6-0fbd-4cf2-a9d9-83eed4c20ddd"]
3.869631024177164*^9}, {3.869815285649044*^9, 3.8698152995861893`*^9},
3.8698153488166027`*^9, {3.869816532210001*^9, 3.869816539061536*^9}},
CellLabel->"Out[35]=",ExpressionUUID->"e052c0db-eb44-4443-8d7c-14a4d951c77f"]
}, Open ]],
Cell[BoxData[
......@@ -1702,10 +1900,7 @@ Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
FractionBox[
RowBox[{"4", " ", "k", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"px", "+", "py"}], ")"}], "2"], " ", "q", " ",
RowBox[{"4", " ", "k", " ", "q", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"k", "+", "q"}], ")"}], "3"]}],
......@@ -1731,106 +1926,141 @@ Cell[BoxData[
RowBox[{"k", ">", "0"}], " ", "&&", " ",
RowBox[{"q", ">", "0"}]}]}]}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.8696310639392776`*^9, 3.8696310748684053`*^9},
3.86963113563931*^9},
CellLabel->"In[99]:=",ExpressionUUID->"b86a339e-b949-4516-8eb5-8294678723fc"],
3.86963113563931*^9, 3.869815311381949*^9},
CellLabel->"In[29]:=",ExpressionUUID->"b86a339e-b949-4516-8eb5-8294678723fc"],
Cell[BoxData[
TemplateBox[{
FractionBox[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{"k", "-", "q"}], ")"}], " ",
RowBox[{
FractionBox["1",
RowBox[{
SuperscriptBox["k", "2"], " ", "\[Pi]", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["py", "2"]}], ")"}], " ",
SuperscriptBox["q", "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"\[Pi]", " ",
SuperscriptBox["py", "2"], " ",
SuperscriptBox["q", "2"], " ",
RowBox[{"(",
SuperscriptBox["k", "2"], "-",
SuperscriptBox["q", "2"]}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}]],
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"k", "+", "q"}], ")"}], "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"5", " ",
SuperscriptBox["k", "4"], " ", "\[Pi]", " ",
SuperscriptBox["q", "3"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}], "+",
RowBox[{"2", " ", "k", " ", "py", " ",
SuperscriptBox["q", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}], "-",
RowBox[{"\[Pi]", " ",
SuperscriptBox["py", "2"], " ",
SuperscriptBox["q", "5"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}], "-",
RowBox[{
SuperscriptBox["k", "2"], " ", "\[Pi]", " ",
SuperscriptBox["q", "3"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}], "-",
RowBox[{"2", " ",
SuperscriptBox["k", "3"], " ", "q", " ",
RowBox[{"(",
RowBox[{"-", "5"}], " ",
SuperscriptBox["py", "2"]}], "+",
SuperscriptBox["q", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["k", "7"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-", "py"}], " ", "q"}], "+",
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{"-", "2"}], " ", "py", " ", "q"}], "+",
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["k", "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "py", " ", "q"}], "+",
RowBox[{"\[Pi]", " ",
RowBox[{"(",
SuperscriptBox["q", "2"]}], ")"}]}]}], ")"}]}], "-",
RowBox[{
SuperscriptBox["k", "3"], " ", "py", " ",
SuperscriptBox["q", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["q", "3"]}], "+",
RowBox[{"5", " ", "\[Pi]", " ", "py", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}]}], ")"}]}], "-",
RowBox[{"2", " ", "k", " ", "py", " ", "q", " ",
RowBox[{"(",
SuperscriptBox["q", "2"]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["k", "5"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"\[Pi]", " ", "py", " ",
RowBox[{"(",
RowBox[{"-", "2"}], " ", "py", " ",
RowBox[{"(",
RowBox[{"py", "-", "q"}], ")"}], " ", "q", " ",
RowBox[{"(",
RowBox[{"py", "+", "q"}], ")"}]}], "+",
RowBox[{"\[Pi]", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}], "-",
RowBox[{"q", " ",
RowBox[{"(",
SuperscriptBox["py", "2"], "-",
RowBox[{"5", " ",
SuperscriptBox["q", "2"]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["py", "2"]}], "+",
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}]}], ")"}]}], "+",
RowBox[{
SuperscriptBox["k", "2"], " ",
RowBox[{"(",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["py", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}], "2"]}], "+",
RowBox[{"2", " ", "py", " ", "q", " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["py", "2"]}], "+",
SuperscriptBox["q", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}],
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "+",
SuperscriptBox["py", "2"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["py", "2"], "+",
SuperscriptBox["q", "2"]}], ")"}]}]], "+",
RowBox[{"2", " ", "q", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["k", "2"]}], "+",
SuperscriptBox["q", "2"]}], ")"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["py", "k"], "]"}]}], "-",
RowBox[{"2", " ", "k", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "+",
RowBox[{"3", " ",
SuperscriptBox["q", "2"]}]}], ")"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["py", "q"], "]"}]}]}],
RowBox[{"\[Pi]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"k", "-", "q"}], ")"}], "3"]}]],
RowBox[{"-", "5"}], " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["q", "3"]}], "+",
SuperscriptBox["q", "5"]}], ")"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["py", "k"], "]"}]}], "-",
RowBox[{
SuperscriptBox["k", "3"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox["k", "2"], "-",
RowBox[{"5", " ",
SuperscriptBox["q", "2"]}]}], ")"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["py", "q"], "]"}]}]}], ")"}]}]}], ")"}]}]}],
InterpretationBox[
DynamicModuleBox[{Typeset`open = False},
TemplateBox[{"Expression",
......@@ -1928,8 +2158,9 @@ Cell[BoxData[
And[$CellContext`k + Im[$CellContext`py] != 0, Re[$CellContext`py] > 0]],
SelectWithContents -> True, Selectable -> False]},
"ConditionalExpression"]], "Output",
CellChangeTimes->{3.869631098566168*^9, 3.8696311495711813`*^9},
CellLabel->"Out[99]=",ExpressionUUID->"e2a7570f-7b25-4460-9f7b-a0b86b653c41"]
CellChangeTimes->{3.869631098566168*^9, 3.8696311495711813`*^9,
3.8698129177682133`*^9, 3.8698153302243233`*^9},
CellLabel->"Out[29]=",ExpressionUUID->"31429318-32ae-4391-9ae8-abf4945da8e9"]
}, Open ]],
Cell[BoxData[
......@@ -1940,8 +2171,7 @@ Cell[BoxData[
RowBox[{"kProton", ",", "228.465", ",", "py"}], "]"}], "]"}]}]], "Input",
CellChangeTimes->{{3.869631129704208*^9, 3.869631132293288*^9}, {
3.869631164376565*^9, 3.8696311890788593`*^9}},
CellLabel->
"In[101]:=",ExpressionUUID->"804a318d-428e-46d0-af1d-4cf0f2a8856f"],
CellLabel->"In[30]:=",ExpressionUUID->"804a318d-428e-46d0-af1d-4cf0f2a8856f"],
Cell[CellGroupData[{
......@@ -1949,8 +2179,7 @@ Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"perp", "[", "py", "]"}], "]"}]], "Input",
CellChangeTimes->{{3.869631185940134*^9, 3.869631194927557*^9}},
CellLabel->
"In[102]:=",ExpressionUUID->"3c17de4c-76db-4de9-9355-68bece89103c"],
CellLabel->"In[31]:=",ExpressionUUID->"3c17de4c-76db-4de9-9355-68bece89103c"],
Cell[BoxData[
TemplateBox[{
......@@ -1961,30 +2190,31 @@ Cell[BoxData[
SuperscriptBox["py", "2"]}], "+",
SuperscriptBox["py", "4"]}]],
RowBox[{"(",
RowBox[{"1.090428163873036`*^8", "+",
RowBox[{"2.962299845908087`*^6", " ", "py"}], "+",
RowBox[{"54285.34889703492`", " ",
SuperscriptBox["py", "2"]}], "+",
RowBox[{"109.13809733550004`", " ",
RowBox[{"85612.41941896101`", "\[VeryThinSpace]", "-",
RowBox[{"1365.5989463371648`", " ", "py"}], "+",
RowBox[{"42.62087326844503`", " ",
SuperscriptBox["py", "2"]}], "-",
RowBox[{"0.027166391551979432`", " ",
SuperscriptBox["py", "3"]}], "+",
RowBox[{"1.0000000000000002`", " ",
RowBox[{"0.0007851266342468513`", " ",
SuperscriptBox["py", "4"]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"8.247841088729748`*^7", "+",
RowBox[{"41060.65360222363`", " ",
SuperscriptBox["py", "2"]}], "+",
RowBox[{"0.75638555220682`", " ",
RowBox[{
RowBox[{"-", "2578.122438137212`"}], "-",
RowBox[{"1.283480019045514`", " ",
SuperscriptBox["py", "2"]}], "-",
RowBox[{"0.000023643212121192028`", " ",
SuperscriptBox["py", "4"]}]}], ")"}], " ",
RowBox[{"ArcTan", "[",
RowBox[{"0.004377038058345917`", " ", "py"}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.5189722383410266`*^8"}], "-",
RowBox[{"75619.78005994874`", " ",
RowBox[{"-", "51924.436524199664`"}], "-",
RowBox[{"25.849810619219497`", " ",
SuperscriptBox["py", "2"]}], "-",
RowBox[{"1.3930053245744014`", " ",
RowBox[{"0.0004761839270527637`", " ",
SuperscriptBox["py", "4"]}]}], ")"}], " ",
RowBox[{"ArcTan", "[",
RowBox[{"0.02187868155499205`", " ", "py"}], "]"}]}]}], ")"}]}],
......@@ -2057,10 +2287,10 @@ Cell[BoxData[
0], Re[$CellContext`py] > 0], SelectWithContents -> True, Selectable ->
False]},
"ConditionalExpression"]], "Print",
CellChangeTimes->{3.869631197009533*^9},
CellChangeTimes->{3.869631197009533*^9, 3.86981533848575*^9},
CellLabel->
"During evaluation of \
In[102]:=",ExpressionUUID->"a7a3cfc5-6831-43bc-a688-44c0eec53d7e"]
In[31]:=",ExpressionUUID->"adbc5979-c07e-4cb9-9aa5-b7ff43f4bc1a"]
}, Open ]],
Cell[CellGroupData[{
......@@ -2068,83 +2298,94 @@ Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"perp", "[", "py", "]"}], ",",
RowBox[{
RowBox[{"perp", "[", "py", "]"}], "py"}], ",",
RowBox[{"{",
RowBox[{"py", ",", "0", ",", "300"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.869631214201191*^9, 3.869631226589404*^9}},
CellLabel->
"In[104]:=",ExpressionUUID->"57f1c25e-794f-4adf-bd78-75639085813a"],
CellChangeTimes->{{3.869631214201191*^9, 3.869631226589404*^9}, {
3.869812855793929*^9, 3.869812867982595*^9}},
CellLabel->"In[32]:=",ExpressionUUID->"57f1c25e-794f-4adf-bd78-75639085813a"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwd1AkwVf0bwHGREpIlecuS7EuuLUXkeZKs5SVRlhYlStYbKkWL5RJu4aZE
kSRkS0lRJBGSVK8oSxSV7R77Fvn/+p+ZM2c+M9+Z35x5znPWHfLZdYSTg4Oj
hNx/nw/t5yaG8j4bcvz/Goaomv0tNswS8DxdN7ewQMGVLxfPSDFfw2jMjh9/
zVa6z30p5z3EZG3L/mtWD+vtYmYLFOl5aP315rSQq+f8OmBifbD3H+JhtUe0
4Jxu+OylbzFPXMWXHb85pQdWu7kV/SZO7Ls5ORX7E7YEv0yYIT72Ot6x+Fw/
FF8Ta5skNrjLKKf7DYFKombAGHHkVkOh65rDoPRflxVF7FeoWxWYMwJjmbO7
+4kd12oH2MmOAX+7g38PsTFTTXFDyjgYbPqa1EFMm1f8LCw6CcnDfkXNxGKe
MtEjsVOgqcVxv4GYo01iS9OSGVC8es73JXG/uRiVf24WOm4NUY+JPz4Ruh07
/Rvst1ivyiF+pshv6+k3D4HbHjclE2cmLuG27P8DjT2b+GOIay+eb2NpcuBb
janioL/vUxq8YTGbA5/HSpe5Ez8YCYo9kbMIp7UGeGyJFZRP/fjmxolD6Ukx
BsQ3DgbALlkutJYL0pYjXnGdfr3yKxfOb/7Zv4w47J3PiEbKYuSXNksb+kPB
zBIvi7S93BijJ7T1HbG3ocedFaJLMDTuVWk+8Z48Vzt27FLMldSj3Igbelzy
91nw4O4Kk3AgRokDS98uWYZph1tzRIlVoh2e3j/Hiz/jGpxK5ym49dJeWNyA
D48Ozr6MJBaZtT1+aZoPeRq3++0mnjtqJXnMbznuOx7p9H2OzCfNMrBVTQCF
4j6fyCT+0WL2zrRfAIfZs9FuxEfv3MYETUG07NQO6PhNgQxID9VfFsSwrSjL
Im7/ciuJky2IivZLo02JbYRTRv1yhNDMnWWUMUsBf/6a1GweYbw4M+Wzk7jG
PMmy200YhzfuEh6bId/jhcQMa1kRXN4tQdcmHpcQtYm8IIKOUV3LG6cpKHiS
MF/xVQRbVxu1uRLLDV+xV09ZifkxsbURUxR0Rq/gcp9diZwFMa+FiJMUmQW3
9opi0+Tux9cnKRA4EM0jILoKI3+HytyYoGDqbXjpYKwYLnTOBBwbo8AVeHWF
xsVwrc6y7dWjFHwoZBbrOP6DwpuXlYgT5ydcKwxRWI2fa5p0ngyT3iE7U7Bi
DY4ucIfnDZG+Xk1OR14cF1kL27QPkvkYFN12iBbHd3rSStzE4mvLUtL3SKCn
ytF8437S9zTEbxiWRCywVjz9g/T2NoIO9lL4PP2nXWAvOe91c2zwMymU8tzJ
6dVDQVROZ2RN5FqctTKLM/lGgbTuKci9Io3fBiPLsjooaPHdHFJeJY3nSr/z
+rZTwMyee9Y0KY0hYs72Gm1k3msubJ5wXoeRlFNGcivp56N0DJVlMKB0d5D4
R9Jv3OFv7SyDXTxLlma/J/voI/Dw0GUZ3NNoska9iYKirngNxoQMZlFuN+Xe
kr4qWbWpUhbv27SmPqyhYPvcPo9v47JYaerUx1VNztsgnT2uKIdsk/PWO6oo
8MjMUFjNlENVUwHT6grSR+WtO+Qoj2dVNsXYPyF9pc9B/1h5zNR0PuX2mJw3
q5ka8UIeVR+pK3g/Iu/r+VjivoICBj96l+JaSHqrCrHxUQW0m1rcNniPgocr
3y+PiFbC54de+R26SvbdT7xHp0wJ+RKfKa5MoOBV45HS3n4ljH13QqP8CgWf
Imfdtlso47QlS+Z3NAXTc7IvFi9TQasm1pDYRQoMewPpoRGqeDaAVtnqSYGp
UaWZ9mNVjBjw117uQYF1Kt/a772qSMtyyNVzp8DFIe2N0fb1uGRyT0aQC9n3
t3VynIvVcEe/sH2KHQX1xRIt5y/Q0GyTdbizAZm/sHuexgMaXtt1WExQj4I2
nwehXV00fLTq1aUyHQoGlU00ENUxe2CD0CyN/E9u+UQt/FHHcZoKQ3Qd2fdt
3ZJQroHfr73rrOaiwFd1Q9NzfS3kfih+QaiKDZ2bTBckbbXw30suIS3lbNhp
7EgL8dDC3gCuhqulbFDZdz7GMEkL1VKow78fsKGX2WBWMamFp9JtOjzS2OA4
6lr54oE2Vp0c5Ow8w4ZtT68WVSnq4J+iBIaWGhuKqrO6ZUEHj5iILuNVYoP0
hzLBMHsddO6gu32RYcOf/m5v43AdZGeOvjnyDxueSNBUq7/p4Eq/kF+KXGxY
f77mTs3NjRgfpt6yv2UIVplOsepEdFG8gu5TEzQEo7WW03Jquhg8ue74Nv8h
eGuR5nTeRBerTVU5nnoNQZiVucym07pYOv5EknmQ9HbJBRmdusjcIG7YvZ30
rlB/LlsPy+6Mz2uvIP1FxoIO6OPYnLl1c8ogjD0X80j3MMSttql1fpkDEH5A
6p9rKkY4IqRfwMztg9zYA6HbDmzHWflPyoFuP0H8tLPndJgZUuZnG+eVe+Fe
dtvbCH9LTF2r3pOp+B0aGVElZ+5YofuXnTz1Et1wqbmdX77RGs3i9ta6lXRC
U/WHs4LbdiFXc/tHGqsNevi7NApabPFKg5vyvxdbgRFIu73Zxg5jCrdvjRpp
hqmNLLvT/fY41ffJ8FfgR+D71GJmcHYvUr94OaT+fQ/515ynB0YdMCGmyzuR
7x1IFU4PWEU5YV2OCss8+Q1IDjQn31q8D2+IWVPSVbXQf7b+8u3U/fhSReyY
GU8N5AVaubBWH8QBacZkaU4VqGHr3sbmg3jcP6zatLgSRIq9Rrtvu+CI/ITP
1rsVsLVMtv/4wUN4wGXou374M6gsNFukK34Yu9dZtNbUPoV7NqdLO3oP4xO7
ups9siXQHFr/fibdFUe/hVaojDwCDxfFaMrnCGYt8Q2MfV8ENrSxw4p6bqid
sbVdcKoQzsV8vdE87oaXpXz7vD/lw8rElhP7XrhjrnemNt+n+zCsMZzjFHIU
d+0AgT7bbJAqO7koRfcYcrCbTnFI3oOHw7yzxZweqO+eNqwzngGXS8qtTSo8
cH5Y1DxR7g58UA4xL4w+ji1hNh8vHLwNzmr7065YeGKpv802m7pU0JXOW/WQ
2wtL5U+MmSrehDPlS9ULmrzwspXD0/H4G8DNvnh3HdMbR/LHAxXcrsNk7bJy
LycfbGd2SN4xToSUuoXZYGFftFzT8uC4CwtcpnhNzvv64voTc2ahtfHweVb8
kM8nXzzBmqvk3xgHEyZb8pJ0/ND4Q1l9SeVlKOVdxdMb74ePjSbG+Q/EglbG
uLbktB+K7tW84sQVDVYR35lX7OlIO3Wk7/uiKDC1YO7YuJeOeXEya+xmIgEF
9HjbHehosl76ft1wJGgmMsMV99ExK7H357OvkbAyU+9s+WE6yqT/SX/zPBLa
qi8fG/Slo3cu+7/IoEg4ym1gbBZNx4HfkjMnJxngUvdjETuGjqw/15x2sRng
GBtXkcCkY/LgCKX+gwE7RH9u/hpHxxdf72WNNzNAXT5eM/A6HXlrRrUyihkw
afxLKuMuHbulhk7cCGAAxZPQbn6PjheqbHbe82LAr4YtN6gsOhrlehmVHGHA
590Jovq5dDxweG9Qlx0Dnrka8n8ooqPPpZnZPRsZUKzUV3fyER0tB0VigmkM
yB9MYEg+puNokSAtU4EBaf59nMee0tHVyTaVQ4wBSbqsFwJldLzaMHBcawUD
4ucMQx49o6NINZ+x+1IGXHrRp+9YTsf/lPYrpC5EQGgYa2ahgo72IUyhL1MR
8D8X86yZ
1:eJwVlHk41PsXx5GuLZKUFvu+3BjLjLF9z8lepCiyZ8uWYobs8x2h5IqytFCh
ZEsU0qYs7RSVFtxU3EgLkqyD/Ob3x+f5PK/neX/Oc855f85R8At32svHw8PT
xT3/v+tdFqZGq3sJXcFNumalBkT6Y+9ux6ybkB7Unb3+swSc+Dc5QTbrCQRW
PinteasIeYN5HfxZ3XDrVJHiyUY9OPXt/PRM5jA4Cf42o6SZg1SYYsavzBmw
+deNflzWCXZXBziPZQrgFH+1t6yDLzwf9K3x2iqIru//8dn0zBdQeo9Ax19C
OGy6+sYBGz/QzHC7XcUWRr9hFbt0M39YCHaQCWGIouDJL/wq8nvBUeLcBOPy
KuyOkQnVbw6GmY7Dd0YypXCocTDoS2A4BIAwfdWkFGZNCrrrvg6HrmtZDVT3
dfjr0u8kO7kIqMk9fY1UXY+pj1sd3dMjIMCtsky8eQP2fbaJUXZlQNfg8xyD
cRnUExseuNLPBHRxFHdzkcWh6cg37SsjoebJ20zWXVlkzF0ciyciIf3yx6OP
j8phA6vtR05BJMjTY+HKCXlMOTMQWbUtCroX06mEhiJuKOMpfl50ELJo9lE7
PBVx6EerNe3pQbAMF6v3O66Iav7MG4bjB6GuP4eSNqWIpeHKzGUQDVkPzmq9
bFXC1OhmobbuaLBKr1bwc1fBMSkXWsB0DCy0hvtEZarggdr/Pseui4U6jm7R
kRYV3PhBsFzLOBbkw25IV6mqIuVNoeT+xFhYcGiWmpxQxS2j+tR9C7FQL/lK
9EiGOjqI6lrWf4+Du4yNg9RGdXz2quoTz/J4eNi5987Qd3XcGaDDvyQbD++O
cgKttmrgwBY/ZzGneJhdUGrhF9LEDwnmCinX44EYimamHNFCpkOC29p9CWBj
3mqrf0ML91rS759OSoAdRSJyn4e08Ev7haQXJxPA1634mbnV39joWhbj35wA
qR1tynz8mxDFTpWqrUyE9gbp7qRD2ihy/fbKqAuJ0CURVE2p1carOVRIq0uE
9+G1Kf392ljyKui6y4NEGNGwpiDqoGyGwpjWYCKsLAxPX/qjgyuKnVbfUWTB
scW+q7ulKDhZUz54W5cF4n/zndXRoeD6ff6zsciC9en2jE/eFDzX4bCX5sUC
TYsBGWiiYEut4JNbuSyoYfwlJPWOgtmf7srcK2aBfrHW5NgoBX8eDKhLqWaB
6eLB9kIZXfR4s1vC7TELtt0UjvmTqIuFdfISOlMs6BrS8XuXp4uty7WatvOQ
4CLpvK3mii7any8qooqQ4M0oUvLu00VHo7pEJ3kSIrQMXt4z0UOVP25j/9qQ
8NHQZklmpx5u/jRnwetIwjZLd20yVA+Zhbu+/XIjQdMr6RiRr4dNjLAU/X0k
DGU9t22e1sOXd+OyNmeQsOvspxg5MX2Muqez8CCHhPvlE2VsFX301dSMXl1A
QnHLuuW4Sx+Vfmt931BBgvtEQGtLrT6+CXWyedtKwtM/MePybfq4tR0z256Q
YCiSIXeoXx9NR22zMztIkFSuZW1eaYCTinPqR3pISKY8vHJB1QA50W2BjR9I
+GXa/Z6XMMAPLnw3W/8jodN50eh+mAGKvq7vNx8hwdRPPEQx1QBhstSvaZyE
qgNKZ5LPGmCV8ITNiikSjqZtmTZvN0CRbOkM+UUSZnI9VUoGDJDRUnV8mIcN
gcXhu5bNGeCbvknLZH42WNw+WfdAjYop7w6vMBBhQ92jigEloOKSyfkHdmJs
kO9qFE91oeJy3RUH6avYcPxjJwzup6LqzkImZzUb/nwfOGB5mIqdGZ9Ec9ay
IWxm8vylc1Q0C9h4ZmkdG94vE+zgv07FNE9PP4uNbLglra316D8qBhV1zjnI
sUFVY7O7CoeK0jNtQVIKbDhJ3ZV+eBUNs+29dt9UZAO/edCtIXUaRsdYrtNR
ZgPTIX7YCmkonD09R6qwod89c23Zbhru9im1K1dlw/agYqu/wml4uM3Us0KN
DU2R9VGBR2hoj37xyeps+Dvpccnj8zTUMIuapGqwoeBYb5dqAw0jG9LXPeCy
UP4Ib9pzGjacYhhoarIhtnSJMvyZhiWWdSf3cflLrYSPzTwNV2xIT0/jsnOT
yvFyCUMsH/nmSXL5YTu9SUDTED/lkp47uKzXbTcatNkQdZllbxa58S989pZ+
6mqI13ijV6VxWXycYaceYYg6/je8R7j5kQup8UfTDFFgfFBAm8ujgmcqvxYa
otoLPVd7bj2ea6p6bG8YovWx1AIbbr3tCk0ClR2GaFfHWC/P7YeR9iua0JAh
GgZbyr1TYkOF8eDekAVDfC4+NxXC7edam5m8ttV07B8xG34vz4aJp3azypvo
qKDJkf6L60fH1mKPJGs69pSfUBKS4b5/Ptn0fg8de0Ve7x7awIZUhy2KhnF0
vNetvPYs11+fl+cP5+TQ8dx4/B1Nrv8mThNfR6voSNXyKM7j/o8J57NXL32k
o9q+knOzomzo7P4pwTNLR6/R4aDfwmyodLOM9lhlhCXNBz62CXDjeY2aSlga
Yc+sop4ILzefAGhnVxrhma17ZL79IqHiS+6m9/eNkH1u+c/2URJSg7+eoPUZ
YX/NGs2MbyQYh2XvHhUzRsmxP3oV/Vx95OdB9yhjPP0q+I0Xd/5Spwxtb2Qa
o9WLGbrpUxL2xByrWlVujOYWxhXz90lYm0BlPu01Rul7b8Zkb3H1yWlLVDDB
Us08zlIxCT78fX7ZriaYq6966id3H5gcoTweYZigfEdUy/08EibSe4+VXDJB
3vkTHMmjXH221oZVwqY4nLSUwNjPnd/iFwYjb0xxQ8X0d3t9EtYpKp+xGTNF
rQV+ar4WCb9LYucvCpjh2Z78ex1KJFwuV7jvZmyGO78Zl42v5uqvRm5/UmSG
lwNE2Cq/WfD7nlToxVAC2+IU5dK4+3XWkZJvn0ygzgXTFatLWbAwZPt0Op/A
mGmeycxzLOAXi1e1ayNQunMp2TGDBWu9+/77rQbo6GtHXxPMAvqfYg+rIcDS
3qv1d2RZAHInVSevIm6r3+DUfigRDu+RXXda0xw7e+M8XdQT4ErmnhSLPVbo
ndMRt3oiBjbGeYbNptriSPX+xfJHUVBe+b7jSJQd6jbwaGbyMaEzLf1mQokD
RpF0e/XKA/DP274VKp07cE3jNoVOu1B4+agrUdzCCUNmIjN6TgfC4Ip+ytXu
nSjm4KFOaPhDWrT2BWNHZ7wmN6VkxfCBGVqec9x3FzxpbrDYMuQBIu+6bU0T
XTEgL7T/7pPdUHPac/bHhBt+qbslO3lkF8hem/3hkO6BSlumKpPTHUHmx9uz
hfxeWGQa7CPm6gDfE9uPXyjyxpReyddP/myB6mgH37z1PnhUYz1/nJ81bMIe
1863PkgVuCdclmwBqxv2Twxc8MVWc4GWvh6EzY1K3/f5+KFmQeb8wwgzaL1m
y0vf6I+Wdy9fCek2gnLHuDsfhvxxqdYubDieBm9T2l/NXQxA5ZmeyunH+hDq
q5bxM3wv3qQsXnoOuuCo/dtfzSgQj4n6h3400gb2sU8FbycDcZJnh2vCQ02Q
PNUd6dUShK/bazfyJavBOGX8sgcZjP6zpZGMPmWQbYzhPUcPQWvOra+ipxSh
flyY08AXis6xkQfp++Xh+M2mHdbNoejQpqnqsFMGujTILdcy9mEAFibLzK0H
z03exSe2hmGVy8AVVWMpoMtXr61fvh+tLMS6JXolIaFJQOfqy/0YNJWpF5Mj
AcvHkksVsg5gu236y+I6cZh+KtS03yMcPT7WDhzqFIVzbUsclkQEhh2yko6o
FwbfGWHrpIgI1PeND6IoCEIvZ6Nf+LsItLu4uXxN+XKYsjarzqcyUDv4ZcGL
M8vgjvBawaEcBq5zmxWWfcYLepcm9WVmGVicf/H4YxEecDjyOeuECxM9rPK3
n9i0SNhszbKnuTLRuYAvABUWCRQzEu5zY6LgAz7PaclFQvdU1mE1LyY+TTH/
HrmwQEiWGSU2+TPRa+qoesOzBeL9o+MhIxFMFFoKid22b4EIXm5qaZvBxJ2K
icotNfOEb9sX3rFjTEwqy7qnWjJPuGdmN+dmMTE6MaE35/Q8Yb9m2PhTNhOt
dxBZCUnzhI5Kjm70GSbO3NxekOU0T0xbfpW9VMrEraWWt2/NcIifgrl9W8qZ
+FODUI0e4RBfn5sV/Kxgoouz5Vf6AIfo3ZW7xuQKE1l0M5/Odg5xN4BY0VXH
xOygslf0Qg7RoP6tLeY6E023t5yRz+UQNSO5aTI3mLgn8nyh6FEOURz1jS/k
NhNVKgo8ZhgcIp+e1yLWyI2XbyI6GcghchYI8vpdJhZIX5iY8uAQ/7R8M3Fv
YqJZ7kqhxR0cIiU1b26pmYmBJh3bhKw5xP8AUvjwbw==
"]]},
Annotation[#, "Charting`Private`Tag$708369#1"]& ]}, {}},
Annotation[#, "Charting`Private`Tag$122611#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
......@@ -2176,7 +2417,7 @@ yB9MYEg+puNokSAtU4EBaf59nMee0tHVyTaVQ4wBSbqsFwJldLzaMHBcawUD
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{0, 300}, {0., 1.}},
PlotRange->{{0, 300}, {0., 0.007608918611885073}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
......@@ -2184,9 +2425,10 @@ yB9MYEg+puNokSAtU4EBaf59nMee0tHVyTaVQ4wBSbqsFwJldLzaMHBcawUD
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{{3.869631219529129*^9, 3.869631228317721*^9}},
CellLabel->
"Out[104]=",ExpressionUUID->"6204eb92-3b0b-4108-b9ed-f12beecf3760"]
CellChangeTimes->{{3.869631219529129*^9, 3.869631228317721*^9}, {
3.869812862920465*^9, 3.869812869354279*^9}, 3.869812953045562*^9,
3.86981534062702*^9},
CellLabel->"Out[32]=",ExpressionUUID->"92946697-5ec6-4805-ba6b-0310b33ef2d5"]
}, Open ]]
},
WindowSize->{1389.75, 768.75},
......@@ -2207,89 +2449,93 @@ CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1512, 28, 109, "Input",ExpressionUUID->"15f55500-85b0-49bd-b8c0-7ea00f0e2245"],
Cell[558, 20, 1511, 28, 109, "Input",ExpressionUUID->"15f55500-85b0-49bd-b8c0-7ea00f0e2245"],
Cell[CellGroupData[{
Cell[2094, 52, 811, 21, 59, "Input",ExpressionUUID->"f1c72a75-7ee7-46f9-a8f7-4cd49fd00c7a"],
Cell[2908, 75, 574, 11, 37, "Output",ExpressionUUID->"242a245a-39df-462d-8951-540e89edf802"]
}, Open ]],
Cell[3497, 89, 1047, 24, 57, "Input",ExpressionUUID->"40ae1148-daf9-4e15-8762-688f07195dad"],
Cell[4547, 115, 1121, 27, 57, "Input",ExpressionUUID->"7a2bcc4d-5447-48d1-ac24-841589704be5"],
Cell[CellGroupData[{
Cell[2095, 52, 812, 21, 59, "Input",ExpressionUUID->"f1c72a75-7ee7-46f9-a8f7-4cd49fd00c7a"],
Cell[2910, 75, 548, 10, 37, "Output",ExpressionUUID->"787a36b5-5ebb-450b-97f8-6a66d36d74d3"]
Cell[5693, 146, 260, 5, 33, "Input",ExpressionUUID->"b71993bf-44b9-4b50-90b9-025a29b6f35d"],
Cell[5956, 153, 465, 12, 54, "Output",ExpressionUUID->"c3aed629-a6fc-486e-8683-c6b9ccef00bb"]
}, Open ]],
Cell[3473, 88, 1048, 24, 57, "Input",ExpressionUUID->"40ae1148-daf9-4e15-8762-688f07195dad"],
Cell[4524, 114, 1122, 27, 57, "Input",ExpressionUUID->"7a2bcc4d-5447-48d1-ac24-841589704be5"],
Cell[6436, 168, 942, 18, 59, "Input",ExpressionUUID->"ed029352-16a6-45e1-b42a-177020211247"],
Cell[CellGroupData[{
Cell[5671, 145, 261, 5, 33, "Input",ExpressionUUID->"b71993bf-44b9-4b50-90b9-025a29b6f35d"],
Cell[5935, 152, 440, 11, 54, "Output",ExpressionUUID->"36448c3c-ed58-4b87-bca0-c6f7044cd75e"]
Cell[7403, 190, 273, 5, 57, "Input",ExpressionUUID->"1508f981-ab16-4888-9c9d-70043439577a"],
Cell[7679, 197, 696, 21, 74, "Output",ExpressionUUID->"e4db3020-f165-46b8-bef6-9b39b4225155"]
}, Open ]],
Cell[6390, 166, 943, 18, 59, "Input",ExpressionUUID->"ed029352-16a6-45e1-b42a-177020211247"],
Cell[CellGroupData[{
Cell[7358, 188, 274, 5, 57, "Input",ExpressionUUID->"1508f981-ab16-4888-9c9d-70043439577a"],
Cell[7635, 195, 672, 20, 74, "Output",ExpressionUUID->"d7839f75-9aed-4efb-95bf-f0aa05801eb8"]
Cell[8412, 223, 2346, 58, 114, "Input",ExpressionUUID->"cd919aeb-3101-4893-8360-ca90a34b5f8a"],
Cell[10761, 283, 752, 11, 37, "Output",ExpressionUUID->"86a70908-b758-4cb1-8f2d-c9ea5b1964b6"]
}, Open ]],
Cell[CellGroupData[{
Cell[8344, 220, 2347, 58, 114, "Input",ExpressionUUID->"cd919aeb-3101-4893-8360-ca90a34b5f8a"],
Cell[10694, 280, 729, 11, 37, "Output",ExpressionUUID->"b0e60b84-1f1f-4268-863d-06c8900b3b0b"]
Cell[11550, 299, 2475, 66, 155, "Input",ExpressionUUID->"d1262ffb-87ed-4322-8f05-1b89384f8939"],
Cell[14028, 367, 3450, 75, 249, "Output",ExpressionUUID->"01ca38e8-4fdc-4873-bac0-259fd0f0d105"]
}, Open ]],
Cell[CellGroupData[{
Cell[11460, 296, 2475, 66, 155, "Input",ExpressionUUID->"d1262ffb-87ed-4322-8f05-1b89384f8939"],
Cell[13938, 364, 3450, 75, 249, "Output",ExpressionUUID->"01ca38e8-4fdc-4873-bac0-259fd0f0d105"]
Cell[17515, 447, 921, 24, 50, "Input",ExpressionUUID->"cab76d12-2dad-42c6-94b6-db201a8c18ec"],
Cell[18439, 473, 336, 6, 37, "Output",ExpressionUUID->"50db03d0-7166-4dd1-b1ad-8af23d2f754f"]
}, Open ]],
Cell[18790, 482, 1109, 22, 37, "Input",ExpressionUUID->"363c9fee-04cf-4e5c-90ea-4a0da118130e"],
Cell[CellGroupData[{
Cell[17425, 444, 921, 24, 50, "Input",ExpressionUUID->"cab76d12-2dad-42c6-94b6-db201a8c18ec"],
Cell[18349, 470, 336, 6, 37, "Output",ExpressionUUID->"50db03d0-7166-4dd1-b1ad-8af23d2f754f"]
Cell[19924, 508, 1277, 35, 105, "Input",ExpressionUUID->"ec406fd6-54f4-4e5f-8e73-4494b58edd50"],
Cell[21204, 545, 6098, 118, 260, "Output",ExpressionUUID->"2bd6fbb1-9564-433a-b163-c5529f0a682d"]
}, Open ]],
Cell[18700, 479, 1109, 22, 37, "Input",ExpressionUUID->"363c9fee-04cf-4e5c-90ea-4a0da118130e"],
Cell[CellGroupData[{
Cell[19834, 505, 1277, 35, 105, "Input",ExpressionUUID->"ec406fd6-54f4-4e5f-8e73-4494b58edd50"],
Cell[21114, 542, 6098, 118, 260, "Output",ExpressionUUID->"2bd6fbb1-9564-433a-b163-c5529f0a682d"]
Cell[27339, 668, 4519, 106, 187, "Input",ExpressionUUID->"589fa93e-41d0-46c0-b8d3-ab8df683f53d"],
Cell[31861, 776, 1095, 33, 82, "Print",ExpressionUUID->"337280b6-e158-4dad-b3cf-8ba39c1d5cf3"]
}, Open ]],
Cell[32971, 812, 363, 9, 57, "Input",ExpressionUUID->"58e80c3d-daed-4f30-890a-2e8e52e60c0c"],
Cell[CellGroupData[{
Cell[27249, 665, 4519, 106, 187, "Input",ExpressionUUID->"589fa93e-41d0-46c0-b8d3-ab8df683f53d"],
Cell[31771, 773, 1073, 33, 82, "Print",ExpressionUUID->"2946d86e-f35b-4b75-b95e-a5caa077a51c"]
Cell[33359, 825, 2744, 65, 124, "Input",ExpressionUUID->"c95e48ba-da31-4186-9fab-e23d54171786"],
Cell[36106, 892, 406, 6, 37, "Output",ExpressionUUID->"6beae27f-a003-413e-be5f-41b65ba6a545"]
}, Open ]],
Cell[32859, 809, 363, 9, 57, "Input",ExpressionUUID->"58e80c3d-daed-4f30-890a-2e8e52e60c0c"],
Cell[CellGroupData[{
Cell[33247, 822, 2744, 65, 124, "Input",ExpressionUUID->"c95e48ba-da31-4186-9fab-e23d54171786"],
Cell[35994, 889, 381, 5, 37, "Output",ExpressionUUID->"605d794b-f8c9-4677-b077-aada9b92bbd5"]
Cell[36549, 903, 2335, 57, 114, "Input",ExpressionUUID->"af705252-b6bb-4c46-94eb-0f4dbbf1db66"],
Cell[38887, 962, 7577, 142, 253, "Output",ExpressionUUID->"e690fd3a-0037-42ec-aaf7-a005d8ba954a"]
}, Open ]],
Cell[CellGroupData[{
Cell[36412, 899, 2238, 56, 113, "Input",ExpressionUUID->"af705252-b6bb-4c46-94eb-0f4dbbf1db66"],
Cell[38653, 957, 6896, 131, 256, "Output",ExpressionUUID->"e98c5906-814e-490d-b5ad-0e56295f99ab"]
Cell[46501, 1109, 1501, 42, 85, "Input",ExpressionUUID->"c924a6e4-1400-4616-9786-41ee8ec594ab"],
Cell[48005, 1153, 7778, 148, 277, "Output",ExpressionUUID->"dd57294b-38b9-4e1e-a78f-a790c7d844ec"]
}, Open ]],
Cell[45564, 1091, 203, 3, 33, "Input",ExpressionUUID->"1e43fbb6-0494-4504-bdc4-df71c6e9d5e3"],
Cell[45770, 1096, 203, 3, 33, "Input",ExpressionUUID->"b34abcdd-b1ba-4557-8728-df3df5b28b02"],
Cell[45976, 1101, 945, 30, 82, "Input",ExpressionUUID->"e24edc1d-a3ff-4c8b-bb21-62fa5fe16f06"],
Cell[46924, 1133, 205, 3, 33, "Input",ExpressionUUID->"dfd70dbc-5fed-4e5c-a039-a3b3f88789e3"],
Cell[47132, 1138, 1241, 36, 86, "Input",ExpressionUUID->"f53dd42a-ae11-462a-bf9f-c07d88f298c5"],
Cell[55798, 1304, 203, 3, 33, "Input",ExpressionUUID->"1e43fbb6-0494-4504-bdc4-df71c6e9d5e3"],
Cell[56004, 1309, 203, 3, 33, "Input",ExpressionUUID->"b34abcdd-b1ba-4557-8728-df3df5b28b02"],
Cell[56210, 1314, 945, 30, 82, "Input",ExpressionUUID->"e24edc1d-a3ff-4c8b-bb21-62fa5fe16f06"],
Cell[57158, 1346, 205, 3, 33, "Input",ExpressionUUID->"dfd70dbc-5fed-4e5c-a039-a3b3f88789e3"],
Cell[57366, 1351, 1201, 34, 86, "Input",ExpressionUUID->"f53dd42a-ae11-462a-bf9f-c07d88f298c5"],
Cell[CellGroupData[{
Cell[48398, 1178, 283, 5, 33, "Input",ExpressionUUID->"417870a7-4839-4f81-8586-d217e9ba44f9"],
Cell[48684, 1185, 872, 27, 50, "Print",ExpressionUUID->"bf7a1e53-2a8c-4713-ad3f-6433be47849b"]
Cell[58592, 1389, 283, 5, 33, "Input",ExpressionUUID->"417870a7-4839-4f81-8586-d217e9ba44f9"],
Cell[58878, 1396, 811, 25, 50, "Print",ExpressionUUID->"5de6100a-eac1-4d61-85e4-48f2515ee2f3"]
}, Open ]],
Cell[49571, 1215, 744, 16, 57, "Input",ExpressionUUID->"dffe0abc-3dc5-4360-a36a-ddf70a8a91e3"],
Cell[59704, 1424, 744, 16, 57, "Input",ExpressionUUID->"dffe0abc-3dc5-4360-a36a-ddf70a8a91e3"],
Cell[CellGroupData[{
Cell[50340, 1235, 1868, 45, 60, "Input",ExpressionUUID->"a4ef5eb4-7778-43b2-8376-e6e4431de66f"],
Cell[52211, 1282, 6867, 169, 83, "Output",ExpressionUUID->"63a40424-d528-4ecd-bf57-728421a50da7"]
Cell[60473, 1444, 1810, 42, 60, "Input",ExpressionUUID->"a4ef5eb4-7778-43b2-8376-e6e4431de66f"],
Cell[62286, 1488, 6410, 160, 110, "Output",ExpressionUUID->"bd741071-db04-43f7-98ef-6e9e741872b6"]
}, Open ]],
Cell[59093, 1454, 404, 9, 33, "Input",ExpressionUUID->"d6114d76-496a-4526-9235-2e2b26389c18"],
Cell[68711, 1651, 422, 8, 33, "Input",ExpressionUUID->"d6114d76-496a-4526-9235-2e2b26389c18"],
Cell[CellGroupData[{
Cell[59522, 1467, 240, 4, 33, "Input",ExpressionUUID->"ea14538f-b536-4fe7-a74f-f5e25d13093b"],
Cell[59765, 1473, 3901, 90, 43, "Print",ExpressionUUID->"5d9c5e6a-5231-4a6e-a4f7-21f99a3e5607"]
Cell[69158, 1663, 240, 4, 33, "Input",ExpressionUUID->"ea14538f-b536-4fe7-a74f-f5e25d13093b"],
Cell[69401, 1669, 3940, 89, 63, "Print",ExpressionUUID->"ad5eddd5-5fad-4d49-aef0-c2ad504aea37"]
}, Open ]],
Cell[63681, 1566, 802, 17, 33, "Input",ExpressionUUID->"9f6413c0-e44e-4126-b089-740d915bb48d"],
Cell[73356, 1761, 802, 17, 33, "Input",ExpressionUUID->"9f6413c0-e44e-4126-b089-740d915bb48d"],
Cell[CellGroupData[{
Cell[64508, 1587, 323, 7, 33, "Input",ExpressionUUID->"37c239c3-4ac2-401f-963b-6c070eeb2f73"],
Cell[64834, 1596, 3712, 80, 284, "Output",ExpressionUUID->"030448a6-0fbd-4cf2-a9d9-83eed4c20ddd"]
Cell[74183, 1782, 473, 9, 33, "Input",ExpressionUUID->"37c239c3-4ac2-401f-963b-6c070eeb2f73"],
Cell[74659, 1793, 3854, 81, 253, "Output",ExpressionUUID->"e052c0db-eb44-4443-8d7c-14a4d951c77f"]
}, Open ]],
Cell[68561, 1679, 557, 13, 33, "Input",ExpressionUUID->"cc447812-1c6e-4129-943e-0459fce59f1e"],
Cell[78528, 1877, 557, 13, 33, "Input",ExpressionUUID->"cc447812-1c6e-4129-943e-0459fce59f1e"],
Cell[CellGroupData[{
Cell[69143, 1696, 1377, 38, 60, "Input",ExpressionUUID->"b86a339e-b949-4516-8eb5-8294678723fc"],
Cell[70523, 1736, 7831, 195, 122, "Output",ExpressionUUID->"e2a7570f-7b25-4460-9f7b-a0b86b653c41"]
Cell[79110, 1894, 1299, 35, 60, "Input",ExpressionUUID->"b86a339e-b949-4516-8eb5-8294678723fc"],
Cell[80412, 1931, 9356, 231, 150, "Output",ExpressionUUID->"31429318-32ae-4391-9ae8-abf4945da8e9"]
}, Open ]],
Cell[78369, 1934, 401, 9, 33, "Input",ExpressionUUID->"804a318d-428e-46d0-af1d-4cf0f2a8856f"],
Cell[89783, 2165, 397, 8, 33, "Input",ExpressionUUID->"804a318d-428e-46d0-af1d-4cf0f2a8856f"],
Cell[CellGroupData[{
Cell[78795, 1947, 239, 5, 33, "Input",ExpressionUUID->"3c17de4c-76db-4de9-9355-68bece89103c"],
Cell[79037, 1954, 4590, 108, 82, "Print",ExpressionUUID->"a7a3cfc5-6831-43bc-a688-44c0eec53d7e"]
Cell[90205, 2177, 235, 4, 33, "Input",ExpressionUUID->"3c17de4c-76db-4de9-9355-68bece89103c"],
Cell[90443, 2183, 4666, 109, 82, "Print",ExpressionUUID->"adbc5979-c07e-4cb9-9aa5-b7ff43f4bc1a"]
}, Open ]],
Cell[CellGroupData[{
Cell[83664, 2067, 324, 8, 33, "Input",ExpressionUUID->"57f1c25e-794f-4adf-bd78-75639085813a"],
Cell[83991, 2077, 5546, 111, 282, "Output",ExpressionUUID->"6204eb92-3b0b-4108-b9ed-f12beecf3760"]
Cell[95146, 2297, 390, 9, 33, "Input",ExpressionUUID->"57f1c25e-794f-4adf-bd78-75639085813a"],
Cell[95539, 2308, 6303, 122, 257, "Output",ExpressionUUID->"92946697-5ec6-4805-ba6b-0310b33ef2d5"]
}, 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