summaryrefslogtreecommitdiff
path: root/mathemathica_fwm
diff options
context:
space:
mode:
authorSimon Rochester <simon.rochester@gmail.com>2012-07-02 18:40:43 -0700
committerSimon Rochester <simon.rochester@gmail.com>2012-07-02 18:40:43 -0700
commit72f97608f3c9dc7475a348a28e86086bf3f8e825 (patch)
tree0e0ae39c671f8635a9c4204b5d740cf55281de57 /mathemathica_fwm
parent214f9a9da187497f90aae10be1edc0d19007a592 (diff)
downloadNresonances-72f97608f3c9dc7475a348a28e86086bf3f8e825.tar.gz
Nresonances-72f97608f3c9dc7475a348a28e86086bf3f8e825.zip
Changed polarization to circular, added Doppler shift term and propagation equations to RbXMDSSetup.nb
Diffstat (limited to 'mathemathica_fwm')
-rwxr-xr-xmathemathica_fwm/RbXMDSSetup.nb6309
1 files changed, 4647 insertions, 1662 deletions
diff --git a/mathemathica_fwm/RbXMDSSetup.nb b/mathemathica_fwm/RbXMDSSetup.nb
index 7f7559b..6959e78 100755
--- a/mathemathica_fwm/RbXMDSSetup.nb
+++ b/mathemathica_fwm/RbXMDSSetup.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
-NotebookDataLength[ 253046, 6984]
-NotebookOptionsPosition[ 248754, 6836]
-NotebookOutlinePosition[ 249273, 6858]
-CellTagsIndexPosition[ 249186, 6853]
+NotebookDataLength[ 357493, 9969]
+NotebookOptionsPosition[ 352469, 9801]
+NotebookOutlinePosition[ 352832, 9817]
+CellTagsIndexPosition[ 352789, 9814]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -367,7 +367,7 @@ Cell[BoxData[
}, Open ]],
Cell[TextData[{
- "Define the optical field with three frequencies, ",
+ "Define the optical field with four frequencies, ",
Cell[BoxData[
FormBox[
StyleBox[
@@ -387,7 +387,27 @@ Cell[TextData[{
FormBox[
StyleBox[
SubscriptBox["\[Omega]", "4"], "InlineMath"], TraditionalForm]]],
- "."
+ ". Here ",
+ Cell[BoxData[
+ FormBox[
+ SubscriptBox["\[CapitalOmega]", "1"], TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ " and ",
+ Cell[BoxData[
+ FormBox[
+ SubscriptBox["\[CapitalOmega]", "1"], TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ " are left-circularly polarized, and ",
+ Cell[BoxData[
+ FormBox[
+ SubscriptBox["\[CapitalOmega]", "3"], TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ " and ",
+ Cell[BoxData[
+ FormBox[
+ SubscriptBox["\[CapitalOmega]", "4"], TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ " are right-circularly polarized."
}], "Text",
CellID->133602844],
@@ -398,7 +418,7 @@ Cell[BoxData[
RowBox[{"OpticalField", ",",
RowBox[{"PolarizationVector", "\[Rule]",
RowBox[{"{",
- RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ",",
+ RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ",",
RowBox[{"CartesianCoordinates", "\[Rule]",
RowBox[{"{",
RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]], "Input"],
@@ -408,7 +428,7 @@ Cell[BoxData[
RowBox[{
RowBox[{"PolarizationVector", "\[Rule]",
RowBox[{"{",
- RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ",",
+ RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ",",
RowBox[{"PropagationVector", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ",",
@@ -437,7 +457,10 @@ Cell[BoxData[
RowBox[{"1", ",",
RowBox[{"{",
RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}], ",",
- SubscriptBox["\[Phi]", "1"]}], "}"}]}], "]"}], "+",
+ SubscriptBox["\[Phi]", "1"]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"\[Pi]", "/", "4"}]}], "}"}]}], "]"}], "+",
"\[IndentingNewLine]",
RowBox[{"OpticalField", "[",
RowBox[{
@@ -453,7 +476,10 @@ Cell[BoxData[
RowBox[{"1", ",",
RowBox[{"{",
RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}], ",",
- SubscriptBox["\[Phi]", "2"]}], "}"}]}], "]"}], "+",
+ SubscriptBox["\[Phi]", "2"]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{"\[Pi]", "/", "4"}]}], "}"}]}], "]"}], "+",
"\[IndentingNewLine]",
RowBox[{"OpticalField", "[",
RowBox[{
@@ -469,7 +495,11 @@ Cell[BoxData[
RowBox[{"1", ",",
RowBox[{"{",
RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}], ",",
- SubscriptBox["\[Phi]", "3"]}], "}"}]}], "]"}], "+",
+ SubscriptBox["\[Phi]", "3"]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"-", "\[Pi]"}], "/", "4"}]}], "}"}]}], "]"}], "+",
"\[IndentingNewLine]",
RowBox[{"OpticalField", "[",
RowBox[{
@@ -485,12 +515,16 @@ Cell[BoxData[
RowBox[{"1", ",",
RowBox[{"{",
RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}], ",",
- SubscriptBox["\[Phi]", "4"]}], "}"}]}], "]"}]}]}]], "Input",
+ SubscriptBox["\[Phi]", "4"]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"-", "\[Pi]"}], "/", "4"}]}], "}"}]}], "]"}]}]}]], "Input",
CellID->534530029],
Cell[BoxData[
RowBox[{"{",
- RowBox[{"0", ",", "0", ",",
+ RowBox[{
RowBox[{
FractionBox[
RowBox[{
@@ -504,10 +538,12 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], ")"}]}]], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"ReducedME", "[",
- RowBox[{"1", ",",
- RowBox[{"{",
- RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]], "+",
+ RowBox[{
+ SqrtBox["2"], " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
@@ -520,10 +556,12 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], ")"}]}]], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"ReducedME", "[",
- RowBox[{"1", ",",
- RowBox[{"{",
- RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]], "+",
+ RowBox[{
+ SqrtBox["2"], " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
@@ -536,10 +574,12 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], ")"}]}]], " ",
SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"ReducedME", "[",
- RowBox[{"1", ",",
- RowBox[{"{",
- RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]], "+",
+ RowBox[{
+ SqrtBox["2"], " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}]], "+",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
@@ -552,11 +592,86 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], ")"}]}]], " ",
SubscriptBox["\[CapitalOmega]", "4"]}],
- RowBox[{"ReducedME", "[",
- RowBox[{"1", ",",
- RowBox[{"{",
- RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]]}]}],
- "}"}]], "Output"]
+ RowBox[{
+ SqrtBox["2"], " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}]]}], ",",
+ RowBox[{
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], ")"}]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{
+ SqrtBox["2"], " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], ")"}]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{
+ SqrtBox["2"], " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], ")"}]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{
+ SqrtBox["2"], " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], ")"}]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{
+ SqrtBox["2"], " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}]]}], ",",
+ "0"}], "}"}]], "Output"]
}, Open ]],
Cell["\<\
@@ -578,7 +693,10 @@ Cell[BoxData[
RowBox[{"ElectricField", "\[Rule]", "field"}]}], "]"}]}], "/.", " ",
RowBox[{
RowBox[{
- RowBox[{"Cos", "[", "_", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Cos", "[", "_", "]"}], "|",
+ RowBox[{"Sin", "[", "_", "]"}]}], ")"}], " ",
RowBox[{"ReducedME", "[",
RowBox[{"_", ",",
RowBox[{"{",
@@ -593,7 +711,7 @@ Cell[BoxData[
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", "0",
- "0", "0", "0",
+ "0", "0", "0", "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -606,7 +724,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- SqrtBox["6"]]}], "-",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -617,12 +748,74 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- SqrtBox["6"]]}], "0", "0", "0", "0", "0", "0", "0"},
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0", "0", "0",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]]}], "0", "0"},
{"0",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", "0",
- "0", "0", "0",
+ "0", "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -635,8 +828,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "-",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -647,8 +852,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -656,13 +873,74 @@ Cell[BoxData[
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"z", " ",
- SubscriptBox["k", "3"]}], "+",
- SubscriptBox["\[Phi]", "3"], "-",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
RowBox[{"t", " ",
- SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}],
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
RowBox[{"4", " ",
- SqrtBox["5"]}]]}], "-",
+ SqrtBox["2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0", "0", "0",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -673,13 +951,125 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "4"]}],
- RowBox[{"4", " ",
- SqrtBox["5"]}]]}], "0", "0"},
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]]}], "0"},
{"0", "0",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", "0",
- "0", "0", "0", "0", "0", "0", "0",
+ "0", "0",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -692,9 +1082,21 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"2", " ",
+ RowBox[{"8", " ",
SqrtBox["15"]}]]}], "-",
FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "-",
+ FractionBox[
RowBox[{
RowBox[{"Cos", "[",
RowBox[{
@@ -704,26 +1106,150 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "4"]}],
- RowBox[{"2", " ",
- SqrtBox["15"]}]]}], "0"},
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]]}], "0",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]]}]},
{"0", "0", "0",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", "0",
- "0", "0", "0",
+ "0", "0",
RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
SubscriptBox["k", "1"]}], "+",
SubscriptBox["\[Phi]", "1"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]], "+",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -734,8 +1260,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -748,9 +1286,21 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"4", " ",
+ RowBox[{"8", " ",
SqrtBox["5"]}]]}], "-",
FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "-",
+ FractionBox[
RowBox[{
RowBox[{"Cos", "[",
RowBox[{
@@ -760,17 +1310,42 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "4"]}],
- RowBox[{"4", " ",
- SqrtBox["5"]}]]}]},
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]]}], "0"},
{"0", "0", "0", "0",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", "0",
- "0", "0", "0",
+ "0", "0",
RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "+",
FractionBox[
- RowBox[{
- RowBox[{"Cos", "[",
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
RowBox[{
RowBox[{"z", " ",
SubscriptBox["k", "1"]}], "+",
@@ -778,7 +1353,8 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- SqrtBox["6"]], "+",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -789,12 +1365,116 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- SqrtBox["6"]]}], "0", "0", "0"},
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0", "0", "0",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]]}]},
{"0", "0", "0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"5", " ",
- RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0",
+ RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -807,8 +1487,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["2"]}]]}], "-",
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -819,12 +1511,24 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["2"]}]]}], "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]]}], "0", "0", "0",
RowBox[{
RowBox[{
RowBox[{"-",
- FractionBox["1", "4"]}], " ",
+ FractionBox["1", "8"]}], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
RowBox[{"Cos", "[",
@@ -834,9 +1538,21 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "3"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "3"]}], "-",
RowBox[{
- FractionBox["1", "4"], " ",
+ FractionBox["1", "8"], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
RowBox[{"Cos", "[",
@@ -846,12 +1562,73 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "4"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
- SubscriptBox["\[CapitalOmega]", "4"]}]}], "0", "0"},
+ SubscriptBox["\[CapitalOmega]", "4"]}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}]}], "0"},
{"0", "0", "0", "0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"5", " ",
- RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0",
+ RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -864,7 +1641,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- SqrtBox["6"]]}], "-",
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -875,26 +1665,150 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- SqrtBox["6"]]}], "0", "0", "0", "0", "0"},
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}]}], "0",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}]}]},
{"0", "0", "0", "0", "0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{"5", " ",
- RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0", "0",
+ RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "0", "0",
RowBox[{
- RowBox[{"-",
- FractionBox[
- RowBox[{
- RowBox[{"Cos", "[",
- RowBox[{
- RowBox[{"z", " ",
- SubscriptBox["k", "1"]}], "+",
- SubscriptBox["\[Phi]", "1"], "-",
- RowBox[{"t", " ",
- SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
- SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["2"]}]]}], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "+",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -905,11 +1819,66 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["2"]}]]}], "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]]}], "0",
RowBox[{
RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "-",
+ RowBox[{
FractionBox["1", "4"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}]}], "0",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
RowBox[{"Cos", "[",
@@ -919,9 +1888,21 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "3"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}], "+",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
RowBox[{
- FractionBox["1", "4"], " ",
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
RowBox[{"Cos", "[",
@@ -931,8 +1912,20 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "4"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
- SubscriptBox["\[CapitalOmega]", "4"]}]}]},
- {
+ SubscriptBox["\[CapitalOmega]", "4"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}]}], "0"},
+ {"0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -945,7 +1938,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- SqrtBox["6"]]}], "-",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -956,14 +1962,68 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- SqrtBox["6"]]}], "0", "0", "0", "0", "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0", "0", "0",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}]}], "0", "0",
RowBox[{
RowBox[{"Energy", "[", "2", "]"}], "+",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "0", "0", "0", "0",
"0", "0", "0"},
- {"0",
+ {
RowBox[{
RowBox[{"-",
FractionBox[
@@ -976,8 +2036,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "-",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -988,8 +2060,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -1002,9 +2086,21 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
+ RowBox[{"4", " ",
SqrtBox["2"]}]]}], "-",
FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
RowBox[{
RowBox[{"Cos", "[",
RowBox[{
@@ -1014,15 +2110,176 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
SqrtBox["2"]}]]}], "0", "0", "0",
RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0", "0",
+ RowBox[{
RowBox[{"Energy", "[", "2", "]"}], "+",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "0", "0", "0", "0",
"0", "0"},
- {"0", "0", "0", "0", "0", "0",
+ {"0",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -1035,7 +2292,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- SqrtBox["6"]]}], "-",
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -1046,27 +2316,152 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- SqrtBox["6"]]}], "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]]}], "0",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]]}], "0", "0",
RowBox[{
RowBox[{"Energy", "[", "2", "]"}], "+",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "0", "0", "0", "0",
"0"},
- {"0", "0", "0",
+ {"0", "0",
RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
RowBox[{
RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
SubscriptBox["k", "1"]}], "+",
SubscriptBox["\[Phi]", "1"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]], "+",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -1077,8 +2472,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -1091,8 +2498,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["2"]}]]}], "-",
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -1103,18 +2522,43 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["2"]}]]}], "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0", "0", "0", "0",
RowBox[{
RowBox[{"Energy", "[", "2", "]"}], "+",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "0", "0", "0", "0"},
- {"0", "0", "0", "0",
+ {"0", "0", "0",
RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "+",
FractionBox[
- RowBox[{
- RowBox[{"Cos", "[",
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
RowBox[{
RowBox[{"z", " ",
SubscriptBox["k", "1"]}], "+",
@@ -1122,7 +2566,8 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "1"]}],
- SqrtBox["6"]], "+",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -1133,13 +2578,117 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- SqrtBox["6"]]}], "0", "0", "0", "0", "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0", "0", "0",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "1"]}], "+",
+ SubscriptBox["\[Phi]", "1"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "2"]}], "+",
+ SubscriptBox["\[Phi]", "2"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}]}], "0", "0", "0", "0",
RowBox[{
RowBox[{"Energy", "[", "2", "]"}], "+",
FractionBox[
RowBox[{"3", " ",
RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "0", "0", "0"},
- {"0",
+ {
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -1152,8 +2701,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"4", " ",
- SqrtBox["5"]}]]}], "-",
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -1164,12 +2725,24 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "4"]}],
- RowBox[{"4", " ",
- SqrtBox["5"]}]]}], "0", "0", "0",
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]]}], "0", "0", "0",
RowBox[{
RowBox[{
RowBox[{"-",
- FractionBox["1", "4"]}], " ",
+ FractionBox["1", "8"]}], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
RowBox[{"Cos", "[",
@@ -1179,9 +2752,21 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "3"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "3"]}], "-",
RowBox[{
- FractionBox["1", "4"], " ",
+ FractionBox["1", "8"], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
RowBox[{"Cos", "[",
@@ -1191,8 +2776,20 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "4"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "4"]}]}], "0", "0", "0", "0", "0",
- "0", "0",
+ "0",
RowBox[{
RowBox[{"Energy", "[", "3", "]"}], "-",
FractionBox[
@@ -1200,7 +2797,56 @@ Cell[BoxData[
RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+",
FractionBox[
RowBox[{"HyperfineB", "[", "3", "]"}], "4"]}], "0", "0"},
- {"0", "0",
+ {"0",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -1213,8 +2859,20 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"2", " ",
- SqrtBox["15"]}]]}], "-",
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -1225,9 +2883,121 @@ Cell[BoxData[
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "4"]}],
- RowBox[{"2", " ",
- SqrtBox["15"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
- "0",
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]]}], "0",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}]}], "0",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}]}], "0", "0", "0", "0", "0",
+ "0",
RowBox[{
RowBox[{"Energy", "[", "3", "]"}], "-",
FractionBox[
@@ -1235,7 +3005,56 @@ Cell[BoxData[
RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+",
FractionBox[
RowBox[{"HyperfineB", "[", "3", "]"}], "4"]}], "0"},
- {"0", "0", "0",
+ {"0", "0",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]]}], "0",
RowBox[{
RowBox[{"-",
FractionBox[
@@ -1249,7 +3068,19 @@ Cell[BoxData[
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "3"]}],
RowBox[{"4", " ",
- SqrtBox["5"]}]]}], "-",
+ SqrtBox["10"]}]]}], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "-",
FractionBox[
RowBox[{
RowBox[{"Cos", "[",
@@ -1261,10 +3092,23 @@ Cell[BoxData[
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "4"]}],
RowBox[{"4", " ",
- SqrtBox["5"]}]]}], "0", "0", "0",
+ SqrtBox["10"]}]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]]}], "0",
RowBox[{
RowBox[{
- FractionBox["1", "4"], " ",
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
RowBox[{"Cos", "[",
@@ -1274,9 +3118,21 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "3"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}], "+",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
RowBox[{
- FractionBox["1", "4"], " ",
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "3"]}], "+",
+ SubscriptBox["\[Phi]", "3"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "3"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
RowBox[{"Cos", "[",
@@ -1286,8 +3142,20 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "4"], "-",
RowBox[{"t", " ",
SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
+ SubscriptBox["\[CapitalOmega]", "4"]}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"Sin", "[",
+ RowBox[{
+ RowBox[{"z", " ",
+ SubscriptBox["k", "4"]}], "+",
+ SubscriptBox["\[Phi]", "4"], "-",
+ RowBox[{"t", " ",
+ SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ",
SubscriptBox["\[CapitalOmega]", "4"]}]}], "0", "0", "0", "0", "0",
- "0", "0",
+ "0", "0", "0",
RowBox[{
RowBox[{"Energy", "[", "3", "]"}], "-",
FractionBox[
@@ -1359,17 +3227,30 @@ Cell[BoxData[
LineBox[{{-0.4, 3.475}, {0.4, 3.475}}]}, {{},
LineBox[{{-1.4, 3.475}, {-0.6, 3.475}}]}}, {{}, {}, {}},
{Arrowheads[{-0.029508196721311476`, 0.029508196721311476`}],
- ArrowBox[{{2., 0.15000000000000002`}, {2., 2.15}}],
- ArrowBox[{{1., 0.15000000000000002`}, {1., 2.15}}],
- ArrowBox[{{1., 0.15000000000000002`}, {1., 3.475}}],
- ArrowBox[{{0., 0.15000000000000002`}, {0., 3.475}}],
- ArrowBox[{{-1., 0.15000000000000002`}, {-1., 2.15}}],
- ArrowBox[{{-1., 0.15000000000000002`}, {-1., 3.475}}],
- ArrowBox[{{-2., 0.15000000000000002`}, {-2., 2.15}}],
- ArrowBox[{{1., -0.25}, {1., 2.15}}], ArrowBox[{{1., -0.25}, {1., 3.475}}],
- ArrowBox[{{0., -0.25}, {0., 2.15}}],
- ArrowBox[{{-1., -0.25}, {-1., 2.15}}],
- ArrowBox[{{-1., -0.25}, {-1., 3.475}}]},
+ ArrowBox[{{1.04, 0.15000000000000002`}, {1.96, 2.15}}],
+ ArrowBox[{{0.04000000000000001, 0.15000000000000002`}, {0.96, 2.15}}],
+ ArrowBox[{{0.04000000000000001, 0.15000000000000002`}, {0.96, 3.475}}],
+ ArrowBox[{{-0.96, 0.15000000000000002`}, {-0.04000000000000001, 2.15}}],
+ ArrowBox[{{-0.96, 0.15000000000000002`}, {-0.04000000000000001, 3.475}}],
+ ArrowBox[{{-1.96, 0.15000000000000002`}, {-1.04, 2.15}}],
+ ArrowBox[{{-1.96, 0.15000000000000002`}, {-1.04, 3.475}}],
+ ArrowBox[{{1.04, -0.25}, {1.96, 2.15}}],
+ ArrowBox[{{0.04000000000000001, -0.25}, {0.96, 2.15}}],
+ ArrowBox[{{0.04000000000000001, -0.25}, {0.96, 3.475}}],
+ ArrowBox[{{-0.96, -0.25}, {-0.04000000000000001, 2.15}}],
+ ArrowBox[{{-0.96, -0.25}, {-0.04000000000000001, 3.475}}],
+ ArrowBox[{{1.96, 0.15000000000000002`}, {1.04, 2.15}}],
+ ArrowBox[{{0.96, 0.15000000000000002`}, {0.04000000000000001, 2.15}}],
+ ArrowBox[{{0.96, -0.25}, {0.04000000000000001, 2.15}}],
+ ArrowBox[{{-0.04000000000000001, 0.15000000000000002`}, {-0.96, 2.15}}],
+ ArrowBox[{{-0.04000000000000001, -0.25}, {-0.96, 2.15}}],
+ ArrowBox[{{-1.04, 0.15000000000000002`}, {-1.96, 2.15}}],
+ ArrowBox[{{-1.04, -0.25}, {-1.96, 2.15}}],
+ ArrowBox[{{1.96, 0.15000000000000002`}, {1.04, 3.475}}],
+ ArrowBox[{{0.96, 0.15000000000000002`}, {0.04000000000000001, 3.475}}],
+ ArrowBox[{{0.96, -0.25}, {0.04000000000000001, 3.475}}],
+ ArrowBox[{{-0.04000000000000001, 0.15000000000000002`}, {-0.96, 3.475}}],
+ ArrowBox[{{-0.04000000000000001, -0.25}, {-0.96, 3.475}}]},
{PointSize[0.0225]}},
ImagePadding->{{2., 2}, {2., 2.}},
ImageSize->244.]], "Output"]
@@ -1452,16 +3333,6 @@ Cell[BoxData[
Cell[CellGroupData[{
Cell[BoxData[
- RowBox[{"??", "HyperfineShift"}]], "Input"],
-
-Cell[BoxData[
- StyleBox["\<\"\"\>", "MSG"]], "Print", "PrintUsage",
- CellTags->"Info3549888455-1032052"]
-}, Open ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
RowBox[{"Tr", "[",
RowBox[{
RowBox[{"Hamiltonian", "[", "system", "]"}], ",", "List"}], "]"}]], "Input"],
@@ -1544,14 +3415,6 @@ Cell[BoxData[
RowBox[{"HyperfineB", "[", "3", "]"}], "4"]}]}], "}"}]], "Output"]
}, Open ]],
-Cell[BoxData[
- RowBox[{
- FractionBox[
- RowBox[{"5", " ",
- RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"],
- RowBox[{"IdentityMatrix", "[",
- RowBox[{"Length", "[", "system", "]"}], "]"}]}]], "Input"],
-
Cell[CellGroupData[{
Cell[BoxData[
@@ -1661,21 +3524,21 @@ Cell[BoxData[
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "+",
SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0", "0",
- RowBox[{"-",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{
- RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "2"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "0", "0", "0", "0", "0", "0", "0"},
+ "0", "0", "0", "0", "0",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ SubscriptBox["\[Phi]", "3"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "0", "0"},
{"0",
RowBox[{
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "+",
- SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0", "0",
+ SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
@@ -1685,82 +3548,78 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "2"]}]], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
RowBox[{"4", " ",
- SqrtBox["6"]}]]}], "0", "0", "0",
- RowBox[{"-",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{
- RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "3"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"8", " ",
- SqrtBox["5"]}]]}], "0", "0"},
+ SqrtBox["3"]}]]}], "0", "0", "0", "0", "0",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ SubscriptBox["\[Phi]", "3"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "0"},
{"0", "0",
RowBox[{
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "+",
- SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0", "0",
- "0", "0", "0", "0",
+ SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "3"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}],
+ SubscriptBox["\[Phi]", "2"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
RowBox[{"4", " ",
- SqrtBox["15"]}]]}], "0"},
- {"0", "0", "0",
- RowBox[{
- RowBox[{"-",
- SubscriptBox["\[Delta]", "1"]}], "+",
- SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0", "0",
+ SqrtBox["2"]}]]}], "0", "0", "0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "2"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"4", " ",
- SqrtBox["6"]}]], "0", "0", "0",
+ SubscriptBox["\[Phi]", "3"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]]},
+ {"0", "0", "0",
+ RowBox[{
+ RowBox[{"-",
+ SubscriptBox["\[Delta]", "1"]}], "+",
+ SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "3"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"8", " ",
- SqrtBox["5"]}]]}]},
+ SubscriptBox["\[Phi]", "2"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0", "0", "0", "0", "0"},
{"0", "0", "0", "0",
RowBox[{
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "+",
- SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0", "0",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{
- RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "2"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]], "0", "0", "0"},
- {"0", "0", "0", "0", "0", "0", "0", "0", "0",
+ SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "1"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "1"]}],
+ SubscriptBox["\[Phi]", "2"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
RowBox[{"4", " ",
- SqrtBox["2"]}]]}], "0", "0", "0",
+ SqrtBox["3"]}]]}], "0", "0", "0", "0"},
+ {"0", "0", "0", "0", "0", "0", "0", "0",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ SubscriptBox["\[Phi]", "1"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "0", "0", "0", "0", "0",
RowBox[{
RowBox[{"-",
FractionBox["1", "8"]}], " ",
@@ -1772,31 +3631,20 @@ Cell[BoxData[
RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Delta]\[Omega]"}], "-",
RowBox[{"\[ImaginaryI]", " ",
SubscriptBox["\[Phi]", "4"]}]}]], " ",
- SubscriptBox["\[CapitalOmega]", "4"]}], "0", "0"},
- {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
- RowBox[{"-",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{
- RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "1"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "0", "0", "0", "0", "0"},
- {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
- RowBox[{"-",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{
- RowBox[{"-", "\[ImaginaryI]"}], " ",
- SubscriptBox["\[Phi]", "1"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"4", " ",
- SqrtBox["2"]}]]}], "0", "0", "0",
+ SubscriptBox["\[CapitalOmega]", "4"]}], "0"},
+ {"0", "0", "0", "0", "0", "0", "0", "0", "0",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ SubscriptBox["\[Phi]", "1"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "0", "0", "0", "0", "0",
RowBox[{
- FractionBox["1", "8"], " ",
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
SuperscriptBox["\[ExponentialE]",
@@ -1806,7 +3654,17 @@ Cell[BoxData[
RowBox[{"\[ImaginaryI]", " ",
SubscriptBox["\[Phi]", "4"]}]}]], " ",
SubscriptBox["\[CapitalOmega]", "4"]}]},
- {
+ {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{
+ RowBox[{"-", "\[ImaginaryI]"}], " ",
+ SubscriptBox["\[Phi]", "1"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["6"]}]], "0", "0", "0", "0", "0"},
+ {"0",
RowBox[{"-",
FractionBox[
RowBox[{
@@ -1814,11 +3672,17 @@ Cell[BoxData[
RowBox[{"\[ImaginaryI]", " ",
SubscriptBox["\[Phi]", "2"]}]], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "0", "0", "0", "0", "0", "0", "0",
+ RowBox[{"4", " ",
+ SqrtBox["3"]}]]}], "0", "0", "0",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"\[ImaginaryI]", " ",
+ SubscriptBox["\[Phi]", "1"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}], "0", "0",
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "0", "0", "0", "0", "0", "0", "0"},
- {"0",
+ {"0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
@@ -1827,71 +3691,76 @@ Cell[BoxData[
SubscriptBox["\[Phi]", "2"]}]], " ",
SubscriptBox["\[CapitalOmega]", "2"]}],
RowBox[{"4", " ",
- SqrtBox["6"]}]]}], "0", "0", "0",
- RowBox[{"-",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{"\[ImaginaryI]", " ",
- SubscriptBox["\[Phi]", "1"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"4", " ",
SqrtBox["2"]}]]}], "0", "0", "0",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"\[ImaginaryI]", " ",
+ SubscriptBox["\[Phi]", "1"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]], "0", "0",
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "0", "0", "0", "0", "0", "0"},
- {"0", "0", "0", "0", "0", "0",
+ {"0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{"\[ImaginaryI]", " ",
- SubscriptBox["\[Phi]", "1"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "1"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]]}], "0", "0", "0",
- RowBox[{"-",
- SubscriptBox["\[Delta]", "1"]}], "0", "0", "0", "0", "0"},
- {"0", "0", "0",
+ SubscriptBox["\[Phi]", "2"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
+ RowBox[{"4", " ",
+ SqrtBox["2"]}]]}], "0", "0", "0",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{"\[ImaginaryI]", " ",
- SubscriptBox["\[Phi]", "2"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "2"]}],
+ SubscriptBox["\[Phi]", "1"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "1"]}],
RowBox[{"4", " ",
- SqrtBox["6"]}]], "0", "0", "0",
+ SqrtBox["6"]}]], "0", "0",
+ RowBox[{"-",
+ SubscriptBox["\[Delta]", "1"]}], "0", "0", "0", "0", "0"},
+ {"0", "0", "0", "0",
RowBox[{"-",
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{"\[ImaginaryI]", " ",
- SubscriptBox["\[Phi]", "1"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "1"]}],
+ SubscriptBox["\[Phi]", "2"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "2"]}],
RowBox[{"4", " ",
- SqrtBox["2"]}]]}], "0", "0", "0",
+ SqrtBox["3"]}]]}], "0", "0", "0", "0", "0", "0",
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "0", "0", "0", "0"},
- {"0", "0", "0", "0",
+ {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
+ RowBox[{"-",
+ SubscriptBox["\[Delta]", "1"]}], "0", "0", "0"},
+ {
FractionBox[
RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{"\[ImaginaryI]", " ",
- SubscriptBox["\[Phi]", "2"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "2"]}],
- RowBox[{"2", " ",
- SqrtBox["6"]}]], "0", "0", "0", "0", "0", "0", "0",
- RowBox[{"-",
- SubscriptBox["\[Delta]", "1"]}], "0", "0", "0"},
+ SubscriptBox["\[Phi]", "3"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"4", " ",
+ SqrtBox["10"]}]], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
+ "0", "0",
+ RowBox[{
+ RowBox[{"-",
+ SubscriptBox["\[Delta]", "1"]}], "+",
+ SubscriptBox["\[Delta]", "2"], "-",
+ SubscriptBox["\[Delta]", "3"]}], "0", "0"},
{"0",
- RowBox[{"-",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{"\[ImaginaryI]", " ",
- SubscriptBox["\[Phi]", "3"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"8", " ",
- SqrtBox["5"]}]]}], "0", "0", "0",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"\[ImaginaryI]", " ",
+ SubscriptBox["\[Phi]", "3"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["5"]}]], "0", "0", "0",
RowBox[{
RowBox[{"-",
FractionBox["1", "8"]}], " ",
@@ -1905,40 +3774,24 @@ Cell[BoxData[
RowBox[{"\[ImaginaryI]", " ",
SubscriptBox["\[Phi]", "4"]}]}]], " ",
SubscriptBox["\[CapitalOmega]", "4"]}], "0", "0", "0", "0", "0", "0",
- "0",
+ "0", "0",
RowBox[{
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "+",
SubscriptBox["\[Delta]", "2"], "-",
- SubscriptBox["\[Delta]", "3"]}], "0", "0"},
+ SubscriptBox["\[Delta]", "3"]}], "0"},
{"0", "0",
- RowBox[{"-",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{"\[ImaginaryI]", " ",
- SubscriptBox["\[Phi]", "3"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"4", " ",
- SqrtBox["15"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
- "0",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"\[ImaginaryI]", " ",
+ SubscriptBox["\[Phi]", "3"]}]], " ",
+ SubscriptBox["\[CapitalOmega]", "3"]}],
+ RowBox[{"8", " ",
+ SqrtBox["15"]}]], "0", "0", "0",
RowBox[{
RowBox[{"-",
- SubscriptBox["\[Delta]", "1"]}], "+",
- SubscriptBox["\[Delta]", "2"], "-",
- SubscriptBox["\[Delta]", "3"]}], "0"},
- {"0", "0", "0",
- RowBox[{"-",
- FractionBox[
- RowBox[{
- SuperscriptBox["\[ExponentialE]",
- RowBox[{"\[ImaginaryI]", " ",
- SubscriptBox["\[Phi]", "3"]}]], " ",
- SubscriptBox["\[CapitalOmega]", "3"]}],
- RowBox[{"8", " ",
- SqrtBox["5"]}]]}], "0", "0", "0",
- RowBox[{
- FractionBox["1", "8"], " ",
+ FractionBox["1", "8"]}], " ",
SqrtBox[
FractionBox["5", "3"]], " ",
SuperscriptBox["\[ExponentialE]",
@@ -1949,7 +3802,7 @@ Cell[BoxData[
RowBox[{"\[ImaginaryI]", " ",
SubscriptBox["\[Phi]", "4"]}]}]], " ",
SubscriptBox["\[CapitalOmega]", "4"]}], "0", "0", "0", "0", "0", "0",
- "0",
+ "0", "0",
RowBox[{
RowBox[{"-",
SubscriptBox["\[Delta]", "1"]}], "+",
@@ -1977,9 +3830,10 @@ Cell[BoxData[
Cell[BoxData[
GraphicsBox[RasterBox[CompressedData["
-1:eJztk9EJgDAMBQMu4ApO0h0cQfC7KzuCI4jUTz/b4MkFyutXOC7JstV1nyJi
-ft79b3WWPnmUeC1K/9HZi5/uQc85/Sme5fwHP/1eKJ6dY07SPehZfvM7c3RP
-WuohJ91nFiedn8JJvxe6Z8oc6Z7d55zk8l9JNjUX
+1:eJxTTMoPSmVmYGAQgGIQGwI+2JNGP7BnwApINWegzB8omlR/jYYzffw1XMNh
+sIXzKE0ePdTDeai4f6i4c6DcTy3zR8OZPuaPhjN9zB/q4TzS6NH4og892MJ5
+sLlnuPpr1D3D251D3f1DxZ1D3f2DzZ3DdVxosLlzuIbzYKMpDzcAyoI1Fw==
+
"], {{0, 0}, {16, 16}}, {0, 1}],
Frame->True,
FrameLabel->{None, None},
@@ -3555,15 +5409,572 @@ Cell[BoxData[
Cell["Here are the evolution equations.", "Text",
CellID->314466782],
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"TableForm", "[",
+ RowBox[{"eqs0", "=",
+ RowBox[{"LiouvilleEquation", "[",
+ RowBox[{"system", ",", "Hrwa", ",", "relax", ",", "repop"}], "]"}]}],
+ "]"}]], "Input"],
+
Cell[BoxData[
+ InterpretationBox[
+ TagBox[
+ PanelBox[GridBox[{
+ {
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
+ StandardForm],
+ ImageSizeCache->{299., {3., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None]},
+ {
+ ItemBox[
+ TagBox[
+ TagBox[
+ TagBox[
+ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}],
+ Column],
+ Function[BoxForm`e$,
+ TableForm[BoxForm`e$]]],
+ Short[#, 5]& ],
+ Background->GrayLevel[1],
+ BaseStyle->{Deployed -> False},
+ Frame->True,
+ FrameStyle->GrayLevel[0, 0.2],
+ StripOnInput->False]},
+ {
+ RowBox[{
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ StandardForm],
+ ImageSizeCache->{54., {1., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Function[{OutputSizeLimit`Dump`x$},
+ TableForm[OutputSizeLimit`Dump`x$]], 15, 23266808590092361739, 5/
+ 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ StandardForm],
+ ImageSizeCache->{60., {1., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Function[{OutputSizeLimit`Dump`x$},
+ TableForm[OutputSizeLimit`Dump`x$]], 15, 23266808590092361739, 5
+ 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ StandardForm],
+ ImageSizeCache->{92., {3., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Function[{OutputSizeLimit`Dump`x$},
+ TableForm[OutputSizeLimit`Dump`x$]], 15, 23266808590092361739,
+ Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ StandardForm],
+ ImageSizeCache->{78., {1., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+ ButtonFunction:>FrontEndExecute[{
+ FrontEnd`SetOptions[
+ FrontEnd`$FrontEnd,
+ FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}],
+ FrontEnd`FrontEndToken["PreferencesDialog"]}],
+ Evaluator->None,
+ Method->"Preemptive"]}]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxDividers->{
+ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}},
+ "RowsIndexed" -> {}},
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[1.2]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ DefaultBaseStyle->{},
+ FrameMargins->5],
+ Deploy,
+ DefaultBaseStyle->"Deploy"],
+ Out[15]]], "Output"]
+}, Open ]],
+
+Cell["Useful atomic data for Rb.", "Text"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{"atomicdata", "=",
+ RowBox[{"Join", "[",
+ RowBox[{
+ RowBox[{"AtomicData", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"\"\<Rb\>\"", ",", "87", ",",
+ RowBox[{"{",
+ RowBox[{"\"\<Kr\>\"", ",",
+ RowBox[{"{",
+ RowBox[{"5", ",", "\"\<s\>\""}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "\"\<S\>\"", ",",
+ FractionBox["1", "2"]}], "}"}]}], "}"}], ",",
+ RowBox[{"{", "HyperfineA", "}"}], ",",
+ RowBox[{"Label", "\[Rule]", "1"}]}], "]"}], ",",
+ RowBox[{"AtomicData", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"\"\<Rb\>\"", ",", "87", ",",
+ RowBox[{"{",
+ RowBox[{"\"\<Kr\>\"", ",",
+ RowBox[{"{",
+ RowBox[{"5", ",", "\"\<p\>\""}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "\"\<P\>\"", ",",
+ FractionBox["1", "2"]}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"HyperfineA", ",", "NaturalWidth"}], "}"}], ",",
+ RowBox[{"Label", "\[Rule]", "2"}]}], "]"}], ",",
+ RowBox[{"AtomicData", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"\"\<Rb\>\"", ",", "87", ",",
+ RowBox[{"{",
+ RowBox[{"\"\<Kr\>\"", ",",
+ RowBox[{"{",
+ RowBox[{"5", ",", "\"\<p\>\""}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "\"\<P\>\"", ",",
+ FractionBox["3", "2"]}], "}"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"HyperfineA", ",", "HyperfineB", ",", "NaturalWidth"}], "}"}],
+ ",",
+ RowBox[{"Label", "\[Rule]", "3"}]}], "]"}]}],
+ "]"}]}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"delpos", "=",
- RowBox[{"Position", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"%", "/.",
+ RowBox[{"Mega", "\[Rule]",
+ SuperscriptBox["10", "6"]}]}], "/.",
+ RowBox[{"Hertz", "\[Rule]", "1"}]}], "/.",
+ RowBox[{"Rule", "\[Rule]", "Equal"}]}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"NaturalWidth", "\[Rule]", "g"}], ",",
+ RowBox[{"HyperfineA", "\[Rule]", "ha"}], ",",
+ RowBox[{"HyperfineB", "\[Rule]", "hb"}]}], "}"}]}], "\[IndentingNewLine]",
+ RowBox[{"StringReplace", "[",
+ RowBox[{
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"ToString", "@",
+ RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@",
+ "%"}], "]"}], ",",
+ RowBox[{"{",
RowBox[{
- RowBox[{"DMVariables", "[", "system", "]"}], ",",
+ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",",
+ RowBox[{
+ RowBox[{"Shortest", "[",
+ RowBox[{
+ "\"\<dr(\>\"", "~~", "a__", "~~", "\"\<,\>\"", "~~", "b__", "~~",
+ "\"\<)\>\""}], "]"}], ":>",
+ RowBox[{"\"\<dr\>\"", "<>", "a", "<>", "b", "<>", "\"\<_dt\>\""}]}],
+ ",",
+ RowBox[{
+ RowBox[{"Shortest", "[",
+ RowBox[{
+ "\"\<r(\>\"", "~~", "a__", "~~", "\"\<,\>\"", "~~", "b__", "~~",
+ "\"\<)\>\""}], "]"}], ":>",
+ RowBox[{"\"\<r\>\"", "<>", "a", "<>", "b"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<ha(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
+ "\[RuleDelayed]",
+ RowBox[{"\"\<ha\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<hb(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
+ "\[RuleDelayed]",
+ RowBox[{"\"\<hb\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<g(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
+ RowBox[{"\"\<g\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<W(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
+ RowBox[{"\"\<E\>\"", "<>", "a"}]}], ",",
RowBox[{
- RowBox[{"DMElementPattern", "[", "]"}], "/;",
- RowBox[{"M1", "\[NotEqual]", "M2"}]}]}], "]"}]}], ";"}]], "Input"],
+ RowBox[{"\"\<Wc(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
+ "\[RuleDelayed]",
+ RowBox[{"\"\<Ec\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<d(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
+ RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"HyperfineA", "[", "1", "]"}], "\[Rule]",
+ RowBox[{"21471.788680034824`", " ", "Hertz", " ", "Mega"}]}], ",",
+ RowBox[{
+ RowBox[{"HyperfineA", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"2558.7643844958147`", " ", "Hertz", " ", "Mega"}]}], ",",
+ RowBox[{
+ RowBox[{"NaturalWidth", "[", "2", "]"}], "\[Rule]",
+ RowBox[{"36.128472849452656`", " ", "Hertz", " ", "Mega"}]}], ",",
+ RowBox[{
+ RowBox[{"HyperfineA", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"532.3020344462938`", " ", "Hertz", " ", "Mega"}]}], ",",
+ RowBox[{
+ RowBox[{"HyperfineB", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"78.51782519116969`", " ", "Hertz", " ", "Mega"}]}], ",",
+ RowBox[{
+ RowBox[{"NaturalWidth", "[", "3", "]"}], "\[Rule]",
+ RowBox[{"38.11730983274125`", " ", "Hertz", " ", "Mega"}]}]}],
+ "}"}]], "Output"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ha", "[", "1", "]"}], "\[Equal]", "2.1471788680034824`*^10"}],
+ ",",
+ RowBox[{
+ RowBox[{"ha", "[", "2", "]"}], "\[Equal]", "2.558764384495815`*^9"}], ",",
+ RowBox[{
+ RowBox[{"g", "[", "2", "]"}], "\[Equal]", "3.612847284945266`*^7"}], ",",
+ RowBox[{
+ RowBox[{"ha", "[", "3", "]"}], "\[Equal]", "5.323020344462938`*^8"}], ",",
+ RowBox[{
+ RowBox[{"hb", "[", "3", "]"}], "\[Equal]", "7.85178251911697`*^7"}], ",",
+ RowBox[{
+ RowBox[{"g", "[", "3", "]"}], "\[Equal]", "3.8117309832741246`*^7"}]}],
+ "}"}]], "Output"],
+
+Cell[BoxData["\<\"ha1 = 2.1471788680034824e10;\\nha2 = \
+2.558764384495815e9;\\ng2 = 3.612847284945266e7;\\nha3 = 5.323020344462938e8;\
+\\nhb3 = 7.85178251911697e7;\\ng3 = 3.8117309832741246e7;\\n\"\>"], "Output"]
+}, Open ]],
+
+Cell["\<\
+Solve the equations for steady state, and delete DM elements that are \
+identically zero from the equations.\
+\>", "Text"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"delpos", "=",
+ RowBox[{"Position", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"NSolve", "[",
+ RowBox[{
+ RowBox[{"Evaluate", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"eqs0", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ SubscriptBox["\[Phi]", "_"], "\[Rule]", "1."}], ",",
+ RowBox[{"\[Delta]k", "\[Rule]", "0"}], ",",
+ RowBox[{"\[Delta]\[Omega]", "\[Rule]", "0"}], ",",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "1"], "\[Rule]",
+ SuperscriptBox["10", "11"]}], ",",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "2"], "\[Rule]",
+ RowBox[{"2.", " ",
+ SuperscriptBox["10", "10"]}]}], ",",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "_"], "\[Rule]",
+ SuperscriptBox["10", "10"]}], ",",
+ RowBox[{
+ SubscriptBox["\[Delta]", "_"], "\[Rule]",
+ RowBox[{"1.", " ",
+ SuperscriptBox["10", "7"]}]}], ",",
+ RowBox[{"\[Gamma]t", "\[Rule]", "10."}]}], "}"}]}], "/.",
+ "atomicdata"}], "/.",
+ RowBox[{"Hertz", "\[Rule]", "1"}]}], "/.",
+ RowBox[{"Mega", "\[Rule]", "1"}]}], "/.",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ SubscriptBox["\[Rho]",
+ RowBox[{"s1_", ",", "s2_"}]], "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}]}],
+ "]"}], ",",
+ RowBox[{"DMVariables", "[", "system", "]"}]}], "]"}], "[",
+ RowBox[{"[", "1", "]"}], "]"}], ",",
+ RowBox[{"_", "\[Rule]",
+ RowBox[{"0.", "+",
+ RowBox[{"0.", " ", "\[ImaginaryI]"}]}]}]}], "]"}]}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{", "2", "}"}], ",",
+ RowBox[{"{", "3", "}"}], ",",
+ RowBox[{"{", "4", "}"}], ",",
+ RowBox[{"{", "5", "}"}], ",",
+ RowBox[{"{", "6", "}"}], ",",
+ RowBox[{"{", "7", "}"}], ",",
+ RowBox[{"{", "8", "}"}], ",",
+ RowBox[{"{", "9", "}"}], ",",
+ RowBox[{"{", "10", "}"}], ",",
+ RowBox[{"{", "11", "}"}], ",",
+ RowBox[{"{", "12", "}"}], ",",
+ RowBox[{"{", "13", "}"}], ",",
+ RowBox[{"{", "15", "}"}], ",",
+ RowBox[{"{", "16", "}"}], ",",
+ RowBox[{"{", "17", "}"}], ",",
+ RowBox[{"{", "19", "}"}], ",",
+ RowBox[{"{", "20", "}"}], ",",
+ RowBox[{"{", "21", "}"}], ",",
+ RowBox[{"{", "23", "}"}], ",",
+ RowBox[{"{", "24", "}"}], ",",
+ RowBox[{"{", "26", "}"}], ",",
+ RowBox[{"{", "27", "}"}], ",",
+ RowBox[{"{", "28", "}"}], ",",
+ RowBox[{"{", "29", "}"}], ",",
+ RowBox[{"{", "30", "}"}], ",",
+ RowBox[{"{", "32", "}"}], ",",
+ RowBox[{"{", "33", "}"}], ",",
+ RowBox[{"{", "34", "}"}], ",",
+ RowBox[{"{", "36", "}"}], ",",
+ RowBox[{"{", "37", "}"}], ",",
+ RowBox[{"{", "38", "}"}], ",",
+ RowBox[{"{", "40", "}"}], ",",
+ RowBox[{"{", "41", "}"}], ",",
+ RowBox[{"{", "43", "}"}], ",",
+ RowBox[{"{", "44", "}"}], ",",
+ RowBox[{"{", "45", "}"}], ",",
+ RowBox[{"{", "46", "}"}], ",",
+ RowBox[{"{", "47", "}"}], ",",
+ RowBox[{"{", "49", "}"}], ",",
+ RowBox[{"{", "50", "}"}], ",",
+ RowBox[{"{", "51", "}"}], ",",
+ RowBox[{"{", "53", "}"}], ",",
+ RowBox[{"{", "54", "}"}], ",",
+ RowBox[{"{", "55", "}"}], ",",
+ RowBox[{"{", "57", "}"}], ",",
+ RowBox[{"{", "58", "}"}], ",",
+ RowBox[{"{", "60", "}"}], ",",
+ RowBox[{"{", "61", "}"}], ",",
+ RowBox[{"{", "62", "}"}], ",",
+ RowBox[{"{", "63", "}"}], ",",
+ RowBox[{"{", "64", "}"}], ",",
+ RowBox[{"{", "65", "}"}], ",",
+ RowBox[{"{", "66", "}"}], ",",
+ RowBox[{"{", "67", "}"}], ",",
+ RowBox[{"{", "68", "}"}], ",",
+ RowBox[{"{", "70", "}"}], ",",
+ RowBox[{"{", "71", "}"}], ",",
+ RowBox[{"{", "72", "}"}], ",",
+ RowBox[{"{", "73", "}"}], ",",
+ RowBox[{"{", "74", "}"}], ",",
+ RowBox[{"{", "75", "}"}], ",",
+ RowBox[{"{", "77", "}"}], ",",
+ RowBox[{"{", "78", "}"}], ",",
+ RowBox[{"{", "79", "}"}], ",",
+ RowBox[{"{", "80", "}"}], ",",
+ RowBox[{"{", "81", "}"}], ",",
+ RowBox[{"{", "83", "}"}], ",",
+ RowBox[{"{", "84", "}"}], ",",
+ RowBox[{"{", "85", "}"}], ",",
+ RowBox[{"{", "87", "}"}], ",",
+ RowBox[{"{", "88", "}"}], ",",
+ RowBox[{"{", "90", "}"}], ",",
+ RowBox[{"{", "91", "}"}], ",",
+ RowBox[{"{", "92", "}"}], ",",
+ RowBox[{"{", "93", "}"}], ",",
+ RowBox[{"{", "94", "}"}], ",",
+ RowBox[{"{", "96", "}"}], ",",
+ RowBox[{"{", "97", "}"}], ",",
+ RowBox[{"{", "98", "}"}], ",",
+ RowBox[{"{", "100", "}"}], ",",
+ RowBox[{"{", "101", "}"}], ",",
+ RowBox[{"{", "102", "}"}], ",",
+ RowBox[{"{", "104", "}"}], ",",
+ RowBox[{"{", "105", "}"}], ",",
+ RowBox[{"{", "107", "}"}], ",",
+ RowBox[{"{", "108", "}"}], ",",
+ RowBox[{"{", "109", "}"}], ",",
+ RowBox[{"{", "110", "}"}], ",",
+ RowBox[{"{", "111", "}"}], ",",
+ RowBox[{"{", "113", "}"}], ",",
+ RowBox[{"{", "114", "}"}], ",",
+ RowBox[{"{", "115", "}"}], ",",
+ RowBox[{"{", "117", "}"}], ",",
+ RowBox[{"{", "118", "}"}], ",",
+ RowBox[{"{", "119", "}"}], ",",
+ RowBox[{"{", "121", "}"}], ",",
+ RowBox[{"{", "122", "}"}], ",",
+ RowBox[{"{", "124", "}"}], ",",
+ RowBox[{"{", "125", "}"}], ",",
+ RowBox[{"{", "126", "}"}], ",",
+ RowBox[{"{", "127", "}"}], ",",
+ RowBox[{"{", "128", "}"}], ",",
+ RowBox[{"{", "129", "}"}], ",",
+ RowBox[{"{", "131", "}"}], ",",
+ RowBox[{"{", "132", "}"}], ",",
+ RowBox[{"{", "133", "}"}], ",",
+ RowBox[{"{", "135", "}"}], ",",
+ RowBox[{"{", "136", "}"}], ",",
+ RowBox[{"{", "138", "}"}], ",",
+ RowBox[{"{", "139", "}"}], ",",
+ RowBox[{"{", "140", "}"}], ",",
+ RowBox[{"{", "141", "}"}], ",",
+ RowBox[{"{", "142", "}"}], ",",
+ RowBox[{"{", "144", "}"}], ",",
+ RowBox[{"{", "145", "}"}], ",",
+ RowBox[{"{", "146", "}"}], ",",
+ RowBox[{"{", "148", "}"}], ",",
+ RowBox[{"{", "149", "}"}], ",",
+ RowBox[{"{", "150", "}"}], ",",
+ RowBox[{"{", "152", "}"}], ",",
+ RowBox[{"{", "153", "}"}], ",",
+ RowBox[{"{", "155", "}"}], ",",
+ RowBox[{"{", "156", "}"}], ",",
+ RowBox[{"{", "157", "}"}], ",",
+ RowBox[{"{", "158", "}"}], ",",
+ RowBox[{"{", "159", "}"}], ",",
+ RowBox[{"{", "161", "}"}], ",",
+ RowBox[{"{", "162", "}"}], ",",
+ RowBox[{"{", "163", "}"}], ",",
+ RowBox[{"{", "165", "}"}], ",",
+ RowBox[{"{", "166", "}"}], ",",
+ RowBox[{"{", "167", "}"}], ",",
+ RowBox[{"{", "169", "}"}], ",",
+ RowBox[{"{", "170", "}"}], ",",
+ RowBox[{"{", "172", "}"}], ",",
+ RowBox[{"{", "173", "}"}], ",",
+ RowBox[{"{", "174", "}"}], ",",
+ RowBox[{"{", "175", "}"}], ",",
+ RowBox[{"{", "176", "}"}], ",",
+ RowBox[{"{", "177", "}"}], ",",
+ RowBox[{"{", "178", "}"}], ",",
+ RowBox[{"{", "179", "}"}], ",",
+ RowBox[{"{", "180", "}"}], ",",
+ RowBox[{"{", "182", "}"}], ",",
+ RowBox[{"{", "183", "}"}], ",",
+ RowBox[{"{", "184", "}"}], ",",
+ RowBox[{"{", "185", "}"}], ",",
+ RowBox[{"{", "186", "}"}], ",",
+ RowBox[{"{", "187", "}"}], ",",
+ RowBox[{"{", "189", "}"}], ",",
+ RowBox[{"{", "190", "}"}], ",",
+ RowBox[{"{", "191", "}"}], ",",
+ RowBox[{"{", "192", "}"}], ",",
+ RowBox[{"{", "193", "}"}], ",",
+ RowBox[{"{", "194", "}"}], ",",
+ RowBox[{"{", "195", "}"}], ",",
+ RowBox[{"{", "196", "}"}], ",",
+ RowBox[{"{", "197", "}"}], ",",
+ RowBox[{"{", "198", "}"}], ",",
+ RowBox[{"{", "199", "}"}], ",",
+ RowBox[{"{", "200", "}"}], ",",
+ RowBox[{"{", "201", "}"}], ",",
+ RowBox[{"{", "202", "}"}], ",",
+ RowBox[{"{", "203", "}"}], ",",
+ RowBox[{"{", "204", "}"}], ",",
+ RowBox[{"{", "205", "}"}], ",",
+ RowBox[{"{", "206", "}"}], ",",
+ RowBox[{"{", "207", "}"}], ",",
+ RowBox[{"{", "208", "}"}], ",",
+ RowBox[{"{", "210", "}"}], ",",
+ RowBox[{"{", "211", "}"}], ",",
+ RowBox[{"{", "212", "}"}], ",",
+ RowBox[{"{", "213", "}"}], ",",
+ RowBox[{"{", "214", "}"}], ",",
+ RowBox[{"{", "215", "}"}], ",",
+ RowBox[{"{", "216", "}"}], ",",
+ RowBox[{"{", "217", "}"}], ",",
+ RowBox[{"{", "218", "}"}], ",",
+ RowBox[{"{", "219", "}"}], ",",
+ RowBox[{"{", "220", "}"}], ",",
+ RowBox[{"{", "221", "}"}], ",",
+ RowBox[{"{", "223", "}"}], ",",
+ RowBox[{"{", "224", "}"}], ",",
+ RowBox[{"{", "225", "}"}], ",",
+ RowBox[{"{", "227", "}"}], ",",
+ RowBox[{"{", "228", "}"}], ",",
+ RowBox[{"{", "229", "}"}], ",",
+ RowBox[{"{", "231", "}"}], ",",
+ RowBox[{"{", "232", "}"}], ",",
+ RowBox[{"{", "234", "}"}], ",",
+ RowBox[{"{", "235", "}"}], ",",
+ RowBox[{"{", "236", "}"}], ",",
+ RowBox[{"{", "237", "}"}], ",",
+ RowBox[{"{", "238", "}"}], ",",
+ RowBox[{"{", "240", "}"}], ",",
+ RowBox[{"{", "241", "}"}], ",",
+ RowBox[{"{", "242", "}"}], ",",
+ RowBox[{"{", "244", "}"}], ",",
+ RowBox[{"{", "245", "}"}], ",",
+ RowBox[{"{", "246", "}"}], ",",
+ RowBox[{"{", "248", "}"}], ",",
+ RowBox[{"{", "249", "}"}], ",",
+ RowBox[{"{", "251", "}"}], ",",
+ RowBox[{"{", "252", "}"}], ",",
+ RowBox[{"{", "253", "}"}], ",",
+ RowBox[{"{", "254", "}"}], ",",
+ RowBox[{"{", "255", "}"}]}], "}"}]], "Output"]
+}, Open ]],
Cell[BoxData[
RowBox[{
@@ -3573,6 +5984,16 @@ Cell[BoxData[
RowBox[{"DMVariables", "[", "system", "]"}], ",", "delpos"}], "]"}]}],
";"}]], "Input"],
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"delreps", "=",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"#", "\[Rule]", "0"}], ")"}], "&"}], "/@", "delvars"}],
+ ")"}]}], ";"}]], "Input"],
+
Cell[CellGroupData[{
Cell[BoxData[
@@ -3598,7 +6019,7 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3619,14 +6040,14 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3647,14 +6068,15 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"3", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3680,17 +6102,7 @@ Cell[BoxData[
RowBox[{"1", ",", "2", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
- RowBox[{
- SubscriptBox["\[Rho]",
- RowBox[{
- RowBox[{"{",
- RowBox[{"1", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"3", ",", "1", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3708,7 +6120,7 @@ Cell[BoxData[
RowBox[{"-", "2"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3729,14 +6141,14 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3757,14 +6169,15 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"3", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3790,24 +6203,21 @@ Cell[BoxData[
RowBox[{"1", ",", "1", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
- RowBox[{"1", ",", "1", ",",
- RowBox[{"-", "1"}]}], "}"}], ",",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"1", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3819,73 +6229,51 @@ Cell[BoxData[
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"1", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
- RowBox[{
- SubscriptBox["\[Rho]",
- RowBox[{
- RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"1", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
- RowBox[{
- SubscriptBox["\[Rho]",
- RowBox[{
- RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"3", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
- RowBox[{
- SubscriptBox["\[Rho]",
- RowBox[{
- RowBox[{"{",
- RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}], ",",
- RowBox[{"{",
RowBox[{"1", ",", "2", ",",
RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
- RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}], ",",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "1", ",",
RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
@@ -3893,11 +6281,9 @@ Cell[BoxData[
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
- RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}], ",",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3905,15 +6291,6 @@ Cell[BoxData[
RowBox[{"2", ",", "2", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
- RowBox[{
- SubscriptBox["\[Rho]",
- RowBox[{
- RowBox[{"{",
- RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "2"}]}], "}"}], ",",
- RowBox[{"{",
RowBox[{"1", ",", "2", ",",
RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
@@ -3921,31 +6298,17 @@ Cell[BoxData[
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "2"}]}], "}"}], ",",
+ RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}], ",",
- RowBox[{
- SubscriptBox["\[Rho]",
- RowBox[{
- RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"1", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
- RowBox[{
- SubscriptBox["\[Rho]",
- RowBox[{
- RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3959,21 +6322,21 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"1", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3988,8 +6351,7 @@ Cell[BoxData[
RowBox[{"3", ",", "1", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
- RowBox[{"1", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -3997,8 +6359,7 @@ Cell[BoxData[
RowBox[{"3", ",", "1", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
- RowBox[{"1", ",", "1", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -4006,8 +6367,7 @@ Cell[BoxData[
RowBox[{"3", ",", "1", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
- RowBox[{"2", ",", "2", ",",
- RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",",
RowBox[{
SubscriptBox["\[Rho]",
RowBox[{
@@ -4026,15 +6386,8 @@ Cell[BoxData[
RowBox[{"eqs", "=",
RowBox[{"Delete", "[",
RowBox[{
- RowBox[{
- RowBox[{"LiouvilleEquation", "[",
- RowBox[{"system", ",", "Hrwa", ",", "relax", ",", "repop"}], "]"}], "/.",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"(",
- RowBox[{"#", "\[Rule]", "0"}], ")"}], "&"}], "/@", "delvars"}],
- ")"}]}], ",", "delpos"}], "]"}]}], "]"}]], "Input"],
+ RowBox[{"eqs0", "/.", "delreps"}], ",", "delpos"}], "]"}]}],
+ "]"}]], "Input"],
Cell[BoxData[
InterpretationBox[
@@ -4082,7 +6435,7 @@ Cell[BoxData[
Appearance->Automatic,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Function[{OutputSizeLimit`Dump`x$},
- TableForm[OutputSizeLimit`Dump`x$]], 158, 23264544157491569590, 5/
+ TableForm[OutputSizeLimit`Dump`x$]], 38, 23266808590092361739, 5/
2],
Enabled->True,
Evaluator->Automatic,
@@ -4101,7 +6454,7 @@ Cell[BoxData[
Appearance->Automatic,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Function[{OutputSizeLimit`Dump`x$},
- TableForm[OutputSizeLimit`Dump`x$]], 158, 23264544157491569590, 5
+ TableForm[OutputSizeLimit`Dump`x$]], 38, 23266808590092361739, 5
2],
Enabled->True,
Evaluator->Automatic,
@@ -4120,7 +6473,7 @@ Cell[BoxData[
Appearance->Automatic,
ButtonFunction:>OutputSizeLimit`ButtonFunction[
Function[{OutputSizeLimit`Dump`x$},
- TableForm[OutputSizeLimit`Dump`x$]], 158, 23264544157491569590,
+ TableForm[OutputSizeLimit`Dump`x$]], 38, 23266808590092361739,
Infinity],
Enabled->True,
Evaluator->Automatic,
@@ -4165,7 +6518,7 @@ Cell[BoxData[
FrameMargins->5],
Deploy,
DefaultBaseStyle->"Deploy"],
- Out[158]]], "Output"]
+ Out[38]]], "Output"]
}, Open ]],
Cell["Convert equations to C form", "Text"],
@@ -4312,7 +6665,19 @@ Cell[BoxData[{
RowBox[{
RowBox[{"DeleteCases", "[",
RowBox[{
- RowBox[{"eqs", "/.",
+ RowBox[{
+ RowBox[{"eqs", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ SubscriptBox["\[Delta]", "s_"], "\[Rule]",
+ RowBox[{
+ SubscriptBox["\[Delta]", "s"], "+",
+ RowBox[{
+ SubscriptBox["k", "s"], "v"}]}]}], ",",
+ RowBox[{"\[Delta]\[Omega]", "\[Rule]",
+ RowBox[{"\[Delta]\[Omega]", "+",
+ RowBox[{"\[Delta]k", " ", "v"}]}]}]}], "}"}]}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"NaturalWidth", "\[Rule]", "g"}], ",",
@@ -4337,6 +6702,9 @@ Cell[BoxData[{
SubscriptBox["\[Delta]", "i_"], "\[Rule]",
RowBox[{"d", "[", "i", "]"}]}], ",",
RowBox[{
+ SubscriptBox["k", "i_"], "\[Rule]",
+ RowBox[{"k", "[", "i", "]"}]}], ",",
+ RowBox[{
SuperscriptBox["\[ExponentialE]",
RowBox[{"a_.", "+",
RowBox[{"\[ImaginaryI]", " ",
@@ -4428,7 +6796,10 @@ Cell[BoxData[{
RowBox[{"\"\<Ec\>\"", "<>", "a"}]}], ",",
RowBox[{
RowBox[{"\"\<d(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
- RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input"],
+ RowBox[{"\"\<d\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<k(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
+ RowBox[{"\"\<k\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input"],
Cell[BoxData[
RowBox[{"{",
@@ -4459,17 +6830,18 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{
+ RowBox[{"-", "0.07905694150420949`"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"01\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "3", "]"}]}], "+",
+ RowBox[{"0.07905694150420949`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"09\"\>", ",", "\<\"01\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"14\"\>", ",", "\<\"01\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"01\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -4478,36 +6850,51 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"01\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
- RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
+ RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"01\"\>", ",", "\<\"14\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"d", "[", "1", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"d", "[", "1", "]"}]}], "+",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+",
+ RowBox[{"\<\"01\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"d", "[", "3", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "3", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"01\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
+ RowBox[{"0.07905694150420949`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"01\"\>", ",", "\<\"01\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"Wc", "[", "3", "]"}]}], "+",
+ RowBox[{"0.07905694150420949`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
RowBox[{"\<\"02\"\>", ",", "\<\"02\"\>"}], "]"}], "\[Equal]",
@@ -4544,25 +6931,25 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
+ RowBox[{"\<\"02\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
RowBox[{"W", "[", "3", "]"}]}], "-",
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "-",
+ RowBox[{"\<\"09\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "+",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"02\"\>", ",", "\<\"09\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -4571,47 +6958,56 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"02\"\>", ",", "\<\"09\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"02\"\>", ",", "\<\"09\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"d", "[", "1", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+",
+ RowBox[{"\<\"02\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"\<\"02\"\>", ",", "\<\"09\"\>"}], "]"}]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
RowBox[{"\<\"02\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "1", "]"}]}], "+",
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"02\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "2", "]"}]}], "-",
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "-",
+ RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "+",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -4620,13 +7016,13 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
@@ -4635,35 +7031,48 @@ Cell[BoxData[
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
- RowBox[{"0.10206207261596577`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "+",
+ RowBox[{"d", "[", "3", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "3", "]"}]}]}], ")"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
+ RowBox[{"0.14433756729740646`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"09\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "-",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"02\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}], "-",
+ RowBox[{"Wc", "[", "3", "]"}]}], "+",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "3", "]"}]}], "+",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
RowBox[{"\<\"02\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
@@ -4704,17 +7113,25 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{"0.06454972243679027`", " ",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
+ RowBox[{"\<\"03\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
+ RowBox[{"0.03227486121839514`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
RowBox[{"W", "[", "3", "]"}]}], "-",
- RowBox[{"0.06454972243679027`", " ",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"15\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"\<\"10\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "+",
+ RowBox[{"0.03227486121839514`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"16\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"03\"\>", ",", "\<\"10\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -4723,39 +7140,55 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"03\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"03\"\>", ",", "\<\"10\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"d", "[", "1", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+",
+ RowBox[{"\<\"03\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"03\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"03\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "-",
- RowBox[{"0.06454972243679027`", " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"03\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "+",
+ RowBox[{"0.03227486121839514`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"15\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
+ RowBox[{"\<\"16\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -4764,13 +7197,13 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
@@ -4779,26 +7212,52 @@ Cell[BoxData[
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "3", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "3", "]"}]}]}], ")"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}]}], "+",
- RowBox[{"0.06454972243679027`", " ",
+ RowBox[{"\<\"10\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "-",
+ RowBox[{"0.03227486121839514`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"03\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}], "-",
- RowBox[{"0.06454972243679027`", " ",
+ RowBox[{"Wc", "[", "3", "]"}]}], "+",
+ RowBox[{"0.03227486121839514`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "3", "]"}]}], "+",
+ RowBox[{"0.1613743060919757`", " ",
+ RowBox[{"exp", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
+ RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"03\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
RowBox[{"\<\"04\"\>", ",", "\<\"04\"\>"}], "]"}], "\[Equal]",
@@ -4818,11 +7277,6 @@ Cell[BoxData[
RowBox[{"r", "[",
RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+",
RowBox[{
- FractionBox["1", "6"], " ",
- RowBox[{"g", "[", "2", "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}]}], "+",
- RowBox[{
FractionBox["1", "20"], " ",
RowBox[{"g", "[", "3", "]"}], " ",
RowBox[{"r", "[",
@@ -4835,75 +7289,17 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{
- RowBox[{"-", "0.10206207261596577`"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
- RowBox[{"0.05590169943749474`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "3", "]"}]}], "+",
- RowBox[{"0.10206207261596577`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "-",
- RowBox[{"0.05590169943749474`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
- RowBox[{
- RowBox[{"dr", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"12\"\>"}], "]"}], "\[Equal]",
- RowBox[{
- RowBox[{
- FractionBox["1", "2"], " ",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"-", "gt"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"12\"\>"}], "]"}]}], "-",
- RowBox[{
- RowBox[{"(",
- RowBox[{"gt", "+",
- RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"12\"\>"}], "]"}]}]}], ")"}]}], "-",
- RowBox[{"i", " ",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"d", "[", "1", "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+",
- RowBox[{
- RowBox[{"(",
- RowBox[{
- RowBox[{"-",
- RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+",
RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "-",
- RowBox[{"0.10206207261596577`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "+",
- RowBox[{"0.10206207261596577`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "-",
- RowBox[{"0.05590169943749474`", " ",
+ RowBox[{"\<\"04\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"11\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"04\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -4912,54 +7308,48 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"04\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
- RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
+ RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"04\"\>", ",", "\<\"11\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
- RowBox[{"-",
- RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"04\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}], " ",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}]}], "+",
+ RowBox[{"\<\"04\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-",
RowBox[{"0.10206207261596577`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "+",
- RowBox[{"0.05590169943749474`", " ",
+ RowBox[{"\<\"04\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"04\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}], "-",
- RowBox[{"0.05590169943749474`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}], "-",
- RowBox[{"0.1613743060919757`", " ",
- RowBox[{"exp", "[",
- RowBox[{
- RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
- RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
RowBox[{"\<\"05\"\>", ",", "\<\"05\"\>"}], "]"}], "\[Equal]",
@@ -4974,11 +7364,6 @@ Cell[BoxData[
RowBox[{"r", "[",
RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+",
RowBox[{
- FractionBox["1", "3"], " ",
- RowBox[{"g", "[", "2", "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}]}], "+",
- RowBox[{
FractionBox["1", "10"], " ",
RowBox[{"g", "[", "3", "]"}], " ",
RowBox[{"r", "[",
@@ -4986,18 +7371,17 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{
- RowBox[{"-", "0.20412414523193154`"}], " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"05\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"13\"\>", ",", "\<\"05\"\>"}], "]"}], " ",
+ RowBox[{"\<\"12\"\>", ",", "\<\"05\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"05\"\>", ",", "\<\"12\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -5006,35 +7390,43 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"05\"\>", ",", "\<\"12\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"05\"\>", ",", "\<\"12\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"d", "[", "1", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}]}], "+",
+ RowBox[{"\<\"05\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"05\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"05\"\>", ",", "\<\"05\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "+",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "-",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}], " ",
+ RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
@@ -5053,29 +7445,37 @@ Cell[BoxData[
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}]}], " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}]}], " ",
RowBox[{"r", "[",
RowBox[{"\<\"06\"\>", ",", "\<\"02\"\>"}], "]"}]}], "+",
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
+ RowBox[{"\<\"06\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "3", "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "3", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
+ RowBox[{"\<\"09\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "1", "]"}]}], "-",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
@@ -5113,34 +7513,43 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"\<\"06\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
RowBox[{"W", "[", "1", "]"}]}], "+",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
- RowBox[{"dw", " ", "i", " ", "t"}], "-",
+ RowBox[{"i", " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "-",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "4", "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "4", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
+ RowBox[{"\<\"09\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "1", "]"}]}], "-",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"06\"\>", ",", "\<\"09\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -5149,29 +7558,35 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"06\"\>", ",", "\<\"09\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"06\"\>", ",", "\<\"09\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"d", "[", "1", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"\<\"06\"\>", ",", "\<\"09\"\>"}], "]"}]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
RowBox[{"\<\"06\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "1", "]"}]}], "+",
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"06\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "2", "]"}]}], "-",
@@ -5179,14 +7594,17 @@ Cell[BoxData[
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -5195,13 +7613,13 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
@@ -5212,13 +7630,20 @@ Cell[BoxData[
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}]}], " ",
+ RowBox[{"d", "[", "3", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "3", "]"}]}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "+",
+ RowBox[{"\<\"09\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "-",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"06\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
@@ -5227,7 +7652,10 @@ Cell[BoxData[
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
RowBox[{"\<\"06\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
@@ -5236,10 +7664,13 @@ Cell[BoxData[
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
@@ -5258,17 +7689,37 @@ Cell[BoxData[
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}]}], " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}]}], " ",
RowBox[{"r", "[",
RowBox[{"\<\"07\"\>", ",", "\<\"03\"\>"}], "]"}]}], "+",
- RowBox[{"0.06454972243679027`", " ",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "3", "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"07\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
+ RowBox[{"0.03227486121839514`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "3", "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"10\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "-",
+ RowBox[{"0.1613743060919757`", " ",
+ RowBox[{"exp", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
+ RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"16\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
RowBox[{"\<\"07\"\>", ",", "\<\"07\"\>"}], "]"}], "\[Equal]",
@@ -5305,17 +7756,41 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{
+ RowBox[{"-", "0.17677669529663687`"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "1", "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"07\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "1", "]"}]}], "+",
+ RowBox[{"0.1613743060919757`", " ",
+ RowBox[{"exp", "[",
+ RowBox[{
+ RowBox[{"i", " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "-",
+ RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "4", "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"10\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "-",
+ RowBox[{"0.1613743060919757`", " ",
+ RowBox[{"exp", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
+ RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"16\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"07\"\>", ",", "\<\"10\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -5324,31 +7799,51 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"07\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"07\"\>", ",", "\<\"10\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"d", "[", "1", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"07\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"07\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"07\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}], "-",
+ RowBox[{"0.1613743060919757`", " ",
+ RowBox[{"exp", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
+ RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"16\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -5357,13 +7852,13 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
@@ -5374,17 +7869,47 @@ Cell[BoxData[
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}]}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"d", "[", "3", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "3", "]"}]}]}], ")"}]}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "+",
- RowBox[{"0.06454972243679027`", " ",
+ RowBox[{"\<\"10\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "-",
+ RowBox[{"0.03227486121839514`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"07\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"Wc", "[", "3", "]"}]}], "+",
+ RowBox[{"0.1613743060919757`", " ",
+ RowBox[{"exp", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
+ RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"07\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "4", "]"}]}], "-",
+ RowBox[{"0.1613743060919757`", " ",
+ RowBox[{"exp", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
+ RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
RowBox[{"\<\"08\"\>", ",", "\<\"04\"\>"}], "]"}], "\[Equal]",
@@ -5402,30 +7927,21 @@ Cell[BoxData[
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}]}], ")"}]}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"04\"\>"}], "]"}]}], "-",
- RowBox[{"0.10206207261596577`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
- RowBox[{"0.05590169943749474`", " ",
+ RowBox[{"d", "[", "2", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "3", "]"}]}], "-",
+ RowBox[{"\<\"08\"\>", ",", "\<\"04\"\>"}], "]"}]}], "+",
RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "+",
- RowBox[{"0.1613743060919757`", " ",
- RowBox[{"exp", "[",
- RowBox[{
- RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
- RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"\<\"08\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "+",
+ RowBox[{"0.10206207261596577`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"11\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
RowBox[{"\<\"08\"\>", ",", "\<\"08\"\>"}], "]"}], "\[Equal]",
@@ -5445,11 +7961,6 @@ Cell[BoxData[
RowBox[{"r", "[",
RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+",
RowBox[{
- FractionBox["1", "2"], " ",
- RowBox[{"g", "[", "2", "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}]}], "+",
- RowBox[{
FractionBox["5", "12"], " ",
RowBox[{"g", "[", "3", "]"}], " ",
RowBox[{"r", "[",
@@ -5462,34 +7973,18 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{"0.17677669529663687`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "1", "]"}]}], "-",
- RowBox[{"0.1613743060919757`", " ",
- RowBox[{"exp", "[",
- RowBox[{
- RowBox[{"dw", " ", "i", " ", "t"}], "-",
- RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "4", "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{
+ RowBox[{"-", "0.10206207261596577`"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "+",
- RowBox[{"0.1613743060919757`", " ",
- RowBox[{"exp", "[",
- RowBox[{
- RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
- RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"\<\"08\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "1", "]"}]}], "+",
+ RowBox[{"0.10206207261596577`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"11\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"08\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -5498,98 +7993,36 @@ Cell[BoxData[
RowBox[{
RowBox[{"-", "gt"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"08\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"08\"\>", ",", "\<\"11\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"d", "[", "1", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"\<\"08\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-",
+ RowBox[{"0.10206207261596577`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"08\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "-",
+ RowBox[{"Wc", "[", "1", "]"}]}], "+",
RowBox[{"0.10206207261596577`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}], "+",
- RowBox[{"0.1613743060919757`", " ",
- RowBox[{"exp", "[",
- RowBox[{
- RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
- RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
- RowBox[{
- RowBox[{"dr", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}], "\[Equal]",
- RowBox[{
- RowBox[{
- FractionBox["1", "2"], " ",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"-", "gt"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
- RowBox[{
- RowBox[{"(",
- RowBox[{"gt", "+",
- RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}]}]}], ")"}]}], "-",
- RowBox[{"i", " ",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"-",
- RowBox[{"(",
- RowBox[{
- RowBox[{"-",
- RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}]}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "1", "]"}]}], "+",
- RowBox[{"0.05590169943749474`", " ",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
RowBox[{"\<\"08\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}], "-",
- RowBox[{"0.1613743060919757`", " ",
- RowBox[{"exp", "[",
- RowBox[{
- RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
- RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "4", "]"}]}], "+",
- RowBox[{"0.1613743060919757`", " ",
- RowBox[{"exp", "[",
- RowBox[{
- RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
- RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}], "\[Equal]",
@@ -5605,48 +8038,26 @@ Cell[BoxData[
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"-", "0.20412414523193154`"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
- RowBox[{"0.20412414523193154`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"09\"\>", ",", "\<\"01\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
- RowBox[{
- RowBox[{"dr", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}], "\[Equal]",
- RowBox[{
- RowBox[{
- RowBox[{"-",
- RowBox[{"(",
- RowBox[{"gt", "+",
- RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-",
- RowBox[{"i", " ",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"-", "0.17677669529663687`"}], " ",
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"\<\"06\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
RowBox[{"W", "[", "1", "]"}]}], "-",
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"\<\"02\"\>", ",", "\<\"09\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
+ RowBox[{"\<\"09\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "1", "]"}]}], "+",
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
+ RowBox[{"\<\"09\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"09\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -5658,54 +8069,68 @@ Cell[BoxData[
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"09\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"09\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
- RowBox[{"d", "[", "1", "]"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"09\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "3", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "3", "]"}]}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"\<\"09\"\>", ",", "\<\"15\"\>"}], "]"}]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
RowBox[{"W", "[", "1", "]"}]}], "-",
- RowBox[{"0.10206207261596577`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
+ RowBox[{"\<\"09\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "3", "]"}]}], "+",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"10\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
+ RowBox[{"\<\"09\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"-",
@@ -5713,22 +8138,29 @@ Cell[BoxData[
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{
- RowBox[{"-", "0.20412414523193154`"}], " ",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "1", "]"}]}], "+",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"07\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "1", "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"03\"\>", ",", "\<\"10\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"10\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"10\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"10\"\>", ",", "\<\"16\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
@@ -5740,41 +8172,67 @@ Cell[BoxData[
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"10\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"gt", "+",
RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"\<\"10\"\>", ",", "\<\"16\"\>"}], "]"}]}]}], ")"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-",
- RowBox[{"d", "[", "1", "]"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"d", "[", "1", "]"}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"10\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-",
RowBox[{"d", "[", "1", "]"}]}], "+",
RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}], " ",
+ RowBox[{"d", "[", "3", "]"}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "1", "]"}]}], "+",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "2", "]"}]}], "-",
+ RowBox[{"v", " ",
+ RowBox[{"k", "[", "3", "]"}]}]}], ")"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"10\"\>", ",", "\<\"16\"\>"}], "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "1", "]"}]}], "-",
+ RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "1", "]"}]}], "+",
- RowBox[{"0.06454972243679027`", " ",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
+ RowBox[{"0.03227486121839514`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"11\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"10\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "3", "]"}]}], "+",
+ RowBox[{"0.1613743060919757`", " ",
+ RowBox[{"exp", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
+ RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"10\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"-",
@@ -5782,111 +8240,74 @@ Cell[BoxData[
RowBox[{"gt", "+",
RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{
- RowBox[{"-", "0.17677669529663687`"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "1", "]"}]}], "+",
RowBox[{"0.10206207261596577`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "+",
+ RowBox[{"\<\"08\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "1", "]"}]}], "-",
RowBox[{"0.17677669529663687`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "1", "]"}]}], "-",
+ RowBox[{"\<\"04\"\>", ",", "\<\"11\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "2", "]"}]}], "-",
RowBox[{"0.10206207261596577`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
+ RowBox[{"\<\"11\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "1", "]"}]}], "+",
+ RowBox[{"0.17677669529663687`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"11\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
- FractionBox["1", "2"], " ",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"-",
- RowBox[{"(",
- RowBox[{"gt", "+",
- RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
- RowBox[{
- RowBox[{"(",
- RowBox[{"gt", "+",
- RowBox[{"g", "[", "3", "]"}]}], ")"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}]}]}], ")"}]}], "-",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"gt", "+",
+ RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
RowBox[{
- RowBox[{"-",
- RowBox[{"d", "[", "1", "]"}]}], " ",
+ RowBox[{"-", "0.14433756729740646`"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
- RowBox[{
- RowBox[{"(",
- RowBox[{
- RowBox[{"-",
- RowBox[{"d", "[", "1", "]"}]}], "+",
- RowBox[{"d", "[", "2", "]"}], "-",
- RowBox[{"d", "[", "3", "]"}]}], ")"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-",
- RowBox[{"0.17677669529663687`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "1", "]"}]}], "+",
- RowBox[{"0.10206207261596577`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"\<\"05\"\>", ",", "\<\"12\"\>"}], "]"}], " ",
RowBox[{"W", "[", "2", "]"}]}], "+",
- RowBox[{"0.05590169943749474`", " ",
+ RowBox[{"0.14433756729740646`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}], "-",
- RowBox[{"0.1613743060919757`", " ",
- RowBox[{"exp", "[",
- RowBox[{
- RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
- RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"12\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"12\"\>", ",", "\<\"05\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{"gt", "+",
- RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ",
+ RowBox[{"g", "[", "3", "]"}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"0.07905694150420949`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "2", "]"}]}], "-",
- RowBox[{"0.20412414523193154`", " ",
+ RowBox[{"\<\"01\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "3", "]"}]}], "-",
+ RowBox[{"0.07905694150420949`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"13\"\>", ",", "\<\"05\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"\<\"14\"\>", ",", "\<\"01\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]",
+ RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
RowBox[{"-",
@@ -5894,61 +8315,43 @@ Cell[BoxData[
RowBox[{"gt", "+",
RowBox[{"g", "[", "3", "]"}]}], ")"}]}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-",
+ RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{
- RowBox[{"-", "0.05590169943749474`"}], " ",
+ RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
RowBox[{"W", "[", "3", "]"}]}], "-",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
- RowBox[{"dw", " ", "i", " ", "t"}], "-",
+ RowBox[{"i", " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "-",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "4", "]"}]}], "+",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "4", "]"}]}], "-",
RowBox[{"0.05590169943749474`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"02\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "3", "]"}]}], "+",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"14\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
+ RowBox[{"\<\"15\"\>", ",", "\<\"06\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",",
RowBox[{
RowBox[{"dr", "[",
- RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]",
- RowBox[{
- RowBox[{
- RowBox[{"-",
- RowBox[{"(",
- RowBox[{"gt", "+",
- RowBox[{"g", "[", "3", "]"}]}], ")"}]}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-",
- RowBox[{"i", " ",
- RowBox[{"(",
- RowBox[{
- RowBox[{
- RowBox[{"-", "0.06454972243679027`"}], " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "3", "]"}]}], "+",
- RowBox[{"0.06454972243679027`", " ",
- RowBox[{"r", "[",
- RowBox[{"\<\"15\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",",
- RowBox[{
- RowBox[{"dr", "[",
RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}], "\[Equal]",
RowBox[{
RowBox[{
@@ -5961,138 +8364,139 @@ Cell[BoxData[
RowBox[{"i", " ",
RowBox[{"(",
RowBox[{
- RowBox[{
- RowBox[{"-", "0.05590169943749474`"}], " ",
+ RowBox[{"0.03227486121839514`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "3", "]"}]}], "+",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "3", "]"}]}], "-",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
- RowBox[{"dw", " ", "i", " ", "t"}], "-",
+ RowBox[{"i", " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "-",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
- RowBox[{"W", "[", "4", "]"}]}], "+",
- RowBox[{"0.05590169943749474`", " ",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}], " ",
+ RowBox[{"W", "[", "4", "]"}]}], "-",
+ RowBox[{"0.03227486121839514`", " ",
RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"04\"\>"}], "]"}], " ",
- RowBox[{"Wc", "[", "3", "]"}]}], "-",
+ RowBox[{"\<\"16\"\>", ",", "\<\"03\"\>"}], "]"}], " ",
+ RowBox[{"Wc", "[", "3", "]"}]}], "+",
RowBox[{"0.1613743060919757`", " ",
RowBox[{"exp", "[",
RowBox[{
RowBox[{
- RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+",
+ RowBox[{"-", "i"}], " ", "t", " ",
+ RowBox[{"(",
+ RowBox[{"dw", "+",
+ RowBox[{"dk", " ", "v"}]}], ")"}]}], "+",
RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ",
RowBox[{"r", "[",
- RowBox[{"\<\"16\"\>", ",", "\<\"08\"\>"}], "]"}], " ",
+ RowBox[{"\<\"16\"\>", ",", "\<\"07\"\>"}], "]"}], " ",
RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}]}], "}"}]], "Output"],
Cell[BoxData["\<\"dr0101_dt = gt/8. - gt*r0101 + (g2*r0909)/3. + \
-(g2*r1010)/6. + (g3*r1414)/10. - i*(0.20412414523193154*r0109*E2 - \
-0.20412414523193154*r0901*Ec2);\\ndr0109_dt = (-(gt*r0109) - (gt + \
-g2)*r0109)/2. - i*(d1*r0109 + (-d1 + d2)*r0109 + \
-0.20412414523193154*r0101*Ec2 - 0.20412414523193154*r0909*Ec2);\\ndr0202_dt = \
-gt/8. - gt*r0202 + (g2*r0909)/6. + (g2*r1010)/12. + (g2*r1111)/4. + \
-(g3*r1414)/20. + (g3*r1515)/20. - i*(0.10206207261596577*r0210*E2 + \
-0.05590169943749474*r0214*E3 - 0.10206207261596577*r1002*Ec2 - \
-0.05590169943749474*r1402*Ec3);\\ndr0210_dt = (-(gt*r0210) - (gt + \
-g2)*r0210)/2. - i*(d1*r0210 + (-d1 + d2)*r0210 + \
-0.17677669529663687*r0206*Ec1 + 0.10206207261596577*r0202*Ec2 - \
-0.10206207261596577*r1010*Ec2 - 0.05590169943749474*r1410*Ec3);\\ndr0214_dt = \
-(-(gt*r0214) - (gt + g3)*r0214)/2. - i*((-d1 + d2)*r0214 - (-d1 + d2 - \
-d3)*r0214 - 0.10206207261596577*r1014*Ec2 + 0.05590169943749474*r0202*Ec3 - \
-0.05590169943749474*r1414*Ec3 + 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r0206*Ec4);\\ndr0303_dt = gt/8. - gt*r0303 + (g2*r1010)/4. + \
-(g2*r1212)/4. + (g3*r1414)/60. + (g3*r1515)/15. + (g3*r1616)/60. - \
-i*(0.06454972243679027*r0315*E3 - 0.06454972243679027*r1503*Ec3);\\ndr0311_dt \
-= (-(gt*r0311) - (gt + g2)*r0311)/2. - i*(d1*r0311 + (-d1 + d2)*r0311 + \
-0.20412414523193154*r0307*Ec1 - 0.06454972243679027*r1511*Ec3);\\ndr0315_dt = \
-(-(gt*r0315) - (gt + g3)*r0315)/2. - i*((-d1 + d2)*r0315 - (-d1 + d2 - \
-d3)*r0315 + 0.06454972243679027*r0303*Ec3 - \
-0.06454972243679027*r1515*Ec3);\\ndr0404_dt = gt/8. - gt*r0404 + \
-(g2*r1111)/4. + (g2*r1212)/12. + (g2*r1313)/6. + (g3*r1515)/20. + \
-(g3*r1616)/20. - i*(-0.10206207261596577*r0412*E2 + \
-0.05590169943749474*r0416*E3 + 0.10206207261596577*r1204*Ec2 - \
-0.05590169943749474*r1604*Ec3);\\ndr0412_dt = (-(gt*r0412) - (gt + \
-g2)*r0412)/2. - i*(d1*r0412 + (-d1 + d2)*r0412 + \
-0.17677669529663687*r0408*Ec1 - 0.10206207261596577*r0404*Ec2 + \
-0.10206207261596577*r1212*Ec2 - 0.05590169943749474*r1612*Ec3);\\ndr0416_dt = \
-(-(gt*r0416) - (gt + g3)*r0416)/2. - i*((-d1 + d2)*r0416 - (-d1 + d2 - \
-d3)*r0416 + 0.10206207261596577*r1216*Ec2 + 0.05590169943749474*r0404*Ec3 - \
-0.05590169943749474*r1616*Ec3 - 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r0408*Ec4);\\ndr0505_dt = gt/8. - gt*r0505 + (g2*r1212)/6. + \
-(g2*r1313)/3. + (g3*r1616)/10. - i*(-0.20412414523193154*r0513*E2 + \
-0.20412414523193154*r1305*Ec2);\\ndr0513_dt = (-(gt*r0513) - (gt + \
-g2)*r0513)/2. - i*(d1*r0513 + (-d1 + d2)*r0513 - \
-0.20412414523193154*r0505*Ec2 + 0.20412414523193154*r1313*Ec2);\\ndr0602_dt = \
--(gt*r0602) - i*(-((-d1 + d2)*r0602) + 0.10206207261596577*r0610*E2 + \
-0.05590169943749474*r0614*E3 - 0.17677669529663687*r1002*Ec1 - \
-0.1613743060919757*exp(-(dw*i*t) + dk*i*z)*r1402*Ec4);\\ndr0606_dt = gt/8. - \
-gt*r0606 + (g2*r0909)/2. + (g2*r1010)/4. + (g2*r1111)/12. + (5*g3*r1414)/12. \
-+ (5*g3*r1515)/12. - i*(0.17677669529663687*r0610*E1 + \
-0.1613743060919757*exp(dw*i*t - dk*i*z)*r0614*E4 - \
-0.17677669529663687*r1006*Ec1 - 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1406*Ec4);\\ndr0610_dt = (-(gt*r0610) - (gt + g2)*r0610)/2. - \
-i*(d1*r0610 + 0.17677669529663687*r0606*Ec1 - 0.17677669529663687*r1010*Ec1 + \
-0.10206207261596577*r0602*Ec2 - 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1410*Ec4);\\ndr0614_dt = (-(gt*r0614) - (gt + g3)*r0614)/2. - \
-i*(-((-d1 + d2 - d3)*r0614) - 0.17677669529663687*r1014*Ec1 + \
-0.05590169943749474*r0602*Ec3 + 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r0606*Ec4 - 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1414*Ec4);\\ndr0703_dt = -(gt*r0703) - i*(-((-d1 + d2)*r0703) + \
-0.06454972243679027*r0715*E3 - 0.20412414523193154*r1103*Ec1);\\ndr0707_dt = \
-gt/8. - gt*r0707 + (g2*r1010)/4. + (g2*r1111)/3. + (g2*r1212)/4. + \
-(5*g3*r1414)/12. + (5*g3*r1616)/12. - i*(0.20412414523193154*r0711*E1 - \
-0.20412414523193154*r1107*Ec1);\\ndr0711_dt = (-(gt*r0711) - (gt + \
-g2)*r0711)/2. - i*(d1*r0711 + 0.20412414523193154*r0707*Ec1 - \
-0.20412414523193154*r1111*Ec1);\\ndr0715_dt = (-(gt*r0715) - (gt + \
-g3)*r0715)/2. - i*(-((-d1 + d2 - d3)*r0715) - 0.20412414523193154*r1115*Ec1 + \
-0.06454972243679027*r0703*Ec3);\\ndr0804_dt = -(gt*r0804) - i*(-((-d1 + \
-d2)*r0804) - 0.10206207261596577*r0812*E2 + 0.05590169943749474*r0816*E3 - \
-0.17677669529663687*r1204*Ec1 + 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1604*Ec4);\\ndr0808_dt = gt/8. - gt*r0808 + (g2*r1111)/12. + \
-(g2*r1212)/4. + (g2*r1313)/2. + (5*g3*r1515)/12. + (5*g3*r1616)/12. - \
-i*(0.17677669529663687*r0812*E1 - 0.1613743060919757*exp(dw*i*t - \
-dk*i*z)*r0816*E4 - 0.17677669529663687*r1208*Ec1 + \
-0.1613743060919757*exp(-(dw*i*t) + dk*i*z)*r1608*Ec4);\\ndr0812_dt = \
-(-(gt*r0812) - (gt + g2)*r0812)/2. - i*(d1*r0812 + \
-0.17677669529663687*r0808*Ec1 - 0.17677669529663687*r1212*Ec1 - \
-0.10206207261596577*r0804*Ec2 + 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1612*Ec4);\\ndr0816_dt = (-(gt*r0816) - (gt + g3)*r0816)/2. - \
-i*(-((-d1 + d2 - d3)*r0816) - 0.17677669529663687*r1216*Ec1 + \
-0.05590169943749474*r0804*Ec3 - 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r0808*Ec4 + 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1616*Ec4);\\ndr0909_dt = -((gt + g2)*r0909) - \
-i*(-0.20412414523193154*r0109*E2 + \
-0.20412414523193154*r0901*Ec2);\\ndr1010_dt = -((gt + g2)*r1010) - \
-i*(-0.17677669529663687*r0610*E1 - 0.10206207261596577*r0210*E2 + \
-0.17677669529663687*r1006*Ec1 + 0.10206207261596577*r1002*Ec2);\\ndr1014_dt = \
-(-((gt + g2)*r1014) - (gt + g3)*r1014)/2. - i*(-(d1*r1014) - (-d1 + d2 - \
-d3)*r1014 - 0.17677669529663687*r0614*E1 - 0.10206207261596577*r0214*E2 + \
-0.05590169943749474*r1002*Ec3 + 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1006*Ec4);\\ndr1111_dt = -((gt + g2)*r1111) - \
-i*(-0.20412414523193154*r0711*E1 + \
-0.20412414523193154*r1107*Ec1);\\ndr1115_dt = (-((gt + g2)*r1115) - (gt + \
-g3)*r1115)/2. - i*(-(d1*r1115) - (-d1 + d2 - d3)*r1115 - \
-0.20412414523193154*r0715*E1 + 0.06454972243679027*r1103*Ec3);\\ndr1212_dt = \
--((gt + g2)*r1212) - i*(-0.17677669529663687*r0812*E1 + \
-0.10206207261596577*r0412*E2 + 0.17677669529663687*r1208*Ec1 - \
-0.10206207261596577*r1204*Ec2);\\ndr1216_dt = (-((gt + g2)*r1216) - (gt + \
-g3)*r1216)/2. - i*(-(d1*r1216) - (-d1 + d2 - d3)*r1216 - \
-0.17677669529663687*r0816*E1 + 0.10206207261596577*r0416*E2 + \
-0.05590169943749474*r1204*Ec3 - 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1208*Ec4);\\ndr1313_dt = -((gt + g2)*r1313) - \
-i*(0.20412414523193154*r0513*E2 - 0.20412414523193154*r1305*Ec2);\\ndr1414_dt \
-= -((gt + g3)*r1414) - i*(-0.05590169943749474*r0214*E3 - \
-0.1613743060919757*exp(dw*i*t - dk*i*z)*r0614*E4 + \
-0.05590169943749474*r1402*Ec3 + 0.1613743060919757*exp(-(dw*i*t) + \
-dk*i*z)*r1406*Ec4);\\ndr1515_dt = -((gt + g3)*r1515) - \
-i*(-0.06454972243679027*r0315*E3 + \
-0.06454972243679027*r1503*Ec3);\\ndr1616_dt = -((gt + g3)*r1616) - \
-i*(-0.05590169943749474*r0416*E3 + 0.1613743060919757*exp(dw*i*t - \
-dk*i*z)*r0816*E4 + 0.05590169943749474*r1604*Ec3 - \
-0.1613743060919757*exp(-(dw*i*t) + dk*i*z)*r1608*Ec4);\\n\"\>"], "Output"]
+(g2*r1010)/6. + (g3*r1414)/10. - i*(-0.07905694150420949*r0114*E3 + \
+0.07905694150420949*r1401*Ec3);\\ndr0114_dt = (-(gt*r0114) - (gt + \
+g3)*r0114)/2. - i*((-d1 + d2 - v*k1 + v*k2)*r0114 - (-d1 + d2 - d3 - v*k1 + \
+v*k2 - v*k3)*r0114 - 0.07905694150420949*r0101*Ec3 + \
+0.07905694150420949*r1414*Ec3);\\ndr0202_dt = gt/8. - gt*r0202 + \
+(g2*r0909)/6. + (g2*r1010)/12. + (g2*r1111)/4. + (g3*r1414)/20. + \
+(g3*r1515)/20. - i*(0.14433756729740646*r0209*E2 - \
+0.05590169943749474*r0215*E3 - 0.14433756729740646*r0902*Ec2 + \
+0.05590169943749474*r1502*Ec3);\\ndr0209_dt = (-(gt*r0209) - (gt + \
+g2)*r0209)/2. - i*((d1 + v*k1)*r0209 + (-d1 + d2 - v*k1 + v*k2)*r0209 - \
+(r0206*Ec1)/4. + 0.14433756729740646*r0202*Ec2 - \
+0.14433756729740646*r0909*Ec2 + 0.05590169943749474*r1509*Ec3);\\ndr0215_dt = \
+(-(gt*r0215) - (gt + g3)*r0215)/2. - i*((-d1 + d2 - v*k1 + v*k2)*r0215 - (-d1 \
++ d2 - d3 - v*k1 + v*k2 - v*k3)*r0215 - 0.14433756729740646*r0915*Ec2 - \
+0.05590169943749474*r0202*Ec3 + 0.05590169943749474*r1515*Ec3 + \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r0206*Ec4);\\ndr0303_dt = \
+gt/8. - gt*r0303 + (g2*r1010)/4. + (g2*r1212)/4. + (g3*r1414)/60. + \
+(g3*r1515)/15. + (g3*r1616)/60. - i*(0.17677669529663687*r0310*E2 - \
+0.03227486121839514*r0316*E3 - 0.17677669529663687*r1003*Ec2 + \
+0.03227486121839514*r1603*Ec3);\\ndr0310_dt = (-(gt*r0310) - (gt + \
+g2)*r0310)/2. - i*((d1 + v*k1)*r0310 + (-d1 + d2 - v*k1 + v*k2)*r0310 - \
+0.17677669529663687*r0307*Ec1 + 0.17677669529663687*r0303*Ec2 - \
+0.17677669529663687*r1010*Ec2 + 0.03227486121839514*r1610*Ec3);\\ndr0316_dt = \
+(-(gt*r0316) - (gt + g3)*r0316)/2. - i*((-d1 + d2 - v*k1 + v*k2)*r0316 - (-d1 \
++ d2 - d3 - v*k1 + v*k2 - v*k3)*r0316 - 0.17677669529663687*r1016*Ec2 - \
+0.03227486121839514*r0303*Ec3 + 0.03227486121839514*r1616*Ec3 + \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r0307*Ec4);\\ndr0404_dt = \
+gt/8. - gt*r0404 + (g2*r1111)/4. + (g2*r1212)/12. + (g3*r1515)/20. + \
+(g3*r1616)/20. - i*(0.17677669529663687*r0411*E2 - \
+0.17677669529663687*r1104*Ec2);\\ndr0411_dt = (-(gt*r0411) - (gt + \
+g2)*r0411)/2. - i*((d1 + v*k1)*r0411 + (-d1 + d2 - v*k1 + v*k2)*r0411 - \
+0.10206207261596577*r0408*Ec1 + 0.17677669529663687*r0404*Ec2 - \
+0.17677669529663687*r1111*Ec2);\\ndr0505_dt = gt/8. - gt*r0505 + \
+(g2*r1212)/6. + (g3*r1616)/10. - i*(0.14433756729740646*r0512*E2 - \
+0.14433756729740646*r1205*Ec2);\\ndr0512_dt = (-(gt*r0512) - (gt + \
+g2)*r0512)/2. - i*((d1 + v*k1)*r0512 + (-d1 + d2 - v*k1 + v*k2)*r0512 + \
+0.14433756729740646*r0505*Ec2 - 0.14433756729740646*r1212*Ec2);\\ndr0602_dt = \
+-(gt*r0602) - i*(-((-d1 + d2 - v*k1 + v*k2)*r0602) + \
+0.14433756729740646*r0609*E2 - 0.05590169943749474*r0615*E3 + (r0902*Ec1)/4. \
+- 0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r1502*Ec4);\\ndr0606_dt \
+= gt/8. - gt*r0606 + (g2*r0909)/2. + (g2*r1010)/4. + (g2*r1111)/12. + \
+(5*g3*r1414)/12. + (5*g3*r1515)/12. - i*(-(r0609*E1)/4. + \
+0.1613743060919757*exp(i*t*(dw + dk*v) - dk*i*z)*r0615*E4 + (r0906*Ec1)/4. - \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r1506*Ec4);\\ndr0609_dt = \
+(-(gt*r0609) - (gt + g2)*r0609)/2. - i*((d1 + v*k1)*r0609 - (r0606*Ec1)/4. + \
+(r0909*Ec1)/4. + 0.14433756729740646*r0602*Ec2 - \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r1509*Ec4);\\ndr0615_dt = \
+(-(gt*r0615) - (gt + g3)*r0615)/2. - i*(-((-d1 + d2 - d3 - v*k1 + v*k2 - \
+v*k3)*r0615) + (r0915*Ec1)/4. - 0.05590169943749474*r0602*Ec3 + \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r0606*Ec4 - \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r1515*Ec4);\\ndr0703_dt = \
+-(gt*r0703) - i*(-((-d1 + d2 - v*k1 + v*k2)*r0703) + \
+0.17677669529663687*r0710*E2 - 0.03227486121839514*r0716*E3 + \
+0.17677669529663687*r1003*Ec1 - 0.1613743060919757*exp(-(i*t*(dw + dk*v)) + \
+dk*i*z)*r1603*Ec4);\\ndr0707_dt = gt/8. - gt*r0707 + (g2*r1010)/4. + \
+(g2*r1111)/3. + (g2*r1212)/4. + (5*g3*r1414)/12. + (5*g3*r1616)/12. - \
+i*(-0.17677669529663687*r0710*E1 + 0.1613743060919757*exp(i*t*(dw + dk*v) - \
+dk*i*z)*r0716*E4 + 0.17677669529663687*r1007*Ec1 - \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r1607*Ec4);\\ndr0710_dt = \
+(-(gt*r0710) - (gt + g2)*r0710)/2. - i*((d1 + v*k1)*r0710 - \
+0.17677669529663687*r0707*Ec1 + 0.17677669529663687*r1010*Ec1 + \
+0.17677669529663687*r0703*Ec2 - 0.1613743060919757*exp(-(i*t*(dw + dk*v)) + \
+dk*i*z)*r1610*Ec4);\\ndr0716_dt = (-(gt*r0716) - (gt + g3)*r0716)/2. - \
+i*(-((-d1 + d2 - d3 - v*k1 + v*k2 - v*k3)*r0716) + \
+0.17677669529663687*r1016*Ec1 - 0.03227486121839514*r0703*Ec3 + \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r0707*Ec4 - \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r1616*Ec4);\\ndr0804_dt = \
+-(gt*r0804) - i*(-((-d1 + d2 - v*k1 + v*k2)*r0804) + \
+0.17677669529663687*r0811*E2 + 0.10206207261596577*r1104*Ec1);\\ndr0808_dt = \
+gt/8. - gt*r0808 + (g2*r1111)/12. + (g2*r1212)/4. + (5*g3*r1515)/12. + \
+(5*g3*r1616)/12. - i*(-0.10206207261596577*r0811*E1 + \
+0.10206207261596577*r1108*Ec1);\\ndr0811_dt = (-(gt*r0811) - (gt + \
+g2)*r0811)/2. - i*((d1 + v*k1)*r0811 - 0.10206207261596577*r0808*Ec1 + \
+0.10206207261596577*r1111*Ec1 + 0.17677669529663687*r0804*Ec2);\\ndr0909_dt = \
+-((gt + g2)*r0909) - i*((r0609*E1)/4. - 0.14433756729740646*r0209*E2 - \
+(r0906*Ec1)/4. + 0.14433756729740646*r0902*Ec2);\\ndr0915_dt = (-((gt + \
+g2)*r0915) - (gt + g3)*r0915)/2. - i*(-((d1 + v*k1)*r0915) - (-d1 + d2 - d3 - \
+v*k1 + v*k2 - v*k3)*r0915 + (r0615*E1)/4. - 0.14433756729740646*r0215*E2 - \
+0.05590169943749474*r0902*Ec3 + 0.1613743060919757*exp(-(i*t*(dw + dk*v)) + \
+dk*i*z)*r0906*Ec4);\\ndr1010_dt = -((gt + g2)*r1010) - \
+i*(0.17677669529663687*r0710*E1 - 0.17677669529663687*r0310*E2 - \
+0.17677669529663687*r1007*Ec1 + 0.17677669529663687*r1003*Ec2);\\ndr1016_dt = \
+(-((gt + g2)*r1016) - (gt + g3)*r1016)/2. - i*(-((d1 + v*k1)*r1016) - (-d1 + \
+d2 - d3 - v*k1 + v*k2 - v*k3)*r1016 + 0.17677669529663687*r0716*E1 - \
+0.17677669529663687*r0316*E2 - 0.03227486121839514*r1003*Ec3 + \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r1007*Ec4);\\ndr1111_dt = \
+-((gt + g2)*r1111) - i*(0.10206207261596577*r0811*E1 - \
+0.17677669529663687*r0411*E2 - 0.10206207261596577*r1108*Ec1 + \
+0.17677669529663687*r1104*Ec2);\\ndr1212_dt = -((gt + g2)*r1212) - \
+i*(-0.14433756729740646*r0512*E2 + \
+0.14433756729740646*r1205*Ec2);\\ndr1414_dt = -((gt + g3)*r1414) - \
+i*(0.07905694150420949*r0114*E3 - 0.07905694150420949*r1401*Ec3);\\ndr1515_dt \
+= -((gt + g3)*r1515) - i*(0.05590169943749474*r0215*E3 - \
+0.1613743060919757*exp(i*t*(dw + dk*v) - dk*i*z)*r0615*E4 - \
+0.05590169943749474*r1502*Ec3 + 0.1613743060919757*exp(-(i*t*(dw + dk*v)) + \
+dk*i*z)*r1506*Ec4);\\ndr1616_dt = -((gt + g3)*r1616) - \
+i*(0.03227486121839514*r0316*E3 - 0.1613743060919757*exp(i*t*(dw + dk*v) - \
+dk*i*z)*r0716*E4 - 0.03227486121839514*r1603*Ec3 + \
+0.1613743060919757*exp(-(i*t*(dw + dk*v)) + dk*i*z)*r1607*Ec4);\\n\"\>"], \
+"Output"]
}, Open ]],
Cell[CellGroupData[{
@@ -6109,162 +8513,10 @@ Cell[BoxData["\<\"C:\\\\cygwin\\\\home\\\\Simon\\\\Nresonances\\\\\
mathemathica_fwm\\\\RbEquations.txt\"\>"], "Output"]
}, Open ]],
-Cell["", "Text"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[{
- RowBox[{"atomicdata", "=",
- RowBox[{"Join", "[",
- RowBox[{
- RowBox[{"AtomicData", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"\"\<Rb\>\"", ",", "87", ",",
- RowBox[{"{",
- RowBox[{"\"\<Kr\>\"", ",",
- RowBox[{"{",
- RowBox[{"5", ",", "\"\<s\>\""}], "}"}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"2", ",", "\"\<S\>\"", ",",
- FractionBox["1", "2"]}], "}"}]}], "}"}], ",",
- RowBox[{"{", "HyperfineA", "}"}], ",",
- RowBox[{"Label", "\[Rule]", "1"}]}], "]"}], ",",
- RowBox[{"AtomicData", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"\"\<Rb\>\"", ",", "87", ",",
- RowBox[{"{",
- RowBox[{"\"\<Kr\>\"", ",",
- RowBox[{"{",
- RowBox[{"5", ",", "\"\<p\>\""}], "}"}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"2", ",", "\"\<P\>\"", ",",
- FractionBox["1", "2"]}], "}"}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"HyperfineA", ",", "NaturalWidth"}], "}"}], ",",
- RowBox[{"Label", "\[Rule]", "2"}]}], "]"}], ",",
- RowBox[{"AtomicData", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"\"\<Rb\>\"", ",", "87", ",",
- RowBox[{"{",
- RowBox[{"\"\<Kr\>\"", ",",
- RowBox[{"{",
- RowBox[{"5", ",", "\"\<p\>\""}], "}"}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"2", ",", "\"\<P\>\"", ",",
- FractionBox["3", "2"]}], "}"}]}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"HyperfineA", ",", "HyperfineB", ",", "NaturalWidth"}], "}"}],
- ",",
- RowBox[{"Label", "\[Rule]", "3"}]}], "]"}]}],
- "]"}]}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"%", "/.",
- RowBox[{"Mega", "\[Rule]",
- SuperscriptBox["10", "6"]}]}], "/.",
- RowBox[{"Hertz", "\[Rule]", "1"}]}], "/.",
- RowBox[{"Rule", "\[Rule]", "Equal"}]}], "/.",
- RowBox[{"{",
- RowBox[{
- RowBox[{"NaturalWidth", "\[Rule]", "g"}], ",",
- RowBox[{"HyperfineA", "\[Rule]", "ha"}], ",",
- RowBox[{"HyperfineB", "\[Rule]", "hb"}]}], "}"}]}], "\[IndentingNewLine]",
- RowBox[{"StringReplace", "[",
- RowBox[{
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"ToString", "@",
- RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@",
- "%"}], "]"}], ",",
- RowBox[{"{",
- RowBox[{
- RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",",
- RowBox[{
- RowBox[{"Shortest", "[",
- RowBox[{
- "\"\<dr(\>\"", "~~", "a__", "~~", "\"\<,\>\"", "~~", "b__", "~~",
- "\"\<)\>\""}], "]"}], ":>",
- RowBox[{"\"\<dr\>\"", "<>", "a", "<>", "b", "<>", "\"\<_dt\>\""}]}],
- ",",
- RowBox[{
- RowBox[{"Shortest", "[",
- RowBox[{
- "\"\<r(\>\"", "~~", "a__", "~~", "\"\<,\>\"", "~~", "b__", "~~",
- "\"\<)\>\""}], "]"}], ":>",
- RowBox[{"\"\<r\>\"", "<>", "a", "<>", "b"}]}], ",",
- RowBox[{
- RowBox[{"\"\<ha(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
- "\[RuleDelayed]",
- RowBox[{"\"\<ha\>\"", "<>", "a"}]}], ",",
- RowBox[{
- RowBox[{"\"\<hb(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
- "\[RuleDelayed]",
- RowBox[{"\"\<hb\>\"", "<>", "a"}]}], ",",
- RowBox[{
- RowBox[{"\"\<g(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
- RowBox[{"\"\<g\>\"", "<>", "a"}]}], ",",
- RowBox[{
- RowBox[{"\"\<W(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
- RowBox[{"\"\<E\>\"", "<>", "a"}]}], ",",
- RowBox[{
- RowBox[{"\"\<Wc(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
- "\[RuleDelayed]",
- RowBox[{"\"\<Ec\>\"", "<>", "a"}]}], ",",
- RowBox[{
- RowBox[{"\"\<d(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
- RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{
- RowBox[{"HyperfineA", "[", "1", "]"}], "\[Rule]",
- RowBox[{"21471.788680034824`", " ", "Hertz", " ", "Mega"}]}], ",",
- RowBox[{
- RowBox[{"HyperfineA", "[", "2", "]"}], "\[Rule]",
- RowBox[{"2558.7643844958147`", " ", "Hertz", " ", "Mega"}]}], ",",
- RowBox[{
- RowBox[{"NaturalWidth", "[", "2", "]"}], "\[Rule]",
- RowBox[{"36.128472849452656`", " ", "Hertz", " ", "Mega"}]}], ",",
- RowBox[{
- RowBox[{"HyperfineA", "[", "3", "]"}], "\[Rule]",
- RowBox[{"532.3020344462938`", " ", "Hertz", " ", "Mega"}]}], ",",
- RowBox[{
- RowBox[{"HyperfineB", "[", "3", "]"}], "\[Rule]",
- RowBox[{"78.51782519116969`", " ", "Hertz", " ", "Mega"}]}], ",",
- RowBox[{
- RowBox[{"NaturalWidth", "[", "3", "]"}], "\[Rule]",
- RowBox[{"38.11730983274125`", " ", "Hertz", " ", "Mega"}]}]}],
- "}"}]], "Output"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{
- RowBox[{"ha", "[", "1", "]"}], "\[Equal]", "2.1471788680034824`*^10"}],
- ",",
- RowBox[{
- RowBox[{"ha", "[", "2", "]"}], "\[Equal]", "2.558764384495815`*^9"}], ",",
- RowBox[{
- RowBox[{"g", "[", "2", "]"}], "\[Equal]", "3.612847284945266`*^7"}], ",",
- RowBox[{
- RowBox[{"ha", "[", "3", "]"}], "\[Equal]", "5.323020344462938`*^8"}], ",",
- RowBox[{
- RowBox[{"hb", "[", "3", "]"}], "\[Equal]", "7.85178251911697`*^7"}], ",",
- RowBox[{
- RowBox[{"g", "[", "3", "]"}], "\[Equal]", "3.8117309832741246`*^7"}]}],
- "}"}]], "Output"],
-
-Cell[BoxData["\<\"ha1 = 2.1471788680034824e10;\\nha2 = \
-2.558764384495815e9;\\ng2 = 3.612847284945266e7;\\nha3 = 5.323020344462938e8;\
-\\nhb3 = 7.85178251911697e7;\\ng3 = 3.8117309832741246e7;\\n\"\>"], "Output"]
-}, Open ]],
+Cell["\<\
+Check that each of the light fields are resonant when their detuning is set \
+to zero.\
+\>", "Text"],
Cell[CellGroupData[{
@@ -6322,86 +8574,86 @@ Cell[BoxData[
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
-1:eJw113k0VtvfAHAZMhZJ5oTmkgyZ8z3b/ChjpIxNREoSEVcDiQaF1C2hlCEl
-pLiPQueQq8wSimR+nnOozFMew+/ctd73j7PO+qx91t5rn/0d1lY66r/Pi5uL
-i+sr/fz3djvSO7y0xCBeNP9wurWVCd2ybuPi8wwiR2nkwsxOJhxtaZvaOMsg
-GDf+VfPUZoKPRd383lEGwfLrBjMTJgTuYAo96GEQJ7+UK25yZ8KNP7Gb1MoZ
-hF5gwlrPBCa8TdD1OBzJIA60umt3cJggWRFXT/AyiFAHE2fOt2KwgPaLhybN
-iQvNt13le9+BjM0Mv/C0GVE94ScuuFQKW4IiSt/MmxLriV1xhA0OeUVZJvrD
-JgSpTZlsEi2H1htpT+vHjAmdE3Zd369VQOBfWi3QY0RseXT+guKBSrCJ1FbP
-/YIIl1o7SWHXKrirJ11n9xojwvkeZ8eEf4LQzD8d3ImGhJUw++7GtbWQphuV
-1HDfgHh9kyvpA1UPxrPsvLtZesRWabPtWpFN0Dx86YTkTR0iI9UyN9uvGTJE
-Kr4UJGoRrU8tLouEtMCxI/r9Amc1iZovMzJ+M22Q2nfD0sVFnWCXBn17UtoO
-mpKC+I16VYLXAB2vTuoEgVYfrW8J24gOPiPrHZxuONwnK+z8aBPhOn6ZV+d5
-L9x119tu76RMhHZ+qsm51A/hx8TG/zKVJ5yyL6en6LDgzqnQCfmN8kT8Li/l
-PEMWPDvXN1nGJ0+YMpz2l5qwoDmmcGapSo5wOcEqbLBlweaXBxeuWMoRVun5
-PjXe9PhkmkCsjSxx+3O6gOR9FmyNVl+XclCaaMw810qMswDiHioa6kkTXVIX
-Rw7MssDxAY9yl4w0sVt6VebQAgsuvmjdoPhdikhZ9Ma5BdnQ0hC6LcNdiogR
-rCueV2DDZakKrZdHJQm14z2LonvY0Ja9z6r0lAThLaMrFpzCBpc1ogJv90gQ
-GRr/hHY8YUNXRO2Hoi0SxPbBq366z9hAupga5A+sJrbX83zqKWDDrIj2tqdu
-qwmFJP41fVVskA2QEbhmJU6MBurEpI6wwUOv54ODihjxIqV/ea4BCX2ZKZfs
-hMSIOb7Kzh2IhPoNr4MfNokSVWK/BrNMSehqS/e6xRAlAjYoR0ZYk8BlEGMS
-qLuSGPq2/t5XDxLMeGyWQFqE0ADtqsVLJDQkfg9u+8pP/HvVastsCQl4guUG
-hwf8RMuuETFNnIRXcczPjQf5iawwPvXjFSQk3ExUqW5fTvyu51oo/ESC45W9
-fSXf+YggYbcVky0kdJwtsX7SzUOk68vFjP8kofbMVs7aNB5C7cYFMneYhNLT
-97MfHuYh6uJi5Y6MkZDqG8hzt5ebkNP+l8ybJuHw0e1vo/uXEYU6yYEkFwW1
-6dqW3xqW8MCN8pkfV1Pw8rF4xmfbJVzR+EHBwhoKbicPL9Y0LeKTQQcNt0tT
-YJeYVVjWvIDLlDThp+QpaIuUVExv4+DLepJHr22goPjieFjKAQ4ekFAaHLaJ
-gqSwhtZ73+bw0NeGB49tocDtbPTNax1/8NOOuLycCgV9R6an/bpmcIUjZgbK
-mhRUujfbex+awQnzs9sbdlGQ6Zz38nDPNF5yJ/FAgDYFPvbHjzr0TeFFbi77
-U/UoGEZt9brsCVz7r7TomxgFTbtfb9HwnsDXCN2fGkUUFOjevrKdGsfH1Iqv
-WhtTEKRmrqcwNIZLERcWfppSMIGdsuTvHMEtmo9xyiwpmLSO3zbTN4wfrZt+
-2LaHtmuhMDn4G78tRD1i76UdMl9fNfMTp5J6an5Z076qmP/P4hB+bPrOcJ8N
-BVOJpvFZfEO4SOUfvyZbCqbzY/dFr6Zwyyie8wn2tMteaQbLknhXYf+i5z4K
-ZmpbJI4rsXEP9nj7TgcKZkn5r2Y7B/BGy/6rOY60p1CxlnY/XrLjnoPbfgr+
-8HglbTTsw7uvSfnzOlEwty7XlW9vD+4ozLmuf4Be3/Vp6FB6F37Vtzz6E+3p
-kCGDmoJOPPG9cp31QXq9RI3F53gHHmPO5VxDezY/jLhe/w1fM2WtAs70/LUV
-kSe+t+GVQeJmz2nPkUJmloMt+C5V76fCLhRweBz4t84043lW5028aM+vS64W
-4PuMp1REbf6H9lxIldTnjQ14knWX9eJ/4/lOKfFGNfiasMEiQ1cKFkm2op17
-Ff4oa+2hINpL60IyRUMr8DfL+Syf0uZ+tdLx0dYy/Frm7sCPtPkUd7qvPVKE
-3/MO+tFPe5Xi4zpd9Rw8X8Q/Zoa2GhdR5ofu46rq3AHcbhTwLs0GH4y+hHXY
-SD7kpd2OPZqvi0jHjpVlcS/S3w/mq57zvl6Ahb8ufzFMm4WtPEXZv8X+Nrp2
-p432GBlcsOsWgam7qr4roj2Sz1Y5F1CJ3aidU4ql/TvEKbto/yfsop5FjTPt
-n1jV+mm9Osx7w+U3CrSneJJt5USbMLJ3Q1cHvf9Jct8tg2XN2Lbkj3tu056o
-Fap1nfiCTViumNOlPZ5fIRDOasW4inJ/ddD/eywxzDzl61fM8FTg+iDaoyEa
-UaXV7VhlpcFjXtrD2NOl+dwf2F6fZyeE6fP7vd7FcG1aNzYheOxdxH/nzXO9
-TKG6B/MYtnccoeNjmkQcKOnDWp989HlFx890u7ysbWE/NiY+z+KhPVU7q3so
-dwC7Nf++wIaOt8n8V8GXHrOxD+VSBjV0fE4+ib0X94DEcjJGOHN0/E4k+hQ+
-TqCwgYX2Vetpj4cojuNXhjC/sV2mznS8j2Lxflw+w5hIteqcO50v5yU/v9UI
-HsGimnzL1el8ujwtcEXDeBRrcGn04TAoEKy3bPS0G8N6k908z5hTIBtW6119
-agILl+Dx7aXz14P181bfxATm/crmlied3+l2IoWcsEnsnF1nzg9DClQ2W3Op
-Xp/CTnyRHyrQp8CwpeHBncwZbNZaqrOPrieR2Mj7HJVZTELhpaWkBgVVL0RZ
-lW9mscQ/r79gahTYRNipz5T/wZ7VnLU9R9ejw6rN1a5dHIy87nzSl65nRpW+
-F+4Ic6Gz38VzI8QpGPgTJrbOlgtNejF0ZcQoiN55Mz3nDheKnC/TfLaCgpqH
-OdWVMsvQLP/xxCwBCvYF/Fozs5kbZYzqP9VcJMFT4XSeqykvmpFqzoolSVju
-eNGIiuFFXdwctdsDJGRfv90SVMuLSg+9uxvdS8Kvyby5W/v40HiY0HK37ySc
-qx0xJw4vR7ot/oceNpAQfT6ge8MFAcTlo5t58g0J6HrsbtVSAXRlMMpF7hUJ
-c0nPknQ4AihBueHKh5cknC754bAnVBBN/I60XsgkwWnR8pP/OSHkO+VwUeoB
-CRujlAve+YmgPemCV36F0f3w4wmjLTvF0O+cw+VWdH/E7GZGXtqIIRsP/Slp
-HRJSvkU9Uj8thixG997s0qDnG3zM0c8VQz2k8+L+bSTUCLUVWW9fhXZw5/ZP
-S5Pw2tp4W+BmceQ/W9LNP8WGyC+yq9+vk0A/1K7ff5LNhjOzjvykkQTimQ/y
-wtLp/rw2jiPqKYEqfge/bEtlg743z8CRbAkkQ15qHrvDhom5n4V86mtQz4ml
-4u/hbPBULnOyNpZEugbNjTG2bDALOPSw01Mayaj4l8aPskBANEOJ81we2bWe
-chxYzwJ7q+O+m6OVkYHu5vfOJ/sh2Th7YK3/JuQRr2QSUdYLgrUXJFJfbkOc
-1Y11K1jdMMm7jEU9UUUBYddMbUo6YWp8kCfNSB2JeGidtu9uh0iVtaNxbpro
-aVGUrLX4V2iAZyrHHbTQEe5nmg7vW0BFlvPhcpAO8ipmV7650gyMhsyciAA9
-dAaShXPzm2Bw//nd1zwNkH5cnq+VdgOkZEls+RJhiA4sE7swqlkLK5v4PXn/
-wlDylXBspPQTMI4cXdjdiNALpdNj6z2rwKrSMXXuuxEqtBVV+exRCfmJZ71y
-2oyRZXX51XWFFZBsMeVykW2C/hm9LCYlWw5s7/TzpgOm6MeChKFZLA6TASzf
-FT/MkGy9xYNInTK4eTj2xuyQOdIdyDmoNPkOIko8mtvYFmjV1h31tqJvQbqq
-KdjgpwVaHVL4ZA//W3jVZCyXNmKBEvbMKlguFUMXa5PniVkLNOK0T9h+pBh2
-i41McQQZCI2TZ2Ibi2HW85KM0g4GaovvSsuPL4bTK9MOnwxkoBRHW6+kNcWw
-XEacrymEgTo/abjyrSyG1PVRz3eFM1DBHdu3QcuLoU7XZ3whioH++hWe5T7D
-hG3H1KLi/2agwZSBlQfbmcBiEs+K3jLQC685v9+pTAiv0LCSfc9A1HQYd9zf
-TJCozxi9WMFAuDi7RzOOCcZ91/QYtQwkl7c6KOYyE9JE7Gs7OhnIfL82sf8Y
-E3SlPvhjvQykUHbqzCo3JjQqaUlksBgoL63TtcmRCYvaMu5+wwz0S2nzjwPm
-TPjb6Oay5nEG4u0+5q+IMWGH1UKm9gwDxbg+0vqlw4RKJ/89yRwGmk4WUi1R
-Y8L/3a/Q/9+v/geqCtre
+1:eJw113k0VV0bAHBlHkIlUyoNClHILM/Z15BLmYdkJo0vlVRKSoZUIklvpAwV
+UapL8V4ynJN8IpEkUaJw7zkUV8ZbxHfetb7vj7PO+q291rPX2vsZ1l4ddNhl
+z0IBAYGP9Pfv3yfw28j8PJOIV/7rerIGG3qVfcaWzDIJ6wpW5fRmNgS1d0yq
+8ZlEX37FoWBDNuy3eTO7fZRJeKuZnbG2ZEO4Nlsi4yuTCJXj+a/3ZUPir6T1
+Oi+YRJfdX37BqWyoSDX2C4hlEpKHyyM/zbBBvjalmRBiEvXddvkzneVgA11n
+/Se2EfmDXypVvj0HJYdpUckpa+LpjwOXxeerQP1YTNWzWStiu1HmhhcOODwp
+u29pOmJJSGtm3V8v8wI+JObebf5pQcjkifp2X6yF8NMG7fCVQbznr1VbvbMO
+HGINdR+/R4SUk8GkpHc9XDdRfOP0FCNmQwebL0Y1wKn8X58WppkTTe4v1m5Y
+0QS5xvE3W9LNiLJpl5L/UM1gwec+uX7fhEjdUXHdMLYV2kaiD8hfNiIwPjP/
+YWgb5EnVvi9JMyAUPLbry0S0w+5A036xo1sIpbxlvCPTHZDVl2jr5aVL3PDi
+MQqqumCLvDie2LyJeDwc+Kn1ZjeIfdhv0JmqSQQUMuqMZnohoE9Zclf2eqLM
+MkMRHnyD674mG5091hBJr8J8yqL7IWq37NhpKxVi4ZkvQg+MOHAt5NS4ipoK
+0RqYduW5OQcKjvdNVAurEILbPd40WHKg7ULp9Hz9ciLdNJHx2ZEDGx55/omz
+XU5c4eWoftxHr0/kiiU5KBM3KlQU1qZzQCNBd9VtT0UCV5e92jLGAUjJVDU3
+UST+SW8o3cPngFuG4JoeJUXi52ux4/w/HDj78MM61c8KhIJlSZ6sOBfaW05p
+5vkqEBkLrjVIrOLCOYVag0dB8gRh8SNopR0XOgpddlSFyBFOM9pK529zwWuZ
+jFiFnRwhzrqbPHiHCz0xTS/L1OUIC0Zgkk0BF0gvKzPWwFLi+lTeLK+EC3wp
+Q827PkuJkJ2tx37Wc0E5TEns4o4lhNSeW2aPeVzwM/n60lVLlphdeMWn2oyE
+vvzb0U4SssTiiBVbAZHQvO7picxWGWKoiHRhW5HQ03FvTzJThvj8ynQu1Z4E
+AbMLluHG0oT7YLsh5UeCtaDDPChKEX4+h4plzpHQkvb5RMdHUcK07mO6eBUJ
+eKrtOtcMUaK/qOqCFU5CcQr73VtPUeJIsTAropaE1MtpWo1dIoThfaNL9Q0k
+uMVt76v8LEy4n2eUCX8g4dPRSvs7vYLEZKndbqEfJDQd0ZhZkStIFPgNNeIj
+JFQdSi/MDBAkGAlqQuE/Scg6GC54/dtComZvbDcxRUJA0MaKhP4FRGdPc/Qv
+AQqa7hnadrbM428NOru7llLwKGdJ3jvHebwv6eiIjDwFV26NzL1uncMpBNHm
+ihQ4pd0vrW77g0sJ/i0ZrUJBR6y86r2OGfxVibHjrXUUlJ8di7y9cwYfON7b
+lbSegpuRLR/+7vyN99i8x4+rU+BzNOHyxU+/8NDO+SRtLQr6AqemQnum8eQB
+XqX+FgrqfNuc9/lP43qVwsVf9SnI3/XkUcDXKTxYcLY3zpCC/c57g1z7JnGp
+OzoclgkFI6ij2Zg7jvtLBqzLxiho3fpUXW/fOG4jl31DkEFBifGVuI3UGJ6A
+xjQCLCg4prPNZOXQT9ze8mvBnBUF41iIrWg3D2/avaqk1ZaCCfurmtN9I/jU
+AxvXQTva3qWS5OAw/kXt+a5f22lHzDbXT3/HrbtPJs7b0z6vyvpnbgi3W3Sk
+eNKBgsk0q6v3hYdwOCmq1+9IwRQrySVhKYWfKzBAec60q4u3nFAm8ep08cYI
+Fwqmm9rl9q7m4jxtfr6FKwV8UuWj9eYB/PSGg+41brQnUbmBYT9OadesO+xO
+wS/BPTfVzPvwRN0WhoIHBb9XPfYW3v4V14lK8bffSe/vfffU0L0ePGYk3/cz
+7amIIbPXJd14Vq1FXoAnvV+a3twD/BPupWej94U2nxVJXGruxL9pFog476Lj
+N9XGHvjcgTu6HFCtov2blLC2HWzHKamCsyu9KJgRdBXVmG7Dp2KSVE/Snl11
+q1FM+B3OyPUUbqT9O6Je4Z1aC664xldrsTe9zvK4fZXxGhdInbvuRHuO5Ko6
++dbjY8xSuEB7flVEvsypWtz6tJhGGe2FxdJu2RrV+DrdDNdPtIVVN/uuCCzD
+s+yX1kzRXqya88ZYtwgPSNm6X8KHAh0BojoUpeNTqYPOy2gLzfNPeCZEY89a
+Fp5WoN2FZc++ibmHbcmK65elPcjadHzfpRLs0JbIywtoczDpEMq5AgvLFw0f
+pOP/JE+U6CcTWOGAf2YDbR6Lq3U8rA57VdO4IIf2cIRHYZl7A2bfnf0ghPZ3
+rH7tlMkb7E7N9mu6tCcFbzkul2nFGqodq4bp85ggXZLNFrRh/wibq9+hPd4k
+0eQ9/h6zSSvv2E57jFUrFsX5gBXrRDYM0+f9My1y2+2PH7HisB1zCbRHI/Ti
+qxq7MAeW1CkF2iPY3fnZx1+wDAtNxkr6/obXepmvyO3FOvk5V6//e9+Cl6pX
+Nn7Fbgbqayz81ySagco+bO15tulLOn+mulSUHUv7sb4R13/kaU828Y39Hw9g
+JV4HzwXS+TbBKj4RncPFUI+WyBc6PyfuJP2dkkFi7ouW/2cR7fG0/aU5qRSW
+4y3aZUDn81iE6hgeN4St3akhGkLn+yh2NVRg/wi2tKbm2RG6Xk7Kv6vQO8HD
+fLWNTlrR9XRuSixOz2IUc0smVKTpehNvtn0b7PQT2/nHaUncNgqUI5v2NYaM
+YyqZHIkJRIEf53ty3/g49rv6qWYEXd/3nKRKZyInMI/2h9aj5hRobbAX2HRp
+Ekv0Ph1VZ0qBeXtLxrX8aWyXfbzfJN1PYjFeTZEWHzPVG3ilrkdB/UMZTt0z
+Ptb4JMfeRYcChxgn3ekXv7C9VeeJC3Q/CtjU1ujdM4Nd28lqjKL7GaPu4Jlr
+kgLo6Mfub2lLKBj4FSm7ylEAfdKN2bdRloKEzZfvFV0TQJJFTr4Viyh4nVnU
+WKe0AOWrHyopF6PAJezHsukNC9FohVGh9RwJwSsPPfG2EkL2hr9OZpMkiLid
+ZVAXhNDbL46zOQMkFF660n6sSQjJftfYlfGNhB8TT34nuwijkDcnqkI/k3C8
+ibeNCBBBqd1T/KIWEhJOhvWuOyOGHl5IX3DmGQnoUtLWTVVi6HnYKZZWMQm/
+bxbcNJoRQyL+tu/aH5FwqPKLq90pcVTD6b0sfZ8EjznbhsPHJdCR2YYs9QwS
+1OLXlDwPlULzLcuD/kTS8/DVAYb6ZlnUYbRV3peej5jTNO+RgyzCd8oyNIxI
+uN0Zn617SBatSV7cMqJHxxvMmTF9LIuShns27dUk4bVER5n9xsUo4I8+T0SJ
+hKf2FprhG5agNSoROQqTXIh9r7y0ZpUcuqlmXVFcyIUjfDdRkiGHjCWMoxzu
+0fN5RcqMTLAcajAwKedkccF0n+BAYKEcUmNpNAikcWH89/dSYd1laHePauxQ
+FBeC11R72FvII+fpQrjhyAXrMP/M7mBFdCak+2j2KAfEZPJWzzxQQQr+LddG
+13LAecfegxsS1qCc+CTd3X/1wy2LwoEVh9ejOO6yIxerv4F40xm5rEeaKOxO
+j7YipxcmhBZwqDubUJGAw3v3ym6YHBsUzGXoosb+78MevV0Qq7ViNMVnC2oh
+beiM/ggtUKC119UA1XomCXnUtIOW8szLc8eMkIzNorqyuDZgtuQXxYSZoKY7
+vHNPWK0w6H5y68VgM8TySk1zMGyB2/fl1N/HmKMB2z6ZsS1NIN0qGix0GkP7
+AyZDR6sagBkY9GfrW4SYUcHv1gXXw446t6zfnxlIcvRU+zu/OmClHd1T1GGB
+vi+dFVUtrYVbNpNeZ7mWqIA/Ea6g/AK4++6dtBqwQq8aRbqsk3CYCOMcXPTF
+GiXaS8vFGVXD5YCkRP7QNnQ4raFi9cRziKn0a+vg2iARKe3lTjIVoFjfesLs
+uw2y9DrAsxOtgOJWi+W5PBu081xQiO18OfRw1gcf4NugOU11T2deOWyV5U3O
+iDPRmtcZVUlvy4EfHK20WpuJ/Le5DbGulsMh6dyAv8KZaOOVCw9vLisHEaUl
+wq0RTOSTrpErLF0OWWvjH+hHMVGAifDcMZFyeGO8f+xPPBPZyJcM+U6zQXO3
+TvzVG0wUt0zJxbOLDRw2UVBWQXvLVtZwFhuiavV2KNcwESMz2jLlBhvkmvNG
+z9Yy0ZnWx6v1U9hg0XfRhNnERHt8g0ovnGNDrpRz06duJjIa/XvefTcbjBVe
+Hsa+MVGTfiprsQ8b3q42kMvjMNEPnfrMVjc2zBkq+YaOMFFqzq3lntvYcINx
+eUHbGBPp6mc/VsXYoL3jT77hNBMN12aH/zBiQ53HYbtbM0xk4frur0odNvzv
+fYX+/776L5ggzis=
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
- PlotRange->{{-50, 50}, {0., 0.000011615488633854644`}},
+ PlotRange->{{-50, 50}, {0., 0.00001161562599381132}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
@@ -6464,86 +8716,86 @@ Cell[BoxData[
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
-1:eJw113k0Ff//B3DZi1AJiUKhVEKE1GveRK5QUinJkiQVIkmUXbJUlFbKvWXt
-g+x90mImpCz33iEpKXEtt5Cda/edzzm/3x9z5jzOLK9z5v18vea8lV3P257i
-5+Pj+0od/52Pn+gYWFigEfkqWfKvR1Phl/zxkeWzNCJoo5H3gdlUcG1qHled
-pBHYD58t/YJ08DCvn7UcohFOXtnjm2To4Lfl3yUP26nr8PlnkwEd4qZuqGm9
-pxHDJg13mSF0KLtt4OQSQSOMrVbHFgszQKYigUkI0ogT6FQ5mcwAc2gJcR7b
-QxixZ89Z8Z7Cqn08EbEJMyJ5By/uumsabLgY/rZ41pTwFAy9YT2YDi9KM3fv
-GNhN8EX0pIs0ZsKXOMYz5rAJkSoz4CrPzAa/K3pN0G5MtD2wtZXZkQP7IrZr
-531GxBX+kN6MwTy4ayhXb1OEEcHnxCs+uBdAYMbUd/6kXUTcSqWUrE1FwDCI
-esR6YET8fWTzem5pCZhM9ry4m2lI8C4rCneovYTGgdAzMvH6xBeXg9/58FeQ
-Ll7xuTBJj0jWfuGZFfYGTp7Y0Sl6YRvhvdXHu6WrHJ5w4iyOHdMm1l3pOqt2
-6D1sk1mMxzE1Ca016/X0zStB9IuH3rfbGsR1/4i44nsfwIUjL2afqkbsSXod
-XtX2Ee46Gm46YKdCFIoVZ6u71cLVk1IjV0wViLT7Kt9s3tfDHc/AUQVVBaLX
-pvh+bk09ZPlzxt4JKRA1whFtAo310Hi9hLdQvZq4rvqzJZ1TD+q5R+ciLVYT
-AWduauYLMKFxjCF6Y5880fGV8+q7KRM2RmuvfXxUjjgjZtykX8kESEhW2mUo
-R2x4J6b5t5YJhx4KqLStkiMGNRbFPW5kQsg/X9YrtcoSX4eGZf50MKGJFaiR
-7ihLmNQEaRjwsSBMtkIv11WGWFc36JZmxILmbFurt57ShMNq309H8lhwbKWk
-aNleaSL71D31mhIWtIXXVZZukCZyO7NztN+ygHvM1Ci/awWxLJzTxa1lwaT4
-do1nx1cQdsdWeHG5LJD3XSUaY7WccNF1D1JVYoOTYXvlwc1ShPu+gde6sWzg
-ZDwOtVkiRWQ1Pg/ySmADc33RpWRSkrj7UDwq5R4b2prTTt2kSRJnlF8ZfX3K
-Bj6j67v9DCSI8oCasroyNpgJ7FsAOXFijuPJ/4TLBlZS66XmryLEy+dfUkwU
-ScBvW6w/+FCEqPLbbxqyloSChH8b2EdFCNU2yVslyiTcjk/aXNMiTDxa9HpE
-So2EQ5GWnDetQsSe+0phMZokfL/wxvrpLwGCYdZX7Q0k1PlsnFFkCBAPupd6
-2CIS3no/yE52ESCiBCzctExIeHLWT+BuBz8RIvvbsdWMBBfXTWXRnYsIlcy9
-3H4r6vm07RbfWAu4RpCvwIw9Cbn05ekN+xdwP3fH2AgHEm6lDMzXkvP4hPyU
-pqAjCTZJmSXvGufwVyvn68adSWiOkFFKa57B2TqrR2+fIuFVyEjQ4yMzuEGc
-hEKvOwmPglhf7n2bxpWCPS13epBw/EJ0fMz3Kdy6uLCQdZYEzomJCa82Hh5+
-S8M65zwJVY6NB0478/B0py77zz4kZNi/yHVpn8CDE7l2474keBxwdz3IGcdV
-J1/Iql8kYQA1Mw16RvGWC24+xpdJIHcWbdA5PYonTGq9MQgkodDgVuSm3yO4
-+XqPzo1BJFzU2mO4pncYX1OYXjl1hYRRzNNC5McgXr1SO35/KAlj1okaPM4A
-jhe9KVkWRtmhRIz75y8+1tP9h/mfA2aZ1bw+nOFa7qMbQfmaUv7L+V5c1tIZ
-b6M8nmSamCnUi4sqXlsRGUnCRP4N2+gVv3FLpcbqsijK7wq2XZLn4p19tuus
-rpHAq2uSdlfuwbM6xcK+UZ7kKnw129qFh27z0PsVTXkcvdLb3omnCDHj7a+T
-MCVw6pHqLg4uIvT3J5Py9No8ByHLdtzRyNc3PYaq7/AssDetDY9IXCgQjqXq
-BfQa1Rb+wCPsn/x2pcxL0pl/jn/HueFhsmWUJ/ODiFjmN5yl0r9zcRz1/rqK
-iDOtzTjvmtbRg5SnuUvMLP404Vs1cjweUJ4ROCiykdeIM6qrvb5Qnl2bUiMq
-1IAvWM+4L42n7g+olm1QZeGRw8yDGOXZfLvHica1uP+6hm3nKM9ze5RsHKvx
-m4/ShW9TXlgbkCEZWIEL7h+vK6DMXyBxKHXjOzw8OjiylrKQ0lZHxROl+J46
-wS1tlJcp0esNtHPwzBHnT32UtfiId17oAd6m4Ht4lLLgwuSlo9GhWGmpetMY
-5RYsdbY+PA3jXgwzHaL8J1/T/3RsIbbO6VpmN+VuTMLz94EyrIuwnm6iPMy9
-VKh7k8CG9eexcsqD+T2b/X2rMK/sTwFPKf8NsMsuPfwJW2zc/zSEch9WvW7C
-sB67fLm0/DDlcYGU/aslSaxVLISlRnmMa3vTaFEjxp7NbRimvtdo3ZI6h9HP
-mGXCy08vKY/kV4he7f6C8ZsrlPhTHk4K2vP461esrMvzribloQCdqLc1Ldih
-k6ZnO6j1GsCeLczm/cTmpg2ndCn/XXdslyLjF7ZSvLH4C7X+EwKx79bUtGP0
-7i53n//MRTPwhoMFZS2UJVF5mWhRkN9f0ol9Kut1UKA8Xjdp4JzXhRm3yUyn
-Unkbyy+4FErvwc48jtl6h8rj2NMb9xIecrGB/lU1/JRHkzxK6Ld/Y7sLI096
-UXkeCVAawSN7se0cYYYWlfchLNGLz2MAe2GZ43Se6pfLMg1lOpcGMefihxl0
-qr/CJkQjdUyGsMYl9L5PISQsZlqw3WyGsaQ4erBwMAnyQXWnazxHsZPRnVNb
-qP516u67yRkdxfgdEgPVqP5OsxEvmQkawz6UeonJBZCwWd2aTzN2HHNWveXT
-Q82DXU2sh3cyeJhfQ1+CFjU/IrDB8pzNk9hGZY2hYW8Sqv+R7K4qnsTWhE4F
-5nqRsC/cRpv3fgq7QzeUXXqOmo+ajTUObTOYs9qx5qvUPDOuOht8R4wPbb7e
-d2MVNR+7poKk1u7nQ7amxZvOHyEhemt8Ws4dPtTcILG1/DAJtck5NVWrFiEf
-ZbeLNFsSbH37V/LU+RHRsXBBwpIEtzXeLxxMBVG3YJ6RmxEJwodCjH9fF0TG
-Bnk7bQ1JyI691XSxThA5PnXtN9QnoX/sxfRNWyEUluPoOaFDgn/d4B7CRRh9
-MI0LW69B1b/s+2t9sCjaEWpfbC9LAoq9sVPzrSiSPr3MWnIl1Y+Psh7pz4gi
-ubVGRfhyErzf/Dy4N3AxaifmhqUkSLCbt/h03n8JOjzPYvkLkqAapVL42ksc
-1VT2PU9up/6HH88Yb9gqhWJ7HcvyY9iA2fAGc/dJoWd/ivw6Itjw+FtUqra3
-FPLVurliSTAb7P7QZ3bkSSH1aFlt5MuG2iXNpdablqHJuY8qxvZsKLI20fBT
-X45ep/LP0tXZEPFZfkX5WmmksMZeb305C3wmD4lwjaXR/ZWshtKXLHBSTJiR
-dJNGZX1Xr0A+C3acFug6kS2NFuXp6OkxWDA63VcipL0S6dkJTpeFs8BN5Z2d
-tYkM8irtT9bczQIzX+fkH25yKPhAefQ2ggmikunKM88V0DunCp56Zj0csHI/
-qx6tgnYd216xi1YLKSbZXYrn1VACvTU5cfojLK4Lln6Sq4EqUa75/egPMCa4
-qPv3U02U1Lp8SsKpEsZH/ggwjLVRfn913Ntz7yFis+JQwvFtqPLoczvbxTiw
-IGuz+0E9FD6p6q/b8QY2y89Uhl3UR2mSw9Hkj1dAY2XkhPsaogpJI0Wa20v4
-c/jyzhg3IxS+kbOMZlICjzOlN3wO34VoXSEu/EZFIEGKuAlewdDHnj7BNXcK
-gHbCdW4nG6G+Kt3ujpk8sKo69GS61RhZb5JoO2eaA/lJF07lNJugFfcF5XVF
-nkOK+fixkJ7d6IBKTM7L9kzoOZ122bTLFKWQ+x0S5TJgzLf77NKfZuiI8RVR
-t5g0iHe5ETfZuweVsrfsERN8BuFvnBqbe8yR2be4Aj2cAXLV5CWjPnN0f2+a
-ZXMZAwpIk9WMQXM0dNXheGAJA9q61dzOTJqjBN1FLdXPGbBTanB8ZjENXY8r
-lA29y4BJt9BVyltoiPNK78LJswzwlmC4nPOjoWivbNERWQYIr1ouRAbQUOgA
-75+25Qx4si7que5VGlKotH/AXMqAegOPkbkoGtJnrLEoEmCAxkmtqMT7NHQ5
-vvbbll906P6XyCoto6Grw/3rHybQ4WqFjpV8OQ3pJNVeKrtGB2lm+lBIBQ35
-yXZv+3WFDiacGENaHQ3tb23o1vegA0P8QN33HzT0K/4vR9GYDgayleexDhoS
-U1xi4apPB7aynnR6Nw0hp0ThnC10mN++ytFrgIZKrSVDLOTpcN84flHjCA35
-/Ku2jS5Fhy1WcxnbeTR0c1+33pQwHarszu9NmaEhqYttkUfmUuH/9lfo//dX
-/wP7xsvK
+1:eJw113k0VlsbAHAlU3WjklmmpHCVqSieswm9lCJjiZAK15AKJSkSRWWKJlOJ
+dBFJvYTOCVd40WvIlKQX7zkpwzWL8p1vre/746yzfuvstfezzvM8e6+t4O5/
+6MRyHh6eTvr57/uo29fRpSUG0bXD+NhnVSZ8kTo6sW6RQfDl/oUYmkxwb++Y
+Vp5jEO/vdha82skEz72Ni/vGGQSll6J1z4QJZ/9krrzXzyAO578UCHVhQsz8
+zc3b3zEIk+fivEQiE8oS9FxcIxiE5YxDqPEvJohVxTURKxhEGUOKL6ynFPZC
+d9ixKTMiJV6H1c95A5IHZgVWzZgSnXoFEeLLKmHLufCKl4smhFn87W2brXF4
+/ipnz67RPUSmtsOdRJF38DEm83HTv8aEHetk942YKjh7Ubcd+o0IuflYvc2H
+a+BAxA7NgjZEqF6Vdwh1roU7+hKNVsUYIVG8lBJ4uQ4uZM/3LE8yJCJ7kxoq
+5FmQqRd5v/nubkL27dsKhZEmMJ7jPr+To098Htq8oy+SDa2jl73EYncSfWW3
+R+ZOt8KT1VVtL5J0ibSJHRKKF9vhuNuuAcEz2kTcDZZCwmIHpHFizI8c0SRk
+bbW8N1R3g7aYEB7TpEH4l0Qn4o96QfCjp25XgioxkRzSEbe8H1w5UqsOp28m
+ltJ0e8wKv8IdZ301a3tF4qrN59d/RA9A6HGRiYsmMsQRo4rrjmgIEn0uTMoo
+yxCz0408/mZD8DSQM1XJJ0OE1zxUi9g/BK3RJbNLtdJEeOrHoHTHIVDJd/x1
+1VyaYGQ9Gy84TX+fyhS8eUCKeHRY/oN85hBsjdKUS3WUIObkvqdJLA4BxD2Q
+N9SXILIVI8+VLOOC7T1exT5JCeK9q+zgPgEuhP39cZP8J3Fi5/lSb991XGhv
+vqD6xFmc2HjeTSZkCxeuiFfp5ruLEcOr2IxiGy505B7aX+EjSths3ldyLIcL
+RzYIC5ZZiBKuxhtb6/K40BfOqn61RZTwe14aqPaCC+QRk92Fg+sJl7wZhc/l
+XJhbvUP18dH1RE1bbvc4mwtSAZKC1/evI9IOCGux57ngot9fbaMuQhx65nBc
+yYwETnbqZauVIkSA00bjXAsSmjYVBz1gCxPJ4jPWygdJ6OvIOnGLIUx8XVXS
+K+BIAs/u6D1n9dYQdcNL0b5eJJjyHlgCidVE0/WLecUxJDQnfQrq6BQgwhvn
+sji1JOAJ5pts7gkQzqKy4fINJBTFMVs+OAoQ3xvmb9s3kZAQm6Re381P/BhR
+V8xrI8H26j5O+Sc+ouZRgd/0FxJ6zpRbPvrCS8RFSIgIzZLAOr11QTaTl3CT
+RdO18yRU+N3NfeDKSzy/3ZoTukhCmvdZ3jtflxPqFn86flhGgau7WlnUwDLi
+dEKf3drVFLCydph3NS/h0UoCvLxyFORnrHvScnAJ/1BbILNbgYLbD0d/N7B/
+48EHBwq8lSiwSsopqWz9hdexVm8qUqGgI0JMPqtjAb/r9aSvbRsFpWETIakO
+C3jZ4WTt95oU3A9p/pjc9RNfJ8/T+0KbgqNnomKv98zjo/tixHx3UsBxm5nx
+7ZvFZfmd3oUABTXOrdanjs3iObbRaAuiIPvw83zX/hlcaXnKZKMRBZ7WJ91t
+ONO4QsoId8GEglHU0aTHncQ12E8fjVlQwDYo3qJ1ahJP3xPtYr+fghd6t6+q
+URO4zcYjOiWWFJzbbqa/cfhf/GZP40Y7KwomMR9zgd4xfCz6n3Q1OwqmLONV
+ZzmjeFDHsImpPW2nklXktxE8+8lfe+0daAcvNtXOfscng/0cXQ7TviZf+Pr3
+MF4bluxud4SC6SST+By+YXxRzp3Y40TBTOHNQ1HrKTyJj8ef35l2ZZF2kBSJ
+sxlCFT20Z1ntoicVuLiP3ha7HBcK5kiZTtNtg7jOS46HkivtaVSqu2MAdw2z
+6GqnPc974r6yIQdXinZNuORGwU+5Aie+ff24/Nhic4k7vb7T4wvDWX14FGfQ
+as9xer3g4d0NL3rxaXNYX097Nknr9zO8B29vo0TNPOj5C0OIG01d+KOFDts3
+tOdZVRFenzrweOE1rcon6PnJlabm39rxJt2c2Ou0F3htBLbOtuKeAQ1XOLQX
+5R7WC/K14O9zSou0T9Ljg2vFW5Sb8YaMd1KhtBcL7VPjjRpwP2Hzt+W0f5Nc
+eSvnWlwx+Z8HE7SX5IKzhS9U4dk4USh/ioLlRWts07dW4onCnYumtPnktznL
+ur3C3eaZ4e6018pnNOpp5uG7SGUIor2dh6j0RXdxhV0zmuG0VyzNBTlGXcYm
+LNY6X6XdjaUvNoZnYZ+8z+ChtL8VagSeuvECCxhQOexLewhb40NZl2F/zRxS
+taP9Lxn0QucWgQ32qmjr0B4r5KoHBtRg5rUjZ1fSHgm2z31lV4d1dvz+0UnH
+/x2rVZrRb8ReKtelp9Ke5n14UFqYjaW/qb/hSHuKPHRr97JWDMWmPF9Fe5K1
+kuU02YZJn2//4zX9/yYKqwRDhz5i0wyDXAfa/yaFmKV2dmJCz+6HjdP5GA/W
+iqyo78aKFFkJV2iPYo+XFgs+Y26siDNRdD5HlI4YymZ+wfJhk/Einf8Z3huV
+G+v7sdcM9iGv/5pEC1DOwZIMLQ220vUy0y0jdbBkADt1/YN4KF1P06w5vWMF
+g9hlaVy/9hgdb2FR0OUMLta1S8wB0fU49ehmctw9EtvuVGN3mq7XySTPkowE
+CnPs8Xl09ygdf7D8BH51GGvg41dppOt/HIv35fEcxUJG2IpNdP+cF2sp0woa
+w6wfbmzJoPvryozgVS3jcczrylZ7T1sKhJrMP3hY/Yv9LGod77GmQCqEdare
+ZxJrNvStMaP712Xo+y3O5CQmcnH0ah3d31lWq0sWQqawAHkfXWROgbqKJY/G
+jWlsRqfl0lozCgzbm+8lZs9id65UbzDAKIjAxt7mqc9hibWLH30NKaj9W3io
+5uUc9iMs/lnybgoOhFtpzr6bx9yzDNLe0/uRq0ZrvVPfAvZLZsngFb2fGdV4
+X0pcxYMkrHJ6y2UpGJwPEZE7yIPcnyJ1a2kKorbFZuUl8iDPwaCBXgkKGh7k
+1ddILkPpRe2ZnespOBTwY8OsynIkJ9a2wkmIAo+Nfs+dTFYgcX5/xYwJEvht
+w4yo6BVouqVxOG2MhNwbt9vPsVYgi2v5kUk/SPgx9fznrUN8SFBYxeI4l4RA
+1pgZ4cqP+FiZP5K7SYg6H/Bl0yVB9HQuzerAWxLQjZsGGhWCaKDMdunnGxJ+
+3n96f+eCIPKYj5POZJLgV/7ZxuKCELp8fJDZVkSC/W/zOv/AlSh7cMDo62MS
+lCMVX7zxXY1svbjsh9fo8/C9l9GWbSLISzb1fZUpCZjV7Fj+ARG03MFeL9aI
+hNSuyHRNPxEUxifEb2lIz/ctY2FXgQgajqrpqtAhoWFlxytLtbXo5kUTdECJ
+hGJLY9WzKuvQlTtqdtgSFyLapNa/lRNF7TH7PyUXc+H0nK0AaSSK1r/xn9Yo
+oM9n2bgFYQ9RVCm5NvLdUy7sOsU76JYrijjqdWptqVyY/Pm9hE9zA+K5wOl/
+FsUFD8VKe0tjMZRyfqRJ4zAXTAOOPej1kEAe/Dl/c+eHQFD4icLCMxl0M2ZW
+Ml59CKz3n/RWiVJEswVubvlnBuChce6grP9mFFhvvJRe/RWEWJdE0/JVEfdD
+y8WJ0S8wtWLZEPVIA91RuCTqUN0L0xPfeDONNFHAgqdbx1A3RKjLjscd1UaG
+2bVbLol3QjM8VT9po4vuKH9zvlbVDupSC9VXzu1EOtJPJ1ZFtwKjOTsvPEAf
+JamFN3gUs+Gb3XmD6x67kQ5lZPZuVzOk5ohuaQs3RLbnVCpu7WTBGraAx4qL
+GNr2WDH7B14HDDf3XwYfEDIca9G4e7IW9tfYpv38ZITmnHz8ulxroDDpzIm8
+DmOkf0vk2MdXVfBw7/SRMO4eND1mq3NN+h1wT2WdNxk0QaYpXw6W3MZhKmDI
++4/PpihSQHntff1KiHW9GTM3bIa8+6cY1PQbCC93ae3g7kXexf2S3SJlIFHL
+Dtr9fS8acFg+2SpYBkVsY+nMsb3omXVWIJunDPqGNnt4ze1Ft1x++XWMl4KB
+yNj0ghADBb5Jmf2jpRTmPC5LKvzJQMPb1yRsTSwFvzWZrn+dZaDzgp9erBAv
+BX7JdXzsYAbKNfSp9hcuhTSlyGc6oQykPjNo2CdQCo16nhO/Ihko06H1xD9z
+TFA9vj0yPoWBsgQa9lX0MGGISTx9VcZAzW7l/1hkMCG0Smu/1Ft6fM61K9/v
+MkG06cl4WBUDlZt/uRYXzwRjznV9BouBfkl2eH4NZ0LmamtWTy8DPVZWP5rv
+wQQ98Wp/7CsDneav3nnKmQkfFHRFnwwx0LnX2geV7Znwe4eks+8oA+GPXVTz
+9jIhxSh2WesEA/34dmH4DGLCn/t/Ze+YZaCzoppfDPWZUGPvb/FwgYHiMpj8
+q7WY8L/7Ffr//eo/ijjf0Q==
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 0},
- PlotRange->{{-50, 50}, {0., 3.945041785231018*^-6}},
+ PlotRange->{{-50, 50}, {0., 0.000011636900042832105`}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
@@ -6606,86 +8858,85 @@ Cell[BoxData[
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
-1:eJw113s0VN37AHDlXt6opIiIlFtCCeE5exRGSUool1IR9VZCIYnMSHKLpAhF
-KLfMnOKVwjlJIveJQUpRKJU74xbf01q/3x9nnfVZe+3zrL338zxn7fXHPQ+4
-Lebj42ujnr9vp2PdgwsLdNLnj8T3bzYM+CzjNLpijk4Wr4zePXCIAcdbuBPK
-U3Ry0uxaxogzAzzM6+b2DNPJkLYqIyEPBvhsLl6S+IVOeq0t3mQeyICI6aiN
-Wq/opPaqEy9UshhQEqd/xIVBJyOjd9Z4TTFAquJmPSlAJ1XbYlRss5hgDh1B
-R8fNyIq9oY1ehtdA2oonvHTSlLT+jrMrusNA5UJI6bO5XaTCbVr34JNwKCh6
-tHPH4E5yr+1ZLe2PEdAakfawfsSEbFx3aur5hmjwuazbAl9o5GeH1MLR3zfB
-irFd+8l7RMpr0V/dYsbBbYM1ddZPMVL94IHzVsrxcClr+sPieGMydVuf+saN
-CZCmH5rUcNeQVFqTH77C9C6YTPUV3H5kQHZqdHv7pSYBZzD4lFSkHhmcVqMV
-EJQCmWIV7/F4XbLjSWpXddgDOHFsx1cR761kX9u8/o6UdEjtibBwcNAme+fj
-IgYfZsBWKVEiol6TTBjxuFVRlAUirR667XFq5NreF79PrM8Glx6ZpYfvbyTz
-K1nPrwblwm1nA/X9doqkUaKpqqjEEwg8ITF6eZcsqVSS0WjpyYJbZy6NySrL
-klu7LRTT/Fjw+GLPeJmgLPmvFiQMBrOAc72Qt1C1lrQv2swKjGXBpvxDf5gW
-a0lTM3N/J5waH08TibKSIZP+xYMVRlmgGqYtn3JoDSlG6IcU6bEBbt5TMDZY
-Q3IHFQ3DDNlwMJFfsUt6DSkq1dpog7EhKLd1g0LnajKni+Pda8aGloZLapnO
-q0lnJzm+Hls2XF1doZt/XIq0tSumGfqwgZt9wLL0jCQp3f1r0CyPDQ6rxEVK
-dkuSWPKJsuECNnSF1L4uUpEkJb/cErzzlA39DrsMWd9WkroKKv2cEjZMiW1X
-e+i0khzqOKOxqpoNMl7SIuGWK8jDOiPFRV/ZcMTgy2sbDQlSdyH6sd5qHHqy
-UoKtl0iQUVPsoJ0yONRveOp7r0mcLL5QM20hh0MXN8Mtmi5O7jzWXGGmhAOf
-4fWdPvrLyGLtZ6PzmjiY8lstwBox0rMm3N/VFIeG+E5fbpsweTfG7HTnWRyI
-OIsNNonCZPo7/k6R8ziwbxY3Nx4SJjf+NOHT9sYhLjJeo6ZDiFz74629ly8O
-B5l7el52CpJvfJxq8CAcPni/3Jv+mZ+82hRurhmDQ+151Vm5NH6yGX4rCcbi
-UHrubvY9F36yaWDAlxuHQ+ppH/7b3YtJt/Jgb48EHFyOq5eEfV1E7rvNPWKR
-Qs3P2G7R3rBAcA3dlOaycch/sCKzed8CISGs1uKfi0NM8uD8u6Z5gjCyfjuU
-h4N1/KPCMs4fIkhV/lRdAQ5chpRCBneWUCkq3oMKcXgeNBqQYj9L2CzVJGOK
-cEgKaGhNaJ8hoOqjS9t/ODh5h0WGf5gmRIXTZO1LqP0+Njl5totH8Ks56EuU
-41DpzNnvfpRHtCb2VG8hcMg6XJDv8mWSuPSC5m1B4uCx/+Rxm54J4lR9ntC/
-FTgMIm69ft8Y0VZWP3OyCocmo6cqOu5jxPg6Byn7tzjg+jFM9e+jRPjMjh20
-ahwuaJkZrBsYIVoXJ8bzv8NhDDtjIfxxiJgOzHVE9TiM741V4/UMElvHNzfP
-/bVj4dL+H7+JUQnPK88aKPvN1VfxfhK0ZakXxJsoX1Ng/Tc/QAg5fi4tpDwR
-vyv2keAAsV8nYvvBZhwmWVEHwlZ+J5TlUUkIh3IZe6uvTD+xrXKGEH+PA6+2
-RfLk+j7ik9yVsbuUp/pl20y3fCPUWws/3mmhPIGe627/SjTcuxD7TysO0/xu
-ScrGPQRzSOJsEOUZ+SeOgnu+EAr/eaVacan4jg8vDWR0ESL8KUNPKE/6DRi+
-wz8SnSnn3IXbqHjxOvM5xAeCpmwg4Eh5ihVA3qhvJ8RIuzfZlKdrKxinOrnE
-iVWaucOUZ/qXmFr8aCEcbbWf6rTjMMtvI6zK4xDRO7o+nqM8J59cIyLYTKSL
-latmUZ7xq1rdrNxABD10S2z9O86yS4mlvSP8XS+q8HXgMN/fp2DtXEWstErq
-2EB5Qd4vS/xSBXF/KDxvJ+XF7GUH76uWEe88he87URZU2OIsd6yICI/6yvak
-vFzhQZ2+dh6xOYX3NZCyFh9ZdhbdJTbEqOqFUhZYmPI9FBaMnf95Ovca5Q7s
-/lxdSAY2yH1uHEL5B0vzovsNHDv5j+yIL+VebNmZ7/tLMMfe7MqTlEf6ffFt
-0SRWZRX83JryEKtP46JXJabEeVe3jfJvP7vsIttqTCS2YtFKyj+xKqVJgzqs
-Ccux/0mtd4I/ed9a8SbMXbO+oYzyeP+BaMNFHKzcKNw9gvJY7ZJax7H32Oou
-THE/5VFWhUhgbysmJeW2sJzySHyAWUpbGxboe2Ghjtr/YT+d0NKaDkxcblKR
-QXkQe7gw9+QTttE5l/uBOt/fSg7GcmmfMdWWjR5Bf8+b/0bZupovGMM0R172
-r/vRLLzswQZMOPxmVL5MdsjK7Cv8ihXGrNPhUPk1UTulf/TJN0zfsvTGIcrj
-LLZv8IM+jO9Y0XMbKh/H06MSbib2Y8z25beqqfwdi/cofBD3Hfsx9SpRj/Ko
-n8IowRzAytxTdASofB/GYs/yeQxi96w3v7Cn6sVfqrlEx3cIs706tDaGqqer
-kyJMHZNh7Oc5V1ZZHQ6i9RaNrtYjmG0jz1ukFgeZgFr3mjNjWE6UdJYlVb9H
-en9G94yNYWu0HOosqfrOsBYrnA0Yx54tmdc1e4ODxqa9fJo3JrDi6f6ODa9x
-MG5pSLyVxcNedHJz4qh+wsCGyvM0prDh44dVncpwqMoV7618NoWtYz1bkC/F
-wSrEWpv3ahprWWRSGk/1IxdNTo1j1yxWO6L9Vp3qZ7TK01duLeVDfUnJfQpU
-f/w2HSAhv48P0YN/7WI8wiFsS2RG3i0+9Oxu8+ZPmTi8u5dXUym9CMWraxQE
-p+NwwOvXKt6mxSiXaHvvdw8H13XnChx3CaCs8vCt+pE4CB0Mon2/LoDW06RX
-bruBQ/aNmJYLtQLIzM2rXPU6Dr/GC2aiDwgiU9nAiMVMHC7WDpmRLkJIaxXL
-/3QAFd/f6/OGKyKINq3XsdoDB3QjykizVAS5+sc0drpR9Zj0OElvVgRt6a9O
-v3cCh3MvP9nsviSK1EU5AyJHcbCbt6j2vLgE8aLMrmfb4qAcqoi/OCuGfCoU
-X/NoVH9+e4qmskUCuUBv2KQUDpg1byjfSgKd6aouXCeJQ0p76H3tcxJov6yb
-jcly6ns/HszueCKBSoKFeJeXUvuxhFu0V3056uM0nCxZYMPTvSZqPptWIL3W
-JeeP9bOB8V5mZbm8JIrak2AT+YwN56cOCvfTJFHbigydryzq/yx3c1bcVRK5
-hoQHb89nww53/m/HsiVR97hxcGMmG8ZmfhYKaq9CQpmdn2oT2OCqWGa310QK
-FfCLHB33ZYOp19F7H13XoA52vo7edjaIiGeun82RRUH1LnZGB1mw3/Lk6U1h
-ikhN08G+cSwfkk2yv8l5bkSS8R8CRJNzQbT2imRqvhrysZ29krk8G8YFFvV+
-T9dEJ9p7t/XVZ8HE6A/+NJo2OhzsKKdemgEMDbnhm05bEaOUtJ9hpUMDPNY4
-aaOL+N7U9foOPwANmdnXVy/ooVjjzytPP0gBekNWXoiXAVLLF3nT1Z0EP2z9
-jcJdDVEyNJAvgu9CyiNJlfchxuiw68Wpy3oJsKxJ2FXgMoZCf5nPhdrFA/3Y
-8T9GjQg5fwpLj46IA8vKg6kznTQUoqu9uHb6JrDivd3yuCboQ1QNxLtHQ7L5
-hENQ3060U8rFUfl3BPS5Z/jv+rYL+QcpLH7+KRzGvXpP//PJFI15cZeX/HMd
-Il2iIqYGzJBYJfHKfPc1CHl5hMPtM0ebH3/5XdPIhDVVTb6GP82RlcZAyrUa
-JrCbTNamDZkjo0uza3e9ZkJX70bXU1PmiI6+M2v+Y4KRxNDErCgdeSoJN06k
-MmHKNVh6/WY6uml+Y5JzhgnnlqW5/OtDRykjXz/fFmOCkPQKwSY/OtItt054
-LMSEVKXQnG2BdKQ8ZDxQyseEOn2P0T+hdBTWWn1maJwBaie0QmPv0FH8PoV8
-n08M6C0mHxeV0FFWVjuHV8CAwAodS5lyOrJvf/V+aw4DJOszh4Mq6IgWY+Ps
-ncEAk55wA3otHUUe+CDAu8uANLH9tR8+0tFys8igdSEM0F/92hPrpiPNoOrU
-c5cZ0LheVzKzl45yOIk7Xl1kwPx2aeezg3RU1eDff/Y0A+7QIhdxRqn5WfXj
-b10ZsNnyT9Z2Hh3NTmEBG44yoNLOc3fyLB1tirrgyzzMgP+7X6H/v1/9D8xr
-0YQ=
+1:eJw113k0Vt33AHDzWEgypQylQUqUItn3kOFRNEgqQ0mmCiVTKspQKkk9DzJm
+yhRliLcU3XPxigzJFJJkJlHmEN/7rvX7/XHXXZ917j17rXP23mcdeduLpvYc
+bGxsn+nnv7fVme+jS0sMnKMQvShhyoRv0lbjogsM3FjkYSdznAm2TS1TirMM
+7Gq3HitYMcHJsGbhwC8GDn3VbqXuwAT3ra8EoroYOMy3xODyVSbc+3N/w3aK
+gfn9F/85kMKEokcap2wCGDjcdMVC4DQTxEvDajEXA3unPwzfl8ICQ2jzOz1p
+gPNXuxjwakaA1MEZXsFpffzptIfZZGckbPLwL365oIdXJ71HWc+i4EVh2r49
+o/swKa5w7mhrDDTfS0yu/a2LJ8IfftoiFw/u19SboEsHW/AO7r4+mAAHA3ap
+Pm9E+HvTGgOjm0kQrilZczifwHzCG0ds5FPAJ/VPOwdLG5+V8DazlE+FRI2g
+6LrHWnjS0eySPpEOurP9L8LTNPGBV70SlyIzoWH0xjnxkN34Xeytofee2fB0
+WWljHksdrzJB39Zdz4GzZ/b08F3egfvHnBYjIvIgvvuekYWFKtZqfzmSHfMS
+dojzk/dqt2Gnt6VeWVmFwNfspN76SAnPVQ3Z/xR7DTbd0oInn2zA4hJz+69d
+fAPh1ppbjpgr4Fe++7lm/hbD9bMi49f0ZLB7wPeyzRYkMJ19JmQUZXDyirx+
+N1sS0j27J0u4ZbDj5/NbC8+T0BBcMLNUsRqbYYE55WskbMw+8TfQaDWWEz9+
+vCuWHp9M5Lt/UBqb+wWZGXeQsPm2qmzcCUks6Dah76mMAcJi5LQ1JTG5YbQQ
+bcdgFsWp0CkliftvfOLk34nB71nzerkvEjj3FqnwUAtDU52P0lNrCazw7NhH
+7/0YbkqUqmfbimOB4Y7pdEcMLRmmxsXOYrhbZJmlXQIGi1XCfEX7xbBC/Z3f
+fCkYOv2rywo3ieE8ISHezDQMAxZ6Wjm9K7HoV2/Wl+cYZpftUkq2Won12sIv
+8RdjkHaT4rtjLIr3hnShgM8YTml2lR1VFsFJnNKXigQo6E6Nu3FYQAQ/Xneu
+CS+noHZ9vldMvTC28ynqKRWhoLMlxT6UIYyPWdwd/kecAjat4H3uGkJ4OLh2
+xFqBAn3Og0sguQzX6Yr4JWtQUMf64tXymRc/aub2+WpDAfnIaP3RKF58VBNn
+8Z6lIDfs1aePJ3hxnaBPjLI9BY9CWMpVbTz4tHFIrMM5CswCD3S//cKNZRNj
+38a4UdB++a1J0jdOvItoFWTzp6D60ub5NYmc2POBzIamAAqKXR9nxNhw4kXr
+pXfJQRTEn3fnDP/OgTMbQ0+p3KHAxnZL0e0edlz1xmWSO4z+P2WXUWvdEqkR
+0xOVGktBdoLo00+HlsiXxWcF5eIpeBA7uvihfpHk30hWhj+h4DArraCk4S+Z
+oXJT0iWJgpYAcbmUlnnS3bG2pDWNgtd+41fjjs+TNvo3NRQzKIi+Wtcc0TpH
+9mlIDF7IpMDq8u2QO+1/SCfZf78MZNHrfWZ62qVzhjT5cbI+OpeCcuuGI46n
+Z8ioOKnnr/IoSD35Ituma5p87Bac9TGfAqcjDrZHu6fIGu1MrtECCkZRS61G
+/wR5/JjSz57XFNTvzd+k5jhBskdtj2sooiBP40HglsFxUnbTHau3byjw2G6g
+uXb4N6nV0MZ/rZiCCcLZiLdjjPTqONOfT1IwafJQaaZ7lHS2sdJ2xbQtCwQH
+hn6SzQ7Njeso2t4LtRUzP0j+i6VFvqW0b8nl/LM4TKb/fMSjUEbBFEvvYRr3
+MLljKjIU057OuW96e+Uguc/QXX+knHZJ7g4v6QFS1mHJ3edfCmaqm8Qc5PvJ
+Okqpla2CgtkBmc/6Kr3k0UA97cX/PIVeq+/qIU9W6uz1eE/BH077aEXtbnK5
+6IJzL+052eeW3Ae6SL5JHZuXlXR8y2Sf4ZRO0lNot7xoFR3Pe1jrQ14HGatZ
+LHKB9gxLbTGTbCfjMxW2vaM9m3MV361tJdnmKq4IfqDnry4NOPelhRzZvuKX
+Ke25AQF9o6Emkr3UgxVOe57zKO/mmQZy86NLtvW0F2Rjq/i4P5GDkw+seKrp
+770rJD4p1pHUa3v/XbQXcszjHup8INVkI+ttaC8O9Msdtq4gA3tqjG7RXpL1
+ThX2KSWdtUpHUmhz5AqZPdlcQp5r1Swqps0tp2K95kwhOTTIkfOR9gq5hBoN
+1Sxyn9RsbQft7Wy4xAU9Jm3Dl1b10uZamvU6cfsGYcwlGNxHu414slDjn0Kc
+Z0rIf6c9lLPN0/FuHvFwYGtvC+0+Qsh58EgR8XmLbX0F7d8DXnk7QzGxi6ep
+L5f2WE6/sqdbOfEz9sX6CNo/vc0zCo9VEhlhm0Ldaf8gKtZNa9YQXmxBssa0
+pzhjD60Wrifu3RHqWEt7csA0VIu9gcjSki/7Qa/XRLVAteVEIxGVKtecT3s8
+p5Tvel8zwVl5XdSD9m/WVYO4z58JT8m8ayq0f3mrBRVXtREjvnor+uj9GiWS
+lxaefyXcDnwtA9o/11lor0n8Rtgnbu7upvd/mvNuydqqLqLzq62K/38eQPPw
+tpuw0k4/mU3ny3SbjPShgh7isbWZhibtqepZjdPPe4lSCzUjTOfbZE6u142E
+fsIhTIe7hM7PyaT7EWFRA8QB84v5arQnWE4FCY8GCR3h9xHJdD6Pe8uNk4HD
+hKXJOU43Ot9/EQ9d2JxGiac8snGVdP1cEf9UpOY1RhzKcKO3ioKb03yBarq/
+CL1lpWyqdL3x1xp9tDv8m8je1mHlV0KB9NVqxyrnCcK988OeSrp+T/X9CO2e
+mCA8Vnr2V9H1nXJ4WcH81UniQUJ6Z/krCpQ3mrBtuztFRHTwvUsrpEC7qS6K
+mTpD5Ljn+krT/SOAGHuXpTxL1I5uaujPoaDimXBf+ctZop/jUnD2CwoO+h9W
+naH+EHm1ybLrs+n+uK2hyrJzntA7ZHKinO5nOuXnfZmCbAi+vk2rjqGg989V
+EdlDbOh0goqXSjQFt1VCUrKYbMjhb1Hb/ccUfIjJqiqXYkcTiv9e2BlOganb
+yKqZjRyI59g1xd2hFNitdX1hqceFhqUknIT8KOAx89MZDOZCvNsajZdfpyDj
+7oMmj2oupMfO4OG5SsHI5Iu5UFNuxPZgN3+fJwWe1WMG2IYHmbr+W3fShY5/
+xe3bel8+xLglcU3BkgJ09/7ebcV8SPd0ZtnQCboeo9Ojd8/zoaItx8ayzClw
+ffv16H4ffiQk845N3pQC80WjyoueAig6tyugjkGBYpBC3huXZUhBxrN5jzrd
+n9+f09mkIoKqygNfXKHPR+LwzFj2QRGEf/pypPJSENca9ETVVQSJemyoreGi
+5xtKmN/zXASNN0W2Cy1h+CDQUmiyZQV6eiHzrPUEhnwTXSX3jaLItS09e9MX
+DAGN0ivfyYoh9izZmbh0DJdmzXgHdMQQj73a8jn6fD+1Jmxe2E4MHdxzPdI0
+EcMeR87eMxliKML029rpKAwTcz8KuFVXoUZmaw3vPQx2CiXmJrriaMpdodXy
+AgZ9t9MxHXaSqGGKi/+PEgY+4afy85kyyMBshqVNkHDE2OH8xtsKiGEhs73r
+ezHE6mb0rrm4Af3+s+FZT8gb4K/2FYvPVkLid0e2A/drmORi7xtM2obqqnuS
+XpcVwtT4EGeijioy4MjSbnr5EgKU1/wKs9qBFCuXVA0z86AO0pUdjqojvrr4
+tff6ckBZer7spsdu5GNslpkSmQ2MutQsfzdNZHlo68u89kwYOnZl7x07LTQr
+eoJR75MOcWlimxr9tdEJ81v7MtVSQaie147rGoH0nVeqBJqmAOOM7d+9HxGS
+5TkVrBOcBMblZvFzX3TQqWhf78OTCZDDumyf1aKL8vWU5X7bxkOs4ZSFX/8+
+hOxd83SHYqDfMeWKXq8ecr1yKN+xPQom3frOL/+qjwZGI3u+CTyGEJv792aH
+DdChzfs/txlGgP/bUw0t/Ybou1zN6ZxaFkhW1Htp/TBEzI/7zjq/Z0Fuve7q
+xDFD1LqKVFemWNDZt8Hu3KwhUmzz0ikoYMFekbGpeX4GCnknV9kXy4JZuxtS
+8lsZSOLDkd2151ngKpRoc8GdgUzTHGaTBVjAIyXKXe/NQL/inXr+4WJB/Lqg
+zJ3XGajyO7tL7SITajScxv8GMdCVdmVzjgkmKJ3dHvQwkoGMYe54yBcm9L3C
+6YVFDPTj4Lo2yedMuF6qZiz9joHs5l3YzdOZIFb79JdfKQN1Xg7Ki0higm73
+HU1GNQPJ+funyEQyIXHZker2DgZqm+tPZ9xggoZE2UXiOwPtjC8YiPZhwkd5
+dbGnfQzUHQRPf7ozYXGXlLXLKAORwiIP4pyYEKkTwt4wzkCax568nrFlwlbj
+v6m7Zhjo8jovi2PWTCg3v7g/dp6BLk7tvVxI35/+736F/v9+9T/SM8uV
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
- AxesOrigin->{0, 1.5*^-7},
- PlotRange->{{-50, 50}, {1.3655209232970803`*^-7, 1.0639247790950001`*^-6}},
+ AxesOrigin->{0, 3.*^-7},
+ PlotRange->{{-50, 50}, {2.7299938540731137`*^-7, 2.121504671798635*^-6}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
@@ -6702,9 +8953,9 @@ Cell[BoxData[
SubscriptBox["\[Rho]",
RowBox[{
RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",",
RowBox[{"{",
- RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], "/.",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], "/.",
RowBox[{"Chop", "@",
RowBox[{
RowBox[{"NSolve", "[",
@@ -6726,7 +8977,7 @@ Cell[BoxData[
RowBox[{
SubscriptBox["\[CapitalOmega]", "_"], "\[Rule]", "0"}], ",",
RowBox[{
- SubscriptBox["\[Delta]", "1"], "\[Rule]", "d"}], ",",
+ SubscriptBox["\[Delta]", "3"], "\[Rule]", "d"}], ",",
RowBox[{
SubscriptBox["\[Delta]", "_"], "\[Rule]", "0"}], ",",
RowBox[{"\[Gamma]t", "\[Rule]", ".1"}]}], "}"}]}], "/.",
@@ -6748,94 +8999,808 @@ Cell[BoxData[
Cell[BoxData[
GraphicsBox[{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
-1:eJw113k0Fe0fAHARbgjpWlP2CCWSrN95yHKVpZA3W5YUKUlE9ixvJUqiUigl
-4S1JV/VKmkl+SpaQpaK6d8IVRdm5lt90zu/3x5w5n/PMPM+Zeb7LeZT8QpwO
-8PLw8HRT15+7py97ZGmJQSQ3SfcYizHhq5znmMQ8g7jgqeISSmeCX0fXpNoM
-g+hzu91ZKsuEQJum+Z2/GMS+8OlJRVUmhG18KpTDYhC6+YJv1I2YcG42ff3m
-lwyCjzGclbOfCVWZhvt8khjEtHfG3MpnTJCqzWgmljOImeIrkcnBlWADH+O9
-J6yJltgbGrMST0DWYVpQeMqKuI18G9Y1PAWN8MTnzHlLYlH/YIn/3Sp48Pju
-duOR7YTPJhnJzd+rofNcwe3m3xYE3WiH26z1CwiL2doBLHMCVzG7159NgEOS
-gW7Ze0QcuzSJknRqIdtIpmnXI4x4buprRHx9BVFFs594s8yIqeWmqqJj/4EC
-w5RrLVdNiG/zkhuFVd6AxczAg+y7RkRB95qT3y+8hfaRhENSadsIgYAgkzVn
-muGOSO37iqytBOur88tY51bY72v8jXZ8C1GYYaJJN26HfPKcrbu7LhEbFzei
-4NgBW6RW4OeaNxF7JYY5bSFdQOsM3PohU5PIK+IGXx/6AD6knLDbjfWExh2z
-laF7eiDby0hrt6sykaFWI1kx8Rli94uPxVjKE930qchaHRZcOhI1Lq8mT4Qn
-NEUvbWFB8QlyooZfnjBcOc01MmRB+5nK6aX6NURsV55fMWKB+v29C8m2a4iU
-qA3K+3dT4xMFtHQHOcJbQPOo23EWbDitq5C3V4YYyi/Rkn3EAsi4rmhmJEOc
-+WQ8NPeYBS45fMpfZGWI13Vrjn2sYkH8P52qij3SxFlG77P0lyzoaInSvOMl
-TWReW7jX2MqCU9K1W+/7SRHuL5/NF42woKvEye75ETpRdsU+7446G9wlxWhV
-O+iEYtqg8j4tNnxJbHz1WINO8AS1Ca3WYQPH3dKkvG81ITN5hDxqwIYZEQPN
-256riWjzrh8/LdkgFypLO2snQYy8qffi82XDPiPWK2dtcYK2pGjueZkNZFFe
-wi4hcYKgpZaH57ChWfVRxPVWMeLrM/uSM7nUel2FB84zxIgmj/8o5N9iA4/J
-me1hhqLEsmypk3+XscGKz2EJZESIi/GzEdZ1bGjJ6ono6hYkXo+btPr8ZAOe
-aavqnCNIrLpRMHdllA0PM562vdsrSARhGbWvf7MhMy1Lu+GjAFHaFisnO8UG
-l+SdZHUPP1Hxquhk9CIbPh2vtr/1lY8Y61WK1RclofHYBu7aAj5C5Lz0LQlx
-Ep4fvVpy3YeP2MmOVhteRUJ+UBhfNpuXELa2hzRJEnz8tKpOf1tGVJy74XBG
-nnq/0MD2Q8sSjrdyFw9vIOH+TYk7bY5LeP/zoJQRTRIu5I4svm1dxJuiv+sf
-1iZhV9bdypr2Bdy1/Yiwsw4JXUlSioVdXPwyvw3Wq0/Cv/Fj0Xl/cfHX74qa
-dQxIuBbd0nn5wxz+uKH3WNw2EjyPn047+2kWV9ufOixgTALpOzUV/GUaj1Fz
-ONIOJNR5te8O8J7GRXMzPaYwEorcHtz3YU3hHYmYHd2chMDdB/2cyUn8B21B
-A7aTMIK6mg0HxqnfGp1ta0NCq+kjDb2AcbxIxdTZjEFCheGFZK3BMbwgppdX
-y5aE8M3WRuuGfuPH7J02TuwgYRw7YivYO4rzdrPjzBxImLC/qDlNjuA50SFN
-83/sUSnM+f4TT6SpmzxxpBw531w/PYy//yc5THo35b8Vy58sDuGiT2ONccqT
-WZYX7/IP4TWlNvK+TiRMlac7nV49iH/bHqmV5Uy55uGWCDkOLmN2zlXFhYTp
-xg76QaUBfFNj49UyyjMc+W4rnT58v1vl3od7KE+if7cafMMD//Xv0nAlYZbv
-wDU1MxIPC3c9mEt5TqHMg38nC2cVX6g6+he1vsftqKHCL7i2qnHMO8pTkUMm
-byt68VViv3dq7qXWy9JbLMU/4U0PeLUSKM+URxOpzR9wdluDdAvl2cbapEM9
-Xbhj2/1V0m7U/BwhK9vvHbhy9loZd8pcPmfBDdPt+HTmNc2rlOcVchto/G34
-qc5SRsuf5yPrpdvUWvBXi2To0p/xcte8i+ZvcXWr/iJNdxIWOQOKu7zqcSzK
-s8+R8pJCZJFYVC3uJsCzMYQy70NRlxsbanD1iUsJZynzK+p4rfV9jEdwvvXk
-Ul6leLPJUPceflyl2byU8mYeoiYYXcXROf2Kh5SXL81E7D2dgP2dL6z5iPJH
-7MZ8U2IhVhrveL+M8vfyTScCUiuw/hGaYSHlfkz0yODuKkzO0a75EuXfnIgK
-/fMEFnfT6Egs5dHyAe0ToXVYXfw83Yfyz0jXksd73mBXNjS9NqM8jNWrTBk1
-Yd5RwymSlCf5ch3XiLViAt9K7DjU909wnM6bLGvHwk/sU2BSHm8UavQYf4+x
-ukMXTlIeK6+lxfZ3YmwbF44h5d9Z0dZ53d2Y8dWkz2PUfvyK1Et53vARq9rw
-N+su5RHs9tJ82WfMIsRPbIHa358q7mZrC75i4f+cMb35Z7/5UmvWNbAwDz2p
-KJM/5iAuVJNY+M8kFT8qXqY+yss5Vn7Dep8LZv2g4muyccbQu6wP81yxXTKU
-8kT5w4iEmwMY8irZE0jF48St9MsZORwsPbtDsoeK3/GswMqbmYNY+s3qHzaU
-xyIVx/DkIayy0eSbGBXvv7CLwTyBI5j7OiFJNypfTkq1VelFjGIb9owHpVP5
-dGqKlqxn8QsLKF7o/teehBXNtu/8d/3GZqSEl+Z3kiAX3RjQcGQcMy2Oq9Kj
-8ndf//B5cnwcu3omkkeHyu/CXSKV3OgJrCvILkTVmgRtdXueTamTWJojf8sc
-VQ/MOlpyLhVNY+9Lj3buoepHEjb64p72DFYSk1mwhqov9f+I9dcxZ7A+QfGS
-T6YkOCTu0p1+OYvtK4+KtKTqkc+m9gaPL1xMfdnNoNdUPTOvC4q7JMyDPAX1
-D57XIKFvNlpcwZEH8dY5HhpcT8JpnbTCe5d4kHRgUa+pGglvr99rqJNdhj6k
-9Sq3K5HgFPpDclqdFwXOR+c8kCPBf93RBx6WyxGTk3ZPT5gEAZd488Ezy5EB
-z/W09StIKEm90BHeuBw1a1ivpQuS8GPiwdx5J35k/fxcQC8vCScaR60JHwFk
-kUbKKM+x4fTJ0K+qcTRkuVdw3WkOG1Bquumm5zR04WWarHk/G+auFV/bxqUh
-hcQDn6ZINhyt/uy8I2oFeuq0qsbpCxtcF23fhJwQQoW0lvimDjaopShXPAsW
-QVaDEm2NBNUPXx8y19ARRwX1CqvlqP6I7Zoeve8gjoJP/RVncIkNeR9Sbuge
-FUcamLuFQwY13/ebXOMycbRTSPZ3SCob3gp1PbbXWoWulEqExsax4ZG9hWaY
-ugQq6Yw8+8KfDUnv5Va/UKCjwzE7wkQ2s+HYjIsgx5yOBk2fFbtoU/15bQZX
-zJ+OHnZ46eZosME4gK/Pt4SO1h9o91mlxIbxueFKfl1JJLLZcrZpFRv8lWtc
-7S2k0JN1m/1CxlhgFep9vddfBuHP3PWyH7KAJnZHiVsqj5RTo9W5SizYbXcw
-SP20MorwDZfgdH+GXIuSvrUh69Fxtnd7zvEeWNEYR8+/r4lqHKd+xnz6ABPL
-l/UP3tqEjsc0L2ae7YLJse98Bea66GmwHb/QoQ5I0l77K8NzC6oVGCX2O7RD
-CxRrH3Teilw85K/3p7aCthz31anwbchN1StXrLQZGC1F9xJDjdD74WNbTnW+
-he97Tpqe9TdB+VfKggq830DeXbrG+0QzxFlM2jXLVw+irYL+y2Mw9P7pM4ES
-iTpg+PotmL5DaKX+4epqg1qwq3PJn+sxRz8H59sFcwkozzp+4F6XBeqzJ3rM
-0l9Ars2ke/zAdqSUXMWtnauGgYDCk5Z9lqjyWI/kWHcVTIT2B638bIWstlms
-rZp6Cmk+6edmhqxRWMkykX3KTyCxel9714ANStf2Dsu+Vgky9a0RJsM2yF/C
-03F1ViU8bLVYUzBqg8qbX9Mvp1fCl/71/odmbFDxjcN7biVUgqn46CR3BQPN
-9Oef6j1QCTP+CbJKGxnoq2S3dK9eJRwVLfA5HMZA3a+kGZMtTBCQleBvjWQg
-47vrsZY3TMhXSSnVj2Wg3J7Mn6W1TGgyDBxbSGGgFUOxQYeeMEFz/+aUi1cY
-6OXXD89oN5jQ/5QoflzFQDmYV9DrYCbE1urZyb1goJMh69QaA5hAb77zK76W
-gazMSxLafJlgQZ41YjQyUHnSbtGBPUwoENnd+KmXgXrN3h3aBEwwlH4VgrEZ
-qH2qcM7akAnvlLbS7/Qz0BuvVgU/PSYsGsh6BY8wkD55VqlgPROumKctax9j
-oL7s7dxaRSZstFsoMphmIC1V5v5BOSbUuYbsyOUykBE91E1ckgn/O1+h/5+v
-/gs708HS
+1:eJw113lUTd37APBIuuJVcpujeVARURqfs0vqRgNNr0ZNRFQyNGkgvWggKUQa
+SCqVcMNbyTnSG7mVSgMK9x7qNqhortvwPdb6/f4466zP2ufsZ+21n+fZayv4
+BNsfWMrHx9dJPX/e7t6c4cVFBuHZKNFlKMyEb9Luo6JzDOKgm5JjCJ0JPm0d
+EyrTDMLX5W57kRQTDlk2zO3+xSA2nJqakFdmwomNz4Uy2AxiOEvwrZoBExJn
+klU3v2IQeYzBtAxfJlSk6nt6xTEIF6+U2b8qmSBek9JILGMQnQXXw84FloMl
+fIrZP25BuEVlq8+IPgMp2ynBlZM7iVPIu359/XNQP3n2BXPOnHi47WCh3/0K
+ePj0/g7D4R2EtLak2Ob+KmhPzL3b+NuMmNTb5TJj8RJOnNZtA7YpkaBsUtyT
+ToBtnN6W0g+I+J06geK0ayDdQLJhzxOM2G3kbUB8ew0R+TOfl6aZEEH8xsqr
+R/+DXP34m003jAiVObGNK5Xegtl078P0+wYEo1MmvP/yO2gdjj0snrSdaDgU
+YCRzoRHurar58DhNl3D85vAqyqEZfL0Nv9OObyWcLhtp0A1bIYtMtHJ13UKM
+xEQPy9m1wVbxFXhi4ybCc+0gtyW4A2jth3Q/pmoQBwp4gbcGPoIXKb3SJVuV
+YN41+SvEqQvSPQw09zorEvxq1WKPx79AlK/I6GlzWcKDPhlWo82Gq0cjxmRV
+ZImB2IbIxa1sKDhFjlcLyBKhq6Z4BvpsaL1QPrVYJ0Mcb7/tU4DYoFayb/6c
+lQwhELlB0XcvNT6eS0u2lSZwAY0gl+Ns2HB+i9ztfZKEalahptQTNkDKLXkT
+A0ki57PhwOxTNjhm8Ct+lZIkKv6TOfapgg0xD9qV5bskCF2r7srkV2xoa4rQ
+uOchQTy9OV/MambDGYka3RIfcSKcqJzLH2ZDR6G99YujdCL8hs3te2occBUT
+plXsohNJiX2Knpoc+HqW9fqpOp1gHW4RWqvNAa6ruVHZj7XE/YmjZJAeB6ZX
+6WncdV9LNJl2/Bwy54B0iBTtorUo0fq2zoPfmwOeBuzXDloixN1FeVP3axwg
+82/H7hESIfRpCWUnMzjQqPwk9FazMFFUaVN4IZOK15F34BJDmNB1/08u6w4H
++Iwu7Dihv5rQTxcP/6eUAzv5bRdBchURGDMTalHLgaa0rtCOTkFi67hRs9cQ
+B/BUK2WHDEEiNTt39voIBx6lPG95v0+QICGl5s1vDqQmpWnVf1pO7GyJkpaa
+5IDjud1kVZcAcf11fnjkAgc+H6+yufONn3D6ohC1bTUJrGMbeOty+YnoSxJ3
+REVIeBF0o/CWFz/RzY5UGVxDQlbACf50zlLi5U4bSBIjwctHs+L89yVETmK2
+7QVZ6v88PauPTYu4WAtv4cgGEkpyRO+12C3i8S8C4oc1SLicObzwrnkBPx3Z
+v+2IFgl70u6XV7fO4+tbj6500CahI05cPq+Dh18WsMS6t5Hwb8xo5O2/eXjD
++/xGbT0SbkY2tV/7OIu/ru8+Fr2dBPfj55Mufp7BLXwTBpcbkkB6T04Gfp3C
+a1Rsj7YCCbUerXv990/h9bdS3SYxEvJdHpZ4sSfxzLOYNd2UhEN7D/o4kBP4
+G9q8OuwgYRh1NOr3juEpVpHpVpYkNBs/UdfxH8NLlIwdTBgkPNa/fE6zbxQv
+Pd29VNOKhJObLQzWD/zGk23sN47vImEMO2ol2D2Ct3Rwok1sSRi3uaIxRQ7j
+1ZHBDXN/7Fa+kts/hGfS1Iye2VEOm2usmxrEOx+cOyGxl/I/8mXPFgbwFc+j
+DHHKE2nmV+4LDOAPiyxlve1JmCxLtj+/tg+v2xGmmeZAufrR1lBpLj5pnOis
+5EjCFKuNflChF7disW6UUp7mynbu1P6BH3Mp3/fIifIE+ldX7zse+K9fh7oz
+CTP8B26qmJD4sZPOBzMpz8qVugnsZuMfCi5XBP1NxXe7GzGQ9xWXVDY8/Z7y
+ZNiA0bvH3fj86t+7NfZR8dJ0Forwz/iXh0s1YylPl0USCY0f8aGWeokmyjOs
+mrjDXR343y0layRcqPm5Qjut+ttwlfR1kq6UefwOghumWvHJ1JsaNyjPyWXW
+0wRa8Oj2IkbTn+/D6iRaVJrwlwtkyOKf8TLn21dM3+EKO3vyNVxJWOD2yu/x
+qMO3R7j/sKO8KBeWLxxRg3su59sYTHnpo9WO2RuqcY3xq7EXKQvIa3us836K
+R3C/d2VSXiOf06C/pRg/rtRoWkR5Mx9RHYhu4KaJ2x4/orxscTp03/lY7J+s
+lRpPKH/CsucazuZhxTF2JaWU+8s2nfJPeIz1DtP08yj3YKuP9u2twOTtrBuv
+Uv7NDX287RKBReQYHI2iPFLWq3UqpBarjpmje1EeCnMufOr0Fru6oeGNCeVB
+rE5p0qAB84gYjBejPMGfaScj3IwJfC+05lLrH+faXzJa0oqFnvKUY1IeYwmx
+3MY+YNzOkPlwyqNlNbSonnbsp6UjV5/y77RIi9udndjuG3FfRqn9+BWmE/+i
+/hN2f8M/7PuUh7G7i3OlX7DtwT7C89T+Dim5mqzL/YYFP7hgnPNnv/kTqtfX
+szFXHfEIoz/mIh5UkVjsUJySD5Uvk59kpe3Kv2PDLwTTflL5NcGa1t9f+gML
+W7FDLITyeNmj0NicXkzZo9DpEJWP43eSr6VkcLGI9DaxLip/x9IOleek9mGx
+OVU/LSmPhsmP4ucGsEqW0XdhKt9/YVcC+Q4NY5rrhcRcqHoJF2+p0AkdwSSd
+xgKSqXo6M0k7p2P2CwstmO/814aEFY1W7/32/MZI8ZWLc7tJkI5k+dcfHcMs
+C6IrdKj69ewZvESOjWH1F8L4tKn6ztuzqpwXOY6VB1gHK1uQoKVmw7cpYQLD
+7QSaZql+YNLWlHE1fwq7VxTU7kT1jzhs5GWx1jRWdDo1V4bqL3UPhHtqmdOY
+JE2k8LMxCbZn92yZejWDuZdFhJlT/chrU2u921ce5rIkJ+AN1c9MawOir67k
+Q6aC2w5eUifhx0ykiJwdH1KttTvcp0rCee2kvOKrfIjpn99trELCu1vF9bVS
+S9BUUrdiqwIJ9iE/xabUlqL3c5EZD6VJ8Fsf9NDNfBl6wU0q1llJwnLHGNO+
+C8tQOt+tJNUVJBQmXG47yVqGYtUt1tEFSfg5/nD2kr0AynmR6N+9lIRTrBEL
+wms54iSSkoqzHDgfHvJNOZqGLu4TXH+eywGUkGy86QUN6b9KkjLt4cDszYKb
+23k05HL2wOdJkgNBVV8cdkWsQKT9mmr7rxxwXrB6G3xKCDFpTTENbRxQiVd8
+XBm4Csn0ibawCOo8fHPYVF1bBPX/J7dWmjofsT1TIyW2Isj/zN/Relc5cPtj
+fPaWIBHUgbma2aZQ8/Xn8AxLRdBPIanfwQkceCfU8dRGcw2SeCAaEhXNgSc2
+Zhon1ERRT3vYxZd+HIj7IL32pRwd0U7vOrFqMweOTTsKck3pqNKkssBRizqf
+16XwhP3oaLbNY0uGOgcM/fl/eBfS0T6/Vq81ChwYmx0sF9gihrI3m880rOGA
+n2K1s42ZODq2frNP8Cgbdobsv9XtJ4muVbrqpD9iA034ngKvSBaZJ0Sq8RTY
+sNf6YIDaeUVU4ntSlNv5BTLNCn+sC1ZFbd/2t2Yc74IVrGh6VokG6rOZHDr9
++SOML1vS03dnE9KMblxIvdgBE6P9/LmmW1BrkLWA0OE2iNNa9yvFfSuyXD5C
++Nq2QhMUaB100EVu7rK3ehKaQUua9/rMye1IRs0jU7ioERhN+cVnQwyQ3PCx
+rWfa30G/U7jxRT8j5JxeGpC7/y3cvk9X/3DWBLnxndszw18Hq5sF/ZadxlDd
+88rlhaK1wPD2mTd+j5C+7pGqKr0asK51zJrtMkWxfXOtgpkElKUdP1DcYYYe
+2xJdJskvIdNywjWmdwfij6/g1cxWQa9/Xrj5D3M0eKxLbLSzAsZDegL++rIT
+uWw3W1cx+RySvJITpwcsUErBklWeis/gbJVna0evJbLcuP9E+s1ykKxrDjUa
+tERI1N1ubVo5PGo2k8kdsURFDW/o15LL4WuPqt/haUvUlX3E6U5sORiLjEzw
+VjDQnZ6sM90HymHaL1ZKYSMDhdM7Jbp1yiFoda7XkRMMBK8lGBNNTFguJSrQ
+HMZA1wpUsaa3TMhSii/aFsVAyt2pQ0U1TGjQPzQ6H89AQ31RAYefMUHDd3P8
+lesM1Mf+WEnLZkLPc6LgaQUDVWMeAW8CmRBVo2Mt/ZKBGoLWq7D8mUBvvPcr
+poaBLpgVxrZ4M8GMvGjAYDGQU9ze1b1OTMhdtZf1uZuBlpm8P7wJmKAv8ToY
+4zDQt6m8WQt9JrxX0KXf62GgFZ7Ncj46TFjQk/IIHGYgNvuiQq4qE66bJi1p
+HWWg4Gs7eDXyTNhoPZ+vN8VAv5SYvn3STKh1Dt6VyWOgbWtDXETEmPB/9yv0
+//er/wF05sJs
"]]}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesOrigin->{0, 1.*^-6},
- PlotRange->{{-50, 50}, {1.1360342394545041`*^-6, 8.752003226543715*^-6}},
+ PlotRange->{{-50, 50}, {1.1360342394545505`*^-6, 8.752003226543715*^-6}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output"]
+}, Open ]],
+
+Cell["Find the propagation equations", "Text"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"subsys", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"SelectStates", "[",
+ RowBox[{"system", ",", "#"}], "]"}], "&"}], "/@",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Label", "\[Equal]", "1"}], "&&",
+ RowBox[{"F", "\[Equal]", "1"}]}], "||",
+ RowBox[{
+ RowBox[{"Label", "\[Equal]", "2"}], "&&",
+ RowBox[{"F", "\[Equal]", "2"}]}]}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Label", "\[Equal]", "1"}], "&&",
+ RowBox[{"F", "\[Equal]", "2"}]}], "||",
+ RowBox[{
+ RowBox[{"Label", "\[Equal]", "2"}], "&&",
+ RowBox[{"F", "\[Equal]", "2"}]}]}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Label", "\[Equal]", "1"}], "&&",
+ RowBox[{"F", "\[Equal]", "2"}]}], "||",
+ RowBox[{
+ RowBox[{"Label", "\[Equal]", "3"}], "&&",
+ RowBox[{"F", "\[Equal]", "1"}]}]}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Label", "\[Equal]", "1"}], "&&",
+ RowBox[{"F", "\[Equal]", "1"}]}], "||",
+ RowBox[{
+ RowBox[{"Label", "\[Equal]", "3"}], "&&",
+ RowBox[{"F", "\[Equal]", "1"}]}]}]}], "}"}]}]}], ";"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"rmes", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}], ",", " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}], ",", " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}], ",", " ",
+ RowBox[{"ReducedME", "[",
+ RowBox[{"1", ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}], "}"}]}],
+ ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"polarizationcomponents", "=",
+ RowBox[{"MapThread", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Expand", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ExpandDipoleRME", "[",
+ RowBox[{"#1", ",",
+ RowBox[{
+ RowBox[{"4", "\[Pi]", " ", "\[ImaginaryI]", " ",
+ RowBox[{"Energy", "[",
+ RowBox[{"Last", "@", "#2"}], "]"}], " ", "n0", " ", "#2",
+ RowBox[{"Components", "@", " ",
+ RowBox[{"ECT", "@",
+ RowBox[{"Sum", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"DensityMatrix", "[", "#1", "]"}], "[",
+ RowBox[{"[",
+ RowBox[{"j", ",", "i"}], "]"}], "]"}],
+ RowBox[{"WignerEckart", "[",
+ RowBox[{
+ RowBox[{"#1", "[",
+ RowBox[{"[", "i", "]"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"Dipole", ",", "1"}], "}"}], ",",
+ RowBox[{"#1", "[",
+ RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",",
+ RowBox[{"Length", "[", "#1", "]"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"j", ",", "i"}], "}"}]}], "]"}]}]}]}], "/.",
+ "delreps"}]}], "]"}], "/.",
+ RowBox[{
+ RowBox[{"Energy", "[", "s_", "]"}], "\[Rule]",
+ RowBox[{"2",
+ RowBox[{"\[Pi]", "/",
+ RowBox[{"\[Lambda]", "[", "s", "]"}]}]}]}]}], "/.",
+ RowBox[{
+ RowBox[{"NaturalWidth", "[", "s_", "]"}], "\[Rule]",
+ RowBox[{"4", "\[VeryThinSpace]", "\[Pi]", " ",
+ RowBox[{
+ RowBox[{"\[Eta]", "[", "s", "]"}], "/",
+ RowBox[{"(",
+ RowBox[{"n0", " ",
+ SuperscriptBox[
+ RowBox[{"\[Lambda]", "[", "s", "]"}], "2"], "3"}], ")"}]}]}]}]}],
+ "]"}], "&"}], ",",
+ RowBox[{"{",
+ RowBox[{"subsys", ",", "rmes"}], "}"}]}], "]"}]}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}],
+ SqrtBox["6"]], "+",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}],
+ SqrtBox["2"]], "+",
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}]}],
+ ",", "0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",",
+ RowBox[{"-", "2"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}],
+ SqrtBox["3"]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",",
+ RowBox[{"-", "1"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}],
+ SqrtBox["2"]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}],
+ SqrtBox["2"]], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}],
+ SqrtBox["3"]]}], ",", "0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "3", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}],
+ SqrtBox["15"]]}], "-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "3", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}],
+ SqrtBox["5"]], "-",
+ RowBox[{"\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["2", "5"]], " ",
+ RowBox[{"\[Eta]", "[", "3", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}]}],
+ "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ RowBox[{
+ RowBox[{"\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"\[Eta]", "[", "3", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+",
+ RowBox[{"\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"\[Eta]", "[", "3", "]"}], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}]}]}],
+ "}"}]}], "}"}]], "Output"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"fieldcomponents", "=",
+ RowBox[{
+ RowBox[{"rmes", " ",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"Components", "@",
+ RowBox[{"ToContravariant", "[",
+ RowBox[{"field", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ SubscriptBox["k", "_"], "\[Rule]", "0"}], ",",
+ RowBox[{"t", "\[Rule]", "0"}], ",",
+ RowBox[{
+ SubscriptBox["\[Phi]", "_"], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "s_"], "/;",
+ RowBox[{"i", "\[NotEqual]", "s"}]}], "\[Rule]", "0"}]}], "}"}]}],
+ "]"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "4"}], "}"}]}], "]"}]}], "/.",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "s_"], "->",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "s"], "[", "z", "]"}]}]}]}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "1"], "[", "z", "]"}]}], ",", "0", ",",
+ "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "2"], "[", "z", "]"}]}], ",", "0", ",",
+ "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "3"], "[", "z", "]"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ RowBox[{
+ SubscriptBox["\[CapitalOmega]", "4"], "[", "z", "]"}]}], "}"}]}],
+ "}"}]], "Output"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"propeqs", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"fieldcomponents", ",", "z"}], "]"}], "==",
+ RowBox[{"Simplify", "@", "polarizationcomponents"}]}], ",",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ SubscriptBox["\[CapitalOmega]", "i"], "\[Prime]",
+ MultilineFunction->None], "[", "z", "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "4"}], "}"}]}], "]"}]}], "]"}], "[",
+ RowBox[{"[", "1", "]"}], "]"}], "/.",
+ RowBox[{"Rule", "\[Rule]", "Equal"}]}]}],
+ "\[IndentingNewLine]"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ SubscriptBox["\[CapitalOmega]", "1"], "\[Prime]",
+ MultilineFunction->None], "[", "z", "]"}], "\[Equal]",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "6"]}], " ", "\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SqrtBox["6"], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}],
+ "+",
+ RowBox[{"3", " ",
+ SqrtBox["2"], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}],
+ "+",
+ RowBox[{"6", " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}]}],
+ ")"}]}]}], ",",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ SubscriptBox["\[CapitalOmega]", "2"], "\[Prime]",
+ MultilineFunction->None], "[", "z", "]"}], "\[Equal]",
+ RowBox[{
+ FractionBox["1", "6"], " ", "\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "2", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SqrtBox["3"], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",",
+ RowBox[{"-", "2"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+",
+ RowBox[{"3", " ",
+ SqrtBox["2"], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",",
+ RowBox[{"-", "1"}]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}],
+ "+",
+ RowBox[{"3", " ",
+ SqrtBox["2"], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}],
+ "+",
+ RowBox[{"2", " ",
+ SqrtBox["3"], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}]}],
+ ")"}]}]}], ",",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ SubscriptBox["\[CapitalOmega]", "3"], "\[Prime]",
+ MultilineFunction->None], "[", "z", "]"}], "\[Equal]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"\[ImaginaryI]", " ",
+ RowBox[{"\[Eta]", "[", "3", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SqrtBox["3"], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+",
+ RowBox[{"3", " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}],
+ "+",
+ RowBox[{"3", " ",
+ SqrtBox["2"], " ",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t",
+ "]"}]}]}], ")"}]}],
+ RowBox[{"3", " ",
+ SqrtBox["5"]}]]}]}], ",",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ SubscriptBox["\[CapitalOmega]", "4"], "\[Prime]",
+ MultilineFunction->None], "[", "z", "]"}], "\[Equal]",
+ RowBox[{"\[ImaginaryI]", " ",
+ SqrtBox[
+ FractionBox["5", "3"]], " ",
+ RowBox[{"\[Eta]", "[", "3", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",",
+ RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], "+",
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}],
+ ")"}]}]}]}], "}"}]], "Output"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"propeqs", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Eta]", "\[Rule]", "eta"}], ",",
+ RowBox[{"NaturalWidth", "\[Rule]", "g"}], ",",
+ RowBox[{
+ RowBox[{
+ SubscriptBox["\[Rho]",
+ RowBox[{"s1_", ",", "s2_"}]], "[", "t", "]"}], "\[RuleDelayed]",
+ RowBox[{"r", "[",
+ RowBox[{"s1", ",", "s2"}], "]"}]}], ",",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ SubscriptBox["\[CapitalOmega]", "i_"], "\[Prime]",
+ MultilineFunction->None], "[", "z", "]"}], "\[Rule]",
+ RowBox[{"dW", "[", "i", "]"}]}]}], "}"}]}], "/.", "labelrep"}], "/.",
+ RowBox[{
+ RowBox[{"Complex", "[",
+ RowBox[{"0", ",", "a_"}], "]"}], "\[Rule]",
+ RowBox[{"a", " ", "i"}]}]}], "/.",
+ RowBox[{
+ RowBox[{"a", ":",
+ RowBox[{"Power", "[",
+ RowBox[{
+ RowBox[{"_", "?", "NumericQ"}], ",", "_"}], "]"}]}], "\[RuleDelayed]",
+ RowBox[{"N", "[", "a", "]"}]}]}], "//",
+ "Simplify"}], "\[IndentingNewLine]",
+ RowBox[{"StringJoin", "[",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ToString", "@",
+ RowBox[{"CForm", "[",
+ RowBox[{"%", "[",
+ RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "<>", "\"\< - Lt[E\>\"", "<>",
+ RowBox[{"ToString", "@", "i"}], "<>", "\"\<];\\n\>\""}], ",",
+ RowBox[{"{",
+ RowBox[{"i", ",", "4"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]",
+ RowBox[{"StringReplace", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",",
+ RowBox[{
+ RowBox[{"\"\<eta(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
+ "\[RuleDelayed]",
+ RowBox[{"\"\<eta\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"Shortest", "[",
+ RowBox[{
+ "\"\<dr(\\\"\>\"", "~~", "a__", "~~", "\"\<\\\",\\\"\>\"", "~~", "b__",
+ "~~", "\"\<\\\")\>\""}], "]"}], ":>",
+ RowBox[{"\"\<dr\>\"", "<>", "a", "<>", "b", "<>", "\"\<_dt\>\""}]}],
+ ",",
+ RowBox[{
+ RowBox[{"Shortest", "[",
+ RowBox[{
+ "\"\<r(\\\"\>\"", "~~", "a__", "~~", "\"\<\\\",\\\"\>\"", "~~", "b__",
+ "~~", "\"\<\\\")\>\""}], "]"}], ":>",
+ RowBox[{"\"\<r\>\"", "<>", "a", "<>", "b"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<ha(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
+ "\[RuleDelayed]",
+ RowBox[{"\"\<ha\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<hb(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
+ "\[RuleDelayed]",
+ RowBox[{"\"\<hb\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<g(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
+ RowBox[{"\"\<g\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<dW(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
+ "\[RuleDelayed]",
+ RowBox[{"\"\<dE\>\"", "<>", "a", "<>", "\"\<_dz\>\""}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<Wc(\>\"", "~~", "a_", "~~", "\"\<)\>\""}],
+ "\[RuleDelayed]",
+ RowBox[{"\"\<Ec\>\"", "<>", "a"}]}], ",",
+ RowBox[{
+ RowBox[{"\"\<d(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]",
+ RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}],
+ "]"}], "\[IndentingNewLine]",
+ RowBox[{"Export", "[",
+ RowBox[{
+ RowBox[{"ToFileName", "[",
+ RowBox[{
+ RowBox[{"NotebookDirectory", "[", "]"}], ",",
+ "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"dW", "[", "1", "]"}], "\[Equal]",
+ RowBox[{
+ RowBox[{"-", "0.16666666666666666`"}], " ", "i", " ",
+ RowBox[{"eta", "[", "2", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"6.`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"06\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+",
+ RowBox[{"4.242640687119286`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"07\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+",
+ RowBox[{"2.449489742783178`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"08\"\>", ",", "\<\"11\"\>"}], "]"}]}]}], ")"}]}]}], ",",
+ RowBox[{
+ RowBox[{"dW", "[", "2", "]"}], "\[Equal]",
+ RowBox[{"0.16666666666666666`", " ", "i", " ",
+ RowBox[{"eta", "[", "2", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3.4641016151377544`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"02\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+",
+ RowBox[{"4.242640687119286`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"03\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+",
+ RowBox[{"4.242640687119286`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"04\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+",
+ RowBox[{"3.4641016151377544`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"05\"\>", ",", "\<\"12\"\>"}], "]"}]}]}], ")"}]}]}], ",",
+ RowBox[{
+ RowBox[{"dW", "[", "3", "]"}], "\[Equal]",
+ RowBox[{
+ RowBox[{"-", "0.14907119849998596`"}], " ", "i", " ",
+ RowBox[{"eta", "[", "3", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4.242640687119286`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"01\"\>", ",", "\<\"14\"\>"}], "]"}]}], "+",
+ RowBox[{"3", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"02\"\>", ",", "\<\"15\"\>"}], "]"}]}], "+",
+ RowBox[{"1.7320508075688772`", " ",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"03\"\>", ",", "\<\"16\"\>"}], "]"}]}]}], ")"}]}]}], ",",
+ RowBox[{
+ RowBox[{"dW", "[", "4", "]"}], "\[Equal]",
+ RowBox[{"1.2909944487358056`", " ", "i", " ",
+ RowBox[{"eta", "[", "3", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"r", "[",
+ RowBox[{"\<\"06\"\>", ",", "\<\"15\"\>"}], "]"}], "+",
+ RowBox[{"r", "[",
+ RowBox[{"\<\"07\"\>", ",", "\<\"16\"\>"}], "]"}]}], ")"}]}]}]}],
+ "}"}]], "Output"],
+
+Cell[BoxData["\<\"dW(1) == \
+-0.16666666666666666*eta(2)*(6.*r(\\\"06\\\",\\\"09\\\") + \
+4.242640687119286*r(\\\"07\\\",\\\"10\\\") + \
+2.449489742783178*r(\\\"08\\\",\\\"11\\\")) - Lt[E1];\\ndW(2) == \
+0.3333333333333333*eta(2)*(3.4641016151377544*r(\\\"02\\\",\\\"09\\\") + \
+4.242640687119286*r(\\\"03\\\",\\\"10\\\") + \
+4.242640687119286*r(\\\"04\\\",\\\"11\\\") + 3.4641016151377544*r(\\\"05\\\",\
+\\\"12\\\")) - Lt[E2];\\ndW(3) == \
+-0.44721359549995787*eta(3)*(4.242640687119286*r(\\\"01\\\",\\\"14\\\") + \
+3*r(\\\"02\\\",\\\"15\\\") + 1.7320508075688772*r(\\\"03\\\",\\\"16\\\")) - \
+Lt[E3];\\ndW(4) == 5.163977794943222*eta(3)*(r(\\\"06\\\",\\\"15\\\") + \
+r(\\\"07\\\",\\\"16\\\")) - Lt[E4];\\n\"\>"], "Output"],
+
+Cell[BoxData["\<\"dE1_dz = -0.16666666666666666*eta2*(6.*r0609 + \
+4.242640687119286*r0710 + 2.449489742783178*r0811) - Lt[E1];\\ndE2_dz = \
+0.3333333333333333*eta2*(3.4641016151377544*r0209 + 4.242640687119286*r0310 + \
+4.242640687119286*r0411 + 3.4641016151377544*r0512) - Lt[E2];\\ndE3_dz = \
+-0.44721359549995787*eta3*(4.242640687119286*r0114 + 3*r0215 + \
+1.7320508075688772*r0316) - Lt[E3];\\ndE4_dz = 5.163977794943222*eta3*(r0615 \
++ r0716) - Lt[E4];\\n\"\>"], "Output"],
+
+Cell[BoxData["\<\"C:\\\\cygwin\\\\home\\\\Simon\\\\Nresonances\\\\\
+mathemathica_fwm\\\\RbPropEquations.txt\"\>"], "Output"]
}, Open ]]
},
-WindowSize->{1609, 896},
-WindowMargins->{{1, Automatic}, {Automatic, 1}},
+WindowSize->{1504, 903},
+WindowMargins->{{9, Automatic}, {Automatic, 5}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
@@ -6844,16 +9809,10 @@ StyleDefinitions->"Default.nb"
(* Internal cache information *)
(*CellTagsOutline
-CellTagsIndex->{
- "Info3549888455-1032052"->{
- Cell[49227, 1456, 104, 2, 40, "Print",
- CellTags->"Info3549888455-1032052"]}
- }
+CellTagsIndex->{}
*)
(*CellTagsIndex
-CellTagsIndex->{
- {"Info3549888455-1032052", 249081, 6847}
- }
+CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
@@ -6871,120 +9830,146 @@ Cell[1371, 49, 2636, 68, 173, "Input",
CellID->433132487],
Cell[CellGroupData[{
Cell[4032, 121, 349, 10, 31, "Input"],
-Cell[4384, 133, 8889, 232, 299, "Output"]
+Cell[4384, 133, 8889, 232, 443, "Output"]
}, Open ]],
-Cell[13288, 368, 567, 23, 29, "Text",
+Cell[13288, 368, 1150, 43, 29, "Text",
CellID->133602844],
Cell[CellGroupData[{
-Cell[13880, 395, 325, 8, 31, "Input"],
-Cell[14208, 405, 478, 12, 30, "Output"]
+Cell[14463, 415, 325, 8, 31, "Input"],
+Cell[14791, 425, 478, 12, 30, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[14723, 422, 2133, 66, 92, "Input",
+Cell[15306, 442, 2561, 80, 92, "Input",
CellID->534530029],
-Cell[16859, 490, 2306, 68, 53, "Output"]
+Cell[17870, 524, 4983, 149, 101, "Output"]
}, Open ]],
-Cell[19180, 561, 210, 5, 29, "Text",
+Cell[22868, 676, 210, 5, 29, "Text",
CellID->462076121],
Cell[CellGroupData[{
-Cell[19415, 570, 528, 16, 31, "Input",
+Cell[23103, 685, 621, 19, 31, "Input",
CellID->494599775],
-Cell[19946, 588, 24353, 721, 594, "Output"]
+Cell[23727, 706, 85399, 2471, 624, "Output"]
}, Open ]],
-Cell[44314, 1312, 69, 1, 29, "Text",
+Cell[109141, 3180, 69, 1, 29, "Text",
CellID->358620443],
Cell[CellGroupData[{
-Cell[44408, 1317, 643, 18, 31, "Input",
+Cell[109235, 3185, 643, 18, 31, "Input",
CellID->167259034],
-Cell[45054, 1337, 1830, 37, 207, "Output"]
+Cell[109881, 3205, 2799, 50, 207, "Output"]
}, Open ]],
-Cell[46899, 1377, 93, 1, 29, "Text",
+Cell[112695, 3258, 93, 1, 29, "Text",
CellID->577766068],
Cell[CellGroupData[{
-Cell[47017, 1382, 935, 30, 31, "Input"],
-Cell[47955, 1414, 1174, 34, 30, "Output"]
-}, Open ]],
-Cell[CellGroupData[{
-Cell[49166, 1453, 58, 1, 31, "Input"],
-Cell[49227, 1456, 104, 2, 40, "Print",
- CellTags->"Info3549888455-1032052"]
+Cell[112813, 3263, 935, 30, 31, "Input"],
+Cell[113751, 3295, 1174, 34, 30, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[49368, 1463, 125, 3, 31, "Input"],
-Cell[49496, 1468, 2389, 75, 119, "Output"]
+Cell[114962, 3334, 125, 3, 31, "Input"],
+Cell[115090, 3339, 2389, 75, 119, "Output"]
}, Open ]],
-Cell[51900, 1546, 208, 6, 47, "Input"],
Cell[CellGroupData[{
-Cell[52133, 1556, 3701, 97, 157, "Input"],
-Cell[55837, 1655, 11201, 314, 654, "Output"]
+Cell[117516, 3419, 3701, 97, 157, "Input"],
+Cell[121220, 3518, 10926, 304, 630, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[67075, 1974, 66, 1, 31, "Input"],
-Cell[67144, 1977, 1087, 24, 378, "Output"]
+Cell[132183, 3827, 66, 1, 31, "Input"],
+Cell[132252, 3830, 1108, 25, 378, "Output"]
}, Open ]],
-Cell[68246, 2004, 377, 12, 29, "Text",
+Cell[133375, 3858, 377, 12, 29, "Text",
CellID->610306692],
Cell[CellGroupData[{
-Cell[68648, 2020, 272, 7, 31, "Input",
+Cell[133777, 3874, 272, 7, 31, "Input",
CellID->645617687],
-Cell[68923, 2029, 2716, 58, 266, "Output"]
+Cell[134052, 3883, 2716, 58, 266, "Output"]
}, Open ]],
-Cell[71654, 2090, 383, 12, 29, "Text",
+Cell[136783, 3944, 383, 12, 29, "Text",
CellID->854192725],
Cell[CellGroupData[{
-Cell[72062, 2106, 274, 7, 31, "Input",
+Cell[137191, 3960, 274, 7, 31, "Input",
CellID->465762594],
-Cell[72339, 2115, 49674, 1436, 426, "Output"]
+Cell[137468, 3969, 49674, 1436, 426, "Output"]
}, Open ]],
-Cell[122028, 3554, 69, 1, 29, "Text",
+Cell[187157, 5408, 69, 1, 29, "Text",
CellID->314466782],
-Cell[122100, 3557, 287, 8, 31, "Input"],
-Cell[122390, 3567, 187, 6, 31, "Input"],
Cell[CellGroupData[{
-Cell[122602, 3577, 163, 5, 31, "Input"],
-Cell[122768, 3584, 13557, 434, 112, "Output"]
+Cell[187251, 5413, 197, 5, 31, "Input"],
+Cell[187451, 5420, 4464, 129, 126, "Output"]
+}, Open ]],
+Cell[191930, 5552, 42, 0, 29, "Text"],
+Cell[CellGroupData[{
+Cell[191997, 5556, 3861, 105, 164, "Input"],
+Cell[195861, 5663, 891, 21, 50, "Output"],
+Cell[196755, 5686, 612, 16, 33, "Output"],
+Cell[197370, 5704, 213, 2, 145, "Output"]
+}, Open ]],
+Cell[197598, 5709, 132, 3, 29, "Text"],
+Cell[CellGroupData[{
+Cell[197755, 5716, 1888, 48, 55, "Input"],
+Cell[199646, 5766, 7418, 209, 145, "Output"]
+}, Open ]],
+Cell[207079, 5978, 187, 6, 31, "Input"],
+Cell[207269, 5986, 216, 8, 31, "Input"],
+Cell[CellGroupData[{
+Cell[207510, 5998, 163, 5, 31, "Input"],
+Cell[207676, 6005, 11701, 373, 112, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[219414, 6383, 190, 6, 31, "Input"],
+Cell[219607, 6391, 4464, 129, 126, "Output"]
+}, Open ]],
+Cell[224086, 6523, 43, 0, 29, "Text"],
+Cell[CellGroupData[{
+Cell[224154, 6527, 884, 26, 52, "Input"],
+Cell[225041, 6555, 1283, 40, 30, "Output"],
+Cell[226327, 6597, 1948, 57, 50, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[228312, 6659, 5429, 142, 148, "Input"],
+Cell[233744, 6803, 59724, 1593, 1292, "Output"],
+Cell[293471, 8398, 6963, 100, 1000, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[136362, 4023, 451, 13, 31, "Input"],
-Cell[136816, 4038, 4468, 129, 126, "Output"]
+Cell[300471, 8503, 215, 6, 31, "Input"],
+Cell[300689, 8511, 120, 1, 30, "Output"]
}, Open ]],
-Cell[141299, 4170, 43, 0, 29, "Text"],
+Cell[300824, 8515, 110, 3, 29, "Text"],
Cell[CellGroupData[{
-Cell[141367, 4174, 884, 26, 52, "Input"],
-Cell[142254, 4202, 1283, 40, 30, "Output"],
-Cell[143540, 4244, 1948, 57, 50, "Output"]
+Cell[300959, 8522, 1856, 49, 55, "Input"],
+Cell[302818, 8573, 4883, 86, 248, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[145525, 4306, 4708, 124, 108, "Input"],
-Cell[150236, 4432, 58282, 1556, 1203, "Output"],
-Cell[208521, 5990, 7054, 104, 943, "Output"]
+Cell[307738, 8664, 1856, 49, 55, "Input"],
+Cell[309597, 8715, 4893, 86, 248, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[215612, 6099, 215, 6, 31, "Input"],
-Cell[215830, 6107, 120, 1, 30, "Output"]
+Cell[314527, 8806, 1856, 49, 55, "Input"],
+Cell[316386, 8857, 4887, 85, 245, "Output"]
}, Open ]],
-Cell[215965, 6111, 16, 0, 29, "Text"],
Cell[CellGroupData[{
-Cell[216006, 6115, 3861, 105, 144, "Input"],
-Cell[219870, 6222, 891, 21, 30, "Output"],
-Cell[220764, 6245, 612, 16, 33, "Output"],
-Cell[221379, 6263, 213, 2, 145, "Output"]
+Cell[321310, 8947, 1856, 49, 55, "Input"],
+Cell[323169, 8998, 4904, 86, 252, "Output"]
}, Open ]],
+Cell[328088, 9087, 46, 0, 29, "Text"],
+Cell[328137, 9089, 1214, 36, 31, "Input"],
+Cell[329354, 9127, 709, 21, 31, "Input"],
Cell[CellGroupData[{
-Cell[221629, 6270, 1856, 49, 33, "Input"],
-Cell[223488, 6321, 4889, 86, 248, "Output"]
+Cell[330088, 9152, 2094, 53, 98, "Input"],
+Cell[332185, 9207, 5250, 155, 98, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[228414, 6412, 1856, 49, 33, "Input"],
-Cell[230273, 6463, 4874, 86, 254, "Output"]
+Cell[337472, 9367, 916, 26, 33, "Input"],
+Cell[338391, 9395, 674, 23, 30, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[235184, 6554, 1856, 49, 33, "Input"],
-Cell[237043, 6605, 4899, 86, 245, "Output"]
+Cell[339102, 9423, 721, 21, 52, "Input"],
+Cell[339826, 9446, 5337, 164, 96, "Output"]
}, Open ]],
Cell[CellGroupData[{
-Cell[241979, 6696, 1856, 49, 33, "Input"],
-Cell[243838, 6747, 4900, 86, 252, "Output"]
+Cell[345200, 9615, 3489, 94, 114, "Input"],
+Cell[348692, 9711, 2426, 63, 50, "Output"],
+Cell[351121, 9776, 724, 11, 107, "Output"],
+Cell[351848, 9789, 478, 6, 107, "Output"],
+Cell[352329, 9797, 124, 1, 30, "Output"]
}, Open ]]
}
]
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-16 08:26:59 +0000