(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     47195,       1058]
NotebookOptionsPosition[     44321,        998]
NotebookOutlinePosition[     44669,       1013]
CellTagsIndexPosition[     44626,       1010]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Rela\[CCedilla]\[ATilde]o entre a fun\[CCedilla]\[ATilde]o de onda e o \
raio de Bohr", "Section",
 CellChangeTimes->{{3.751818659392811*^9, 
  3.7518186749360285`*^9}},ExpressionUUID->"33e8abc7-4c2b-4d4d-993f-\
b248690857c9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d1", "=", " ", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"r", "^", "2"}], " ", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "2"}], 
       RowBox[{"r", "/", "a"}]}], "]"}]}], ",", 
    RowBox[{"{", "r", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.7208046458793287`*^9, {3.751818692541261*^9, 
   3.7518186993677797`*^9}},ExpressionUUID->"a483858f-9ce6-4939-9a74-\
c9a5e61ab27c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", "r"}], "a"]}]], " ", "r"}], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", "r"}], "a"]}]], " ", 
    SuperscriptBox["r", "2"]}], "a"]}]], "Output",
 CellChangeTimes->{3.7208046144072227`*^9, 3.720804647363862*^9, 
  3.7518187003206816`*^9},ExpressionUUID->"56572f2a-2f8e-4be3-a335-\
7fad4db9436a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"d1", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
 CellChangeTimes->{{3.720804623095648*^9, 3.720804628861888*^9}, {
  3.7518187105057845`*^9, 
  3.751818711896082*^9}},ExpressionUUID->"bba480f9-fc8e-4da8-ac9c-\
bff345ac0d4c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "a"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.720804629455702*^9, 3.7208046512861547`*^9}, 
   3.7518187130208187`*^9},ExpressionUUID->"eb5aa348-2298-410f-97e3-\
54c6579b6ada"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d2", "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"r", "^", "2"}], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"r", "/", 
         RowBox[{"(", 
          RowBox[{"2", "a"}], ")"}]}]}], ")"}], "^", "2"}], 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "r"}], "/", "a"}], "]"}]}], ",", 
    RowBox[{"{", "r", "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.720804676179435*^9, 3.720804688665141*^9}, {
  3.720804755859808*^9, 3.7208047579069014`*^9}, {3.7518187701323795`*^9, 
  3.751818773865876*^9}},ExpressionUUID->"4e1650ee-d9db-446e-abbb-\
3d8be35e5047"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox["r", "a"]}]], " ", 
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox["r", 
        RowBox[{"2", " ", "a"}]]}], ")"}]}], "a"]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     FractionBox["r", "a"]}]], " ", "r", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["r", 
       RowBox[{"2", " ", "a"}]]}], ")"}], "2"]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["r", "a"]}]], " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox["r", 
        RowBox[{"2", " ", "a"}]]}], ")"}], "2"]}], "a"]}]], "Output",
 CellChangeTimes->{3.7208046905247154`*^9, 3.720804758531968*^9, 
  3.7518187798332233`*^9},ExpressionUUID->"853b823c-c92b-4f87-9b42-\
8ebfb958c22a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "\[Equal]", "0"}]], "Input",
 CellChangeTimes->{{3.720804693243755*^9, 
  3.7208046941501017`*^9}},ExpressionUUID->"874ed07b-6b93-47e6-b3a2-\
caab9bf29085"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox["r", "a"]}]], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["r", 
         RowBox[{"2", " ", "a"}]]}], ")"}]}], "a"]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox["r", "a"]}]], " ", "r", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox["r", 
        RowBox[{"2", " ", "a"}]]}], ")"}], "2"]}], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox["r", "a"]}]], " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["r", 
         RowBox[{"2", " ", "a"}]]}], ")"}], "2"]}], "a"]}], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{3.720804694962689*^9, 
  3.720804761266635*^9},ExpressionUUID->"c531d866-bd68-47ca-9cfb-\
6f957b946d22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"d2", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
 CellChangeTimes->{{3.7208046971035423`*^9, 3.7208047002132483`*^9}, {
  3.7518187861442375`*^9, 3.751818789862112*^9}, {3.751818868234297*^9, 
  3.7518188869955077`*^9}, {3.7518189203001714`*^9, 3.751818959509696*^9}, {
  3.751819020307891*^9, 3.7518190483794107`*^9}, {3.75181908705781*^9, 
  3.75181910180434*^9}},ExpressionUUID->"cbc92917-e7ef-4a81-a9ee-\
f0514a5d7ab8"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,15,6,31782013887920283269,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.751818960322005*^9, {3.7518190280873117`*^9, 3.7518190490042644`*^9}, {
   3.7518190923534408`*^9, 
   3.7518191026166496`*^9}},ExpressionUUID->"42a78122-bd35-45af-bca0-\
2cbce05026e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"2", " ", "a"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{
      RowBox[{"3", " ", "a"}], "-", 
      RowBox[{
       SqrtBox["5"], " ", "a"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{
      RowBox[{"3", " ", "a"}], "+", 
      RowBox[{
       SqrtBox["5"], " ", "a"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.751818791174304*^9, {3.7518189315631475`*^9, 3.751818960322005*^9}, {
   3.751819028181038*^9, 3.751819049097992*^9}, {3.7518190924471664`*^9, 
   3.7518191027104273`*^9}},ExpressionUUID->"7cd04f2a-5198-410a-9176-\
bfccf62ee438"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"d2", "\[Equal]", "0"}], ",", "r"}], "]"}]], "Input",
 CellChangeTimes->{{3.7518188436307116`*^9, 3.7518188515351014`*^9}, {
  3.751819042802598*^9, 3.7518190457706494`*^9}, {3.751819076122883*^9, 
  3.7518191048817415`*^9}},ExpressionUUID->"6b6726e7-22b9-44dc-9536-\
9538917d4e9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "\[NotEqual]", "0"}], "&&", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"r", "\[Equal]", 
     RowBox[{"2", " ", "a"}]}], "||", 
    RowBox[{"r", "\[Equal]", "0"}], "||", 
    RowBox[{"r", "\[Equal]", 
     RowBox[{
      RowBox[{"3", " ", "a"}], "-", 
      RowBox[{
       SqrtBox["5"], " ", "a"}]}]}], "||", 
    RowBox[{"r", "\[Equal]", 
     RowBox[{
      RowBox[{"3", " ", "a"}], "+", 
      RowBox[{
       SqrtBox["5"], " ", "a"}]}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.751818852253683*^9, {3.7518190513162203`*^9, 
   3.7518191054284887`*^9}},ExpressionUUID->"09ac7f34-c630-4d51-8a7e-\
9fec589dd7c1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"3", "-", 
   RowBox[{"Sqrt", "[", "5", "]"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.751819115941639*^9, 
  3.7518191204093375`*^9}},ExpressionUUID->"a6646c94-f26b-452b-b6ac-\
7bfdc0aeb83a"],

Cell[BoxData["0.7639320225002102`"], "Output",
 CellChangeTimes->{
  3.7518191211435413`*^9},ExpressionUUID->"1349630e-bbe3-4446-8d89-\
e7cd9a3f3643"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"3", "+", 
   RowBox[{"Sqrt", "[", "5", "]"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.7518192031711144`*^9, 
  3.7518192154494753`*^9}},ExpressionUUID->"97d47d05-54ce-423a-b2f1-\
afd66d108732"],

Cell[BoxData["5.23606797749979`"], "Output",
 CellChangeTimes->{{3.7518192082949095`*^9, 
  3.7518192161524363`*^9}},ExpressionUUID->"a9fe57e5-94a8-4f8a-82f6-\
634035980c71"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"r", "^", "2"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"r", "/", 
         RowBox[{"(", 
          RowBox[{"2", "a"}], ")"}]}]}], ")"}], "^", "2"}], 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "r"}], "/", "a"}], "]"}]}], "/.", 
    RowBox[{"a", "\[Rule]", "1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7208048291176214`*^9, 3.720804848885355*^9}, {
   3.7518191461845226`*^9, 3.7518191764430285`*^9}, 
   3.7518192280871267`*^9},ExpressionUUID->"ac94556c-403b-4adc-ac19-\
52da200dd9ad"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nk4VG8bB/CxFpUwM0SSCIWQ4mcp9xMiS4WQrNnJLkolhJIiS7IWQopE
djMpS2TLvsxEIvsW2bKb97z/zFyfa+Y855zvue/7PEes3fXt6HE4HDf28f/v
V/7WzCdtnyqvu05/1/YSPVvbJaBzVcAJ+hKmWmqSR5Rp374ECwjcgeSsOLdC
PwZgiyn9yEoNgl8BPKrfGonwqiriMJNAGMzkyG5HgRBIzNs+ozlEwvFmuTjm
0RMwwJays0WJAX05/5REG1k4msUit7H5AjbXnvpwzp8Bl7M+rquHE2GQlYYL
qleBou6hzGXVl6AREVbHkqoBG846PxccUqEnQuLt3U0dSKP7GbZ6/jXMuogf
OOiqB2ot0cL/KOnwpvtnhv5LA5hM0KhedsqE6GF/dj5WYwi33TZb2nwD6kGN
XKdKTKFr0zH27+Fs0JtUuC48aAW36vml5wtyQK5yt9H0Xlvgfd7d/Ec1FwqI
AdcGjezBWgwxzDjkQ3D7q93/zjgD/ebdtmW/j1CSCTBNcYXuIcNDy+cL4P7i
kcZr6h7gm7uHtEgphIhmz1dfBG6CVsw482JaEfzldaqXTPMGPt9qgwWnYpjM
tLrrJH4LqlRv/53fLIGguebborZ3YFf/sOifwyRw7I6veiceCNSqzz6zkyR4
dSpkqYXrAeRkJXydKSCDTVR6UTNzEFzyumQ5rVoB82M3+zuWgyGOhRw34VAJ
A3appEymx8D5soF+gVIDDI97lhQ9ouB1U6rnzOFG+Kb3MaLcIgmWE0rEBsMb
YX+Ix65IQjKoOzSPdK43gqNI3Bft5mSYZVg1JHc1QdPeBRYVpVcgf/aSYljo
d4gpLaXv40iD9vwtetH5NkgXFto1x5QBAU0SWictu0B03OgL07938K6gTOT9
iy7gEKK+ZTLIhs4EFQbh711wofrzxPeCbDjqYFxxQKEben4rGr52yYEmhhBJ
HL4HlD28Lqz8eg9cZ/s52771AnXnjxR/UR7k5Yf1u0j2wdQ73osVdIUwzTkd
rmXVBxnlje7nRQtB9JaW8rFYzPJ+UU91CiHtzJ7XI+t9oG2u5KQdVwgxjeH2
JnX9wPaWhxIkUgS3RiIXNMwGQPtFJL+4QjEUqv9NF44cgHYfqtsxk2KYz9Y1
YKgZAL8jSlcod4vB0YOj7IvoL4in40jU+FQMJtsxfrJLv2Aqq0DNRr4EUvc0
B3OcHwJOmVeBh4RKQfnsPbNAiyE45SeyvKZcCj/dxGXnbw9Bc5t5g79JKRzo
fDr+PWcIVq6tajyOKoXoBB3Nx+y/4Udzz9Una6Ug3bR1ZPX4b3ga9M/5I0cZ
tG7mbtip/obEul0Z/mJlwGq5L1f11m8Im3VJ5DQtg2DhVjZa/2/wiOeWwZeX
geBV/wnXld9gVLnY4d1aBlWPJat+sg3Dz/A3QvdHy2Br5pkn+dwwjEqlmT3Y
Xw4+hZe7fd4Ow/CNRlVDq3JwgI7EWa8RKPeNbuJbLgdc+j9y/9MRSGQpmwxn
JEECI9/PpswRoD9Q55lFIEFDoz1/du8InMosmOw5RYJjBlvpdoqj0BtbMSDq
RoKq0iO1BldG4cBmfNnoPRIY82iMqbqMwvNHB+9ph5Hg8a9oUcGUUTjGs3aU
O4MEk46iub/oxmAg10A+p5MEgc06LS28YxDe0/yQNECCA5JecxWnxuCsVi7p
JtYnF5YqpJPtxiDTONpnaosEQ4bDek/8x2DU20z/DTMZfMt33bwTPwb9nhyV
e9nJkH1fv+Rq4xh8cVJjHDxCBpWh273qw2NgiBtQ1hIjQ5/Kq1XZzTG4lPO4
xUqGDKy7JxUIJ8ZBYqKmIu4cGdJv7DNlUB+HQ0O0p8UXyKDYIuO3aDEOiXyv
wwMuk+FGzP0v7VHjsN06tJ/fjAz0K+mDldnjkF64a9+iFRmSrjbg8mvGQSsg
QdrbgQwy5D9HUvrH4aG/xadMFzI08eFVI5bH4ZxmyHywJxmsA+Rt/fZNgKTx
M3bOW2TY+G3+0FlkAoLSDG0u3yVDjFpwlglMQNkZeskz/mQQf/uuXtN4Au4f
YS6nPiBDLUvrpLznBLz4xa0l/JAMZi5LLMeeTMAj5xOSgo/JsNx6QJw7YwLk
cbfz256QIfyksg5zxQSorl/jlYwgw9FYG9eV7gnorXeuOBtJhop/j5+N/pmA
s39cRneiyGBwLS+/i3kSRujUhj1jyDD7qau95vAkVNSvMcc/J0MI//pCgfwk
bGnkZ7rFkoHvAT/+td4k8G6ls61jLh5RPR11YxIW6AQT5V6QQUfdyTAgeBJY
TR8nimIefffsltvLSeiXU7L/jv3fb09xvHnJJDBcyDQSxkxw+1Gu0zoJ146e
+CqDne9D+84PpYlJ6MhXZFqJJoP6qaObYrgpoIs5dtsFu95fLzT5eHmm4Gap
mnfiMzLcWnM7yyIzBfqUJmO/cDKwmcZarGlNwVfOoQdELI+sz6SACZspCHvy
7KJdKBmUBQbTev2mgJutmtclhAy9QYw1dS+moKdVWVMMy9tt7PhIcd4UZPG/
VUi7T4Yhix+7qxun4MbnjcO+d8hwhfpYsmV0Ci7s8V/e9CZjc1ne4AdtCoj4
GlkJDzLIN0/cGeOdhl3CzjYszmR4rxafuiA7DY5VYjvP7cjA/0W9blt3GuQj
SKHfLcnAUPCGnSt0GmTcRG9qXsHuR8xQTjB9GgjIfuCZDhkmMxjNJD9Pg+bh
Yxoh58nQGmfzVn1pGhrFxE4/kCNDgt8R5duWM6Cr99yqk4DV+792m+C7M3D8
RXNe1h4y3HcPDIt8MQOlv29oSNFj9Wg92P22eQacaE2RlnMkkLjwypn63yyU
co5x6XwlQUq1TvSo/ixomnZd6SwjAYfSVulf11noe//xKkcuCf6dMKVnyZwF
/dzp7U/PSVCN50lUYP+DzTv6iS5LEpyOaPhyXvwPqDH33JHWJ0EWs++onvof
8JYie2upkSB8vVfqht8fSCd4bpWLksBoMPZb0uQfuEN/41fUTDlM57Avb1bN
AVvDkFuBQzmYHa3i2f1zDr46dDaKG5VD2yt3IKzOgajSwkFXtXIojmp9InFi
HooDPnFqCJRDwK3wI+aJ8yBn1XrJqQebt0dCRAfl/4I0jv/xvGwZNJyJlvI/
/xcWmozPhAqWwSPjlP8O6f8FsqwxaYWtDOijyjVMnf/C+xgj1msTpbCxM+tA
efUXrhkkzKvHlcLMT8N3bfQLYNNt3C35pwS+J4ger/q+ALHGx2XSg4rhGXuz
2OvrS5AYxOF2wKEArPsNKhm+/wPC51Ou/+VlAmvyb1fPH/+A/WEQy4JvJhSa
uPENjv+DuBaXpFbVTGDoC71DplsFrXXmt2s/MiCTSj7l+d8qeKV9uX9odwaM
9wi8+5W+Ckux6bcuubyGG+2zUaQ7a5AU4WFrXPgSOKPugGjoGuxcOXMj/MpL
IF9mnouNXQOdB1Hyp1eSYU/bYW2P/DWYe3F8e0QhGXJb9JlEx9Yg+81/imMN
iTDXVH4nVncd5lYbS9124sCzLsTaXXQDiNXPfHjaooF/VJ3536kNOHRHo0jk
UTQ007Pk+KENWB/q7C85Gw3CKGIh7NoGVFRfbjXLi4If5BeBmU834LZA9Vy1
eCSc+5iV8mN+A1oXGQKLt57AXKujyvWtDZArq7cvuPcEkv+IjY/v3oSP9KcC
6jfDYEUs/8TykU1QT4rkU6M9xq6zrILNYBMU9uUKp+FDgSO5oU+1fBMSybM5
Q17B8IX0xL+pdhPwCbTIDYZgcKbqCOp1bAKl4q4TxAVBHbHDyWIaW//T6vzF
Lw/gTtSPNV++LbAKOqSRyBcIvx9Oc+UFbkHcBedCZ+G78Cwzl3w6YgsGzIZy
BlzvgNJXN4tPiVsgy8UmUVPuCy9wS28aCrcALyS+a8rwNmje2zw9MroF5RbW
TtQP3lDgsffKAc1t+Hgq799Kjjt8T8Lf+WC0DRMK8U1BN91gvJY3VcV2G1T9
YgSZVFyBl+f4jEvANmzcNpH59/cGhFSfD64u2YaIfR9+U+PsIWVGJ9vo6zb8
WDxtaRVpB+VEg7aZ9m2Qvv/t8kqELfxxsj7INbsNagI2qpqvrMGIM6DohuAO
JBMGfnxlsQCPM49+0KR2IEb87eA+MzN4Yh9Biz27A4sOC+YxZBOoJCdrVxrv
QMnaexGTl1ehbzTd08B+ByTj+jozDxvBMltO/NTNHfA5o/tJPt8AjtmUj+Aj
d8DaKixbc0kPVCIqWbJf7gDIOBFb3uqCWdk3KeWcHWhkECVc7LgE0Xt67jnW
7cAplw7WVn4tyJX9+Xq7cwfOLfj8y5rWgG+WI/UxQzsQ6zTy8VzbedgoWsB/
3tyBGrebhW3D54Dwa01Bn4UGOvesl5o5EEjuxl2f4KLB5LUXc/8VnYELMrse
+R2lgejyHp1QbwWwMWPL5ZChQaTxR+MIBznwf0TszAIaaPj4rOmGn4KEj3xr
Shdp8NpeL4k6LA2FfUL8HSY0EGnP8TTolYDvjOJq9o40YK19WhKndQzGJWVu
bPrQwEPATjRI8CjgrilERQXTgBpwiEXAQgB4g1GpcDQNZiNEPBc2eED2g8ZP
cgoN5kaTrETpCKBLuUSvm0sDTsFCiV+v9sENOqNjYyQaWKW60b9rYIQQcfNL
d+tp0BS1zyiAaVM5xdDWe38PDbyGjl3plp5XLg9wTsocpsFY0P7uN8cGlLuy
vaoU/mLrvbMIvttbpTzXdWe8dZsGD6PNm2kttsqMAYi5kAmHUnJpHZcjC5Q5
CGqJfntxqO18NsNPnh5l/mwNCQ08Dr28HcTTIDylLK6sXcnBi0PltGveEjv/
lOW7Lun/FMChfwfjl/jU6OG8o/5YligOFUQwfL6dwAr624a+npI4xMgl6MKq
zAmWMdf2nJHFIbfEvNfuq9zgImqewnwGh6z2vbGw9OWHOxXXT3ao4NCNkI+L
dkOC8EjPtjZZE4dq6Crn9CdFIHbc4aq9Lg5ZRvGJz10Rh9f3nKelr+IQfe5p
mXgOaZCuYlkLNceh9Lcqrir3ZaCK8R3ToA0OuZoxkXQJsjAUMSoQ4YFDZZzu
nsG1iuDRGSQ5eguHvnmEJr4aOAs0riNnlO7jEI/pLmGGaAT8aeZXp8Jw6Il2
Wa0hlxrkjW7aoigcWt/3qNp1/TycPZ7kFR+HQ3dfVrgKLGqAWWFvxPkMHFJ7
fjNf46gOJNVern1dgUPZnu2BiXX6IMYy17FWg0O7Aa9nus8ASBfDBy834tD9
yb2P+iwNgdrbsLHdg0PuSnrUXcLGwDV17qTJPJbHN9a7P6QsIOvEkHLBCg4Z
vgw9r9JiCbJe/jq7t3DIVK37QA75Ohhskh1Kd9Mh7aspzMVe1hCz73QKpyAd
ynopd9Vf0B4E9TvfOx3DrNY48eGgAxTEeZCqJOkQOMVRhXkdof3wh243JToU
rG8iMSlyA9hkRPY0G9Ch+YsKoo8C3CDlVu0BQVM6dLHA8F5Dujuc+GQtcseK
DjUG/nqYbucBOmqp50Td6NBAsXHa4gtPeGJ0wDc4lA5NJz3wryN6A29y6cO+
CDq00v3p9OkKb8geNHh+MpYOTdKJscrb+UCDY3TeYBodYtsd17bx5RYw32Md
UyLTIQ7fvycuRd+BoNQtveVZOuRh8dld4mMA6EqXe4ovYesP3DyVdTYQ+Ktv
Rluv0yGZhLjlG5mBQB6ebm9nokfCOsnWUT4PYFH4x+UP/PSIRW6uX0EkGKxz
Sy7a69IjVqNjJ+5WPQLps56ur4zoUU+ZScsehVDYaZGI6DajRzW3x2n1haGQ
NJ/xXcWJHm3cJ1h9zn4MnTIx2oeD6JGdpFLB4zdP4BzJTZNaRI9sPBR86buf
AZuWmNN+Mj3Cb/q0TFpEws++scfqVfTI5RzX2bnpSPDdMmso/k6P4k/GFB4P
joKPoK0RPUaPaFwxZfJvokHgm+h5LW4GtGctoieLIRZwXUOo4i4DuhoSc2lO
JBFCpr68vvuAAZFGxmh/QxKBBfeKXuExAxKOmtWIGEkEzhPXakteMKBr/w5c
j0pPAuHQDo38jwwodblq7qPoS9BSqrmUPs6A/FOZKvsvpsLzjAyzx/qM6O5c
n+0QfQaIeNv7GogxIb686xUDgTlwQnHwSqo0E7IxDlv3qsiB0zhjqWk5JmT9
0faQ4loOqIRrjgeoMqFcU5295h7vwSJTwuC9GRMyzWQ4PmedC3Hdi1L0kUzo
nnybMr1eHjDJBkzkLzEhR3Ut2aeiBTC6Em+05zMzig7mNN+xKgGtsRv3Yzx3
oymLnYfl1yrh0miUOD8/Kwq4xfx4jVIL01+tAxs+7EGMtvPgnd0Ikhy9h1Qt
9yE1ldpZ53etwAorVj+X2FC41pA/3rcDfM8d2126wYY2soiD1MAOGFc1zYuk
24+yhBoTE8M6oOZC9YbK/v1I0Yiwf19yB9zVj3ieLbYfDecnRHz63AEzdsJ1
t6z2o+k1qeen6Dvhe7jhMY62/aj7deHwrdBO0PhjsipoyI7oL10aTgjqghRC
cFeAMTs6HsZrtRrWBctK7/N/mrKjIKmBN7rRXZD2ZNMhzpod/XEK811K7YIN
0ZdUFg92pNf/lHmjogtyrQdIf5+wo62ul6u7/3UBO9XS70sVOxI8udQvYNsN
1BpbOhMJDqRFt4kGpXrg77k+3vtSHOhC5j7Tu7I9sKv68uk0GQ5EqyyJYVfq
AblKRYdxeQ6kXdJ+VVK9B2I/sbd4nedAO5+VhaXMeuBycUXCUwsOZOrcKX8+
tAe+vSFIf47iQFeWRA0rf/TAr6NPNIeec6AxRZ7lil89sJJBs2aI50DVu++k
loz0wNH06Rear7Djfc7yJvzpgaCUqs2ebA50Hvcq/ghdLyjHu9TP1XCgdZz0
XXXRXih5XGshsMKBnhE2a3vde+GdVvOB0DUOxHLa8slz715I2tvZ+WeTA/H4
5vpq3emFwKhB9U/0nIhoadCeFdQLOgkbkkbsnMh+fNmN50UvDL+Vpj0V50R1
fSKR4+W9wFb/MnXVihP1mHPpCW71Al1YxjULO060Oa6ceRRHgWWtHHydIycy
lzgmdoSRAj9ay0Jj3DlR4n7X9t17KZDZ2+l+4j4nslvrios5SAHF8d3IJoET
HZH7FxelQAF7Jp+h1lZOxKw/5KXkSQHew42UzQ5O9KhdoOqiNwVa5Q+1Hevh
RBd9HPGmtykg51L3OaifE1HqRNvs71OAuYuYLDfJiVYG0gpUwijwJq3UMIUO
jy6Kkvr3plHAmMx6sZkRj3TyFGfa0imwt9tCbW0XHmmsyrA9e0MB7127Tumz
4dHH99IxmzkUUHO7ys58EI+U1nxyk0soMKq01uR6Go8MjpbSLTRSIMFQpybp
PzwaEWsi232ngI57GqleEY9MTszE9bRSoDj9wrsj5/Bomv9BRVYXBUJYEh/2
XMSj8r1ZfWwDFDhKUUBnHfAoasXfaHWOAjZe90r2JuGR57lsnZP7qSAn86vk
+Cs80mZI12DgoALrIipVT8Mj155kUjsnFT56MpcFZuHRtxaLXRZcVNjyiC5f
LsQj0rN9LiqHqBDn/vbTz2Y84ha1dzslRgUnKdaK9VY8GnUKcfksToUz8y4V
XJ14JD0cvKJyggojbjKfdal4VDav9wFJU0Ha7fOX2lE8Ej2UQ2WWo0KjS1d1
7jYefbrZq16JqPBSQq6mEUdABmyM0fQqVPCYTagZZyAgdTOre+dUqcDlYvFV
gJWAKrNOyBWep4K181RtLBcBRYlM3LDUooKsuE5dAQ8BvbWwGQjQpsLumby6
Vj4CCimW3UzWoUL+De9vu4UIaKU3VLn+EnZ/TrR6PykCkvDo3jOtT4W249YN
iTIEFKQ3g5u8QoX0qdqGUlkCmpFpzf1tQAVNpyeNf5UIKOlNo2SDEZaHI7HZ
9gIBCVrEMlqbYHkc821+oE1AtfS4H2dNsTwm+5pTLhFQ+sF1d6IZFYYd0r5T
DQiIbydspsycClIO4q06VgTE81VAtek6FX45HXb/YEtApaL2c8+tqBDugmdn
cyQgLvzDHGNrKkx5buq1uREQuPCYd9lQIcF7flHKC8vL+/bVMFsqqN8eeR7l
Q0AiMoE3FO2okOHX3KPnR0C/GryGI+ypoB9QeaswAPs9S1db2oEKuKAibnww
Abmdqe5uwWwemnytO4yAMib19DYcqcAd4zxgFE9Az/vRcR5nKnyLtfQvSyKg
yybk1ljM3vFXDh9IISC8ETVzjwsVOl4qWf3IJCDyV6GZacyBqVL0iu8ISMrZ
zvKKKxUk04Uykt4TkPPKzb1lmJ++3TNmWkhAuYySPB5uVFDMoT2sKCEg49ZV
vzrMk7lLIodIBETdaTrC5Y7lnT9Rf7+CgIgNJBZrzOcL+x1/VRJQfhRFLhvz
cnEbC3wlIPMF+fczmNPLvuakfiMg08Ilx+MeVNAll2njmgiopoHfyxozreL9
7PUWAqJd6WyIw5xXmRpR3U5Ap5NF3b9hNqt5LinYTUB5rAoOC5hZ60LbgigE
pHFSsIjbkwqk+nseI30ENPKZZqCA2bHJnUPtFwH98Ju/ZISZq8WmMPM3Abka
sme4Ya5tu3qFaYyA1DSCrgRhvtmpvWw3SUD9DvbW0ZgFe+DFtxnsegZ/dSRj
bqeckhOdJ6BLU2yZrzH794lSQhcJ6GMzb3865hMDB30nV7Dn2yd6JxXzz8H9
PJrrBNR90ywwHvOTYQZy9hYB2W4MLj7BLD+2asKKI6LC3r7OO5gnJmY2bzAQ
UbXXLUFbzHHTgy+bmYlo6b+BEU3Man+6zkqwElFquCKPOObF+fpf4fuIKLaD
XLsL8+vFTwF/2Inoo+XTycH/57uSL3CJQEQOD/seFWHeWc2ozuMmItMQyusg
zLkb8db7D2LrPytUuojZdPspgwc/EU3XvTTC/z9fXGBm+xEimpVtWO7Gnl85
vff5k8JEJNnjcCAGM3G3WeiiOBGlbHat7WD1Ucuqe+yKFBHZT7GS8zB77VNr
LJIhorHWJywmmNs4Jfb4KBDR5qiqWQZWb8qurlPJZ4hodCuJ8wLmvPq8+hog
IvaB2oVJrF6f+Z0MYVcnojsf2k8exrzT62X9nyYR2TEbxBVj9e56shhZ6BBR
2sqsmDpmnXG57ff6RDTOnT1jfoMKFci3v9OQiJgfex0cdaKCRDKJtG5MRJ5M
KUH2mPfonrmlYUlE7qxuO5ZYfzWRzs0POxNR2CGjQWGsPxUJwS0s7th6VZHb
EVj/5rjVvpf2IqLOikGrRay/w4Q0HP19ichGWpTxI9b/FyJ0fvM8JCLEIT2y
g82PuutXu3RTiIgp5f37WWwenf6UUHD7NRG94uJl5cWcSeyLTMkkooczTt9V
r1EhpMlMZzaHiDaipUPCr1JB5bR1XWgZEe2qZFpZxOZf1S7Xsi/tRCTi/iCI
iM1Paeu8F2NdRPSm8DQdKzZf0yrmb+6lEJGeGgP9piYVAjy9pE0GiOgkKSK6
UwPLu/929soUEe1XyTlkjM3vT3lByRIMXGhlMPnFFwUqMOsY8sYzcyHylPns
dXkq6E2JJtKxcqG7zacv0rD3w4RQS1wvOxeyCZ6Ukz5NBXwid0wgPxc6/mJu
zlqSCs7BuY+7FbhQWFUBF5sgFUoFAnbBWS5UcLPhtJcAFei+6D3KRlyI+Yps
SCc/FeLX/gX7a3ChHDRTFXqQCl9dzwUcM+RCevH1/2oJVDho3Ovj58GF3HHD
fuHMVLBfebc8fpML6QaqU4sZqVAQc++m3m0uhM+9H/6DngoaLQKeIv5caM3x
AssBGgVuqji7tD/lQp2/nyc6rVKgWQJnc/QtF2pcdQKrCQrcoxPT/T7Ahc7t
vr5SVEuBcbU9VJHfXKjjwZvxWzUU0H08a/lglAvN3v+dIleFvc/357vLzXAh
i9FE19xPFPjOdzoybY0LSTlE13kWUoBfXrnVG8+Nkkdtne1SKVDjpq9zSJMb
lV29PIbD9jOsP+9ecCvmRgRGcuKTQ9j+5nb2vsgybsSxc360lpcCVpzUznwy
N+rb8+f3FjcFyi/Imi9UcSMXwuK2HSe2fyqZ9/Ru4UYMS89m+XZRoPqZbfLd
cW50qKMRHf7bi+3XL809OnAA8SYNJwZV9cJY1pHYVL8DaMT5behx016IPcbD
SDLkQf+1Mo1t2fdAVJJ9vZUALxpnZ5nhc+4Gk1jz1r0TvCjqyADw2nbBmtqb
9dQvB5HA+crPu5U6YWRMxbcmlA/JvLrOLizQAelnTx5ssTqE5o99bXlNbYMP
D304HE7wI8Wrul+8U1sg1NBGm2GFH53I5Asf9WsG2Z+vs0NbDqPee1cNDZUb
IeF48ocWbQEULzSmraFUDwFVEQnaJAEUHnXdNU60Di4eNHzTdPQIck9n0Scp
foVzbvWmHGFHkO7RlRL9J9WQymd99PvKEaT5aIIb/64Sjn59G3fJVBA5nj5Z
ap5fAVEnasQ6vwgirdstLeybJLBfYuxoFBNCzw5ln3NULwPrgkWBsEghxB5e
mEdcKQaXoCtbWtGYWRltTswUg8+VYsre50JoUmpq4sLvYni84vMsKk4IdT9S
uP60pRjyFNY3418JITUJp+WzWcWwXk3rzXovhHadcVkxNi6GqM69EbX1Qkjb
SSzxemURJGW4Oj5qFEK38X+b/pYUQYZ3q+qFZiHEvDJeGJJbBKVcURvNrUIo
UJAxvSyxCH6a4B27eoQQh4jEmKZ3EYiO8KgOjwihPu83cFisCKSL7/Jnjgmh
yGKC27RAESg+7F+3mxBCqbI0NRJ3EeiIvvo4NS2EeipbJq2YisDLWYB/YUEI
rW7+m/81VAh+Zx6sFy4JoRe2k5r1lEJ4uG+423tFCH3hND9f1FoICfkZT9fW
hFDl0KVDcRWFkB7I6EDewI5PY10LLyqE93p2Kn5bQihx8ptHaE4hFAt+O6S8
I4QOmaQ/evi6EL4siazTaEIo5Mon+dCEQvgfF07joQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$7957#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "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.720804849479169*^9, 3.7518188249788504`*^9, {3.751819148043462*^9, 
   3.751819177114746*^9}, 
   3.751819228805709*^9},ExpressionUUID->"381ed21a-10e6-4222-8e8f-\
6247b7122c5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"r", "/", 
         RowBox[{"(", 
          RowBox[{"2", "a"}], ")"}]}]}], ")"}], "^", "2"}], 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "r"}], "/", "a"}], "]"}]}], "/.", 
    RowBox[{"a", "\[Rule]", "1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7518192537685843`*^9, 
  3.7518192541278753`*^9}},ExpressionUUID->"78721617-02e5-4798-b413-\
d725e4ea2503"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVl3c81d8fxy8i8w5FhRBKRiSEjPeJZCuzZWSTb5IiZGWWee9NdkZlhjJD
MrJHNkkqZWYU2fP+7u+vz+P5OJ/P47w/7/N6vc45x6zvGNrRYjCYZhoM5v/P
537WDFK2ESrm3t+FKJS/0NjPr3uF3wmUncbafn76C5TmmiB+fi/gaP8hxJTy
F57XRfHR8z8BmajaPCGFv/Cfsvvtdb5EkFe26Qzx+AP9246xi3y54Ckkb5Cz
Ow/7v/4SXuCrhInGqnSkOAvDdR/c52cqoZuSffIoYRbyshIa5oqqwE70UKjM
9G/Qd9O3nFWrhkM2USnssb8hjqkqbtqhFojixRrBizPAntJKu/T5I3goyx+n
lExDRnva3Tm+NvhluLRxx2YSVhLKRH9EtkHlEfwpEeVJuOjQMd632QYNv6zu
HT00CfN06yZV/e3wBw0ul3VMUOvWP/ckrBNeM8QypMpNQM+bHVrhv91wyPFL
Fz3XOPi3i2tLWfaDFDs5RWD/T8gpenfi9bN+4L6SuZUzPQZ9Cap0xzv7IZnp
EptV6xgIOVytPqwwAOhjv5Jd+Bi00wVLYA4MQhBHkX45fgw4lb+ydzcPwcxn
y0uPdL9D4ZsnX/+TGAGfRZ1TdlMjMMs+G6ltNQJ37rVtapSPgLCHtsrJ2BGo
+Hwn/F7oCKQrsWSMb46AnmmU10vhESC3Rdpfb/oKNwquS5nd/gIe4zFLGmbf
gD/9V/gP+mFIY+kIIqiPwXoH8UGF4yCoKD80C7AYg9/4llTa84Mw6iIm+/fB
GKw++GoXfmQQDvdFTHXmjYHeywfhBh0DQErQ1XqM/wkcfVxqZVIDEHS8C0v5
+hOuhWVZRjL1gwP0Js67jYPm+Etps/EewLxYq/oaQe2b8IaiXUMPJOzjGW1/
NQ6d7HK66S97oLXNnjd3aBwWzJm9X9v2wEnjnRd25ybgSxNN9tG+bphxFM7/
TjMJtSLuIRmrn+AW2bemhzgF0l5BHzkftQPt6osftblTYDU7xFeq2w5JV1ox
bz5OQd5sAVPW4XZo5zmgFrUyBZ78eRUhRW0glp3TonV1Gs7g73KdnG6F+ff9
PR/5ZsBRUsQq3qoFXCZFxksLf4O8Xni3BLERxiy+MNa3/QbzBOf8v1aNYDT8
WOLTxG949+Kb7j6ZRpDvmPaa5JqFY2ezfp340gB0RZl4zrBZ6P358JOacAMk
+BxTeWA5B7QjFpxuffXAvNZjE+Q9B8qle0WyufXgeyfgScyzObg39iVIPaAe
rK1/DGR3zEEQJWtHQ7IexDWfOw/LzcM5B0xTB7EO6g8cSVTAL4DRV3D68rGG
6rvWGnWxBXig35Pv61UDWQyeEwYXF+DE4CfP/NM1ELk5JHnLZwH6wjSvZaV/
ANMfsc1JMwvAPsyivhJaDbN5+JXtuj9Q92ol88J/VcB8LFj4h/wiTIeqaerH
lkOrEknST30Rmubt24gW5RB6NVXuqOEiHHmNzzkrUg60xAqNG86LMGviKZdX
WwZbe/MOn58vQsCvhC/8S6UwN2qS0027BA1n/7vWY1cCeRvWb11wS+CVMDtL
f7YEHA+6VrDxLAH/zhX2OIYSmNAJb9WRXYLEYjOmxpxiGK2qmWlxWAJGj7PM
mktF0JkgLFLXuQR3fIMP+pHfQnipjJTllyU4eW3Jhs/xLWj2nFfYm1yCvApj
yQMqb6Fxv5mWEmUJ/COOxI4NvoFqD6JThdQ/2C45pT5FLIQC483ct3H/wIuu
c89GKB+i8R2iGTeX4ey56xG9VdlQKXe0TN9lGcyKPMH5XjZMWNyBnYfL8E7r
0OQr8WxQLDhgfCV+GbJlrw0up2fBjJaZL1vXMmASMi6PEzNBLWih20txBYhn
DhQfj3oJLnlwXVhrBUp77q6pXXoJSb2kiQHTFWgzkzn0j/ASFvnObkq6rYB9
vzTXVsILSK32E5jKWQE10nhOakEGbKzi3A05V+FRddTAwFgaCB61plAEV+Fu
AdukuEca6F8ofVIgtQq0zTKaYaxpkEm+msqotwoGdLaMSkqpYCiZ0VITtAoU
VQYW9+wUKHA8wyW2tAq8bo0H814ngvVX41q6zjV41WVn02wZC8zJP2/f/bIG
v4MLxVIOxELxdReeH1NrEOPk5aXQ+hToRsK8qmjWAZHEBZukn8Kr4Srpu3Lr
4LGVHrV1gAxTg/w531+sQ95aznn7vzEQ/azAVPftOrhJyXHWucTAWZNz9FUf
1iHYMSTb7280hA0YWT8bXoeyqpElvtUoONkfyqOL3YBpE62oAnwk3OqZJ1Z6
bcBgL+dGf+hjYCd6gXDYBhQPJdobcT+GqksMf2JjN0BbwnkTXxQGLN18Oq5v
NsDS0v+m8lgo5H8ypBee3ICzMzH13Hoh8Ke9wiv28iaUnT8mtGcRCHHh6idp
LTZh4oBunhFDIKho9w3dcd6EeOY64cbCRxDTNietE7oJWAcoXKB9BKdbef/Q
VG/C5+4QZOjqD3ebgq3vCG+Bm9rhyq0cb+CduMiwJr0FVYUBfe8EvKGDlinP
B21B4pW0AZFULziOopaeXNuCnKGUc/xJnvCl6lnAq4gtIMg4c9JkecD5t1mp
X/5uQfpCwc1V5nvwp8tR9ebOFkxGD8bEp7pB8oLo1BTjNgTn28rWSrvBquib
UyvHtuFacl3CU+u7kJv5rhprvA2q1bMi9K/uACG5dUStYhuOqPpjReecoKYy
3K+9cRvS6RJ4HyMncB7WFTDo3QaPas6rSQmO0MTR62Qxuw3/pXW+bL7sAF7E
LxuePDtwZDaq+c2YLZx4k5xCObkDymdcOPh1bKH/kzkKld2BoQyx/TwVNnCK
5VfYU/0d8Gqo4XqZaA0/Q2Y5CwN2QCwiOMzO+yZEv8qvkonaAdJpN3/jJUtQ
bHCxeJ+4AyrsiU3Z/yzgGWY5s7V4B5rj1o+H0pmD1sNtmfGJHRjmMPE9an4N
1hI/DDst7cDfS5cCFv2uwssKf5/F3R2YvuVorZZ5BXZX6Rp3OXfBOVik7QLF
BIpcWY0Oa+3C9IMxkQ/ThtCZdMCrwHQXnnmIvtzlMYSpRq40VdtdKMvfTZO5
YgBcR0Tm/vPfBTnjy42lpZcguF49qL5sF8QnIo4VyGhD6pxurmnDLpwb9bSR
n9eECg7j7rmeXahj4pekL9CABSdrbs75XZDWUTyD11YHU3b/klsCe3CZM24m
/y8CV6XQLxTJPYhR1jrI9B0g3D6KEqu8BwvEdJfVBWWorUrWqb26B5mz3PrT
6ByMTLy4a2y/B/GeWg6pQfKwgs2L/31vD0aBULs6dBZO2lSMH4jZA8qCN2Gu
UBpUo2qZclP2gLn95XMl6TNg9q5ZUiVvD0okm8KftZwGEsvgQ8emPTi9kFMW
DeKQLzuasdu3B+m4pKDXzSLQbDneQh7bg+0CfYGC/4Rhq2TpwIftPYh7LCx0
7qAgHPy+oWDIRIHU7V8WMhzHQIIRc3OakwJ+Xr6nfznwguaZ/aE+QhTIqRPp
NhjjAhszbD7hDAWiz7eXiTw9BH6hHH1ZQIGSBfP5Uf+DkPCWZ0NRjwJ99Il2
PzIJUDwiyNt7nQLvuRW2dZiw0LlP7IK9IwWYGiyWdOWYYErizK1tdwq4tC/R
vRnYB5hrCkRiEHU8y9vYagwDXEGo/DiJAu7BLkm5xVsqsgUao1WpFKDHyChv
+KyoXP6sT3s5nwJGnpLLEop/VG7RmJ6crKTAdYGW+9NCkyrBYub63i0UiP8v
J23Z7qtKqontfdwgBR6I/z0sHdKtUuHvnPTqFwXEl+aZXS0+qPTnutUpLFJA
g6Y0hH86XeVPv9dU1y4FtPesC7/0XFDZ548Yiukx6MIhU+GhQJIK4eCFRB9W
DHLOLdhi3yxV4c3VENc4gEFS8ZHeyb9bVcRUdGoJXBg0oNS1ulIypCLfr284
yo9BGoVGQlubP1XUHQ0ns4QxKEviuP0TzlkVw10Tz7sSGCSjninxe3BJxZJ8
jUVJljpfaeRn2hvrKv8Jm6cyKGFQEcd+VJCwq+JVfVOqVxWD8hYyk4Iu0kKo
gW1jshYG+b9/aH6EmwFipxyu2F/GIF1PlSBRLWbIeOg8e/oKBh15oa/c0Y2F
03VMG2HmGKQ4OWijkU+Aun059D9sMOjKennfQ86DMBY1wR/likE37u5uTFw/
Aq59gRITHhhUcUTykqUMD1A4jykp+mLQo33cEXJn+IA33fzK7ycYJP9hX2Fb
pwAUTmzbIiIGWROFk08/EgJlkSS3+DgMIq9n1uI1ToBZ8VCU+ksMCv8qfjic
QRSSGi81ZlRjEFZo8kqLsBSIMv3p3fiIQRJvm/zd1c9ApV7kj0ttGDTPk3RZ
ylkahodat3YHqfMJnT7g2yULnL/PS13/i0FCQtXlXP/OQdapMZWiVQwKc+bo
mNVTAlk3P13GHQzavY41FChSBuPtKodyRhpUEK5KfH8RAZlNJpVdgAad+ynr
0qSnBgKGfa+dTtKgcjfvGzKHL0BRnGtlnQQNyk5mPsQ4dQF6+AoGXBRpkNuH
ExXvIi4C9swJlg5jGmRm9N5Eck8Lwk0PewaF0aAx4/nbFe8vA1dyechIFA1q
4DjePKNgALk/jJ9KxdKgnYqh8MBKA2h1JBX+SKdBhKLPgj+rDYHhIfOkYhUN
6gpGpf39xhCYtmOwMk+Dgk57D/1RuQaXT1fcFVumQczP3fVGuq4Bb/09kvUm
DaLjcRb8ZXkdqn7N9vTQ06JTHJNm8iE34N/xL5cKeGkRw7Xe+0mj5mCdX6Zn
f5kWRcZJGJDNreB8pYvWcAktqsStJWGI9oDpH0PV3nRoTvlBAc+GK5y4b+9p
LEqPGq/XpTzX9oOJ1XhTlg8MqLNdITlXPARenJe+962BAbGMDz92Uw8By6iu
mDftDMj4xO/9pyxCYESIvs1omAEdL/9P1SMmBHqN3BRTlhmQZUySu+lSCNQU
6fKfEt2PrJwCrGSLQyH+Ns2sfvx+lLjn7/Ze+DEYV6YwHEvdj943vN8MVKGe
H+jlBZdf7UeCStwb8iaPITrFxSy+eD966srI6hr4GII7vnb9+LQfYTVwvoyj
j8FVpLzEdR8jwvVl9PdFPAHtyVu+5LuMKFi68a/5t3C46CuYf8GTEbEflWe7
vxQOqhyjI2t+jIimSMXxAX0EnFPXk78RyYiebxvmq5+KANFMyWXBbEYUUPlM
j/IwAljsVhzLRhmR6Vx+7neOSOic8DUe1mBCmZXTLRyKUdDqczYoXJ8JRf08
WvFRNwoaD/4tUjJhQo8myxZvWERB9YWbuAxrJuRzNf6k0aMoyH+l2u7ky4SA
V1bRuDkKomz3o+1iJhTb/K/kuW406E8QxXh5mdFsAY2aknYMdIpNDJgJMaON
5uxx+6sxoHNPzi9ZlBmxqtPxBdjHgCbt957Dcsyo8C+vvV9gDKjyi3kcuMyM
RkoklfMqY0DWrKmOMZAZlcVtdliyE4FnYNNkeZIZCfdU7K14ECGJW48iNc+M
Gsy7ZlZ8iHDEJj3H9R8zOmiiIDcfSATOfxe3F/aYUUTZW4b6aCLg8bHpM4dY
kKdfRiJdFhHodCXmvmmxoMSkms2FPiLMNlgHtBawoDTf83W2J0jARxq+FV3K
gtok2YVqxUhgbKFvYvyeBQ20PXyLkyJBzYaC6FgrC0o/9+rSU0USkE8RBtbH
WdCM7Tma45dJoBhfKyzMxYqaxeT43R+QwNVWln2BnxXd7yhIlPYhQZbU651i
YVaUpnrabSaABPjOuF4VWVbUoidxSTacBBMYl4eml1lRd1a5gFkKCSJv8XSH
hLIiBtqA+J81JKiXI1fqRLEiKSOP7v0NJFjbx/iKEMuKjk06ZQq1kOBm2rLn
8wxWJGfGoqTaTQKZgXaBsmpWdKubNYLtBwm+KXt5TPxjRQumET4zOySQIAwd
VbNkQ02aL0y6pajn7aipwGd2bIi7R3EgVYYMz5nXp6ed2dC4EWumvRwZWPcd
Lo70ZEPZOTp6P5TIMLt27eIQiQ0dPfv5pLsGGTJHv7k4NbKhxfLM5LM3yGB2
7U//+3Y2tNQ1IhhlToaDQ3vy2F421OqUB6OWZAjs5qMr+caGGjZHVW1tyXDz
o1X8zhobSmoKXuC+TQaenMnaGBEsovMXjjzlS4YBoTWhX5JYROPjqY3zJ0NE
BkO4zFksiuXMGPsdQIatJGHjL6pYJLf2NfNJMBmGo5xmBMywSHFMAHs/ggxE
Zm89d2ssMszRoT8aRQaNsPDiFkcsci7XWK+JJkN5wGuf/9yxKJ7N/NsCiQxP
7y3gy6OxqL9n5NRGPBm0F3fdGZ9hUYqTywOnRDLQ3sZ+vZ6MRayPtX/0J5HB
1V4yk5KNRRcOv+OOfU4G/Wt3FbTqscj+cUnjxxdkYBh6lJrcgkVVTb2+uy/J
8MGQTPfnExbx6XJ4SWWSQVy35BN5BIvkSRyaIdlkYIZVq9FlLHLxCm4efU0G
z/MnGcu3sOif9eeE9XzqeqndKIyhwaFVk+rXzIVk+KhZv6WKw6E0q5t5R96S
4bTOSjoPJw4pcpdlcBSRIVVPWGONB4dOMLUsMhWTwdsw6mmuKA7VFJoVfC0h
w4xxnUKQFA7tZQWcqCwlg+mV5R9m8jhkoPICG1NGhjNm18TxF3HoRouYmtA7
MqRbRPb91sUhHmnl5HEqY61qPRuMcMiEJ80ruYIMc3bHmzyscCj5QfHYSiUZ
rjtedb7siEN4VQ73uCoytN6KIIjewaH242LZp9+T4dWdJfNvPjjkIju6rV9N
BnY3oX3vgnBoQENStJ/KAfev5BHDcYggnsl2+QNVX14f1tQScOhunSuLTA0Z
2h8uphxNo9aXFiSVTGV5P0G19Uwc2kqUFtqmclaA6e+efOr3aTd/G9VS9Rj0
JCavBIf0OOZCM6kcGFItG1yFQ9m9JbSLVF4M+/vVvB6HptlSrKXryGARLhAo
14pDZyxD8u9QuTPS5CShG4dK8w2mXlH5XMzjrtlBHDI7Mc7RT+Uc0vv7jaM4
lKnIc36Lypyxf7hSx3HIg/zjNlc9GYLjjtU/mMWho3u4F9JU/pdg7GCwhENa
HsRxdSrfTA5jE9vAISnsBXkDKnc9ryrZR8Ghqjm2LBMq8/asif+lxaMyld4z
RlQ2McBjzBjwSFb+7oQWlSP7RPpbmfDoD01vnQKVG4zUsmTZqO+X9X8SoPLW
gJnXCzwe0ZiYEeipLGXqoYs7iEfBdXqkMWq9jp9j+HwO4dHYm3CjMiqnXc39
N8OFR/a5q+ZBVB768rHJhBePvm+6lmtTme3GaMLHY3jknv/dmoXKF0ZXnSWP
41FOIL9TE7WfD81xkHISj4znD3V7Urn4+0l2JnE8qqdkJh2n8m9L1Ul3STzq
u/u6t4O6Xvw/b1T8OoNHatGM3s5Ujh6PtqhWwCOeSs2z8dT1b7LNkRJRxiN2
1lkTQSrvTNbvi0N4dDvIci+HqpdbMyt5dzTw6MwDZZoMqr4ynLB+o9p4JFZn
6XCAysOzwgZa+nh0qKLttj9VjxoL19cFTPDIkeun2wWqXlMPBvX7X8WjfIVv
z9Kpel5RfP1m9Aa1vrUHeWv/13/4tkOcNR4xfcmpIZZT+ymcMszkikfZ73JP
+VL9dPlSY6n9PTxqETfwzKX6LctjntjggUcHfOvHuql+NGpS0vL1xSPfqzTH
WKh+zbf+VrkYjkeMH2Y2FKn+pg2nj9OLxqMeQmuHAtX/V4tOueWR8Kh5ynJG
Ko9MvYf4idom4FEe5vlBQg5Vn895kz9nUtdzWrMvgpov+GFLn5o6PLo3a5L1
gJpX9pSwq9yNeFTDQnnBk0CG6hNvZTxb8Mg13wZVx5HByR2zINWFR4L7/7nN
PaXmCXuGeeZXPJq8MaDHTM3H+3q/VCLX8Ci1WTtC/xHVb/eZuX9vUseLGw+l
U/OYP+XMuvouHg3RPEuap+b1p9nANxQ6Auq1cUjw8CbDiceC/PcIBNRErmS8
dI/a/4+2NNfFCeiTm78JJzX/F8+PcPlKEtB68OA+JWsy7K+/JJN+hoA48I+S
zG+S4WztOYcpeQLqGi94EmtGhtj3+E9u6gT0L+fnfK8xGS6VVidEWBCQuc74
7egLZGjOPHj6A5GABN9mqIodI8N3oXCtsacEVNCh1DLIS4bVlxRrungC9T4y
VebDQwahF7PPtJ4TEM8L15+1h6h5kFq3PZhLQHcWLvzkxpJBJf6/lj8fCcgv
y2P31BYJyh43WvCvEpCyytVDQ9T9Nke743DYBgFpZvowjnSSIIm1r29hm4DY
3g6ajLSRIID44+J7WnZ0/o7r4R7q/q2bsCVhimdHDic/NhDfkeBX9mlKhBg7
sktn/n4rlQTYlpS0dSt2VEcI/PvCiQT29O5jXV3saEuLjYN/nQg2bg/LWJMO
INMTpMbC/USQdBDr0rU6iAqYG8hMbNHQzS7O4q7AgcgaUfHvGiLgfWFgsjgd
J3pzPOqaQOITeEgjernzGycqMs8slrgYBsyj3poupYcQ37q351dcCExmHYtN
8zmMekojv+5yBkHsySP7Kk2OIAczN2wo+yMgJtm3WPFzodY3NpqBGX5wPda8
i3WaC5VvSNwIvPMQNi5kbqbVcKM6u6QpN+QJ45Oqnh/DeJBdxZ1wkwh3eKEs
xf3J6iiKGhQL4xh3g4IQd4LDKV6kOLrh9yzbFcJMbHToVnlR6th1TzrL2yA7
mpEb9okPiTi+mS+JdoIEkeSCTzr86LtZ8SyPnT3410Ul6FTyU8/v6z9XzGxA
j9sks13oGIq7Mi7eXXsTzru03CA8OYbC2baPtMuYQxqPtVDn6jGUFukq8prv
Ggg1ZMfp3xBAlCe/cn+1mwDx1EfRvhoBtLTA1ftkwRDsl/f1tokKIiW2gUvb
cpfBuugf/5MYQVQiheiVWXThv0CjHW2SIOoquIFWNnTA3aj0M+tT6ni0SlH5
lA48XnWPJsYJos0Yb27zjzpQqLC5Hf9cEF0t17aV9NaBzXrKUNZrQVTX+cR2
Yk4biH2sUY0tgsjbdSrF7rMWJL287RjaJoiEcvIqHzRrwcv7XWqaHYLoDYmk
HVumBeWcxK2OLkGUfEyvaP6pFoxeP+DYPyiI4En1nyMGWiA8fkTt17ggGsl8
dNDqkyacLvXmfTUpiM4xNlcc+qAJ50K+btpNCyLlPwH3h/M1QVf4+dvfs4Io
3yaa2zNSE9yc+XmXlgQR8xzLE0ldTfBRerRZvCyI4m+vap1V0oQQtl8D91cF
0YUmutWL4pqQ8OZlxMaGIHW/PrIcwqoJLwL2OVRtCSJHxvlzpTsa8NrATtVn
h/q/hg9N5+c1oFSg+ajKniDST5NGEt80oGb5xCaFIojeiQf/8/qkAf8DCGtD
aA==
       "]]},
     Annotation[#, "Charting`Private`Tag$8005#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "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.7518192563304825`*^9},ExpressionUUID->"2d42952f-68b6-4996-8936-\
706f8239c9f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"r", "/", 
         RowBox[{"(", 
          RowBox[{"2", "a"}], ")"}]}]}], ")"}], "^", "2"}], 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "r"}], "/", "a"}], "]"}]}], "/.", 
    RowBox[{"a", "\[Rule]", "1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.04"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.751819270889556*^9, 
  3.7518192768725233`*^9}},ExpressionUUID->"9c791e34-2bc5-46ac-9db3-\
5a771ff49bda"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVl3k4Vd8Xxi8i4x2ECkmuUohMlXDXCmWWucFUksg3SREyZUiR4Z6EkKEi
hMoUUilTIxnSpFKGSlTKPN3f+f11ns+zz3n2Pnu977vXXuN2zOYQN4VC8eOi
UP7/PFnq4i0gMA6nxcqMvgRfB4Oo0fYgnXFIVl9WvjbhGvgUwz4Fk3GofHV8
0mDXNcjoYA90O4zDUyfN5X8Z1+DP6s0zqn7j4NGlITmbfhWy68PkhgrHwYDd
X5hdmgfTEzR/G4kJOFOf0N3dlwPMVW4cDnMCjpeKDCoH5IClYeX5UrUJ4G7R
NI4VzoF8Yk82v8UEWPO48+vqZoONal7rg6gJ4OjzCfnfyIJST3VJpbEJkPFr
Eiu+eRncPtg95HkxCdfbDh1scU0BwcwvR4+/m4Qf0WVKWctSoHyfj/TnoUlI
8goK0n5yEXjexwbVcU0BspWZzRoX4frbOo3jW6YgYDY3YXYZAUOvZQs/XZ2C
4snC7R6/kyDxUqmD+e0p8FPbItHgkwSb7bfx1t2fgmjPmBthvxMhttvW7dLb
Kaiqez+2eiIB1nedlTanTsM3e5OEUvoFOPJqJLk2aBped0hMd509B6LJQaAQ
Ow3lPZc9bKXOQd0uvl8pKdNgquI9Q78TC0Ltq818b02Dq2v4fr2+s1Dy0oZX
YXAaNn9PeiRlEQO/ntUEpVjNQNX2NfKLLpGQGrdjPbfLDAwsMy+25YsElmln
zzHvGUgTbFBoKjsDSU9/apidnQHqYSgb5T4Dm57I/OKqn4E37TFo4xsOx5uj
3Y4pzIKfwYra2cJgkBnYyTepMQt1ZRGdd+WC4Tm3QHEIzsLl3TndG7KDYC0m
jJ3fOwuFPVnbZDMC4V3dpYjr8bPA0PSW4CoIgO23C7Lf/Z6F3NHS/ROCJ+BX
m6f+/vlZGEx8nZSW7QeZo4pDQ/xzEF3irvVQww8mFG9tHF8zB3szG9Ivuh2H
ovy79VS7OdCvH97Ae/0YMDKfvDeomYOV+uFUxZ9e8KA2LuxZ0xzk8qTLnEMv
8H5rLmfdMQcB9RJ7MtI9oVm8w8tleA7+y3lxrcXqMAQlv5sOlJ6HlcMJLbf6
3GHdrcwszvp50FP3EZc1c4eul854VmseevKUlkrXHISNQl9jL1rOQ1DjA8lr
l93gS8ywRFnEPCjFR8ceCt4PiddL6jQT5oG9yS/cbswVdBp9XO5dngeW6OXm
G39d4BLlX/6T8nloSZ1ae5bHGUxOz2n2D8zDW3H70FXOe2Hy8v23XmPz8HvX
rog/YXvgWk14yJ+Fefh2xNPNIH83LEzwNC1ILIB39Ianhhx7uOMrbLvCZAG+
nerbcP+bDbzIWBZU6rAAlwIUry1I28BQk2SOvvsCVJUs5GjutgbJlRt+/he+
AFvsrJoqK3dB9KMdUY+qFkB5IH5NqaYpZP80L3JoXIBtvYEHt44YQ424XfvP
VwvQICCryltqBKNeblISIwugYaajTjfdAQ6i4RVH5BbBSiL1e8lvBF/ds+84
qouQpGciJvAJIM4jgZOitwijybk+E6N68LAu0+zhnkXIH5ay/Ibb4P3A1eN2
HouQFmhyODtqK4xTi9N+nFiEXmA8nOjZDOsP1vQvS1oEzmgw42eZBugnPBQo
yloEwWfXruhqqIPT3RZVVvEiVKg2x11q3QRsodenPZsXYdNoYVUiKEOJVm/e
Quci5NIyom62bIAW1/5Wom8R5kot5Ur/U4DZirFl9+cWIfWcgvw2MSaIfZrW
thHgQPbcVxdN8TWgwk/Z/02CA2FBoZu+HpYBY/WlZ0PkOVDYsKHduk8SDjpR
SxjqHEjc/qxqw8XlEHZWvLMAOFAx6jzSGy4G6belp3UsONDJe/nQ53wGlL9n
ynTs48A9Ke05MwEqvFiiZOjhyQGBRpcx8y0CMKSifmTOnwM+z8Z4bnUvAcpe
7eTkKHK8INjuQB8FJKOwei2bA/7RPhlF5bMsrVKj3rpsDvBSNPWmQ8ZZVm8s
ua1KOGAbqPpPRecX6wiXw/rBWg7sk2s9+U1+kBWt5GwZ3MqBtP8Kc/4d+sDK
tnc/SXvNgVPKv1doxLSzasK9M65/5YDy2Iigr8t9VleRX4P2Hw4YcVXGyH7L
Zf3qChpqW+CA6aJb2btXhqwl4chXzktBw+UOCj2RbBZDzPByiDAFvYtKZ0Vn
KlkyRUbKRssoqJZ2ITjzxxOWEsvsIUOSgt26bRPjFT2srV2WNr2yFDQqs5Wf
nfnC2uFpM1igQMEClbUe5yWGWTYL9oHHVSiouSNf5cfrMZYrsVdIV4ucr/LC
G27HKdZ/Cs7ZfLoUvCO+FEvTF1hB9fvVOvQpWDyanxG1kxvOWrs3ZZpQMPze
aeeVUnyQMnR4t4cVBc0DWVGKJoKQd9p7eNNuCq68aqn3vJ0KmxoEpmOdKagz
+PqgUQkDGpYU8n4+SMHdU9WdpyXEoC9hQDbBl4KOxxemB/atBN/OSJWBAArW
rFTd5aopDRyJNbo6oRQ8s0Qqfov6apDJdd794zwFt95fUvb0hRyUDcy5YzIF
3ZIVMjedkQe9DRl+aakUJKbyH9KN1oFTeU/CjmsUjPugvCKOTxEymnY15dVT
kCo/uLtVQQ0UBX51TD+moMrt5nD/HepQa3Hh866nFByRzrBS89aAtz1PZhde
k/PJb1oW2qYFEj+2q+37TUF5+fpqyb/boGBjH+vOBAVjvcWfD1vogpZfmDn/
PAUX9lFt5O7ogd1c3eFqfi4sjdNPvrcTgRDRzBaV48JtX7R8mi0MQM6m86bX
ei6s9gt21FxhCHdSfWsbVLjwRqbgcv4hQ3i1urTbR4cL/e6vq7kbvxOo6uuE
nttxoZPtPXvVRROIc1gRGBXLhX12I0dr7lmBZGZ1zPsELmwUX9vyXdsaij7b
XVRL4cL5mp64yFpreOLJLvucy4WMO2+YX+ptgO+04KBOHRe2RWNlV5cdRObM
W4+PcGHUpuCeX6y9YLWp5rjSPy4UvOJv8b5tL8g8OsF2m+FCHmlv5lfXfVD3
dfjVK15u3Cg+6LQ1xhH+rn23q1SGG/n2dpzM6HUGt5IqCw8rbryQqmJNOB+A
7bU+Jm8ruLGWNplBSfYASlcf1gfz4E+9U6XS076w7qRHoJ0iLzbta8i6YhoG
AxNpDkL3+fDFM+3MIuUYuLpd48THRj4U6n97zm9HDLgmtCXdesaHdut+LN3o
EgPv5Xmf2r7lw7XV/+kHJMVAh62fTtY/PnRNyvB3GIuBB3fMZTcqLsUDXhEH
tMrPQtpRrmHLtKV4eTHc757CObCrzeJbk70U7zXem4lkkf0D71bmv+tLkakr
Nb3V/hwkZvk4pZUvxYu+/MK+kecg+vmHts8vlyLViBbK33sOfDdUV/gu4Uda
Z15XZ/x5MB08Ekoc58dojabfzh/jYGcos8QwkB9FV20VOTkWB/rive8nw/iR
6w7L8xRvPGzbYbHV8QI/XpmzKdmxMR4U81X/MW/wY0TtJQvO6XgQOjTuWdXL
jw4/S4o+iV+AFwOhdm+NBDC/9luruE4CPAnZHBVnKYAJX1bVPDZPgCax33d0
7QXwzGDVH0eXBKg33E/LcxPAkD1p623PJEDJdf1nXqECCDJaOnYtCZDgvhTn
ygUwpeVvxRXzRLAcSFaSkRHE4VIuA13TJHihNNDtJC+I0y03+j32JIHZiS1h
mYqCKLyDZ3WERxIYc396tWKLIJb9lvEIi0wCfVmlgGVWgvi+QlWvuDYJtJya
G/gjBbEqdea5q2gySHfP2P8bFESFVzWL4wHJkCFlwVEbEcRG57bv4yHJsPJg
bqHvX0EUs9feMhKZDBJ/d86NLgpifNVtvkeJyUCnp+R+Xy6EgWF5l3kKkoHH
XOXnRxMhvJzxYGa0MxmGG90inpQKYU7o9gb3dWxYzX57JLFSCJ+qiso/VGKD
nYulvd09Iex+evo2TY0ND6a1FfueCGHutuu7LuqwgdjI6J7qF8Lv7tu41lqx
QSftoYKCpDC2KG2R9T/FBl93LdFRWWE8+bz0skYIGwrUbs6XKwhjjv4mv+8R
bKC/SO1gaQljq4XKLq04NgxQfE47WAlje0G1nFMWGy4ckW6POSuMfNwRaV8e
sOHRFqLWLEEY1WwD2pc2smFyCf91Roowrhn0ypdvZcP+nH+BV/KEcYuTkK5+
Oxs0u5/JVdUL45F24XiRz2z4qBcUMPBXGEcd4kO+z7NBhdGzysBVBJuNr9q3
q5H9dsJQ5KVDIij1Sqc7W5OAK4JT3755i2C/rXC+xxYChJesKL8QKII3Cs0s
PusSMDy5d2cPWwRXbX6z3t+IgPzejz5eTSL4pzo/c7MjAU57f3XdeyaCY23v
mQnOBIj1LG6ldojgE69i6HUlILJ9NU/FRxFsnOnVd3cnYP/jA2nzkyKY0Rw9
KnWUAOnCwYdJG6jIE65wYWMoAd3yk/JfVanIFRJoSgsnID6PL05zMxVTJPL6
fkQQMJuhYPdOn4pbJj/kn48m4G2C13c5Jyrq9MlRT8YTkCwYbOHvRkWbQjPe
VQkEGMXGlbd6UtG72mjqQSIB1RE3Q/7zp2KaiPPHUTYBF0+M0qsTqdj16v3G
6TQCTP8s+PNfomKWl88pr8sEcB+lftiXSUXhc6afuzII8PVQzefcoKLhirtS
KVcIsNx7XNvkERU9zlU0Pb5KAF/PmezMVirWNXeELlwj4L4NwfPrJRVXm4sH
qeUToGxe8ZJ4T8WtbHHjmBsECMLEgd5/VPQJim7pvUlA4Pb1/NWzVPzr9iZ9
qoSsl4FjWRIXDSfs628KlhHw2PjRrD6NhjkH9hevvE3AJrPxXGkJGupIVeWJ
3yEg20LBaFKahusEWv8IlBMQbJNwsUiRhg/KnEo/VBDw3a5BO0qNhosFEetq
Kwlw2P3vs9NWGlqzrlKTqghQd9qrTN9JQ8dWJQP5uwTkulzo/GFOQ2kNvcx+
kqkHHgY22tLQXjonKLOGgJ+H1jYHHKBh5qnyvvFaAvZ57vG28qQhXV/cP7WO
gCdH4hmKx2j4bK3SjU33CLh+bMz5YwgNfbR65yzrCRD1k19yN4qG3Uaqil0k
R5zcXZwcR0OGcr6I1X1SX0H3Jw3SaXi8wVdI8wEBz07/yVqVQ64vJ0otk+St
YUyDqXwazl7WkJ8juSDC4cerEvL7nP0/bB+Seow6n1RcQUML8Z9n80mOjKnX
iq6j4Y2OCu4/JP+J/f3B+RENv4lkuWk0EOASJxe55QkN1V1jSo6R/OKC/XpG
Ow0rS6yHrpO8Lelc2/BrGjqt6xfvIrmQfe9kUy8N83Wkt8+SLJHySzK7n4YB
xOejko8IiE5d8+jUMA1XLdKuapD8N93usPUYDU0Ckvt3kLw/M1ZEaZqGalTD
rdYkt12pq1jCoWHdT5ECe5JlXk0q/+amYxWrQ92WZHtrOsWJj45aW48PmJB8
oXND1xMBOv7i6mjQJrnR1qBAS4R8v6rrpRzJs91OQVfpdOSyd2LwkqzmEGBO
E6NjdIMFu49cr+ebpNUhy+nYdyvOtorknD1Ff79L0tGjaMI5iuSed4+b7WXo
+GnGt9qUZBHH3vTHa+joX/LJTYhkw94Jb9W1dCyMlPVqJvfztDMNstbT0W5k
eXsgyeWf1osKKNPxESc/Yy3JP1z1B/1V6dh5/GbHc7Jesl8ca76q09EgkT/Y
m+TE/kSXem06Stcab04j69/sXqi2QY+OosLD9kyS5wcfLUlFOh6Ncl0sJPVy
5Pt48TEjOqqf0uPKI/WV50UN6zWlo1KD6+FlJL8dVrA2saTj8pqnR8NJPRqN
7puSs6ejp+QXP0NSr9liUV3he+hYov3xUi6p53Gdm7d6Hcn1TZ4qnvy//uPm
Dqe60VHgXeGD5GpyPxWy3gr40vHG3aKNoaSfrHY1VXqcoGOrsnVgEem3goCR
5MYAOi4LfdTXTvrRtlnXJDSUjqF7uNYIkX4tcftY+yeOjvz3v0/rkP7mjuNN
tUik4yvGk+fapP/33NnoV8ymY8uQ63e1YoK8h4QpuqfTsZhyRYxRSOrzikzm
m3yynt+MO+PJfKG/dQ150EDHE8P2BafIvPLgxO6RaqLjAyHOVel0AurX3dYM
bKWjb8lBrE8lwMufMqrWRkfm0r9+Py+SeSKa55z/gY6Djt0WgmQ+nrT4yrow
ScfsFtN4yzOk304KSv2YIcfLm5bnknksm6U+tWOBjj1clzJGyLx+ORx5i8PD
wI6Dh9MDgglYd44pe4LBwGailn/XCXL/H7tz7VNm4Eu/cHsJMv//bH8vGarK
wKno10t03QhY+miXZq46A8XpZzKc9xOw+eG2w0NbGdjWX3o+xYmAlHv0l347
GPi38MtIhx0Buyrr0+NdGOhs1n800ZCAlnyxTfeTGci8naevtIaAT/JxJn0X
GVj6XLf1tQwBE9c4bjxpDPI+MlQVIk2A/NXhSyZXGCh91ffLw+VkHmQ3zL0u
YuCxUcMvUlQCWGn/tf56zMCwgoCFjbNsqDrX5CI7wUA91p7lPeR5W2j6fEXs
NAON80P4379gQ4ZwZ+foHANFbr+2f/+UDRHJn3fe4xbF7cd8V7wiz2/z9FkV
B7ooHl7/uDH5Lhu+3tjEiVcSxUO5gp+OZLOB2pqVM3VAFBsYkb+verHBg9e/
r61NFGdNRMRlp5LhoN/pKuGMZeiwjt1UtjQZVA8rtZkfEMNSwUZCQCQR2kWV
hfy1xZEwSki72xgP98oiM5V5JPDW2oS9cpfPw2kuRasXHyXwjnN+ucrOWBDs
DTb2qVyOq6eCAz/QYmCwYE1KTsgKfFV54cOCRBSkrF+5pNZ+JR528qOeFT0D
yRkerQdkJfHJrYPGkXlhsC/FuU34myRWT6s4Rh47DdOG+TM5D6Sw4VDGkB8G
Qv+gfuDjWGk8VHMszj7eH67qqUm9PLAKE14rxYr3+0FpjD/j8EYZ1OmdDrt0
wxdi7Q+a8UzIYHbfvkAe16Og1ZtXFPtyNW7wvDVSkegF6RsyS1+ayeInp/Jh
6UMeEN6QkG5WK0v271Nfxp0OgoWUff4z+TWYurtfuf3hftju0+rIOL8G40Tm
Vj7TdIYcaTf5FxNrMOeC74abq/eCfOONVEtHOeSc/1r09Zk9JG98rNj5QA7H
RiU7zo/agMe/JR1PFZmoK9K9a26LFbjd+St7PomJFWrIqydkDv9F2s6bspnY
VuqI49Nm4G9b+Ub4IjmeyLpTPWQG5yb8E5NTmTiTFCzl/NgMyrRn5tKuMHFP
tam7arAZzDzi9BTcZGLDi/PuAz9NIblTOKGplYnBvkNZh96YQMa1o55nnzJR
vrC49lSLCVw72WZg/JyJt9hs05QqE6iWSJ593sbEzDUWd0YumkDvvmWeXa+Z
COfrf620NgGF/pUGX/uZ+D7/jNiBl8awqTJY5vogE7fxt9Qsv28M22I+zBz6
xkS9XxEn35YYg7nClds/hplYcjBRKvCCMfh5y8qMjTFR8KfQeVVzYwjRPTNT
/o+JaUcnTDbrGkOMyNfukxNMNGzmmdipbAzpt67FT08zyfN65b8YYWO4GrHk
cN0sEz35R7ZVzhvBTetD+iHz5P/anHYYGTGCSrmWVaxFJlrmaKDKRyN48G/d
DIfDxLvK0X+DXhrB/wDXXJSf
       "]]},
     Annotation[#, "Charting`Private`Tag$8057#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 9.999999795918367}, {0, 0.04}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.751819277544241*^9},ExpressionUUID->"4d1caa33-7651-408d-b1fe-\
a207e42767e3"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{759, 833},
WindowMargins->{{Automatic, 572}, {64, Automatic}},
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 232, 4, 67, "Section",ExpressionUUID->"33e8abc7-4c2b-4d4d-993f-b248690857c9"],
Cell[CellGroupData[{
Cell[837, 30, 445, 14, 28, "Input",ExpressionUUID->"a483858f-9ce6-4939-9a74-c9a5e61ab27c"],
Cell[1285, 46, 538, 16, 69, "Output",ExpressionUUID->"56572f2a-2f8e-4be3-a335-7fad4db9436a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1860, 67, 290, 7, 28, "Input",ExpressionUUID->"bba480f9-fc8e-4da8-ac9c-bff345ac0d4c"],
Cell[2153, 76, 336, 9, 32, "Output",ExpressionUUID->"eb5aa348-2298-410f-97e3-54c6579b6ada"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2526, 90, 657, 19, 28, "Input",ExpressionUUID->"4e1650ee-d9db-446e-abbb-3d8be35e5047"],
Cell[3186, 111, 1065, 35, 77, "Output",ExpressionUUID->"853b823c-c92b-4f87-9b42-8ebfb958c22a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4288, 151, 184, 4, 28, "Input",ExpressionUUID->"874ed07b-6b93-47e6-b3a2-caab9bf29085"],
Cell[4475, 157, 1103, 37, 77, "Output",ExpressionUUID->"c531d866-bd68-47ca-9cfb-6f957b946d22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5615, 199, 488, 9, 28, "Input",ExpressionUUID->"cbc92917-e7ef-4a81-a9ee-f0514a5d7ab8"],
Cell[6106, 210, 507, 12, 39, "Message",ExpressionUUID->"42a78122-bd35-45af-bca0-2cbce05026e1"],
Cell[6616, 224, 787, 24, 43, "Output",ExpressionUUID->"7cd04f2a-5198-410a-9176-bfccf62ee438"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7440, 253, 343, 7, 28, "Input",ExpressionUUID->"6b6726e7-22b9-44dc-9536-9538917d4e9a"],
Cell[7786, 262, 658, 21, 43, "Output",ExpressionUUID->"09ac7f34-c630-4d51-8a7e-9fec589dd7c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8481, 288, 233, 6, 28, "Input",ExpressionUUID->"a6646c94-f26b-452b-b6ac-7bfdc0aeb83a"],
Cell[8717, 296, 150, 3, 32, "Output",ExpressionUUID->"1349630e-bbe3-4446-8d89-e7cd9a3f3643"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8904, 304, 235, 6, 28, "Input",ExpressionUUID->"97d47d05-54ce-423a-b2f1-afd66d108732"],
Cell[9142, 312, 174, 3, 32, "Output",ExpressionUUID->"a9fe57e5-94a8-4f8a-82f6-634035980c71"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9353, 320, 758, 22, 28, "Input",ExpressionUUID->"ac94556c-403b-4adc-ac19-52da200dd9ad"],
Cell[10114, 344, 12652, 227, 243, "Output",ExpressionUUID->"381ed21a-10e6-4222-8e8f-6247b7122c5e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22803, 576, 650, 20, 28, "Input",ExpressionUUID->"78721617-02e5-4798-b413-d725e4ea2503"],
Cell[23456, 598, 10928, 199, 238, "Output",ExpressionUUID->"2d42952f-68b6-4996-8936-706f8239c9f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34421, 802, 700, 22, 28, "Input",ExpressionUUID->"9c791e34-2bc5-46ac-9db3-5a771ff49bda"],
Cell[35124, 826, 9169, 168, 251, "Output",ExpressionUUID->"4d1caa33-7651-408d-b1fe-a207e42767e3"]
}, Open  ]]
}, Open  ]]
}
]
*)