Added RbXMDSSetup with code for Rb-87

author: Simon Rochester <simon.rochester@gmail.com> 2012-06-28 17:00:01 -0700
committer: Simon Rochester <simon.rochester@gmail.com> 2012-06-28 17:00:01 -0700
commit: 50d5f2103debfdee0b29aa3622e13697c0628534 (patch)
tree: 64dafc46d358c84e3d09a32c80568b79b1929166
parent: 6b2ee460cea2f800becd85b4f254a96ee678da82 (diff)
download: Nresonances-50d5f2103debfdee0b29aa3622e13697c0628534.tar.gz
Nresonances-50d5f2103debfdee0b29aa3622e13697c0628534.zip
2 files changed, 6999 insertions, 0 deletions
diff --git a/mathemathica_fwm/RbData.txt b/mathemathica_fwm/RbData.txt
new file mode 100755
index 0000000..ded50f4
--- /dev/null
+++ b/mathemathica_fwm/RbData.txt
@@ -0,0 +1,6 @@
+ha1 = 2.1471788680034824e10;
+ha2 = 2.558764384495815e9;
+g2 = 3.612847284945266e7;
+ha3 = 5.323020344462938e8;
+hb3 = 7.85178251911697e7;
+g3 = 3.8117309832741246e7;
diff --git a/mathemathica_fwm/RbXMDSSetup.nb b/mathemathica_fwm/RbXMDSSetup.nb
new file mode 100755
index 0000000..7f7559b
--- /dev/null
+++ b/mathemathica_fwm/RbXMDSSetup.nb
@@ -0,0 +1,6993 @@
+(* Content-type: application/mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 7.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[       145,          7]
+NotebookDataLength[    253046,       6984]
+NotebookOptionsPosition[    248754,       6836]
+NotebookOutlinePosition[    249273,       6858]
+CellTagsIndexPosition[    249186,       6853]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{"Quit", "[", "]"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"<<", "AtomicDensityMatrix`"}]], "Input",
+ CellGroupingRules->{GroupTogetherGrouping, 10001.},
+ CellID->2058623809],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SetOptions", "[", 
+  RowBox[{"DensityMatrix", ",", 
+   RowBox[{"TimeDependence", "\[Rule]", "True"}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"TimeDependence", "\[Rule]", "True"}], ",", 
+   RowBox[{"Representation", "\[Rule]", "Zeeman"}], ",", 
+   RowBox[{"DMSymbol", "\[Rule]", "\[Rho]"}], ",", 
+   RowBox[{"Label", "\[Rule]", "None"}], ",", 
+   RowBox[{"ComplexExpandVariables", "\[Rule]", "False"}], ",", 
+   RowBox[{"TimeVariable", "\[Rule]", "t"}]}], "}"}]], "Output"]
+}, Open  ]],
+
+Cell["Define the atomic system.", "Text",
+ CellID->429217524],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"system", "=", 
+   RowBox[{"Sublevels", "@", 
+    RowBox[{"{", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{"AtomicState", "[", 
+       RowBox[{"1", ",", 
+        RowBox[{"AtomicData", "[", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"\"\<Rb\>\"", ",", "87", ",", 
+            RowBox[{"{", 
+             RowBox[{"\"\<Kr\>\"", ",", 
+              RowBox[{"{", 
+               RowBox[{"5", ",", "\"\<s\>\""}], "}"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "\"\<S\>\"", ",", 
+              FractionBox["1", "2"]}], "}"}]}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{
+           "Energy", ",", "J", ",", "L", ",", "S", ",", "NuclearSpin", ",", 
+            "NaturalWidth", ",", "Parity"}], "}"}]}], "]"}]}], "]"}], ",", 
+      "\[IndentingNewLine]", 
+      RowBox[{"AtomicState", "[", 
+       RowBox[{"2", ",", 
+        RowBox[{"Append", "[", 
+         RowBox[{
+          RowBox[{"AtomicData", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"\"\<Rb\>\"", ",", "87", ",", 
+              RowBox[{"{", 
+               RowBox[{"\"\<Kr\>\"", ",", 
+                RowBox[{"{", 
+                 RowBox[{"5", ",", "\"\<p\>\""}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"2", ",", "\"\<P\>\"", ",", 
+                FractionBox["1", "2"]}], "}"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+             "J", ",", "L", ",", "S", ",", "NuclearSpin", ",", "Parity"}], 
+             "}"}]}], "]"}], ",", 
+          RowBox[{
+           RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}]}], 
+         "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
+      RowBox[{"AtomicState", "[", 
+       RowBox[{"3", ",", 
+        RowBox[{"Append", "[", 
+         RowBox[{
+          RowBox[{"AtomicData", "[", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"\"\<Rb\>\"", ",", "87", ",", 
+              RowBox[{"{", 
+               RowBox[{"\"\<Kr\>\"", ",", 
+                RowBox[{"{", 
+                 RowBox[{"5", ",", "\"\<p\>\""}], "}"}]}], "}"}], ",", 
+              RowBox[{"{", 
+               RowBox[{"2", ",", "\"\<P\>\"", ",", 
+                FractionBox["3", "2"]}], "}"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{
+             "J", ",", "L", ",", "S", ",", "NuclearSpin", ",", "Parity"}], 
+             "}"}]}], "]"}], ",", 
+          RowBox[{
+           RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}]}], 
+         "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}]}], ";"}]], "Input",
+ CellID->433132487],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"system", "=", 
+  RowBox[{"DeleteStates", "[", 
+   RowBox[{"system", ",", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"Label", "\[Equal]", "3"}], "&&", 
+      RowBox[{"F", "\[NotEqual]", "1"}]}], "||", 
+     RowBox[{
+      RowBox[{"Label", "\[Equal]", "2"}], "&&", 
+      RowBox[{"F", "\[Equal]", "1"}]}]}]}], "]"}]}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"1", ",", 
+     RowBox[{"Energy", "\[Rule]", "0"}], ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "0"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Even"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", "2"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"1", ",", 
+     RowBox[{"Energy", "\[Rule]", "0"}], ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "0"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Even"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", "1"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"1", ",", 
+     RowBox[{"Energy", "\[Rule]", "0"}], ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "0"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Even"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", "0"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"1", ",", 
+     RowBox[{"Energy", "\[Rule]", "0"}], ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "0"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Even"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", 
+      RowBox[{"-", "1"}]}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"1", ",", 
+     RowBox[{"Energy", "\[Rule]", "0"}], ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "0"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Even"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", 
+      RowBox[{"-", "2"}]}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"1", ",", 
+     RowBox[{"Energy", "\[Rule]", "0"}], ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "0"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Even"}], ",", 
+     RowBox[{"F", "\[Rule]", "1"}], ",", 
+     RowBox[{"M", "\[Rule]", "1"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"1", ",", 
+     RowBox[{"Energy", "\[Rule]", "0"}], ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "0"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Even"}], ",", 
+     RowBox[{"F", "\[Rule]", "1"}], ",", 
+     RowBox[{"M", "\[Rule]", "0"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"1", ",", 
+     RowBox[{"Energy", "\[Rule]", "0"}], ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "0"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"NaturalWidth", "\[Rule]", "0"}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Even"}], ",", 
+     RowBox[{"F", "\[Rule]", "1"}], ",", 
+     RowBox[{"M", "\[Rule]", 
+      RowBox[{"-", "1"}]}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "1"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Odd"}], ",", 
+     RowBox[{
+      RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", "2"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "1"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Odd"}], ",", 
+     RowBox[{
+      RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", "1"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "1"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Odd"}], ",", 
+     RowBox[{
+      RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", "0"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "1"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Odd"}], ",", 
+     RowBox[{
+      RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", 
+      RowBox[{"-", "1"}]}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"2", ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "1"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Odd"}], ",", 
+     RowBox[{
+      RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
+     RowBox[{"F", "\[Rule]", "2"}], ",", 
+     RowBox[{"M", "\[Rule]", 
+      RowBox[{"-", "2"}]}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"3", ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "1"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Odd"}], ",", 
+     RowBox[{
+      RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
+     RowBox[{"F", "\[Rule]", "1"}], ",", 
+     RowBox[{"M", "\[Rule]", "1"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"3", ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "1"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Odd"}], ",", 
+     RowBox[{
+      RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
+     RowBox[{"F", "\[Rule]", "1"}], ",", 
+     RowBox[{"M", "\[Rule]", "0"}]}], "]"}], ",", 
+   RowBox[{"AtomicState", "[", 
+    RowBox[{"3", ",", 
+     RowBox[{"J", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"L", "\[Rule]", "1"}], ",", 
+     RowBox[{"S", "\[Rule]", 
+      FractionBox["1", "2"]}], ",", 
+     RowBox[{"NuclearSpin", "\[Rule]", 
+      FractionBox["3", "2"]}], ",", 
+     RowBox[{"Parity", "\[Rule]", "Odd"}], ",", 
+     RowBox[{
+      RowBox[{"BranchingRatio", "[", "1", "]"}], "\[Rule]", "1"}], ",", 
+     RowBox[{"F", "\[Rule]", "1"}], ",", 
+     RowBox[{"M", "\[Rule]", 
+      RowBox[{"-", "1"}]}]}], "]"}]}], "}"}]], "Output"]
+}, Open  ]],
+
+Cell[TextData[{
+ "Define the optical field with three frequencies, ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    SubscriptBox["\[Omega]", "1"], "InlineMath"], TraditionalForm]]],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    SubscriptBox["\[Omega]", "2"], "InlineMath"], TraditionalForm]]],
+ ", ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    SubscriptBox["\[Omega]", "3"], "InlineMath"], TraditionalForm]]],
+ ", and ",
+ Cell[BoxData[
+  FormBox[
+   StyleBox[
+    SubscriptBox["\[Omega]", "4"], "InlineMath"], TraditionalForm]]],
+ "."
+}], "Text",
+ CellID->133602844],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SetOptions", "[", 
+  RowBox[{"OpticalField", ",", 
+   RowBox[{"PolarizationVector", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ",", 
+   RowBox[{"CartesianCoordinates", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"PolarizationVector", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ",", 
+   RowBox[{"PropagationVector", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ",", 
+   RowBox[{"Parameterization", "\[Rule]", "AngleEllipticity"}], ",", 
+   RowBox[{"CartesianCoordinates", "\[Rule]", 
+    RowBox[{"{", 
+     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "}"}]], "Output"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"field", "=", 
+  RowBox[{
+   RowBox[{"OpticalField", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       SubscriptBox["\[Omega]", "1"], ",", 
+       SubscriptBox["k", "1"]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        SubscriptBox["\[CapitalOmega]", "1"], "/", 
+        RowBox[{"ReducedME", "[", 
+         RowBox[{"1", ",", 
+          RowBox[{"{", 
+           RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}], ",", 
+       SubscriptBox["\[Phi]", "1"]}], "}"}]}], "]"}], "+", 
+   "\[IndentingNewLine]", 
+   RowBox[{"OpticalField", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       SubscriptBox["\[Omega]", "2"], ",", 
+       SubscriptBox["k", "2"]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        SubscriptBox["\[CapitalOmega]", "2"], "/", 
+        RowBox[{"ReducedME", "[", 
+         RowBox[{"1", ",", 
+          RowBox[{"{", 
+           RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]}], ",", 
+       SubscriptBox["\[Phi]", "2"]}], "}"}]}], "]"}], "+", 
+   "\[IndentingNewLine]", 
+   RowBox[{"OpticalField", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       SubscriptBox["\[Omega]", "3"], ",", 
+       SubscriptBox["k", "3"]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        SubscriptBox["\[CapitalOmega]", "3"], "/", 
+        RowBox[{"ReducedME", "[", 
+         RowBox[{"1", ",", 
+          RowBox[{"{", 
+           RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}], ",", 
+       SubscriptBox["\[Phi]", "3"]}], "}"}]}], "]"}], "+", 
+   "\[IndentingNewLine]", 
+   RowBox[{"OpticalField", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       SubscriptBox["\[Omega]", "4"], ",", 
+       SubscriptBox["k", "4"]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        SubscriptBox["\[CapitalOmega]", "4"], "/", 
+        RowBox[{"ReducedME", "[", 
+         RowBox[{"1", ",", 
+          RowBox[{"{", 
+           RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]}], ",", 
+       SubscriptBox["\[Phi]", "4"]}], "}"}]}], "]"}]}]}]], "Input",
+ CellID->534530029],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"0", ",", "0", ",", 
+   RowBox[{
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"\[ImaginaryI]", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"z", " ", 
+           SubscriptBox["k", "1"]}], "+", 
+          SubscriptBox["\[Phi]", "1"], "-", 
+          RowBox[{"t", " ", 
+           SubscriptBox["\[Omega]", "1"]}]}], ")"}]}]], " ", 
+      SubscriptBox["\[CapitalOmega]", "1"]}], 
+     RowBox[{"ReducedME", "[", 
+      RowBox[{"1", ",", 
+       RowBox[{"{", 
+        RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]], "+", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"\[ImaginaryI]", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"z", " ", 
+           SubscriptBox["k", "2"]}], "+", 
+          SubscriptBox["\[Phi]", "2"], "-", 
+          RowBox[{"t", " ", 
+           SubscriptBox["\[Omega]", "2"]}]}], ")"}]}]], " ", 
+      SubscriptBox["\[CapitalOmega]", "2"]}], 
+     RowBox[{"ReducedME", "[", 
+      RowBox[{"1", ",", 
+       RowBox[{"{", 
+        RowBox[{"Dipole", ",", "1"}], "}"}], ",", "2"}], "]"}]], "+", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"\[ImaginaryI]", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"z", " ", 
+           SubscriptBox["k", "3"]}], "+", 
+          SubscriptBox["\[Phi]", "3"], "-", 
+          RowBox[{"t", " ", 
+           SubscriptBox["\[Omega]", "3"]}]}], ")"}]}]], " ", 
+      SubscriptBox["\[CapitalOmega]", "3"]}], 
+     RowBox[{"ReducedME", "[", 
+      RowBox[{"1", ",", 
+       RowBox[{"{", 
+        RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]], "+", 
+    FractionBox[
+     RowBox[{
+      SuperscriptBox["\[ExponentialE]", 
+       RowBox[{"\[ImaginaryI]", " ", 
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{"z", " ", 
+           SubscriptBox["k", "4"]}], "+", 
+          SubscriptBox["\[Phi]", "4"], "-", 
+          RowBox[{"t", " ", 
+           SubscriptBox["\[Omega]", "4"]}]}], ")"}]}]], " ", 
+      SubscriptBox["\[CapitalOmega]", "4"]}], 
+     RowBox[{"ReducedME", "[", 
+      RowBox[{"1", ",", 
+       RowBox[{"{", 
+        RowBox[{"Dipole", ",", "1"}], "}"}], ",", "3"}], "]"}]]}]}], 
+  "}"}]], "Output"]
+}, Open  ]],
+
+Cell["\<\
+The Hamiltonian for the system subject to the optical field. Each field is \
+assumed to interact with only one transition\[LongDash]the other terms are \
+set to zero.\
+\>", "Text",
+ CellID->462076121],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MatrixForm", "[", 
+  RowBox[{"H", "=", 
+   RowBox[{
+    RowBox[{"Expand", "@", 
+     RowBox[{"Hamiltonian", "[", 
+      RowBox[{"system", ",", 
+       RowBox[{"ElectricField", "\[Rule]", "field"}]}], "]"}]}], "/.", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"Cos", "[", "_", "]"}], " ", 
+      RowBox[{"ReducedME", "[", 
+       RowBox[{"_", ",", 
+        RowBox[{"{", 
+         RowBox[{"Dipole", ",", "1"}], "}"}], ",", "_"}], "]"}]}], "\[Rule]", 
+     "0"}]}]}], "]"}]], "Input",
+ CellID->494599775],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"(", "\[NoBreak]", GridBox[{
+     {
+      FractionBox[
+       RowBox[{"3", " ", 
+        RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "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"]}], 
+         SqrtBox["6"]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        SqrtBox["6"]]}], "0", "0", "0", "0", "0", "0", "0"},
+     {"0", 
+      FractionBox[
+       RowBox[{"3", " ", 
+        RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "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[{"2", " ", 
+          SqrtBox["6"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]]}], "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["5"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "4"]}], "+", 
+           SubscriptBox["\[Phi]", "4"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "4"]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["5"]}]]}], "0", "0"},
+     {"0", "0", 
+      FractionBox[
+       RowBox[{"3", " ", 
+        RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", "0", 
+      "0", "0", "0", "0", "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[{"2", " ", 
+          SqrtBox["15"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "4"]}], "+", 
+           SubscriptBox["\[Phi]", "4"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "4"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["15"]}]]}], "0"},
+     {"0", "0", "0", 
+      FractionBox[
+       RowBox[{"3", " ", 
+        RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", "0", 
+      "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[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]]}], "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["5"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "4"]}], "+", 
+           SubscriptBox["\[Phi]", "4"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "4"]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["5"]}]]}]},
+     {"0", "0", "0", "0", 
+      FractionBox[
+       RowBox[{"3", " ", 
+        RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "0", "0", "0", "0", 
+      "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"]}], 
+        SqrtBox["6"]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        SqrtBox["6"]]}], "0", "0", "0"},
+     {"0", "0", "0", "0", "0", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{"5", " ", 
+         RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "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[{"2", " ", 
+          SqrtBox["2"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["2"]}]]}], "0", "0", "0", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["1", "4"]}], " ", 
+        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", "4"], " ", 
+        SqrtBox[
+         FractionBox["5", "3"]], " ", 
+        RowBox[{"Cos", "[", 
+         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[{"-", 
+       FractionBox[
+        RowBox[{"5", " ", 
+         RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "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"]}], 
+         SqrtBox["6"]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        SqrtBox["6"]]}], "0", "0", "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{"5", " ", 
+         RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], "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[{"2", " ", 
+          SqrtBox["2"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["2"]}]]}], "0", "0", "0", 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        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", "4"], " ", 
+        SqrtBox[
+         FractionBox["5", "3"]], " ", 
+        RowBox[{"Cos", "[", 
+         RowBox[{
+          RowBox[{"z", " ", 
+           SubscriptBox["k", "4"]}], "+", 
+          SubscriptBox["\[Phi]", "4"], "-", 
+          RowBox[{"t", " ", 
+           SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ", 
+        SubscriptBox["\[CapitalOmega]", "4"]}]}]},
+     {
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"Cos", "[", 
+           RowBox[{
+            RowBox[{"z", " ", 
+             SubscriptBox["k", "1"]}], "+", 
+            SubscriptBox["\[Phi]", "1"], "-", 
+            RowBox[{"t", " ", 
+             SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ", 
+          SubscriptBox["\[CapitalOmega]", "1"]}], 
+         SqrtBox["6"]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        SqrtBox["6"]]}], "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{
+       RowBox[{"Energy", "[", "2", "]"}], "+", 
+       FractionBox[
+        RowBox[{"3", " ", 
+         RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "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[{"2", " ", 
+          SqrtBox["6"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]]}], "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[{"2", " ", 
+          SqrtBox["2"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["2"]}]]}], "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", "0", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox[
+         RowBox[{
+          RowBox[{"Cos", "[", 
+           RowBox[{
+            RowBox[{"z", " ", 
+             SubscriptBox["k", "1"]}], "+", 
+            SubscriptBox["\[Phi]", "1"], "-", 
+            RowBox[{"t", " ", 
+             SubscriptBox["\[Omega]", "1"]}]}], "]"}], " ", 
+          SubscriptBox["\[CapitalOmega]", "1"]}], 
+         SqrtBox["6"]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        SqrtBox["6"]]}], "0", "0", "0", 
+      RowBox[{
+       RowBox[{"Energy", "[", "2", "]"}], "+", 
+       FractionBox[
+        RowBox[{"3", " ", 
+         RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "0", "0", "0", "0", 
+      "0"},
+     {"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[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]]}], "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[{"2", " ", 
+          SqrtBox["2"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["2"]}]]}], "0", "0", "0", 
+      RowBox[{
+       RowBox[{"Energy", "[", "2", "]"}], "+", 
+       FractionBox[
+        RowBox[{"3", " ", 
+         RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "0", "0", "0", "0"},
+     {"0", "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"]}], 
+        SqrtBox["6"]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "2"]}], "+", 
+           SubscriptBox["\[Phi]", "2"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "2"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "2"]}], 
+        SqrtBox["6"]]}], "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{
+       RowBox[{"Energy", "[", "2", "]"}], "+", 
+       FractionBox[
+        RowBox[{"3", " ", 
+         RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], "0", "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["5"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "4"]}], "+", 
+           SubscriptBox["\[Phi]", "4"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "4"]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["5"]}]]}], "0", "0", "0", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["1", "4"]}], " ", 
+        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", "4"], " ", 
+        SqrtBox[
+         FractionBox["5", "3"]], " ", 
+        RowBox[{"Cos", "[", 
+         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[{
+       RowBox[{"Energy", "[", "3", "]"}], "-", 
+       FractionBox[
+        RowBox[{"11", " ", 
+         RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+", 
+       FractionBox[
+        RowBox[{"HyperfineB", "[", "3", "]"}], "4"]}], "0", "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[{"2", " ", 
+          SqrtBox["15"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "4"]}], "+", 
+           SubscriptBox["\[Phi]", "4"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "4"]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["15"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
+       "0", 
+      RowBox[{
+       RowBox[{"Energy", "[", "3", "]"}], "-", 
+       FractionBox[
+        RowBox[{"11", " ", 
+         RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+", 
+       FractionBox[
+        RowBox[{"HyperfineB", "[", "3", "]"}], "4"]}], "0"},
+     {"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["5"]}]]}], "-", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"Cos", "[", 
+          RowBox[{
+           RowBox[{"z", " ", 
+            SubscriptBox["k", "4"]}], "+", 
+           SubscriptBox["\[Phi]", "4"], "-", 
+           RowBox[{"t", " ", 
+            SubscriptBox["\[Omega]", "4"]}]}], "]"}], " ", 
+         SubscriptBox["\[CapitalOmega]", "4"]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["5"]}]]}], "0", "0", "0", 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        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", "4"], " ", 
+        SqrtBox[
+         FractionBox["5", "3"]], " ", 
+        RowBox[{"Cos", "[", 
+         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[{
+       RowBox[{"Energy", "[", "3", "]"}], "-", 
+       FractionBox[
+        RowBox[{"11", " ", 
+         RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+", 
+       FractionBox[
+        RowBox[{"HyperfineB", "[", "3", "]"}], "4"]}]}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[0.7]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+  Function[BoxForm`e$, 
+   MatrixForm[BoxForm`e$]]]], "Output"]
+}, Open  ]],
+
+Cell["The level diagram for the system.", "Text",
+ CellID->358620443],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"LevelDiagram", "[", 
+  RowBox[{"system", ",", 
+   RowBox[{"H", "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"Energy", "[", "1", "]"}], "\[Rule]", "0"}], ",", 
+      RowBox[{
+       RowBox[{"Energy", "[", "2", "]"}], "\[Rule]", "2"}], ",", 
+      RowBox[{
+       RowBox[{"Energy", "[", "3", "]"}], "\[Rule]", "4"}], ",", 
+      RowBox[{
+       RowBox[{"HyperfineA", "[", "_", "]"}], "\[Rule]", ".2"}], ",", 
+      RowBox[{
+       RowBox[{"HyperfineB", "[", "_", "]"}], "\[Rule]", ".1"}]}], "}"}]}], 
+   ",", 
+   RowBox[{"ParityOffset", "\[Rule]", "False"}]}], "]"}]], "Input",
+ CellID->167259034],
+
+Cell[BoxData[
+ GraphicsBox[{{{{}, 
+     LineBox[{{1.6, 0.15000000000000002`}, {2.4, 
+      0.15000000000000002`}}]}, {{}, 
+     LineBox[{{0.6, 0.15000000000000002`}, {1.4, 
+      0.15000000000000002`}}]}, {{}, 
+     LineBox[{{-0.4, 0.15000000000000002`}, {0.4, 
+      0.15000000000000002`}}]}, {{}, 
+     LineBox[{{-1.4, 0.15000000000000002`}, {-0.6, 
+      0.15000000000000002`}}]}, {{}, 
+     LineBox[{{-2.4, 0.15000000000000002`}, {-1.6, 
+      0.15000000000000002`}}]}, {{}, 
+     LineBox[{{0.6, -0.25}, {1.4, -0.25}}]}, {{}, 
+     LineBox[{{-0.4, -0.25}, {0.4, -0.25}}]}, {{}, 
+     LineBox[{{-1.4, -0.25}, {-0.6, -0.25}}]}, {{}, 
+     LineBox[{{1.6, 2.15}, {2.4, 2.15}}]}, {{}, 
+     LineBox[{{0.6, 2.15}, {1.4, 2.15}}]}, {{}, 
+     LineBox[{{-0.4, 2.15}, {0.4, 2.15}}]}, {{}, 
+     LineBox[{{-1.4, 2.15}, {-0.6, 2.15}}]}, {{}, 
+     LineBox[{{-2.4, 2.15}, {-1.6, 2.15}}]}, {{}, 
+     LineBox[{{0.6, 3.475}, {1.4, 3.475}}]}, {{}, 
+     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}}]}, 
+   {PointSize[0.0225]}},
+  ImagePadding->{{2., 2}, {2., 2.}},
+  ImageSize->244.]], "Output"]
+}, Open  ]],
+
+Cell["Apply the rotating-wave approximation to the Hamiltonian.", "Text",
+ CellID->577766068],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"shifts", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Label", "[", "#", "]"}], ",", 
+       RowBox[{"F", "[", "#", "]"}]}], "}"}], "&"}], "/@", "system"}], "/.", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}], ",", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "_"}], "}"}], "\[Rule]", 
+      SubscriptBox["\[Omega]", "1"]}], ",", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", 
+      RowBox[{
+       SubscriptBox["\[Omega]", "1"], "-", 
+       SubscriptBox["\[Omega]", "2"]}]}], ",", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "_"}], "}"}], "\[Rule]", 
+      RowBox[{
+       SubscriptBox["\[Omega]", "1"], "-", 
+       SubscriptBox["\[Omega]", "2"], "+", 
+       SubscriptBox["\[Omega]", "3"]}]}]}], "}"}]}]}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["\[Omega]", "1"], "-", 
+    SubscriptBox["\[Omega]", "2"]}], ",", 
+   RowBox[{
+    SubscriptBox["\[Omega]", "1"], "-", 
+    SubscriptBox["\[Omega]", "2"]}], ",", 
+   RowBox[{
+    SubscriptBox["\[Omega]", "1"], "-", 
+    SubscriptBox["\[Omega]", "2"]}], ",", 
+   RowBox[{
+    SubscriptBox["\[Omega]", "1"], "-", 
+    SubscriptBox["\[Omega]", "2"]}], ",", 
+   RowBox[{
+    SubscriptBox["\[Omega]", "1"], "-", 
+    SubscriptBox["\[Omega]", "2"]}], ",", "0", ",", "0", ",", "0", ",", 
+   SubscriptBox["\[Omega]", "1"], ",", 
+   SubscriptBox["\[Omega]", "1"], ",", 
+   SubscriptBox["\[Omega]", "1"], ",", 
+   SubscriptBox["\[Omega]", "1"], ",", 
+   SubscriptBox["\[Omega]", "1"], ",", 
+   RowBox[{
+    SubscriptBox["\[Omega]", "1"], "-", 
+    SubscriptBox["\[Omega]", "2"], "+", 
+    SubscriptBox["\[Omega]", "3"]}], ",", 
+   RowBox[{
+    SubscriptBox["\[Omega]", "1"], "-", 
+    SubscriptBox["\[Omega]", "2"], "+", 
+    SubscriptBox["\[Omega]", "3"]}], ",", 
+   RowBox[{
+    SubscriptBox["\[Omega]", "1"], "-", 
+    SubscriptBox["\[Omega]", "2"], "+", 
+    SubscriptBox["\[Omega]", "3"]}]}], "}"}]], "Output"]
+}, Open  ]],
+
+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"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   FractionBox[
+    RowBox[{"3", " ", 
+     RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], ",", 
+   FractionBox[
+    RowBox[{"3", " ", 
+     RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], ",", 
+   FractionBox[
+    RowBox[{"3", " ", 
+     RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], ",", 
+   FractionBox[
+    RowBox[{"3", " ", 
+     RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], ",", 
+   FractionBox[
+    RowBox[{"3", " ", 
+     RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], ",", 
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{"5", " ", 
+      RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], ",", 
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{"5", " ", 
+      RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], ",", 
+   RowBox[{"-", 
+    FractionBox[
+     RowBox[{"5", " ", 
+      RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"]}], ",", 
+   RowBox[{
+    RowBox[{"Energy", "[", "2", "]"}], "+", 
+    FractionBox[
+     RowBox[{"3", " ", 
+      RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], ",", 
+   RowBox[{
+    RowBox[{"Energy", "[", "2", "]"}], "+", 
+    FractionBox[
+     RowBox[{"3", " ", 
+      RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], ",", 
+   RowBox[{
+    RowBox[{"Energy", "[", "2", "]"}], "+", 
+    FractionBox[
+     RowBox[{"3", " ", 
+      RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], ",", 
+   RowBox[{
+    RowBox[{"Energy", "[", "2", "]"}], "+", 
+    FractionBox[
+     RowBox[{"3", " ", 
+      RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], ",", 
+   RowBox[{
+    RowBox[{"Energy", "[", "2", "]"}], "+", 
+    FractionBox[
+     RowBox[{"3", " ", 
+      RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"]}], ",", 
+   RowBox[{
+    RowBox[{"Energy", "[", "3", "]"}], "-", 
+    FractionBox[
+     RowBox[{"11", " ", 
+      RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+", 
+    FractionBox[
+     RowBox[{"HyperfineB", "[", "3", "]"}], "4"]}], ",", 
+   RowBox[{
+    RowBox[{"Energy", "[", "3", "]"}], "-", 
+    FractionBox[
+     RowBox[{"11", " ", 
+      RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+", 
+    FractionBox[
+     RowBox[{"HyperfineB", "[", "3", "]"}], "4"]}], ",", 
+   RowBox[{
+    RowBox[{"Energy", "[", "3", "]"}], "-", 
+    FractionBox[
+     RowBox[{"11", " ", 
+      RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+", 
+    FractionBox[
+     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[
+ RowBox[{"MatrixForm", "[", 
+  RowBox[{"Hrwa", "=", 
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{
+       FractionBox[
+        RowBox[{"5", " ", 
+         RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], 
+       RowBox[{"IdentityMatrix", "[", 
+        RowBox[{"Length", "[", "system", "]"}], "]"}]}], "+", 
+      RowBox[{"RotatingWaveApproximation", "[", 
+       RowBox[{"system", ",", 
+        RowBox[{"H", "/.", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{
+            SubscriptBox["\[Omega]", "4"], "\[Rule]", 
+            RowBox[{
+             SubscriptBox["\[Omega]", "1"], "-", 
+             SubscriptBox["\[Omega]", "2"], "+", 
+             SubscriptBox["\[Omega]", "3"], "-", "\[Delta]\[Omega]"}]}], ",", 
+           RowBox[{
+            SubscriptBox["k", "4"], "\[Rule]", 
+            RowBox[{
+             SubscriptBox["k", "1"], "-", 
+             SubscriptBox["k", "2"], "+", 
+             SubscriptBox["k", "3"], "-", "\[Delta]k"}]}]}], "}"}]}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          SubscriptBox["\[Omega]", "1"], ",", 
+          SubscriptBox["\[Omega]", "2"], ",", 
+          SubscriptBox["\[Omega]", "3"]}], "}"}], ",", 
+        RowBox[{"TransformMatrix", "\[Rule]", 
+         RowBox[{"MatrixExp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", 
+            RowBox[{"DiagonalMatrix", "[", "shifts", "]"}]}], "+", 
+           RowBox[{"\[ImaginaryI]", " ", "z", " ", 
+            RowBox[{"DiagonalMatrix", "[", 
+             RowBox[{"shifts", "/.", 
+              RowBox[{"\[Omega]", "\[Rule]", "k"}]}], "]"}]}]}], "]"}]}]}], 
+       "]"}]}], "/.", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"\[Phi]_", "-", 
+          RowBox[{"\[ImaginaryI]", " ", "t", " ", 
+           SubscriptBox["\[Omega]", "1"]}], "+", 
+          RowBox[{"\[ImaginaryI]", " ", "t", " ", 
+           SubscriptBox["\[Omega]", "2"]}]}]], "\[Rule]", "0"}], ",", 
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"\[Phi]_", "+", 
+          RowBox[{"\[ImaginaryI]", " ", "t", " ", 
+           SubscriptBox["\[Omega]", "1"]}], "-", 
+          RowBox[{"\[ImaginaryI]", " ", "t", " ", 
+           SubscriptBox["\[Omega]", "2"]}]}]], "\[Rule]", "0"}]}], "}"}]}], "/.", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{
+       SubscriptBox["\[Omega]", "1"], "\[Rule]", 
+       RowBox[{
+        RowBox[{"Energy", "[", "2", "]"}], "+", 
+        FractionBox[
+         RowBox[{"3", " ", 
+          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "+", 
+        FractionBox[
+         RowBox[{"5", " ", 
+          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "+", 
+        SubscriptBox["\[Delta]", "1"]}]}], ",", 
+      RowBox[{
+       SubscriptBox["\[Omega]", "2"], "\[Rule]", 
+       RowBox[{
+        RowBox[{"Energy", "[", "2", "]"}], "+", 
+        FractionBox[
+         RowBox[{"3", " ", 
+          RowBox[{"HyperfineA", "[", "2", "]"}]}], "4"], "-", 
+        FractionBox[
+         RowBox[{"3", " ", 
+          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "+", 
+        SubscriptBox["\[Delta]", "2"]}]}], ",", 
+      RowBox[{
+       SubscriptBox["\[Omega]", "3"], "\[Rule]", 
+       RowBox[{
+        RowBox[{"Energy", "[", "3", "]"}], "-", 
+        FractionBox[
+         RowBox[{"11", " ", 
+          RowBox[{"HyperfineA", "[", "3", "]"}]}], "4"], "+", 
+        FractionBox[
+         RowBox[{"HyperfineB", "[", "3", "]"}], "4"], "-", 
+        FractionBox[
+         RowBox[{"3", " ", 
+          RowBox[{"HyperfineA", "[", "1", "]"}]}], "4"], "+", 
+        SubscriptBox["\[Delta]", "3"]}]}]}], "}"}]}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"(", "\[NoBreak]", GridBox[{
+     {
+      RowBox[{
+       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", 
+      RowBox[{
+       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[{"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"},
+     {"0", "0", 
+      RowBox[{
+       RowBox[{"-", 
+        SubscriptBox["\[Delta]", "1"]}], "+", 
+       SubscriptBox["\[Delta]", "2"]}], "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0", "0", "0", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{
+           RowBox[{"-", "\[ImaginaryI]"}], " ", 
+           SubscriptBox["\[Phi]", "3"]}]], " ", 
+         SubscriptBox["\[CapitalOmega]", "3"]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["15"]}]]}], "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[{"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", "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", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{
+           RowBox[{"-", "\[ImaginaryI]"}], " ", 
+           SubscriptBox["\[Phi]", "1"]}]], " ", 
+         SubscriptBox["\[CapitalOmega]", "1"]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["2"]}]]}], "0", "0", "0", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", "8"]}], " ", 
+       SqrtBox[
+        FractionBox["5", "3"]], " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{"\[ImaginaryI]", " ", "z", " ", "\[Delta]k"}], "-", 
+         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", 
+      RowBox[{
+       FractionBox["1", "8"], " ", 
+       SqrtBox[
+        FractionBox["5", "3"]], " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{"\[ImaginaryI]", " ", "z", " ", "\[Delta]k"}], "-", 
+         RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Delta]\[Omega]"}], "-", 
+         RowBox[{"\[ImaginaryI]", " ", 
+          SubscriptBox["\[Phi]", "4"]}]}]], " ", 
+       SubscriptBox["\[CapitalOmega]", "4"]}]},
+     {
+      RowBox[{"-", 
+       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", "0", "0", "0", "0"},
+     {"0", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"\[ImaginaryI]", " ", 
+           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", 
+      RowBox[{"-", 
+       SubscriptBox["\[Delta]", "1"]}], "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", 
+      FractionBox[
+       RowBox[{
+        SuperscriptBox["\[ExponentialE]", 
+         RowBox[{"\[ImaginaryI]", " ", 
+          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", 
+      RowBox[{"-", 
+       SubscriptBox["\[Delta]", "1"]}], "0", "0", "0", "0"},
+     {"0", "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"},
+     {"0", 
+      RowBox[{"-", 
+       FractionBox[
+        RowBox[{
+         SuperscriptBox["\[ExponentialE]", 
+          RowBox[{"\[ImaginaryI]", " ", 
+           SubscriptBox["\[Phi]", "3"]}]], " ", 
+         SubscriptBox["\[CapitalOmega]", "3"]}], 
+        RowBox[{"8", " ", 
+         SqrtBox["5"]}]]}], "0", "0", "0", 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", "8"]}], " ", 
+       SqrtBox[
+        FractionBox["5", "3"]], " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "\[ImaginaryI]"}], " ", "z", " ", "\[Delta]k"}], "+", 
+         RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Delta]\[Omega]"}], "+", 
+         RowBox[{"\[ImaginaryI]", " ", 
+          SubscriptBox["\[Phi]", "4"]}]}]], " ", 
+       SubscriptBox["\[CapitalOmega]", "4"]}], "0", "0", "0", "0", "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[{"4", " ", 
+         SqrtBox["15"]}]]}], "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", "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"], " ", 
+       SqrtBox[
+        FractionBox["5", "3"]], " ", 
+       SuperscriptBox["\[ExponentialE]", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"-", "\[ImaginaryI]"}], " ", "z", " ", "\[Delta]k"}], "+", 
+         RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Delta]\[Omega]"}], "+", 
+         RowBox[{"\[ImaginaryI]", " ", 
+          SubscriptBox["\[Phi]", "4"]}]}]], " ", 
+       SubscriptBox["\[CapitalOmega]", "4"]}], "0", "0", "0", "0", "0", "0", 
+      "0", 
+      RowBox[{
+       RowBox[{"-", 
+        SubscriptBox["\[Delta]", "1"]}], "+", 
+       SubscriptBox["\[Delta]", "2"], "-", 
+       SubscriptBox["\[Delta]", "3"]}]}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[0.7]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+  Function[BoxForm`e$, 
+   MatrixForm[BoxForm`e$]]]], "Output"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MatrixPlot", "[", "Hrwa", "]"}]], "Input"],
+
+Cell[BoxData[
+ GraphicsBox[RasterBox[CompressedData["
+1:eJztk9EJgDAMBQMu4ApO0h0cQfC7KzuCI4jUTz/b4MkFyutXOC7JstV1nyJi
+ft79b3WWPnmUeC1K/9HZi5/uQc85/Sme5fwHP/1eKJ6dY07SPehZfvM7c3RP
+WuohJ91nFiedn8JJvxe6Z8oc6Z7d55zk8l9JNjUX
+   "], {{0, 0}, {16, 16}}, {0, 1}],
+  Frame->True,
+  FrameLabel->{None, None},
+  FrameTicks->{{{{15.5, 
+       FormBox["1", TraditionalForm]}, {11.5, 
+       FormBox["5", TraditionalForm]}, {6.5, 
+       FormBox["10", TraditionalForm]}, {0.5, 
+       FormBox["16", TraditionalForm]}}, {{15.5, 
+       FormBox["1", TraditionalForm]}, {11.5, 
+       FormBox["5", TraditionalForm]}, {6.5, 
+       FormBox["10", TraditionalForm]}, {0.5, 
+       FormBox["16", TraditionalForm]}}}, {{{0.5, 
+       FormBox["1", TraditionalForm]}, {4.5, 
+       FormBox["5", TraditionalForm]}, {9.5, 
+       FormBox["10", TraditionalForm]}, {15.5, 
+       FormBox["16", TraditionalForm]}}, {{0.5, 
+       FormBox["1", TraditionalForm]}, {4.5, 
+       FormBox["5", TraditionalForm]}, {9.5, 
+       FormBox["10", TraditionalForm]}, {15.5, 
+       FormBox["16", TraditionalForm]}}}}]], "Output"]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["IntrinsicRelaxation",
+   BaseStyle->"Link",
+   ButtonData->"paclet:AtomicDensityMatrix/ref/IntrinsicRelaxation"]]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["TransitRelaxation",
+   BaseStyle->"Link",
+   ButtonData->"paclet:AtomicDensityMatrix/ref/TransitRelaxation"]]],
+ " supply the relaxation matrices."
+}], "Text",
+ CellID->610306692],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MatrixForm", "[", 
+  RowBox[{"relax", "=", 
+   RowBox[{
+    RowBox[{"IntrinsicRelaxation", "[", "system", "]"}], "+", 
+    RowBox[{"TransitRelaxation", "[", 
+     RowBox[{"system", ",", "\[Gamma]t"}], "]"}]}]}], "]"}]], "Input",
+ CellID->645617687],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"(", "\[NoBreak]", GridBox[{
+     {"\[Gamma]t", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
+       "0", "0", "0"},
+     {"0", "\[Gamma]t", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
+       "0", "0", "0"},
+     {"0", "0", "\[Gamma]t", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
+       "0", "0", "0"},
+     {"0", "0", "0", "\[Gamma]t", "0", "0", "0", "0", "0", "0", "0", "0", "0",
+       "0", "0", "0"},
+     {"0", "0", "0", "0", "\[Gamma]t", "0", "0", "0", "0", "0", "0", "0", "0",
+       "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "\[Gamma]t", "0", "0", "0", "0", "0", "0", "0",
+       "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "\[Gamma]t", "0", "0", "0", "0", "0", "0",
+       "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "\[Gamma]t", "0", "0", "0", "0", "0",
+       "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{"\[Gamma]t", "+", 
+       RowBox[{"NaturalWidth", "[", "2", "]"}]}], "0", "0", "0", "0", "0", 
+      "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{"\[Gamma]t", "+", 
+       RowBox[{"NaturalWidth", "[", "2", "]"}]}], "0", "0", "0", "0", "0", 
+      "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{"\[Gamma]t", "+", 
+       RowBox[{"NaturalWidth", "[", "2", "]"}]}], "0", "0", "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{"\[Gamma]t", "+", 
+       RowBox[{"NaturalWidth", "[", "2", "]"}]}], "0", "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{"\[Gamma]t", "+", 
+       RowBox[{"NaturalWidth", "[", "2", "]"}]}], "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{"\[Gamma]t", "+", 
+       RowBox[{"NaturalWidth", "[", "3", "]"}]}], "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      RowBox[{"\[Gamma]t", "+", 
+       RowBox[{"NaturalWidth", "[", "3", "]"}]}], "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", 
+      RowBox[{"\[Gamma]t", "+", 
+       RowBox[{"NaturalWidth", "[", "3", "]"}]}]}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[0.7]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+  Function[BoxForm`e$, 
+   MatrixForm[BoxForm`e$]]]], "Output"]
+}, Open  ]],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["OpticalRepopulation",
+   BaseStyle->"Link",
+   ButtonData->"paclet:AtomicDensityMatrix/ref/OpticalRepopulation"]]],
+ " and ",
+ Cell[BoxData[
+  ButtonBox["TransitRepopulation",
+   BaseStyle->"Link",
+   ButtonData->"paclet:AtomicDensityMatrix/ref/TransitRepopulation"]]],
+ " supply the repopulation matrices."
+}], "Text",
+ CellID->854192725],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"MatrixForm", "[", 
+  RowBox[{"repop", "=", 
+   RowBox[{
+    RowBox[{"OpticalRepopulation", "[", "system", "]"}], "+", 
+    RowBox[{"TransitRepopulation", "[", 
+     RowBox[{"system", ",", "\[Gamma]t"}], "]"}]}]}], "]"}]], "Input",
+ CellID->465762594],
+
+Cell[BoxData[
+ TagBox[
+  RowBox[{"(", "\[NoBreak]", GridBox[{
+     {
+      RowBox[{
+       FractionBox["\[Gamma]t", "8"], "+", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "3"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "10"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["2"]}]]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["6"]}]]}], 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], "-", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", "3"]}], " ", 
+       RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+       RowBox[{
+        SubscriptBox["\[Rho]", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"2", ",", "2", ",", 
+            RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], "0", "0", "0", 
+      "0", "0", "0", "0", "0", "0", "0", "0"},
+     {
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["2"]}]]}], 
+      RowBox[{
+       FractionBox["\[Gamma]t", "8"], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "20"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "20"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"20", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["3"]}]]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "-", 
+       RowBox[{
+        FractionBox["1", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       RowBox[{
+        FractionBox["1", "20"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["1", "6"]}], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}]}], "0", "0", 
+      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
+     {
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["6"]}]]}], 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"20", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["3"]}]]}], 
+      RowBox[{
+       FractionBox["\[Gamma]t", "8"], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "60"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "15"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "60"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"20", " ", 
+         SqrtBox["3"]}]]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["6"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0"},
+     {
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "-", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "2"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "-", 
+       RowBox[{
+        FractionBox["1", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       RowBox[{
+        FractionBox["1", "20"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "2"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"20", " ", 
+         SqrtBox["3"]}]]}], 
+      RowBox[{
+       FractionBox["\[Gamma]t", "8"], "+", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "20"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "20"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["2"]}]]}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0"},
+     {
+      RowBox[{
+       RowBox[{"-", 
+        FractionBox["1", "3"]}], " ", 
+       RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+       RowBox[{
+        SubscriptBox["\[Rho]", 
+         RowBox[{
+          RowBox[{"{", 
+           RowBox[{"2", ",", "2", ",", 
+            RowBox[{"-", "2"}]}], "}"}], ",", 
+          RowBox[{"{", 
+           RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+      RowBox[{
+       RowBox[{
+        RowBox[{"-", 
+         FractionBox["1", "6"]}], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["6"]}]]}], 
+      RowBox[{
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"10", " ", 
+         SqrtBox["2"]}]]}], 
+      RowBox[{
+       FractionBox["\[Gamma]t", "8"], "+", 
+       RowBox[{
+        FractionBox["1", "3"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "6"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "10"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}]}], "0", "0", 
+      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
+     {"0", "0", "0", "0", "0", 
+      RowBox[{
+       FractionBox["\[Gamma]t", "8"], "+", 
+       RowBox[{
+        FractionBox["1", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "2"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["2"]}]], "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "-", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}]}], "0", "0", 
+      "0", "0", "0", "0", "0", "0"},
+     {"0", "0", "0", "0", "0", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["2"]}]], "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox["\[Gamma]t", "8"], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "3"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["2"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["3"]}]], "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      "0", "0", "0", "0", "0", "0", "0", "0"},
+     {"0", "0", "0", "0", "0", 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "2"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["6"]}]], "-", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "2"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["2"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", 
+              RowBox[{"-", "1"}]}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"2", " ", 
+         SqrtBox["3"]}]], "+", 
+       FractionBox[
+        RowBox[{
+         RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+         RowBox[{
+          SubscriptBox["\[Rho]", 
+           RowBox[{
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+            RowBox[{"{", 
+             RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}]}], 
+        RowBox[{"4", " ", 
+         SqrtBox["3"]}]], "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      RowBox[{
+       FractionBox["\[Gamma]t", "8"], "+", 
+       RowBox[{
+        FractionBox["1", "2"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "4"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["1", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "2", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}]}], 
+       "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", 
+             RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "+", 
+       RowBox[{
+        FractionBox["5", "12"], " ", 
+        RowBox[{"NaturalWidth", "[", "3", "]"}], " ", 
+        RowBox[{
+         SubscriptBox["\[Rho]", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}]}]}], 
+      "0", "0", "0", "0", "0", "0", "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0"},
+     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
+      "0", "0"}
+    },
+    GridBoxAlignment->{
+     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
+      "RowsIndexed" -> {}},
+    GridBoxSpacings->{"Columns" -> {
+        Offset[0.27999999999999997`], {
+         Offset[0.7]}, 
+        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+        Offset[0.2], {
+         Offset[0.4]}, 
+        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+  Function[BoxForm`e$, 
+   MatrixForm[BoxForm`e$]]]], "Output"]
+}, Open  ]],
+
+Cell["Here are the evolution equations.", "Text",
+ CellID->314466782],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"delpos", "=", 
+   RowBox[{"Position", "[", 
+    RowBox[{
+     RowBox[{"DMVariables", "[", "system", "]"}], ",", 
+     RowBox[{
+      RowBox[{"DMElementPattern", "[", "]"}], "/;", 
+      RowBox[{"M1", "\[NotEqual]", "M2"}]}]}], "]"}]}], ";"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"delvars", "=", 
+   RowBox[{"Extract", "[", 
+    RowBox[{
+     RowBox[{"DMVariables", "[", "system", "]"}], ",", "delpos"}], "]"}]}], 
+  ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"vars", "=", 
+  RowBox[{"Delete", "[", 
+   RowBox[{
+    RowBox[{"DMVariables", "[", "system", "]"}], ",", "delpos"}], 
+   "]"}]}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       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[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", 
+        RowBox[{"-", "2"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", 
+        RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", 
+        RowBox[{"-", "2"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", 
+        RowBox[{"-", "2"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "2"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "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[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "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[{"{", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       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[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", 
+        RowBox[{"-", "2"}]}], "}"}], ",", 
+      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[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"1", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"2", ",", "2", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}], ",", 
+   RowBox[{
+    SubscriptBox["\[Rho]", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"3", ",", "1", ",", 
+        RowBox[{"-", "1"}]}], "}"}]}]], "[", "t", "]"}]}], "}"}]], "Output"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"TableForm", "[", 
+  RowBox[{"eqs", "=", 
+   RowBox[{"Delete", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"LiouvilleEquation", "[", 
+       RowBox[{"system", ",", "Hrwa", ",", "relax", ",", "repop"}], "]"}], "/.", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"#", "\[Rule]", "0"}], ")"}], "&"}], "/@", "delvars"}], 
+       ")"}]}], ",", "delpos"}], "]"}]}], "]"}]], "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$]], 158, 23264544157491569590, 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$]], 158, 23264544157491569590, 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$]], 158, 23264544157491569590, 
+           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[158]]], "Output"]
+}, Open  ]],
+
+Cell["Convert equations to C form", "Text"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"Label", "[", "#", "]"}], ",", 
+     RowBox[{"F", "[", "#", "]"}], ",", 
+     RowBox[{"M", "[", "#", "]"}]}], "}"}], "&"}], "/@", 
+  "system"}], "\[IndentingNewLine]", 
+ RowBox[{"labelrep", "=", 
+  RowBox[{"Table", "[", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"%", "[", 
+      RowBox[{"[", "i", "]"}], "]"}], "\[Rule]", 
+     RowBox[{"ToString", "@", 
+      RowBox[{"PaddedForm", "[", 
+       RowBox[{"i", ",", "2", ",", 
+        RowBox[{"NumberPadding", "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{"\"\<0\>\"", ",", "\"\<\>\""}], "}"}]}], ",", 
+        RowBox[{"NumberSigns", "\[Rule]", 
+         RowBox[{"{", 
+          RowBox[{"\"\<\>\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}]}]}], ",", 
+    RowBox[{"{", 
+     RowBox[{"i", ",", 
+      RowBox[{"Length", "@", "%"}]}], "}"}]}], "]"}]}]}], "Input"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "2", ",", 
+     RowBox[{"-", "1"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "2", ",", 
+     RowBox[{"-", "2"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", "1", ",", 
+     RowBox[{"-", "1"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "2", ",", 
+     RowBox[{"-", "1"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", "2", ",", 
+     RowBox[{"-", "2"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", "1", ",", 
+     RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", "2", ",", "2"}], "}"}], "\[Rule]", "\<\"01\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", "2", ",", "1"}], "}"}], "\[Rule]", "\<\"02\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", "2", ",", "0"}], "}"}], "\[Rule]", "\<\"03\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", "2", ",", 
+      RowBox[{"-", "1"}]}], "}"}], "\[Rule]", "\<\"04\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", "2", ",", 
+      RowBox[{"-", "2"}]}], "}"}], "\[Rule]", "\<\"05\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", "\<\"06\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", "\<\"07\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"1", ",", "1", ",", 
+      RowBox[{"-", "1"}]}], "}"}], "\[Rule]", "\<\"08\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"2", ",", "2", ",", "2"}], "}"}], "\[Rule]", "\<\"09\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"2", ",", "2", ",", "1"}], "}"}], "\[Rule]", "\<\"10\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"2", ",", "2", ",", "0"}], "}"}], "\[Rule]", "\<\"11\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"2", ",", "2", ",", 
+      RowBox[{"-", "1"}]}], "}"}], "\[Rule]", "\<\"12\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"2", ",", "2", ",", 
+      RowBox[{"-", "2"}]}], "}"}], "\[Rule]", "\<\"13\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"3", ",", "1", ",", "1"}], "}"}], "\[Rule]", "\<\"14\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"3", ",", "1", ",", "0"}], "}"}], "\[Rule]", "\<\"15\"\>"}], ",", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{"3", ",", "1", ",", 
+      RowBox[{"-", "1"}]}], "}"}], "\[Rule]", "\<\"16\"\>"}]}], 
+  "}"}]], "Output"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{
+      RowBox[{"DeleteCases", "[", 
+       RowBox[{
+        RowBox[{"eqs", "/.", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"NaturalWidth", "\[Rule]", "g"}], ",", 
+           RowBox[{"HyperfineA", "\[Rule]", "ha"}], ",", 
+           RowBox[{"HyperfineB", "\[Rule]", "hb"}], ",", 
+           RowBox[{
+            RowBox[{
+             SuperscriptBox[
+              SubscriptBox["\[Rho]", 
+               RowBox[{"s1_", ",", "s2_"}]], "\[Prime]",
+              MultilineFunction->None], "[", "t", "]"}], "\[RuleDelayed]", 
+            RowBox[{"dr", "[", 
+             RowBox[{"s1", ",", "s2"}], "]"}]}], ",", 
+           RowBox[{
+            RowBox[{
+             SubscriptBox["\[Rho]", 
+              RowBox[{"s1_", ",", "s2_"}]], "[", "t", "]"}], "\[RuleDelayed]", 
+            RowBox[{"r", "[", 
+             RowBox[{"s1", ",", "s2"}], "]"}]}], ",", 
+           RowBox[{"\[Gamma]t", "\[Rule]", "gt"}], ",", 
+           RowBox[{
+            SubscriptBox["\[Delta]", "i_"], "\[Rule]", 
+            RowBox[{"d", "[", "i", "]"}]}], ",", 
+           RowBox[{
+            SuperscriptBox["\[ExponentialE]", 
+             RowBox[{"a_.", "+", 
+              RowBox[{"\[ImaginaryI]", " ", 
+               SubscriptBox["\[Phi]", "i_"]}]}]], "\[Rule]", 
+            RowBox[{
+             SuperscriptBox["\[ExponentialE]", "a"], 
+             RowBox[{
+              RowBox[{"W", "[", "i", "]"}], "/", 
+              SubscriptBox["\[CapitalOmega]", "i"]}]}]}], ",", 
+           RowBox[{
+            SuperscriptBox["\[ExponentialE]", 
+             RowBox[{"a_.", "-", 
+              RowBox[{"\[ImaginaryI]", " ", 
+               SubscriptBox["\[Phi]", "i_"]}]}]], "\[Rule]", 
+            RowBox[{
+             SuperscriptBox["\[ExponentialE]", "a"], 
+             RowBox[{
+              RowBox[{"Wc", "[", "i", "]"}], "/", 
+              SubscriptBox["\[CapitalOmega]", "i"]}]}]}]}], "}"}]}], ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"dr", "[", 
+           RowBox[{"a_", ",", "b_"}], "]"}], "\[Equal]", "_"}], "/;", 
+         RowBox[{"!", 
+          RowBox[{"OrderedQ", "[", 
+           RowBox[{"{", 
+            RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}], "]"}], "/.", 
+      "labelrep"}], "/.", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"\[Delta]k", "\[Rule]", "dk"}], ",", 
+       RowBox[{"\[Delta]\[Omega]", "\[Rule]", "dw"}]}], "}"}]}], "/.", 
+    RowBox[{
+     RowBox[{"Power", "[", 
+      RowBox[{"E", ",", "b_"}], "]"}], "\[Rule]", 
+     RowBox[{"exp", "[", "b", "]"}]}]}], "/.", 
+   RowBox[{
+    RowBox[{"Complex", "[", 
+     RowBox[{"0", ",", "a_"}], "]"}], "\[Rule]", 
+    RowBox[{"a", " ", "i"}]}]}], "/.", 
+  RowBox[{
+   RowBox[{"a", ":", 
+    RowBox[{"Power", "[", 
+     RowBox[{
+      RowBox[{"_", "?", "NumericQ"}], ",", "_"}], "]"}]}], "\[RuleDelayed]", 
+   RowBox[{"N", "[", "a", "]"}]}]}], "\[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[{"dr", "[", 
+     RowBox[{"\<\"01\"\>", ",", "\<\"01\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["gt", "8"], "-", 
+     RowBox[{"gt", " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"01\"\>", ",", "\<\"01\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "3"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "6"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "10"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      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[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"d", "[", "1", "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"01\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"01\"\>", ",", "\<\"01\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}], "-", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"02\"\>", ",", "\<\"02\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["gt", "8"], "-", 
+     RowBox[{"gt", " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"02\"\>", ",", "\<\"02\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "6"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "20"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "20"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "2", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "3", "]"}]}], "-", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}], "-", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"d", "[", "1", "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"06\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}], "-", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}], "-", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+        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[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}], "-", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}], "+", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"06\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"03\"\>", ",", "\<\"03\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["gt", "8"], "-", 
+     RowBox[{"gt", " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"03\"\>", ",", "\<\"03\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "60"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "15"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "60"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      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[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"d", "[", "1", "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"07\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.06454972243679027`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"15\"\>", ",", "\<\"11\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}], "-", 
+           RowBox[{"d", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"15\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.06454972243679027`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"03\"\>", ",", "\<\"03\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}], "-", 
+        RowBox[{"0.06454972243679027`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"04\"\>", ",", "\<\"04\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["gt", "8"], "-", 
+     RowBox[{"gt", " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"04\"\>", ",", "\<\"04\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      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", "[", 
+       RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "20"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-", 
+     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[{"r", "[", 
+          RowBox[{"\<\"16\"\>", ",", "\<\"12\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}], "-", 
+           RowBox[{"d", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         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[{"r", "[", 
+          RowBox[{"\<\"04\"\>", ",", "\<\"08\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"05\"\>", ",", "\<\"05\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["gt", "8"], "-", 
+     RowBox[{"gt", " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"05\"\>", ",", "\<\"05\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "6"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      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", "[", 
+       RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "0.20412414523193154`"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "2", "]"}]}], "+", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"13\"\>", ",", "\<\"05\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"d", "[", "1", "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}]}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}]}], "-", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"05\"\>", ",", "\<\"05\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}], "+", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"06\"\>", ",", "\<\"02\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "gt"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"06\"\>", ",", "\<\"02\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             RowBox[{"d", "[", "1", "]"}]}], "+", 
+            RowBox[{"d", "[", "2", "]"}]}], ")"}]}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"02\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "2", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "3", "]"}]}], "-", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"06\"\>", ",", "\<\"06\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["gt", "8"], "-", 
+     RowBox[{"gt", " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"06\"\>", ",", "\<\"06\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["5", "12"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["5", "12"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{"dw", " ", "i", " ", "t"}], "-", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "4", "]"}]}], "-", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"06\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"06\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"d", "[", "1", "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"06\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}], "-", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             RowBox[{"d", "[", "1", "]"}]}], "+", 
+            RowBox[{"d", "[", "2", "]"}], "-", 
+            RowBox[{"d", "[", "3", "]"}]}], ")"}]}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}], "+", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"06\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}], "-", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"07\"\>", ",", "\<\"03\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "gt"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"07\"\>", ",", "\<\"03\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             RowBox[{"d", "[", "1", "]"}]}], "+", 
+            RowBox[{"d", "[", "2", "]"}]}], ")"}]}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"03\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.06454972243679027`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "3", "]"}]}], "-", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"03\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"07\"\>", ",", "\<\"07\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["gt", "8"], "-", 
+     RowBox[{"gt", " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"07\"\>", ",", "\<\"07\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"10\"\>", ",", "\<\"10\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "3"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["5", "12"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["5", "12"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"07\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"d", "[", "1", "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"07\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{
+            RowBox[{"-", 
+             RowBox[{"d", "[", "1", "]"}]}], "+", 
+            RowBox[{"d", "[", "2", "]"}], "-", 
+            RowBox[{"d", "[", "3", "]"}]}], ")"}]}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.06454972243679027`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"03\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"08\"\>", ",", "\<\"04\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "gt"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"08\"\>", ",", "\<\"04\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           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[{"r", "[", 
+          RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "3", "]"}]}], "-", 
+        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[{"r", "[", 
+          RowBox[{"\<\"16\"\>", ",", "\<\"04\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"08\"\>", ",", "\<\"08\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     FractionBox["gt", "8"], "-", 
+     RowBox[{"gt", " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"08\"\>", ",", "\<\"08\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "12"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["1", "4"], " ", 
+      RowBox[{"g", "[", "2", "]"}], " ", 
+      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", "[", 
+       RowBox[{"\<\"15\"\>", ",", "\<\"15\"\>"}], "]"}]}], "+", 
+     RowBox[{
+      FractionBox["5", "12"], " ", 
+      RowBox[{"g", "[", "3", "]"}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-", 
+     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[{"r", "[", 
+          RowBox[{"\<\"12\"\>", ",", "\<\"08\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"16\"\>", ",", "\<\"08\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "gt"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "2", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"d", "[", "1", "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"08\"\>", ",", "\<\"12\"\>"}], "]"}]}], "+", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"08\"\>", ",", "\<\"08\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}], " ", 
+         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[{"Wc", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         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[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"(", 
+        RowBox[{"gt", "+", 
+         RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"09\"\>", ",", "\<\"09\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      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`"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"10\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "2", "]"}]}], "+", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"06\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{"gt", "+", 
+            RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"d", "[", "1", "]"}]}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}], "-", 
+           RowBox[{"d", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+        RowBox[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "2", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}], "+", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"10\"\>", ",", "\<\"06\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "4", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"(", 
+        RowBox[{"gt", "+", 
+         RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"11\"\>", ",", "\<\"11\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "0.20412414523193154`"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"11\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"07\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      FractionBox["1", "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"(", 
+           RowBox[{"gt", "+", 
+            RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"gt", "+", 
+           RowBox[{"g", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}]}]}], ")"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"d", "[", "1", "]"}]}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", 
+            RowBox[{"d", "[", "1", "]"}]}], "+", 
+           RowBox[{"d", "[", "2", "]"}], "-", 
+           RowBox[{"d", "[", "3", "]"}]}], ")"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"15\"\>"}], "]"}]}], "-", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"07\"\>", ",", "\<\"15\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "1", "]"}]}], "+", 
+        RowBox[{"0.06454972243679027`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"11\"\>", ",", "\<\"03\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"(", 
+        RowBox[{"gt", "+", 
+         RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"12\"\>", ",", "\<\"12\"\>"}], "]"}]}], "-", 
+     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[{"0.17677669529663687`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"12\"\>", ",", "\<\"08\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "1", "]"}]}], "-", 
+        RowBox[{"0.10206207261596577`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"12\"\>", ",", "\<\"04\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"12\"\>", ",", "\<\"16\"\>"}], "]"}], "\[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[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", 
+          RowBox[{"d", "[", "1", "]"}]}], " ", 
+         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[{"W", "[", "2", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         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[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"(", 
+        RowBox[{"gt", "+", 
+         RowBox[{"g", "[", "2", "]"}]}], ")"}]}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"13\"\>", ",", "\<\"13\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"05\"\>", ",", "\<\"13\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "2", "]"}]}], "-", 
+        RowBox[{"0.20412414523193154`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"13\"\>", ",", "\<\"05\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "2", "]"}]}]}], ")"}]}]}]}], ",", 
+   RowBox[{
+    RowBox[{"dr", "[", 
+     RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}], "\[Equal]", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       RowBox[{"(", 
+        RowBox[{"gt", "+", 
+         RowBox[{"g", "[", "3", "]"}]}], ")"}]}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"14\"\>", ",", "\<\"14\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "0.05590169943749474`"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"02\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "3", "]"}]}], "-", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{"dw", " ", "i", " ", "t"}], "-", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"06\"\>", ",", "\<\"14\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "4", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"02\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}], "+", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"14\"\>", ",", "\<\"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[{
+      RowBox[{"-", 
+       RowBox[{"(", 
+        RowBox[{"gt", "+", 
+         RowBox[{"g", "[", "3", "]"}]}], ")"}]}], " ", 
+      RowBox[{"r", "[", 
+       RowBox[{"\<\"16\"\>", ",", "\<\"16\"\>"}], "]"}]}], "-", 
+     RowBox[{"i", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "0.05590169943749474`"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"04\"\>", ",", "\<\"16\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "3", "]"}]}], "+", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{"dw", " ", "i", " ", "t"}], "-", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"08\"\>", ",", "\<\"16\"\>"}], "]"}], " ", 
+         RowBox[{"W", "[", "4", "]"}]}], "+", 
+        RowBox[{"0.05590169943749474`", " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"16\"\>", ",", "\<\"04\"\>"}], "]"}], " ", 
+         RowBox[{"Wc", "[", "3", "]"}]}], "-", 
+        RowBox[{"0.1613743060919757`", " ", 
+         RowBox[{"exp", "[", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"-", "dw"}], " ", "i", " ", "t"}], "+", 
+           RowBox[{"dk", " ", "i", " ", "z"}]}], "]"}], " ", 
+         RowBox[{"r", "[", 
+          RowBox[{"\<\"16\"\>", ",", "\<\"08\"\>"}], "]"}], " ", 
+         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"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+   RowBox[{"ToFileName", "[", 
+    RowBox[{
+     RowBox[{"NotebookDirectory", "[", "]"}], ",", 
+     "\"\<RbEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]], "Input"],
+
+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[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SubscriptBox["\[Rho]", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], "/.", 
+    RowBox[{"Chop", "@", 
+     RowBox[{
+      RowBox[{"NSolve", "[", 
+       RowBox[{
+        RowBox[{"Evaluate", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{
+             RowBox[{"eqs", "/.", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{
+                 SubscriptBox["\[Phi]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Delta]k", "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Delta]\[Omega]", "\[Rule]", "0"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[CapitalOmega]", "1"], "\[Rule]", "1"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[CapitalOmega]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[Delta]", "1"], "\[Rule]", "d"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[Delta]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Gamma]t", "\[Rule]", ".1"}]}], "}"}]}], "/.", 
+             "atomicdata"}], "/.", 
+            RowBox[{"Hertz", "\[Rule]", "1"}]}], "/.", 
+           RowBox[{"Mega", "\[Rule]", "1"}]}], "/.", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox[
+             SubscriptBox["\[Rho]", 
+              RowBox[{"s1_", ",", "s2_"}]], "\[Prime]",
+             MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}]}], 
+         "]"}], ",", "vars"}], "]"}], "[", 
+      RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"d", ",", 
+     RowBox[{"-", "50"}], ",", "50"}], "}"}]}], "]"}]], "Input"],
+
+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
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesOrigin->{0, 0},
+  PlotRange->{{-50, 50}, {0., 0.000011615488633854644`}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], 
+    Scaled[0.02]}]], "Output"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SubscriptBox["\[Rho]", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"2", ",", "2", ",", "1"}], "}"}]}]], "[", "t", "]"}], "/.", 
+    RowBox[{"Chop", "@", 
+     RowBox[{
+      RowBox[{"NSolve", "[", 
+       RowBox[{
+        RowBox[{"Evaluate", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{
+             RowBox[{"eqs", "/.", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{
+                 SubscriptBox["\[Phi]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Delta]k", "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Delta]\[Omega]", "\[Rule]", "0"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[CapitalOmega]", "2"], "\[Rule]", "1"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[CapitalOmega]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[Delta]", "2"], "\[Rule]", "d"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[Delta]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Gamma]t", "\[Rule]", ".1"}]}], "}"}]}], "/.", 
+             "atomicdata"}], "/.", 
+            RowBox[{"Hertz", "\[Rule]", "1"}]}], "/.", 
+           RowBox[{"Mega", "\[Rule]", "1"}]}], "/.", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox[
+             SubscriptBox["\[Rho]", 
+              RowBox[{"s1_", ",", "s2_"}]], "\[Prime]",
+             MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}]}], 
+         "]"}], ",", "vars"}], "]"}], "[", 
+      RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"d", ",", 
+     RowBox[{"-", "50"}], ",", "50"}], "}"}]}], "]"}]], "Input"],
+
+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
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesOrigin->{0, 0},
+  PlotRange->{{-50, 50}, {0., 3.945041785231018*^-6}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], 
+    Scaled[0.02]}]], "Output"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SubscriptBox["\[Rho]", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], "/.", 
+    RowBox[{"Chop", "@", 
+     RowBox[{
+      RowBox[{"NSolve", "[", 
+       RowBox[{
+        RowBox[{"Evaluate", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{
+             RowBox[{"eqs", "/.", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{
+                 SubscriptBox["\[Phi]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Delta]k", "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Delta]\[Omega]", "\[Rule]", "0"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[CapitalOmega]", "3"], "\[Rule]", "1"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[CapitalOmega]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[Delta]", "3"], "\[Rule]", "d"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[Delta]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Gamma]t", "\[Rule]", ".1"}]}], "}"}]}], "/.", 
+             "atomicdata"}], "/.", 
+            RowBox[{"Hertz", "\[Rule]", "1"}]}], "/.", 
+           RowBox[{"Mega", "\[Rule]", "1"}]}], "/.", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox[
+             SubscriptBox["\[Rho]", 
+              RowBox[{"s1_", ",", "s2_"}]], "\[Prime]",
+             MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}]}], 
+         "]"}], ",", "vars"}], "]"}], "[", 
+      RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"d", ",", 
+     RowBox[{"-", "50"}], ",", "50"}], "}"}]}], "]"}]], "Input"],
+
+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=
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesOrigin->{0, 1.5*^-7},
+  PlotRange->{{-50, 50}, {1.3655209232970803`*^-7, 1.0639247790950001`*^-6}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], 
+    Scaled[0.02]}]], "Output"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Plot", "[", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     SubscriptBox["\[Rho]", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
+       RowBox[{"{", 
+        RowBox[{"3", ",", "1", ",", "1"}], "}"}]}]], "[", "t", "]"}], "/.", 
+    RowBox[{"Chop", "@", 
+     RowBox[{
+      RowBox[{"NSolve", "[", 
+       RowBox[{
+        RowBox[{"Evaluate", "[", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{
+             RowBox[{"eqs", "/.", 
+              RowBox[{"{", 
+               RowBox[{
+                RowBox[{
+                 SubscriptBox["\[Phi]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Delta]k", "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Delta]\[Omega]", "\[Rule]", "0"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[CapitalOmega]", "4"], "\[Rule]", "1"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[CapitalOmega]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[Delta]", "1"], "\[Rule]", "d"}], ",", 
+                RowBox[{
+                 SubscriptBox["\[Delta]", "_"], "\[Rule]", "0"}], ",", 
+                RowBox[{"\[Gamma]t", "\[Rule]", ".1"}]}], "}"}]}], "/.", 
+             "atomicdata"}], "/.", 
+            RowBox[{"Hertz", "\[Rule]", "1"}]}], "/.", 
+           RowBox[{"Mega", "\[Rule]", "1"}]}], "/.", 
+          RowBox[{
+           RowBox[{
+            SuperscriptBox[
+             SubscriptBox["\[Rho]", 
+              RowBox[{"s1_", ",", "s2_"}]], "\[Prime]",
+             MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}]}], 
+         "]"}], ",", "vars"}], "]"}], "[", 
+      RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
+   RowBox[{"{", 
+    RowBox[{"d", ",", 
+     RowBox[{"-", "50"}], ",", "50"}], "}"}]}], "]"}]], "Input"],
+
+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
+     "]]}},
+  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
+  Axes->True,
+  AxesOrigin->{0, 1.*^-6},
+  PlotRange->{{-50, 50}, {1.1360342394545041`*^-6, 8.752003226543715*^-6}},
+  PlotRangeClipping->True,
+  PlotRangePadding->{
+    Scaled[0.02], 
+    Scaled[0.02]}]], "Output"]
+}, Open  ]]
+},
+WindowSize->{1609, 896},
+WindowMargins->{{1, Automatic}, {Automatic, 1}},
+ShowSelection->True,
+FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{
+ "Info3549888455-1032052"->{
+  Cell[49227, 1456, 104, 2, 40, "Print",
+   CellTags->"Info3549888455-1032052"]}
+ }
+*)
+(*CellTagsIndex
+CellTagsIndex->{
+ {"Info3549888455-1032052", 249081, 6847}
+ }
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[545, 20, 52, 1, 31, "Input"],
+Cell[600, 23, 138, 3, 31, "Input",
+ CellGroupingRules->{GroupTogetherGrouping, 10001.},
+ CellID->2058623809],
+Cell[CellGroupData[{
+Cell[763, 30, 144, 3, 31, "Input"],
+Cell[910, 35, 382, 8, 30, "Output"]
+}, Open  ]],
+Cell[1307, 46, 61, 1, 29, "Text",
+ CellID->429217524],
+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"]
+}, Open  ]],
+Cell[13288, 368, 567, 23, 29, "Text",
+ CellID->133602844],
+Cell[CellGroupData[{
+Cell[13880, 395, 325, 8, 31, "Input"],
+Cell[14208, 405, 478, 12, 30, "Output"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[14723, 422, 2133, 66, 92, "Input",
+ CellID->534530029],
+Cell[16859, 490, 2306, 68, 53, "Output"]
+}, Open  ]],
+Cell[19180, 561, 210, 5, 29, "Text",
+ CellID->462076121],
+Cell[CellGroupData[{
+Cell[19415, 570, 528, 16, 31, "Input",
+ CellID->494599775],
+Cell[19946, 588, 24353, 721, 594, "Output"]
+}, Open  ]],
+Cell[44314, 1312, 69, 1, 29, "Text",
+ CellID->358620443],
+Cell[CellGroupData[{
+Cell[44408, 1317, 643, 18, 31, "Input",
+ CellID->167259034],
+Cell[45054, 1337, 1830, 37, 207, "Output"]
+}, Open  ]],
+Cell[46899, 1377, 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"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[49368, 1463, 125, 3, 31, "Input"],
+Cell[49496, 1468, 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"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[67075, 1974, 66, 1, 31, "Input"],
+Cell[67144, 1977, 1087, 24, 378, "Output"]
+}, Open  ]],
+Cell[68246, 2004, 377, 12, 29, "Text",
+ CellID->610306692],
+Cell[CellGroupData[{
+Cell[68648, 2020, 272, 7, 31, "Input",
+ CellID->645617687],
+Cell[68923, 2029, 2716, 58, 266, "Output"]
+}, Open  ]],
+Cell[71654, 2090, 383, 12, 29, "Text",
+ CellID->854192725],
+Cell[CellGroupData[{
+Cell[72062, 2106, 274, 7, 31, "Input",
+ CellID->465762594],
+Cell[72339, 2115, 49674, 1436, 426, "Output"]
+}, Open  ]],
+Cell[122028, 3554, 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"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[136362, 4023, 451, 13, 31, "Input"],
+Cell[136816, 4038, 4468, 129, 126, "Output"]
+}, Open  ]],
+Cell[141299, 4170, 43, 0, 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"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[145525, 4306, 4708, 124, 108, "Input"],
+Cell[150236, 4432, 58282, 1556, 1203, "Output"],
+Cell[208521, 5990, 7054, 104, 943, "Output"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[215612, 6099, 215, 6, 31, "Input"],
+Cell[215830, 6107, 120, 1, 30, "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"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[221629, 6270, 1856, 49, 33, "Input"],
+Cell[223488, 6321, 4889, 86, 248, "Output"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[228414, 6412, 1856, 49, 33, "Input"],
+Cell[230273, 6463, 4874, 86, 254, "Output"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[235184, 6554, 1856, 49, 33, "Input"],
+Cell[237043, 6605, 4899, 86, 245, "Output"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[241979, 6696, 1856, 49, 33, "Input"],
+Cell[243838, 6747, 4900, 86, 252, "Output"]
+}, Open  ]]
+}
+]
+*)
+
+(* End of internal cache information *)
author	Simon Rochester <simon.rochester@gmail.com>	2012-06-28 17:00:01 -0700
committer	Simon Rochester <simon.rochester@gmail.com>	2012-06-28 17:00:01 -0700
commit	50d5f2103debfdee0b29aa3622e13697c0628534 (patch)
tree	64dafc46d358c84e3d09a32c80568b79b1929166
parent	6b2ee460cea2f800becd85b4f254a96ee678da82 (diff)
download	Nresonances-50d5f2103debfdee0b29aa3622e13697c0628534.tar.gz Nresonances-50d5f2103debfdee0b29aa3622e13697c0628534.zip