(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 88751, 2177]
NotebookOptionsPosition[ 85817, 2128]
NotebookOutlinePosition[ 86336, 2147]
CellTagsIndexPosition[ 86293, 2144]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Physical Constants",
FontFamily->"Constantia",
FontSize->16,
FontWeight->"Bold",
FontColor->GrayLevel[0.5]]], "Input",
CellChangeTimes->{{3.9218604688469973`*^9, 3.9218604705819902`*^9}, {
3.921860509909423*^9, 3.9218605101557975`*^9}, {3.9218605710672183`*^9,
3.9218605713967752`*^9}, {3.9218606747855597`*^9, 3.921860675546955*^9}, {
3.921860713598314*^9, 3.9218607136755395`*^9}, {3.9218614170207787`*^9,
3.921861421765582*^9}, {3.9218622842698154`*^9, 3.9218622845703773`*^9}, {
3.9218637049754725`*^9, 3.9218639427969847`*^9}, {3.9218640150194182`*^9,
3.9218643378069563`*^9}, {3.9218643701143293`*^9, 3.921864380149418*^9}, {
3.921864442860821*^9, 3.9218645159870462`*^9}, {3.921864629279454*^9,
3.9218647632095366`*^9}, {3.9218648706892996`*^9, 3.9218648721503096`*^9}, {
3.921864905892045*^9, 3.9218650514262366`*^9}, {3.9218651761366644`*^9,
3.9218652361328473`*^9}, {3.921903165204711*^9, 3.9219032087923*^9}},
FormatType->
"TextForm",ExpressionUUID->"4580ef46-100f-4d06-a81d-01ef1972d03a"],
Cell[BoxData[{
RowBox[{
RowBox[{"PlanckConstant", "=",
RowBox[{"6.62606957", " ",
SuperscriptBox["10",
RowBox[{"-", "34"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"PlanckConstantReduced", "=",
FractionBox["PlanckConstant",
RowBox[{"2", " ", "\[Pi]"}]]}], ";"}], "\n",
RowBox[{
RowBox[{"FineStructureConstant", "=",
RowBox[{"7.2973525698", " ",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"ElectronMass", "=",
RowBox[{"9.10938291", " ",
SuperscriptBox["10",
RowBox[{"-", "31"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"GravitationalConstant", "=",
RowBox[{"6.67384", " ",
SuperscriptBox["10",
RowBox[{"-", "11"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"ProtonMass", "=",
RowBox[{"1.672621777", " ",
SuperscriptBox["10",
RowBox[{"-", "27"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"AtomicMassUnit", "=",
RowBox[{"1.66053878283", " ",
SuperscriptBox["10",
RowBox[{"-", "27"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"BohrRadius", "=",
RowBox[{"0.52917721092", " ",
SuperscriptBox["10",
RowBox[{"-", "10"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"BohrMagneton", "=",
RowBox[{"927.400968", " ",
SuperscriptBox["10",
RowBox[{"-", "26"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"BoltzmannConstant", "=",
RowBox[{"1.3806488", " ",
SuperscriptBox["10",
RowBox[{"-", "23"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"StandardGravityAcceleration", "=", "9.80665"}], ";"}], "\n",
RowBox[{
RowBox[{"SpeedOfLight", "=", "299792458"}], ";"}], "\n",
RowBox[{
RowBox[{"StefanBoltzmannConstant", "=",
RowBox[{"5.670373", " ",
SuperscriptBox["10",
RowBox[{"-", "8"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"ElectronCharge", "=",
RowBox[{"1.602176565", " ",
SuperscriptBox["10",
RowBox[{"-", "19"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"VacuumPermeability", "=",
RowBox[{"4", "\[Pi]", " ",
SuperscriptBox["10",
RowBox[{"-", "7"}]]}]}], ";"}], "\n",
RowBox[{
RowBox[{"DielectricConstant", "=",
FractionBox["1",
RowBox[{
SuperscriptBox["SpeedOfLight", "2"], " ", "VacuumPermeability"}]]}],
";"}], "\n",
RowBox[{
RowBox[{"ElectronGyromagneticFactor", "=",
RowBox[{"-", "2.00231930436153"}]}], ";"}], "\n",
RowBox[{
RowBox[{"AvogadroConstant", "=",
RowBox[{"6.02214129", " ",
SuperscriptBox["10", "23"]}]}], ";"}]}], "Input",
CellLabel->"In[51]:=",ExpressionUUID->"ce0760b5-054f-479a-afb4-a27ee89f6ef3"],
Cell[TextData[StyleBox["Dysprosium-specific constants",
FontFamily->"Constantia",
FontSize->16,
FontWeight->"Bold",
FontColor->GrayLevel[0.5]]], "Input",
CellChangeTimes->{{3.9219032483914833`*^9,
3.921903262774025*^9}},ExpressionUUID->"7541c8e9-4ed6-4cc8-b1b8-\
8a5d0ee47409"],
Cell[BoxData[{
RowBox[{
RowBox[{"m", " ", "=", " ",
RowBox[{"164", " ", "AtomicMassUnit"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"d", "=",
RowBox[{"9.93", " ", "BohrMagneton"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.921861126071759*^9, 3.921861198935811*^9}, {
3.921861456932269*^9, 3.921861520047635*^9}, {3.9218624726535697`*^9,
3.9218625393814287`*^9}, {3.9218636426081004`*^9,
3.9218636512989335`*^9}, {3.9218652273966293`*^9,
3.9218652421329665`*^9}, {3.9218653312269993`*^9,
3.9218653325512457`*^9}, {3.921865502311236*^9, 3.9218655355988474`*^9},
3.9218656865053196`*^9, 3.9218657383403807`*^9, 3.921865905305124*^9, {
3.9218660848288355`*^9, 3.921866189629972*^9}, {3.9218664265464654`*^9,
3.9218665253706584`*^9}, {3.921866880216236*^9, 3.9218668824616456`*^9}, {
3.9218670184873433`*^9, 3.92186705257728*^9}, 3.921867085993656*^9, {
3.92186757074012*^9, 3.9218676108908134`*^9}, {3.921903281232257*^9,
3.921903293047537*^9}},
CellLabel->"In[69]:=",ExpressionUUID->"f8fcb7a4-bca8-428a-a81f-4f55d34b324e"],
Cell[TextData[StyleBox["Definitions",
FontFamily->"Constantia",
FontSize->16,
FontWeight->"Bold",
FontColor->GrayLevel[0.5]]], "Input",
CellChangeTimes->{{3.921903319975718*^9, 3.9219033335492077`*^9}, {
3.9219034083979707`*^9, 3.921903426068775*^9}, {3.921903464423579*^9,
3.921903488315468*^9}},
FormatType->
"TextForm",ExpressionUUID->"a535950b-0832-4f86-9704-498eee013f2a"],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"g", "[", "as_", "]"}], ":=", " ",
FractionBox[
RowBox[{"4", "\[Pi]", " ",
SuperscriptBox["PlanckConstantReduced", "2"], "as"}], "m"]}], " ",
";"}], " ",
RowBox[{"(*",
RowBox[{
RowBox[{
"Contact", " ", "coupling", " ", "strength", " ", "as", " ", "a", " ",
"function", " ", "of", " ", "the", " ", "s"}], "-",
RowBox[{"wave", " ", "scattering", " ", "length"}]}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["C", "dd"], "=", " ",
RowBox[{"VacuumPermeability", " ",
SuperscriptBox["d", "2"]}]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"Dipolar", " ", "coupling", " ", "strength"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "[", "as_", "]"}], ":=",
FractionBox[
SubscriptBox["C", "dd"],
RowBox[{"3",
RowBox[{"g", "[", "as", "]"}]}]]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"Coupling", " ", "strength", " ", "ratio"}], "*)"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"Analytic", " ", "solution", " ", "under", " ", "the", " ", "Thomas", " ",
"Fermi", " ", "approximation"}], " ", "-", " ",
RowBox[{
"neglecting", " ", "the", " ", "kinetic", " ", "energy", " ", "term", " ",
"in", " ", "the", " ", "time"}], "-",
RowBox[{
"independent", " ", "GPE", " ", "for", " ", "a", " ", "dipolar", " ",
"gas", " ", "in", " ", "a", " ", "harmonic", " ", "trap", " ", "with",
" ", "cylindrical", " ", "symmetry"}]}], "*)"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{
"k", " ", "below", " ", "is", " ", "the", " ", "aspect", " ", "ratio"}],
",", " ",
RowBox[{"k", " ", "=", " ",
RowBox[{"Rx", "/", "Rz"}]}]}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"h", "[", "\[Kappa]_", "]"}], ":=",
RowBox[{
RowBox[{"(",
FractionBox["1",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox["\[Kappa]", "2"]}], ")"}]}]], ")"}],
RowBox[{"Log", "[",
FractionBox[
RowBox[{"1", "+",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox["\[Kappa]", "2"]}], ")"}]}]}],
RowBox[{"1", "-",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox["\[Kappa]", "2"]}], ")"}]}]}]], "]"}]}]}], ";"}],
RowBox[{"(*",
RowBox[{
RowBox[{
"Function", " ", "definition", " ", "for", " ", "an", " ", "prolate", " ",
"spheroid"}], ",", " ",
RowBox[{"k", " ", "<", " ", "1"}]}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"j", "[", "\[Kappa]_", "]"}], ":=",
RowBox[{
RowBox[{"(",
FractionBox["2",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
SuperscriptBox["\[Kappa]", "2"], "-", "1"}], ")"}]}]], ")"}],
RowBox[{"ArcTan", "[",
RowBox[{"\[Sqrt]",
RowBox[{"(",
RowBox[{
SuperscriptBox["\[Kappa]", "2"], "-", "1"}], ")"}]}], "]"}]}]}],
";"}],
RowBox[{"(*",
RowBox[{
RowBox[{
"Function", " ", "definition", " ", "for", " ", "an", " ", "oblate", " ",
"spheroid"}], ",", " ",
RowBox[{"k", " ", ">", " ", "1"}]}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"\[CapitalXi]", "[", "\[Kappa]_", "]"}], ":=",
RowBox[{"If", "[",
RowBox[{
RowBox[{"\[Kappa]", "<", "1"}], ",",
RowBox[{"h", "[", "\[Kappa]", "]"}], ",",
RowBox[{"j", "[", "\[Kappa]", "]"}]}], "]"}]}], ";"}],
" "}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"f", "[", "\[Kappa]_", "]"}], ":=", " ",
FractionBox[
RowBox[{"2", "+",
RowBox[{
SuperscriptBox["\[Kappa]", "2"],
RowBox[{"(",
RowBox[{"4", " ", "-", " ",
RowBox[{"3", " ",
RowBox[{"\[CapitalXi]", "[", "\[Kappa]", "]"}]}]}], ")"}]}]}],
RowBox[{"2",
RowBox[{"(",
RowBox[{"1", "-",
SuperscriptBox["\[Kappa]", "2"]}], ")"}]}]]}], ";"}], " ",
RowBox[{"(*",
RowBox[{
RowBox[{
RowBox[{
"Monotonously", " ", "decreasing", " ", "function", " ", "having", " ",
"values", " ", "in", " ", "the", " ", "range", " ", "1"}], " ",
"\[GreaterEqual]", " ",
RowBox[{"f",
RowBox[{"(", "k", ")"}]}], " ", "\[GreaterEqual]", " ",
RowBox[{
RowBox[{"-", "2"}], " ", "passing", " ", "through", " ", "0", " ", "at",
" ", "k"}]}], "=", "1"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
"k", " ", "is", " ", "first", " ", "obtained", " ", "by", " ", "solving",
" ", "the", " ", "following", " ", "transcendental", " ", "equation"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"AspectRatioEquation", "[",
RowBox[{"\[Kappa]_", ",", " ", "as_"}], "]"}], " ", ":=", " ",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox["\[Kappa]", "2"], " ",
RowBox[{
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "[", "as", "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
FractionBox[
SuperscriptBox["\[Gamma]", "2"], "2"], "+", "1"}], ")"}],
FractionBox[
RowBox[{"f", "[", "\[Kappa]", "]"}],
RowBox[{"1", "-",
SuperscriptBox["\[Kappa]", "2"]}]]}], "-", "1"}], ")"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "[", "as", "]"}], "-", "1"}], ")"}],
RowBox[{"(",
RowBox[{
SuperscriptBox["\[Kappa]", "2"], "-",
SuperscriptBox["\[Gamma]", "2"]}], ")"}]}]}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
"The", " ", "numbers", " ", "then", " ", "can", " ", "be", " ", "plugged",
" ", "in", " ", "to", " ", "the", " ", "following", " ", "equations", " ",
"to", " ", "get", " ", "physical", " ", "quantities"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["R", "x"], "[",
RowBox[{"\[Kappa]_", ",", "as_"}], "]"}], ":=",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FractionBox[
RowBox[{"15", " ",
RowBox[{"g", "[", "as", "]"}], " ", "n", " ", "\[Kappa]"}],
RowBox[{"4", " ", "\[Pi]", " ", "m", " ",
SuperscriptBox[
SubscriptBox["\[Omega]", "x"], "2"]}]],
RowBox[{"(",
RowBox[{"1", " ", "+",
RowBox[{
RowBox[{
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "[", "as", "]"}],
RowBox[{"(",
RowBox[{
RowBox[{
FractionBox["3", "2"],
FractionBox[
RowBox[{
SuperscriptBox["\[Kappa]", "2"],
RowBox[{"f", "[", "\[Kappa]", "]"}]}],
RowBox[{"1", "-",
SuperscriptBox["\[Kappa]", "2"]}]]}], "-", "1"}], ")"}]}]}],
")"}]}], ")"}],
FractionBox["1", "5"]]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"Radius", " ", "of", " ", "cloud", " ", "in", " ", "plane"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["R", "z"], "[",
RowBox[{"\[Kappa]_", ",", " ", "as_"}], "]"}], ":=",
FractionBox[
RowBox[{
SubscriptBox["R", "x"], "[",
RowBox[{"\[Kappa]", ",", " ", "as"}], "]"}], "\[Kappa]"]}], ";"}], " ",
RowBox[{"(*",
RowBox[{
"Radius", " ", "of", " ", "cloud", " ", "orthogonal", " ", "to", " ",
"the", " ", "plane"}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["n",
RowBox[{"o", " "}]], "[",
RowBox[{"\[Kappa]_", ",", " ", "as_"}], "]"}], ":=",
FractionBox[
RowBox[{"15", " ", "n"}],
RowBox[{"8", " ", "\[Pi]", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["R", "x"], "[",
RowBox[{"\[Kappa]", ",", " ", "as"}], "]"}], "2"], " ",
RowBox[{
SubscriptBox["R", "z"], "[",
RowBox[{"\[Kappa]", ",", " ", "as"}], "]"}]}]]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"Atom", " ", "Number", " ", "Density"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"ChemicalPotential", "[",
RowBox[{"\[Kappa]_", ",", " ", "as_"}], "]"}], ":=",
RowBox[{
RowBox[{"g", "[", "as", "]"}], " ",
RowBox[{
SubscriptBox["n", "o"], "[",
RowBox[{"\[Kappa]", ",", " ", "as"}], "]"}],
RowBox[{"(",
RowBox[{"1", " ", "-",
RowBox[{
RowBox[{
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "[", "as", "]"}],
RowBox[{"f", "[", "\[Kappa]", "]"}]}]}], ")"}]}]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"Chemical", " ", "Potential"}], "*)"}], "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"Dipolar", " ", "potential"}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[Phi]", "dd"], "[",
RowBox[{"\[Kappa]_", ",", " ", "as_"}], "]"}], ":=", " ",
RowBox[{
FractionBox[
RowBox[{
RowBox[{
SubscriptBox["n", "o"], "[",
RowBox[{"\[Kappa]", ",", " ", "as"}], "]"}],
SubscriptBox["C", "dd"]}], "3"],
RowBox[{"(",
RowBox[{
FractionBox[
SuperscriptBox["\[Rho]", "2"],
SuperscriptBox[
RowBox[{
SubscriptBox["R", "x"], "[",
RowBox[{"\[Kappa]", ",", " ", "as"}], "]"}], "2"]], "-",
FractionBox[
RowBox[{"2",
SuperscriptBox["z", "2"]}],
RowBox[{
SuperscriptBox[
RowBox[{
SubscriptBox["R", "z"], "[", "\[Kappa]", "]"}], "2"], " "}]], "-",
RowBox[{
RowBox[{"f", "[", "\[Kappa]", "]"}],
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{
FractionBox["3", "2"],
FractionBox[
RowBox[{
SuperscriptBox["\[Rho]", "2"], "-",
RowBox[{"2",
SuperscriptBox["z", "2"]}]}],
RowBox[{
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{
SubscriptBox["R", "x"], "[",
RowBox[{"\[Kappa]", ",", " ", "as"}], "]"}], "2"]}], " ", "-",
" ",
SuperscriptBox[
RowBox[{
SubscriptBox["R", "z"], "[", "\[Kappa]", "]"}], "2"]}]]}]}],
")"}]}]}], ")"}]}]}], ";"}], " "}]}], "Input",
CellChangeTimes->{
3.9219033074468737`*^9, {3.9219034906239915`*^9, 3.92190394364614*^9}, {
3.9219039987750945`*^9, 3.9219043211868935`*^9}, {3.9219145317158747`*^9,
3.921914532620266*^9}, {3.921914565581032*^9, 3.921914565873742*^9}, {
3.921914984522908*^9, 3.9219150053527937`*^9}, {3.921915208269764*^9,
3.9219152417968607`*^9}, {3.9219152731858563`*^9,
3.9219153173081837`*^9}, {3.9219153899640055`*^9, 3.921915391943519*^9}, {
3.9219161305790653`*^9, 3.9219161406575933`*^9}},
CellLabel->"In[71]:=",ExpressionUUID->"6499959a-0ec7-4fa4-9039-96cfca376bb0"],
Cell[BoxData[
StyleBox["Checks",
FontFamily->"Constantia",
FontSize->16,
FontWeight->"Bold",
FontColor->GrayLevel[0.5]]], "Input",
CellChangeTimes->{{3.921905539640584*^9,
3.9219055620387907`*^9}},ExpressionUUID->"4b274978-c5a7-486d-ab9a-\
bc223c69fab2"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "[", "as", "]"}], "]"}], " ", "/.", " ",
RowBox[{"as", " ", "\[Rule]", " ",
RowBox[{"sl", " ", "BohrRadius"}]}]}], ",", " ",
RowBox[{"{",
RowBox[{"sl", ",", "120", ",", " ", "150"}], "}"}], ",", " ",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", " ",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[",
SubscriptBox["a", "s"], "]"}], ",",
RowBox[{"HoldForm", "[",
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{"\[CapitalXi]", "[", "\[Kappa]", "]"}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{"\[Kappa]", ",", " ", "1", ",", " ", "2"}], "}"}], ",", " ",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", " ",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[", "\[CapitalXi]", "]"}], ",",
RowBox[{"HoldForm", "[", "\[Kappa]", "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{"f", "[", "\[Kappa]", "]"}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{"\[Kappa]", ",", " ", "1", ",", " ", "2"}], "}"}], ",", " ",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", " ",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[", "f", "]"}], ",",
RowBox[{"HoldForm", "[", "\[Kappa]", "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.9218615566580143`*^9, 3.9218616439391966`*^9}, {
3.9218618674962215`*^9, 3.9218618962361345`*^9}, {3.921861934321966*^9,
3.9218620101267567`*^9}, {3.9218620416713037`*^9,
3.9218621249786253`*^9}, {3.921862157238369*^9, 3.9218621739148755`*^9}, {
3.9218622694186325`*^9, 3.9218622820321627`*^9}, 3.921862543291563*^9, {
3.9218636645583334`*^9, 3.9218636684740257`*^9}, {3.921865245281681*^9,
3.921865255415182*^9}, {3.921865583576482*^9, 3.9218656396963696`*^9}, {
3.92186569037241*^9, 3.9218657062420287`*^9}, {3.9218657448948503`*^9,
3.921865780759534*^9}, 3.92186590021082*^9, {3.921866570225642*^9,
3.9218665972327423`*^9}, 3.92186700491425*^9, {3.9218674202390723`*^9,
3.9218674363273706`*^9}, {3.9218674722533407`*^9, 3.921867504903634*^9}, {
3.9219030566915474`*^9, 3.9219030592083197`*^9}, {3.921905548093671*^9,
3.921905566841482*^9}, 3.921914778360864*^9, {3.921914814892088*^9,
3.921914818449871*^9}, {3.921914851887702*^9, 3.921914865559475*^9}, {
3.921914907302009*^9, 3.9219149185885043`*^9}, {3.921915064016567*^9,
3.921915096563401*^9}, 3.921915425823962*^9, {3.9219162262764597`*^9,
3.921916267628192*^9}, {3.921918065077128*^9, 3.921918073619347*^9}, {
3.9219182218598757`*^9, 3.921918222370739*^9}, {3.922000091404818*^9,
3.9220001321464205`*^9}},
CellLabel->"In[84]:=",ExpressionUUID->"fa978809-3917-431e-807d-035d120fce82"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwVzn1UTHkcBvAatfQuE609vUgvkoksRYXvtxAlsp2s9rRm7v2V5HWUbJbd
sZmJDtXBaUqJZVuaSml2VXailVWKPV7iiFnZVCt178zcYSNNmr37x3Oe8znP
P48XkcZvFlhYWKzl83+XpJzgS4xXDg4/dU03Qlu73c0i3gnNfcE3dhvhjehw
dqClGNuLI4vSeMcM77dIEojx/pov6N+kRhjLSRmvtxJjk0PNjKRdRpBULBrd
biPGXHXQih+3G8F3qNvYNUWM4c5mt4BUI6ilAS8v+4qRmbffNibJCJPPnIw6
tk6MU9ZpTX3LjSAbKD2mzhSjt4chf/lcIxBT/NJPS8WYmXNhyorpRiiYr91b
dVOMaaEHGhsERmhXWBYceS3GVPYnxx4dBzGj70XHnSWoL3PyUHRxsDz07OJn
oRLMeZDX1NHC78p+750SCbpOKPi+sYaDEuGoUpQrwS6HFu3sUxy8q708EFIr
wYZ2Ye8SBQd3hFMvZj+SoHnvoKx3NwevSqOZ9yYJTmP8Lad9zUGup1Pu88kU
Zn1ItetezUGL4GV3vC+FSieX6tCFHNTfsd22NZT3/O6js2dwEHTeKtU3lsIH
UrHHOQcO7k9K9c2iKHQ6Xb1u21sDDMuKE3btofBJv09J4T0DwOGgVaYjFBYr
bcJsKwywMsNrt38ZhfHjNzYW/2CAzh29k0y1FH4jd9LYbzKAfMR2c/IfFHo7
691fhBig6eSE+elPKHSLss46JjRArXPCAs9BCnvkmapFRj20etl/IB8pjMkZ
yov7Uw/JWDg3djKNuq4NlwOr9ODLyWfd9aHRP2mRTJGjh3LF3S+HFtOoah1T
/EXrQTWrb7h2DY2mGlD0oR4eJpFEG4pGqxsF4Xvc9ZB9Vh1gs4fGecT2o2pM
B2xr4oLKHBrbLRmXjuc6OCDbYn5RQqNds7PwoEYHJ1ZGhWsu0Sht7bh1u1QH
d8/khc1pobHG4Ojyyz4d5FmVV0Y8ptFPFPDI5ysd2Kx3jht5RePhWFloVpgO
KkUDjStMNDpKDp3bN10HD13zj4c4Emwe2RnNjbLgVlgqap5J8Gn+asFMLQve
w+bxf0IIin52vL5Qw4I6JTji12iCQWdse6rLWEje3Bk1TUywa43uzeB3LJRl
wjWPdIKfY3aEXMLC8TSrtNtyghEy/2AmkgWVLqjL+hTBV4T/6MPCquzAhsEq
gkyF3dJLE1nYp4pzWlZN0F9deCqQd9X99LSTvA9ZFY3UfsKCo0fDZ+GXCK4t
tmhTW7PwWLPsYF4NQc97u4oaJ7BA/o1bPa+OYL5yv8MtMwOyLRnazHqCYcLK
+J73DNQVFC7o4C1PaFtCePfWN+S5NxCs25Awp/8dAyutTMvaeOdXtEx9PcyA
/Xl5uetVghM/aD25twyUaAt3aDQEO188mmTJMXDHsrHVsYmgveBlqNzAwJj/
M49k3ql+SVJr3lSW+0O7awQpuXLARs+An8vF4E3XCRZYuzkIWQYSw9sL1Lw7
VUdpJcPAUTI0YN1McKs0RePKW1c3t7SW93hW4rduQwx4PF3/VvA7wabIjL/P
DjKw3pwRu5F3TOS7aC/eh/yUF6p5C8P7r5a/ZuDK2sZxM+9cY7jIj/d/5LNS
Nw==
"]]},
Annotation[#, "Charting`Private`Tag$13646#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{120., 0.8720885147045445},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
SubscriptBox["\[Epsilon]", "dd"], HoldForm], TraditionalForm], None}, {
FormBox[
TagBox[
SubscriptBox["a", "s"], HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
LabelStyle->{16,
GrayLevel[0], Bold},
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->{{120, 150}, {0.8720885147045445, 1.0901106333694601`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219055686320353`*^9, 3.9219146880815086`*^9, 3.9219147786718583`*^9,
3.9219148191025305`*^9, {3.9219148526610117`*^9, 3.921914866223222*^9}, {
3.921914908465469*^9, 3.9219149191909933`*^9}, {3.9219150245088153`*^9,
3.92191509686533*^9}, {3.921915402716342*^9, 3.921915426458413*^9}, {
3.9219162271200533`*^9, 3.9219162681030407`*^9}, {3.921918066734226*^9,
3.9219180739907923`*^9}, 3.9219182230640154`*^9, 3.9219943516392436`*^9, {
3.92200009357691*^9, 3.9220001325201864`*^9}, {3.9501529205190115`*^9,
3.950152946436215*^9}},
CellLabel->"Out[84]=",ExpressionUUID->"9f080d1e-c33d-46cc-9d98-4517405a6908"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwVlHtUzHkYxqdoq5GlNMpa62g1ckljuyeeSju5ZVVbpmFHUy7RTdqlE0qm
2hTqWGTpYjUbpiVxKLbVxSUqlBCtbkjKbM30m/vtu+OP9zznc85znj+e855n
TnRS6FZTGo0WbLzP6rYrzYxGk8CGcU1FCIHQRFnibyKB1zNpYJiBwPa3FA+B
qQQcwZqGCh0BdSN++xdmEtBdFgWuUxNc0/IeWdEl4NvXZ5SNE7B+XXF0hq0E
Yr1t/epBgoWlVgxXJwkyvN2Z91oIHNpK525bL8FVunO33ymCVvqB7IILEri3
Fk9qYxKop7z3GVdJcJJjvaqo0YBpg8eW162Uwn573k5plAEfiynBqjIpDMKZ
f/Zo9AiYOTBrqkSK8Ig48fRSPTbsz1X/HjQOehpjxNFXj8jLKd/ml4zjUI+Z
V3avDv3CoT9u/DeOQOmCfO5hHRwyGNHlgRRMZUOVbBcdhme37Wk5ScFeDodl
PVoUFz54zRmksPmO3dXKY1rQ36eli5bK8CLLhJGwVAu9vmav+xEZ7P7xTykc
06BSc+Wa4J0M51jWtb5lGrCbh5d6e8txuquswTdUg63cyzOcDstREu9hYW6l
gV/7Au/uPjmY25pCChvVKLNacvk+SwHJxZzIogNq3F4ojf45VwEytmj/EXc1
Gr+Sb8vrVYDPCBBukagQ3J5Z/3qxEqLJy0d9q1U4EfswUpytxMECratrogpR
zUUrvbqUkO6umTrCUsFeIcr+xFRBGdOcNlGhRL556sToAyrsW2n5MrZGCUHf
4y7rJyrcu+ssnJeuhOeZHnGWoxrOOnZZhL8SXXOXrN+8Tw2rfk3qqy+U0P0y
2SKlVY2XLavbIzoUeHOp3GS1gwYMPs0h4bQC/sKmH7gpGuTSrvus36LA8URH
cUeTBoG841nM7xQonRnQYjVDi1Ue9txbOjlcCoZ0B3doEbdX5NraKse+QXZy
bYMWVziTdLVFcqw1dfGZb6OD4PbmPt12Oehj3BCTaB1sqqecIcaeBXf8RMW1
OoR0PpMbLOTI/LFqQ7Kl8U/mDIRZv5HB53EX25Kvx4RTnit8/5KhjxGYZVGj
R8nRNYOz0mWwdPSe7m9ugFf/9U+dYTKMTv847MszoDvCkdfAlIHzdLbN7ioD
6jdmfs/XU6jacDb3S2JA+DzvntQXFBqb2v0SwwmkxRu3vBVR4MiOBZtXEJwb
rd7VKqDw4EkAK+kCwTRNztpvjOx2SWHTdZEgsrPALfkQhSk83quKSgKzq57z
7TKN/mbnGHY1QU/U38KYdAruZ9tSs+sI7G8lvDOkUrAJoAsndBLk0fh7lidS
OPj1nZy45wQ3K51eHk+gMKpI3tH5goCbo/EfiqfwqPL14vJXBB/O1ywrjDP6
GZduBfQSBCen3H8bS2HsY9DTzGGCoKYO27wYCpvuaquHRwh6Wefd+qIptJRU
nQgRE/QHxUa5Gbki1I47Z4zgbVj7v71RFHh1H943yAhCXcR8Nx6FtlNnmp0U
BEkL2QOHf6Lgk7xOVKgk8CnNj+/bRIHBvJkUpSHIeNZZkbeRwiHaztCHWoI6
y+fh/VwKku5Z7iw9gWf57akeRubd6LA7bdylQG5OV36kMb8gW/N5t+JH3EUD
HAr/Aw59iwc=
"]]},
Annotation[#, "Charting`Private`Tag$13694#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{1., 1.209199585805119},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
TagBox[
TagBox["\[Kappa]", HoldForm], HoldForm], HoldForm], TraditionalForm],
None}, {
FormBox[
TagBox["\[CapitalXi]", HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
LabelStyle->{16,
GrayLevel[0], Bold},
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->{{1, 2}, {1.209199585805119, 1.9999999727891162`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219055686320353`*^9, 3.9219146880815086`*^9, 3.9219147786718583`*^9,
3.9219148191025305`*^9, {3.9219148526610117`*^9, 3.921914866223222*^9}, {
3.921914908465469*^9, 3.9219149191909933`*^9}, {3.9219150245088153`*^9,
3.92191509686533*^9}, {3.921915402716342*^9, 3.921915426458413*^9}, {
3.9219162271200533`*^9, 3.9219162681030407`*^9}, {3.921918066734226*^9,
3.9219180739907923`*^9}, 3.9219182230640154`*^9, 3.9219943516392436`*^9, {
3.92200009357691*^9, 3.9220001325201864`*^9}, {3.9501529205190115`*^9,
3.950152946483117*^9}},
CellLabel->"Out[85]=",ExpressionUUID->"c8213d60-0c97-4ed5-9009-25a8ce528380"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwVjHk41Hkcx5GWJkWTSS1lszlik4q1aH2wSG3WtT1irTSdWjnSJpG0g5RC
oYtmKpOila1NVOpjVEjjyBEz6/xtrnLMMMYxM75r/3g/rz/er+e1mhnmvU9F
SUnJfW7/0zL8xHwlJRHYP/CJYyQ5vuQqT95wVBaBi2e4J2hboHZG5LcsFRG4
j8qE95Y64HhxyIEv5otAUNWQ+RfdEx/JAt9q0ETgvdo/VagVhBZnfriwQlsE
HR3uaZsXhaMZW4OxyUQEYZlRr2lfxKMBn71mv6cIuiITJBGjafiOdjIx7a4I
2H71Remsmzit+dF2bEoEcZ80jUcC7uHS3lT7MjcxcCzrqtLHi3AgZ5y1lSOG
tYmh03vVH6OTbs9KLZEYovVkRo2vStA3Nnn62pYxMLscfmF3+XP0K4z8OuXG
GIhLM4bTshG7uf23iofHoLTeK6c0g4cGpxjMXOdxsF5Vba4a/QoH9fnHarLG
YdaaGBZYv8Gc9ErBzt5xmND5MHCrvxJpH0/EFdhJQCw7teRDcTUqFCVRVucl
8Le6n57Brhq8P/PgEetfCUjbtG++MOSja9WgnY3NBNT5700t7KjFff6FK0zO
ToBbi9a8fUfq0aHB1EbYNQH1818rP7zYgByNDYVvLKRgbFB6TMXvPT4zEzOP
Jksh9nBAAs28EXlfTuw/1ykFcQ9jxFneiO4Np1FgPgn9qrMxy581YebBar+h
xElQ0xzeuDaxGYOqrrh91zoJsLGfYePQgsulBYmfjaaAnxfH2TLRgilqx1WZ
J6fg823GNYOSD8jqqm1dUjcFdmF9w38Gt6L19Y6hBMNpiGWicZ5JG7au2eC5
K2YaxoS6yzg9bSj/fZF65Ltp6OctvyNOEWB7fq7yNoMZuL2Y4m11EqIjt8LD
P3IGNrsUaPl8EuKlUMOh9xUz8EZRf2jhhX+QretUo7FCBpAb6XPArh3Xp/XL
44Nl0HQ5q2FhezvG9LpGlJbLoHZ8KEkluQO3q6y3XUuXA5+j/v0lo06kjfp7
KTPlIPyK52JW3omslw4FOaVyeLzHx6psbxee/rnIN2KBAuTGNPsIeRfa1ra6
LtitAN7BgqvBHt3YxXBOUC9RwIjK84X67G5cYGizzFFtFprPr2vJ7+vGkWUD
g5sDZ6FGpnYnyLIHd9br048UzUKhvWS3ZmwPFvlmJy8ms+ARQgRneD3Iq2hw
CN1BQD/0GU9Vg8KdklR3tTwCFabXLhZ7UlhZ52QRdpcA/eiuhD4vCi3zpfTW
ewSaTz4+oONDoWZgYFvefQIWHppK0Tvm/Kp1e1wfzv0/3o2y86fQKpt/PLGM
wMqQX1gv9lBId6Jx5zURaJRztZ8cozBe72XSb80EzlUe1u2NonBEGhHc1EJg
v+ogXTuawrf3Bea5bQRstsuaImLmfEb+U6dOAusZD9jfxFM4OrCl/vQgAUWc
sy/nLIUBr2QPBz8RoEKfBteeo7DmRlGm1xCBkKSxEFkKhXneOv6rRwm0ZBW7
+KZSGFjW97FcQsCPznZYnEEh//L1KhMpgUN6PgK7TAptI34qSJ8k8OuqFmZw
FoUMoydhQTMETMOd3V5fofAPpUPe1TICI2ObuOKrFIqEK60sFAS2NUlEq67P
9Yvf61ydJXDKNNl8e/ZcPy1xhhAC3CWjAdE5FP4HXgOlTA==
"]]},
Annotation[#, "Charting`Private`Tag$13742#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{1., 0},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
TagBox[
TagBox["\[Kappa]", HoldForm], HoldForm], HoldForm], TraditionalForm],
None}, {
FormBox[
TagBox["f", HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
LabelStyle->{16,
GrayLevel[0], Bold},
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->{{1, 2}, {-0.5816008391489516, -8.160139184556422*^-9}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219055686320353`*^9, 3.9219146880815086`*^9, 3.9219147786718583`*^9,
3.9219148191025305`*^9, {3.9219148526610117`*^9, 3.921914866223222*^9}, {
3.921914908465469*^9, 3.9219149191909933`*^9}, {3.9219150245088153`*^9,
3.92191509686533*^9}, {3.921915402716342*^9, 3.921915426458413*^9}, {
3.9219162271200533`*^9, 3.9219162681030407`*^9}, {3.921918066734226*^9,
3.9219180739907923`*^9}, 3.9219182230640154`*^9, 3.9219943516392436`*^9, {
3.92200009357691*^9, 3.9220001325201864`*^9}, {3.9501529205190115`*^9,
3.950152946554635*^9}},
CellLabel->"Out[86]=",ExpressionUUID->"af00977e-e8a0-4eee-9ca3-ec9eded84f66"]
}, Open ]],
Cell[TextData[StyleBox["Number density and chemical potential from \
experimental parameters",
FontFamily->"Constantia",
FontSize->16,
FontWeight->"Bold",
FontColor->GrayLevel[0.5]]], "Input",
CellChangeTimes->{
3.9219057869397182`*^9, {3.9219058316175*^9,
3.9219058626032114`*^9}},ExpressionUUID->"80c1bd0f-beae-4d0d-a962-\
1fd9f07e9fbf"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"AtomNumber", "=", " ",
SuperscriptBox["10", "4"]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SubscriptBox["v", "x"], " ", "=", " ", "50"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["v", "z"], " ", "=", " ", "500"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SL", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"i", " ", "BohrRadius"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "130", ",", " ", "200"}], "}"}]}], "]"}]}], ";", " ",
RowBox[{"(*",
RowBox[{"Range", " ", "of", " ", "scattering", " ", "lengths"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"AspectRatioEquation", "[",
RowBox[{"\[Kappa]", ",", " ", "as"}], "]"}], "/.", " ",
RowBox[{"{",
RowBox[{
RowBox[{"\[Gamma]", "\[Rule]", " ",
FractionBox[
SubscriptBox["v", "z"],
SubscriptBox["v", "x"]]}], ",", " ",
RowBox[{"as", "\[Rule]", " ",
RowBox[{"130", " ", "BohrRadius"}]}]}], "}"}]}], ",", " ",
RowBox[{"{",
RowBox[{"\[Kappa]", ",", " ", "0", ",", " ", "250.0"}], "}"}], ",", " ",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[", "\[Kappa]", "]"}], ",",
RowBox[{"HoldForm", "[", "Values", "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}],
"]"}]}], "\[IndentingNewLine]",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
RowBox[{"AspectRatioEquation", "[",
RowBox[{"\[Kappa]", ",", "as"}], "]"}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"\[Gamma]", "\[Rule]", " ",
FractionBox[
SubscriptBox["v", "z"],
SubscriptBox["v", "x"]]}], ",",
RowBox[{"as", "\[Rule]",
RowBox[{"130", " ", "BohrRadius"}]}]}], " ", "}"}]}], ",",
RowBox[{"{",
RowBox[{"\[Kappa]", ",", "100"}], "}"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.9219059329387145`*^9, 3.9219060637918386`*^9}, {
3.9219061511544976`*^9, 3.9219062416683474`*^9}, {3.9219062775271072`*^9,
3.921906294112276*^9}, {3.92190636126985*^9, 3.921906385242461*^9}, {
3.9219064278391676`*^9, 3.9219065191199436`*^9}, {3.921906568072041*^9,
3.921906634515481*^9}, {3.921906758592844*^9, 3.9219067808832817`*^9}, {
3.92190689610778*^9, 3.9219069121054525`*^9}, {3.9219069425031633`*^9,
3.921906957013057*^9}, {3.921915835951713*^9, 3.921915838258949*^9}, {
3.9219165301867733`*^9, 3.921916547640565*^9}, {3.9219166339543376`*^9,
3.9219166991067505`*^9}, {3.9219169672023616`*^9,
3.9219169788643794`*^9}, {3.9219171868878183`*^9,
3.9219171960430827`*^9}, {3.9219172599404817`*^9, 3.921917273797385*^9}, {
3.9219175450342207`*^9, 3.9219175482361364`*^9}, {3.921917694522925*^9,
3.9219176981773744`*^9}, {3.921917729834774*^9, 3.921917734118425*^9}, {
3.921917830743743*^9, 3.9219178309240203`*^9}, 3.921917879038068*^9, {
3.9219179336489315`*^9, 3.9219179336989775`*^9}, {3.9219180190349693`*^9,
3.9219180382671194`*^9}, {3.9219182310661755`*^9, 3.921918305180044*^9},
3.921918336450491*^9, {3.921919170901459*^9, 3.921919171282488*^9}, {
3.921919227559059*^9, 3.921919232671572*^9}, {3.921919439181801*^9,
3.921919463418858*^9}, {3.9219205027806983`*^9, 3.921920505182167*^9}, {
3.9219206346505423`*^9, 3.9219206370096855`*^9}, {3.9219999996430206`*^9,
3.922000024964534*^9}, {3.9501529024761953`*^9, 3.950152908755257*^9}},
CellLabel->"In[87]:=",ExpressionUUID->"08544f05-6456-4e6e-8560-567b589ce9ff"],
Cell[BoxData[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJwVlWk41H8fhYc0lmSNRHYVki3UEL9PsoRBlshkGXukGSoR0WKd4m+nUA0h
JSWRJcv3FxVKJGSJIhUVMYky4fG8ONe5zqv7fnfkvej2vpwEAqFmLf/v76x/
ZDO/PqPcz3NTE1wTzSeLz+42KXiEJf3NDTwb24mFb5j221LQgj2xdDE7Xc4F
e0ykq1JDOjH+vgC0hSwBkU0lBK6Ct9j7mF19zc1KMDRkdBtjDGAsTeGopZPq
oL/Ybx0ZMoLZ0vsizgXpwHJOjPVf5ifsyveqS97WGKiVdMltFvuCESd/GF3y
MQbXKql5HcYk9l5vTLRM0hQauh/lBodMY87m6bOrFEto4mL9+sX8hS3MkOdb
f9pB/4arI5zD85iETQwHk9MBZkSMXgiLLWCP/mCT9ryOICN/OVeD8QdTdzRL
rWAdBj1lzVijlr9YJ6XEq6nPCWw0+k9YLy9hpm1tFGq5M0QZKuw/HrKMmTa+
ZccZuECmSZtqRNkKRk1NUChiucA9K9omxudVrOKE467EmxTwUuFbfZlCAPow
pfCC8VGYURs59VaNA+pYqmNDw0chQrNicqidA3IaD2aNH3cFok6M27gfJ3B1
StiPsVxBxkDFfI65DjjIDaTRL25w1+jfkz+GXMCeGZXzdnQHPeMuTcIwF5yK
VPL9UecOT00Li7nD18Ny20L9480eYGMRKikoRoSk04+1/p3wgCHywRTxSiL8
aDXcP9/gAX6HpLhkbLlhhdE5HcBJBZbDTPi2H9xgajiKvihQIdoZn1Zj8ICQ
FE85D1CB72iml852Xghn7Cz64kKFbHf/dwYtvDD3lDcmO5gKCl765ANUPmgb
T5PeFUuF+74bcctlPojPkrBqyqSCfsBHXfvcDcC8QmG5FlLhedCjuy57+AH8
tMWkyqlgHxwv69nLDxxpc8O81VQYOeWSeSxkI7ypO8Qk1VPhWJgab7CAAPje
m12sa6DCfMRqVFiZAChE+TddW9sXontY0QcFIZoyIPO1jgr8l4r94z8LguFu
8esPqqjwynjfjNl+IbiD28sQ1njprcWlHSlCMJ/mOjex5nPETNDbZlQIkpzo
/QHZVJBpC5fuUROGB565xNwEKkxYjL87HCkMF07i+hfOUOHuS6v0wXZhGNm7
r3K7NxWCravJbhIiUMS/hZRjTQW9LhnuMT8RYFG41Yd1qfDvUCLuUy0C3TCT
wJaiwtOeucjJdaKQVL17mECggk1/6+xPpigcypYcq47xgPMf3FwEFkTBoHyl
Jp3kARWTC7ia1SYw2Rp27Pk3dxBmK2cE/N4E+rEanWGYOxhzPWUnWIpBSoG0
s/gnNzi58ahPyU0xWO20jrC+5Aa9ssm6nyzEwTlgvLL5kSusV9l+g+OmOBgE
yDuIm7mCnnYzUW5eHAZTTCv39R6FHJO5d643NkPts7AylQkKUAIOR/SzJMBo
MskbvT0CV07OjM+bb4G3b59U9ZoegYbIBCvR61vgjJHRkECVM0j/V7f1kLkk
CJDm+CXinOBjpXRze54UJLqFVngvOYD/v8/rGk1kgLR33BcLJsPV9eeDhq/J
gOBkktjej5bQJiDR93dGBsgqe6KcLSxAVd6yRO+aLOwQqZvW4jaDRQVnpYEz
ckCxLQp64GME9eZPntu9lAf1TikDH+9PmP0rbvbH3/Kw3TTmUQLiQ98POWoE
yynAQIPiVJeHNNpKmc75L1QBAlyUxTzY6igqSDbgpawi1LV8Lx7XAARpMRtM
TyvBIKdt3nFpO/RiVNyIM18JmKHvlh7vsUc2aneDm1uU4HrFN6sSRwfk9qK7
jyS6DfJP65QGZh9GEcvSTPXKbWAjPHjLk0RBVQG1OhKz2yG55c34z2VPpGw8
7fb9uAq4a/PzllYHoQcpF1JLM1TAUcjHfeT4CaQ3Itri+0QF7EhSZAdFGjIN
11f+yKcKv4PUIlez6MjrfgKr944q9Kcp3t9hGoLyJRUSmr7uhFklSQtj59NI
+JdTRZq3Ohwaty27PReBZNzkHRMuq4N5smmNvXskUnvxffHcQ3XgOZ9amPEy
Eh3Mu4AdW13bGYO1/bfPoegDd18b5WmAnNBXPw//aLTQHr0QGqAJdd0lAjoc
F5G3ZM8mxQItEFZrSJ56G4sCbWu+XK/Sgo7G+DSGaBwKjs2vlWjTgqAOivsp
hzgUPePnKvBTC7Rkffco9cah3KfsW3/3aYP06S7VpYF41B24bXf3gDYUXExK
DJlNREZPwu2ihHSASiix9XNKRnI9U69vbNOBhx47eryKkxHHFIWM9HXAPUr/
cPV8MmoVNzRf56sDBm7LZq6Z/yHLkxyGjDodALse44fvUpCTymXlLC9dmHf0
zCLtSUP0nLzVe1V6IDjP9JWayUDMU03l74+QoFMQ6S4MX0N/Z+xVs4JIUDrA
59TOl4vsA7+WWF8ggVRfbQxOykVcnkLMptsk6BIJWSd/NRcds/FKZy6Q4Goh
OSLfKQ9pqhDDfDL1oWKIHRU7lI+aR63hR5cBNC55bhVduYlGLUZ62GZGkDM4
WspBuYV8rSKmvbr2AyJxd/Tnl6H99YtcXTQT4PKryboTW4k21I4RpMbMYN0U
rROdr0E758xp+xItoGCUntbOaET6dZLIkJMMsb12GXqfcPTAwmPbc7oNyNT1
bLxDeoYa+YRWhBmH4Pczt1MqKu1IsrZkuKLFDjZWc9ypketECjHskHoJB3jd
UXBg6kM3ctfmTU/wd4RsQ7G7pjZvkbCKdVHrzcNwazW4dKimD9ENbelBLCf4
NVkpZhA9gEyuJajFqh+BU4HfNh8xGEatItGFxDgXmNDsXmS4jqKw4F2F5D4K
NHHcZqW8+ogKxEQzOQVdYWdzT9Frz3EUNvDYSNHbDQpq87cwd02g1vHU4UdM
dyjmD9HcNvMZmbxR5OQZ8ABqUZn4+5qvqJZWH/xp7VdEy7HLaQ1TiCERPRih
7Qmx0/5a9x9+R5pvmDfMRzyh8SWz5vjnaTTLvqm8EOsFr6j5Uh+EZ1GQZX2Z
q7w37F1IjOPZMYcab+++8qfDGz7Ia/E8c2OhDuU2b3KAD7wv6kz1YvxCc1Ik
jktcvtB2ws6av3YeTUvzsn/c8wWrjrSIKL4FVHxgflrQ0g+yN6vIldkuIu1w
I8Nj837Q9zVePLj+D4rsvhUXnuEPrTlXJd+IL6GR3M/pgRrHYItjhb5fKBuJ
nY7/lzZwDPb0PrnWzv6HeEOMPULOBADjauy/gpAV1HPOTSZePhA4FtutknkI
ePWSY+G59kD4je281TBIwB3y/WV3+h2HVx2Ew0kFHPgL8uAfAaEguD71Z9H6
PCe+IOf38u79IHhScUNZzmEdjvl3eSlbnoDAvYntpju4cPeGHKdh1gkwLhwj
housx/fqRh4wS6WB19xvsVLWerw/0lh1fQYNIk8wI/IW1uOhT3mFW7NokERT
1E9ZWo9X2l4d3Z9Hg12rle1hnERcLbD6rGEJDdKd/6haixBxuZs/H+g00ODh
a6kFHm0izsvrs1VxkgaE7c/ut4YQ8VLbnevGv9FgXPACrSWUiJtls6aY0zTI
jBRlPD1LxGMVL9bI/KKByEDLa/wiEV8xvGEvuUKDx4WW+a1pRJx1ciBReBMd
3ANmseGHRDy17ia9W5wObJ/d5R+qibgGwd8pZQsdvn60CZ2oI+JByb8VN8rS
wcJFUPwnTsS/3BZp5lGlQ47F42s8PWu8mcHiF2p04DZtHBHsJ+KKugVJ8Rp0
IKL8c5uHiDj1qQaFS5cOtjqfO3aMr/nwLELLHjrQdtlEaH4h4tdtm3Zc0qdD
XXFKLOkbEd+XHSew35AOstfvTBnPEPGh9+Tfqxgd4kXz75BZRPx/s3Rh5w==
"]]},
Annotation[#, "Charting`Private`Tag$14099#1"]& ]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox["Values", HoldForm], TraditionalForm], None}, {
FormBox[
TagBox[
TagBox[
TagBox["\[Kappa]", HoldForm], HoldForm], HoldForm], TraditionalForm],
None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
LabelStyle->{16,
GrayLevel[0], Bold},
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->{{0, 250.}, {-187977.5828172231, 133.89770123487975`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.921916314076168*^9, {3.9219165314124384`*^9, 3.9219165483581843`*^9}, {
3.9219166343986907`*^9, 3.9219166995526514`*^9}, {3.921916969695234*^9,
3.9219169796671047`*^9}, 3.92191719755048*^9, 3.921917309847913*^9, {
3.9219176997645707`*^9, 3.9219177344896774`*^9}, 3.9219177832364893`*^9,
3.9219178321096487`*^9, 3.9219178795703173`*^9, 3.9219179345045652`*^9, {
3.9219180194660625`*^9, 3.921918038638409*^9}, 3.9219180937847323`*^9, {
3.921918235547762*^9, 3.9219183056519985`*^9}, 3.9219183372744875`*^9, {
3.9219191735335884`*^9, 3.9219191869174705`*^9}, {3.921919228013034*^9,
3.921919233093793*^9}, {3.9219194442340574`*^9, 3.921919463844909*^9},
3.921920505794736*^9, 3.9219206372405744`*^9, 3.9219943545709414`*^9, {
3.922000001677143*^9, 3.922000025517682*^9}, 3.9501529525562344`*^9},
CellLabel->"Out[90]=",ExpressionUUID->"a56e03af-27ef-4723-91b7-02dbedfbe63a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"\[Kappa]", "\[Rule]", "8.909927147767023`"}], "}"}]], "Output",
CellChangeTimes->{
3.921916314076168*^9, {3.9219165314124384`*^9, 3.9219165483581843`*^9}, {
3.9219166343986907`*^9, 3.9219166995526514`*^9}, {3.921916969695234*^9,
3.9219169796671047`*^9}, 3.92191719755048*^9, 3.921917309847913*^9, {
3.9219176997645707`*^9, 3.9219177344896774`*^9}, 3.9219177832364893`*^9,
3.9219178321096487`*^9, 3.9219178795703173`*^9, 3.9219179345045652`*^9, {
3.9219180194660625`*^9, 3.921918038638409*^9}, 3.9219180937847323`*^9, {
3.921918235547762*^9, 3.9219183056519985`*^9}, 3.9219183372744875`*^9, {
3.9219191735335884`*^9, 3.9219191869174705`*^9}, {3.921919228013034*^9,
3.921919233093793*^9}, {3.9219194442340574`*^9, 3.921919463844909*^9},
3.921920505794736*^9, 3.9219206372405744`*^9, 3.9219943545709414`*^9, {
3.922000001677143*^9, 3.922000025517682*^9}, 3.9501529525887375`*^9},
CellLabel->"Out[91]=",ExpressionUUID->"0120f67f-5eff-4e56-973c-cf293fac64e9"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"AR", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"\[Kappa]", "/.",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
RowBox[{"AspectRatioEquation", "[",
RowBox[{"\[Kappa]", ",", "as"}], "]"}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"\[Gamma]", "\[Rule]", " ",
FractionBox[
SubscriptBox["v", "z"],
SubscriptBox["v", "x"]]}], ",",
RowBox[{"as", "\[Rule]", "sl"}]}], " ", "}"}]}], ",",
RowBox[{"{",
RowBox[{"\[Kappa]", ",", "100"}], "}"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"sl", ",", "SL"}], "}"}]}], "]"}]}], ";"}], " ",
RowBox[{"(*",
RowBox[{
RowBox[{"Corresponding", " ", "aspect", " ", "ratios"}], ",", " ",
RowBox[{
"obtained", " ", "by", " ", "solving", " ", "the", " ", "transcendental",
" ", "equation"}]}], "*)"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"ND", " ", "=", " ",
RowBox[{
RowBox[{"MapThread", "[",
RowBox[{
SubscriptBox["n",
RowBox[{"o", " "}]], ",",
RowBox[{"{",
RowBox[{"AR", ",", "SL"}], "}"}]}], "]"}], "/.", " ",
RowBox[{"{",
RowBox[{
RowBox[{
SubscriptBox["\[Omega]", "x"], " ", "\[Rule]", " ",
RowBox[{"2", " ", "\[Pi]", " ",
SubscriptBox["v", "x"]}]}], ",", " ",
RowBox[{"n", "\[Rule]", " ", "AtomNumber"}]}], "}"}]}]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"Corresponding", " ", "number", " ", "density", " ", "values"}],
"*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"CPInKelvin", " ", "=", " ",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"MapThread", "[",
RowBox[{"ChemicalPotential", ",",
RowBox[{"{",
RowBox[{"AR", ",", "SL"}], "}"}]}], "]"}],
SuperscriptBox["10", "9"]}], "BoltzmannConstant"], "/.", " ",
RowBox[{"{",
RowBox[{
RowBox[{
SubscriptBox["\[Omega]", "x"], " ", "\[Rule]", " ",
RowBox[{"2", " ", "\[Pi]", " ",
SubscriptBox["v", "x"]}]}], ",", " ",
RowBox[{"n", "\[Rule]", " ", "AtomNumber"}]}], "}"}]}]}], " ", ";"}],
" ",
RowBox[{"(*",
RowBox[{
"Corresponding", " ", "chemical", " ", "potential", " ", "values", " ",
"in", " ", "Kelvin"}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"CPInHz", " ", "=", " ",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"MapThread", "[",
RowBox[{"ChemicalPotential", ",",
RowBox[{"{",
RowBox[{"AR", ",", "SL"}], "}"}]}], "]"}],
SuperscriptBox["10",
RowBox[{"-", "3"}]]}], "PlanckConstant"], "/.", " ",
RowBox[{"{",
RowBox[{
RowBox[{
SubscriptBox["\[Omega]", "x"], " ", "\[Rule]", " ",
RowBox[{"2", " ", "\[Pi]", " ",
SubscriptBox["v", "x"]}]}], ",", " ",
RowBox[{"n", "\[Rule]", " ", "AtomNumber"}]}], "}"}]}]}], " ", ";"}],
" ",
RowBox[{"(*",
RowBox[{
"Corresponding", " ", "chemical", " ", "potential", " ", "values", " ",
"in", " ", "Hz"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Epsilondd", " ", "=", " ",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "[", "as", "]"}], "]"}], " ", "/.", " ",
RowBox[{"as", " ", "\[Rule]", " ", "SL"}]}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"data", "=",
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{"Epsilondd", ",", "AR"}], "}"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ListLinePlot", "[",
RowBox[{"data", ",",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[",
SubscriptBox["\[Epsilon]", "dd"], "]"}], ",",
RowBox[{"HoldForm", "[", "\[Kappa]", "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}], "]"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"data", "=",
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{
FractionBox["SL", "BohrRadius"], ",", "ND"}], "}"}]}]}], ";"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"data", "=",
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{"Epsilondd", ",",
RowBox[{"ND", " ",
SuperscriptBox["10",
RowBox[{"-", "20"}]]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ListLinePlot", "[",
RowBox[{"data", ",",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[",
SubscriptBox["\[Epsilon]", "dd"], "]"}], ",",
RowBox[{"HoldForm", "[",
RowBox[{
SubscriptBox["n",
RowBox[{"o", " "}]],
RowBox[{"(",
RowBox[{"x", " ",
SuperscriptBox["10", "20"],
SuperscriptBox["m",
RowBox[{"-", "3"}]]}], ")"}]}], "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}], "]"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
RowBox[{"data", "=",
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{
FractionBox["SL", "BohrRadius"], ",", "CP"}], "}"}]}]}], ";"}],
"*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"data", "=",
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{"Epsilondd", ",", "CPInKelvin"}], "}"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ListLinePlot", "[",
RowBox[{"data", ",",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[",
SubscriptBox["\[Epsilon]", "dd"], "]"}], ",",
RowBox[{"HoldForm", "[",
RowBox[{"\[Mu]", "[", "nK", "]"}], "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}], "]"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"data", "=",
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{"Epsilondd", ",", "CPInHz"}], "}"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"ListLinePlot", "[",
RowBox[{"data", ",",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[",
SubscriptBox["\[Epsilon]", "dd"], "]"}], ",",
RowBox[{"HoldForm", "[",
RowBox[{"\[Mu]", "[", "kHz", "]"}], "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}], "]"}]}], "Input",
CellChangeTimes->{
3.9219183148552246`*^9, {3.9219183932576766`*^9, 3.921918521017438*^9}, {
3.9219185946722703`*^9, 3.9219186344569693`*^9}, {3.9219190240024705`*^9,
3.9219190484310656`*^9}, {3.9219191419923573`*^9,
3.9219191573152156`*^9}, {3.921919201785921*^9, 3.92191920803689*^9}, {
3.921919614573759*^9, 3.9219196683263817`*^9}, {3.9219197202536497`*^9,
3.9219198711154723`*^9}, {3.921999696957756*^9, 3.921999856201558*^9}},
CellLabel->
"In[113]:=",ExpressionUUID->"39d82f2f-f93e-4569-a27f-746628c12c7d"],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
NCache[
Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVknswFXgcxW9Zum42j6wuUX4/RLQYWbXbbN9v7RXaqK5H6LorbUyvTVeE
NVrPakPbA3mtaqOQ15RWdmflEa5VM7LJFcnjvl9FjJ2ovfvHmfPPZ86cmXNI
1AnuoaUMBsNHp//dxHrfaLnlGxA+KZ4f7ye4v2Syh/tOC6dim18XDhB0/GOH
IuyBFkInrrC+fU7QP1FQtjtJC01pmpT3gwTfMcwvuH6tBfa0YGvVEEEPxf7M
t0t0fGpTcNAwwWcTP6Vd6dbA2URP4cJLglssA68b52lgqjC0/OYoQd6PY/RA
sAakQfGvvMcIlnxCf8iw0UD0N8IcyWuC9aFdTIFEDdIjqQ2ZEwT15maLnBrU
4FhWvdt2iuDzwI2ym8lqmOzdHftQTHDXzm1DI95qkIfw2HukBPNcLI49M1VD
WkyN/5SMYPiiqO3MKxV86aVvkaAgmL1TazZeowIz/trT+iqC3OUG96aTVLDR
qSzhsppgpPNm40ZfFSwOGlvZaHV9PNxq2WwVtGrnoiveENzwkOu8TqYEbfqj
KJdpgr5WH78abFbCjEBoVj9DkLO+s8rhZyUUPoxIcZ8l6HeqJsSUpwS7u823
6ucILnZmeRW4KsFhq/6lDfME5eeB27hECert/B23/yUYK9rS9d1zBfTWPhWu
fU9wuL2p7dcqBazu32tbsEBwZaVj9tFUBZiWDgSwPhBcFdAc3RGogIMv3MNT
PhIszq3t/m29AnoiN/moGBSLbadsWAwFfH+o0ip8KcXUa7s0M4NyMCpxFT3W
o5iy+vgTfp0cMhMFZ930Ke5rl/J9s+XQcMzAudCAYnaUfnAdXw4t5icfLyyj
2H+VE5u3SQ540oUfaUjR5m9VqsREDhlWN+bbWBRlfhW8+woZXItzLyJGFGNG
jKdnO2XQNeLMOfMpxZerYzyrymXwYuqfxeEVFGvtbR36knV8UnSvpwnF/PyL
/bwQGaSsWl6XY0qx7cElbpiHDPbOj9+dMKOYcOeLvtYVMvDY9qHXy5yiQ/LR
43lKKZS6xRid/4xihFHTiY4eKTR6s+NFFhQ5N0QWEZVS6I5fYujEptjMKG0I
y5SCmf+yvlOWFJ0t4q7+HiWFOhu99lYrihVajl38Nin0OXZomNYU+Qb23b/Y
SmFnOytkjw3FyJYVM0yGFI6nX36fv0aXp2ygI2MSMD3InBStpZhV6jjMfCQB
ltLYxJpQDDjXVZF7XQJz3O3ZPErxWtmY5eE0CQRVu/qV2FEc88l5VhQlgWUL
Ybwhe4rpiYlxazgScBFAx8p1FO349bdnHSQQlrQnzd+RYmnLYbKGKQG/yXdF
WU4UD/SMFhUoxKBgXjD5cz3F6usm/RFPxDCgjJG9caZ40bwqV9Aghk37Xtjb
b6CYo+woHbgiBmBYC4M/p9iaLOw/c1oMoxUnhrJcdf84xzFI2C8Ga3e9kPtu
uv1iWyybQAzipx844+4UO1My326xF8NmdvodIw+K5Eh1oqGhGPTW3crw2khx
nPVXubVmCkLvxYn4nhT/Azo8CYA=
"]]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0.6467291002120973, 8.899240536884125},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox["\[Kappa]", HoldForm], TraditionalForm], None}, {
FormBox[
TagBox[
SubscriptBox["\[Epsilon]", "dd"], HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
LabelStyle->{16,
GrayLevel[0], Bold},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{0.6467291002120973, 1.0062559743980763`}, {8.899240536884125,
9.102286143659214}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219182779721794`*^9, {3.9219183152966185`*^9, 3.9219183403854465`*^9}, {
3.9219184209648495`*^9, 3.9219184355320888`*^9}, 3.9219184800936875`*^9, {
3.921918510309456*^9, 3.9219185218008995`*^9}, {3.9219186143765244`*^9,
3.921918635067634*^9}, {3.9219190337738323`*^9, 3.921919048802569*^9},
3.921919208498475*^9, 3.9219194801094913`*^9, 3.9219196451025987`*^9, {
3.9219197651244526`*^9, 3.9219197835654573`*^9}, {3.92191983195973*^9,
3.9219198725547285`*^9}, 3.921920515017722*^9, 3.9219206395157633`*^9,
3.9219943576826253`*^9, 3.92199973077956*^9, {3.9219997649260187`*^9,
3.9219997744239273`*^9}, 3.9219998060845466`*^9, 3.92199985689579*^9,
3.9501530184185104`*^9, 3.950153169610939*^9},
CellLabel->
"Out[119]=",ExpressionUUID->"9fabf922-5e82-4700-84e1-c8aac18133aa"],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
NCache[
Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVjns01HkAxUdaKz3Qg1Q6RgZZa7dRekz2pp2VJJ2mYuVRlIa1mKPXpNAD
afNqy6tI5dAijEcSbSSh0+NEOCWto+Y9ft/vryY6lc6u/eOeez5/3M+53LBY
UfgUDoezYTL/t9ki/9fFViyinfvGDxWzCLz0tlv0geJLbi8/JY+FQ4unNqCR
QvS3u7woi8VmaVzRliMUzp+pvu00iw+cuWdd3CmipszcRJJY8LWBye8MKOrr
OM95Uha9b46fON9F4Pg24aBYwkJgte2KaSbBXo+ERfURLIKODtuG7iBY9ePa
OuNQFpem2sacsiaQVAm4EQEsan7tNI5TMpjjju09W1kYjo8VOMoY+A5uchN6
s+jf5qq+Fs+gkSmra1vPwsfb48XQLwweePU3eApYZH5n8XuvOYOz9hcdB1xZ
7Pz68l7SP6OQLhv/FOPMItWbzh6pHEVnhv08cx4L0XSj+vdHRjFdU7LvjjWL
3U6rTGu9RmGbyX0lsZj8w/+hav78UcgT0ne5mLJwvi1yslfr4JRuMvLhWxZe
C/5dM9Ckw+YTn3w6OCyESzvKeX/oIE0a4q7WU2w8UOlnHqTD21fiFV/kFF87
UtxyXXRI9cqVPR2g0JyBqNZAhzz33tj6bgrJS0Hnrn4toGS2lDdTDLbfvHe5
XItn57kushsUc8ocUqMStTBdZaLuukxh6du07/42LSxV1wPZbIqLGVVdJUu1
MNwdJF56apJt5NYmHC0eFmo0cQcpEvN9iH5Agz8jJO2PxRTHFkY/CanWgE7E
PHPbSeHfrgrxStUgqLRVL/OhSA37Zkd1iAZukXkzBKDouSCUZK7UoL0l+Uvf
MgrrR6OJSjMNovkxVxPtKNQbS4MatGrcXXdueKUlhXjI9P1Yhxp+n4/ncUwo
Xi0ULy8vViNi0K7yxQRBlZ0N73G8Gm+yb020UoKcnKyeID81hvoexDS+IbjX
eE4UwFfj9Nrv5S39BIf+WvG4dZYaPy9YuO5ZNwEvPio6U6fCuZDp+/QtBMEz
bsbe71YhNqlrNa+GQHj1pUVwmQrr94YXh18jaOIUygKSVcjw8zzakEPgZLH/
wq2wyf3HeXXmZwhKqXDJQQ8V+GseOiYcIwgxsuvKtlGhJLSoYzyWYHfzLL0x
RwXPqZZRiXsmfTqZ7dCwEsrZBlPm+hOkFDoMGrcpsVIeFXvLm8A3rbM044oS
kcIbBRE/EeQXDVtFnlDiadpOsQOfYHhDem9BmBJx17e26nkEJ6XS/YuFSuSL
qtOeWBEsCam5PsZTwnD+04qGmQSFzZHcxcZKzEr2nVluQBDa/bogV6vAVq8Z
+RVjDCqumPUEP1GgP9zW9baGQdbc8ow4mQJGgZrOvtcM0nX3C5+fV+DR9nHB
1x4GrfEPe5IOK2C/Z8FRfieDxDSh0aFABZbXhkYfaGYgljRb3YQCrm2zJ9qr
GXQcS34nsFPAoKzKbHEJA+5vFdJp0xQ47Ku7kJLHYMTkbvEiIsfH1jtxn84y
+A8WzEpG
"]]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0.6467291002120973, 0.9169147700020811},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
FractionBox[
RowBox[{
SubscriptBox["n", "o"], " ",
RowBox[{"(",
RowBox[{"x", " ",
SuperscriptBox["10", "20"]}], ")"}]}],
SuperscriptBox["m", "3"]], HoldForm], TraditionalForm], None}, {
FormBox[
TagBox[
SubscriptBox["\[Epsilon]", "dd"], HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
LabelStyle->{16,
GrayLevel[0], Bold},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{0.6467291002120973, 1.0062559743980763`}, {0.9169147700020811,
1.0389318124532807`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219182779721794`*^9, {3.9219183152966185`*^9, 3.9219183403854465`*^9}, {
3.9219184209648495`*^9, 3.9219184355320888`*^9}, 3.9219184800936875`*^9, {
3.921918510309456*^9, 3.9219185218008995`*^9}, {3.9219186143765244`*^9,
3.921918635067634*^9}, {3.9219190337738323`*^9, 3.921919048802569*^9},
3.921919208498475*^9, 3.9219194801094913`*^9, 3.9219196451025987`*^9, {
3.9219197651244526`*^9, 3.9219197835654573`*^9}, {3.92191983195973*^9,
3.9219198725547285`*^9}, 3.921920515017722*^9, 3.9219206395157633`*^9,
3.9219943576826253`*^9, 3.92199973077956*^9, {3.9219997649260187`*^9,
3.9219997744239273`*^9}, 3.9219998060845466`*^9, 3.92199985689579*^9,
3.9501530184185104`*^9, 3.9501531696596875`*^9},
CellLabel->
"Out[121]=",ExpressionUUID->"e1c69af0-39e9-4f97-bde0-aa56b7d99d93"],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
NCache[
Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVUnk01XkcfZgctCDLpMWRJZNnYpKyjPl8RGMZle+vg2yvsowpxTuYRpIU
SkITkuVZmg6FCDPPOpPKGzRoYkoJibx9s09TjHnzxz333H/uuefeuzUkmgpX
ptFobgr8z1qb/cbKDKYhvjyvwETsjYHF73qoeTlYp/rlBE97o3n71yL/JjnI
29hrbyx44/74mJKDZ+TAtF9c+8cHb5yn6V7d4SQHo+bD+Usr3rhTFJg6oySH
Nb/rVVuuIjg4mXwht1sGEVMMrwANgo4Gh8o1s2XQxGIkp2kSDDo7bnzMRwa5
1+086nQJFn9iHJWyRQaWBerVzw0I3j/cpRbDkwLp41e8NySosrhQ+Fm9FBwr
JmGjKcEXh2wEPyVIQUdD5az9doJens6vRvdJQRL+TYDvDoLZdP2Tg9pSKG5v
fsu0IRiwPPzo/BsJUK1O2lfsCF7ylK+fqJFAUW+frNSJILVa9efZMxL4zvpA
YuNegkct7DQb3CWQoV7xa6ebIs9Oq9oNGySgE13XOOhF0LKVstgmEIPPBedj
44Sg+8YVh6EWMZQlWPUKfQm6budUmWWIgf3QZW4mkKBHXI2vdpAYNBddRv8+
SnCZk7Y7f4cYOjSm0z+GExReAapBSQxW+5WXlk4QZA47dh15IYKUBCu7pWiC
rx+zH5VWiWDi6Tb8J46gTqX5pcgkEbjr5ejPnyH46YGWbzsPiSCsWe+BJIlg
UVZt9+3tIpjv87Z/l6LQRlNbNGgi2EAfy3iZTjCpwEs2NyQEn9iD7CdZBBM3
nepn1AkhxHhPe2sOQb/HfIb7JSF0lxqW3bmp6CtklU8dQwi73K6G5rIIDuS5
MrP3CKE1eVnj3C2CW3olSTwtheZM3wyrJCjwqAj6RSSAu3UjazxrCEaMas4u
cARwT9365Of1BEc2ReyqKhPAzFhAyzo2wVpTI7O+BAFMnOPMSVsJ3rhxbSDI
VwD6uc+Meh8QfNR0nfLfKQAn+hvnyk6Cp+/a9nWsE0ATx83/fA9Bs4TIU9li
PiwGhB737ScYvIYd3dnDB2HMxTj6oGKPW8P6wZV8UDGfTfx3iGALjVXvn8oH
us3H1D9HCFrox+Y1h/AhnzaZXfqWYIXc1eR7Zz54NvBYkVyCDFXT7h+N+NBI
39ewW6T4R9u6OTUaH56b2T5dkSn8xPXGo+M8SLYWLXTNEUxjmb9We8gDj8e5
FpnvCR5I76rIKudB+N7gqIPLBAtKxg2OX+DBEZ2oTi1lCsfdMgcLQ3hQWiKk
P1Ol8GJ8fKyhKw9e+curslZTaMK4f2fBjAeeI0XgoUUhq+34VkM1HkiHVeTK
ehQe6xkrzBdx4fSXX7W1GVBYXa41ENzPhc3GAbeZhhRe063KiqnnQqwk9J6p
CYWZ4k7WX7lc+OAe9nLInMKOhCcD53/gQqHD0W2XLSlMSndVPR3IBZqJf7Ht
FxRGMNsM2MCFiV4vu0lbCjmJqTOOplzQZtquZDpQuPVEdby6Ohcuc9RnbYHC
CY0HZZtlU+Cu9Nv6MRcK/wMEhyFu
"]]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0.6467291002120973, 67.3748075735913},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
RowBox[{"\[Mu]", "(", "nK", ")"}], HoldForm], TraditionalForm], None}, {
FormBox[
TagBox[
SubscriptBox["\[Epsilon]", "dd"], HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
LabelStyle->{16,
GrayLevel[0], Bold},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{0.6467291002120973, 1.0062559743980763`}, {67.3748075735913,
73.0603682370903}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219182779721794`*^9, {3.9219183152966185`*^9, 3.9219183403854465`*^9}, {
3.9219184209648495`*^9, 3.9219184355320888`*^9}, 3.9219184800936875`*^9, {
3.921918510309456*^9, 3.9219185218008995`*^9}, {3.9219186143765244`*^9,
3.921918635067634*^9}, {3.9219190337738323`*^9, 3.921919048802569*^9},
3.921919208498475*^9, 3.9219194801094913`*^9, 3.9219196451025987`*^9, {
3.9219197651244526`*^9, 3.9219197835654573`*^9}, {3.92191983195973*^9,
3.9219198725547285`*^9}, 3.921920515017722*^9, 3.9219206395157633`*^9,
3.9219943576826253`*^9, 3.92199973077956*^9, {3.9219997649260187`*^9,
3.9219997744239273`*^9}, 3.9219998060845466`*^9, 3.92199985689579*^9,
3.9501530184185104`*^9, 3.9501531697119446`*^9},
CellLabel->
"Out[123]=",ExpressionUUID->"abb1c42d-f7e9-49b4-b4fe-21d73fef27bd"],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
NCache[
Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVkn841HcAxy8ql364rBkhyiFq2lja04+9UydXj11PfmQcp9MjTOZSIhX9
4B62HJUsYfoxLayciXE9rTiLkkpRIbPo7r53xx3S9/Ntz3Nt9sf7eT+vf97/
vN5LY5KDYs1YLFbAdP5vjkPYYIXdOCSuDquVBTSEpSMdQVNGMPGdB24V03C/
tUUX3mgEK9FdLC+n8XV6Svn2Q0YETsk+XPqZxhRr0Q9eG4zwcQvbUVhDw1sn
zJ6YYYRrSWfU4d9oPB0+dvxsuwGKDK/lu5tprLMLvmglM8CvpulmwF0akYeH
lolDDejoL7HwaKdROnPZdycdDWitZLgWj2jUfnOPnaIeg0PdJGe4h4Y5/a5k
uXwMH/4se9w8QKM32Ie6nDEG6zGzWNkwjcBtfi9f+Y/hq7zlvdFaGrIVNnuf
LhzDwhQ212ucRoSpryXrr1Fo558LfU/TkG4zWr+uGcXmxKakFhONoLmz6ycP
jcIzIkQinUmwy/NLqzr+KLqyN4n5cwlqvVddt7UdhVVuCM/CmmBlc5CnG6XH
0bkhjkpbAv7if9c+b9LD9NJs/LATAc+jrcr1ez2spxbf/dyNYOuBmp0LI/UY
kQtOv1lJYGrL8S320qP1AT+uyIdAm4eguhl6pGX86u+3lkDSt+5edK8O3FMf
f6bfSNDf2tDyU5UO7w/Yep4JIPjoqrs0MVOHHfGb1vgKCD4RNO1RBuvwaK+d
8EUIwYX86+1XPHQYlDiUpAqn2fmNoyVLB69o5RQnhiDzfKDh7XMtrnpn7auK
Jzhin9QluqHFSkuFNZIJwlo1Ir5UC8f1Lwa6UwmkMbNCb4i0SE/weSI+QtBd
xJPI1mhxv5D71nCCwLFzNFPN0aLN+Z+AQ3kE1NbKyJs6ChWWpm5WIUHcK6vJ
d20U1vckF+UUEwzYx31RVUGBqpKdsSgnuM51dn2YQcFCUvBYeoXg3LmC7sid
FIJ7LgnMqwlaGk8HhXtTYEcbrY/KCQ5eW/3wzgIKt0+WOk01ErhmJCbJ9BqM
1CnT4m8TRM1rSFZ2aLAzNmtJv3Lax6U+m6irGoh9/7bZ+oCgiVUmD8/WoFY7
sbvhCYGnzf6i32M0sD+mYDu9IKg08lxS/TSYsWUtWzpIIJrNbS901qBpODFW
NzL9D8WCt2yWBllxPJdA3fSeXr7s1ZAaCaJ6Xs04QU6Zez/7rhpmfZcfWhAC
Qe69yvyLanRmkttiE8H58iG7hONqZJYW2jebMxgKOPW0JEYN20/51HxLBifS
0/cv4anRNTHptovDwEVU+8s7VzWupO7qr7VhUKZIWLqErQbHWTjL5MBA3DFY
UqxTQeB3rTrAhUH1RU53VJcKe5zYXQUeDAoWVeWnyFWIMPdN7l3F4JReWfbs
rArP/amztr4M7mTc785KU+G18MmG8PUMMnN5sw8KVRCNXEj+cRODOInCrgEq
7Kg1rnjGZ9B2JHtiHVcFm559qfO2M1j6bXX6nDkqCOvvCDaHMnht+UeFg+EN
zNn7FWlCBv8Bxf9ECA==
"]]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0.6467291002120973, 1.4038631234400054`},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
RowBox[{"\[Mu]", "(", "kHz", ")"}], HoldForm], TraditionalForm],
None}, {
FormBox[
TagBox[
SubscriptBox["\[Epsilon]", "dd"], HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
LabelStyle->{16,
GrayLevel[0], Bold},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{0.6467291002120973, 1.0062559743980763`}, {1.4038631234400054`,
1.5223309786965735`}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219182779721794`*^9, {3.9219183152966185`*^9, 3.9219183403854465`*^9}, {
3.9219184209648495`*^9, 3.9219184355320888`*^9}, 3.9219184800936875`*^9, {
3.921918510309456*^9, 3.9219185218008995`*^9}, {3.9219186143765244`*^9,
3.921918635067634*^9}, {3.9219190337738323`*^9, 3.921919048802569*^9},
3.921919208498475*^9, 3.9219194801094913`*^9, 3.9219196451025987`*^9, {
3.9219197651244526`*^9, 3.9219197835654573`*^9}, {3.92191983195973*^9,
3.9219198725547285`*^9}, 3.921920515017722*^9, 3.9219206395157633`*^9,
3.9219943576826253`*^9, 3.92199973077956*^9, {3.9219997649260187`*^9,
3.9219997744239273`*^9}, 3.9219998060845466`*^9, 3.92199985689579*^9,
3.9501530184185104`*^9, 3.950153169763765*^9},
CellLabel->
"Out[125]=",ExpressionUUID->"587a9128-f3ad-4e3e-b918-a8be29bfb029"]
}, Open ]],
Cell[TextData[StyleBox["Cloud size",
FontFamily->"Constantia",
FontSize->16,
FontWeight->"Bold",
FontColor->RGBColor[
0.5019607843137255, 0.5019607843137255, 0.5019607843137255]]], "Input",
CellChangeTimes->{{3.9219977945130053`*^9, 3.9219978244379115`*^9}, {
3.921997926138105*^9, 3.921997964885008*^9}},
FormatType->
"TextForm",ExpressionUUID->"ed8a25ea-12c4-4537-94e8-a47e73924303"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"AtomNumber", "=", " ",
SuperscriptBox["10", "4"]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
SubscriptBox["v", "x"], " ", "=", " ", "50"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["v", "z"], " ", "=", " ", "500"}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SL", " ", "=", " ",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"i", " ", "BohrRadius"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "130", ",", " ", "200"}], "}"}]}], "]"}]}], ";", " ",
RowBox[{"(*",
RowBox[{"Range", " ", "of", " ", "scattering", " ", "lengths"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"AR", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"\[Kappa]", "/.",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
RowBox[{"AspectRatioEquation", "[",
RowBox[{"\[Kappa]", ",", "as"}], "]"}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"\[Gamma]", "\[Rule]", " ",
FractionBox[
SubscriptBox["v", "z"],
SubscriptBox["v", "x"]]}], ",",
RowBox[{"as", "\[Rule]", "sl"}]}], " ", "}"}]}], ",",
RowBox[{"{",
RowBox[{"\[Kappa]", ",", "100"}], "}"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"sl", ",", "SL"}], "}"}]}], "]"}]}], ";", " ",
RowBox[{"(*",
RowBox[{
RowBox[{"Corresponding", " ", "aspect", " ", "ratios"}], ",", " ",
RowBox[{
"obtained", " ", "by", " ", "solving", " ", "the", " ", "transcendental",
" ", "equation"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{"RADX", " ", "=", " ",
RowBox[{
RowBox[{"MapThread", "[",
RowBox[{
SubscriptBox["R", "x"], ",",
RowBox[{"{",
RowBox[{"AR", ",", "SL"}], "}"}]}], "]"}], "/.", " ",
RowBox[{"{",
RowBox[{
RowBox[{
SubscriptBox["\[Omega]", "x"], " ", "\[Rule]", " ",
RowBox[{"2", " ", "\[Pi]", " ",
SubscriptBox["v", "x"]}]}], ",", " ",
RowBox[{"n", "\[Rule]", " ", "AtomNumber"}]}], "}"}]}]}], ";", " ",
RowBox[{"(*",
RowBox[{"Corresponding", " ", "radii", " ", "in", " ", "x"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"RADZ", " ", "=", " ",
RowBox[{
RowBox[{"MapThread", "[",
RowBox[{
SubscriptBox["R", "z"], ",",
RowBox[{"{",
RowBox[{"AR", ",", "SL"}], "}"}]}], "]"}], "/.", " ",
RowBox[{"{",
RowBox[{
RowBox[{
SubscriptBox["\[Omega]", "x"], " ", "\[Rule]", " ",
RowBox[{"2", " ", "\[Pi]", " ",
SubscriptBox["v", "x"]}]}], ",", " ",
RowBox[{"n", "\[Rule]", " ", "AtomNumber"}]}], "}"}]}]}], ";", " ",
RowBox[{"(*",
RowBox[{"Corresponding", " ", "radii", " ", "in", " ", "z"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"Epsilondd", " ", "=", " ",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{
SubscriptBox["\[Epsilon]",
RowBox[{"dd", " "}]], "[", "as", "]"}], "]"}], " ", "/.", " ",
RowBox[{"as", " ", "\[Rule]", " ", "SL"}]}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"datax", "=",
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{"Epsilondd", ",",
RowBox[{"RADX", " ",
SuperscriptBox["10", "6"]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"dataz", "=",
RowBox[{"Transpose", "@",
RowBox[{"{",
RowBox[{"Epsilondd", ",",
RowBox[{"RADZ", " ",
SuperscriptBox["10", "9"]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"ListLinePlot", "[",
RowBox[{"datax", ",",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[",
SubscriptBox["\[Epsilon]", "dd"], "]"}], ",",
RowBox[{"HoldForm", "[",
RowBox[{"Radius", "[", "\[Mu]m", "]"}], "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}],
"]"}], "\[IndentingNewLine]",
RowBox[{"ListLinePlot", "[",
RowBox[{"dataz", ",",
RowBox[{"PlotRange", "\[Rule]", "Full"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"HoldForm", "[",
SubscriptBox["\[Epsilon]", "dd"], "]"}], ",",
RowBox[{"HoldForm", "[",
RowBox[{"Radius", "[", "nm", "]"}], "]"}]}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"16", ",", "Black", ",", "Bold"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"Black", ",",
RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.9219984727752724`*^9, 3.9219984776048565`*^9}, {
3.9219986286730394`*^9, 3.921998633131484*^9}, {3.9219986787469206`*^9,
3.921998682552657*^9}, {3.9219996250207105`*^9, 3.921999658960312*^9}, {
3.950152990460636*^9, 3.950152999108552*^9}, {3.9501532092169976`*^9,
3.950153217701787*^9}},
CellLabel->
"In[134]:=",ExpressionUUID->"2e1754c7-5e5b-421e-af86-eaf3b61abddd"],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
NCache[
Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVUms0FAgYnbQzOz22sjnybL88l1UtxbYrvq8TobXZBmm8il16SETJo5Q8
Ti8TJymNPJLJI1IbO6stYhq0aCW2rHK05j1mkrSVHjv745577p977rn3LomM
40TpMRgMLx3+5wVmQU9KjZ+jey4/xuHjFxTC/6eT81KLe1drCgV6QLY31ym5
TVrsvxdx7AYT6IfkhAt+KVqc9CzXb2UDvWQYnFjmpsV9u41Wds0BclKGZE3M
0KKxjc3U/XlAD54dzjjdocHkCjPuQ30gV2P/svk8DRZdWvPzoAFQaNqIRUSg
BsvLek0GFwHxP7HYnWmuwfjXzw/3mwBd3SxmJ0jHMcDm3vlec6CZr6aKvmwY
x0513K4OABrwXyG/mDqOHlnqN7csgXzXr3k07DmOKzrdva7bAPG+Mtz1QH8c
9X4K3nzJDij4/eM7h56q0e+NrWOBA1DOeu3no7Vq5ARkD2QsB+LMYf3yIkWN
O094+sQ6AW21XzX/mrcaJQ6OeZucdXmcltcZGanxdRSr3m0VkMNvHHsbuQpZ
9ikCC1cgb5OP3w0KVWjEXXGQ6Q7kYSeqtj6uwsuSh85SAvLZW7tJP1SFV95M
9ovWAr0XZbsULlMh09Q8pHwdkOIYcq7NUKGlX39vmg9Q/GNX8ZYBJRq55zkF
+AINtTXeKalWol6g6Ji9H9BCgW1OTLoSO2SDf33YCLRogzC63V+Jnhwb6AsA
Op9b11Fhp8QhI3Z0eZBOw5j5bIYSQ9ldV+KCgdLP+WomBxWYFlj3r2sY0AHT
2J7wegUW3Hzuw9oKFNQmC/fOUeCr82JBb6Sur0hmYH24AosNg/XPRAH1FXjE
875R4HbH3pPc7UDmf6jTpQsU2Kl0MzOLAZL7VIbeUMpRE/x723As0Lbh+S+m
RHI82BuQyY8H+tt028rqUjneHp0dsTkRqM4KrLtT5RjEHwpfmAR05sypvtBN
cuTnCA91JwPdacrncJ3k6NeTL85MA0qqcu5umSfHuRt9Xb5NB7JOjYnlqWTo
IhL3qQ8Dhc1tjGvvlOGetkf8kkzdHuWPDcMEMuyQc85uyAESMoobuFky9B3/
IH53FMjeMLHg10gZJjaVLq0+AVSp9bDct0aGY3smevx5QOEsq448kOFntdU1
7/J0/2ieN8lmyHB1xH5xxWmdn6rBYnhEitHmM618CoGyi22H2K1S5H2qvas+
B7ThqLgyt0yKA9OD9Tw+0LkLI8Y7MqRoW/rj6LISoBGvkw+KIqUoSFRt6SkD
OpKcnLjYQ4pV6q+X7qwAsgy/ennKWorxRy59zxQAFTfvWLKYLcX8u+23SqqA
IjqfFBUqJaiXwMpxqQWqKVvQF9YjQWnGU0F3HdApg+rchAYJvkWhRUQD0ElV
e3H/aQl2c99OT14Haknt6ju0X4JnJ5jO2Y26fxz1YCWFSHDkqsufBkLdfvHN
xo0owdaHz+5fbAYSHciacLWS4LR3iMvyW0BLdtYkz5olwbv1KmZzC9Do7Nul
ZpoxdE8YorVtQP8BnkgUUQ==
"]]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0.6467291002120973, 7.978069195182989},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
RowBox[{"Radius", "(", "\[Mu]m", ")"}], HoldForm], TraditionalForm],
None}, {
FormBox[
TagBox[
SubscriptBox["\[Epsilon]", "dd"], HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
LabelStyle->{16,
GrayLevel[0], Bold},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{0.6467291002120973, 1.0062559743980763`}, {7.978069195182989,
8.379419352212718}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219979706412177`*^9, 3.921998477981798*^9, {3.9219986295429163`*^9,
3.9219986340896387`*^9}, 3.921998682916232*^9, {3.921999640439232*^9,
3.921999659387103*^9}, 3.950153000948781*^9, {3.9501532118031287`*^9,
3.9501532185324125`*^9}},
CellLabel->
"Out[140]=",ExpressionUUID->"544c3284-a827-4642-ae3a-c3c53bad9c90"],
Cell[BoxData[
GraphicsBox[{{}, {{}, {},
{RGBColor[0.368417, 0.506779, 0.709798], PointSize[
NCache[
Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6],
LineBox[CompressedData["
1:eJwVUns0FQYcvqkJ7XjEEYXkGcqaQienfr/mESaz6xDz1pFHkZjiTpdKpvq5
csJxRx4z8pjXkJvWvB9bnB22LBJrc9/uvfLaOZnT7v74zne+f77zne/7DkRf
ZsaoMBiMM0r8z9pG515XGi6D1K/Vy0OTMKTs7zHmmgJK6cz+NW1C66cekuDH
CnhtNp5VrUt4Nj3l4WcZCmiJnIj31SdcY+jdsz+pgON5i6/eGRA6SEJy3m5T
QGhlx+91+win/sq+8WBUDoHAZzJNCF0M/au0OHLIjzkUsGVKGPrVgllUgBzu
u7vNPjInLNthlnTLWA6aRst/fm5F2Bo0opYikMGaymbs5kHC7Rvr3INtMqAR
56Tv7Ahf+B8VfcuSQenT7BUfe0If79Mv59xlcKmke3XtCCHHTv/SlI4MVFyH
k8uPEn6xNdOfNb8EwmfcOFcnwlxvxe43TUtwWG43Kz5OyNyl2rGSsQS7szOG
ClwII22Pa7V7LkF/X66V4yllHoePmg0MlqCGFf5+BgkPPWHaWomk0D6l48t2
JfTc+/7ENE8KN614OmYehG42Qw2Wd6WgJ03yGvYk9PqyKVAnVAoRFLwW+ynh
1tBtpxJ7KTScrdbR8CUU3wFm+zYpXLdNq2ryI0yecRmJeCGBKzz1Kh9/wtmB
rv6KBglcVudqyQIIdeuscy+yJTDPiZZTEOEeX96FQX8JnNxqdDkUQvhNfvNo
jY0E2Ed+3PglTKlNF401GBIQaPNN4iMJ2aU+8tVpMdSnZ3SonifM3Jc4Ed4i
BrnhVEdNDOG5AWG4Z64YKMZnP8Yp+4r+IKAlXAynUrzXXyUQTha5JXOcxRC1
6OB4LZHQ+PkSW6AtBo/p5HmdZEKRV21op0QEO/pTl5tSCGPntFbWh0TwJKY1
wT2N8NW+2GMNlSKI6y7zmb9G2GxhajnOEsHh4c7iqyzC4uKCydBAEeysZblr
Xifsf1zIDHYQgUbElZDaLMKr9Y7jvZoiWH1p+ofLTUJL1sVEjlQIzAE93mQO
YdiHXZcHx4TwT/bc1oWvlXtUz+iH1QlhwXhX/eYdQh6jvC04Rwi3HJwfFxCh
rX5qUXe0EAqn31mbFxDWKtzM004LQYWz+m9XIWG4qsXofVMh5DgPHPMsUv6j
R3NVjSGEyE2NX2dKlH7SNrO5BQFUn0h7nsAlvF1uPavWJ4AadpPNZhmhb95I
bX6VAGRxIeK7FYSlDxcM428IILHGUWNvNeHCGZriRgtg+6TsXn0N4c309FQT
NwEEsU8kOdURmoe3Plq3FIC27ou2wXrC8p74AyZqAvhkMMPfr4kwauw1t0TC
h49vCAPmmgkbq7Qnwyb4kKpY6I5tIyzQa8hPaeODs791xsoPhCQdLP/tAR+E
uTnczC7CXtbPk1nX+GAk6zNQ5Sn/keemejWEDx3n6zc4Pcr9knsMu4AP4Kx+
dM8zwqHMnLcuFnwY1u+cqOglPJDQmK6uzof8nZkjlgOEbzR+qjSSL0JosJPx
90OE/wF5zS4I
"]]}}, {{}, {}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0.6467291002120973, 896.5176691266632},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox[
TagBox[
RowBox[{"Radius", "(", "nm", ")"}], HoldForm], TraditionalForm],
None}, {
FormBox[
TagBox[
SubscriptBox["\[Epsilon]", "dd"], HoldForm], TraditionalForm], None}},
FrameStyle->Directive[
GrayLevel[0],
Thickness[Large]],
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{Automatic, Automatic},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
LabelStyle->{16,
GrayLevel[0], Bold},
Method->{
"OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Identity[
Part[#, 1]],
Identity[
Part[#, 2]]}& )}},
PlotRange->{{0.6467291002120973, 1.0062559743980763`}, {896.5176691266632,
920.5840400930424}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.9219979706412177`*^9, 3.921998477981798*^9, {3.9219986295429163`*^9,
3.9219986340896387`*^9}, 3.921998682916232*^9, {3.921999640439232*^9,
3.921999659387103*^9}, 3.950153000948781*^9, {3.9501532118031287`*^9,
3.9501532185804853`*^9}},
CellLabel->
"Out[141]=",ExpressionUUID->"56c6c934-d5fa-42c2-ba7c-fa8bcedd54f0"]
}, Open ]],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.921999651746966*^9,
3.9219996555440273`*^9}},ExpressionUUID->"525d49fe-438b-455d-acfe-\
64f548d9b197"]
},
WindowSize->{1920, 989},
WindowMargins->{{1912, Automatic}, {Automatic, -8}},
TaggingRules->{
"WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
Magnification->1.5,
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"25b2a2e3-5961-4e85-afba-c45fac1912f8"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1057, 17, 49, "Input",ExpressionUUID->"4580ef46-100f-4d06-a81d-01ef1972d03a"],
Cell[1618, 39, 2567, 82, 608, "Input",ExpressionUUID->"ce0760b5-054f-479a-afb4-a27ee89f6ef3"],
Cell[4188, 123, 285, 7, 49, "Input",ExpressionUUID->"7541c8e9-4ed6-4cc8-b1b8-8a5d0ee47409"],
Cell[4476, 132, 1085, 19, 73, "Input",ExpressionUUID->"f8fcb7a4-bca8-428a-a81f-4f55d34b324e"],
Cell[5564, 153, 390, 9, 49, "Input",ExpressionUUID->"a535950b-0832-4f86-9704-498eee013f2a"],
Cell[5957, 164, 11540, 342, 1078, "Input",ExpressionUUID->"6499959a-0ec7-4fa4-9039-96cfca376bb0"],
Cell[17500, 508, 267, 8, 49, "Input",ExpressionUUID->"4b274978-c5a7-486d-ab9a-bc223c69fab2"],
Cell[CellGroupData[{
Cell[17792, 520, 4445, 96, 189, "Input",ExpressionUUID->"fa978809-3917-431e-807d-035d120fce82"],
Cell[22240, 618, 4262, 94, 382, "Output",ExpressionUUID->"9f080d1e-c33d-46cc-9d98-4517405a6908"],
Cell[26505, 714, 4275, 95, 381, "Output",ExpressionUUID->"c8213d60-0c97-4ed5-9009-25a8ce528380"],
Cell[30783, 811, 4289, 95, 373, "Output",ExpressionUUID->"af00977e-e8a0-4eee-9ca3-ec9eded84f66"]
}, Open ]],
Cell[35087, 909, 350, 9, 49, "Input",ExpressionUUID->"80c1bd0f-beae-4d0d-a962-1fd9f07e9fbf"],
Cell[CellGroupData[{
Cell[35462, 922, 4087, 91, 323, "Input",ExpressionUUID->"08544f05-6456-4e6e-8560-567b589ce9ff"],
Cell[39552, 1015, 6774, 135, 340, "Output",ExpressionUUID->"a56e03af-27ef-4723-91b7-02dbedfbe63a"],
Cell[46329, 1152, 1032, 15, 64, "Output",ExpressionUUID->"0120f67f-5eff-4e56-973c-cf293fac64e9"]
}, Open ]],
Cell[CellGroupData[{
Cell[47398, 1172, 9028, 249, 936, "Input",ExpressionUUID->"39d82f2f-f93e-4569-a27f-746628c12c7d"],
Cell[56429, 1423, 3944, 86, 374, "Output",ExpressionUUID->"9fabf922-5e82-4700-84e1-c8aac18133aa"],
Cell[60376, 1511, 4140, 93, 345, "Output",ExpressionUUID->"e1c69af0-39e9-4f97-bde0-aa56b7d99d93"],
Cell[64519, 1606, 3974, 87, 387, "Output",ExpressionUUID->"abb1c42d-f7e9-49b4-b4fe-21d73fef27bd"],
Cell[68496, 1695, 3980, 88, 374, "Output",ExpressionUUID->"587a9128-f3ad-4e3e-b918-a8be29bfb029"]
}, Open ]],
Cell[72491, 1786, 397, 9, 49, "Input",ExpressionUUID->"ed8a25ea-12c4-4537-94e8-a47e73924303"],
Cell[CellGroupData[{
Cell[72913, 1799, 5735, 153, 551, "Input",ExpressionUUID->"2e1754c7-5e5b-421e-af86-eaf3b61abddd"],
Cell[78651, 1954, 3503, 82, 394, "Output",ExpressionUUID->"544c3284-a827-4642-ae3a-c3c53bad9c90"],
Cell[82157, 2038, 3487, 82, 378, "Output",ExpressionUUID->"56c6c934-d5fa-42c2-ba7c-fa8bcedd54f0"]
}, Open ]],
Cell[85659, 2123, 154, 3, 43, "Input",ExpressionUUID->"525d49fe-438b-455d-acfe-64f548d9b197"]
}
]
*)