karthik/Calculations
1
0
Fork 0
Code Issues Pull Requests repo.project_board Releases Wiki Activity
547387b8a1
Calculations/Estimations/ToQuasi2D.nb

2790 lines
102 KiB
Mathematica
Raw Blame History

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 103927, 2781]
NotebookOptionsPosition[ 88773, 2516]
NotebookOutlinePosition[ 89229, 2533]
CellTagsIndexPosition[ 89186, 2530]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Integrating out z direction", "Section",
CellChangeTimes->{{3.901768573969661*^9,
3.9017686010508842`*^9}},ExpressionUUID->"9363a600-1583-4616-8724-\
f4b1bbd892c1"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[CurlyPhi]", "[",
RowBox[{"z_", ",", "\[ScriptL]_"}], "]"}], ":=",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["\[ScriptL]"],
SuperscriptBox["\[Pi]",
RowBox[{"1", "/", "4"}]]}]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
SuperscriptBox["z", "2"]}], "/",
RowBox[{"(",
RowBox[{"2",
SuperscriptBox["\[ScriptL]", "2"]}], ")"}]}]]}]}], ";"}]], "Input",
CellChangeTimes->{{3.901768609407528*^9, 3.9017687392860403`*^9}, {
3.9083597491104045`*^9, 3.9083597517002287`*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"e69b905f-04c3-4399-8fb9-af27a5a43ad7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[CurlyPhi]", "[",
RowBox[{"z", ",", "\[ScriptL]"}], "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"PlotRange", "->",
RowBox[{"{",
RowBox[{"0", ",", "1.5"}], "}"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0.5", ",", "2"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.908359756150457*^9, 3.9083597965780897`*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"67872261-0271-4eed-9b17-131564919bb4"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`\[ScriptL]$$ = 0.612, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`\[ScriptL]$$], 0.5, 2}}, Typeset`size$$ = {
360., {115., 120.16457859775929`}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`\[ScriptL]$$ = 0.5},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[$CellContext`\[CurlyPhi][$CellContext`z, \
$CellContext`\[ScriptL]$$]^2, {$CellContext`z, -2, 2}, PlotRange -> {0, 1.5}],
"Specifications" :> {{$CellContext`\[ScriptL]$$, 0.5, 2}},
"Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{408., {159.13403309800196`, 164.86596690199804`}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.908359746950466*^9, 3.9083597583700294`*^9}, {
3.908359796790283*^9, 3.908359803060238*^9}},
CellLabel->"Out[7]=",ExpressionUUID->"7246a854-7b0d-4d94-9642-8dfd54e3e807"]
}, Open ]],
Cell["Normalization", "Text",
CellChangeTimes->{{3.9017694696895485`*^9,
3.901769472496006*^9}},ExpressionUUID->"ec73a306-384c-47aa-b91b-\
381b138e64ea"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[CurlyPhi]", "[", "z", "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}],
",",
RowBox[{"Assumptions", "->",
RowBox[{"\[ScriptL]", ">", "0"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.9017694753214097`*^9, 3.9017695862510834`*^9}},
CellLabel->"In[33]:=",ExpressionUUID->"f18bbffe-81ef-48c7-9ed2-1a19bede3cbc"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{{3.901769514096301*^9, 3.9017695423562527`*^9}, {
3.9017695858784184`*^9, 3.901769591670944*^9}, 3.90187721189318*^9,
3.902480674035485*^9, 3.904205263182337*^9},
CellLabel->"Out[33]=",ExpressionUUID->"e7cf864a-bf83-45b0-a595-4e464afc0fb8"]
}, Open ]],
Cell["Kinetic Energy", "Text",
CellChangeTimes->{{3.9017696364684873`*^9,
3.901769638730688*^9}},ExpressionUUID->"638d88a8-a5bb-4dd3-8441-\
1e0f36c5d26e"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"\[CurlyPhi]", "[", "z", "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"\[CurlyPhi]", "[", "z", "]"}], ",", "z", ",", "z"}], "]"}]}],
",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}],
",",
RowBox[{"Assumptions", "->",
RowBox[{"\[ScriptL]", ">", "0"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.901769601505942*^9, 3.901769610475894*^9}},
CellLabel->"In[34]:=",ExpressionUUID->"b948d27f-2a3b-4906-b17a-9e146262a970"],
Cell[BoxData[
RowBox[{"-",
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox["\[ScriptL]", "2"]}]]}]], "Output",
CellChangeTimes->{3.901769616875665*^9, 3.901877216651908*^9,
3.902480678747199*^9, 3.9042052685520973`*^9},
CellLabel->"Out[34]=",ExpressionUUID->"0856c51a-a34c-4d9d-9443-551e2ea1a2f3"]
}, Open ]],
Cell["Trap Energy", "Text",
CellChangeTimes->{{3.9017696432154093`*^9,
3.9017696478057737`*^9}},ExpressionUUID->"2ee65a03-bfda-4dda-ad55-\
24c3306a698f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
SuperscriptBox["z", "2"],
SuperscriptBox[
RowBox[{"\[CurlyPhi]", "[", "z", "]"}], "2"]}], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}],
",",
RowBox[{"Assumptions", "->",
RowBox[{"\[ScriptL]", ">", "0"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.9017696552357645`*^9, 3.901769658195774*^9}},
CellLabel->"In[35]:=",ExpressionUUID->"fc9c4c67-d0f4-4e1c-8bb7-7c5cc799f528"],
Cell[BoxData[
FractionBox[
SuperscriptBox["\[ScriptL]", "2"], "2"]], "Output",
CellChangeTimes->{3.9017696614507*^9, 3.9018772185457706`*^9,
3.902480680609354*^9, 3.904205270612306*^9},
CellLabel->"Out[35]=",ExpressionUUID->"fb82084d-ccad-452d-aa1b-e6825e87d4c9"]
}, Open ]],
Cell["Contact Interactions", "Text",
CellChangeTimes->{{3.9017697217535152`*^9,
3.9017697252996044`*^9}},ExpressionUUID->"b7761400-cc50-49a5-8152-\
31201d5382fb"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[CurlyPhi]", "[", "z", "]"}], "4"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}],
",",
RowBox[{"Assumptions", "->",
RowBox[{"\[ScriptL]", ">", "0"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.90176973040853*^9, 3.901769733057481*^9}},
CellLabel->"In[36]:=",ExpressionUUID->"572f799f-6e36-48d6-9bbd-f0d09d33a48a"],
Cell[BoxData[
FractionBox["1",
RowBox[{
SqrtBox[
RowBox[{"2", " ", "\[Pi]"}]], " ", "\[ScriptL]"}]]], "Output",
CellChangeTimes->{3.9017697383436155`*^9, 3.901877222617774*^9,
3.9024806852193527`*^9, 3.9042052749123554`*^9},
CellLabel->"Out[36]=",ExpressionUUID->"cef2bf7a-27d9-4ddd-b3a4-d9e6fffb07dc"]
}, Open ]],
Cell["Quantum Fluctuations", "Text",
CellChangeTimes->{{3.9018580696954136`*^9,
3.901858073827981*^9}},ExpressionUUID->"3c3a85ee-1cb8-4b02-97ff-\
6e8933798b7c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[CurlyPhi]", "[", "z", "]"}], "5"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}],
",",
RowBox[{"Assumptions", "->",
RowBox[{"\[ScriptL]", ">", "0"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.9018581318549895`*^9, 3.9018581323952374`*^9}},
CellLabel->"In[37]:=",ExpressionUUID->"8affe6ea-34e9-4e2a-a212-417cd7697747"],
Cell[BoxData[
FractionBox[
SqrtBox[
FractionBox["2", "5"]],
RowBox[{
SuperscriptBox["\[Pi]",
RowBox[{"3", "/", "4"}]], " ",
SuperscriptBox["\[ScriptL]",
RowBox[{"3", "/", "2"}]]}]]], "Output",
CellChangeTimes->{3.90186174010208*^9, 3.9018772266937695`*^9,
3.902480689316049*^9, 3.9042052792833595`*^9},
CellLabel->"Out[37]=",ExpressionUUID->"62e6cea9-f547-428e-903e-c6b17170493b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{
SqrtBox[
FractionBox["2",
RowBox[{"5", " ",
SuperscriptBox["\[ScriptL]", "3"],
SuperscriptBox["\[Pi]",
RowBox[{"3", "/", "2"}]]}]]], "==",
FractionBox[
SqrtBox[
FractionBox["2", "5"]],
RowBox[{
SuperscriptBox["\[Pi]",
RowBox[{"3", "/", "4"}]], " ",
SuperscriptBox["\[ScriptL]",
RowBox[{"3", "/", "2"}]]}]]}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"\[ScriptL]", ">", "0"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.901861747608756*^9, 3.901861784118245*^9}},
CellLabel->"In[38]:=",ExpressionUUID->"f42d2715-8c00-4979-aa85-a0780896b1bc"],
Cell[BoxData["True"], "Output",
CellChangeTimes->{{3.9018617696152573`*^9, 3.9018617849483504`*^9},
3.9018772268340807`*^9, 3.902480689459119*^9, 3.9042052794773703`*^9},
CellLabel->"Out[38]=",ExpressionUUID->"08ec8d82-d98f-45ae-a4de-f44611d20336"]
}, Open ]],
Cell[CellGroupData[{
Cell["Energy", "Subsubsection",
CellChangeTimes->{{3.902307577239281*^9,
3.9023075781388435`*^9}},ExpressionUUID->"ff525df7-a128-41a8-baec-\
7180121ebee6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"D", "[",
RowBox[{
RowBox[{"\[CurlyPhi]", "[", "z", "]"}], ",", "z"}], "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}],
",",
RowBox[{"Assumptions", "->",
RowBox[{"\[ScriptL]", ">", "0"}]}]}], "]"}],
"\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.902307580758333*^9, 3.9023075832586*^9}, {
3.9023076652297626`*^9, 3.902307673648929*^9}},
CellLabel->"In[39]:=",ExpressionUUID->"4a643741-089f-44fa-a0eb-039afa1c50b6"],
Cell[BoxData[
FractionBox["1",
RowBox[{"2", " ",
SuperscriptBox["\[ScriptL]", "2"]}]]], "Output",
CellChangeTimes->{3.902307676847986*^9, 3.902480691336608*^9,
3.904205281455332*^9},
CellLabel->"Out[39]=",ExpressionUUID->"998187e8-1389-4134-a125-e4b1fdc34e58"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["DDI", "Subsection",
CellChangeTimes->{{3.901967996956024*^9,
3.9019679972859774`*^9}},ExpressionUUID->"15198319-dab5-4208-9790-\
943047714c15"],
Cell[BoxData[{
RowBox[{
RowBox[{"Fpar", " ", "=", " ",
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"3",
SqrtBox["\[Pi]"],
FractionBox[
SuperscriptBox["qd", "2"], "q"], " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Fperp", " ", "=", " ",
RowBox[{"2", "-",
RowBox[{"3",
SqrtBox["\[Pi]"], "q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}]}]}], ";"}]}], "Input",
CellChangeTimes->{{3.902208280490345*^9, 3.902208281500071*^9}},
CellLabel->"In[40]:=",ExpressionUUID->"35bff2c5-708c-4710-aae1-511cf7049877"],
Cell[CellGroupData[{
Cell["Infinite momentum limit", "Subsubsection",
CellChangeTimes->{{3.902206162264982*^9,
3.902206174149441*^9}},ExpressionUUID->"b09fbee7-6d5f-4b82-93c3-\
81e98fc7bcb3"],
Cell["Large q, expand in 1/q", "Text",
CellChangeTimes->{{3.9022024534921265`*^9, 3.902202454485592*^9}, {
3.9022062003917*^9,
3.9022062049594874`*^9}},ExpressionUUID->"766e7b17-6777-416b-bc00-\
0cbfe4db807b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
FractionBox[
SuperscriptBox["qd", "2"], "q"], " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}], "/.",
RowBox[{"{",
RowBox[{"q", "->",
FractionBox["1", "\[Lambda]"]}], "}"}]}]], "Input",
CellChangeTimes->{{3.9022025324218073`*^9, 3.902202548334914*^9}},
CellLabel->"In[42]:=",ExpressionUUID->"70566162-59c6-48ee-9d64-129d9cf11054"],
Cell[BoxData[
RowBox[{
SuperscriptBox["\[ExponentialE]",
FractionBox["1",
SuperscriptBox["\[Lambda]", "2"]]], " ",
SuperscriptBox["qd", "2"], " ", "\[Lambda]", " ",
RowBox[{"Erfc", "[",
FractionBox["1", "\[Lambda]"], "]"}]}]], "Output",
CellChangeTimes->{3.902202548988854*^9, 3.902480691361744*^9,
3.904205281507166*^9},
CellLabel->"Out[42]=",ExpressionUUID->"1c92b392-1cd5-46da-a528-223d39650ef7"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{
RowBox[{"Series", "[",
RowBox[{
RowBox[{
SuperscriptBox["\[ExponentialE]",
FractionBox["1",
SuperscriptBox["\[Lambda]", "2"]]], " ", "\[Lambda]", " ",
RowBox[{"Erfc", "[",
FractionBox["1", "\[Lambda]"], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Lambda]", ",", "0", ",", "6"}], "}"}]}], "]"}], "//",
"Normal"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{"\[Lambda]", ">", "0"}], "}"}]}]}], "]"}], "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
FractionBox["1", "q"]}], "}"}]}], "//", "Expand"}]], "Input",
CellChangeTimes->{{3.902202608107002*^9, 3.902202697153228*^9}, {
3.902217694674529*^9, 3.902217695189849*^9}},
CellLabel->"In[43]:=",ExpressionUUID->"796e77d2-f82b-4a70-a20f-2b1bf7bb8fd5"],
Cell[BoxData[
RowBox[{
FractionBox["3",
RowBox[{"4", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox["q", "6"]}]], "-",
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox["q", "4"]}]], "+",
FractionBox["1",
RowBox[{
SqrtBox["\[Pi]"], " ",
SuperscriptBox["q", "2"]}]]}]], "Output",
CellChangeTimes->{{3.9022026240644703`*^9, 3.9022026976435227`*^9},
3.9022176955021334`*^9, 3.902480691433489*^9, 3.9042052816471624`*^9},
CellLabel->"Out[43]=",ExpressionUUID->"6a0e3f99-f99a-4604-9eb1-cab5dfb56c3e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}], "/.",
RowBox[{"{",
RowBox[{"q", "->",
FractionBox["1", "\[Lambda]"]}], "}"}]}]], "Input",
CellChangeTimes->{{3.9022160064756937`*^9, 3.902216010571426*^9}},
CellLabel->"In[44]:=",ExpressionUUID->"70618c21-5497-499a-b1f1-76c64d598d56"],
Cell[BoxData[
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
FractionBox["1",
SuperscriptBox["\[Lambda]", "2"]]], " ",
RowBox[{"Erfc", "[",
FractionBox["1", "\[Lambda]"], "]"}]}], "\[Lambda]"]], "Output",
CellChangeTimes->{3.902216011570737*^9, 3.9024806914524555`*^9,
3.9042052816822615`*^9},
CellLabel->"Out[44]=",ExpressionUUID->"f64b9ca5-cf41-4f58-aed6-86ccc84e41a1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{
RowBox[{"Series", "[",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
FractionBox["1",
SuperscriptBox["\[Lambda]", "2"]]], " ",
RowBox[{"Erfc", "[",
FractionBox["1", "\[Lambda]"], "]"}]}], "\[Lambda]"], ",",
RowBox[{"{",
RowBox[{"\[Lambda]", ",", "0", ",", "6"}], "}"}]}], "]"}], "//",
"Normal"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{"\[Lambda]", ">", "0"}], "}"}]}]}], "]"}], "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
FractionBox["1", "q"]}], "}"}]}], "//", "Expand"}]], "Input",
CellChangeTimes->{3.9022160313331428`*^9, 3.9022174174061537`*^9},
CellLabel->"In[45]:=",ExpressionUUID->"62e3c3fc-dd6c-4666-9a07-3a70a3a43623"],
Cell[BoxData[
RowBox[{
FractionBox["1",
SqrtBox["\[Pi]"]], "+",
FractionBox["3",
RowBox[{"4", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox["q", "4"]}]], "-",
FractionBox["1",
RowBox[{"2", " ",
SqrtBox["\[Pi]"], " ",
SuperscriptBox["q", "2"]}]]}]], "Output",
CellChangeTimes->{3.902216031987528*^9, 3.9022174179411497`*^9,
3.9024806914985714`*^9, 3.9042052817427807`*^9},
CellLabel->"Out[45]=",ExpressionUUID->"46d3f17f-025a-441d-b8b9-63e714c0fca3"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Small momentum limit", "Subsubsection",
CellChangeTimes->{{3.902206162264982*^9, 3.902206174149441*^9}, {
3.902480711545215*^9,
3.9024807121463413`*^9}},ExpressionUUID->"c0f8f51e-2ccf-4eee-891e-\
a1a6cf7aec97"],
Cell["\<\
Small q, replace qd^2= qx^2cos(\[Eta])^2+qy^2sin(\[Eta])^2, and then qx=q \
cos(\[Eta]), qy = q sin(\[Eta])\
\>", "Text",
CellChangeTimes->{{3.902205305079792*^9, 3.902205305969432*^9},
3.902206143414604*^9, {3.902206219620907*^9,
3.9022063129362793`*^9}},ExpressionUUID->"dc945d09-54c6-41f0-bb7e-\
d96363dea68a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Eta]", "]"}], "4"], "+",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Eta]", "]"}], "4"]}], ")"}],
RowBox[{"Series", "[",
RowBox[{
RowBox[{"q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}], ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "4"}], "}"}]}], "]"}]}], "//",
"Normal"}]], "Input",
CellChangeTimes->{{3.9022053469516196`*^9, 3.9022053830891285`*^9}, {
3.902205423928773*^9, 3.902205427764455*^9}, {3.9022066357388887`*^9,
3.902206673655264*^9}, {3.9022074677524543`*^9, 3.902207476524296*^9},
3.9022216317227983`*^9, {3.9024807324874763`*^9, 3.9024807515512104`*^9}},
CellLabel->"In[46]:=",ExpressionUUID->"8c68a05d-2222-48c2-98ab-fffbf6f94f89"],
Cell[BoxData[
RowBox[{
RowBox[{"q", " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Eta]", "]"}], "4"], "+",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Eta]", "]"}], "4"]}], ")"}]}], "-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["q", "2"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Eta]", "]"}], "4"], "+",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Eta]", "]"}], "4"]}], ")"}]}],
SqrtBox["\[Pi]"]], "+",
RowBox[{
SuperscriptBox["q", "3"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Eta]", "]"}], "4"], "+",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Eta]", "]"}], "4"]}], ")"}]}], "-",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["q", "4"], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"Cos", "[", "\[Eta]", "]"}], "4"], "+",
SuperscriptBox[
RowBox[{"Sin", "[", "\[Eta]", "]"}], "4"]}], ")"}]}],
RowBox[{"3", " ",
SqrtBox["\[Pi]"]}]]}]], "Output",
CellChangeTimes->{{3.902205355784049*^9, 3.902205383549221*^9},
3.9022054280192056`*^9, {3.9022066599868655`*^9, 3.902206674387089*^9}, {
3.9022074682356157`*^9, 3.902207476751182*^9}, 3.9022216324976287`*^9,
3.9024806915671253`*^9, {3.90248074815749*^9, 3.9024807520916033`*^9},
3.904205281774434*^9},
CellLabel->"Out[46]=",ExpressionUUID->"5b6f8065-09d1-429c-849b-87466a19dcb2"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Series", "[",
RowBox[{
RowBox[{"q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}], ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.902205471210629*^9, 3.902205481291333*^9}, {
3.9022216400025525`*^9, 3.9022216403080854`*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"5277fab4-2ad5-4f47-91cb-146f19862112"],
Cell[BoxData[
InterpretationBox[
RowBox[{"q", "-",
FractionBox[
RowBox[{"2", " ",
SuperscriptBox["q", "2"]}],
SqrtBox["\[Pi]"]], "+",
SuperscriptBox["q", "3"], "-",
FractionBox[
RowBox[{"4", " ",
SuperscriptBox["q", "4"]}],
RowBox[{"3", " ",
SqrtBox["\[Pi]"]}]], "+",
InterpretationBox[
SuperscriptBox[
RowBox[{"O", "[", "q", "]"}], "5"],
SeriesData[$CellContext`q, 0, {}, 1, 5, 1],
Editable->False]}],
SeriesData[$CellContext`q, 0, {
1, (-2) Pi^Rational[-1, 2], 1, Rational[-4, 3] Pi^Rational[-1, 2]}, 1, 5,
1],
Editable->False]], "Output",
CellChangeTimes->{{3.902205477222515*^9, 3.902205481503117*^9},
3.902221641187851*^9, 3.9024806915887613`*^9, 3.904205281814487*^9},
CellLabel->"Out[47]=",ExpressionUUID->"84595553-094d-4135-9878-83c5df7ac7bc"]
}, Open ]],
Cell["At q=0", "Text",
CellChangeTimes->{{3.902547385111203*^9,
3.9025473876130495`*^9}},ExpressionUUID->"37884b64-69e0-4bc9-80a1-\
ab776c254250"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}], "/.",
RowBox[{"{",
RowBox[{"q", "->", "0"}], "}"}]}]], "Input",
CellChangeTimes->{{3.9025473986121063`*^9, 3.902547427405661*^9}},
CellLabel->"In[48]:=",ExpressionUUID->"c8cf946c-feff-42bf-8d4e-2cf27c77f5ef"],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.904205281855468*^9},
CellLabel->"Out[48]=",ExpressionUUID->"7baacfd9-20b2-46f4-94ad-8d91dd409ece"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{" ",
RowBox[{
RowBox[{"Limit", "[",
RowBox[{
RowBox[{
RowBox[{"-", "1"}], "+",
RowBox[{"3",
SqrtBox["\[Pi]"], "q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"q", "->", "0"}], "}"}]}], "]"}], "\[IndentingNewLine]", " ",
RowBox[{"Limit", "[", " ",
RowBox[{
RowBox[{"2", "-",
RowBox[{"3",
SqrtBox["\[Pi]"], "q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"q", "->", "0"}], "}"}]}], "]"}], "\[IndentingNewLine]",
" "}]}]], "Input",
CellChangeTimes->{{3.902547499051283*^9, 3.9025475333407135`*^9}},
CellLabel->"In[49]:=",ExpressionUUID->"6129d05b-758b-49ec-baa3-2aab995af674"],
Cell[BoxData[
RowBox[{"-", "1"}]], "Output",
CellChangeTimes->{3.902547535422279*^9, 3.9042052818700523`*^9},
CellLabel->"Out[49]=",ExpressionUUID->"ebccdb47-3c7e-4f15-89dc-0ffc87b1ee36"],
Cell[BoxData["2"], "Output",
CellChangeTimes->{3.902547535422279*^9, 3.904205281876095*^9},
CellLabel->"Out[50]=",ExpressionUUID->"ec1d61a1-c94f-4107-b96c-4cbae7121de7"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Integral", "Subsubsection",
CellChangeTimes->{{3.9028098524851527`*^9,
3.9028098546228514`*^9}},ExpressionUUID->"614a6ee7-0ba4-4edb-93a1-\
ddf287b36bbe"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
SqrtBox["\[Pi]"],
SuperscriptBox["q", "1"], " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}], ",", "q"}], "]"}]], "Input",
CellChangeTimes->{{3.9028099349522543`*^9, 3.9028099793862205`*^9}, {
3.902810715174445*^9, 3.902810715459875*^9}, {3.9028110176057444`*^9,
3.9028110546982827`*^9}},
CellLabel->"In[51]:=",ExpressionUUID->"afae188b-b97e-4080-9a5e-527b5aff8d98"],
Cell[BoxData[
RowBox[{
SqrtBox["\[Pi]"], " ",
RowBox[{"(",
RowBox[{
FractionBox["q",
SqrtBox["\[Pi]"]], "+",
RowBox[{
FractionBox["1", "2"], " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]], " ",
RowBox[{"Erfc", "[", "q", "]"}]}]}], ")"}]}]], "Output",
CellChangeTimes->{{3.9028099509720697`*^9, 3.9028099802247095`*^9},
3.9028107165652995`*^9, 3.902811018385852*^9, 3.902811055391238*^9,
3.9042052820121365`*^9},
CellLabel->"Out[51]=",ExpressionUUID->"a0018bce-3b69-4e36-beae-cd81626f1703"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"NIntegrate", "[",
RowBox[{
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"3",
SqrtBox["\[Pi]"], "q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "7000"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.902811582944643*^9, 3.9028116509546733`*^9}},
CellLabel->"In[52]:=",ExpressionUUID->"79b6e95b-0c84-479c-8a6e-d7359e1450ea"],
Cell[BoxData[
RowBox[{"-", "21000.00000000003`"}]], "Output",
CellChangeTimes->{{3.9028115903691015`*^9, 3.9028116513164797`*^9},
3.904205282185861*^9},
CellLabel->"Out[52]=",ExpressionUUID->"4be8ade7-55b9-4485-9a2c-974efdcdc689"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{"3",
SqrtBox["\[Pi]"], "q", " ",
SuperscriptBox["\[ExponentialE]",
SuperscriptBox["q", "2"]],
RowBox[{"Erfc", "[", "q", "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",", "25"}], "}"}], ",",
RowBox[{"PlotRange", "->", "All"}]}], "]"}]], "Input",
CellChangeTimes->{{3.9028107096811237`*^9, 3.902810758340803*^9}, {
3.9028109530251503`*^9, 3.9028110398688173`*^9}},
CellLabel->"In[53]:=",ExpressionUUID->"084bca4e-a6ef-404e-aadb-b99016eb6b7c"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwV1nk4VVsfB/BNpiJkiCTJFK4MDa4G7XUN1cuNkiRDTo5yZJ6JdEimZCxx
TSeUMVNEid8xU4ZDilCRIcpwyJQM7+6v/Xye9f3u9ey117Oetc/a2egaK4Zh
W1gw7M9TKno9M03i8Umm/FD8xiYnvYJLYa8j5Ta+L6i5Rf0ZJ73WpzBLnhKN
k5INHT6ac9KbVF1tOSjpuBU6x/FPNQe9JbL7zKJtET7dYQ+90ex0ZjDPN5+8
Erxy4JID7TQ7/VZ9kcIy7TkeqXg8NxVjpyegpcKf9yvwJrWrBXu82Oitx+68
nLIFPJJ37kCc0xZ6/gnBgCNFdFyXVFdqobKFPjdgk+6RV4uzFJAZynOs9AAx
rq/ztHr8ZvPjjPferPRHjwxsZ+8348pNL/SfxrDQ38QOuE7YduLqaRau/X2b
EJaY0BqvxsANNaeWBbw3QYmCmx0qYuAP1Rz4GDs3wY0z1s8trwuP2rmLXGW2
ARu6h2uYtHf46l/rawk/10C0/qb29P1eXOb8LGcfeRWq4qR7Irn7cIvWD3N6
IqtwxbrNRim8D3eL2Bz78vYXZLFIhNgHf8Qvao7eNNf4BWqotmXy5gDufOjT
dz6JFdCr5jQYt/2Cx9WviLqJLoHapvXiTuYXfIK6ubvhwyJESlp1SJ8YwllD
vU+LJCyCh/UrT+OGIZzb+7VWocgi6Iy7NJT3DON+ph4uknIL8HX601WfxRF8
0j5sw8lhHj5E3SuPOTqKd3yruN+pMQ9vVI5uzb01ivOvexoz2eeh1PVB8Uf2
MbyrMY//WsYcBC7qbR7bOY4zLVyAPsIEyfWKlHX1CbzA7FyWFvcsCKVdYwr7
TeCJe2ME5V7OABcuqKMME3jKKm+IEmUGZqlOP66cnsT5DynORrVOQw2b7DH6
pe84w5vDTi5pCix54nqDfKbw1/iKYIftdzj3DP8r+fUUfuLZAeVm2e+gYzAd
8BybxnOWNjXSRydBKeaM3GjYNO5T0dj2yWYS1gQ3PXSTZnASc9DksPMEtG9X
38pmycRfxwkf8coZh259gcQOfyYuWpUWbOY1Dn3hM3JJKUzcuHAp7r3OOIyy
Z+soDxL5tQHN0JExWFsXoZqaz+Flyyd50/aPgeLMr6WCy/O4UOvEgaGWEVBV
+nDX23ce54/PO3UyfQTUb5QKaSXN40raDvpCXiOgNX7jYG/fPC6T7OuxT3YE
Ln8ecGQx/YmrKj7Vjg/7CmEd1aMXTRbwFL8f3wPJwxDF85+7pNcCvpZ/fssT
NAwP9LxYfzxcwPnPDJrKSwxDepOyJPX9Al4mNZqk1z8EL2rSzfOMF3EL0YCn
/SZDMFYY2L1htIQzl71jdOifQStal55tuIKLKphVrV4aAKpeWW630wpu+tBg
eF1uAGrYpePX76/gfVvmpf2W+uGYP3b9QtsKjqkrCnxO6IdDdlXcm2d+4ZVV
FJ09nz6CjLbaJROtVZxZXGNqGNAH1hvpKPDqKp5zle34WeM+oL3kVSygruKi
2je7ihT7QFx1ao0FVnHTt17ktL5eEN6TnfHs+G+c61LFJna0FziWxWfYjqzh
ORmNShPbPoBO6b1eFWPCKU9ECsbfQ5DjKt3MfQ1vmQ1Mq697DxsjvfHFJWt4
pdFaxaTfe1hmxB21UF7HsRt7L67M9cBEHtfd5/s38KHUl9LmU+/gmsrqdrXt
GKI9HDuUK9QN/w6EPhGVwBAl5Oexn0tdcDhUWBNTwVCL1t5/gz52AdsXVYfO
cxiqFJAkO6R3QUaU7RvHBxhykYr6aKbcBV+me0LydrMgKjtJdv0SA5qSrCXi
lFjQUDyNfPIkAwp1meW+moTVD6i9lGFAQCr32BkrFiTpZ/+pZLQTxM9qaX/L
IPprDUesJDvhckHRprQiK+IXn9K0z28HZKr5iPs4K6K1vLgZHdAO8mxvlX/q
syKGl7aBkFE7rJiPW9Y5sqIhm4Gk46ttkMC95zWphBXFkA/QRg3a4N2NCJ9U
jS2I+oi1s5XrLZxVuDa38zQbop3+pt1Y2QKr9zyrPpmwIdS+PBWU2AI5M3fv
Zl1nQyTzrG/+Pi3AVvZ018EQwhcV46SPtsCrkxP/nG1kQ8Xt4qZK1c0gZ2wf
d0ebHRWzsD4s72wC7LbrISbOgVwG6z+g3Y1QOBy4/sKQA2FMvvb7LI1grhPX
fMuKA/Hn+HVxTjTAi63PzblvcyDG0GfnwPIGcHiwcEeuhgPRDlYoUY0a4GOu
d4/FCU6E8vcZmT6oh9KeW56tGlyIMR0Zse1IHeTctbH++j8uhLHtto+UqIM0
dX3D32ZcSNV60Uudqw4iEkUVDtziQky7knSWwVogWzwfjKnlQqSIHyY37taC
0OiEtqneVoRNY5FHv9DB6+cFgW/m2xDdXGpV8zKAQ9axzU2HbQhbvLyw9QiA
9cV9U6IB2xDp79ZkgR0ABhUzjXo0Il+YMNbbWgP7/cJ9C0eJcY86E5mTNdDH
CkOejtxoSIXhZapWDccFFIvYbvMgycZ/yrfhVdDBYtbaHs2D0IEANj6pKiDN
hY8k0HgQVjmjgdirIJgxKaJQR+SnfSf3t72Cjqhc6ln27Qi7YlbLavEKSNwK
Rgn3tiOSTRQ9+c5LCGaTX9yfyIvojoG/lZkVsHPhEt9cDi8ivXNKU+2rgJyR
UIVXL3kRtryVdJFeAe113yz/HeAl1jvkMGcskQ/MbnKR4EN0zk8rbIcrIHdd
LvFlFh9C3Y/D1KgvwPZ3XOoTU36EWIckilXK4YHBVL0viR9JxkuRlsXLgf5Y
9/tZCj+ipaJ+k23lIHpmRX3Jm/A2tg+WY2XQ8sCSceoRkf87JSw0pQwUlOW3
TLznRyTDa2/385XBD1I1RfHCDjRUVb3xH9tzEC3bGb1htgPRSIsqtIVS0OF0
Ke+23oHQ8yXBl6OlkPJMitXPbQci1dZ7yjaWwr+roclvY4m8sKDGWEgpPIs3
6nBg7EB0G8rR8e2l4Nz07VDRWQGEHLSnZBVKgI4K7JVMBJBkV7M/EisB/iqX
zNwrAojE0b3dibsEiot+CWQ5CyDMjFnKMlMM84nc84mxAoiaWPiYs6wYvOxV
ioPeE+/LoNHctYvBn99bycRSECGK8vWtnwuhLeK4zbtrgoi+cpnjfkMh7GHH
Us45CSJs3ZOmkl8INb/CuPVvE07KWmf4FAI28t93/LEgonK18t4WLoQ75TU5
CmOEVwyNrYyfQYQZh+y6gxDCeuTLVsbz4aQqz9KkhxCiH9zI9O7Ohzl2geYP
/sT4nM5bnpp8MC3ZY1ccSThCUMv3YT7Ich15Ri4QQmhG4cYl3Xygl5OPvPlB
uI5tL29uHizx1+o+uiGM6L9YLJNv50LeeNPOYDdhYn/+xZLjmAuWr9u+udwU
RlRp47PN5rnQYNsXrhchjDCDFW9NjVyIrZltX88l+uRdpuzzOaDkIGFiM0nk
tZX6pik5QG72u65G2Ykw/hMPA8jZYHNCzmDJeSeiLndbsRhnw/USxpEqb8LJ
6RfidbKBkizLrhu6E6GpOcqobDY4OXdmmj4lrN+ncnTyKdwUkR6+PUpYSeh1
ittTiLN9Y95BEkH0PT92d0Q/gVrOXeftL4si6kHfNC1mJoxnKut9vCpK/P9x
mY2vmcCDdLRP3xBF9K2t1U3vM8HUx/mItB9hscMjAVWZMDvRuGsghbCUo3x4
aCbseeP2VW9IFGFB6ueX92WCb2Sbu6LtLoQCvv1os8oAtR3UhEkPMUTt2X8B
X6PBK65e+WZ/woUnDP3naaCFKVdlBYshOjM7tXaCBsazA1+sHoghpCHFc+09
Dbza/1b48FyM2G8DSrxFNHgdPltVN09YNjVmmEyDM6xWw8kuuxG2u2oh/Wk6
kH5qKhk4iCOq5bS8QHQqbBfAGD0e4gj76nFi8FYqvFKtcze/RVi/XK3cIRWE
nE5VUaKIfGHgrXi9VGiZMNC7U0wYd2jY5EgF1c9WlMoFwnWnn4UFpQDWGpgl
dWsPwkiR7tN3kuFxWqP48n0JRG3ol31XkAQpFkq9FxMkEHYsa0kiPQkSxeJj
y9II//DI9oxNgqgEEodbEWGOJD9tryS4GfV7dopB9MskSq1QEhgFqNV/FdyL
sFCV3JgPicB2JdWuI2kvorrel47YlgjPo44NdBtJImpF7UxxVAJYJ/OyvzKR
RNhgqY5ccAII5HxVfmxGmKVgNsM3AVxqI4KcrQnvoiuU2iSA0kK/Ao8b0de4
6r7/eAJkXfbz0Y0lnNGZYjv5EB7IvBau7CTy8vdad+g/BI9XmudS/92HMA1V
dvq+BwBvnsyHm0shzNTdPfh7LNidPlptZyqNqId0gmQUYiAlR63c/oYMwt6H
U1V33IfYn9WBLt6yCKtfoXleiIDxPE8vipscwrpWdxuIhUHDqbjEoKD9CFsI
P1G3cRdYDPu/RlPlEUY1PHtSJxiwf16w0HwVENbEAtz1QRAmsny2O1QRYaqD
u9MNA8HFjFy3fOcvhPnHUzzEqDAceNgGf6iEsBaFth+Dt0AoPqk//PEBhJ3T
1D/V7gdP+RV9m5OVEbbxRqCB/ybUuu3V3Z+vgrCQkFlxCx9Ik6SJaxqrIkz5
revGpBdU+69iFAZhqStf1dI8YZ8+55r0JTWEKQVH/zb2gLJOhXsfewgz2ufi
jrtDZNOGqqTlQYQl7CLOBDeId5+8QRokfIKps3rQFfyFJfikLh9CmEcBqdfU
BXIV2N94DBEO010QXnMCjgWWXbVXDhPfE7o8FOgI2aolAWnfCFvsbqphdwAF
6zyDdccjCKNNu9fm34CB/70svfiDcMzCIt9tO+jOvHkAd1cn1i/+4oQBBVae
nz8hNU845n9Dlbq2sFnpVh7i9DfCzmgt95+/Dvqqp3T9FwkPXR5lXL4GzZYq
dvbuGsR8H2YyqDYgQKZUpXoSlhyrWfK3gSuUx9sZ3oQTde7p+9rAkptg6WF/
wqpxIiuuNiATtry6Hkx4MH3BgmwD1FKIjEkgTA91u3jKBo5xnisuf/mnnyS0
yWMDITzhrBNVf+a7UO+61Qa6dtQZi9UQpjiTx9htgCJ++FdAHeFzl7w6N8jw
SE1U68zbP/3OT4VMMiyYD73rHyTMo2L3Xw8Z0NVdctu//PE4u3gXGe5dN/LB
hwkXFEWltZNByrVBPGuMcJga+WkTGc6H5FxzJK4WWKUMX20lGVLuDVekMwnr
+G3RKyfDRIzYtu75P/3zw+9KyEBNjixUXyYsc8H0ex4Z2miNmN0vwg0dTK9s
Mog83TBK/k0YBbmyZZHBOv/vJ+3rhMWl++NoZCgsdlne3CTMMFOUSiXD/wEx
peip
"]]},
Annotation[#, "Charting`Private`Tag$118174#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, 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.9028107295954633`*^9, 3.902810758876092*^9},
3.9028109538581457`*^9, {3.9028109856339183`*^9, 3.902811010023751*^9},
3.9028110405694714`*^9, 3.90420528226231*^9},
CellLabel->"Out[53]=",ExpressionUUID->"4a2dbf88-5068-450e-aef3-2dc79b4c78b5"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Two params", "Section",
CellChangeTimes->{{3.902894844507482*^9,
3.902894847161629*^9}},ExpressionUUID->"1bbff0ee-6de9-4578-b58c-\
b5cffaaa4e8e"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"\[Psi]", "[", "z_", "]"}], ":=",
RowBox[{
SqrtBox[
FractionBox["\[Nu]",
RowBox[{"2",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}], "\[ScriptL]"}]]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
FractionBox[
RowBox[{"-", "1"}], "2"],
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{"Abs", "[", "z", "]"}], "\[ScriptL]"], ")"}],
"\[Nu]"]}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[Psi]p", "[", "z_", "]"}], ":=",
RowBox[{
SqrtBox[
FractionBox["\[Nu]",
RowBox[{"2",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}], "\[ScriptL]"}]]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
FractionBox[
RowBox[{"-", "1"}], "2"],
SuperscriptBox[
RowBox[{"(",
FractionBox["z", "\[ScriptL]"], ")"}], "\[Nu]"]}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[Psi]m", "[", "z_", "]"}], ":=",
RowBox[{
SqrtBox[
FractionBox["\[Nu]",
RowBox[{"2",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}], "\[ScriptL]"}]]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
FractionBox[
RowBox[{"-", "1"}], "2"],
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{"-", "z"}], "\[ScriptL]"], ")"}], "\[Nu]"]}]]}]}],
";"}]}], "Input",
CellChangeTimes->{{3.902894859168487*^9, 3.902894878126099*^9},
3.9028954347629786`*^9, {3.9028971069748597`*^9, 3.9028971261067142`*^9}, {
3.9028971982859154`*^9, 3.9028972288963084`*^9}, 3.902898065608509*^9, {
3.9031663626547585`*^9, 3.903166375453187*^9}, {3.903168324544772*^9,
3.90316834126965*^9}, {3.9031689518237896`*^9, 3.90316896027645*^9}, {
3.90375695917257*^9, 3.90375699081649*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"4c972eb1-7c9e-4aca-89be-a1df696fd095"],
Cell["Normalization", "Text",
CellChangeTimes->{{3.9031711826488295`*^9,
3.90317118413276*^9}},ExpressionUUID->"bcaaddec-e01d-4032-812b-\
90f3b8a864a2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[Psi]", "[", "z", "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[ScriptL]", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.9028973587959023`*^9, 3.9028974193404703`*^9}, {
3.9028974667266417`*^9, 3.9028974739011154`*^9}, {3.903166381649366*^9,
3.9031663843547077`*^9}, {3.9037570118325243`*^9, 3.9037570166222334`*^9}},
CellLabel->"In[57]:=",ExpressionUUID->"e3cd9c0f-0e18-479a-bff1-088b2a2e2f1e"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{{3.90289746495352*^9, 3.9028974821213117`*^9}, {
3.903166374753714*^9, 3.903166397816915*^9}, 3.9031701339272346`*^9,
3.903757008452368*^9, 3.903757048852085*^9, 3.9042052893021393`*^9},
CellLabel->"Out[57]=",ExpressionUUID->"c1043647-9e16-43dc-b229-535225513db4"]
}, Open ]],
Cell["Kinetic Energy", "Text",
CellChangeTimes->{{3.9031711876872873`*^9,
3.9031711899598923`*^9}},ExpressionUUID->"93683b0d-8fcc-4edb-9d26-\
2c2932609906"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"\[Psi]p", "[", "z", "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"\[Psi]p", "[", "z", "]"}], ",", "z", ",", "z"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[ScriptL]", ">", "0"}]}], "}"}]}]}], "]"}], "+",
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"\[Psi]m", "[", "z", "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"\[Psi]m", "[", "z", "]"}], ",", "z", ",", "z"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[ScriptL]", ">", "0"}]}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.903168452249035*^9, 3.903168453437743*^9}, {
3.903168494169876*^9, 3.9031685060565195`*^9}, {3.903168966686706*^9,
3.903168992286359*^9}, {3.9031700413033724`*^9, 3.9031700606808357`*^9}, {
3.9037570225424614`*^9, 3.903757024368224*^9}},
CellLabel->"In[58]:=",ExpressionUUID->"3a18d74f-8c6f-4aa6-b7d2-1a4e484ee8b2"],
Cell[BoxData[
TemplateBox[{
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"Gamma", "[",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}], "]"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]]}],
RowBox[{"\[Nu]", ">", "1"}]},
"ConditionalExpression"]], "Output",
CellChangeTimes->{3.9031684705428452`*^9, 3.9031685179641027`*^9,
3.9031690161009164`*^9, 3.9031700511478744`*^9, 3.903170082950799*^9,
3.9031701580827403`*^9, 3.903757070518567*^9, 3.904205310693554*^9},
CellLabel->"Out[58]=",ExpressionUUID->"4b32515e-050c-4410-84b7-58d9b583e445"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
FractionBox[
SuperscriptBox["\[HBar]", "2"],
RowBox[{"2", "m"}]],
RowBox[{"(",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"D", "[",
RowBox[{
RowBox[{"\[Psi]p", "[", "z", "]"}], ",", "z"}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"\[Psi]p", "[", "z", "]"}], ",", "z"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[ScriptL]", ">", "0"}]}], "}"}]}]}], "]"}], "+",
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"D", "[",
RowBox[{
RowBox[{"\[Psi]m", "[", "z", "]"}], ",", "z"}], "]"}],
RowBox[{"D", "[",
RowBox[{
RowBox[{"\[Psi]m", "[", "z", "]"}], ",", "z"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[ScriptL]", ">", "0"}]}], "}"}]}]}], "]"}]}],
")"}]}]], "Input",
CellChangeTimes->{{3.9037567690533867`*^9, 3.9037568172138567`*^9}, {
3.9037569086776795`*^9, 3.9037569343523784`*^9}, {3.9037570266900177`*^9,
3.9037570285924535`*^9}},
CellLabel->"In[59]:=",ExpressionUUID->"3cb469fe-fd3e-480e-99a3-383578706bf0"],
Cell[BoxData[
TemplateBox[{
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
SuperscriptBox["\[HBar]", "2"], " ",
RowBox[{"Gamma", "[",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}], "]"}]}],
RowBox[{"8", " ", "m", " ",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]],
RowBox[{"\[Nu]", ">",
FractionBox["1", "2"]}]},
"ConditionalExpression"]], "Output",
CellChangeTimes->{
3.903756776382968*^9, 3.903756829647122*^9, {3.9037569253368144`*^9,
3.90375694354834*^9}, 3.903757080382044*^9, 3.9042053202979603`*^9},
CellLabel->"Out[59]=",ExpressionUUID->"7036e37a-1332-4f0b-bc9c-349f26cf5362"]
}, Open ]],
Cell["Potential Energy", "Text",
CellChangeTimes->{{3.903171198000579*^9,
3.903171200927199*^9}},ExpressionUUID->"1384ff2b-cd3b-4bea-92b4-\
524d1fdd9ac6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
FractionBox["1", "2"], "m", " ",
SuperscriptBox["\[Omega]", "2"], " ",
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
SuperscriptBox["z", "2"],
SuperscriptBox[
RowBox[{"\[Psi]", "[", "z", "]"}], "2"]}], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[ScriptL]", ">", "0"}]}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.903171167833564*^9, 3.9031711704489403`*^9}, {
3.9037570319420843`*^9, 3.9037570322323647`*^9}, {3.903760745283804*^9,
3.903760751127271*^9}},
CellLabel->"In[60]:=",ExpressionUUID->"4f5c4a55-ff8c-4d2e-af9d-9e3995ba884d"],
Cell[BoxData[
FractionBox[
RowBox[{"m", " ",
SuperscriptBox["\[ScriptL]", "2"], " ",
SuperscriptBox["\[Omega]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["3", "\[Nu]"], "]"}]}],
RowBox[{"2", " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]]], "Output",
CellChangeTimes->{3.903171184921509*^9, 3.9037570874519267`*^9,
3.9037607598511887`*^9, 3.904205327236451*^9},
CellLabel->"Out[60]=",ExpressionUUID->"8f993131-604b-4d78-ac92-03b9d4b7d856"]
}, Open ]],
Cell["Contact interactions", "Text",
CellChangeTimes->{{3.903171727029617*^9,
3.903171729830041*^9}},ExpressionUUID->"127c4ebc-9c46-4482-9f57-\
7dba64f47a32"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[Psi]", "[", "z", "]"}], "4"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[ScriptL]", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.903171563695135*^9, 3.9031715656474524`*^9},
3.903757034932496*^9},
CellLabel->"In[61]:=",ExpressionUUID->"b7391b5f-6190-4094-90d1-93da75cb6dd6"],
Cell[BoxData[
FractionBox[
RowBox[{
SuperscriptBox["2",
RowBox[{
RowBox[{"-", "1"}], "-",
FractionBox["1", "\[Nu]"]}]], " ", "\[Nu]"}],
RowBox[{"\[ScriptL]", " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]]], "Output",
CellChangeTimes->{3.90317157334241*^9, 3.9037570945065703`*^9,
3.904205334122471*^9},
CellLabel->"Out[61]=",ExpressionUUID->"246fd80e-9c92-4900-9b90-6f0d96a8bba4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[Psi]", "[", "z", "]"}], "5"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[Nu]", ">", "0"}], ",",
RowBox[{"\[ScriptL]", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.903171750390567*^9, 3.903171775549729*^9},
3.903757036473218*^9},
CellLabel->"In[62]:=",ExpressionUUID->"6da94ff5-fdb7-4b8c-99f5-88e9cff263b4"],
Cell[BoxData[
RowBox[{
SuperscriptBox["2",
RowBox[{
RowBox[{"-",
FractionBox["3", "2"]}], "+",
FractionBox["1", "\[Nu]"]}]], " ",
SuperscriptBox["5",
RowBox[{
RowBox[{"-", "1"}], "/", "\[Nu]"}]], " ", "\[ScriptL]", " ",
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["1", "\[Nu]"]}], "]"}], " ",
SuperscriptBox[
RowBox[{"(",
FractionBox["\[Nu]",
RowBox[{"\[ScriptL]", " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]], ")"}],
RowBox[{"5", "/", "2"}]]}]], "Output",
CellChangeTimes->{3.9037573265723934`*^9, 3.904205341211859*^9},
CellLabel->"Out[62]=",ExpressionUUID->"35d02c6f-ff32-40b3-ab6c-9525c58a66fb"]
}, Open ]],
Cell["DDI", "Text",
CellChangeTimes->{{3.9035115110532484`*^9,
3.90351151137818*^9}},ExpressionUUID->"65a3eb1a-12cf-4607-b9fe-\
116107c90b60"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[CurlyPhi]", "[", "z", "]"}]], "Input",
CellLabel->"In[63]:=",ExpressionUUID->"e3966bbb-ff08-4e57-b839-737b54dae650"],
Cell[BoxData[
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox["z", "2"],
RowBox[{"2", " ",
SuperscriptBox["\[ScriptL]", "2"]}]]}]],
RowBox[{
SuperscriptBox["\[Pi]",
RowBox[{"1", "/", "4"}]], " ",
SqrtBox["\[ScriptL]"]}]]], "Output",
CellChangeTimes->{3.903511513173251*^9, 3.903511952285604*^9,
3.904205341251959*^9},
CellLabel->"Out[63]=",ExpressionUUID->"36b211fa-ad3e-4242-ad54-e9c2fa614ad8"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"FourierTransform", "[",
RowBox[{
RowBox[{"\[CurlyPhi]", "[", "z", "]"}], ",", "z", ",", "k"}], "]"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"\[ScriptL]", ">", "0"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.9035114706134553`*^9, 3.903511501493664*^9}, {
3.9035117218924956`*^9, 3.903511725267535*^9}, {3.9035122186734905`*^9,
3.9035122346125555`*^9}, {3.9035126713296995`*^9, 3.9035126716354747`*^9}},
CellLabel->"In[64]:=",ExpressionUUID->"4d073a7f-09a9-4cb4-915e-ee2f57cbe115"],
Cell[BoxData[
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
FractionBox["1", "2"]}], " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[ScriptL]", "2"]}]], " ",
SqrtBox["\[ScriptL]"]}],
SuperscriptBox["\[Pi]",
RowBox[{"1", "/", "4"}]]]], "Output",
CellChangeTimes->{
3.903511501956271*^9, 3.9035117259086266`*^9, 3.9035119219371843`*^9,
3.9035122354289217`*^9, {3.903512672444536*^9, 3.9035126934548054`*^9},
3.90351288987395*^9, 3.904205341283822*^9},
CellLabel->"Out[64]=",ExpressionUUID->"50409805-d978-429b-b7e7-261632193cb9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
FractionBox["1", "2"]}], " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[ScriptL]", "2"]}]], " ",
SqrtBox["\[ScriptL]"]}],
SuperscriptBox["\[Pi]",
RowBox[{"1", "/", "4"}]]], ")"}], "2"]], "Input",
CellChangeTimes->{{3.903513162458045*^9, 3.9035131655013747`*^9}},
CellLabel->"In[65]:=",ExpressionUUID->"d4f9e174-8f32-4619-9dca-4aebd95c1898"],
Cell[BoxData[
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
SuperscriptBox["k", "2"]}], " ",
SuperscriptBox["\[ScriptL]", "2"]}]], " ", "\[ScriptL]"}],
SqrtBox["\[Pi]"]]], "Output",
CellChangeTimes->{3.9035131657790813`*^9, 3.904205341311735*^9},
CellLabel->"Out[65]=",ExpressionUUID->"9528048e-6c11-49e1-b922-5bf2a281746d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
SuperscriptBox["k", "2"]}], " ",
SuperscriptBox["\[ScriptL]", "2"]}]], " ", "\[ScriptL]"}],
SqrtBox["\[Pi]"]], ",",
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{"\[ScriptL]", ">", "0"}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.9035122734849815`*^9, 3.9035122865725465`*^9},
3.903513628471201*^9},
CellLabel->"In[66]:=",ExpressionUUID->"01aeff18-5008-40e8-a5e7-01247222256c"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{3.9035122871108103`*^9, 3.903513628981624*^9,
3.9042053414699197`*^9},
CellLabel->"Out[66]=",ExpressionUUID->"9d98d104-2144-46f1-b45f-a36ff746a67d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Integrate", "[",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
SuperscriptBox["k", "2"]}], " ",
SuperscriptBox["\[ScriptL]", "2"]}]], " ", "\[ScriptL]"}],
SqrtBox["\[Pi]"]], ",",
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{"\[ScriptL]", ">", "0"}], "}"}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Integrate", "[",
RowBox[{
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
FractionBox["1", "4"]}], " ",
SuperscriptBox["k", "2"], " ",
SuperscriptBox["\[ScriptL]", "2"]}]],
RowBox[{
SqrtBox[
RowBox[{"2", " ", "\[Pi]"}]], " ",
SqrtBox[
FractionBox["1",
SuperscriptBox["\[ScriptL]", "2"]]], " ", "\[ScriptL]"}]], ",",
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{"\[ScriptL]", ">", "0"}], "}"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.9035116727530003`*^9, 3.903511749852813*^9},
3.9035119368220053`*^9},
CellLabel->"In[67]:=",ExpressionUUID->"6a53de0e-9864-4520-bb42-e647c9844550"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{{3.9035116897277355`*^9, 3.9035117071429124`*^9}, {
3.9035117400128126`*^9, 3.903511750672613*^9}, 3.903511887762186*^9,
3.903511937702194*^9, 3.904205341601987*^9},
CellLabel->"Out[67]=",ExpressionUUID->"38ee63b6-1a12-4f19-8884-3bcf9832c470"],
Cell[BoxData[
FractionBox[
SqrtBox["2"], "\[ScriptL]"]], "Output",
CellChangeTimes->{{3.9035116897277355`*^9, 3.9035117071429124`*^9}, {
3.9035117400128126`*^9, 3.903511750672613*^9}, 3.903511887762186*^9,
3.903511937702194*^9, 3.9042053417919455`*^9},
CellLabel->"Out[68]=",ExpressionUUID->"9039018c-112a-4174-8ec1-91f9b5c68088"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"Gamma", "[",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}], "]"}]}],
RowBox[{"8",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]], "+",
RowBox[{
SuperscriptBox[
RowBox[{"(",
FractionBox["444", "100"], ")"}], "2"],
FractionBox[
RowBox[{
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["3", "\[Nu]"], "]"}]}],
RowBox[{"2", " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]]}]}], ",",
RowBox[{"{",
RowBox[{"\[Nu]", ",", "0.5", ",", "16"}], "}"}], ",",
RowBox[{"PlotRange", "->",
RowBox[{"{",
RowBox[{"0", ",", "10"}], "}"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"\[ScriptL]", ",", "0.2", ",", "5"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.9037579800864506`*^9, 3.9037580052779274`*^9}, {
3.9040153907489767`*^9, 3.9040154068622365`*^9}, 3.904015662949519*^9,
3.904018110318185*^9, {3.9040181443631954`*^9, 3.904018181517435*^9}, {
3.904021675430072*^9, 3.904021697301139*^9}, {3.904021728660365*^9,
3.90402176036587*^9}, {3.9040218184679475`*^9, 3.90402181912388*^9}, {
3.904021852892541*^9, 3.904021872595974*^9}, {3.9040219319324074`*^9,
3.904021945908239*^9}, {3.904031030063139*^9, 3.904031041188092*^9},
3.9040318719384165`*^9, {3.908532636717904*^9, 3.9085326370692673`*^9}},
CellLabel->
"In[621]:=",ExpressionUUID->"723be611-be49-483a-ad8a-441fa9d7bf69"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`\[ScriptL]$$ = 2.2, Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`\[ScriptL]$$], 0.2, 5}}, Typeset`size$$ = {
360., {116., 121.5687270477865}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`\[ScriptL]$$ = 0.2},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[$CellContext`\[Nu]^2 Gamma[2 - 1/$CellContext`\[Nu]]/(
8 $CellContext`\[ScriptL]$$^2
Gamma[1/$CellContext`\[Nu]]) + (444/
100)^2 ($CellContext`\[ScriptL]$$^2 Gamma[3/$CellContext`\[Nu]]/(2
Gamma[1/$CellContext`\[Nu]])), {$CellContext`\[Nu], 0.5, 16},
PlotRange -> {0, 10}],
"Specifications" :> {{$CellContext`\[ScriptL]$$, 0.2, 5}},
"Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{408., {169.63403309800196`, 175.36596690199804`}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.903757998008401*^9, 3.903758005828832*^9},
3.9040154082262836`*^9, 3.904018110770262*^9, {3.904018157760903*^9,
3.904018181810114*^9}, {3.9040217327296658`*^9, 3.9040217647651725`*^9}, {
3.9040218197346983`*^9, 3.9040218731689515`*^9}, {3.904021905059577*^9,
3.904021948837756*^9}, {3.9040310324845*^9, 3.904031041489113*^9}, {
3.904031863314928*^9, 3.904031875089198*^9}, 3.90420534183388*^9,
3.9071437546980915`*^9, {3.9085326297381015`*^9, 3.9085326413588085`*^9}},
CellLabel->
"Out[621]=",ExpressionUUID->"9207aec3-4845-4b96-89e9-83e01c2b896d"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"Gamma", "[",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}], "]"}]}],
RowBox[{"8", " ",
SuperscriptBox["\[ScriptL]", "2"],
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]], "+",
RowBox[{"gz",
FractionBox[
RowBox[{
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["3", "\[Nu]"], "]"}]}],
RowBox[{"2", " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]]}]}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"\[ScriptL]", "->", "4"}], ",",
RowBox[{"\[Nu]", "->", "6"}], ",",
RowBox[{"gz", "->",
SuperscriptBox[
RowBox[{"(",
FractionBox["167", "100"], ")"}], "2"]}]}], "}"}]}], "//",
"N"}]], "Input",
CellChangeTimes->{{3.904015671411051*^9, 3.904015680065238*^9}, {
3.9040160374829674`*^9, 3.9040160833272357`*^9}, {3.904016177061512*^9,
3.9040162060628233`*^9}},
CellLabel->"In[70]:=",ExpressionUUID->"697a395a-ba66-473c-87a6-74f4303a4f19"],
Cell[BoxData["7.151971215023665`"], "Output",
CellChangeTimes->{{3.9040160797067595`*^9, 3.904016083681031*^9},
3.90401620687088*^9, 3.904205341951989*^9},
CellLabel->"Out[70]=",ExpressionUUID->"77fc2032-4674-459e-97f6-f0f78f814e86"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"D", "[",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"Gamma", "[",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}], "]"}]}],
RowBox[{"8",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]], "+",
RowBox[{
SuperscriptBox["g", "2"],
FractionBox[
RowBox[{
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["3", "\[Nu]"], "]"}]}],
RowBox[{"2", " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]]}]}], ",", "\[Nu]"}],
"]"}]], "Input",
CellChangeTimes->{{3.9040220007020397`*^9, 3.9040220425643816`*^9}},
CellLabel->"In[71]:=",ExpressionUUID->"6d5bd50a-676e-4249-a5ef-f564cf228c1b"],
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{"\[Nu]", " ",
RowBox[{"Gamma", "[",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}], "]"}]}],
RowBox[{"4", " ",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"Gamma", "[",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}], "]"}], " ",
RowBox[{"PolyGamma", "[",
RowBox[{"0", ",",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}]}], "]"}]}],
RowBox[{"8", " ",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]], "+",
FractionBox[
RowBox[{
RowBox[{"Gamma", "[",
RowBox[{"2", "-",
FractionBox["1", "\[Nu]"]}], "]"}], " ",
RowBox[{"PolyGamma", "[",
RowBox[{"0", ",",
FractionBox["1", "\[Nu]"]}], "]"}]}],
RowBox[{"8", " ",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["g", "2"], " ",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["3", "\[Nu]"], "]"}], " ",
RowBox[{"PolyGamma", "[",
RowBox[{"0", ",",
FractionBox["1", "\[Nu]"]}], "]"}]}],
RowBox[{"2", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]], "-",
FractionBox[
RowBox[{"3", " ",
SuperscriptBox["g", "2"], " ",
SuperscriptBox["\[ScriptL]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["3", "\[Nu]"], "]"}], " ",
RowBox[{"PolyGamma", "[",
RowBox[{"0", ",",
FractionBox["3", "\[Nu]"]}], "]"}]}],
RowBox[{"2", " ",
SuperscriptBox["\[Nu]", "2"], " ",
RowBox[{"Gamma", "[",
FractionBox["1", "\[Nu]"], "]"}]}]]}]], "Output",
CellChangeTimes->{{3.904022014991282*^9, 3.904022043084114*^9},
3.904205341961955*^9},
CellLabel->"Out[71]=",ExpressionUUID->"b096db87-dddf-4a2e-b18c-ce4e92d8dfee"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Thomas Fermi profile", "Section",
CellChangeTimes->{{3.903762570262479*^9,
3.903762575228878*^9}},ExpressionUUID->"e1d6e495-5976-4391-b593-\
7f69d8e5855e"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Zeta]", "[",
RowBox[{"z_", ",", "Z_"}], "]"}], ":=",
RowBox[{
FractionBox[
SqrtBox["15"],
RowBox[{"4",
SqrtBox["Z"]}]],
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"(",
FractionBox["z", "Z"], ")"}], "2"]}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.9037626622134466`*^9, 3.9037627026855826`*^9},
3.9037627566943755`*^9, {3.9037707139542675`*^9, 3.9037707169940004`*^9}, {
3.90377076094578*^9, 3.9037708295942802`*^9}, {3.903770954386223*^9,
3.9037709595293856`*^9}, {3.9037710061863194`*^9,
3.9037710067421055`*^9}, {3.907142709838716*^9, 3.9071427110073857`*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"1efe599f-cecd-40d1-a2c9-8cb0bcc73119"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[Zeta]", "[",
RowBox[{"z", ",", "Z"}], "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "Z"}], ",", "Z"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{"Z", ">", "0"}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.903762704935471*^9, 3.903762744764866*^9}, {
3.9037706356035056`*^9, 3.903770640416415*^9}, {3.903770811475274*^9,
3.903770811673686*^9}, {3.903771009466093*^9, 3.9037710106972585`*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"9a0f8de1-0801-45e5-9dff-dbe70551ed0e"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{{3.903762730707665*^9, 3.9037627614602633`*^9},
3.9037706415832872`*^9, 3.903770719398357*^9, {3.9037707645877476`*^9,
3.9037708325036955`*^9}, 3.903770963529304*^9, 3.9037710118789163`*^9,
3.904041922809969*^9, 3.904205342582155*^9, 3.906784173635762*^9,
3.906792951046997*^9},
CellLabel->"Out[6]=",ExpressionUUID->"0d82ad42-9787-43d7-98fb-033343f967a4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[CurlyPhi]", "[", "z", "]"}]], "Input",
CellLabel->"In[3]:=",ExpressionUUID->"366ee2ce-9b72-4a3e-a981-fbec08b76039"],
Cell[BoxData[
RowBox[{"\[CurlyPhi]", "[", "z", "]"}]], "Output",
CellChangeTimes->{3.9042061508372746`*^9, 3.9067841750954037`*^9},
CellLabel->"Out[3]=",ExpressionUUID->"10d85da5-5fe9-40f1-94bf-dc82d1610e6b"]
}, Open ]],
Cell["Beyond TF", "Text",
CellChangeTimes->{{3.907142290051381*^9,
3.9071422925787*^9}},ExpressionUUID->"5806d104-c01a-4cca-85b5-f1059085d092"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"BTF", "[",
RowBox[{"z_", ",", "Z_", ",", "Q_"}], "]"}], ":=",
RowBox[{
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{"4",
SuperscriptBox["Q", "2"], " ", "Z"}],
RowBox[{"1", "+",
RowBox[{"3", " ", "Q"}], "+",
RowBox[{"2", " ",
SuperscriptBox["Q", "2"]}]}]], ")"}],
RowBox[{
RowBox[{"-", "1"}], "/", "2"}]],
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"(",
FractionBox["z", "Z"], ")"}], "Q"]}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{
3.90714229992328*^9, {3.907142364105479*^9, 3.907142393827484*^9}, {
3.9071425776977634`*^9, 3.907142583857772*^9}, {3.9071430654127645`*^9,
3.907143218429182*^9}},
CellLabel->
"In[138]:=",ExpressionUUID->"67af1419-14b8-4e07-b6b7-84a8b82b7403"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"BTF", "[",
RowBox[{"z", ",", "Z", ",", "Q"}], "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"z", ",", "0", ",", "Z"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"Z", ">", "0"}], ",",
RowBox[{"Q", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{
3.907142403257475*^9, {3.9071425058575015`*^9, 3.907142519570988*^9}, {
3.907142562180019*^9, 3.907142564827218*^9}, {3.90714262914855*^9,
3.907142649140329*^9}, {3.9071430677162476`*^9, 3.907143070687871*^9}},
CellLabel->
"In[139]:=",ExpressionUUID->"861d1a5e-4778-4d89-bce1-9727e0de0e58"],
Cell[BoxData[
FractionBox["1", "2"]], "Output",
CellChangeTimes->{{3.9071425401576757`*^9, 3.9071425688390074`*^9}, {
3.9071426365456047`*^9, 3.9071426504094305`*^9}, 3.907143072652562*^9, {
3.907143103658015*^9, 3.9071431206175685`*^9}, {3.907143171388029*^9,
3.907143221027793*^9}},
CellLabel->
"Out[139]=",ExpressionUUID->"ab49be0a-f594-4302-8380-9496045fd379"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"\[Zeta]", "[",
RowBox[{"z", ",", "Z"}], "]"}], "2"],
RowBox[{"(",
RowBox[{
RowBox[{"HeavisideTheta", "[",
RowBox[{"z", "+", "Z"}], "]"}], "-",
RowBox[{"HeavisideTheta", "[",
RowBox[{"z", "-", "Z"}], "]"}]}], ")"}]}], ",",
RowBox[{
SuperscriptBox[
RowBox[{"BTF", "[",
RowBox[{
RowBox[{"Abs", "[", "z", "]"}], ",", "Z", ",", "Q"}], "]"}], "2"],
RowBox[{"(",
RowBox[{
RowBox[{"HeavisideTheta", "[",
RowBox[{"z", "+", "Z"}], "]"}], "-",
RowBox[{"HeavisideTheta", "[",
RowBox[{"z", "-", "Z"}], "]"}]}], ")"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"z", ",",
RowBox[{"-", "3"}], ",", "3"}], "}"}], ",",
RowBox[{"PlotRange", "->",
RowBox[{"{",
RowBox[{"0", ",", "3"}], "}"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"Z", ",", "0.2", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Q", ",", "2", ",", "8"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.9037708407972116`*^9, 3.9037709387677326`*^9}, {
3.903770975499156*^9, 3.903771037641198*^9}, {3.904206129571617*^9,
3.9042061389324107`*^9}, {3.9071426079556603`*^9,
3.9071426108999014`*^9}, {3.9071426781398926`*^9, 3.907142684955888*^9}, {
3.9071427171169233`*^9, 3.9071428179159737`*^9}, {3.9071428913404317`*^9,
3.907142966757444*^9}, {3.9071429978510113`*^9, 3.9071430039556646`*^9},
3.907143239372691*^9},
CellLabel->
"In[142]:=",ExpressionUUID->"1d7abe0c-b177-452d-99dc-e288f5d8700e"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`Q$$ = 8., $CellContext`Z$$ = 1.805,
Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`Z$$], 0.2, 3}, {
Hold[$CellContext`Q$$], 2, 8}}, Typeset`size$$ = {
360., {118., 123.63201446121221`}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`Q$$ = 2, $CellContext`Z$$ = 0.2},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[{$CellContext`\[Zeta][$CellContext`z, $CellContext`Z$$]^2 (
HeavisideTheta[$CellContext`z + $CellContext`Z$$] -
HeavisideTheta[$CellContext`z - $CellContext`Z$$]), $CellContext`BTF[
Abs[$CellContext`z], $CellContext`Z$$, $CellContext`Q$$]^2 (
HeavisideTheta[$CellContext`z + $CellContext`Z$$] -
HeavisideTheta[$CellContext`z - $CellContext`Z$$])}, \
{$CellContext`z, -3, 3}, PlotRange -> {0, 3}],
"Specifications" :> {{$CellContext`Z$$, 0.2, 3}, {$CellContext`Q$$, 2,
8}}, "Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{408., {173.63403309800196`, 179.36596690199804`}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.9037708613554316`*^9, 3.903770890521044*^9}, {
3.9037709391939387`*^9, 3.9037709412350597`*^9}, {3.9037709771549864`*^9,
3.9037710380959606`*^9}, 3.9040419256197324`*^9, 3.9042053426219883`*^9,
3.904206139279717*^9, {3.9071426870772142`*^9, 3.9071426917650003`*^9}, {
3.9071427258451967`*^9, 3.9071428185875015`*^9}, {3.9071428944900312`*^9,
3.9071429264106746`*^9}, {3.9071429611954145`*^9, 3.907142967273431*^9}, {
3.9071430045877886`*^9, 3.9071430122947116`*^9}, {3.907143232249821*^9,
3.907143239685584*^9}, 3.9071433606044364`*^9},
CellLabel->
"Out[142]=",ExpressionUUID->"e19666f6-c742-4ad2-8ab5-3b6859a2c4be"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["2D profiles", "Section",
CellChangeTimes->{{3.906804152130148*^9,
3.906804154330226*^9}},ExpressionUUID->"d904f7a6-0fb2-4068-b075-\
6e7ad558d961"],
Cell["Thomas-Fermi", "Text",
CellChangeTimes->{{3.906804162528976*^9,
3.9068041665263968`*^9}},ExpressionUUID->"f2deb6ba-1000-455b-9071-\
3aca7017d334"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[Zeta]2D", "[",
RowBox[{"x_", ",", "X_", ",", "y_", ",", "Y_"}], "]"}], ":=",
RowBox[{
SqrtBox[
FractionBox["3",
RowBox[{"\[Pi]", " ", "X", " ", "Y"}]]],
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox[
RowBox[{"(",
FractionBox["x", "X"], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
FractionBox["y", "Y"], ")"}], "2"]}], ")"}]}]}], ";"}]], "Input",
CellChangeTimes->{{3.906793021873127*^9, 3.9067930569812183`*^9}, {
3.9067932010518456`*^9, 3.906793206137231*^9}, {3.906793257938157*^9,
3.90679331053093*^9}, {3.9067933480800977`*^9, 3.9067933518566628`*^9}, {
3.9068012041294165`*^9, 3.906801213714743*^9}, {3.906802833069143*^9,
3.9068028333281493`*^9}, {3.906804249348206*^9, 3.9068042648706474`*^9}},
CellLabel->"In[40]:=",ExpressionUUID->"6ab86ec7-b7c9-4083-9c0e-5fb28df9f6aa"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[Zeta]2D", "[",
RowBox[{"x", ",", "X", ",", "y", ",", "Y"}], "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "X"}], ",", "X"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{
RowBox[{"-", "Y"}],
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["x", "2"],
SuperscriptBox["X", "2"]]}]]}], ",",
RowBox[{"Y",
SqrtBox[
RowBox[{"1", "-",
FractionBox[
SuperscriptBox["x", "2"],
SuperscriptBox["X", "2"]]}]]}]}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"X", ">", "0"}], ",",
RowBox[{"Y", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.9067932896616187`*^9, 3.9067933319153056`*^9}, {
3.90680263401425*^9, 3.9068026435225534`*^9}, {3.9068027311303196`*^9,
3.9068027549861193`*^9}},
CellLabel->"In[41]:=",ExpressionUUID->"9f1e04bb-dc6f-40c5-bc63-52c55b56b688"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{{3.906793332628069*^9, 3.906793355482314*^9}, {
3.9068012099091945`*^9, 3.9068012191343956`*^9}, 3.906802759192046*^9,
3.9068028395715756`*^9, 3.906802884824321*^9, 3.906804270715906*^9},
CellLabel->"Out[41]=",ExpressionUUID->"a3ea3204-66f5-42ff-88ad-79126f80429d"]
}, Open ]],
Cell["Gaussian", "Text",
CellChangeTimes->{{3.9068041739126716`*^9,
3.9068041786426134`*^9}},ExpressionUUID->"ba9091a7-231b-4e70-a7c4-\
db4d6aa916a6"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"\[CurlyPhi]xy", "[",
RowBox[{"x_", ",", "\[ScriptL]x_", ",", "y_", ",", "\[ScriptL]y_"}],
"]"}], ":=",
RowBox[{
FractionBox["1",
RowBox[{
SqrtBox["\[ScriptL]x"],
SuperscriptBox["\[Pi]",
RowBox[{"1", "/", "4"}]]}]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
SuperscriptBox["x", "2"]}], "/",
RowBox[{"(",
RowBox[{"2",
SuperscriptBox["\[ScriptL]x", "2"]}], ")"}]}]],
FractionBox["1",
RowBox[{
SqrtBox["\[ScriptL]y"],
SuperscriptBox["\[Pi]",
RowBox[{"1", "/", "4"}]]}]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
SuperscriptBox["y", "2"]}], "/",
RowBox[{"(",
RowBox[{"2",
SuperscriptBox["\[ScriptL]y", "2"]}], ")"}]}]]}]}], ";"}]], "Input",
CellChangeTimes->{{3.9067944755020027`*^9, 3.906794560109053*^9}},
CellLabel->"In[42]:=",ExpressionUUID->"0c4af6e9-8729-44af-8996-2d1afe03cf3a"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"\[CurlyPhi]xy", "[",
RowBox[{"x", ",", "\[ScriptL]x", ",", "y", ",", "\[ScriptL]y"}], "]"}],
"2"], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[ScriptL]x", ">", "0"}], ",",
RowBox[{"\[ScriptL]y", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.9067945529239173`*^9, 3.906794628483655*^9}},
CellLabel->"In[18]:=",ExpressionUUID->"6755f202-329f-408a-afe2-685fcf6de27f"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{{3.90679461345242*^9, 3.906794629420287*^9}},
CellLabel->"Out[18]=",ExpressionUUID->"372084a9-862c-440c-902b-f05062158c0f"]
}, Open ]],
Cell["Quartic", "Text",
CellChangeTimes->{{3.9068041855380893`*^9,
3.9068041864099674`*^9}},ExpressionUUID->"367876d1-5218-4370-b0b3-\
1d70d8ac1305"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"Qxy", "[",
RowBox[{"x_", ",", "\[ScriptL]x_", ",", "y_", ",", "\[ScriptL]y_"}],
"]"}], ":=",
RowBox[{
FractionBox["1",
SqrtBox[
RowBox[{"4", " ", "\[ScriptL]x", " ", "\[ScriptL]y", " ",
SuperscriptBox[
RowBox[{"Gamma", "[",
FractionBox["5", "4"], "]"}], "2"]}]]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
SuperscriptBox["x", "4"]}], "/",
RowBox[{"(",
RowBox[{"2",
SuperscriptBox["\[ScriptL]x", "4"]}], ")"}]}]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
SuperscriptBox["y", "4"]}], "/",
RowBox[{"(",
RowBox[{"2",
SuperscriptBox["\[ScriptL]y", "4"]}], ")"}]}]]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"Qxy", "[",
RowBox[{"x", ",", "\[ScriptL]x", ",", "y", ",", "\[ScriptL]y"}], "]"}],
"2"], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[ScriptL]x", ">", "0"}], ",",
RowBox[{"\[ScriptL]y", ">", "0"}]}], "}"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.906804203492876*^9, 3.9068042312572727`*^9}, {
3.9068043048876095`*^9, 3.9068043069332705`*^9}, {3.907038528695054*^9,
3.9070385348870926`*^9}},ExpressionUUID->"fb2abd77-6219-496a-a3a1-\
2e96666d7e5a"],
Cell[BoxData["1"], "Output",
CellChangeTimes->{3.9068042320968857`*^9, 3.9068042735604277`*^9,
3.906804307803901*^9},
CellLabel->"Out[48]=",ExpressionUUID->"ae4ae0b1-ae27-4fb5-948d-7b5e1676d018"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"Qxy", "[",
RowBox[{"x", ",", "26", ",", "y", ",", "26"}], "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "50"}], ",", "50"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "50"}], ",", "50"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[ScriptL]x", ">", "0"}], ",",
RowBox[{"\[ScriptL]y", ">", "0"}]}], "}"}]}]}], "]"}], "//",
"N"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox[
RowBox[{"Qxy", "[",
RowBox[{"x", ",", "30", ",", "y", ",", "30"}], "]"}], "2"], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "50"}], ",", "50"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "50"}], ",", "50"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[ScriptL]x", ">", "0"}], ",",
RowBox[{"\[ScriptL]y", ">", "0"}]}], "}"}]}]}], "]"}], "//",
"N"}]}], "Input",
CellChangeTimes->{{3.906807117574005*^9, 3.9068071523998594`*^9}},
CellLabel->"In[53]:=",ExpressionUUID->"5f6d3827-7a38-4734-b251-dfee6d065641"],
Cell[BoxData["0.9999999152618944`"], "Output",
CellChangeTimes->{{3.9068071355755277`*^9, 3.9068071530600395`*^9}},
CellLabel->"Out[53]=",ExpressionUUID->"71f8ac45-f6c8-4b58-aa39-c1e5a4cd2330"],
Cell[BoxData["0.9999511827568459`"], "Output",
CellChangeTimes->{{3.9068071355755277`*^9, 3.9068071545851045`*^9}},
CellLabel->"Out[54]=",ExpressionUUID->"039f9418-023c-46a1-92a8-9f3fbb564396"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
SuperscriptBox[
RowBox[{"\[Zeta]2D", "[",
RowBox[{"x", ",",
RowBox[{"2.5", "X"}], ",", "0", ",", "1"}], "]"}], "2"], ",",
SuperscriptBox[
RowBox[{"\[CurlyPhi]xy", "[",
RowBox[{"x", ",", "X", ",", "0", ",", "1"}], "]"}], "2"], ",",
SuperscriptBox[
RowBox[{"Qxy", "[",
RowBox[{"x", ",", "X", ",", "0", ",", "1"}], "]"}], "2"]}], "}"}],
",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"PlotRange", "->",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"X", ",", "1", ",", "2"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.9067979010320654`*^9, 3.90679798756234*^9}, {
3.9067980617824707`*^9, 3.906798074422372*^9}, {3.9068012691244936`*^9,
3.9068012730985117`*^9}, {3.9068042809628143`*^9, 3.906804293219308*^9},
3.906804694758238*^9, {3.907038550839905*^9, 3.907038553415306*^9}, {
3.907056469736147*^9, 3.907056555118657*^9}, {3.907056588526681*^9,
3.9070566223817987`*^9}},
CellLabel->"In[68]:=",ExpressionUUID->"033c910d-d1e3-4ac3-9666-d7ee353dc01a"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`X$$ = 1., Typeset`show$$ = True,
Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu",
Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ =
"\"untitled\"", Typeset`specs$$ = {{
Hold[$CellContext`X$$], 1, 2}}, Typeset`size$$ = {
360., {118., 122.25051609775929`}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ = True},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm, "Variables" :> {$CellContext`X$$ = 1},
"ControllerVariables" :> {},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$}, "Body" :>
Plot[{$CellContext`\[Zeta]2D[$CellContext`x, 2.5 $CellContext`X$$, 0,
1]^2, $CellContext`\[CurlyPhi]xy[$CellContext`x, $CellContext`X$$,
0, 1]^2, $CellContext`Qxy[$CellContext`x, $CellContext`X$$, 0,
1]^2}, {$CellContext`x, -2, 2}, PlotRange -> {0, 1}],
"Specifications" :> {{$CellContext`X$$, 1, 2}}, "Options" :> {},
"DefaultOptions" :> {}],
ImageSizeCache->{408., {161.63403309800196`, 167.36596690199804`}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output",
CellChangeTimes->{{3.9067979629229264`*^9, 3.9067979884654436`*^9},
3.9067980746723747`*^9, 3.906800192915615*^9, {3.906801273374226*^9,
3.9068012778044987`*^9}, {3.9068042754756775`*^9, 3.906804309443574*^9},
3.9068046954845247`*^9, 3.9070385537837644`*^9, 3.9070423287674217`*^9, {
3.907056475400941*^9, 3.907056556135911*^9}, {3.9070565891211224`*^9,
3.9070566228158817`*^9}},
CellLabel->"Out[68]=",ExpressionUUID->"b19d4033-36f3-497e-ade9-43a957398612"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"test", " ", "=", " ",
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
SuperscriptBox["x", "4"], "+",
SuperscriptBox["x", "2"]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"2",
SuperscriptBox["\[ScriptL]x", "4"]}], ")"}]}]],
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
SuperscriptBox["y", "4"], "+",
SuperscriptBox["y", "2"]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"2",
SuperscriptBox["\[ScriptL]y", "4"]}], ")"}]}]]}]}], ";"}]], "Input",
CellChangeTimes->{{3.9070386094955783`*^9, 3.9070386460282335`*^9}},
CellLabel->"In[56]:=",ExpressionUUID->"680e4704-4d86-4645-a979-d18a34510971"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox["test", "2"], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",",
RowBox[{"Assumptions", "->",
RowBox[{"{",
RowBox[{
RowBox[{"\[ScriptL]x", ">", "0"}], ",",
RowBox[{"\[ScriptL]y", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{3.9070386604364386`*^9},
CellLabel->"In[57]:=",ExpressionUUID->"4279d65e-cad7-4899-8af9-a65ac91358bd"],
Cell[BoxData[
RowBox[{
FractionBox["1", "4"], " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{
FractionBox["1", "8"], " ",
RowBox[{"(",
RowBox[{
FractionBox["1",
SuperscriptBox["\[ScriptL]x", "4"]], "+",
FractionBox["1",
SuperscriptBox["\[ScriptL]y", "4"]]}], ")"}]}]], " ",
RowBox[{"BesselK", "[",
RowBox[{
FractionBox["1", "4"], ",",
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox["\[ScriptL]x", "4"]}]]}], "]"}], " ",
RowBox[{"BesselK", "[",
RowBox[{
FractionBox["1", "4"], ",",
FractionBox["1",
RowBox[{"8", " ",
SuperscriptBox["\[ScriptL]y", "4"]}]]}], "]"}]}]], "Output",
CellChangeTimes->{3.9070386617737904`*^9},
CellLabel->"Out[57]=",ExpressionUUID->"b638ee15-1f70-424f-9d36-8ef67cbf8aeb"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"500", "/",
SuperscriptBox[
RowBox[{"(",
RowBox[{"12", "\[Pi]"}], ")"}], "2"]}], "//", "N"}]], "Input",
CellChangeTimes->{{3.907059100717795*^9, 3.907059123127561*^9}, {
3.9070606302659655`*^9, 3.907060630721142*^9}},
CellLabel->"In[73]:=",ExpressionUUID->"d7226350-fa67-4dbd-ad79-509b3fbfc471"],
Cell[BoxData["0.351809665424784`"], "Output",
CellChangeTimes->{{3.907059109473754*^9, 3.9070591233158903`*^9},
3.9070606309051933`*^9},
CellLabel->"Out[73]=",ExpressionUUID->"42e5c0f2-974d-4e29-bc5e-41d651f5397f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"0.08", "*",
SuperscriptBox[
RowBox[{"(",
RowBox[{"12", "\[Pi]"}], ")"}], "2"]}]], "Input",
CellChangeTimes->{{3.9070591850583467`*^9, 3.9070591911838675`*^9}},
CellLabel->"In[72]:=",ExpressionUUID->"1582c6f7-6ac4-4888-8b91-167a917cd41b"],
Cell[BoxData["113.6978427005494`"], "Output",
CellChangeTimes->{3.9070591914509587`*^9},
CellLabel->"Out[72]=",ExpressionUUID->"3e001f11-f2be-4ffd-bff3-6e3b307c6d29"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"444", "/", "137.0"}]], "Input",
CellChangeTimes->{{3.9070618715069895`*^9, 3.9070618754034104`*^9}},
CellLabel->"In[75]:=",ExpressionUUID->"6a027e2d-0c27-4ec1-a749-3a77a3b4da3e"],
Cell[BoxData["3.240875912408759`"], "Output",
CellChangeTimes->{3.9070618756261992`*^9, 3.9070647769785876`*^9},
CellLabel->"Out[75]=",ExpressionUUID->"0d2fc630-676d-469b-abcf-5ae79ff9ce81"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"74.2", "/", "6"}]], "Input",
CellChangeTimes->{{3.9070647824332128`*^9, 3.9070648219569955`*^9}},
CellLabel->"In[78]:=",ExpressionUUID->"eb7f113f-8274-41ed-96af-0d057b01077f"],
Cell[BoxData["12.366666666666667`"], "Output",
CellChangeTimes->{{3.907064788451619*^9, 3.907064822758484*^9}},
CellLabel->"Out[78]=",ExpressionUUID->"7d763c6f-7b5f-4f1b-aee6-cd80d89e86c1"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
SqrtBox[
FractionBox[
RowBox[{"1.054571817", "\[Times]",
SuperscriptBox["10",
RowBox[{"-", "34"}]]}],
RowBox[{"164", "*", "1.66053906660", "*",
SuperscriptBox["10",
RowBox[{"-", "27"}]], "*", "2", "\[Pi]", "*", "444"}]]], "*",
SuperscriptBox["10", "6"]}]], "Input",
CellChangeTimes->{{3.90712447492118*^9, 3.907124485563692*^9}, {
3.9071246310496273`*^9, 3.9071246614652967`*^9}, {3.907124697916647*^9,
3.9071247256513014`*^9}, {3.9071247622665434`*^9,
3.9071247631576986`*^9}, {3.907125008902064*^9, 3.9071250091558857`*^9}, {
3.9071250499469166`*^9, 3.9071250607307773`*^9}, 3.907125844332448*^9, {
3.9071259607427235`*^9, 3.9071259789839826`*^9}, {3.9071413166911907`*^9,
3.907141316949793*^9}, 3.907141669907065*^9, {3.907142422967744*^9,
3.90714242337148*^9}},ExpressionUUID->"366fd378-0e83-45b8-b642-\
5019aa564eb2"],
Cell[BoxData["0.39252893664958033`"], "Output",
CellChangeTimes->{{3.9071246996303825`*^9, 3.9071247260147424`*^9},
3.90712476389843*^9, 3.9071250093637877`*^9, {3.9071250546136136`*^9,
3.9071250611653214`*^9}, 3.907125844903445*^9, {3.907125962130062*^9,
3.9071259792267084`*^9}, 3.9071407183213177`*^9, 3.907141317176345*^9,
3.9071416701462617`*^9},
CellLabel->"Out[92]=",ExpressionUUID->"7d0b84fe-a7f2-4879-835d-c1cfa4263f87"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
FractionBox[
RowBox[{"5", "*",
SuperscriptBox["10",
RowBox[{"-", "6"}]]}],
RowBox[{"131.0", "*", "5.291772109", "*",
SuperscriptBox["10",
RowBox[{"-", "11"}]]}]]], "Input",
CellChangeTimes->{{3.907140491993994*^9, 3.9071404952364798`*^9}, {
3.9071510349414973`*^9, 3.9071511429502387`*^9}},
CellLabel->
"In[153]:=",ExpressionUUID->"e584ff53-e0a9-4608-9354-51aa456a3af4"],
Cell[BoxData["721.269513220032`"], "Output",
CellChangeTimes->{
3.907140495483513*^9, 3.9071510610049963`*^9, {3.907151104173587*^9,
3.9071511440480366`*^9}},
CellLabel->
"Out[153]=",ExpressionUUID->"2898f546-6fbf-4a99-b803-0c05a2c843c2"]
}, Open ]]
}, Open ]]
},
WindowSize->{718.5, 729.75},
WindowMargins->{{Automatic, -928.5}, {Automatic, 84.75}},
TaggingRules-><|"TryRealOnly" -> False|>,
FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (November 18, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"dccde305-63d8-401d-9c52-62a9c331fa85"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 174, 3, 67, "Section",ExpressionUUID->"9363a600-1583-4616-8724-f4b1bbd892c1"],
Cell[757, 27, 696, 20, 52, "Input",ExpressionUUID->"e69b905f-04c3-4399-8fb9-af27a5a43ad7"],
Cell[CellGroupData[{
Cell[1478, 51, 653, 17, 31, "Input",ExpressionUUID->"67872261-0271-4eed-9b17-131564919bb4"],
Cell[2134, 70, 1817, 35, 343, "Output",ExpressionUUID->"7246a854-7b0d-4d94-9642-8dfd54e3e807"]
}, Open ]],
Cell[3966, 108, 157, 3, 35, "Text",ExpressionUUID->"ec73a306-384c-47aa-b91b-381b138e64ea"],
Cell[CellGroupData[{
Cell[4148, 115, 543, 14, 31, "Input",ExpressionUUID->"f18bbffe-81ef-48c7-9ed2-1a19bede3cbc"],
Cell[4694, 131, 296, 4, 32, "Output",ExpressionUUID->"e7cf864a-bf83-45b0-a595-4e464afc0fb8"]
}, Open ]],
Cell[5005, 138, 158, 3, 35, "Text",ExpressionUUID->"638d88a8-a5bb-4dd3-8441-1e0f36c5d26e"],
Cell[CellGroupData[{
Cell[5188, 145, 653, 18, 28, "Input",ExpressionUUID->"b948d27f-2a3b-4906-b17a-9e146262a970"],
Cell[5844, 165, 317, 7, 49, "Output",ExpressionUUID->"0856c51a-a34c-4d9d-9443-551e2ea1a2f3"]
}, Open ]],
Cell[6176, 175, 157, 3, 35, "Text",ExpressionUUID->"2ee65a03-bfda-4dda-ad55-24c3306a698f"],
Cell[CellGroupData[{
Cell[6358, 182, 592, 16, 31, "Input",ExpressionUUID->"fc9c4c67-d0f4-4e1c-8bb7-7c5cc799f528"],
Cell[6953, 200, 271, 5, 50, "Output",ExpressionUUID->"fb82084d-ccad-452d-aa1b-e6825e87d4c9"]
}, Open ]],
Cell[7239, 208, 166, 3, 35, "Text",ExpressionUUID->"b7761400-cc50-49a5-8152-31201d5382fb"],
Cell[CellGroupData[{
Cell[7430, 215, 538, 14, 31, "Input",ExpressionUUID->"572f799f-6e36-48d6-9bbd-f0d09d33a48a"],
Cell[7971, 231, 318, 7, 52, "Output",ExpressionUUID->"cef2bf7a-27d9-4ddd-b3a4-d9e6fffb07dc"]
}, Open ]],
Cell[8304, 241, 164, 3, 35, "Text",ExpressionUUID->"3c3a85ee-1cb8-4b02-97ff-6e8933798b7c"],
Cell[CellGroupData[{
Cell[8493, 248, 543, 14, 31, "Input",ExpressionUUID->"8affe6ea-34e9-4e2a-a212-417cd7697747"],
Cell[9039, 264, 411, 11, 64, "Output",ExpressionUUID->"62e6cea9-f547-428e-903e-c6b17170493b"]
}, Open ]],
Cell[CellGroupData[{
Cell[9487, 280, 707, 21, 67, "Input",ExpressionUUID->"f42d2715-8c00-4979-aa85-a0780896b1bc"],
Cell[10197, 303, 254, 3, 32, "Output",ExpressionUUID->"08ec8d82-d98f-45ae-a4de-f44611d20336"]
}, Open ]],
Cell[CellGroupData[{
Cell[10488, 311, 159, 3, 45, "Subsubsection",ExpressionUUID->"ff525df7-a128-41a8-baec-7180121ebee6"],
Cell[CellGroupData[{
Cell[10672, 318, 702, 19, 50, "Input",ExpressionUUID->"4a643741-089f-44fa-a0eb-039afa1c50b6"],
Cell[11377, 339, 273, 6, 49, "Output",ExpressionUUID->"998187e8-1389-4134-a125-e4b1fdc34e58"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[11699, 351, 153, 3, 54, "Subsection",ExpressionUUID->"15198319-dab5-4208-9790-943047714c15"],
Cell[11855, 356, 754, 21, 76, "Input",ExpressionUUID->"35bff2c5-708c-4710-aae1-511cf7049877"],
Cell[CellGroupData[{
Cell[12634, 381, 174, 3, 45, "Subsubsection",ExpressionUUID->"b09fbee7-6d5f-4b82-93c3-81e98fc7bcb3"],
Cell[12811, 386, 215, 4, 35, "Text",ExpressionUUID->"766e7b17-6777-416b-bc00-0cbfe4db807b"],
Cell[CellGroupData[{
Cell[13051, 394, 450, 12, 50, "Input",ExpressionUUID->"70566162-59c6-48ee-9d64-129d9cf11054"],
Cell[13504, 408, 426, 10, 51, "Output",ExpressionUUID->"1c92b392-1cd5-46da-a528-223d39650ef7"]
}, Open ]],
Cell[CellGroupData[{
Cell[13967, 423, 934, 25, 90, "Input",ExpressionUUID->"796e77d2-f82b-4a70-a20f-2b1bf7bb8fd5"],
Cell[14904, 450, 570, 16, 53, "Output",ExpressionUUID->"6a0e3f99-f99a-4604-9eb1-cab5dfb56c3e"]
}, Open ]],
Cell[CellGroupData[{
Cell[15511, 471, 401, 10, 45, "Input",ExpressionUUID->"70618c21-5497-499a-b1f1-76c64d598d56"],
Cell[15915, 483, 411, 10, 65, "Output",ExpressionUUID->"f64b9ca5-cf41-4f58-aed6-86ccc84e41a1"]
}, Open ]],
Cell[CellGroupData[{
Cell[16363, 498, 910, 25, 106, "Input",ExpressionUUID->"62e3c3fc-dd6c-4666-9a07-3a70a3a43623"],
Cell[17276, 525, 492, 14, 53, "Output",ExpressionUUID->"46d3f17f-025a-441d-b8b9-63e714c0fca3"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[17817, 545, 222, 4, 45, "Subsubsection",ExpressionUUID->"c0f8f51e-2ccf-4eee-891e-a1a6cf7aec97"],
Cell[18042, 551, 332, 7, 35, "Text",ExpressionUUID->"dc945d09-54c6-41f0-bb7e-d96363dea68a"],
Cell[CellGroupData[{
Cell[18399, 562, 893, 22, 38, "Input",ExpressionUUID->"8c68a05d-2222-48c2-98ab-fffbf6f94f89"],
Cell[19295, 586, 1496, 43, 103, "Output",ExpressionUUID->"5b6f8065-09d1-429c-849b-87466a19dcb2"]
}, Open ]],
Cell[CellGroupData[{
Cell[20828, 634, 468, 11, 38, "Input",ExpressionUUID->"5277fab4-2ad5-4f47-91cb-146f19862112"],
Cell[21299, 647, 841, 24, 54, "Output",ExpressionUUID->"84595553-094d-4135-9878-83c5df7ac7bc"]
}, Open ]],
Cell[22155, 674, 150, 3, 35, "Text",ExpressionUUID->"37884b64-69e0-4bc9-80a1-ab776c254250"],
Cell[CellGroupData[{
Cell[22330, 681, 370, 9, 32, "Input",ExpressionUUID->"c8cf946c-feff-42bf-8d4e-2cf27c77f5ef"],
Cell[22703, 692, 149, 2, 32, "Output",ExpressionUUID->"7baacfd9-20b2-46f4-94ad-8d91dd409ece"]
}, Open ]],
Cell[CellGroupData[{
Cell[22889, 699, 916, 26, 88, "Input",ExpressionUUID->"6129d05b-758b-49ec-baa3-2aab995af674"],
Cell[23808, 727, 190, 3, 32, "Output",ExpressionUUID->"ebccdb47-3c7e-4f15-89dc-0ffc87b1ee36"],
Cell[24001, 732, 171, 2, 32, "Output",ExpressionUUID->"ec1d61a1-c94f-4107-b96c-4cbae7121de7"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[24221, 740, 163, 3, 45, "Subsubsection",ExpressionUUID->"614a6ee7-0ba4-4edb-93a1-ddf287b36bbe"],
Cell[CellGroupData[{
Cell[24409, 747, 514, 12, 38, "Input",ExpressionUUID->"afae188b-b97e-4080-9a5e-527b5aff8d98"],
Cell[24926, 761, 566, 15, 52, "Output",ExpressionUUID->"a0018bce-3b69-4e36-beae-cd81626f1703"]
}, Open ]],
Cell[CellGroupData[{
Cell[25529, 781, 501, 13, 38, "Input",ExpressionUUID->"79b6e95b-0c84-479c-8a6e-d7359e1450ea"],
Cell[26033, 796, 237, 4, 32, "Output",ExpressionUUID->"4be8ade7-55b9-4485-9a2c-974efdcdc689"]
}, Open ]],
Cell[CellGroupData[{
Cell[26307, 805, 591, 15, 38, "Input",ExpressionUUID->"084bca4e-a6ef-404e-aadb-b99016eb6b7c"],
Cell[26901, 822, 7241, 138, 230, "Output",ExpressionUUID->"4a2dbf88-5068-450e-aef3-2dc79b4c78b5"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[34215, 968, 155, 3, 67, "Section",ExpressionUUID->"1bbff0ee-6de9-4578-b58c-b5cffaaa4e8e"],
Cell[34373, 973, 1995, 60, 189, "Input",ExpressionUUID->"4c972eb1-7c9e-4aca-89be-a1df696fd095"],
Cell[36371, 1035, 156, 3, 35, "Text",ExpressionUUID->"bcaaddec-e01d-4032-812b-90f3b8a864a2"],
Cell[CellGroupData[{
Cell[36552, 1042, 711, 16, 31, "Input",ExpressionUUID->"e3cd9c0f-0e18-479a-bff1-088b2a2e2f1e"],
Cell[37266, 1060, 320, 4, 32, "Output",ExpressionUUID->"c1043647-9e16-43dc-b229-535225513db4"]
}, Open ]],
Cell[37601, 1067, 160, 3, 35, "Text",ExpressionUUID->"93683b0d-8fcc-4edb-9d26-2c2932609906"],
Cell[CellGroupData[{
Cell[37786, 1074, 1343, 35, 48, "Input",ExpressionUUID->"3a18d74f-8c6f-4aa6-b7d2-1a4e484ee8b2"],
Cell[39132, 1111, 751, 18, 75, "Output",ExpressionUUID->"4b32515e-050c-4410-84b7-58d9b583e445"]
}, Open ]],
Cell[CellGroupData[{
Cell[39920, 1134, 1535, 44, 69, "Input",ExpressionUUID->"3cb469fe-fd3e-480e-99a3-383578706bf0"],
Cell[41458, 1180, 742, 19, 75, "Output",ExpressionUUID->"7036e37a-1332-4f0b-bc9c-349f26cf5362"]
}, Open ]],
Cell[42215, 1202, 158, 3, 35, "Text",ExpressionUUID->"1384ff2b-cd3b-4bea-92b4-524d1fdd9ac6"],
Cell[CellGroupData[{
Cell[42398, 1209, 807, 21, 45, "Input",ExpressionUUID->"4f5c4a55-ff8c-4d2e-af9d-9e3995ba884d"],
Cell[43208, 1232, 494, 12, 65, "Output",ExpressionUUID->"8f993131-604b-4d78-ac92-03b9d4b7d856"]
}, Open ]],
Cell[43717, 1247, 162, 3, 35, "Text",ExpressionUUID->"127c4ebc-9c46-4482-9f57-7dba64f47a32"],
Cell[CellGroupData[{
Cell[43904, 1254, 581, 15, 31, "Input",ExpressionUUID->"b7391b5f-6190-4094-90d1-93da75cb6dd6"],
Cell[44488, 1271, 435, 12, 67, "Output",ExpressionUUID->"246fd80e-9c92-4900-9b90-6f0d96a8bba4"]
}, Open ]],
Cell[CellGroupData[{
Cell[44960, 1288, 579, 15, 31, "Input",ExpressionUUID->"6da94ff5-fdb7-4b8c-99f5-88e9cff263b4"],
Cell[45542, 1305, 708, 21, 64, "Output",ExpressionUUID->"35d02c6f-ff32-40b3-ab6c-9525c58a66fb"]
}, Open ]],
Cell[46265, 1329, 146, 3, 35, "Text",ExpressionUUID->"65a3eb1a-12cf-4607-b9fe-116107c90b60"],
Cell[CellGroupData[{
Cell[46436, 1336, 143, 2, 28, "Input",ExpressionUUID->"e3966bbb-ff08-4e57-b839-737b54dae650"],
Cell[46582, 1340, 485, 14, 68, "Output",ExpressionUUID->"36b211fa-ad3e-4242-ad54-e9c2fa614ad8"]
}, Open ]],
Cell[CellGroupData[{
Cell[47104, 1359, 574, 11, 28, "Input",ExpressionUUID->"4d073a7f-09a9-4cb4-915e-ee2f57cbe115"],
Cell[47681, 1372, 623, 16, 59, "Output",ExpressionUUID->"50409805-d978-429b-b7e7-261632193cb9"]
}, Open ]],
Cell[CellGroupData[{
Cell[48341, 1393, 542, 15, 65, "Input",ExpressionUUID->"d4f9e174-8f32-4619-9dca-4aebd95c1898"],
Cell[48886, 1410, 390, 10, 58, "Output",ExpressionUUID->"9528048e-6c11-49e1-b922-5bf2a281746d"]
}, Open ]],
Cell[CellGroupData[{
Cell[49313, 1425, 698, 19, 58, "Input",ExpressionUUID->"01aeff18-5008-40e8-a5e7-01247222256c"],
Cell[50014, 1446, 200, 3, 32, "Output",ExpressionUUID->"9d98d104-2144-46f1-b45f-a36ff746a67d"]
}, Open ]],
Cell[CellGroupData[{
Cell[50251, 1454, 1373, 41, 130, "Input",ExpressionUUID->"6a53de0e-9864-4520-bb42-e647c9844550"],
Cell[51627, 1497, 299, 4, 32, "Output",ExpressionUUID->"38ee63b6-1a12-4f19-8884-3bcf9832c470"],
Cell[51929, 1503, 342, 6, 51, "Output",ExpressionUUID->"9039018c-112a-4174-8ec1-91f9b5c68088"]
}, Open ]],
Cell[CellGroupData[{
Cell[52308, 1514, 1793, 44, 98, "Input",ExpressionUUID->"723be611-be49-483a-ad8a-441fa9d7bf69"],
Cell[54104, 1560, 2416, 45, 364, "Output",ExpressionUUID->"9207aec3-4845-4b96-89e9-83e01c2b896d"]
}, Open ]],
Cell[CellGroupData[{
Cell[56557, 1610, 1174, 35, 66, "Input",ExpressionUUID->"697a395a-ba66-473c-87a6-74f4303a4f19"],
Cell[57734, 1647, 239, 3, 32, "Output",ExpressionUUID->"77fc2032-4674-459e-97f6-f0f78f814e86"]
}, Open ]],
Cell[CellGroupData[{
Cell[58010, 1655, 866, 26, 66, "Input",ExpressionUUID->"6d5bd50a-676e-4249-a5ef-f564cf228c1b"],
Cell[58879, 1683, 2088, 64, 122, "Output",ExpressionUUID->"b096db87-dddf-4a2e-b18c-ce4e92d8dfee"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[61016, 1753, 165, 3, 67, "Section",ExpressionUUID->"e1d6e495-5976-4391-b593-7f69d8e5855e"],
Cell[61184, 1758, 790, 20, 57, "Input",ExpressionUUID->"1efe599f-cecd-40d1-a2c9-8cb0bcc73119"],
Cell[CellGroupData[{
Cell[61999, 1782, 640, 15, 31, "Input",ExpressionUUID->"9a0f8de1-0801-45e5-9dff-dbe70551ed0e"],
Cell[62642, 1799, 420, 6, 32, "Output",ExpressionUUID->"0d82ad42-9787-43d7-98fb-033343f967a4"]
}, Open ]],
Cell[CellGroupData[{
Cell[63099, 1810, 142, 2, 28, "Input",ExpressionUUID->"366ee2ce-9b72-4a3e-a981-fbec08b76039"],
Cell[63244, 1814, 211, 3, 32, "Output",ExpressionUUID->"10d85da5-5fe9-40f1-94bf-dc82d1610e6b"]
}, Open ]],
Cell[63470, 1820, 147, 2, 35, "Text",ExpressionUUID->"5806d104-c01a-4cca-85b5-f1059085d092"],
Cell[63620, 1824, 882, 27, 51, "Input",ExpressionUUID->"67af1419-14b8-4e07-b6b7-84a8b82b7403"],
Cell[CellGroupData[{
Cell[64527, 1855, 710, 18, 31, "Input",ExpressionUUID->"861d1a5e-4778-4d89-bce1-9727e0de0e58"],
Cell[65240, 1875, 379, 7, 48, "Output",ExpressionUUID->"ab49be0a-f594-4302-8380-9496045fd379"]
}, Open ]],
Cell[CellGroupData[{
Cell[65656, 1887, 1788, 46, 96, "Input",ExpressionUUID->"1d7abe0c-b177-452d-99dc-e288f5d8700e"],
Cell[67447, 1935, 2702, 49, 372, "Output",ExpressionUUID->"e19666f6-c742-4ad2-8ab5-3b6859a2c4be"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[70198, 1990, 156, 3, 67, "Section",ExpressionUUID->"d904f7a6-0fb2-4068-b075-6e7ad558d961"],
Cell[70357, 1995, 156, 3, 35, "Text",ExpressionUUID->"f2deb6ba-1000-455b-9071-3aca7017d334"],
Cell[70516, 2000, 925, 22, 56, "Input",ExpressionUUID->"6ab86ec7-b7c9-4083-9c0e-5fb28df9f6aa"],
Cell[CellGroupData[{
Cell[71466, 2026, 1075, 32, 85, "Input",ExpressionUUID->"9f1e04bb-dc6f-40c5-bc63-52c55b56b688"],
Cell[72544, 2060, 321, 4, 32, "Output",ExpressionUUID->"a3ea3204-66f5-42ff-88ad-79126f80429d"]
}, Open ]],
Cell[72880, 2067, 154, 3, 35, "Text",ExpressionUUID->"ba9091a7-231b-4e70-a7c4-db4d6aa916a6"],
Cell[73037, 2072, 1033, 32, 54, "Input",ExpressionUUID->"0c4af6e9-8729-44af-8996-2d1afe03cf3a"],
Cell[CellGroupData[{
Cell[74095, 2108, 750, 19, 31, "Input",ExpressionUUID->"6755f202-329f-408a-afe2-685fcf6de27f"],
Cell[74848, 2129, 172, 2, 32, "Output",ExpressionUUID->"372084a9-862c-440c-902b-f05062158c0f"]
}, Open ]],
Cell[75035, 2134, 153, 3, 35, "Text",ExpressionUUID->"367876d1-5218-4370-b0b3-1d70d8ac1305"],
Cell[CellGroupData[{
Cell[75213, 2141, 1639, 48, 89, "Input",ExpressionUUID->"fb2abd77-6219-496a-a3a1-2e96666d7e5a"],
Cell[76855, 2191, 200, 3, 32, "Output",ExpressionUUID->"ae4ae0b1-ae27-4fb5-948d-7b5e1676d018"]
}, Open ]],
Cell[CellGroupData[{
Cell[77092, 2199, 1302, 38, 96, "Input",ExpressionUUID->"5f6d3827-7a38-4734-b251-dfee6d065641"],
Cell[78397, 2239, 195, 2, 32, "Output",ExpressionUUID->"71f8ac45-f6c8-4b58-aa39-c1e5a4cd2330"],
Cell[78595, 2243, 195, 2, 32, "Output",ExpressionUUID->"039f9418-023c-46a1-92a8-9f3fbb564396"]
}, Open ]],
Cell[CellGroupData[{
Cell[78827, 2250, 1320, 32, 53, "Input",ExpressionUUID->"033c910d-d1e3-4ac3-9666-d7ee353dc01a"],
Cell[80150, 2284, 2219, 41, 348, "Output",ExpressionUUID->"b19d4033-36f3-497e-ade9-43a957398612"]
}, Open ]],
Cell[82384, 2328, 842, 25, 34, "Input",ExpressionUUID->"680e4704-4d86-4645-a979-d18a34510971"],
Cell[CellGroupData[{
Cell[83251, 2357, 616, 16, 31, "Input",ExpressionUUID->"4279d65e-cad7-4899-8af9-a65ac91358bd"],
Cell[83870, 2375, 814, 25, 60, "Output",ExpressionUUID->"b638ee15-1f70-424f-9d36-8ef67cbf8aeb"]
}, Open ]],
Cell[CellGroupData[{
Cell[84721, 2405, 347, 8, 30, "Input",ExpressionUUID->"d7226350-fa67-4dbd-ad79-509b3fbfc471"],
Cell[85071, 2415, 220, 3, 32, "Output",ExpressionUUID->"42e5c0f2-974d-4e29-bc5e-41d651f5397f"]
}, Open ]],
Cell[CellGroupData[{
Cell[85328, 2423, 274, 6, 28, "Input",ExpressionUUID->"1582c6f7-6ac4-4888-8b91-167a917cd41b"],
Cell[85605, 2431, 168, 2, 32, "Output",ExpressionUUID->"3e001f11-f2be-4ffd-bff3-6e3b307c6d29"]
}, Open ]],
Cell[CellGroupData[{
Cell[85810, 2438, 204, 3, 28, "Input",ExpressionUUID->"6a027e2d-0c27-4ec1-a749-3a77a3b4da3e"],
Cell[86017, 2443, 192, 2, 32, "Output",ExpressionUUID->"0d2fc630-676d-469b-abcf-5ae79ff9ce81"]
}, Open ]],
Cell[CellGroupData[{
Cell[86246, 2450, 201, 3, 28, "Input",ExpressionUUID->"eb7f113f-8274-41ed-96af-0d057b01077f"],
Cell[86450, 2455, 191, 2, 32, "Output",ExpressionUUID->"7d763c6f-7b5f-4f1b-aee6-cd80d89e86c1"]
}, Open ]],
Cell[CellGroupData[{
Cell[86678, 2462, 915, 19, 59, "Input",ExpressionUUID->"366fd378-0e83-45b8-b642-5019aa564eb2"],
Cell[87596, 2483, 447, 6, 32, "Output",ExpressionUUID->"7d0b84fe-a7f2-4879-835d-c1cfa4263f87"]
}, Open ]],
Cell[CellGroupData[{
Cell[88080, 2494, 414, 11, 48, "Input",ExpressionUUID->"e584ff53-e0a9-4608-9354-51aa456a3af4"],
Cell[88497, 2507, 248, 5, 32, "Output",ExpressionUUID->"2898f546-6fbf-4a99-b803-0c05a2c843c2"]
}, Open ]]
}, Open ]]
}
]
*)
Reference in New Issue View Git Blame Copy Permalink