From 50d5f2103debfdee0b29aa3622e13697c0628534 Mon Sep 17 00:00:00 2001 From: Simon Rochester Date: Thu, 28 Jun 2012 17:00:01 -0700 Subject: Added RbXMDSSetup with code for Rb-87 --- mathemathica_fwm/RbData.txt | 6 + mathemathica_fwm/RbXMDSSetup.nb | 6993 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 6999 insertions(+) create mode 100755 mathemathica_fwm/RbData.txt create mode 100755 mathemathica_fwm/RbXMDSSetup.nb 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[{"\"\\"", ",", "87", ",", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"{", + RowBox[{"5", ",", "\"\\""}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "\"\\"", ",", + 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[{"\"\\"", ",", "87", ",", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"{", + RowBox[{"5", ",", "\"\\""}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "\"\\"", ",", + 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[{"\"\\"", ",", "87", ",", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"{", + RowBox[{"5", ",", "\"\\""}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "\"\\"", ",", + 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[{ + "\"\\"", "~~", "a__", "~~", "\"\<\\\",\\\"\>\"", "~~", "b__", + "~~", "\"\<\\\")\>\""}], "]"}], ":>", + RowBox[{"\"\\"", "<>", "a", "<>", "b", "<>", "\"\<_dt\>\""}]}], + ",", + RowBox[{ + RowBox[{"Shortest", "[", + RowBox[{ + "\"\\"", "~~", "a__", "~~", "\"\<\\\",\\\"\>\"", "~~", "b__", + "~~", "\"\<\\\")\>\""}], "]"}], ":>", + RowBox[{"\"\\"", "<>", "a", "<>", "b"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], + "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], + "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], + "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "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", "[", "]"}], ",", + "\"\\""}], "]"}], ",", "%"}], "]"}]], "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[{"\"\\"", ",", "87", ",", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"{", + RowBox[{"5", ",", "\"\\""}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "\"\\"", ",", + FractionBox["1", "2"]}], "}"}]}], "}"}], ",", + RowBox[{"{", "HyperfineA", "}"}], ",", + RowBox[{"Label", "\[Rule]", "1"}]}], "]"}], ",", + RowBox[{"AtomicData", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"\"\\"", ",", "87", ",", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"{", + RowBox[{"5", ",", "\"\\""}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "\"\\"", ",", + FractionBox["1", "2"]}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"HyperfineA", ",", "NaturalWidth"}], "}"}], ",", + RowBox[{"Label", "\[Rule]", "2"}]}], "]"}], ",", + RowBox[{"AtomicData", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"\"\\"", ",", "87", ",", + RowBox[{"{", + RowBox[{"\"\\"", ",", + RowBox[{"{", + RowBox[{"5", ",", "\"\\""}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "\"\\"", ",", + 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[{ + "\"\\"", "~~", "a__", "~~", "\"\<,\>\"", "~~", "b__", "~~", + "\"\<)\>\""}], "]"}], ":>", + RowBox[{"\"\\"", "<>", "a", "<>", "b", "<>", "\"\<_dt\>\""}]}], + ",", + RowBox[{ + RowBox[{"Shortest", "[", + RowBox[{ + "\"\\"", "~~", "a__", "~~", "\"\<,\>\"", "~~", "b__", "~~", + "\"\<)\>\""}], "]"}], ":>", + RowBox[{"\"\\"", "<>", "a", "<>", "b"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], + "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], + "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], + "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "a"}]}], ",", + RowBox[{ + RowBox[{"\"\\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", + RowBox[{"\"\\"", "<>", "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 *) -- cgit v1.2.3