hamiltonian-derivation.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    379198,       8943]
NotebookOptionsPosition[    366326,       8754]
NotebookOutlinePosition[    366680,       8770]
CellTagsIndexPosition[    366637,       8767]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Moving between polarisation basis", "Section",
 CellChangeTimes->{{3.70262415279408*^9, 3.7026241584123297`*^9}, {
  3.703861124847101*^9, 3.703861141933174*^9}, {3.7040020275299397`*^9, 
  3.7040020328166637`*^9}, {3.744968931633543*^9, 
  3.744968932649972*^9}},ExpressionUUID->"83e366ca-287c-483c-9798-\
c292dd12ddd4"],

Cell["\<\
We consider moving between polarisation bases with unitary rotations of the \
form:\
\>", "Text",
 CellChangeTimes->{{3.744968921957625*^9, 3.7449689458576727`*^9}, {
  3.744968980401949*^9, 
  3.7449689824405317`*^9}},ExpressionUUID->"c56210a6-e7d6-4955-aa36-\
248c2f3fb0b5"],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Phi]1", ",", "\[Phi]2"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R", "=", 
   RowBox[{"(", GridBox[{
      {
       RowBox[{"\[Alpha]", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "\[Phi]1"}]]}], 
       RowBox[{
        RowBox[{"-", "\[Beta]"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]2"}]]}]},
      {
       RowBox[{"\[Beta]", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "\[Phi]2"}]]}], 
       RowBox[{"\[Alpha]", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]1"}]]}]}
     }], ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.744968948069353*^9, 3.7449689758581963`*^9}, 
   3.7449692315527487`*^9},
 CellLabel->
  "In[935]:=",ExpressionUUID->"9466a637-9f1d-4743-b09d-10a4da96a364"],

Cell["\<\
Our model will work in the cavity basis, which we define to have eigenstates \
|X> and |Y>:\
\>", "Text",
 CellChangeTimes->{{3.744968989357873*^9, 
  3.744969017422428*^9}},ExpressionUUID->"0228df05-8297-4f77-abff-\
a5ce7f8cd027"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"X", ",", "Y"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", GridBox[{
        {"1"},
        {"0"}
       }], ")"}], ",", 
     RowBox[{"(", GridBox[{
        {"0"},
        {"1"}
       }], ")"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.744969039968446*^9, 3.744969044904705*^9}},
 CellLabel->
  "In[937]:=",ExpressionUUID->"1d1711d6-af36-4bad-b870-75b26e77b62f"],

Cell[TextData[{
 "The rotated basis then is then ",
 Cell[BoxData[
  FormBox[
   RowBox[{"{", 
    RowBox[{"|", 
     RowBox[{"P", ">"}]}]}], TraditionalForm]],ExpressionUUID->
  "c65c0599-478b-42e6-bcb0-3d1667e8cbe9"],
 " , ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"|", 
      RowBox[{"M", ">"}]}], "}"}], " "}], TraditionalForm]],ExpressionUUID->
  "62ea1ad2-60ba-48de-8512-ce212670851f"],
 " with:"
}], "Text",
 CellChangeTimes->{{3.7449690494051723`*^9, 
  3.74496919443156*^9}},ExpressionUUID->"7b73a5a5-a486-49b7-a601-\
ffd9a2772485"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"P", ",", "M"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"R", ".", "X"}], ",", 
     RowBox[{"R", ".", "Y"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "/@", 
  RowBox[{"{", 
   RowBox[{"P", ",", "M"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7449692025060873`*^9, 3.744969225330172*^9}},
 CellLabel->
  "In[938]:=",ExpressionUUID->"d495d596-7b98-4b07-8025-7e151133d3dd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]1"}]], " ", "\[Alpha]"}]},
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]2"}]], " ", "\[Beta]"}]}
      },
      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$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]2"}]]}], " ", 
         "\[Beta]"}]},
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]1"}]], " ", 
         "\[Alpha]"}]}
      },
      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",
 CellChangeTimes->{3.744969225691368*^9, 3.744970536779911*^9, 
  3.745138234387802*^9, 3.745921167712926*^9, 3.7459213708019657`*^9, 
  3.7459991189872017`*^9, 3.74615894854082*^9, 3.746341853428753*^9},
 CellLabel->
  "Out[939]=",ExpressionUUID->"1d194385-8a3e-4d66-b2c0-3e06088e37d7"]
}, Open  ]],

Cell[TextData[{
 "Thus using subscripts to denote the basis in which we are writing the \
vectors we have\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", 
    RowBox[{"P", 
     SubscriptBox[">", "C"]}]}], TraditionalForm]],ExpressionUUID->
  "ae360518-3091-4cee-8814-fd90336abfc0"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "\[Phi]1"}]], " ", "\[Alpha]"}], " ", "|", 
    RowBox[{"X", 
     SubscriptBox[">", "C"]}]}], TraditionalForm]],ExpressionUUID->
  "03c152b5-faed-4e8b-a2f4-141ba6df4b26"],
 " + ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "\[Phi]2"}]], " ", "\[Beta]"}], " ", "|", 
    
    RowBox[{"Y", 
     SubscriptBox[">", "C"]}]}], TraditionalForm]],ExpressionUUID->
  "9d9ce614-3256-4a0a-80a5-71f2f1954012"],
 "= ",
 Cell[BoxData[
  FormBox["R", TraditionalForm]],ExpressionUUID->
  "ff367992-af03-4ff8-a1f8-17d4960196ed"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", GridBox[{
      {"1"},
      {"0"}
     }], ")"}], TraditionalForm]],ExpressionUUID->
  "256d7dde-ca48-4555-9643-534e16b72fcd"],
 " = R",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", 
    RowBox[{"P", 
     SubscriptBox[">", "R"]}]}], TraditionalForm]],ExpressionUUID->
  "f5a69a80-0a93-46af-90f5-d0ba7acae77f"],
 "\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", 
    RowBox[{"M", 
     SubscriptBox[">", "C"]}]}], TraditionalForm]],ExpressionUUID->
  "81a0ceab-6b90-4b4d-8ed6-0b55590c1564"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]2"}]]}], " ", "\[Beta]"}],
     " ", "|", 
    RowBox[{"X", 
     SubscriptBox[">", "C"]}]}], TraditionalForm]],ExpressionUUID->
  "3dd66954-04dd-4b21-bbe2-efdab1613fd7"],
 " + ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]1"}]], " ", "\[Alpha]"}], 
    " ", "|", 
    RowBox[{"Y", 
     SubscriptBox[">", "C"]}]}], TraditionalForm]],ExpressionUUID->
  "3a5a4ccf-81f7-4ace-ad1a-ea8176cc6f96"],
 "= ",
 Cell[BoxData[
  FormBox["R", TraditionalForm]],ExpressionUUID->
  "46b692a5-c0b8-4a7e-8917-af2a501e07f5"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", GridBox[{
      {"0"},
      {"1"}
     }], ")"}], TraditionalForm]],ExpressionUUID->
  "83f60f32-7619-41f8-ab8c-9ed3fb37e9be"],
 " = R",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", 
    RowBox[{"M", 
     SubscriptBox[">", "R"]}]}], TraditionalForm]],ExpressionUUID->
  "d22e5de3-17a8-4fd3-b3d8-5412eda66518"],
 "\nTherefore the rotation matrix R, is the rotation from the rotated basis \
to the cavity basis.\ni.e. "
}], "Text",
 CellChangeTimes->{{3.7449692529462013`*^9, 3.744969269069552*^9}, {
  3.7449693014493732`*^9, 
  3.744969546700726*^9}},ExpressionUUID->"68f6dbd4-34c0-446c-8779-\
afcb91a1d381"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"RRC", "=", 
   RowBox[{"R", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Alpha]", "\[Rule]", " ", "\[Alpha]RC"}], ",", 
      RowBox[{"\[Beta]", "\[Rule]", "\[Beta]RC"}], ",", 
      RowBox[{"\[Phi]1", "\[Rule]", "\[Phi]1RC"}], " ", ",", 
      RowBox[{"\[Phi]2", "\[Rule]", "\[Phi]2RC"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RRC", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.74496955743661*^9, 3.744969620497196*^9}, {
  3.744969839705846*^9, 3.744969841157422*^9}, {3.7449698809313707`*^9, 
  3.7449698824799757`*^9}},
 CellLabel->
  "In[940]:=",ExpressionUUID->"4f4a009f-de61-49f4-993f-8d41279bded0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]1RC"}]], " ", "\[Alpha]RC"}], 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]2RC"}]]}], " ", 
       "\[Beta]RC"}]},
     {
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]2RC"}]], " ", "\[Beta]RC"}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]1RC"}]], " ", 
       "\[Alpha]RC"}]}
    },
    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",
 CellChangeTimes->{{3.744969607382559*^9, 3.7449696209455853`*^9}, 
   3.744969841604846*^9, 3.744969883591683*^9, 3.7449705368288527`*^9, 
   3.745138234447875*^9, 3.745921167776292*^9, 3.7459213708690557`*^9, 
   3.745999119071084*^9, 3.746158948586843*^9, 3.7463418535364437`*^9},
 CellLabel->
  "Out[941]//MatrixForm=",ExpressionUUID->"fd5ae093-022e-48bc-af8a-\
073eb051ce4b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["3 level Lambda system with biref", "Section",
 CellChangeTimes->{{3.70262415279408*^9, 3.7026241584123297`*^9}, {
  3.703861124847101*^9, 
  3.703861141933174*^9}},ExpressionUUID->"be6b31d8-b8ec-4b52-a460-\
1b7dd3748046"],

Cell[CellGroupData[{

Cell[TextData[{
 "4-level Lambda system (3-level + drain): STIRAP (u -> g) producing ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Sigma]", "-"], TraditionalForm]],ExpressionUUID->
  "7e142035-f5b3-4a5c-950c-ffee0ac49cbd"],
 " polarised photons"
}], "Subsubsection",
 CellChangeTimes->{{3.67870064595223*^9, 3.678700654438718*^9}, {
  3.7025296200053*^9, 3.7025296372193537`*^9}, {3.702529847973466*^9, 
  3.702529898273839*^9}, {3.702530093556807*^9, 3.702530095212714*^9}, {
  3.702565755125483*^9, 3.702565764527946*^9}, {3.702566213588703*^9, 
  3.702566287248189*^9}, {3.710166915452512*^9, 3.71016696882443*^9}, {
  3.7101670116273117`*^9, 3.710167011689919*^9}, {3.743835980650526*^9, 
  3.743835980962324*^9}, {3.7438360817286663`*^9, 
  3.7438360843194447`*^9}},ExpressionUUID->"e9aa394f-0e06-4106-8f8f-\
d56b7528b1e7"],

Cell["\<\
We start by defining the static terms - the Hamiltonians for the atom and the \
cavity respectively.  Note that the excited state, e, is taken as 0 energy by \
convention.  

We also define the photon annihilation operators for H and V modes of the \
cavity.\
\>", "Text",
 CellChangeTimes->{{3.678700515259136*^9, 3.678700552328927*^9}, {
   3.702548339973042*^9, 3.702548415160453*^9}, 
   3.710166975990169*^9},ExpressionUUID->"dba0cb68-3e94-4866-b8f2-\
3e70890fc783"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bra", "[", 
   RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", " ", 
  RowBox[{"(", GridBox[{
     {"a", "b", "c", "d"}
    }], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ket", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"(", GridBox[{
       {"a", "b", "c", "d"}
      }], ")"}], "\[Transpose]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CircleTimes", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
   RowBox[{"KroneckerProduct", "[", 
    RowBox[{"a", ",", "b"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", " ", "=", "   ", 
   RowBox[{"ket", "[", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e", " ", "=", "   ", 
   RowBox[{"ket", "[", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", " ", "=", "   ", 
   RowBox[{"ket", "[", 
    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"d", " ", "=", "   ", 
    RowBox[{"ket", "[", 
     RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"states", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
     "\"\<u\>\"", ",", "\"\<e\>\"", ",", "\"\<g\>\"", ",", "\"\<d\>\""}], 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Hatom", "=", 
    RowBox[{
     RowBox[{"\[Omega]u", " ", 
      RowBox[{"u", ".", 
       RowBox[{"u", "\[ConjugateTranspose]"}]}]}], " ", "+", " ", 
     RowBox[{"\[Omega]g", " ", 
      RowBox[{"g", ".", 
       RowBox[{"g", "\[ConjugateTranspose]"}]}]}], " ", "+", " ", 
     RowBox[{"\[Omega]d", "  ", 
      RowBox[{"d", ".", 
       RowBox[{"d", "\[ConjugateTranspose]"}]}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"HcavX", ",", "HcavY"}], "}"}], "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"(", GridBox[{
         {"0", "0"},
         {"0", "\[Omega]X"}
        }], ")"}], ",", 
      RowBox[{"(", GridBox[{
         {"0", "0"},
         {"0", "\[Omega]Y"}
        }], ")"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hcav", " ", "=", 
   RowBox[{
    RowBox[{"HcavX", "\[CircleTimes]", 
     RowBox[{"IdentityMatrix", "[", "2", "]"}]}], "+", 
    RowBox[{
     RowBox[{"IdentityMatrix", "[", "2", "]"}], "\[CircleTimes]", 
     "HcavY"}]}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwd0GFIE3EABfCzReo0B5VunFToRCJ1mEQWzbnZlmzkqjGnxsCQKcOgIrYa
GVkEEWt6llZOS0SGSBO5DFbBQKNrZpCTQqGkpcvKzYE6NItK+r/78PjxPr6X
VXfOUL+Joqg8EhjxXe5qtS6qXlvaWag0DzyDg7muEVj64u1X6BQNx+Avs/kf
7A9bBAxReCskhHXRnu1QPvRYDN2HHDQMjFbYIcelXoROXeNPwf1F1UJ0JXkz
Md1ry4V6sWMvtA9FtbC0+cspaNJILdA3X8tbXe+1pxLb4izvrhHTVehZbub1
52TcgEetjS7Y8XQ9AGeSBWMwO2kiCAvnDk9CWYFYtpW46u7eBwUS9QGoMMwe
hL/XR5XwYXviMXhvo+8ELAhyVdBhbDkN2UrKAg1lGRdgb/y8DQp3NvhFRPpV
L29I+6hpB3qF7Qq8e/PjWDpxrWpPEL6cDkxBdTDhE+wcyJuF2YnLYchtSGga
f4jGd8N8zpMDmRStjO+acSV01D7QwSWq8jg0lbl5k3rOhOEbSV8MTsx/+wPV
7JO/MMR8L8wkGp8X7YeRtBI5dLUNK+C1hSw99LxneZ2ad5/hSX08BqWXBtda
OsmeGu+WVqK9Ya6aIZ6dya+Bim0dt6EurdgF5T/8JXeIqzGpAtIpXtUHorUo
8wicZK6Xw+6EiBb+B5ZfUtI=
  "],
 CellLabel->
  "In[942]:=",ExpressionUUID->"bbcdd28c-cca7-45f2-8004-b0beab5a5c1e"],

Cell["\<\
Define the creation operators (a\[ConjugateTranspose] \[Equivalent] ad) for \
photons in both cavity modes.\
\>", "Text",
 CellChangeTimes->{{3.746158986460091*^9, 
  3.7461590231487617`*^9}},ExpressionUUID->"a6a1005b-4b47-4c39-81e2-\
1f998a79dc43"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ad", "=", 
   RowBox[{"(", GridBox[{
      {"0", "0"},
      {"1", "0"}
     }], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"adX", ",", "adY"}], "}"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ad", "\[CircleTimes]", 
      RowBox[{"IdentityMatrix", "[", "2", "]"}]}], ",", 
     RowBox[{
      RowBox[{"IdentityMatrix", "[", "2", "]"}], "\[CircleTimes]", "ad"}]}], 
    "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.7040026809590607`*^9, {3.7040101144259853`*^9, 3.7040101145378437`*^9}, {
   3.704010161336952*^9, 3.704010198359014*^9}, {3.704011243969458*^9, 
   3.7040112613748817`*^9}, {3.7064285453188753`*^9, 3.706428546247604*^9}, {
   3.706435154861804*^9, 3.7064351563211718`*^9}, {3.706435268768189*^9, 
   3.706435268959856*^9}, {3.7461589758248653`*^9, 3.746158982360545*^9}, {
   3.746159024708911*^9, 3.74615902887086*^9}},
 CellLabel->
  "In[953]:=",ExpressionUUID->"3f2e8114-f146-47f9-af30-5ebd8c1f107b"],

Cell[TextData[{
 "Now define the creation operators for photons in the |+> and |-> modes \
(which we call the \[OpenCurlyQuote]atomic basis\[CloseCurlyQuote] as it is \
aligned with the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Sigma]", "\[PlusMinus]"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "e48e6c22-c1a2-43a5-93e1-47acd99e4ad6"],
 " transitions, denoted by the subscript \
\[OpenCurlyQuote]A\[CloseCurlyQuote])."
}], "Text",
 CellChangeTimes->{{3.7449699365490294`*^9, 3.7449699465612373`*^9}, {
  3.744969998401188*^9, 3.744970041624627*^9}, {3.745138240114805*^9, 
  3.745138241052692*^9}, {3.746159036413628*^9, 3.746159037189465*^9}, {
  3.746159090932704*^9, 
  3.746159179048172*^9}},ExpressionUUID->"96746091-300d-4972-a84f-\
d326798d72b1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"RAC", "=", 
   RowBox[{"R", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Alpha]", "\[Rule]", " ", "\[Alpha]AC"}], ",", 
      RowBox[{"\[Beta]", "\[Rule]", "\[Beta]AC"}], ",", 
      RowBox[{"\[Phi]1", "\[Rule]", "\[Phi]1AC"}], " ", ",", 
      RowBox[{"\[Phi]2", "\[Rule]", "\[Phi]2AC"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "/@", 
  RowBox[{"{", 
   RowBox[{"RAC", ",", 
    RowBox[{"RAC", ".", 
     RowBox[{"(", GridBox[{
        {"1"},
        {"0"}
       }], ")"}]}], ",", 
    RowBox[{"RAC", ".", 
     RowBox[{"(", GridBox[{
        {"0"},
        {"1"}
       }], ")"}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.706451666133301*^9, 3.706451672212648*^9}, {
  3.706453940268642*^9, 3.706453970816942*^9}, {3.7064540266669493`*^9, 
  3.706454027617536*^9}, {3.706501658628859*^9, 3.706501685329817*^9}, {
  3.744969899493402*^9, 3.7449699210571213`*^9}, {3.746159056124701*^9, 
  3.7461590778110857`*^9}},
 CellLabel->
  "In[955]:=",ExpressionUUID->"c576d90b-a32d-4d22-ae4e-0bed1aad4206"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]1AC"}]], " ", "\[Alpha]AC"}], 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]2AC"}]]}], " ", 
         "\[Beta]AC"}]},
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]2AC"}]], " ", "\[Beta]AC"}], 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]1AC"}]], " ", 
         "\[Alpha]AC"}]}
      },
      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$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]1AC"}]], " ", "\[Alpha]AC"}]},
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]2AC"}]], " ", "\[Beta]AC"}]}
      },
      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$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]2AC"}]]}], " ", 
         "\[Beta]AC"}]},
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]1AC"}]], " ", 
         "\[Alpha]AC"}]}
      },
      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",
 CellChangeTimes->{{3.706451666771616*^9, 3.706451672519346*^9}, 
   3.706453971194334*^9, 3.706454028015869*^9, {3.7065016517123423`*^9, 
   3.7065016856458693`*^9}, 3.710166977503921*^9, 3.710167209070217*^9, 
   3.743835960253703*^9, 3.743836287126507*^9, 3.743839049236224*^9, {
   3.744969917232052*^9, 3.744969921526582*^9}, 3.7449699973339453`*^9, 
   3.744970044313344*^9, 3.744970542765719*^9, 3.74513824617745*^9, 
   3.745138892211886*^9, 3.745907896747155*^9, 3.745921173297553*^9, 
   3.745921374335885*^9, 3.745999121208386*^9, 3.746159078354517*^9, 
   3.74615915092268*^9, 3.746341855515308*^9},
 CellLabel->
  "Out[956]=",ExpressionUUID->"ddb432c7-c999-4d02-8736-a2026e124676"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"adP", ",", "adM"}], "}"}], " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC1"}]], " ", "\[Alpha]AC", " ", 
       "adX"}], " ", "+", " ", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC2"}]], " ", "\[Beta]AC", " ", 
       "adY"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]AC2"}]]}], " ", 
       "\[Beta]AC", "  ", "adX"}], " ", "+", "  ", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]AC1"}]], "\[Alpha]AC", 
       " ", "adY"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "/@", 
  RowBox[{"{", 
   RowBox[{"adP", ",", "adM"}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.706427796655258*^9, 3.706427799456067*^9}, 
   3.706427839343627*^9, {3.706427882608428*^9, 3.706427960267425*^9}, {
   3.7064280338307877`*^9, 3.7064281111931868`*^9}, {3.7064282162791452`*^9, 
   3.7064283857715673`*^9}, {3.706428421925507*^9, 3.7064284512175713`*^9}, {
   3.7064284849453993`*^9, 3.7064285159603*^9}, {3.706428596533946*^9, 
   3.706428598030596*^9}, 3.7064348531166697`*^9, {3.7064352894903107`*^9, 
   3.70643533030564*^9}, {3.706453985711212*^9, 3.7064539999620113`*^9}, 
   3.706501690593709*^9, {3.743835962658917*^9, 3.7438359644269876`*^9}, {
   3.743836090024598*^9, 3.7438361009781027`*^9}, {3.7449700552841253`*^9, 
   3.744970067729876*^9}, {3.74615915341547*^9, 3.7461591643338346`*^9}},
 CellLabel->
  "In[957]:=",ExpressionUUID->"7721cc2b-8d9d-4511-9c63-f03396b8b8db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC2"}]], " ", "\[Beta]AC"}], 
        "0", "0", "0"},
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC1"}]], " ", "\[Alpha]AC"}], 
        "0", "0", "0"},
       {"0", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC1"}]], " ", "\[Alpha]AC"}], 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC2"}]], " ", "\[Beta]AC"}], 
        "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$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0", "0"},
       {
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]AC1"}]], " ", 
         "\[Alpha]AC"}], "0", "0", "0"},
       {
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]AC2"}]]}], " ", 
         "\[Beta]AC"}], "0", "0", "0"},
       {"0", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]AC2"}]]}], " ", 
         "\[Beta]AC"}], 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]AC1"}]], " ", 
         "\[Alpha]AC"}], "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",
 CellChangeTimes->{{3.7064282954737864`*^9, 3.706428386157281*^9}, {
   3.7064285002472477`*^9, 3.7064285162753057`*^9}, 3.706428599356044*^9, 
   3.7064297593874893`*^9, 3.706429805155655*^9, 3.7064353324146547`*^9, 
   3.706501691365972*^9, 3.7101669775456*^9, 3.710167209113924*^9, {
   3.7438359684956083`*^9, 3.743835970786683*^9}, {3.74383609696272*^9, 
   3.743836110610362*^9}, 3.743836294879818*^9, 3.7438390492999907`*^9, {
   3.7449699798328943`*^9, 3.7449700004501333`*^9}, {3.744970045120502*^9, 
   3.744970068644615*^9}, 3.744970544894024*^9, 3.745138247309208*^9, 
   3.745138892321044*^9, 3.745907897463615*^9, 3.745921173367076*^9, 
   3.745921374449916*^9, 3.745999121304804*^9, 3.746159164977461*^9, 
   3.746341855619255*^9},
 CellLabel->
  "Out[958]=",ExpressionUUID->"140f425a-a1ae-4236-b1ee-fc497f17cc70"]
}, Open  ]],

Cell["\<\
Add the laser and cavity interactions.
Note: with the atomic states {u,e,g,d} defined as ket\[CloseCurlyQuote]s and \
the ladder operator ad\[Sigma] the creation operator, the conjugate transpose \
of each respectively destroys atomic excitation or a photon.  This means the \
\[OpenCurlyQuote]dagger\[CloseCurlyQuote] operators below are lowering \
operators, which is counter to usual convention (however this is simpler than \
trying to get Mathematica to define an operator with the dagger already in \
the symbol...).\
\>", "Text",
 CellChangeTimes->{{3.7449699365490294`*^9, 3.7449699465612373`*^9}, {
  3.744969998401188*^9, 3.744970041624627*^9}, {3.744970085595583*^9, 
  3.744970091762177*^9}, {3.745907898019972*^9, 3.7459078988586283`*^9}, {
  3.7461592113956614`*^9, 
  3.7461593602089376`*^9}},ExpressionUUID->"f5a38ae2-0726-4d7d-9f8a-\
c4b45aa87b04"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HintCav", "[", 
     RowBox[{"g0_", ",", "grdState_", ",", "excState_", ",", "ad\[Sigma]_"}], 
     "]"}], ":=", 
    RowBox[{
     RowBox[{"-", "g0"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"excState", ".", 
         RowBox[{"grdState", "\[ConjugateTranspose]"}]}], "\[CircleTimes]", 
        RowBox[{"ad\[Sigma]", " ", "\[ConjugateTranspose]"}]}], " ", "+", " ", 
       RowBox[{
        RowBox[{"grdState", ".", 
         RowBox[{"excState", "\[ConjugateTranspose]"}]}], "\[CircleTimes]", 
        "ad\[Sigma]"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint1", " ", "=", 
   RowBox[{"HintCav", "[", 
    RowBox[{"g0", ",", "g", ",", "e", ",", "adM"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint1", "=", " ", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Hint1", ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Phi]"}], "}"}], 
      "\[Element]", "Reals"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.702551979739695*^9, 3.702552054829176*^9}, {
   3.702552093928594*^9, 3.702552138752636*^9}, {3.7025522118680973`*^9, 
   3.702552223885396*^9}, {3.702552289724957*^9, 3.702552338429254*^9}, {
   3.702552380392836*^9, 3.7025523981817636`*^9}, {3.702552436014077*^9, 
   3.702552508348551*^9}, {3.702552865427791*^9, 3.702552866038418*^9}, {
   3.702553526576908*^9, 3.7025535333427553`*^9}, {3.70255366119786*^9, 
   3.702553712890533*^9}, {3.70255491977826*^9, 3.702554931840757*^9}, {
   3.7025549636456423`*^9, 3.7025549639305964`*^9}, 3.702554999013811*^9, {
   3.702555029130147*^9, 3.702555029939177*^9}, {3.7025551275559177`*^9, 
   3.702555128865349*^9}, {3.702576206741436*^9, 3.702576208467882*^9}, {
   3.702576393054932*^9, 3.702576471340917*^9}, {3.7025765015250473`*^9, 
   3.7025765222951183`*^9}, {3.702576562160019*^9, 3.702576641158757*^9}, {
   3.702576673875287*^9, 3.702576774867755*^9}, {3.702577040696782*^9, 
   3.702577108111248*^9}, 3.7025771801574793`*^9, {3.702577384735547*^9, 
   3.702577414021578*^9}, {3.702578406390036*^9, 3.702578419727282*^9}, {
   3.702579059940929*^9, 3.7025790922376223`*^9}, {3.7025794497473497`*^9, 
   3.702579450636134*^9}, 3.702645252894855*^9, {3.702707984802265*^9, 
   3.702707990548757*^9}, {3.702711369132291*^9, 3.70271136996315*^9}, {
   3.703861964407267*^9, 3.703862017366515*^9}, {3.70386207743001*^9, 
   3.703862126534124*^9}, {3.7038622665854692`*^9, 3.703862282227578*^9}, {
   3.7038632799014397`*^9, 3.703863281075996*^9}, {3.703863688847843*^9, 
   3.703863754510494*^9}, {3.703863874083263*^9, 3.7038638766990356`*^9}, {
   3.70386413584566*^9, 3.703864140661022*^9}, {3.703864262688437*^9, 
   3.703864263030362*^9}, {3.703864294098516*^9, 3.70386429786604*^9}, 
   3.7038646951509457`*^9, {3.7038661364378757`*^9, 3.7038661417641077`*^9}, {
   3.703866173266623*^9, 3.7038662549093447`*^9}, {3.70386660076632*^9, 
   3.703866608389946*^9}, {3.703866676851109*^9, 3.703866677326942*^9}, 
   3.703866744374126*^9, {3.7040881498262672`*^9, 3.70408816512852*^9}, {
   3.704088701461721*^9, 3.7040887016686087`*^9}, {3.706429806060421*^9, 
   3.706429806812028*^9}, {3.74383597365947*^9, 3.7438359738430233`*^9}, {
   3.74383610468091*^9, 3.743836105357684*^9}, {3.746159185267913*^9, 
   3.74615920703647*^9}, 3.746159390782563*^9},
 CellLabel->
  "In[959]:=",ExpressionUUID->"5e421ec6-1fd3-453c-8663-777a40c79dbf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HintLas", "[", 
     RowBox[{
     "\[CapitalOmega]_", ",", " ", "\[Omega]\[CapitalOmega]_", ",", 
      "grdState_", ",", "excState_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["\[CapitalOmega]", "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"excState", ".", 
          RowBox[{"grdState", "\[ConjugateTranspose]"}]}], 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Omega]\[CapitalOmega]", 
           "*", "t"}]]}], "+", 
        RowBox[{
         RowBox[{"grdState", ".", 
          RowBox[{"excState", "\[ConjugateTranspose]"}]}], 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
          "\[ImaginaryI]", "*", "\[Omega]\[CapitalOmega]", "*", "t"}]]}]}], 
       ")"}], "\[CircleTimes]", 
      RowBox[{"IdentityMatrix", "[", "4", "]"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint2", " ", "=", " ", 
   RowBox[{"HintLas", "[", 
    RowBox[{"\[CapitalOmega]", ",", " ", "\[Omega]L", ",", "u", ",", "e"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.678696659834828*^9, 3.678696836606051*^9}, {
   3.678696893261261*^9, 3.6786969563797207`*^9}, {3.678697246335113*^9, 
   3.678697317564397*^9}, {3.6786974508863487`*^9, 3.678697499152667*^9}, {
   3.6786975589541063`*^9, 3.678697628966111*^9}, {3.678697661333769*^9, 
   3.678697683757031*^9}, {3.678698410429782*^9, 3.6786984163990192`*^9}, {
   3.702529971321599*^9, 3.702530127559925*^9}, {3.702530355645884*^9, 
   3.702530387752845*^9}, {3.702530639333796*^9, 3.702530774984283*^9}, {
   3.702530849102214*^9, 3.702530850996669*^9}, {3.702547373356121*^9, 
   3.7025473735296097`*^9}, {3.7025474427108297`*^9, 3.702547443998125*^9}, {
   3.702547480691984*^9, 3.702547579255754*^9}, {3.702547614173211*^9, 
   3.7025476164584703`*^9}, {3.70254777735853*^9, 3.702547832015243*^9}, {
   3.702548030581706*^9, 3.702548037128243*^9}, {3.702548162730276*^9, 
   3.70254816307003*^9}, {3.702549809604979*^9, 3.702549851227553*^9}, {
   3.702549883141232*^9, 3.7025499139023943`*^9}, {3.7025499702195177`*^9, 
   3.702550032767268*^9}, {3.702550335676249*^9, 3.702550397602269*^9}, {
   3.702550458645032*^9, 3.702550507638495*^9}, {3.70255056845636*^9, 
   3.7025506140536127`*^9}, {3.702550648340529*^9, 3.7025507162721567`*^9}, {
   3.7025510212041187`*^9, 3.702551040553837*^9}, {3.7025517833061113`*^9, 
   3.7025518969725323`*^9}, {3.702552859679459*^9, 3.702552863624405*^9}, {
   3.702552902933097*^9, 3.702552903998193*^9}, {3.702552953056807*^9, 
   3.702552995719563*^9}, {3.702553183719667*^9, 3.7025531972569933`*^9}, {
   3.702553308117548*^9, 3.702553385832818*^9}, {3.7025534415598707`*^9, 
   3.7025534653547897`*^9}, {3.702553510010027*^9, 3.702553558362096*^9}, {
   3.702553733587062*^9, 3.702553745483643*^9}, {3.702553780023377*^9, 
   3.702553781014967*^9}, {3.702553848501177*^9, 3.702553850171899*^9}, 
   3.702553908092738*^9, {3.702553949765768*^9, 3.702553989621895*^9}, {
   3.702554224564847*^9, 3.702554230802145*^9}, 3.702555135656845*^9, {
   3.702563041675346*^9, 3.702563047980208*^9}, {3.70257729475027*^9, 
   3.702577370434657*^9}, {3.7025774019814587`*^9, 3.7025774218868093`*^9}, {
   3.7025774863808317`*^9, 3.702577496364249*^9}, {3.702579106168675*^9, 
   3.70257911531761*^9}, {3.702645244726728*^9, 3.7026452484060917`*^9}, {
   3.7038637620333767`*^9, 3.703863797421474*^9}},
 CellLabel->
  "In[962]:=",ExpressionUUID->"54b5a5a5-4c42-4cc4-b0ef-2a71421ec320"],

Cell[BoxData[
 RowBox[{
  RowBox[{"H", " ", "=", " ", 
   RowBox[{
    RowBox[{"Hatom", "\[CircleTimes]", 
     RowBox[{"IdentityMatrix", "[", "4", "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"IdentityMatrix", "[", "4", "]"}], "\[CircleTimes]", "Hcav"}], 
    " ", "+", "Hint1", " ", "+", " ", "Hint2"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.678696659834828*^9, 3.678696836606051*^9}, {
   3.678696893261261*^9, 3.6786969563797207`*^9}, {3.678697246335113*^9, 
   3.678697317564397*^9}, {3.6786974508863487`*^9, 3.678697499152667*^9}, {
   3.6786975589541063`*^9, 3.678697628966111*^9}, {3.678697661333769*^9, 
   3.678697683757031*^9}, {3.678698410429782*^9, 3.6786984163990192`*^9}, {
   3.702529971321599*^9, 3.702530127559925*^9}, {3.702530355645884*^9, 
   3.702530387752845*^9}, {3.702530639333796*^9, 3.702530774984283*^9}, {
   3.702530849102214*^9, 3.702530850996669*^9}, {3.702547373356121*^9, 
   3.7025473735296097`*^9}, {3.7025474427108297`*^9, 3.702547443998125*^9}, {
   3.702547480691984*^9, 3.702547579255754*^9}, {3.702547614173211*^9, 
   3.7025476164584703`*^9}, {3.70254777735853*^9, 3.702547832015243*^9}, {
   3.702548030581706*^9, 3.702548037128243*^9}, {3.702548162730276*^9, 
   3.70254816307003*^9}, {3.702549809604979*^9, 3.702549851227553*^9}, {
   3.702549883141232*^9, 3.7025499139023943`*^9}, {3.7025499702195177`*^9, 
   3.702550032767268*^9}, {3.702550335676249*^9, 3.702550397602269*^9}, {
   3.702550458645032*^9, 3.702550507638495*^9}, {3.70255056845636*^9, 
   3.7025506140536127`*^9}, {3.702550648340529*^9, 3.7025507162721567`*^9}, {
   3.7025510212041187`*^9, 3.702551040553837*^9}, {3.7025517833061113`*^9, 
   3.7025518969725323`*^9}, {3.702552859679459*^9, 3.702552863624405*^9}, {
   3.702552902933097*^9, 3.702552903998193*^9}, {3.702552953056807*^9, 
   3.702552995719563*^9}, {3.702553183719667*^9, 3.7025531972569933`*^9}, {
   3.702553308117548*^9, 3.702553385832818*^9}, {3.7025534415598707`*^9, 
   3.7025534653547897`*^9}, {3.702553510010027*^9, 3.702553558362096*^9}, {
   3.702553733587062*^9, 3.702553745483643*^9}, {3.702553780023377*^9, 
   3.702553781014967*^9}, {3.7025540047982473`*^9, 3.702554028048746*^9}, {
   3.702554123215859*^9, 3.702554134335231*^9}, {3.702554176251082*^9, 
   3.702554201069647*^9}, {3.70257750790259*^9, 3.702577512431591*^9}, 
   3.702577887450592*^9, {3.703863899959169*^9, 3.703863900539896*^9}, {
   3.7038672359310102`*^9, 3.703867239942522*^9}, {3.703867409285763*^9, 
   3.703867433638813*^9}},
 CellLabel->
  "In[964]:=",ExpressionUUID->"8b14521d-f10c-445d-873a-1bf2fee525d9"],

Cell["\<\
Rotating into the interaction picture and simplifying down to detunings.\
\>", "Text",
 CellChangeTimes->{{3.702563433126926*^9, 3.702563450038622*^9}, {
  3.702580072232862*^9, 3.702580072392899*^9}, {3.744970110626609*^9, 
  3.7449701153454638`*^9}, {3.745907901859604*^9, 
  3.7459079024506683`*^9}},ExpressionUUID->"8d40b0fa-18d7-4823-9425-\
27021063a477"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"G", "  ", "=", " ", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"Diagonal", "[", "H", "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"U", "=", 
    RowBox[{"MatrixExp", "[", 
     RowBox[{"\[ImaginaryI]", " ", "G", " ", "t"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "\[CapitalDelta]L", ",", "\[CapitalDelta]C", ",", "\[CapitalDelta]P"}], 
   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint", " ", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"TrigToExp", "[", 
     RowBox[{"ComplexExpand", "[", 
      RowBox[{
       RowBox[{"U", ".", "H", ".", 
        RowBox[{"U", "\[ConjugateTranspose]"}]}], "-", "G"}], "]"}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"detuningFromAtomicLevelRules", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Omega]L", " ", "+", " ", "\[Omega]u"}], " ", "\[Rule]", " ",
        "\[CapitalDelta]L"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Omega]X", " ", "+", " ", "\[Omega]g"}], " ", "\[Rule]", " ", 
       RowBox[{"\[CapitalDelta]C", " ", "+", " ", 
        FractionBox["\[CapitalDelta]P", "2"]}]}], ",", "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"\[Omega]Y", " ", "+", " ", "\[Omega]g"}], " ", "\[Rule]", " ", 
       RowBox[{"\[CapitalDelta]C", " ", "-", " ", 
        FractionBox["\[CapitalDelta]P", "2"]}]}]}], "\[IndentingNewLine]", 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint", " ", "=", " ", 
   RowBox[{"Hint", "//.", "detuningFromAtomicLevelRules"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{
    RowBox[{"\[Sqrt]", "2"}], "*", "Hint"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Hint", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.702554321415678*^9, 3.702554366174966*^9}, {
   3.702554511962409*^9, 3.7025545119980717`*^9}, {3.702554790918561*^9, 
   3.7025548093879843`*^9}, 3.7025634165232687`*^9, {3.702578263248116*^9, 
   3.70257828180268*^9}, {3.702578322365644*^9, 3.702578327491891*^9}, {
   3.702578382851651*^9, 3.702578391149288*^9}, {3.702578436743091*^9, 
   3.702578443262467*^9}, {3.7025785186912127`*^9, 3.702578558290798*^9}, {
   3.702578831112694*^9, 3.7025788518961067`*^9}, {3.702579121800035*^9, 
   3.702579121974255*^9}, 3.70257921596376*^9, {3.7025793227896442`*^9, 
   3.702579388369738*^9}, {3.702579499851914*^9, 3.702579546636488*^9}, {
   3.702579680939015*^9, 3.702579711953463*^9}, {3.702579836090899*^9, 
   3.702579911027134*^9}, {3.7025799434763327`*^9, 3.702579967163609*^9}, {
   3.702610674448275*^9, 3.702610712296358*^9}, {3.7026108122583637`*^9, 
   3.7026108430067663`*^9}, {3.702611101656259*^9, 3.702611113310458*^9}, {
   3.7026114060841*^9, 3.702611407208722*^9}, {3.702611510605997*^9, 
   3.702611511898343*^9}, {3.702611983645158*^9, 3.7026120298285227`*^9}, {
   3.7026121074381123`*^9, 3.7026121247022552`*^9}, {3.702656465097721*^9, 
   3.702656465971898*^9}, {3.702656531287498*^9, 3.7026565395109673`*^9}, {
   3.702656931000836*^9, 3.7026569344582767`*^9}, {3.7026572057143507`*^9, 
   3.702657229788103*^9}, {3.7027333079309063`*^9, 3.702733320802561*^9}, {
   3.70386391089351*^9, 3.703863912620582*^9}, {3.703864471755571*^9, 
   3.7038645045824957`*^9}, {3.7038647148858223`*^9, 3.70386476674543*^9}, {
   3.703865919920723*^9, 3.703865922828679*^9}, {3.703866278560039*^9, 
   3.703866287551237*^9}, {3.703866481617282*^9, 3.703866510993341*^9}, 
   3.703866554501231*^9, {3.703867714062866*^9, 3.703867714384315*^9}, {
   3.744970154598846*^9, 3.744970163926423*^9}},
 CellLabel->
  "In[965]:=",ExpressionUUID->"eefc4744-e708-4118-9b77-eeafec227edc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]L"}]], " ", 
       "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]L"}]], " ", 
       "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]L"}]], " ", 
       "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]L"}]], " ", 
       "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0"},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]L"}]],
        " ", "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "t"}], " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "-", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC1"}], ")"}]}]]}], " ", "g0", " ", "\[Alpha]AC"}], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "t"}], " ", 
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]C", "+", 
              FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
           "\[Phi]AC2"}], ")"}]}]], " ", "g0", " ", "\[Beta]AC"}], "0", "0", 
      "0", "0", "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]L"}]],
        " ", "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "t"}], " ", 
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]C", "+", 
              FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
           "\[Phi]AC2"}], ")"}]}]], " ", "g0", " ", "\[Beta]AC"}], "0", "0", 
      "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]L"}]],
        " ", "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "t"}], " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "-", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC1"}], ")"}]}]]}], " ", "g0", " ", "\[Alpha]AC"}], "0", 
      "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]L"}]],
        " ", "\[CapitalOmega]"}], "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", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "t"}], " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "-", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC1"}], ")"}]}]]}], " ", "g0", " ", "\[Alpha]AC"}], "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "t"}], " ", 
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]C", "+", 
              FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
           "\[Phi]AC2"}], ")"}]}]], " ", "g0", " ", "\[Beta]AC"}], "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "t"}], " ", 
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]C", "+", 
              FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
           "\[Phi]AC2"}], ")"}]}]], " ", "g0", " ", "\[Beta]AC"}], 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "t"}], " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "-", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC1"}], ")"}]}]]}], " ", "g0", " ", "\[Alpha]AC"}], "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",
 CellChangeTimes->{
  3.702554285371236*^9, {3.702554803017696*^9, 3.702554810672093*^9}, 
   3.702557327105475*^9, 3.702563120577804*^9, 3.702577897823545*^9, 
   3.702578275045014*^9, {3.70257843291267*^9, 3.7025784455515423`*^9}, {
   3.702578523902547*^9, 3.70257856113731*^9}, 3.702578839860558*^9, 
   3.7025791246079473`*^9, 3.7025791667898703`*^9, 3.702579218615625*^9, 
   3.702579295155072*^9, 3.702579326604443*^9, {3.702579358547999*^9, 
   3.7025793942331467`*^9}, 3.7025794804413433`*^9, 3.702579547968233*^9, {
   3.70257968959573*^9, 3.702579713217205*^9}, 3.7025798729049263`*^9, {
   3.7025799235345707`*^9, 3.702579970100741*^9}, 3.702610910073902*^9, {
   3.702611108201971*^9, 3.702611114489883*^9}, 3.702611408307002*^9, 
   3.7026115130148983`*^9, 3.7026120310196743`*^9, 3.702612411753633*^9, 
   3.7026268241916037`*^9, 3.702643922678193*^9, 3.7026452831988783`*^9, 
   3.7026572550036716`*^9, 3.703863918059465*^9, 3.7038643256342993`*^9, 
   3.7038644399367332`*^9, 3.703864506706855*^9, 3.703864700314529*^9, 
   3.7038647674276114`*^9, 3.7038649106453876`*^9, 3.703865923282703*^9, {
   3.703866272585322*^9, 3.703866288038426*^9}, {3.703866497659726*^9, 
   3.703866511755803*^9}, 3.703866555949603*^9, 3.7038666242018003`*^9, 
   3.703866683666749*^9, 3.703867306381482*^9, 3.703867439007844*^9, {
   3.703867710745013*^9, 3.703867715040227*^9}, 3.7040031196629744`*^9, 
   3.704011274707158*^9, 3.7040882040514307`*^9, 3.706428560270094*^9, 
   3.706428610958302*^9, 3.7064298114768476`*^9, 3.706435343108898*^9, 
   3.706501697341247*^9, 3.7101669778474607`*^9, 3.710167209251237*^9, 
   3.743835999305757*^9, 3.743836117306581*^9, 3.743837957878965*^9, 
   3.743839049438946*^9, 3.744970117782302*^9, 3.74497016443359*^9, 
   3.744970549736183*^9, 3.7451382506555634`*^9, 3.745138892503603*^9, 
   3.74583376157489*^9, 3.7459079039398403`*^9, 3.7459211737612123`*^9, 
   3.745921374832448*^9, 3.7459991216340227`*^9, 3.7461594017432823`*^9, 
   3.746341856078676*^9},
 CellLabel->
  "Out[972]//MatrixForm=",ExpressionUUID->"adedd6eb-15ab-4746-ada9-\
1c70d307141b"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Format", "[", 
    RowBox[{"CenterDot", "[", "x__", "]"}], "]"}], ":=", 
   RowBox[{"Row", "[", 
    RowBox[{"Riffle", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", "\"\<\[ThinSpace]\>\""}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"State", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Tuples", "[", 
     RowBox[{"{", 
      RowBox[{"states", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}], "[", 
    RowBox[{"[", "i", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintStates", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Hint", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"Ket", "@@", 
        RowBox[{"State", "[", "i", "]"}]}], "\[CenterDot]", " ", 
       RowBox[{"Bra", "@@", 
        RowBox[{"State", "[", "j", "]"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "Hint", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "Hint", "]"}]}], "}"}]}], "]"}]}], ";", 
  RowBox[{"collectedHint", " ", "=", 
   RowBox[{"Collect", "[", 
    RowBox[{"HintStates", ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalOmega]", " ", ",", " ", "\[Alpha]", ",", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]"}]], ",", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]"}]]}], "}"}]}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"collectedHint", "//", "ExpToTrig"}], ";"}]}], "Input",
 CellChangeTimes->{{3.67920471229079*^9, 3.6792047122917833`*^9}, {
   3.679204922740114*^9, 3.6792049283875847`*^9}, {3.679204963915112*^9, 
   3.679204964218536*^9}, {3.679204996298617*^9, 3.679205026201705*^9}, {
   3.679205078889009*^9, 3.679205080771058*^9}, {3.6792052833984118`*^9, 
   3.6792052924340878`*^9}, {3.6792053384122887`*^9, 3.679205443766428*^9}, {
   3.6792055120048122`*^9, 3.679205590970963*^9}, {3.679205621106615*^9, 
   3.679205745719164*^9}, {3.67920581936679*^9, 3.6792058229118357`*^9}, {
   3.679205864965745*^9, 3.679205867436681*^9}, {3.679205954483676*^9, 
   3.679205969345874*^9}, {3.679226355551526*^9, 3.679226359863357*^9}, {
   3.679226452492934*^9, 3.679226453821746*^9}, {3.6793162937480288`*^9, 
   3.679316324332673*^9}, {3.702555206426939*^9, 3.702555223797123*^9}, {
   3.7025552732942467`*^9, 3.702555294862508*^9}, {3.702563152747177*^9, 
   3.702563154038826*^9}, {3.702563193818709*^9, 3.702563212622938*^9}, 
   3.7025639432436132`*^9, 3.702564221726091*^9, {3.7025647826890507`*^9, 
   3.702564782945119*^9}, {3.702577974065658*^9, 3.7025780240189734`*^9}, {
   3.702578092160396*^9, 3.7025780993191957`*^9}, {3.70257818416461*^9, 
   3.702578184465802*^9}, {3.702580197600635*^9, 3.7025802211336193`*^9}, {
   3.7026112838090982`*^9, 3.702611284690454*^9}, {3.702628646239648*^9, 
   3.702628647137536*^9}, {3.702646257032753*^9, 3.702646259319405*^9}, {
   3.702657276507321*^9, 3.702657278047173*^9}, {3.7026573593412323`*^9, 
   3.7026573739324017`*^9}, {3.704003156970952*^9, 3.7040031726744747`*^9}, {
   3.704011326869714*^9, 3.7040113875882196`*^9}, {3.7040117747484713`*^9, 
   3.7040118235140038`*^9}, {3.704011862129188*^9, 3.7040118768083878`*^9}, 
   3.704087979125058*^9, 3.7064285829264517`*^9, 3.710166987531904*^9, {
   3.744970140151394*^9, 3.74497014658494*^9}},
 CellLabel->
  "In[973]:=",ExpressionUUID->"1e6f43cc-98cf-48df-b615-0587ab9a4d38"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"collectedHintTrigUG", " ", "=", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"collectedHint", "//", "ExpToTrig"}], "//", "Simplify"}], ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}], ",", 
       RowBox[{"Sin", "[", 
        RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
         FractionBox[
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC1"}], 
        "]"}], ",", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
         FractionBox[
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC2"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
         FractionBox[
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC1"}], 
        "]"}], ",", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
         FractionBox[
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC2"}], 
        "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "collectedHintTrigUG", "\[IndentingNewLine]", \

 RowBox[{"Length", "@", "collectedHintTrigUG"}]}], "Input",
 CellChangeTimes->{{3.704003211132653*^9, 3.704003400212679*^9}, {
   3.704011433148408*^9, 3.7040114350798893`*^9}, {3.704011594048872*^9, 
   3.704011594455727*^9}, {3.704011912202832*^9, 3.7040119191624727`*^9}, {
   3.704012026774919*^9, 3.704012038989211*^9}, 3.704012217394578*^9, 
   3.7040123388784733`*^9, {3.704012422317953*^9, 3.704012454555479*^9}, {
   3.7040130522795877`*^9, 3.7040130545020847`*^9}, {3.70401349467734*^9, 
   3.70401349473982*^9}, {3.7040135397082443`*^9, 3.7040135397947397`*^9}, {
   3.70401358601797*^9, 3.704013626528652*^9}, {3.7040138076931753`*^9, 
   3.704013839404498*^9}, {3.704013969315156*^9, 3.7040139771771917`*^9}, {
   3.704014431480709*^9, 3.704014478669911*^9}, {3.704014776585272*^9, 
   3.7040147901435013`*^9}, {3.7040851398789186`*^9, 3.704085149695402*^9}, {
   3.706429979529697*^9, 3.706430107677929*^9}, {3.7064301835958652`*^9, 
   3.706430320745514*^9}, {3.706430384807528*^9, 3.706430393131632*^9}, 
   3.706430425656444*^9, {3.706431393860071*^9, 3.706431394083255*^9}, {
   3.706435367094714*^9, 3.706435429317451*^9}, {3.706435541892909*^9, 
   3.706435571649755*^9}, {3.710167004004654*^9, 3.710167022989595*^9}, {
   3.743837988894627*^9, 3.7438380408003483`*^9}, {3.744970125899296*^9, 
   3.744970132329471*^9}, {3.746159440225027*^9, 3.746159446638818*^9}},
 CellLabel->
  "In[977]:=",ExpressionUUID->"402a6201-8848-43c2-b00e-a3230f552b74"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[CapitalOmega]"}], " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
     FractionBox[
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC1"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"2", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"2", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"2", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
     FractionBox[
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC2"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
     FractionBox[
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC1"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "g0", " ", "\[Beta]AC", 
      " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
        FractionBox[
         RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC2"}], 
       "]"}]}], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
        FractionBox[
         RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC2"}], 
       "]"}]}], "+", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
        FractionBox[
         RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC2"}], 
       "]"}]}], "+", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
        FractionBox[
         RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "-", "\[Phi]AC2"}], 
       "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7040032128478737`*^9, 3.7040032218191233`*^9}, {
   3.704003253000896*^9, 3.704003335848407*^9}, 3.7040033674286757`*^9, 
   3.704003400965991*^9, 3.7040112999721003`*^9, 3.7040113900907593`*^9, 
   3.704011569663804*^9, 3.704011919978855*^9, {3.704012032272925*^9, 
   3.704012039314247*^9}, 3.704012218251708*^9, 3.704012339511012*^9, {
   3.7040124227307253`*^9, 3.70401245478342*^9}, {3.7040130526213923`*^9, 
   3.704013055184514*^9}, 3.704013495036345*^9, 3.704013540349722*^9, {
   3.704013586369708*^9, 3.704013626709907*^9}, {3.7040138082679*^9, 
   3.704013839610029*^9}, {3.7040139704178667`*^9, 3.7040139773828487`*^9}, 
   3.704014432116932*^9, {3.704014467097307*^9, 3.7040144797366447`*^9}, {
   3.7040147771766872`*^9, 3.70401479142402*^9}, 3.7040851403357353`*^9, 
   3.704087975668148*^9, 3.704088212141391*^9, 3.706428574926078*^9, 
   3.706428637851564*^9, 3.706429814163623*^9, {3.706429976532057*^9, 
   3.706430047099988*^9}, {3.70643010222234*^9, 3.706430107970974*^9}, {
   3.706430184532083*^9, 3.706430325366679*^9}, 3.7064303934230127`*^9, 
   3.706430426144767*^9, 3.706431394870057*^9, {3.706435349359405*^9, 
   3.706435429744855*^9}, {3.706435544949607*^9, 3.706435572347015*^9}, 
   3.7064536758838882`*^9, 3.7065017013564787`*^9, {3.7101669785449333`*^9, 
   3.7101669924672527`*^9}, 3.7101670273916807`*^9, 3.710167209298882*^9, 
   3.7438360155150213`*^9, 3.743836129698184*^9, {3.7438379800345287`*^9, 
   3.743838041410233*^9}, 3.743839049519341*^9, {3.744970168398856*^9, 
   3.744970179510826*^9}, 3.744970552563924*^9, 3.745138253274685*^9, 
   3.7451388926698837`*^9, 3.745907906181218*^9, 3.745921174426103*^9, 
   3.745921375498679*^9, 3.7459991218191*^9, {3.746159429608643*^9, 
   3.746159446961124*^9}, 3.7463418577812634`*^9},
 CellLabel->
  "Out[978]=",ExpressionUUID->"d2dec9c9-8333-4851-87ca-2abb1576c28d"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{{3.7040032128478737`*^9, 3.7040032218191233`*^9}, {
   3.704003253000896*^9, 3.704003335848407*^9}, 3.7040033674286757`*^9, 
   3.704003400965991*^9, 3.7040112999721003`*^9, 3.7040113900907593`*^9, 
   3.704011569663804*^9, 3.704011919978855*^9, {3.704012032272925*^9, 
   3.704012039314247*^9}, 3.704012218251708*^9, 3.704012339511012*^9, {
   3.7040124227307253`*^9, 3.70401245478342*^9}, {3.7040130526213923`*^9, 
   3.704013055184514*^9}, 3.704013495036345*^9, 3.704013540349722*^9, {
   3.704013586369708*^9, 3.704013626709907*^9}, {3.7040138082679*^9, 
   3.704013839610029*^9}, {3.7040139704178667`*^9, 3.7040139773828487`*^9}, 
   3.704014432116932*^9, {3.704014467097307*^9, 3.7040144797366447`*^9}, {
   3.7040147771766872`*^9, 3.70401479142402*^9}, 3.7040851403357353`*^9, 
   3.704087975668148*^9, 3.704088212141391*^9, 3.706428574926078*^9, 
   3.706428637851564*^9, 3.706429814163623*^9, {3.706429976532057*^9, 
   3.706430047099988*^9}, {3.70643010222234*^9, 3.706430107970974*^9}, {
   3.706430184532083*^9, 3.706430325366679*^9}, 3.7064303934230127`*^9, 
   3.706430426144767*^9, 3.706431394870057*^9, {3.706435349359405*^9, 
   3.706435429744855*^9}, {3.706435544949607*^9, 3.706435572347015*^9}, 
   3.7064536758838882`*^9, 3.7065017013564787`*^9, {3.7101669785449333`*^9, 
   3.7101669924672527`*^9}, 3.7101670273916807`*^9, 3.710167209298882*^9, 
   3.7438360155150213`*^9, 3.743836129698184*^9, {3.7438379800345287`*^9, 
   3.743838041410233*^9}, 3.743839049519341*^9, {3.744970168398856*^9, 
   3.744970179510826*^9}, 3.744970552563924*^9, 3.745138253274685*^9, 
   3.7451388926698837`*^9, 3.745907906181218*^9, 3.745921174426103*^9, 
   3.745921375498679*^9, 3.7459991218191*^9, {3.746159429608643*^9, 
   3.746159446961124*^9}, 3.746341857818664*^9},
 CellLabel->
  "Out[979]=",ExpressionUUID->"7cd1c58d-528d-4ccd-aa5c-aee7b7be061a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "4-level Lambda system (3-level + drain): STIRAP (g -> u) producing ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Sigma]", "+"], TraditionalForm]],ExpressionUUID->
  "ef362f8a-2f4d-400a-927a-69d2747db73f"],
 " polarised photons"
}], "Subsubsection",
 CellChangeTimes->{{3.67870064595223*^9, 3.678700654438718*^9}, {
  3.7025296200053*^9, 3.7025296372193537`*^9}, {3.702529847973466*^9, 
  3.702529898273839*^9}, {3.702530093556807*^9, 3.702530095212714*^9}, {
  3.702565755125483*^9, 3.702565764527946*^9}, {3.702566213588703*^9, 
  3.702566287248189*^9}, {3.710166915452512*^9, 3.71016696882443*^9}, {
  3.7101670116273117`*^9, 3.710167011689919*^9}, {3.7101670523695717`*^9, 
  3.710167055353568*^9}, {3.743836032729972*^9, 3.743836032977792*^9}, {
  3.7438383960220118`*^9, 
  3.743838410335371*^9}},ExpressionUUID->"f2d1ee6c-2c8a-4958-957d-\
589c1d8ecf07"],

Cell["Add the laser and cavity interactions", "Text",
 CellChangeTimes->{{3.7449699365490294`*^9, 3.7449699465612373`*^9}, {
  3.744969998401188*^9, 3.744970041624627*^9}, {3.744970085595583*^9, 
  3.744970091762177*^9}, {3.745138262977152*^9, 
  3.7451382636252193`*^9}},ExpressionUUID->"bc274d8a-0509-4235-9603-\
915e0668867d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Hint1", " ", "=", 
   RowBox[{"HintCav", "[", 
    RowBox[{"g0", ",", "u", ",", "e", ",", "adP"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint1", "=", " ", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Hint1", ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Phi]"}], "}"}], 
      "\[Element]", "Reals"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.702551979739695*^9, 3.702552054829176*^9}, {
   3.702552093928594*^9, 3.702552138752636*^9}, {3.7025522118680973`*^9, 
   3.702552223885396*^9}, {3.702552289724957*^9, 3.702552338429254*^9}, {
   3.702552380392836*^9, 3.7025523981817636`*^9}, {3.702552436014077*^9, 
   3.702552508348551*^9}, {3.702552865427791*^9, 3.702552866038418*^9}, {
   3.702553526576908*^9, 3.7025535333427553`*^9}, {3.70255366119786*^9, 
   3.702553712890533*^9}, {3.70255491977826*^9, 3.702554931840757*^9}, {
   3.7025549636456423`*^9, 3.7025549639305964`*^9}, 3.702554999013811*^9, {
   3.702555029130147*^9, 3.702555029939177*^9}, {3.7025551275559177`*^9, 
   3.702555128865349*^9}, {3.702576206741436*^9, 3.702576208467882*^9}, {
   3.702576393054932*^9, 3.702576471340917*^9}, {3.7025765015250473`*^9, 
   3.7025765222951183`*^9}, {3.702576562160019*^9, 3.702576641158757*^9}, {
   3.702576673875287*^9, 3.702576774867755*^9}, {3.702577040696782*^9, 
   3.702577108111248*^9}, 3.7025771801574793`*^9, {3.702577384735547*^9, 
   3.702577414021578*^9}, {3.702578406390036*^9, 3.702578419727282*^9}, {
   3.702579059940929*^9, 3.7025790922376223`*^9}, {3.7025794497473497`*^9, 
   3.702579450636134*^9}, 3.702645252894855*^9, {3.702707984802265*^9, 
   3.702707990548757*^9}, {3.702711369132291*^9, 3.70271136996315*^9}, {
   3.703861964407267*^9, 3.703862017366515*^9}, {3.70386207743001*^9, 
   3.703862126534124*^9}, {3.7038622665854692`*^9, 3.703862282227578*^9}, {
   3.7038632799014397`*^9, 3.703863281075996*^9}, {3.703863688847843*^9, 
   3.703863754510494*^9}, {3.703863874083263*^9, 3.7038638766990356`*^9}, {
   3.70386413584566*^9, 3.703864140661022*^9}, {3.703864262688437*^9, 
   3.703864263030362*^9}, {3.703864294098516*^9, 3.70386429786604*^9}, 
   3.7038646951509457`*^9, {3.7038661364378757`*^9, 3.7038661417641077`*^9}, {
   3.703866173266623*^9, 3.7038662549093447`*^9}, {3.70386660076632*^9, 
   3.703866608389946*^9}, {3.703866676851109*^9, 3.703866677326942*^9}, 
   3.703866744374126*^9, {3.7040881498262672`*^9, 3.70408816512852*^9}, {
   3.704088701461721*^9, 3.7040887016686087`*^9}, {3.706429806060421*^9, 
   3.706429806812028*^9}, {3.710167073074748*^9, 3.710167074706717*^9}, {
   3.743838384218643*^9, 3.743838384536942*^9}, {3.746159520232082*^9, 
   3.7461595225085087`*^9}},
 CellLabel->
  "In[980]:=",ExpressionUUID->"3fa54609-43ed-419f-b0ec-a425997f373e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"HintLas", "[", 
     RowBox[{
     "\[CapitalOmega]_", ",", " ", "\[Omega]\[CapitalOmega]_", ",", 
      "grdState_", ",", "excState_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["\[CapitalOmega]", "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"excState", ".", 
          RowBox[{"grdState", "\[ConjugateTranspose]"}]}], 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], "*", "\[Omega]\[CapitalOmega]", 
           "*", "t"}]]}], "+", 
        RowBox[{
         RowBox[{"grdState", ".", 
          RowBox[{"excState", "\[ConjugateTranspose]"}]}], 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
          "\[ImaginaryI]", "*", "\[Omega]\[CapitalOmega]", "*", "t"}]]}]}], 
       ")"}], "\[CircleTimes]", 
      RowBox[{"IdentityMatrix", "[", "4", "]"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint2", " ", "=", " ", 
   RowBox[{"HintLas", "[", 
    RowBox[{"\[CapitalOmega]", ",", " ", "\[Omega]L", ",", "g", ",", "e"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.678696659834828*^9, 3.678696836606051*^9}, {
   3.678696893261261*^9, 3.6786969563797207`*^9}, {3.678697246335113*^9, 
   3.678697317564397*^9}, {3.6786974508863487`*^9, 3.678697499152667*^9}, {
   3.6786975589541063`*^9, 3.678697628966111*^9}, {3.678697661333769*^9, 
   3.678697683757031*^9}, {3.678698410429782*^9, 3.6786984163990192`*^9}, {
   3.702529971321599*^9, 3.702530127559925*^9}, {3.702530355645884*^9, 
   3.702530387752845*^9}, {3.702530639333796*^9, 3.702530774984283*^9}, {
   3.702530849102214*^9, 3.702530850996669*^9}, {3.702547373356121*^9, 
   3.7025473735296097`*^9}, {3.7025474427108297`*^9, 3.702547443998125*^9}, {
   3.702547480691984*^9, 3.702547579255754*^9}, {3.702547614173211*^9, 
   3.7025476164584703`*^9}, {3.70254777735853*^9, 3.702547832015243*^9}, {
   3.702548030581706*^9, 3.702548037128243*^9}, {3.702548162730276*^9, 
   3.70254816307003*^9}, {3.702549809604979*^9, 3.702549851227553*^9}, {
   3.702549883141232*^9, 3.7025499139023943`*^9}, {3.7025499702195177`*^9, 
   3.702550032767268*^9}, {3.702550335676249*^9, 3.702550397602269*^9}, {
   3.702550458645032*^9, 3.702550507638495*^9}, {3.70255056845636*^9, 
   3.7025506140536127`*^9}, {3.702550648340529*^9, 3.7025507162721567`*^9}, {
   3.7025510212041187`*^9, 3.702551040553837*^9}, {3.7025517833061113`*^9, 
   3.7025518969725323`*^9}, {3.702552859679459*^9, 3.702552863624405*^9}, {
   3.702552902933097*^9, 3.702552903998193*^9}, {3.702552953056807*^9, 
   3.702552995719563*^9}, {3.702553183719667*^9, 3.7025531972569933`*^9}, {
   3.702553308117548*^9, 3.702553385832818*^9}, {3.7025534415598707`*^9, 
   3.7025534653547897`*^9}, {3.702553510010027*^9, 3.702553558362096*^9}, {
   3.702553733587062*^9, 3.702553745483643*^9}, {3.702553780023377*^9, 
   3.702553781014967*^9}, {3.702553848501177*^9, 3.702553850171899*^9}, 
   3.702553908092738*^9, {3.702553949765768*^9, 3.702553989621895*^9}, {
   3.702554224564847*^9, 3.702554230802145*^9}, 3.702555135656845*^9, {
   3.702563041675346*^9, 3.702563047980208*^9}, {3.70257729475027*^9, 
   3.702577370434657*^9}, {3.7025774019814587`*^9, 3.7025774218868093`*^9}, {
   3.7025774863808317`*^9, 3.702577496364249*^9}, {3.702579106168675*^9, 
   3.70257911531761*^9}, {3.702645244726728*^9, 3.7026452484060917`*^9}, {
   3.7038637620333767`*^9, 3.703863797421474*^9}, {3.71016708030835*^9, 
   3.710167080458729*^9}},
 CellLabel->
  "In[982]:=",ExpressionUUID->"47677416-9839-462d-ad0b-a7e26382ae05"],

Cell[BoxData[
 RowBox[{
  RowBox[{"H", " ", "=", " ", 
   RowBox[{
    RowBox[{"Hatom", "\[CircleTimes]", 
     RowBox[{"IdentityMatrix", "[", "4", "]"}]}], " ", "+", " ", 
    RowBox[{
     RowBox[{"IdentityMatrix", "[", "4", "]"}], "\[CircleTimes]", "Hcav"}], 
    " ", "+", "Hint1", " ", "+", " ", "Hint2"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.678696659834828*^9, 3.678696836606051*^9}, {
   3.678696893261261*^9, 3.6786969563797207`*^9}, {3.678697246335113*^9, 
   3.678697317564397*^9}, {3.6786974508863487`*^9, 3.678697499152667*^9}, {
   3.6786975589541063`*^9, 3.678697628966111*^9}, {3.678697661333769*^9, 
   3.678697683757031*^9}, {3.678698410429782*^9, 3.6786984163990192`*^9}, {
   3.702529971321599*^9, 3.702530127559925*^9}, {3.702530355645884*^9, 
   3.702530387752845*^9}, {3.702530639333796*^9, 3.702530774984283*^9}, {
   3.702530849102214*^9, 3.702530850996669*^9}, {3.702547373356121*^9, 
   3.7025473735296097`*^9}, {3.7025474427108297`*^9, 3.702547443998125*^9}, {
   3.702547480691984*^9, 3.702547579255754*^9}, {3.702547614173211*^9, 
   3.7025476164584703`*^9}, {3.70254777735853*^9, 3.702547832015243*^9}, {
   3.702548030581706*^9, 3.702548037128243*^9}, {3.702548162730276*^9, 
   3.70254816307003*^9}, {3.702549809604979*^9, 3.702549851227553*^9}, {
   3.702549883141232*^9, 3.7025499139023943`*^9}, {3.7025499702195177`*^9, 
   3.702550032767268*^9}, {3.702550335676249*^9, 3.702550397602269*^9}, {
   3.702550458645032*^9, 3.702550507638495*^9}, {3.70255056845636*^9, 
   3.7025506140536127`*^9}, {3.702550648340529*^9, 3.7025507162721567`*^9}, {
   3.7025510212041187`*^9, 3.702551040553837*^9}, {3.7025517833061113`*^9, 
   3.7025518969725323`*^9}, {3.702552859679459*^9, 3.702552863624405*^9}, {
   3.702552902933097*^9, 3.702552903998193*^9}, {3.702552953056807*^9, 
   3.702552995719563*^9}, {3.702553183719667*^9, 3.7025531972569933`*^9}, {
   3.702553308117548*^9, 3.702553385832818*^9}, {3.7025534415598707`*^9, 
   3.7025534653547897`*^9}, {3.702553510010027*^9, 3.702553558362096*^9}, {
   3.702553733587062*^9, 3.702553745483643*^9}, {3.702553780023377*^9, 
   3.702553781014967*^9}, {3.7025540047982473`*^9, 3.702554028048746*^9}, {
   3.702554123215859*^9, 3.702554134335231*^9}, {3.702554176251082*^9, 
   3.702554201069647*^9}, {3.70257750790259*^9, 3.702577512431591*^9}, 
   3.702577887450592*^9, {3.703863899959169*^9, 3.703863900539896*^9}, {
   3.7038672359310102`*^9, 3.703867239942522*^9}, {3.703867409285763*^9, 
   3.703867433638813*^9}},
 CellLabel->
  "In[984]:=",ExpressionUUID->"f0e4d330-db39-4c0f-a7ef-73a4f6370f3a"],

Cell["\<\
Rotating into the interaction picture and simplifying down to detunings.\
\>", "Text",
 CellChangeTimes->{{3.702563433126926*^9, 3.702563450038622*^9}, {
   3.702580072232862*^9, 3.702580072392899*^9}, 
   3.744970243916349*^9},ExpressionUUID->"3222b4d5-d651-47e3-ab0a-\
91787139c7a3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"G", "  ", "=", " ", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"Diagonal", "[", "H", "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"U", "=", 
    RowBox[{"MatrixExp", "[", 
     RowBox[{"\[ImaginaryI]", " ", "G", " ", "t"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "\[CapitalDelta]L", ",", "\[CapitalDelta]C", ",", "\[CapitalDelta]P"}], 
   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint", " ", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"TrigToExp", "[", 
     RowBox[{"ComplexExpand", "[", 
      RowBox[{
       RowBox[{"U", ".", "H", ".", 
        RowBox[{"U", "\[ConjugateTranspose]"}]}], "-", "G"}], "]"}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"detuningFromAtomicLevelRules", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Omega]L", " ", "+", " ", "\[Omega]g"}], " ", "\[Rule]", " ",
        "\[CapitalDelta]L"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Omega]X", " ", "+", " ", "\[Omega]u"}], " ", "\[Rule]", " ", 
       RowBox[{"\[CapitalDelta]C", " ", "+", " ", 
        FractionBox["\[CapitalDelta]P", "2"]}]}], ",", "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"\[Omega]Y", " ", "+", " ", "\[Omega]u"}], " ", "\[Rule]", " ", 
       RowBox[{"\[CapitalDelta]C", " ", "-", " ", 
        FractionBox["\[CapitalDelta]P", "2"]}]}]}], "\[IndentingNewLine]", 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hint", " ", "=", " ", 
   RowBox[{"Hint", "//.", "detuningFromAtomicLevelRules"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{
    RowBox[{"\[Sqrt]", "2"}], "*", "Hint"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Hint", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.702554321415678*^9, 3.702554366174966*^9}, {
   3.702554511962409*^9, 3.7025545119980717`*^9}, {3.702554790918561*^9, 
   3.7025548093879843`*^9}, 3.7025634165232687`*^9, {3.702578263248116*^9, 
   3.70257828180268*^9}, {3.702578322365644*^9, 3.702578327491891*^9}, {
   3.702578382851651*^9, 3.702578391149288*^9}, {3.702578436743091*^9, 
   3.702578443262467*^9}, {3.7025785186912127`*^9, 3.702578558290798*^9}, {
   3.702578831112694*^9, 3.7025788518961067`*^9}, {3.702579121800035*^9, 
   3.702579121974255*^9}, 3.70257921596376*^9, {3.7025793227896442`*^9, 
   3.702579388369738*^9}, {3.702579499851914*^9, 3.702579546636488*^9}, {
   3.702579680939015*^9, 3.702579711953463*^9}, {3.702579836090899*^9, 
   3.702579911027134*^9}, {3.7025799434763327`*^9, 3.702579967163609*^9}, {
   3.702610674448275*^9, 3.702610712296358*^9}, {3.7026108122583637`*^9, 
   3.7026108430067663`*^9}, {3.702611101656259*^9, 3.702611113310458*^9}, {
   3.7026114060841*^9, 3.702611407208722*^9}, {3.702611510605997*^9, 
   3.702611511898343*^9}, {3.702611983645158*^9, 3.7026120298285227`*^9}, {
   3.7026121074381123`*^9, 3.7026121247022552`*^9}, {3.702656465097721*^9, 
   3.702656465971898*^9}, {3.702656531287498*^9, 3.7026565395109673`*^9}, {
   3.702656931000836*^9, 3.7026569344582767`*^9}, {3.7026572057143507`*^9, 
   3.702657229788103*^9}, {3.7027333079309063`*^9, 3.702733320802561*^9}, {
   3.70386391089351*^9, 3.703863912620582*^9}, {3.703864471755571*^9, 
   3.7038645045824957`*^9}, {3.7038647148858223`*^9, 3.70386476674543*^9}, {
   3.703865919920723*^9, 3.703865922828679*^9}, {3.703866278560039*^9, 
   3.703866287551237*^9}, {3.703866481617282*^9, 3.703866510993341*^9}, 
   3.703866554501231*^9, {3.703867714062866*^9, 3.703867714384315*^9}, {
   3.710167137655904*^9, 3.7101671423832197`*^9}, {3.744970259600205*^9, 
   3.744970259878854*^9}},
 CellLabel->
  "In[985]:=",ExpressionUUID->"4500a40a-a1ab-44e9-ba3a-8ba2b309becf"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "-", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC2"}], ")"}]}]]}], " ", "g0", " ", "\[Beta]AC"}], "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "+", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC1"}], ")"}]}]]}], " ", "g0", " ", "\[Alpha]AC"}], "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "+", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC1"}], ")"}]}]]}], " ", "g0", " ", "\[Alpha]AC"}], 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "-", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC2"}], ")"}]}]]}], " ", "g0", " ", "\[Beta]AC"}], "0", 
      "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "-", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC2"}], ")"}]}]]}], " ", "g0", " ", "\[Beta]AC"}], 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "+", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC1"}], ")"}]}]]}], " ", "g0", " ", "\[Alpha]AC"}], "0", 
      "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]L"}]],
        " ", "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "+", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC1"}], ")"}]}]]}], " ", "g0", " ", "\[Alpha]AC"}], "0", 
      "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]L"}]],
        " ", "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"\[CapitalDelta]C", "-", 
               FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", 
            "\[Phi]AC2"}], ")"}]}]]}], " ", "g0", " ", "\[Beta]AC"}], "0", 
      "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]L"}]],
        " ", "\[CapitalOmega]"}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]L"}]],
        " ", "\[CapitalOmega]"}], "0", "0", "0", "0"},
     {"0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]L"}]], " ", 
       "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]L"}]], " ", 
       "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]L"}]], " ", 
       "\[CapitalOmega]"}], "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]L"}]], " ", 
       "\[CapitalOmega]"}], "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",
 CellChangeTimes->{
  3.702554285371236*^9, {3.702554803017696*^9, 3.702554810672093*^9}, 
   3.702557327105475*^9, 3.702563120577804*^9, 3.702577897823545*^9, 
   3.702578275045014*^9, {3.70257843291267*^9, 3.7025784455515423`*^9}, {
   3.702578523902547*^9, 3.70257856113731*^9}, 3.702578839860558*^9, 
   3.7025791246079473`*^9, 3.7025791667898703`*^9, 3.702579218615625*^9, 
   3.702579295155072*^9, 3.702579326604443*^9, {3.702579358547999*^9, 
   3.7025793942331467`*^9}, 3.7025794804413433`*^9, 3.702579547968233*^9, {
   3.70257968959573*^9, 3.702579713217205*^9}, 3.7025798729049263`*^9, {
   3.7025799235345707`*^9, 3.702579970100741*^9}, 3.702610910073902*^9, {
   3.702611108201971*^9, 3.702611114489883*^9}, 3.702611408307002*^9, 
   3.7026115130148983`*^9, 3.7026120310196743`*^9, 3.702612411753633*^9, 
   3.7026268241916037`*^9, 3.702643922678193*^9, 3.7026452831988783`*^9, 
   3.7026572550036716`*^9, 3.703863918059465*^9, 3.7038643256342993`*^9, 
   3.7038644399367332`*^9, 3.703864506706855*^9, 3.703864700314529*^9, 
   3.7038647674276114`*^9, 3.7038649106453876`*^9, 3.703865923282703*^9, {
   3.703866272585322*^9, 3.703866288038426*^9}, {3.703866497659726*^9, 
   3.703866511755803*^9}, 3.703866555949603*^9, 3.7038666242018003`*^9, 
   3.703866683666749*^9, 3.703867306381482*^9, 3.703867439007844*^9, {
   3.703867710745013*^9, 3.703867715040227*^9}, 3.7040031196629744`*^9, 
   3.704011274707158*^9, 3.7040882040514307`*^9, 3.706428560270094*^9, 
   3.706428610958302*^9, 3.7064298114768476`*^9, 3.706435343108898*^9, 
   3.706501697341247*^9, 3.7101669778474607`*^9, 3.710167086176612*^9, {
   3.710167127924444*^9, 3.710167143629189*^9}, 3.743838424302285*^9, 
   3.7438390547047977`*^9, 3.744970260366961*^9, 3.744970580659964*^9, 
   3.7451382684385157`*^9, 3.7451389155494547`*^9, 3.745921377793635*^9, 
   3.74599912244855*^9, 3.746159570627026*^9, 3.746341873303206*^9},
 CellLabel->
  "Out[992]//MatrixForm=",ExpressionUUID->"3fb70dc9-225a-4daa-959c-\
d8a02c481710"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Format", "[", 
    RowBox[{"CenterDot", "[", "x__", "]"}], "]"}], ":=", 
   RowBox[{"Row", "[", 
    RowBox[{"Riffle", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", "\"\<\[ThinSpace]\>\""}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"State", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Tuples", "[", 
     RowBox[{"{", 
      RowBox[{"states", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}], "[", 
    RowBox[{"[", "i", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintStates", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Hint", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"Ket", "@@", 
        RowBox[{"State", "[", "i", "]"}]}], "\[CenterDot]", " ", 
       RowBox[{"Bra", "@@", 
        RowBox[{"State", "[", "j", "]"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "Hint", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "Hint", "]"}]}], "}"}]}], "]"}]}], ";", 
  RowBox[{"collectedHint", " ", "=", 
   RowBox[{"Collect", "[", 
    RowBox[{"HintStates", ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalOmega]", " ", ",", " ", "\[Alpha]", ",", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]"}]], ",", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]"}]]}], "}"}]}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"collectedHint", "//", "ExpToTrig"}], ";"}]}], "Input",
 CellChangeTimes->{{3.67920471229079*^9, 3.6792047122917833`*^9}, {
   3.679204922740114*^9, 3.6792049283875847`*^9}, {3.679204963915112*^9, 
   3.679204964218536*^9}, {3.679204996298617*^9, 3.679205026201705*^9}, {
   3.679205078889009*^9, 3.679205080771058*^9}, {3.6792052833984118`*^9, 
   3.6792052924340878`*^9}, {3.6792053384122887`*^9, 3.679205443766428*^9}, {
   3.6792055120048122`*^9, 3.679205590970963*^9}, {3.679205621106615*^9, 
   3.679205745719164*^9}, {3.67920581936679*^9, 3.6792058229118357`*^9}, {
   3.679205864965745*^9, 3.679205867436681*^9}, {3.679205954483676*^9, 
   3.679205969345874*^9}, {3.679226355551526*^9, 3.679226359863357*^9}, {
   3.679226452492934*^9, 3.679226453821746*^9}, {3.6793162937480288`*^9, 
   3.679316324332673*^9}, {3.702555206426939*^9, 3.702555223797123*^9}, {
   3.7025552732942467`*^9, 3.702555294862508*^9}, {3.702563152747177*^9, 
   3.702563154038826*^9}, {3.702563193818709*^9, 3.702563212622938*^9}, 
   3.7025639432436132`*^9, 3.702564221726091*^9, {3.7025647826890507`*^9, 
   3.702564782945119*^9}, {3.702577974065658*^9, 3.7025780240189734`*^9}, {
   3.702578092160396*^9, 3.7025780993191957`*^9}, {3.70257818416461*^9, 
   3.702578184465802*^9}, {3.702580197600635*^9, 3.7025802211336193`*^9}, {
   3.7026112838090982`*^9, 3.702611284690454*^9}, {3.702628646239648*^9, 
   3.702628647137536*^9}, {3.702646257032753*^9, 3.702646259319405*^9}, {
   3.702657276507321*^9, 3.702657278047173*^9}, {3.7026573593412323`*^9, 
   3.7026573739324017`*^9}, {3.704003156970952*^9, 3.7040031726744747`*^9}, {
   3.704011326869714*^9, 3.7040113875882196`*^9}, {3.7040117747484713`*^9, 
   3.7040118235140038`*^9}, {3.704011862129188*^9, 3.7040118768083878`*^9}, 
   3.704087979125058*^9, 3.7064285829264517`*^9, 3.710166987531904*^9},
 CellLabel->
  "In[993]:=",ExpressionUUID->"cafd5b3e-50d9-4f59-8e13-a116532886ed"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"collectedHintTrigGU", " ", "=", 
   RowBox[{"Collect", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"collectedHint", "//", "ExpToTrig"}], "//", "Simplify"}], ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}], ",", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
         FractionBox[
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "+", "\[Phi]AC1"}], 
        "]"}], ",", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
         FractionBox[
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "+", "\[Phi]AC2"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
         FractionBox[
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "+", "\[Phi]AC1"}], 
        "]"}], ",", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
         FractionBox[
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "+", "\[Phi]AC2"}], 
        "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "collectedHintTrigGU", "\[IndentingNewLine]", \

 RowBox[{"Length", "@", "collectedHintTrigGU"}]}], "Input",
 CellChangeTimes->{{3.704003211132653*^9, 3.704003400212679*^9}, {
   3.704011433148408*^9, 3.7040114350798893`*^9}, {3.704011594048872*^9, 
   3.704011594455727*^9}, {3.704011912202832*^9, 3.7040119191624727`*^9}, {
   3.704012026774919*^9, 3.704012038989211*^9}, 3.704012217394578*^9, 
   3.7040123388784733`*^9, {3.704012422317953*^9, 3.704012454555479*^9}, {
   3.7040130522795877`*^9, 3.7040130545020847`*^9}, {3.70401349467734*^9, 
   3.70401349473982*^9}, {3.7040135397082443`*^9, 3.7040135397947397`*^9}, {
   3.70401358601797*^9, 3.704013626528652*^9}, {3.7040138076931753`*^9, 
   3.704013839404498*^9}, {3.704013969315156*^9, 3.7040139771771917`*^9}, {
   3.704014431480709*^9, 3.704014478669911*^9}, {3.704014776585272*^9, 
   3.7040147901435013`*^9}, {3.7040851398789186`*^9, 3.704085149695402*^9}, {
   3.706429979529697*^9, 3.706430107677929*^9}, {3.7064301835958652`*^9, 
   3.706430320745514*^9}, {3.706430384807528*^9, 3.706430393131632*^9}, 
   3.706430425656444*^9, {3.706431393860071*^9, 3.706431394083255*^9}, {
   3.706435367094714*^9, 3.706435429317451*^9}, {3.706435541892909*^9, 
   3.706435571649755*^9}, {3.710167004004654*^9, 3.710167022989595*^9}, {
   3.710167172839281*^9, 3.710167196352441*^9}, {3.743838438978838*^9, 
   3.7438384747346487`*^9}, {3.743838586555904*^9, 3.743838587684898*^9}, 
   3.743838638994959*^9, {3.744970263208029*^9, 3.744970269461225*^9}, {
   3.746159577807271*^9, 3.746159583011902*^9}},
 CellLabel->
  "In[997]:=",ExpressionUUID->"e05fa977-d507-4ee8-990c-b775210ff820"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[CapitalOmega]"}], " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
     FractionBox[
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "+", "\[Phi]AC1"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
     FractionBox[
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "+", "\[Phi]AC2"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Alpha]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"t", " ", "\[CapitalDelta]C"}], "+", 
     FractionBox[
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "+", "\[Phi]AC1"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "g0", " ", "\[Beta]AC", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"t", " ", "\[CapitalDelta]C"}], "-", 
     FractionBox[
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "2"], "+", "\[Phi]AC2"}], 
    "]"}]}]}]], "Output",
 CellChangeTimes->{{3.7040032128478737`*^9, 3.7040032218191233`*^9}, {
   3.704003253000896*^9, 3.704003335848407*^9}, 3.7040033674286757`*^9, 
   3.704003400965991*^9, 3.7040112999721003`*^9, 3.7040113900907593`*^9, 
   3.704011569663804*^9, 3.704011919978855*^9, {3.704012032272925*^9, 
   3.704012039314247*^9}, 3.704012218251708*^9, 3.704012339511012*^9, {
   3.7040124227307253`*^9, 3.70401245478342*^9}, {3.7040130526213923`*^9, 
   3.704013055184514*^9}, 3.704013495036345*^9, 3.704013540349722*^9, {
   3.704013586369708*^9, 3.704013626709907*^9}, {3.7040138082679*^9, 
   3.704013839610029*^9}, {3.7040139704178667`*^9, 3.7040139773828487`*^9}, 
   3.704014432116932*^9, {3.704014467097307*^9, 3.7040144797366447`*^9}, {
   3.7040147771766872`*^9, 3.70401479142402*^9}, 3.7040851403357353`*^9, 
   3.704087975668148*^9, 3.704088212141391*^9, 3.706428574926078*^9, 
   3.706428637851564*^9, 3.706429814163623*^9, {3.706429976532057*^9, 
   3.706430047099988*^9}, {3.70643010222234*^9, 3.706430107970974*^9}, {
   3.706430184532083*^9, 3.706430325366679*^9}, 3.7064303934230127`*^9, 
   3.706430426144767*^9, 3.706431394870057*^9, {3.706435349359405*^9, 
   3.706435429744855*^9}, {3.706435544949607*^9, 3.706435572347015*^9}, 
   3.7064536758838882`*^9, 3.7065017013564787`*^9, {3.7101669785449333`*^9, 
   3.7101669924672527`*^9}, 3.7101670273916807`*^9, 3.710167097171647*^9, 
   3.7101671289452047`*^9, {3.710167160732564*^9, 3.7101672015367823`*^9}, {
   3.743838428995325*^9, 3.7438384756351833`*^9}, 3.743838588322393*^9, 
   3.743838639772303*^9, 3.743839054838785*^9, 3.7449702714261303`*^9, 
   3.744970585482266*^9, 3.7451382707577353`*^9, 3.7451389156298323`*^9, 
   3.745921378488451*^9, 3.745999122666348*^9, {3.746159575461012*^9, 
   3.746159585460322*^9}, 3.746341875030526*^9},
 CellLabel->
  "Out[998]=",ExpressionUUID->"ed1fff57-4e14-4bd5-be55-bc0ea965360e"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{{3.7040032128478737`*^9, 3.7040032218191233`*^9}, {
   3.704003253000896*^9, 3.704003335848407*^9}, 3.7040033674286757`*^9, 
   3.704003400965991*^9, 3.7040112999721003`*^9, 3.7040113900907593`*^9, 
   3.704011569663804*^9, 3.704011919978855*^9, {3.704012032272925*^9, 
   3.704012039314247*^9}, 3.704012218251708*^9, 3.704012339511012*^9, {
   3.7040124227307253`*^9, 3.70401245478342*^9}, {3.7040130526213923`*^9, 
   3.704013055184514*^9}, 3.704013495036345*^9, 3.704013540349722*^9, {
   3.704013586369708*^9, 3.704013626709907*^9}, {3.7040138082679*^9, 
   3.704013839610029*^9}, {3.7040139704178667`*^9, 3.7040139773828487`*^9}, 
   3.704014432116932*^9, {3.704014467097307*^9, 3.7040144797366447`*^9}, {
   3.7040147771766872`*^9, 3.70401479142402*^9}, 3.7040851403357353`*^9, 
   3.704087975668148*^9, 3.704088212141391*^9, 3.706428574926078*^9, 
   3.706428637851564*^9, 3.706429814163623*^9, {3.706429976532057*^9, 
   3.706430047099988*^9}, {3.70643010222234*^9, 3.706430107970974*^9}, {
   3.706430184532083*^9, 3.706430325366679*^9}, 3.7064303934230127`*^9, 
   3.706430426144767*^9, 3.706431394870057*^9, {3.706435349359405*^9, 
   3.706435429744855*^9}, {3.706435544949607*^9, 3.706435572347015*^9}, 
   3.7064536758838882`*^9, 3.7065017013564787`*^9, {3.7101669785449333`*^9, 
   3.7101669924672527`*^9}, 3.7101670273916807`*^9, 3.710167097171647*^9, 
   3.7101671289452047`*^9, {3.710167160732564*^9, 3.7101672015367823`*^9}, {
   3.743838428995325*^9, 3.7438384756351833`*^9}, 3.743838588322393*^9, 
   3.743838639772303*^9, 3.743839054838785*^9, 3.7449702714261303`*^9, 
   3.744970585482266*^9, 3.7451382707577353`*^9, 3.7451389156298323`*^9, 
   3.745921378488451*^9, 3.745999122666348*^9, {3.746159575461012*^9, 
   3.746159585460322*^9}, 3.746341875047824*^9},
 CellLabel->
  "Out[999]=",ExpressionUUID->"dd1bfd88-4e08-43ad-af2e-07590fe09534"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Simplify the Hamiltonians into the from used in vSTIRAP-xxx.ipynb\
\>", "Subsubsection",
 CellChangeTimes->{{3.67870064595223*^9, 3.678700654438718*^9}, {
  3.7025296200053*^9, 3.7025296372193537`*^9}, {3.702529847973466*^9, 
  3.702529898273839*^9}, {3.702530093556807*^9, 3.702530095212714*^9}, {
  3.702565755125483*^9, 3.702565764527946*^9}, {3.702566213588703*^9, 
  3.702566287248189*^9}, {3.710166915452512*^9, 3.71016696882443*^9}, {
  3.7101670116273117`*^9, 3.710167011689919*^9}, {3.7101670523695717`*^9, 
  3.710167055353568*^9}, {3.743836032729972*^9, 3.743836032977792*^9}, {
  3.7438383960220118`*^9, 3.743838410335371*^9}, {3.745140767588533*^9, 
  3.745140783870145*^9}},ExpressionUUID->"2a93584d-0a82-46ac-8a42-\
0f8fece6dd6c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HintUGsimp", " ", "=", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"collectedHintTrigUG", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Alpha]AC", "\[Rule]", "\[Alpha]"}], ",", "  ", 
        RowBox[{"\[Beta]AC", "\[Rule]", " ", "\[Beta]"}], ",", 
        RowBox[{"\[Phi]AC1", "\[Rule]", "\[Phi]1"}], ",", 
        RowBox[{"\[Phi]AC2", "\[Rule]", "\[Phi]2"}]}], "}"}]}], "//", 
     "Simplify"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       FractionBox["\[CapitalOmega]", "2"], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       FractionBox["\[CapitalOmega]", "2"], " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"g0", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]C", "-", 
            FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "-", "\[Phi]1"}],
         "]"}]}], ",", 
      RowBox[{"g0", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]C", "+", 
            FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "-", "\[Phi]2"}],
         "]"}]}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"g0", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]C", "-", 
            FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "-", "\[Phi]1"}],
         "]"}]}], ",", 
      RowBox[{"g0", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]C", "+", 
            FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "-", "\[Phi]2"}],
         "]"}]}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.745138961724927*^9, 3.745139036722844*^9}, {
   3.745139099166157*^9, 3.745139130993106*^9}, {3.7451391679928827`*^9, 
   3.7451393105786133`*^9}, {3.745139342139234*^9, 3.7451393473829803`*^9}, 
   3.7451394308538322`*^9, 3.745140763216056*^9, {3.746159641220201*^9, 
   3.746159670415963*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"12441ac3-eea3-4e2c-af3f-c075564a3643"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", "\[CapitalOmega]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "-", 
  RowBox[{"g0", " ", "\[Alpha]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]C", "-", 
        FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "-", "\[Phi]1"}], 
    "]"}]}], "+", 
  RowBox[{"g0", " ", "\[Beta]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]C", "+", 
        FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "-", "\[Phi]2"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "g0", " ", "\[Alpha]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]C", "-", 
        FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "-", "\[Phi]1"}], 
    "]"}]}], "+", 
  RowBox[{"g0", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Beta]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[Beta]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[Beta]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[Beta]", " ", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]C", "+", 
        FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "-", "\[Phi]2"}], 
    "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.745138923666093*^9, 3.745138963597992*^9, {3.74513900191961*^9, 
   3.745139037405631*^9}, {3.745139099959045*^9, 3.7451391313121*^9}, {
   3.745139173130356*^9, 3.745139310795018*^9}, 3.7451393482638407`*^9, 
   3.745139431670515*^9, 3.745999128760895*^9, 3.746159601887546*^9, {
   3.746159641907186*^9, 3.746159670942631*^9}},
 CellLabel->"Out[87]=",ExpressionUUID->"3d25f328-1770-4801-be99-fc3011aad529"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"HintGUsimp", " ", "=", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"collectedHintTrigGU", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Alpha]AC", "\[Rule]", "\[Alpha]"}], ",", "  ", 
        RowBox[{"\[Beta]AC", "\[Rule]", " ", "\[Beta]"}], ",", 
        RowBox[{"\[Phi]AC1", "\[Rule]", "\[Phi]1"}], ",", 
        RowBox[{"\[Phi]AC2", "\[Rule]", "\[Phi]2"}]}], "}"}]}], "//", 
     "Simplify"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[CapitalOmega]", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[CapitalOmega]", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"g0", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]C", "+", 
            FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", "\[Phi]1"}],
         "]"}]}], ",", 
      RowBox[{"g0", " ", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]C", "-", 
            FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", "\[Phi]2"}],
         "]"}]}], ",", " ", "\[IndentingNewLine]", 
      RowBox[{"g0", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]C", "+", 
            FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", "\[Phi]1"}],
         "]"}]}], ",", 
      RowBox[{"g0", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"(", 
           RowBox[{"\[CapitalDelta]C", "-", 
            FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", "\[Phi]2"}],
         "]"}]}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.745138961724927*^9, 3.745139036722844*^9}, {
   3.745139099166157*^9, 3.745139130993106*^9}, {3.7451391679928827`*^9, 
   3.7451393105786133`*^9}, {3.745139342139234*^9, 3.7451393473829803`*^9}, 
   3.7451394308538322`*^9, {3.745139583128286*^9, 3.7451395874611483`*^9}, {
   3.745139640084737*^9, 3.7451396970911837`*^9}, {3.746159681779171*^9, 
   3.7461596883117523`*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"699b57e0-aab6-4ef2-ad5f-08550067e03a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", "\[CapitalOmega]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "-", 
  RowBox[{"g0", " ", "\[Alpha]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]C", "+", 
        FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", "\[Phi]1"}], 
    "]"}]}], "-", 
  RowBox[{"g0", " ", "\[Beta]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]C", "-", 
        FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", "\[Phi]2"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "\[CapitalOmega]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "g0", " ", "\[Alpha]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]C", "+", 
        FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", "\[Phi]1"}], 
    "]"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "g0", " ", "\[Beta]", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"t", " ", 
      RowBox[{"(", 
       RowBox[{"\[CapitalDelta]C", "-", 
        FractionBox["\[CapitalDelta]P", "2"]}], ")"}]}], "+", "\[Phi]2"}], 
    "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.745139590342918*^9, {3.745139640920734*^9, 3.7451396435372963`*^9}, 
   3.7451396995916977`*^9, 3.745999131698412*^9, {3.746159678859317*^9, 
   3.746159688795846*^9}},
 CellLabel->"Out[89]=",ExpressionUUID->"35ca38ae-b7b0-48ce-9741-2ea5882cb7eb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"HintUGsimp", ",", "HintGUsimp"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalDelta]C", "+", 
          FractionBox["\[CapitalDelta]P", "2"]}], "\[Rule]", " ", 
         "\[CapitalDelta]Cx"}], ",", 
        RowBox[{
         RowBox[{"\[CapitalDelta]C", "-", 
          FractionBox["\[CapitalDelta]P", "2"]}], "\[Rule]", " ", 
         "\[CapitalDelta]Cy"}]}], "}"}]}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"HintUGsimp", ",", "HintGUsimp"}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7451406082092524`*^9, 3.7451406488672657`*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"05097d7d-c284-47f4-85a1-16d94dbf855b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", "\"\<laserCoupling(...) from vSTIRAP-xxx.ipynb\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintUGsimp", "[", 
   RowBox[{"[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}], "]"}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintGUsimp", "[", 
   RowBox[{"[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}], "]"}], "]"}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.745139761697266*^9, 3.745139774687257*^9}, {
   3.745139895116911*^9, 3.7451399037020683`*^9}, {3.745140015133057*^9, 
   3.745140015578834*^9}, 3.745140659552669*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"d54d010b-5c6e-455d-b0ef-9747360375b8"],

Cell[BoxData["\<\"laserCoupling(...) from vSTIRAP-xxx.ipynb\"\>"], "Print",
 CellChangeTimes->{
  3.7451397750563707`*^9, {3.745139898267687*^9, 3.7451399040645237`*^9}, 
   3.7451406537982187`*^9, 3.745999132432725*^9, 3.746159697890491*^9},
 CellLabel->
  "During evaluation of \
In[91]:=",ExpressionUUID->"5fd44c34-a5a7-4d93-a641-6a98f233cda7"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "\[CapitalOmega]", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
         "RowDefault"]}], ")"}]}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7451397750771847`*^9, {3.7451398982940807`*^9, 3.7451399040900927`*^9}, 
   3.7451406538252363`*^9, 3.7459991326438427`*^9, 3.746159697998358*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"33ae8f26-14fa-4943-b9a9-f495bcd323ac"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", "\[CapitalOmega]", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
         "RowDefault"]}], ")"}]}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"t", " ", "\[CapitalDelta]L"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.7451397750771847`*^9, {3.7451398982940807`*^9, 3.7451399040900927`*^9}, 
   3.7451406538252363`*^9, 3.7459991326438427`*^9, 3.746159698139514*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"00df8abb-43be-4646-ac9e-6234a7f6d999"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Print", "[", 
  "\"\<cavityCoupling(...) from vSTIRAP-xxx.ipynb for:\n\\n\\t \
\[CapitalDelta]M=+1 from ground to excited sublevel:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintGUsimp", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintGUsimp", "[", 
   RowBox[{"[", "5", "]"}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintGUsimp", "[", 
   RowBox[{"[", "3", "]"}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintGUsimp", "[", 
   RowBox[{"[", "6", "]"}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  "\"\<\\n\\t \[CapitalDelta]M=-1 from ground to excited sublevel:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintUGsimp", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintUGsimp", "[", 
   RowBox[{"[", "5", "]"}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintUGsimp", "[", 
   RowBox[{"[", "3", "]"}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HintUGsimp", "[", 
   RowBox[{"[", "6", "]"}], "]"}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.7451393523461742`*^9, 3.745139363551936*^9}, {
   3.745139437092626*^9, 3.745139453407816*^9}, {3.745139517200179*^9, 
   3.7451395298738527`*^9}, {3.745139715029819*^9, 3.745139716877412*^9}, 
   3.745139773290057*^9, {3.7451399213261213`*^9, 3.745139930611651*^9}, {
   3.745140002086344*^9, 3.745140066355253*^9}, {3.745140534222136*^9, 
   3.745140543714404*^9}, {3.7451406786237097`*^9, 3.7451407361162853`*^9}, {
   3.745140813566462*^9, 3.7451408190823603`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"10863719-e945-45cb-b939-6c7ae33e7e6f"],

Cell[BoxData["\<\"cavityCoupling(...) from vSTIRAP-xxx.ipynb for:\\n\\n\\t \
\[CapitalDelta]M=+1 from ground to excited sublevel:\"\>"], "Print",
 CellChangeTimes->{{3.745140047593254*^9, 3.74514006774489*^9}, 
   3.745140544117613*^9, {3.74514066195998*^9, 3.745140736351036*^9}, {
   3.7451408151000566`*^9, 3.745140819312743*^9}, 3.745999133161516*^9, 
   3.746159704634529*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"debf8897-6bb0-4c17-8e36-3c9431258473"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "g0"}], " ", "\[Alpha]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"]}], ")"}], " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"t", " ", "\[CapitalDelta]Cx"}], "+", "\[Phi]1"}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.745139353056779*^9, 3.7451393637524567`*^9}, {
   3.74513943282865*^9, 3.745139453742496*^9}, {3.7451395257980423`*^9, 
   3.745139530250009*^9}, {3.745139713362688*^9, 3.745139717930489*^9}, {
   3.745139923932334*^9, 3.745139931035675*^9}, {3.745140047604126*^9, 
   3.745140067757248*^9}, 3.7451405441287117`*^9, {3.745140661970545*^9, 
   3.7451407363621798`*^9}, {3.7451408151163607`*^9, 3.745140819332468*^9}, 
   3.745999133176111*^9, 3.746159704646715*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"04391e7a-6955-40fa-85d9-f205777ab0cc"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "g0", " ", "\[Alpha]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"]}], ")"}], " ", 
  RowBox[{"Sin", "[", 
   RowBox[{
    RowBox[{"t", " ", "\[CapitalDelta]Cx"}], "+", "\[Phi]1"}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.745139353056779*^9, 3.7451393637524567`*^9}, {
   3.74513943282865*^9, 3.745139453742496*^9}, {3.7451395257980423`*^9, 
   3.745139530250009*^9}, {3.745139713362688*^9, 3.745139717930489*^9}, {
   3.745139923932334*^9, 3.745139931035675*^9}, {3.745140047604126*^9, 
   3.745140067757248*^9}, 3.7451405441287117`*^9, {3.745140661970545*^9, 
   3.7451407363621798`*^9}, {3.7451408151163607`*^9, 3.745140819332468*^9}, 
   3.745999133176111*^9, 3.7461597046565313`*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"2bff57b9-1c58-476a-83c9-dd0661bf170d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "g0"}], " ", "\[Beta]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"]}], ")"}], " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"t", " ", "\[CapitalDelta]Cy"}], "+", "\[Phi]2"}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.745139353056779*^9, 3.7451393637524567`*^9}, {
   3.74513943282865*^9, 3.745139453742496*^9}, {3.7451395257980423`*^9, 
   3.745139530250009*^9}, {3.745139713362688*^9, 3.745139717930489*^9}, {
   3.745139923932334*^9, 3.745139931035675*^9}, {3.745140047604126*^9, 
   3.745140067757248*^9}, 3.7451405441287117`*^9, {3.745140661970545*^9, 
   3.7451407363621798`*^9}, {3.7451408151163607`*^9, 3.745140819332468*^9}, 
   3.745999133176111*^9, 3.746159704666993*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"7fe2e0c4-f50e-4ecd-bc29-4b207f8aa874"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "g0", " ", "\[Beta]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"]}], ")"}], " ", 
  RowBox[{"Sin", "[", 
   RowBox[{
    RowBox[{"t", " ", "\[CapitalDelta]Cy"}], "+", "\[Phi]2"}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.745139353056779*^9, 3.7451393637524567`*^9}, {
   3.74513943282865*^9, 3.745139453742496*^9}, {3.7451395257980423`*^9, 
   3.745139530250009*^9}, {3.745139713362688*^9, 3.745139717930489*^9}, {
   3.745139923932334*^9, 3.745139931035675*^9}, {3.745140047604126*^9, 
   3.745140067757248*^9}, 3.7451405441287117`*^9, {3.745140661970545*^9, 
   3.7451407363621798`*^9}, {3.7451408151163607`*^9, 3.745140819332468*^9}, 
   3.745999133176111*^9, 3.746159704679264*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"1444afc2-f343-4de0-9b84-deb56d8f61a7"],

Cell[BoxData["\<\"\\n\\t \[CapitalDelta]M=-1 from ground to excited sublevel:\
\"\>"], "Print",
 CellChangeTimes->{{3.745140047593254*^9, 3.74514006774489*^9}, 
   3.745140544117613*^9, {3.74514066195998*^9, 3.745140736351036*^9}, {
   3.7451408151000566`*^9, 3.745140819312743*^9}, 3.745999133161516*^9, 
   3.746159704686174*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"3a5c51b0-e801-472b-81e7-a8908b4c5aac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "g0"}], " ", "\[Alpha]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"]}], ")"}], " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"t", " ", "\[CapitalDelta]Cy"}], "-", "\[Phi]1"}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.745139353056779*^9, 3.7451393637524567`*^9}, {
   3.74513943282865*^9, 3.745139453742496*^9}, {3.7451395257980423`*^9, 
   3.745139530250009*^9}, {3.745139713362688*^9, 3.745139717930489*^9}, {
   3.745139923932334*^9, 3.745139931035675*^9}, {3.745140047604126*^9, 
   3.745140067757248*^9}, 3.7451405441287117`*^9, {3.745140661970545*^9, 
   3.7451407363621798`*^9}, {3.7451408151163607`*^9, 3.745140819332468*^9}, 
   3.745999133176111*^9, 3.7461597046952963`*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"c64dfe86-933d-450b-a187-3996949bd437"],

Cell[BoxData[
 RowBox[{"\[ImaginaryI]", " ", "g0", " ", "\[Alpha]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"]}], ")"}], " ", 
  RowBox[{"Sin", "[", 
   RowBox[{
    RowBox[{"t", " ", "\[CapitalDelta]Cy"}], "-", "\[Phi]1"}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.745139353056779*^9, 3.7451393637524567`*^9}, {
   3.74513943282865*^9, 3.745139453742496*^9}, {3.7451395257980423`*^9, 
   3.745139530250009*^9}, {3.745139713362688*^9, 3.745139717930489*^9}, {
   3.745139923932334*^9, 3.745139931035675*^9}, {3.745140047604126*^9, 
   3.745140067757248*^9}, 3.7451405441287117`*^9, {3.745140661970545*^9, 
   3.7451407363621798`*^9}, {3.7451408151163607`*^9, 3.745140819332468*^9}, 
   3.745999133176111*^9, 3.746159704704741*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"3ad3273a-4bca-4f41-8e07-5b3558b3066c"],

Cell[BoxData[
 RowBox[{"g0", " ", "\[Beta]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"]}], ")"}], " ", 
  RowBox[{"Cos", "[", 
   RowBox[{
    RowBox[{"t", " ", "\[CapitalDelta]Cx"}], "-", "\[Phi]2"}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.745139353056779*^9, 3.7451393637524567`*^9}, {
   3.74513943282865*^9, 3.745139453742496*^9}, {3.7451395257980423`*^9, 
   3.745139530250009*^9}, {3.745139713362688*^9, 3.745139717930489*^9}, {
   3.745139923932334*^9, 3.745139931035675*^9}, {3.745140047604126*^9, 
   3.745140067757248*^9}, 3.7451405441287117`*^9, {3.745140661970545*^9, 
   3.7451407363621798`*^9}, {3.7451408151163607`*^9, 3.745140819332468*^9}, 
   3.745999133176111*^9, 3.7461597047145777`*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"128c21e5-5d38-459e-b50f-6bfe9946d70d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[ImaginaryI]"}], " ", "g0", " ", "\[Beta]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "0"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"]}], ")"}], " ", 
  RowBox[{"Sin", "[", 
   RowBox[{
    RowBox[{"t", " ", "\[CapitalDelta]Cx"}], "-", "\[Phi]2"}], 
   "]"}]}]], "Output",
 CellChangeTimes->{{3.745139353056779*^9, 3.7451393637524567`*^9}, {
   3.74513943282865*^9, 3.745139453742496*^9}, {3.7451395257980423`*^9, 
   3.745139530250009*^9}, {3.745139713362688*^9, 3.745139717930489*^9}, {
   3.745139923932334*^9, 3.745139931035675*^9}, {3.745140047604126*^9, 
   3.745140067757248*^9}, 3.7451405441287117`*^9, {3.745140661970545*^9, 
   3.7451407363621798`*^9}, {3.7451408151163607`*^9, 3.745140819332468*^9}, 
   3.745999133176111*^9, 3.746159704724537*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"46e87891-2d09-41ef-9c96-7df35b1f2fab"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Converting operators to rot frame: Photon number operators", \
"Subsubsection",
 CellChangeTimes->{{3.6793167637530203`*^9, 3.679316783007392*^9}, {
  3.679391183750515*^9, 3.679391187780855*^9}, {3.745923667408328*^9, 
  3.7459236752627287`*^9}},ExpressionUUID->"52e505ca-403b-4ce0-8b1b-\
b7d28ff313fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "U", "]"}]], "Input",
 CellChangeTimes->{{3.6791434854833384`*^9, 3.67914356938538*^9}, {
   3.679314938257038*^9, 3.6793150014235897`*^9}, {3.679316329164412*^9, 
   3.679316472895665*^9}, 3.679316787823997*^9, {3.679380082297319*^9, 
   3.679380082983905*^9}, {3.7026233180103416`*^9, 3.7026233181935863`*^9}, 
   3.702626496712591*^9, 3.704031504260438*^9, {3.706429815267466*^9, 
   3.706429816212357*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"5d90f892-29a9-427f-83f3-ed130b8fdc9f"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Omega]u"}]], "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]u", "+", "\[Omega]Y"}], ")"}]}]], "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]u", "+", "\[Omega]X"}], ")"}]}]], "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]u", "+", "\[Omega]X", "+", "\[Omega]Y"}], ")"}]}]], 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Omega]Y"}]], "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Omega]X"}]], "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]X", "+", "\[Omega]Y"}], ")"}]}]], "0", "0", "0", 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Omega]g"}]], "0", "0", "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]g", "+", "\[Omega]Y"}], ")"}]}]], "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]g", "+", "\[Omega]X"}], ")"}]}]], "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]g", "+", "\[Omega]X", "+", "\[Omega]Y"}], ")"}]}]], 
      "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[Omega]d"}]], "0", "0", 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]d", "+", "\[Omega]Y"}], ")"}]}]], "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]d", "+", "\[Omega]X"}], ")"}]}]], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]d", "+", "\[Omega]X", "+", "\[Omega]Y"}], ")"}]}]]}
    },
    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",
 CellChangeTimes->{3.704031504586591*^9, 3.706429816781642*^9, 
  3.706435503748074*^9, 3.706501861048627*^9, 3.74384351261511*^9, 
  3.7449706034423428`*^9, 3.745138273378326*^9, 3.7459213814919367`*^9, 
  3.746159714970426*^9},
 CellLabel->
  "Out[104]//MatrixForm=",ExpressionUUID->"08b70f6b-cbb0-4a7e-b5c7-\
22cf99bf5dab"]
}, Open  ]],

Cell["\<\
Note again the flipped convention of \[OpenCurlyQuote]daggered\
\[CloseCurlyQuote] operators below.  The number operator in conventional \
notations is N=a\[ConjugateTranspose].a.\
\>", "Text",
 CellChangeTimes->{{3.7461597813741083`*^9, 
  3.746159836183444*^9}},ExpressionUUID->"81eae3b4-eaaa-43e9-b728-\
b5ae19c22818"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"adXfull", "=", 
   RowBox[{
    RowBox[{"IdentityMatrix", "[", 
     RowBox[{"Length", "@", "states"}], "]"}], "\[CircleTimes]", "adX"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"adYfull", "=", 
   RowBox[{
    RowBox[{"IdentityMatrix", "[", 
     RowBox[{"Length", "@", "states"}], "]"}], "\[CircleTimes]", "adY"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anX", "=", 
   RowBox[{"adXfull", ".", 
    RowBox[{"adXfull", "\[ConjugateTranspose]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"anY", "=", 
   RowBox[{"adYfull", ".", 
    RowBox[{"adYfull", "\[ConjugateTranspose]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.679316846419517*^9, 3.679316846813835*^9}, {
   3.679316879223517*^9, 3.6793172103971252`*^9}, {3.679317297979865*^9, 
   3.679317300915707*^9}, {3.679317349051004*^9, 3.679317376888617*^9}, {
   3.679318499638262*^9, 3.679318555443754*^9}, {3.679318586093301*^9, 
   3.679318603828146*^9}, {3.679318668874651*^9, 3.679318669241341*^9}, {
   3.679319198245049*^9, 3.679319206876561*^9}, {3.6793195398937073`*^9, 
   3.679319547780312*^9}, {3.702623417043955*^9, 3.702623425300872*^9}, {
   3.702623498356697*^9, 3.702623562622232*^9}, {3.702623822592746*^9, 
   3.702623830263473*^9}, {3.702623873393394*^9, 3.7026238961439247`*^9}, {
   3.7026239415697813`*^9, 3.702623942688245*^9}, 3.7026265063335257`*^9, {
   3.704031489508622*^9, 3.7040315527163677`*^9}, {3.74615971780812*^9, 
   3.7461597273831*^9}, {3.7461597662352743`*^9, 3.746159770624991*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"20535fc9-c5ad-44f3-9059-ca82554dc998"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"adPfull", ",", " ", "adMfull"}], "}"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"IdentityMatrix", "[", 
       RowBox[{"Length", "@", "states"}], "]"}], "\[CircleTimes]", "adP"}], 
     ",", 
     RowBox[{
      RowBox[{"IdentityMatrix", "[", 
       RowBox[{"Length", "@", "states"}], "]"}], "\[CircleTimes]", "adM"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anP", "=", 
   RowBox[{"adPfull", ".", 
    RowBox[{"adPfull", "\[ConjugateTranspose]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"anM", "=", 
   RowBox[{"adMfull", ".", 
    RowBox[{"adMfull", "\[ConjugateTranspose]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anP", "//", "ComplexExpand"}], "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.679316846419517*^9, 3.679316846813835*^9}, {
   3.679316879223517*^9, 3.6793172103971252`*^9}, {3.679317297979865*^9, 
   3.679317300915707*^9}, {3.679317349051004*^9, 3.679317376888617*^9}, {
   3.679318499638262*^9, 3.679318555443754*^9}, {3.679318586093301*^9, 
   3.679318603828146*^9}, {3.679318668874651*^9, 3.679318669241341*^9}, {
   3.679319198245049*^9, 3.679319206876561*^9}, {3.6793195398937073`*^9, 
   3.679319547780312*^9}, {3.702623417043955*^9, 3.702623425300872*^9}, {
   3.702623498356697*^9, 3.702623562622232*^9}, {3.702623822592746*^9, 
   3.702623830263473*^9}, {3.702623873393394*^9, 3.7026238961439247`*^9}, {
   3.7026239415697813`*^9, 3.702623942688245*^9}, 3.7026265063335257`*^9, {
   3.704031489508622*^9, 3.704031618959289*^9}, {3.704031675721691*^9, 
   3.704031686160383*^9}, {3.704090206254538*^9, 3.7040902096925983`*^9}, {
   3.70642973742986*^9, 3.706429738453704*^9}, {3.743843520089418*^9, 
   3.743843559535828*^9}, 3.745908483377722*^9, {3.746159844025543*^9, 
   3.7461598600509443`*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"5fd32c61-22c8-4e50-8024-2b0126cfbc84"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      SuperscriptBox["\[Beta]AC", "2"], 
      RowBox[{
       RowBox[{"\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}]}], "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", 
      RowBox[{
       RowBox[{"\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}]}], 
      SuperscriptBox["\[Alpha]AC", "2"], "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}], "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", 
      SuperscriptBox["\[Beta]AC", "2"], 
      RowBox[{
       RowBox[{"\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}]}], "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}]}], 
      SuperscriptBox["\[Alpha]AC", "2"], "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}], "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", 
      SuperscriptBox["\[Beta]AC", "2"], 
      RowBox[{
       RowBox[{"\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}]}], "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}]}], 
      SuperscriptBox["\[Alpha]AC", "2"], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}], "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", 
      SuperscriptBox["\[Beta]AC", "2"], 
      RowBox[{
       RowBox[{"\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}]}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       RowBox[{"\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]AC1", "-", "\[Phi]AC2"}], "]"}]}]}], 
      SuperscriptBox["\[Alpha]AC", "2"], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}]}
    },
    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",
 CellChangeTimes->{{3.704031605158928*^9, 3.7040316192401733`*^9}, {
   3.7040316818600483`*^9, 3.704031686532023*^9}, 3.7040882174459133`*^9, 
   3.704090210630062*^9, 3.704090339735896*^9, 3.706429709148201*^9, 
   3.706429825254108*^9, 3.706435506073666*^9, 3.706501863299776*^9, 
   3.743843560136737*^9, 3.744970605782336*^9, 3.745138275342511*^9, 
   3.745907916728441*^9, 3.7459084840833406`*^9, 3.7459213844318933`*^9, 
   3.7461598608963547`*^9},
 CellLabel->
  "Out[122]//MatrixForm=",ExpressionUUID->"6250a20c-4073-4ca1-b022-\
8d8ff935330d"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"anProt", " ", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"TrigToExp", "[", 
     RowBox[{"ComplexExpand", "[", 
      RowBox[{"U", ".", "anP", ".", 
       RowBox[{"U", "\[ConjugateTranspose]"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anMrot", " ", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"TrigToExp", "[", 
     RowBox[{"ComplexExpand", "[", 
      RowBox[{"U", ".", "anM", ".", 
       RowBox[{"U", "\[ConjugateTranspose]"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anProt", " ", "=", " ", 
   RowBox[{"anProt", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Omega]X", "-", "\[Omega]Y"}], "\[Rule]", 
       "\[CapitalDelta]P"}], ",", 
      RowBox[{
       RowBox[{"\[Omega]Y", "-", "\[Omega]X"}], "\[Rule]", 
       RowBox[{"-", "\[CapitalDelta]P"}]}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anMrot", " ", "=", " ", 
   RowBox[{"anMrot", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Omega]X", "-", "\[Omega]Y"}], "\[Rule]", 
       "\[CapitalDelta]P"}], ",", 
      RowBox[{
       RowBox[{"\[Omega]Y", "-", "\[Omega]X"}], "\[Rule]", 
       RowBox[{"-", "\[CapitalDelta]P"}]}]}], "}"}]}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzs0rgwEAx/EnJOEPWMumNUIcRolI9tRCIU3KrNhb8raZw2TJSowUCYeF
2iy0MVtOksNGExpiW5qpUWqFntkOlu1geH47fPtcvxy5urM/gyAIJh2MTnAL
XUMUWXUoKIdN1bl10JDg1ENzslgIp8ZbuqHdaVbA75pPNWQmLLNw6USzAFWm
vF0o1+qsMB4xeGCBxZ6Wbb3zwVWBzQ+dx4qiU9rzR3MJbM1k9cKRsZQMvjww
BuD1Niutbic1DCNHtyoYbJ7UQG+sVgvz38N66GfH5qEoGLiAEh33EvKykl/Q
pSTiMNR+0xGi/Vn5GIUintgGpcblA9hwNSR5xvevUQpNZdMzUN7XpYdv0b17
yCeffLA0OOeoNFAkY/8vrXvN0fi6TpHiuIQPte7F7BRtxYYwB27KDC6NkSLD
bZ4zOOiWGL1higz0KLfgPwzP688=
  "],
 CellLabel->
  "In[128]:=",ExpressionUUID->"1831f191-16e3-42cd-938b-2f793966512a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"anProt", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.704031751707111*^9, 3.7040317574015923`*^9}, {
  3.743843582488706*^9, 3.743843582782735*^9}, {3.7461598918302*^9, 
  3.746159901893876*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"ffdd4ffd-4d36-43f1-9bcd-a5b659e7354d"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      SuperscriptBox["\[Beta]AC", "2"], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", "\[Phi]AC1", "-", 
           "\[Phi]AC2"}], ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC"}], 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", "\[Phi]AC1", "-", 
           "\[Phi]AC2"}], ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC"}], 
      SuperscriptBox["\[Alpha]AC", "2"], "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}], "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", 
      SuperscriptBox["\[Beta]AC", "2"], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", "\[Phi]AC1", "-", 
           "\[Phi]AC2"}], ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC"}], 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", "\[Phi]AC1", "-", 
           "\[Phi]AC2"}], ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC"}], 
      SuperscriptBox["\[Alpha]AC", "2"], "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}], "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", 
      SuperscriptBox["\[Beta]AC", "2"], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", "\[Phi]AC1", "-", 
           "\[Phi]AC2"}], ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC"}], 
      "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", "\[Phi]AC1", "-", 
           "\[Phi]AC2"}], ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC"}], 
      SuperscriptBox["\[Alpha]AC", "2"], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}], "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", 
      SuperscriptBox["\[Beta]AC", "2"], 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", "\[Phi]AC1", "-", 
           "\[Phi]AC2"}], ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC"}], 
      "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", "\[Phi]AC1", "-", 
           "\[Phi]AC2"}], ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC"}], 
      SuperscriptBox["\[Alpha]AC", "2"], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}]}
    },
    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",
 CellChangeTimes->{
  3.704031757687125*^9, 3.704088224926333*^9, {3.704088634857519*^9, 
   3.70408864474382*^9}, 3.706429841805757*^9, 3.706430984750928*^9, 
   3.7064355113585987`*^9, 3.7065018655767937`*^9, 3.743843586663055*^9, 
   3.744970609921973*^9, 3.745138277743185*^9, 3.745907918165758*^9, 
   3.745921387475873*^9, {3.746159898720886*^9, 3.746159902264769*^9}},
 CellLabel->
  "Out[135]//MatrixForm=",ExpressionUUID->"d04792d6-c090-418b-b4f3-\
0e114b9e777d"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Format", "[", 
    RowBox[{"CenterDot", "[", "x__", "]"}], "]"}], ":=", 
   RowBox[{"Row", "[", 
    RowBox[{"Riffle", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", "\"\<\[ThinSpace]\>\""}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"State", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Tuples", "[", 
     RowBox[{"{", 
      RowBox[{"states", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}], "[", 
    RowBox[{"[", "i", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anProtStates", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"anProt", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"Ket", "@@", 
        RowBox[{"State", "[", "i", "]"}]}], "\[CenterDot]", " ", 
       RowBox[{"Bra", "@@", 
        RowBox[{"State", "[", "j", "]"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "anProt", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "anProt", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"anMrotStates", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"anMrot", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"Ket", "@@", 
        RowBox[{"State", "[", "i", "]"}]}], "\[CenterDot]", " ", 
       RowBox[{"Bra", "@@", 
        RowBox[{"State", "[", "j", "]"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "anMrot", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "anMrot", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzk0ogwEAxvE3nHBQLtJeWggpjRLR4q3NlCRaWQqzJYbZDpMlKzHaQcJh
uWzmIx9jc1prh42Sr5GPWYxGUys0tgPNJpb3eQ9Pv3pOf7ZE0dqTRBAEix4M
j+TlumQhqnyXVwLrK1Krof6bXQNNsYIWODbc0AZ3nCYpjFZ+KGD29/oknHGo
dFBuTFuDErVmA369608ha32HMWfj4hrO88we6LRL8/doD+5MhbAxmeyAA8q/
bvjkzeqF7hWSUbP61w/fbedy6BOMquBVpEoN01+DWujJiUxDke/2EHZp8o4g
JyX2CV2DxBf0N501+2l/596GoIjTboZiw+w25B7Luh7RnTCIobF4fAJKOoVa
+BLevIR11P01LPJNWcr0IepGtsSo41rt0HqkdEDbT9wFS43ufbhg8frha1+U
URnIFNbSPkT5bfAknqh/XgxRZIZIAANm/vJVkP63yDX4D7qI/lA=
  "],
 CellLabel->
  "In[136]:=",ExpressionUUID->"a7245ea6-de19-479a-ab6d-2528bbb88c43"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"anProtStatesCollected", " ", "=", 
  RowBox[{"Collect", "[", 
   RowBox[{"anProtStates", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{"t", " ", "\[CapitalDelta]P"}], ")"}]}]], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", 
         RowBox[{"(", 
          RowBox[{"\[Phi]AC2", "-", "\[Phi]AC1"}], ")"}]}]]}], ",", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"t", " ", "\[CapitalDelta]P"}], ")"}]}]], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], 
         RowBox[{"(", 
          RowBox[{"\[Phi]AC2", "-", " ", "\[Phi]AC1"}], ")"}]}]]}], ",", " ", 
      
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}], ",", 
      SuperscriptBox["\[Alpha]AC", "2"], ",", 
      SuperscriptBox["\[Beta]AC", "2"]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"anMrotStatesCollected", " ", "=", 
  RowBox[{"Collect", "[", 
   RowBox[{"anMrotStates", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{"t", " ", "\[CapitalDelta]P"}], ")"}]}]], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", 
         RowBox[{"(", 
          RowBox[{"\[Phi]AC2", "-", "\[Phi]AC1"}], ")"}]}]]}], ",", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"t", " ", "\[CapitalDelta]P"}], ")"}]}]], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], 
         RowBox[{"(", " ", 
          RowBox[{"\[Phi]AC2", "-", "\[Phi]AC1"}], ")"}]}]]}], ",", 
      RowBox[{
       SuperscriptBox["\[Alpha]AC", "2"], "+", 
       SuperscriptBox["\[Beta]AC", "2"]}], ",", 
      SuperscriptBox["\[Alpha]AC", "2"], ",", 
      SuperscriptBox["\[Beta]AC", "2"]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.67931826510839*^9, 3.679318362146386*^9}, {
   3.679318480319003*^9, 3.679318489061473*^9}, {3.6793186651865997`*^9, 
   3.6793187142643414`*^9}, {3.6793188130231533`*^9, 3.679318911413081*^9}, {
   3.679319069217664*^9, 3.67931910764765*^9}, {3.679319328363089*^9, 
   3.679319355920945*^9}, {3.679319628716425*^9, 3.679319629395277*^9}, {
   3.6793196944579*^9, 3.67931970132087*^9}, {3.679320355116179*^9, 
   3.679320381026338*^9}, {3.679320808906652*^9, 3.679320847919973*^9}, {
   3.679320888775985*^9, 3.6793208889261217`*^9}, {3.679320919926207*^9, 
   3.6793209423972073`*^9}, {3.67932099582127*^9, 3.679321025779274*^9}, {
   3.679321127153326*^9, 3.6793211434725122`*^9}, {3.679321646713909*^9, 
   3.679321649109054*^9}, {3.679322015750511*^9, 3.679322016013274*^9}, {
   3.6793800943532543`*^9, 3.6793803432989483`*^9}, {3.6793808188184013`*^9, 
   3.679380828456711*^9}, {3.679382267305571*^9, 3.67938227693727*^9}, {
   3.67938254800508*^9, 3.6793825626365213`*^9}, {3.679383165279163*^9, 
   3.679383182789215*^9}, {3.7026235961826363`*^9, 3.702623596981668*^9}, {
   3.702623677445011*^9, 3.702623691524253*^9}, {3.702623735811854*^9, 
   3.702623750331809*^9}, {3.702623974646188*^9, 3.702623975700306*^9}, {
   3.702651552621147*^9, 3.7026515781863832`*^9}, {3.7026516832275953`*^9, 
   3.7026516901687317`*^9}, {3.7040829102046833`*^9, 
   3.7040829113561497`*^9}, {3.7040834783775263`*^9, 3.704083483110289*^9}, {
   3.7040879884796457`*^9, 3.704088002367285*^9}, {3.7064355823058987`*^9, 
   3.706435585977294*^9}, {3.706435617491488*^9, 3.7064356753519173`*^9}, {
   3.706436889077648*^9, 3.706436985307232*^9}, {3.7064372236650257`*^9, 
   3.7064373029870996`*^9}, 3.7064517424373217`*^9, {3.706501880390153*^9, 
   3.706501942276292*^9}, {3.7438436208703613`*^9, 3.743843626181795*^9}, {
   3.744970637387557*^9, 3.744970644336934*^9}, {3.745138292724409*^9, 
   3.7451383025287657`*^9}, {3.7451383555957003`*^9, 
   3.7451383750546713`*^9}, {3.7461599266835814`*^9, 3.746159937386016*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"8ebf7156-d95b-479b-8176-9cdbd677872f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Beta]AC", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]P"}], 
     "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC1"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC2"}]}]], " ", "\[Alpha]AC", " ", 
   "\[Beta]AC", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC1"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC2"}]}]], " ", "\[Alpha]AC", " ", 
   "\[Beta]AC", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Alpha]AC", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Alpha]AC", "2"], "+", 
     SuperscriptBox["\[Beta]AC", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.7026516217039013`*^9, 3.702651691556024*^9, 3.7040318099937363`*^9, 
   3.7040829118392973`*^9, 3.704083484014689*^9, 3.7040880031858397`*^9, 
   3.704088227440731*^9, {3.704091069541683*^9, 3.7040910849405947`*^9}, 
   3.706429848872346*^9, 3.706430987214716*^9, 3.706435514153923*^9, 
   3.7064355870260677`*^9, 3.706435618750104*^9, {3.706435653411326*^9, 
   3.7064356756171007`*^9}, 3.706436912406383*^9, {3.706436955048061*^9, 
   3.706436986247046*^9}, {3.706437226650051*^9, 3.706437303709127*^9}, 
   3.706451743177208*^9, {3.706501867564138*^9, 3.7065019427542686`*^9}, 
   3.743843629770101*^9, 3.7438455314422197`*^9, 3.744970651378419*^9, {
   3.745138286960724*^9, 3.745138295177224*^9}, {3.7451383616174803`*^9, 
   3.745138375804503*^9}, 3.745907921023377*^9, 3.7459213906162577`*^9, {
   3.746159920259898*^9, 3.7461599380062017`*^9}},
 CellLabel->
  "Out[148]=",ExpressionUUID->"6b6fbf40-5c0f-4c89-9ef9-7600c74029a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Alpha]AC", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]P"}], 
     "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC1"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC2"}]}]], " ", "\[Alpha]AC", " ", 
   "\[Beta]AC", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC1"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[Phi]AC2"}]}]], " ", "\[Alpha]AC", " ", 
   "\[Beta]AC", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      TemplateBox[{TemplateBox[{
          RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
        TemplateBox[{
          RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
       "RowDefault"]}], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Beta]AC", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Alpha]AC", "2"], "+", 
     SuperscriptBox["\[Beta]AC", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.7026516217039013`*^9, 3.702651691556024*^9, 3.7040318099937363`*^9, 
   3.7040829118392973`*^9, 3.704083484014689*^9, 3.7040880031858397`*^9, 
   3.704088227440731*^9, {3.704091069541683*^9, 3.7040910849405947`*^9}, 
   3.706429848872346*^9, 3.706430987214716*^9, 3.706435514153923*^9, 
   3.7064355870260677`*^9, 3.706435618750104*^9, {3.706435653411326*^9, 
   3.7064356756171007`*^9}, 3.706436912406383*^9, {3.706436955048061*^9, 
   3.706436986247046*^9}, {3.706437226650051*^9, 3.706437303709127*^9}, 
   3.706451743177208*^9, {3.706501867564138*^9, 3.7065019427542686`*^9}, 
   3.743843629770101*^9, 3.7438455314422197`*^9, 3.744970651378419*^9, {
   3.745138286960724*^9, 3.745138295177224*^9}, {3.7451383616174803`*^9, 
   3.745138375804503*^9}, 3.745907921023377*^9, 3.7459213906162577`*^9, {
   3.746159920259898*^9, 3.746159938046661*^9}},
 CellLabel->
  "Out[149]=",ExpressionUUID->"b251db31-f2a2-45ec-977d-da9d4d07f0c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"anProtStatesCollectedSimp", "=", 
  RowBox[{
   RowBox[{"Simplify", "[", "anProtStatesCollected", "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Phi]AC2", "-", "\[Phi]AC1"}], "\[Rule]", " ", 
      "\[CapitalDelta]\[Phi]"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Phi]AC2"}], "+", "\[Phi]AC1"}], "\[Rule]", " ", 
      RowBox[{"-", "\[CapitalDelta]\[Phi]"}]}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"anMrotStatesCollectedSimp", "=", 
  RowBox[{
   RowBox[{"Simplify", "[", "anMrotStatesCollected", "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Phi]AC2", "-", "\[Phi]AC1"}], "\[Rule]", " ", 
      "\[CapitalDelta]\[Phi]"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Phi]AC2"}], "+", "\[Phi]AC1"}], "\[Rule]", " ", 
      RowBox[{"-", "\[CapitalDelta]\[Phi]"}]}]}], "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.7438438329711103`*^9, 3.743843846669759*^9}, {
  3.744970683051256*^9, 3.744970685351295*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"6869d6b0-1039-49ee-9ce1-30cf3395cdbe"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Beta]AC", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", "\[CapitalDelta]P"}], "-", "\[CapitalDelta]\[Phi]"}],
       ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", "\[CapitalDelta]P"}], "-", "\[CapitalDelta]\[Phi]"}],
       ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Alpha]AC", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Alpha]AC", "2"], "+", 
     SuperscriptBox["\[Beta]AC", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.7438438075830297`*^9, 3.7438438473131647`*^9, 
  3.7438455329992332`*^9, 3.744970689502748*^9, 3.7449707343103456`*^9, 
  3.745138413368923*^9, 3.745907922087432*^9, 3.74615995147607*^9},
 CellLabel->
  "Out[154]=",ExpressionUUID->"9324807a-5628-4a27-b269-74481246cebc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Alpha]AC", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", "\[CapitalDelta]P"}], "-", "\[CapitalDelta]\[Phi]"}],
       ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "-", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", "\[CapitalDelta]P"}], "-", "\[CapitalDelta]\[Phi]"}],
       ")"}]}]], " ", "\[Alpha]AC", " ", "\[Beta]AC", " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Beta]AC", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Alpha]AC", "2"], "+", 
     SuperscriptBox["\[Beta]AC", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.7438438075830297`*^9, 3.7438438473131647`*^9, 
  3.7438455329992332`*^9, 3.744970689502748*^9, 3.7449707343103456`*^9, 
  3.745138413368923*^9, 3.745907922087432*^9, 3.7461599515174828`*^9},
 CellLabel->
  "Out[155]=",ExpressionUUID->"0094b0c0-120a-4dc6-a8c1-ab5eabe6a3e1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"testP", " ", "=", " ", 
   RowBox[{"anProtStatesCollectedSimp", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Alpha]AC", "\[Rule]", "\[Alpha]"}], ",", "  ", 
      RowBox[{"\[Beta]AC", "\[Rule]", " ", "\[Beta]"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testM", "=", " ", 
   RowBox[{"anMrotStatesCollectedSimp", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Alpha]AC", "\[Rule]", "\[Alpha]"}], ",", "  ", 
      RowBox[{"\[Beta]AC", "\[Rule]", " ", "\[Beta]"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testP", "=", 
   RowBox[{"Collect", "[", 
    RowBox[{"testP", ",", 
     RowBox[{"{", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "-", 
           "\[CapitalDelta]\[Phi]"}], ")"}]}]], ",", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "-", 
           "\[CapitalDelta]\[Phi]"}], ")"}]}]], ",", 
       RowBox[{
        SuperscriptBox["\[Alpha]", "2"], "+", 
        SuperscriptBox["\[Beta]", "2"]}], ",", 
       SuperscriptBox["\[Alpha]", "2"], ",", 
       SuperscriptBox["\[Beta]", "2"]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"testM", "=", 
    RowBox[{"Collect", "[", 
     RowBox[{"testM", ",", 
      RowBox[{"{", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", "\[CapitalDelta]P"}], "-", 
            "\[CapitalDelta]\[Phi]"}], ")"}]}]], ",", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"t", " ", "\[CapitalDelta]P"}], "-", 
            "\[CapitalDelta]\[Phi]"}], ")"}]}]], ",", 
        RowBox[{
         SuperscriptBox["\[Alpha]", "2"], "+", 
         SuperscriptBox["\[Beta]", "2"]}], ",", 
        SuperscriptBox["\[Alpha]", "2"], ",", 
        SuperscriptBox["\[Beta]", "2"]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  "\"\<an_fast_1 and an_fast_2 from vSTIRAP-xxx.ipynb\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"testP", "[", 
  RowBox[{"[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "5"}], "}"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"testM", "[", 
  RowBox[{"[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "5"}], "}"}], "]"}], "]"}], "\n", 
 RowBox[{"Print", "[", "\"\<an_fast_3 from vSTIRAP-xxx.ipynb\>\"", 
  "]"}], "\n", 
 RowBox[{"testP", "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"testM", "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\n", 
 RowBox[{"Print", "[", "\"\<an_fast_4 from vSTIRAP-xxx.ipynb\>\"", 
  "]"}], "\n", 
 RowBox[{"testP", "[", 
  RowBox[{"[", "3", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"testM", "[", 
  RowBox[{"[", "3", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.704088010076756*^9, 3.704088019515463*^9}, {
  3.7064309075205603`*^9, 3.706430934051759*^9}, {3.706431001667734*^9, 
  3.706431010915359*^9}, {3.706431046667034*^9, 3.70643107549712*^9}, {
  3.706431132193465*^9, 3.706431137913026*^9}, {3.7064523486396227`*^9, 
  3.7064523535193567`*^9}, {3.706453222581197*^9, 3.706453223555661*^9}, {
  3.7449707150789013`*^9, 3.744970741990385*^9}, {3.745138440263534*^9, 
  3.7451385409369583`*^9}, {3.745138751569909*^9, 3.7451388431963873`*^9}, {
  3.746159967056958*^9, 3.7461599788790407`*^9}, {3.746160161548149*^9, 
  3.7461601705427113`*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"f81f7778-06b7-4617-b9a8-b59c3c290061"],

Cell[BoxData["\<\"an_fast_1 and an_fast_2 from vSTIRAP-xxx.ipynb\"\>"], \
"Print",
 CellChangeTimes->{3.7451388436419353`*^9, 3.745907930923025*^9, 
  3.745908413922987*^9, 3.7461599586465693`*^9, 3.746160170875559*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"1eb42cde-4ec7-44fb-99d6-cfc55ac5c473"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Beta]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Alpha]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Alpha]", "2"], "+", 
     SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.704088014376564*^9, 3.704088019751669*^9}, 
   3.704088229294424*^9, 3.706429861651527*^9, {3.706430910184292*^9, 
   3.70643093441486*^9}, {3.706430995935*^9, 3.706431011200754*^9}, 
   3.706431075874181*^9, {3.706431135195904*^9, 3.7064311385351133`*^9}, {
   3.706453235753409*^9, 3.7064532552691193`*^9}, {3.744970699919305*^9, 
   3.744970742410986*^9}, {3.74513849310937*^9, 3.7451385416885366`*^9}, 
   3.745138764684493*^9, 3.745138843653861*^9, 3.745907930930835*^9, 
   3.745908413932248*^9, 3.746159958793641*^9, 3.746160170885116*^9},
 CellLabel->
  "Out[187]=",ExpressionUUID->"30f0e086-efa3-407b-a638-76c74c38ffc6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["\[Alpha]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Beta]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Alpha]", "2"], "+", 
     SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"], "+", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.704088014376564*^9, 3.704088019751669*^9}, 
   3.704088229294424*^9, 3.706429861651527*^9, {3.706430910184292*^9, 
   3.70643093441486*^9}, {3.706430995935*^9, 3.706431011200754*^9}, 
   3.706431075874181*^9, {3.706431135195904*^9, 3.7064311385351133`*^9}, {
   3.706453235753409*^9, 3.7064532552691193`*^9}, {3.744970699919305*^9, 
   3.744970742410986*^9}, {3.74513849310937*^9, 3.7451385416885366`*^9}, 
   3.745138764684493*^9, 3.745138843653861*^9, 3.745907930930835*^9, 
   3.745908413932248*^9, 3.746159958793641*^9, 3.746160170899172*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"f2779b23-9eea-49f8-8725-0a36218c9b53"],

Cell[BoxData["\<\"an_fast_3 from vSTIRAP-xxx.ipynb\"\>"], "Print",
 CellChangeTimes->{3.7451388436419353`*^9, 3.745907930923025*^9, 
  3.745908413922987*^9, 3.7461599586465693`*^9, 3.7461601709127893`*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"8da27f75-5fe1-456e-93e8-d6ac40677415"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]P"}], "+", 
    RowBox[{"\[ImaginaryI]", " ", "\[CapitalDelta]\[Phi]"}]}]], " ", 
  "\[Alpha]", " ", "\[Beta]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.704088014376564*^9, 3.704088019751669*^9}, 
   3.704088229294424*^9, 3.706429861651527*^9, {3.706430910184292*^9, 
   3.70643093441486*^9}, {3.706430995935*^9, 3.706431011200754*^9}, 
   3.706431075874181*^9, {3.706431135195904*^9, 3.7064311385351133`*^9}, {
   3.706453235753409*^9, 3.7064532552691193`*^9}, {3.744970699919305*^9, 
   3.744970742410986*^9}, {3.74513849310937*^9, 3.7451385416885366`*^9}, 
   3.745138764684493*^9, 3.745138843653861*^9, 3.745907930930835*^9, 
   3.745908413932248*^9, 3.746159958793641*^9, 3.746160170918556*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"0c94bfcb-7391-4206-91de-50204fc3ef39"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "\[CapitalDelta]P"}], "+", 
    RowBox[{"\[ImaginaryI]", " ", "\[CapitalDelta]\[Phi]"}]}]], " ", 
  "\[Alpha]", " ", "\[Beta]", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
      "RowDefault"]}], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.704088014376564*^9, 3.704088019751669*^9}, 
   3.704088229294424*^9, 3.706429861651527*^9, {3.706430910184292*^9, 
   3.70643093441486*^9}, {3.706430995935*^9, 3.706431011200754*^9}, 
   3.706431075874181*^9, {3.706431135195904*^9, 3.7064311385351133`*^9}, {
   3.706453235753409*^9, 3.7064532552691193`*^9}, {3.744970699919305*^9, 
   3.744970742410986*^9}, {3.74513849310937*^9, 3.7451385416885366`*^9}, 
   3.745138764684493*^9, 3.745138843653861*^9, 3.745907930930835*^9, 
   3.745908413932248*^9, 3.746159958793641*^9, 3.74616017092625*^9},
 CellLabel->
  "Out[191]=",ExpressionUUID->"b9ba9010-a8ad-41c0-bfc8-ebe9d22ddb8a"],

Cell[BoxData["\<\"an_fast_4 from vSTIRAP-xxx.ipynb\"\>"], "Print",
 CellChangeTimes->{3.7451388436419353`*^9, 3.745907930923025*^9, 
  3.745908413922987*^9, 3.7461599586465693`*^9, 3.746160170934643*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"9fa92e77-895a-451f-a329-aa3226f35867"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}], "-", 
    RowBox[{"\[ImaginaryI]", " ", "\[CapitalDelta]\[Phi]"}]}]], " ", 
  "\[Alpha]", " ", "\[Beta]", " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.704088014376564*^9, 3.704088019751669*^9}, 
   3.704088229294424*^9, 3.706429861651527*^9, {3.706430910184292*^9, 
   3.70643093441486*^9}, {3.706430995935*^9, 3.706431011200754*^9}, 
   3.706431075874181*^9, {3.706431135195904*^9, 3.7064311385351133`*^9}, {
   3.706453235753409*^9, 3.7064532552691193`*^9}, {3.744970699919305*^9, 
   3.744970742410986*^9}, {3.74513849310937*^9, 3.7451385416885366`*^9}, 
   3.745138764684493*^9, 3.745138843653861*^9, 3.745907930930835*^9, 
   3.745908413932248*^9, 3.746159958793641*^9, 3.7461601709406233`*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"2fb11fde-376c-4a8c-98d7-56faf5d10ab2"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}], "-", 
    RowBox[{"\[ImaginaryI]", " ", "\[CapitalDelta]\[Phi]"}]}]], " ", 
  "\[Alpha]", " ", "\[Beta]", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{TemplateBox[{
         RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
       TemplateBox[{
         RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
      "RowDefault"]}], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "-", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.704088014376564*^9, 3.704088019751669*^9}, 
   3.704088229294424*^9, 3.706429861651527*^9, {3.706430910184292*^9, 
   3.70643093441486*^9}, {3.706430995935*^9, 3.706431011200754*^9}, 
   3.706431075874181*^9, {3.706431135195904*^9, 3.7064311385351133`*^9}, {
   3.706453235753409*^9, 3.7064532552691193`*^9}, {3.744970699919305*^9, 
   3.744970742410986*^9}, {3.74513849310937*^9, 3.7451385416885366`*^9}, 
   3.745138764684493*^9, 3.745138843653861*^9, 3.745907930930835*^9, 
   3.745908413932248*^9, 3.746159958793641*^9, 3.746160170949604*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"ef3eee15-54fb-464d-995d-62cb95ee0137"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Converting operators to rot frame: Photon emission operators (i.e. for \
vStirap-3lvl-complex-biref.ipynb)\
\>", "Subsubsection",
 CellChangeTimes->{{3.6793167637530203`*^9, 3.679316783007392*^9}, {
  3.679391183750515*^9, 3.679391187780855*^9}, {3.745923667408328*^9, 
  3.745923720381802*^9}},ExpressionUUID->"0254aeab-3050-43ac-9e08-\
67219c9cdb9c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"adM1", ",", "adM2"}], "}"}], " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]MC1"}]], " ", "\[Alpha]MC", " ", 
       "adX"}], " ", "+", " ", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", "\[Phi]MC2"}]], " ", "\[Beta]MC", " ", 
       "adY"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]MC2"}]]}], " ", 
       "\[Beta]MC", "  ", "adX"}], " ", "+", "  ", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]MC1"}]], "\[Alpha]MC", 
       " ", "adY"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.745912286639297*^9, 3.74591231238527*^9}, {
  3.746160183874037*^9, 3.7461601918338346`*^9}},
 CellLabel->
  "In[377]:=",ExpressionUUID->"3984d5af-1b3a-4dd7-9634-f1edee3f2fc1"],

Cell[TextData[{
 "Note that here we are defining the decay operator hence the  ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", "2", ")"}], 
    RowBox[{"1", "/", "2"}]], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "2c8d2c8f-8689-4a91-99da-5e34cf57c8eb"],
 "\[Kappa] pre-factors.\nAlso note the correct weighting is ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "\[Kappa]"}], ")"}], 
    RowBox[{"1", "/", "2"}]], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "3241a7a8-5440-4db0-bbe7-00b0e116002f"],
 ", however MMA doesn\[CloseCurlyQuote]t seem to simplify this as easily, so \
we will use \[Kappa] and then replace \[Kappa] -> ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Kappa]", 
    RowBox[{"1", "/", "2"}]], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "9d35326a-fabd-4061-a444-55a65ff327df"],
 " at the very end.\nAlso note we are using photon annihilation operators as \
this is cavity decay."
}], "Text",
 CellChangeTimes->{{3.745923750109367*^9, 3.7459238679491453`*^9}, {
  3.7461602399208307`*^9, 3.7461603007770863`*^9}, {3.746170578222557*^9, 
  3.746170597478224*^9}},ExpressionUUID->"bb89d0e7-55ab-4a0f-bde7-\
3d99944240ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"decay1", "=", 
     RowBox[{
      RowBox[{"\[Sqrt]", "2"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]ZM1"}]], " ", "\[Alpha]ZM", "  ",
          "\[Kappa]1", " ", 
         RowBox[{"adM1", "\[ConjugateTranspose]"}]}], "+", " ", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", "\[Beta]ZM", "  ",
          "\[Kappa]2", " ", 
         RowBox[{"adM2", "\[ConjugateTranspose]"}]}]}], ")"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"decay2", "=", 
     RowBox[{
      RowBox[{"\[Sqrt]", "2"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]ZM2"}]]}], " ", 
         "\[Beta]ZM", "  ", "\[Kappa]1", " ", 
         RowBox[{"adM1", "\[ConjugateTranspose]"}]}], " ", "+", "  ", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]ZM1"}]], "\[Alpha]ZM", 
         "  ", "\[Kappa]2", " ", 
         RowBox[{"adM2", "\[ConjugateTranspose]"}]}]}], ")"}]}]}], ";"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"$Assumptions", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Alpha]ZM", ",", "\[Beta]ZM", ",", "\[Phi]ZM1", ",", "\[Phi]ZM2", 
        ",", "\[Alpha]MC", ",", "\[Beta]MC", ",", "\[Phi]MC1", ",", 
        "\[Phi]MC2", ",", "\[Kappa]1", ",", "\[Kappa]2"}], "}"}], 
      "\[Element]", "Reals"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"decay1", "=", 
     RowBox[{
      RowBox[{"\[Sqrt]", "2"}], "*", 
      RowBox[{"Simplify", "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", "\[Phi]ZM1"}]], " ", "\[Alpha]ZM", 
            "  ", "\[Kappa]1", " ", "adM1"}], ")"}], 
          "\[ConjugateTranspose]"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", "\[Beta]ZM", "  ",
             "\[Kappa]2", " ", "adM2"}], ")"}], "\[ConjugateTranspose]"}]}], 
        ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"decay2", "=", 
     RowBox[{
      RowBox[{"\[Sqrt]", "2"}], "*", 
      RowBox[{"Simplify", "/@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]ZM2"}]]}], " ", 
            "\[Beta]ZM", "  ", "\[Kappa]1", " ", "adM1"}], ")"}], 
          "\[ConjugateTranspose]"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]ZM1"}]], 
            "\[Alpha]ZM", "  ", "\[Kappa]2", " ", "adM2"}], ")"}], 
          "\[ConjugateTranspose]"}]}], ")"}]}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.745912328556918*^9, 3.745912506377413*^9}, {
   3.745921004982531*^9, 3.745921013486174*^9}, {3.74592173412904*^9, 
   3.7459217384947023`*^9}, {3.746160212773435*^9, 3.7461602359863*^9}, {
   3.746160305128458*^9, 3.746160323064745*^9}, {3.746160747145137*^9, 
   3.746160764356172*^9}, {3.7462530970364122`*^9, 3.74625312300348*^9}, {
   3.746253308809025*^9, 3.746253330914527*^9}, 3.746253606867708*^9},
 CellLabel->
  "In[527]:=",ExpressionUUID->"142761f7-0223-4d45-bb01-fd7c1efad345"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"decay1full", "=", 
   RowBox[{
    RowBox[{"IdentityMatrix", "[", 
     RowBox[{"Length", "@", "states"}], "]"}], "\[CircleTimes]", "decay1"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"decay2full", "=", 
   RowBox[{
    RowBox[{"IdentityMatrix", "[", 
     RowBox[{"Length", "@", "states"}], "]"}], "\[CircleTimes]", "decay2"}]}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.745912573625601*^9, 3.745912591245058*^9}},
 CellLabel->
  "In[530]:=",ExpressionUUID->"3ab51e55-8b2d-4051-815f-71ab28ac2b82"],

Cell["\<\
We now define the number operator for photon emission (i.e. how much \
excitation passes through each decay channel).\
\>", "Text",
 CellChangeTimes->{{3.746160334807624*^9, 
  3.746160363398519*^9}},ExpressionUUID->"d0ee8332-7a88-4114-be57-\
19b3780d71a8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"emOp1", "=", 
   RowBox[{
    RowBox[{"decay1full", "\[ConjugateTranspose]"}], ".", "decay1full"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"emOp2", "=", 
   RowBox[{
    RowBox[{"decay2full", "\[ConjugateTranspose]"}], ".", "decay2full"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.74591251077297*^9, 3.745912595389744*^9}, {
  3.746160367833156*^9, 3.746160372670847*^9}, {3.7461705866668243`*^9, 
  3.746170589781426*^9}},
 CellLabel->
  "In[532]:=",ExpressionUUID->"b147c50d-512a-411a-b9fb-63bfefe42e5a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"emOp1rot", " ", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"TrigToExp", "[", 
     RowBox[{"ComplexExpand", "[", 
      RowBox[{"U", ".", "emOp1", ".", 
       RowBox[{"U", "\[ConjugateTranspose]"}]}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"emOp2rot", " ", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"TrigToExp", "[", 
     RowBox[{"ComplexExpand", "[", 
      RowBox[{"U", ".", "emOp2", ".", 
       RowBox[{"U", "\[ConjugateTranspose]"}]}], "]"}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.745912631679586*^9, 3.745912695770876*^9}, {
  3.745912731476611*^9, 3.745912736834984*^9}, {3.745912787806526*^9, 
  3.745912792822085*^9}, {3.745921427751605*^9, 3.745921430949135*^9}, {
  3.745921552888804*^9, 3.7459215817039948`*^9}, {3.7459216257295103`*^9, 
  3.745921628703648*^9}, {3.745921746185689*^9, 3.7459217494318743`*^9}, {
  3.746160533329742*^9, 3.7461605353234463`*^9}},
 CellLabel->
  "In[534]:=",ExpressionUUID->"74d21d88-2086-4a1c-a351-98799e51e54d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"emOp1rot", " ", "=", " ", 
   RowBox[{"emOp1rot", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Omega]X", "-", "\[Omega]Y"}], "\[Rule]", 
       "\[CapitalDelta]P"}], ",", 
      RowBox[{
       RowBox[{"\[Omega]Y", "-", "\[Omega]X"}], "\[Rule]", 
       RowBox[{"-", "\[CapitalDelta]P"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"t", " ", "\[Omega]X"}], "-", 
        RowBox[{"t", " ", "\[Omega]Y"}]}], "\[Rule]", 
       RowBox[{"t", " ", "\[CapitalDelta]P"}]}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"t", " ", "\[Omega]Y"}], "-", 
        RowBox[{"t", " ", "\[Omega]X"}]}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", "t"}], " ", "\[CapitalDelta]P"}]}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"emOp2rot", " ", "=", " ", 
   RowBox[{"emOp2rot", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Omega]X", "-", "\[Omega]Y"}], "\[Rule]", 
       "\[CapitalDelta]P"}], ",", 
      RowBox[{
       RowBox[{"\[Omega]Y", "-", "\[Omega]X"}], "\[Rule]", 
       RowBox[{"-", "\[CapitalDelta]P"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"t", " ", "\[Omega]X"}], "-", 
        RowBox[{"t", " ", "\[Omega]Y"}]}], "\[Rule]", 
       RowBox[{"t", " ", "\[CapitalDelta]P"}]}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"t", " ", "\[Omega]Y"}], "-", 
        RowBox[{"t", " ", "\[Omega]X"}]}], "\[Rule]", 
       RowBox[{
        RowBox[{"-", "t"}], " ", "\[CapitalDelta]P"}]}]}], "}"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.745912631679586*^9, 3.745912695770876*^9}, {
  3.745912731476611*^9, 3.745912736834984*^9}, {3.745912787806526*^9, 
  3.745912827943529*^9}, {3.7459128672931213`*^9, 3.745912869385705*^9}},
 CellLabel->
  "In[536]:=",ExpressionUUID->"93e85289-9c51-482b-b227-d78b4746f65a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"emOp1rot", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.745912701531541*^9, 3.745912702567486*^9}, {
  3.7462533346248417`*^9, 3.746253335457448*^9}},
 CellLabel->
  "In[538]:=",ExpressionUUID->"fad27666-8a72-4022-820e-5660069855ef"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0"},
     {"0", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
          "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}],
           ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC",
           " ", "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", "\[Beta]ZM",
           " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Beta]MC", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Alpha]MC", "2"], " ", 
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", 
           RowBox[{"2", " ", "\[Phi]MC1"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
          "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", "\[Alpha]ZM", " ", 
          SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
          "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "t"}], " ", "\[CapitalDelta]P"}], "+", 
           RowBox[{"2", " ", "\[Phi]MC2"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", 
          SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
          "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          "\[Alpha]ZM", " ", 
          SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
          "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["\[Alpha]MC", "2"], " ", 
        SuperscriptBox["\[Alpha]ZM", "2"], " ", 
        SuperscriptBox["\[Kappa]1", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
           "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
            "\[Phi]ZM2"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]]}], ")"}], 
        " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", 
        "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Beta]MC", "2"], " ", 
        SuperscriptBox["\[Beta]ZM", "2"], " ", 
        SuperscriptBox["\[Kappa]2", "2"]}]}], "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Alpha]MC", "2"], "+", 
         SuperscriptBox["\[Beta]MC", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[Alpha]ZM", "2"], " ", 
          SuperscriptBox["\[Kappa]1", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["\[Beta]ZM", "2"], " ", 
          SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}], "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", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
          "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}],
           ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC",
           " ", "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", "\[Beta]ZM",
           " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Beta]MC", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Alpha]MC", "2"], " ", 
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", 
           RowBox[{"2", " ", "\[Phi]MC1"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
          "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", "\[Alpha]ZM", " ", 
          SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
          "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], "0", 
      "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "t"}], " ", "\[CapitalDelta]P"}], "+", 
           RowBox[{"2", " ", "\[Phi]MC2"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", 
          SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
          "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          "\[Alpha]ZM", " ", 
          SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
          "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["\[Alpha]MC", "2"], " ", 
        SuperscriptBox["\[Alpha]ZM", "2"], " ", 
        SuperscriptBox["\[Kappa]1", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
           "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
            "\[Phi]ZM2"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]]}], ")"}], 
        " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", 
        "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Beta]MC", "2"], " ", 
        SuperscriptBox["\[Beta]ZM", "2"], " ", 
        SuperscriptBox["\[Kappa]2", "2"]}]}], "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Alpha]MC", "2"], "+", 
         SuperscriptBox["\[Beta]MC", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[Alpha]ZM", "2"], " ", 
          SuperscriptBox["\[Kappa]1", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["\[Beta]ZM", "2"], " ", 
          SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}], "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", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
          "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}],
           ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC",
           " ", "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", "\[Beta]ZM",
           " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Beta]MC", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Alpha]MC", "2"], " ", 
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", 
           RowBox[{"2", " ", "\[Phi]MC1"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
          "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", "\[Alpha]ZM", " ", 
          SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
          "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], "0", 
      "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "t"}], " ", "\[CapitalDelta]P"}], "+", 
           RowBox[{"2", " ", "\[Phi]MC2"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", 
          SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
          "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          "\[Alpha]ZM", " ", 
          SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
          "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["\[Alpha]MC", "2"], " ", 
        SuperscriptBox["\[Alpha]ZM", "2"], " ", 
        SuperscriptBox["\[Kappa]1", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
           "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
            "\[Phi]ZM2"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]]}], ")"}], 
        " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", 
        "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Beta]MC", "2"], " ", 
        SuperscriptBox["\[Beta]ZM", "2"], " ", 
        SuperscriptBox["\[Kappa]2", "2"]}]}], "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Alpha]MC", "2"], "+", 
         SuperscriptBox["\[Beta]MC", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[Alpha]ZM", "2"], " ", 
          SuperscriptBox["\[Kappa]1", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["\[Beta]ZM", "2"], " ", 
          SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}], "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", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
          "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}],
           ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC",
           " ", "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", "\[Beta]ZM",
           " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Beta]MC", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Alpha]MC", "2"], " ", 
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", 
           RowBox[{"2", " ", "\[Phi]MC1"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
          "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", "\[Alpha]ZM", " ", 
          SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
          "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "t"}], " ", "\[CapitalDelta]P"}], "+", 
           RowBox[{"2", " ", "\[Phi]MC2"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], " ", 
          SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
          "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
          "\[Alpha]ZM", " ", 
          SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
          "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
             "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
              "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[Alpha]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]1", "2"]}], "-", 
            RowBox[{
             SuperscriptBox["\[Beta]ZM", "2"], " ", 
             SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["\[Alpha]MC", "2"], " ", 
        SuperscriptBox["\[Alpha]ZM", "2"], " ", 
        SuperscriptBox["\[Kappa]1", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"(", 
           RowBox[{
           "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
            "\[Phi]ZM2"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]], "+", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]]}], ")"}], 
        " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", 
        "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Beta]MC", "2"], " ", 
        SuperscriptBox["\[Beta]ZM", "2"], " ", 
        SuperscriptBox["\[Kappa]2", "2"]}]}], "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Alpha]MC", "2"], "+", 
         SuperscriptBox["\[Beta]MC", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[Alpha]ZM", "2"], " ", 
          SuperscriptBox["\[Kappa]1", "2"]}], "+", 
         RowBox[{
          SuperscriptBox["\[Beta]ZM", "2"], " ", 
          SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}
    },
    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",
 CellChangeTimes->{
  3.745912702773193*^9, 3.745912770432103*^9, 3.745912830797723*^9, 
   3.745921500459496*^9, 3.7459216098065*^9, 3.745921791206402*^9, 
   3.746160737729662*^9, 3.746160770652117*^9, 3.7461706081216373`*^9, 
   3.746253133434308*^9, {3.746253336020995*^9, 3.746253342993463*^9}, 
   3.746253612780896*^9},
 CellLabel->
  "Out[538]//MatrixForm=",ExpressionUUID->"78bba5da-74c4-4af5-aab6-\
83129cfc02bd"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Format", "[", 
    RowBox[{"CenterDot", "[", "x__", "]"}], "]"}], ":=", 
   RowBox[{"Row", "[", 
    RowBox[{"Riffle", "[", 
     RowBox[{
      RowBox[{"{", "x", "}"}], ",", "\"\<\[ThinSpace]\>\""}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"State", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Tuples", "[", 
     RowBox[{"{", 
      RowBox[{"states", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}], "[", 
    RowBox[{"[", "i", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"emOp1rotStates", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"emOp1rot", " ", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"Ket", "@@", 
        RowBox[{"State", "[", "i", "]"}]}], "\[CenterDot]", " ", 
       RowBox[{"Bra", "@@", 
        RowBox[{"State", "[", "j", "]"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "emOp1rot", " ", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "emOp1rot", " ", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"emOp2rotStates", "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"emOp2rot", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], 
      RowBox[{
       RowBox[{"Ket", "@@", 
        RowBox[{"State", "[", "i", "]"}]}], "\[CenterDot]", " ", 
       RowBox[{"Bra", "@@", 
        RowBox[{"State", "[", "j", "]"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "emOp2rot", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "emOp2rot", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzlsoQwEAxvGF5PagvGg5tBBSQolocQpTQrSyFJtJDLM9TCQrubUHCQ/L
ixnWxtyeFnswarmNMBajEaVMh63QLmI533n4+tX39OeIZQ3tYSwWi6AHPf2p
KRYJReZvlWfDyoKYYqj2c0qgNpBeD4f6qhrh+q62DfoKP2SQ7dePwkmzQgWl
mlgdFA8oDfD7XX0Ck/TrjMmGczucKTdewd3ttrQ9WuutNgNWhxPNsFv+1wof
HYkd0LZEMCqX/7rgu+lMCp28QQW89BYNwDj3yxi8SvZOQIHz5gAKlamHMDci
8AUtPaxv6Ko5rXPR/k6/9UJBbpMRiuan1iD3SCJ8QHdoXgQ1WcMjUNzCH4Ov
npULWEbe2WGmc3wjT02R15IFRhV3cxtuHsrN0PQTtMAcjW0fzm44XNDd6WOU
PyXwS2nvfRWN8DgYqnyeo0giXsCDT8aKxcsX+l8ldPAzih1pdVPkDlEbDf8B
4pwGVA==
  "],
 CellLabel->
  "In[539]:=",ExpressionUUID->"339ef397-b7db-4a4e-8ea8-0ae5b6b63fb2"],

Cell["\<\
This is the slow step!  Be patient or speed it up if you can be bothered!\
\>", "Text",
 CellChangeTimes->{{3.7459169486665573`*^9, 
  3.7459169640826283`*^9}},ExpressionUUID->"8d42bea4-6691-4b24-9ba1-\
c694a7781e01"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"emOp1rotStatesSimp", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"emOp1rotStates", "//", "Simplify"}], "//", "TrigToExp"}], "//",
       "Simplify"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"emOp2rotStatesSimp", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"emOp2rotStates", "//", "Simplify"}], "//", "TrigToExp"}], "//",
       "Simplify"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"emOp1rotStatesSimp", "=", 
     RowBox[{"emOp1rotStates", "//", "Simplify"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"emOp2rotStatesSimp", "=", 
     RowBox[{"emOp2rotStates", "//", "Simplify"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.745912945894993*^9, 3.745912947632772*^9}, {
  3.745913066997591*^9, 3.7459130696509247`*^9}, {3.745913309420306*^9, 
  3.745913310073332*^9}, {3.745914539366605*^9, 3.7459145712275667`*^9}, {
  3.745914639458561*^9, 3.745914645927349*^9}, {3.745916756957882*^9, 
  3.745916762482087*^9}, {3.746160832099464*^9, 3.746160839842781*^9}},
 CellLabel->
  "In[543]:=",ExpressionUUID->"f6864a8d-6d00-48a1-ae84-41e26589ffb7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"emOp1rotStatesCollected", ",", "emOp2rotStatesCollected"}], "}"}],
   "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "emOprotStatesSimp", ",", "emOprotStatesCollected", ",", 
        "emOprotStatesCollectedA", ",", "emOprotStatesCollectedB", ",", 
        "emOprotStatesCollectedC"}], "}"}], ",", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"emOprotStatesSimp", "=", "#"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"emOprotStatesCollected", "=", 
        RowBox[{"Collect", "[", 
         RowBox[{"emOprotStatesSimp", ",", 
          RowBox[{"{", " ", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", 
              RowBox[{"(", 
               RowBox[{"t", " ", "\[CapitalDelta]P"}], ")"}]}]], ",", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"\[ImaginaryI]", " ", 
              RowBox[{"(", 
               RowBox[{"t", " ", "\[CapitalDelta]P"}], ")"}]}]]}], "}"}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"emOprotStatesCollectedA", "=", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"emOprotStatesCollected", ",", 
           RowBox[{
            RowBox[{"SameQ", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
               "\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}]]}], " ", 
             "]"}], "&"}]}], "]"}], "//", "Simplify"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"emOprotStatesCollectedB", " ", "=", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"emOprotStatesCollected", ",", 
           RowBox[{
            RowBox[{"SameQ", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", 
                "\[CapitalDelta]P"}]]}], " ", "]"}], "&"}]}], "]"}], "//", 
         "Simplify"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"emOprotStatesCollectedC", "=", 
        RowBox[{"Select", "[", 
         RowBox[{"emOprotStatesCollected", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"!", 
             RowBox[{"SameQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", 
                 "\[CapitalDelta]P"}]]}], " ", "]"}]}], "&&", " ", 
            RowBox[{"!", 
             RowBox[{"SameQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                "\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}]]}], " ", 
              "]"}]}]}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"emOprotStatesCollectedC", "=", 
        RowBox[{
         RowBox[{"Collect", "[", 
          RowBox[{"emOprotStatesCollectedC", ",", 
           RowBox[{"{", "\[IndentingNewLine]", " ", 
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox["\[Alpha]MC", "2"], " ", 
              SuperscriptBox["\[Alpha]ZM", "2"], " ", 
              SuperscriptBox["\[Kappa]1", "2"]}], ",", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[Alpha]MC", "2"], " ", 
              SuperscriptBox["\[Beta]ZM", "2"], " ", 
              SuperscriptBox["\[Kappa]2", "2"]}], ",", " ", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[Alpha]MC", "2"], " ", 
              SuperscriptBox["\[Alpha]ZM", "2"], " ", 
              SuperscriptBox["\[Kappa]2", "2"]}], ",", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[Alpha]MC", "2"], " ", 
              SuperscriptBox["\[Beta]ZM", "2"], " ", 
              SuperscriptBox["\[Kappa]1", "2"]}], ",", "\[IndentingNewLine]", 
             
             RowBox[{"2", " ", 
              SuperscriptBox["\[Alpha]ZM", "2"], " ", 
              SuperscriptBox["\[Beta]MC", "2"], " ", 
              SuperscriptBox["\[Kappa]1", "2"]}], ",", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[Beta]MC", "2"], " ", 
              SuperscriptBox["\[Beta]ZM", "2"], " ", 
              SuperscriptBox["\[Kappa]2", "2"]}], ",", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[Alpha]ZM", "2"], " ", 
              SuperscriptBox["\[Beta]MC", "2"], " ", 
              SuperscriptBox["\[Kappa]2", "2"]}], ",", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[Beta]MC", "2"], " ", 
              SuperscriptBox["\[Beta]ZM", "2"], " ", 
              SuperscriptBox["\[Kappa]1", "2"]}], ",", "\[IndentingNewLine]", 
             " ", 
             RowBox[{
             "\[Kappa]1", " ", "\[Kappa]2", " ", "\[Alpha]MC", " ", 
              "\[Alpha]ZM", " ", "\[Beta]MC", " ", "\[Beta]ZM"}]}], 
            "\[IndentingNewLine]", "}"}]}], "]"}], "//", "FullSimplify"}]}], 
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "emOprotStatesCollectedA", ",", "emOprotStatesCollectedB", ",", 
         "emOprotStatesCollectedC"}], "}"}]}]}], "\[IndentingNewLine]", "]"}],
     "&"}], "/@", 
   RowBox[{"{", 
    RowBox[{"emOp1rotStatesSimp", ",", "emOp2rotStatesSimp"}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.745915039593854*^9, 3.745915109993144*^9}, {
   3.745915156906636*^9, 3.7459151984537888`*^9}, {3.745915289094318*^9, 
   3.745915306868943*^9}, {3.74591535149817*^9, 3.7459155204285507`*^9}, {
   3.745915987808032*^9, 3.745916028587995*^9}, 3.745916436321208*^9, {
   3.745916476504155*^9, 3.745916740411992*^9}, {3.745916904821945*^9, 
   3.745916916153296*^9}, {3.745918648473446*^9, 3.745918650407873*^9}, {
   3.745919699866209*^9, 3.745919713757749*^9}, {3.745921819673768*^9, 
   3.745921824743297*^9}, {3.7461682355327263`*^9, 3.746168236251462*^9}, {
   3.746169618578377*^9, 3.746169631430778*^9}, {3.746169849813381*^9, 
   3.7461698568966503`*^9}, {3.746169927959667*^9, 3.746169932240664*^9}, {
   3.7462532456686783`*^9, 3.746253258924345*^9}},
 CellLabel->
  "In[545]:=",ExpressionUUID->"10905224-1f27-410f-b1db-a68880d0fec5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "\[Phi]MC2"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]]}], " ", 
         SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
         "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
         "\[Alpha]ZM", " ", 
         SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", "\[Kappa]1",
          " ", "\[Kappa]2"}], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
            "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
             "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Alpha]ZM", "2"], " ", 
            SuperscriptBox["\[Kappa]1", "2"]}], "-", 
           RowBox[{
            SuperscriptBox["\[Beta]ZM", "2"], " ", 
            SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{TemplateBox[{
            RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"]}], ")"}]}], ",", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", 
          RowBox[{"2", " ", "\[Phi]MC1"}], "+", "\[Phi]ZM1", "+", 
          "\[Phi]ZM2"}], ")"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
         SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
         "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
            ")"}]}]], " ", "\[Alpha]ZM", " ", 
         SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", "\[Kappa]1",
          " ", "\[Kappa]2"}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
            "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
             "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Alpha]ZM", "2"], " ", 
            SuperscriptBox["\[Kappa]1", "2"]}], "-", 
           RowBox[{
            SuperscriptBox["\[Beta]ZM", "2"], " ", 
            SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{TemplateBox[{
            RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"]}], ")"}]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Alpha]ZM", "2"], " ", 
         SuperscriptBox["\[Beta]MC", "2"], " ", 
         SuperscriptBox["\[Kappa]1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Alpha]MC", "2"], " ", 
         SuperscriptBox["\[Beta]ZM", "2"], " ", 
         SuperscriptBox["\[Kappa]2", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Alpha]MC", "2"], " ", 
         SuperscriptBox["\[Alpha]ZM", "2"], " ", 
         SuperscriptBox["\[Kappa]1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Beta]MC", "2"], " ", 
         SuperscriptBox["\[Beta]ZM", "2"], " ", 
         SuperscriptBox["\[Kappa]2", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"]}], ")"}]}], "+", 
        RowBox[{
        "2", " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", 
         "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2", " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "-", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "-", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "-", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "-", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
          "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "-", "\[Phi]ZM2"}],
           "]"}]}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "\[Phi]MC2"}], "+", "\[Phi]ZM1", "+", 
           "\[Phi]ZM2"}], ")"}]}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", "\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
             ")"}]}]]}], " ", 
         SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
         "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
         "\[Alpha]ZM", " ", 
         SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", "\[Kappa]1",
          " ", "\[Kappa]2"}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
            "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
             "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Beta]ZM", "2"], " ", 
            SuperscriptBox["\[Kappa]1", "2"]}], "-", 
           RowBox[{
            SuperscriptBox["\[Alpha]ZM", "2"], " ", 
            SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{TemplateBox[{
            RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
         "RowDefault"]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", 
          RowBox[{"2", " ", "\[Phi]MC1"}], "+", "\[Phi]ZM1", "+", 
          "\[Phi]ZM2"}], ")"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
         SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", 
         "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2"}], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
            ")"}]}]], " ", "\[Alpha]ZM", " ", 
         SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", "\[Kappa]1",
          " ", "\[Kappa]2"}], "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{
            "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", 
             "\[Phi]ZM2"}], ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", 
         " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Beta]ZM", "2"], " ", 
            SuperscriptBox["\[Kappa]1", "2"]}], "-", 
           RowBox[{
            SuperscriptBox["\[Alpha]ZM", "2"], " ", 
            SuperscriptBox["\[Kappa]2", "2"]}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        TemplateBox[{TemplateBox[{
            RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"], "+", 
        TemplateBox[{TemplateBox[{
            RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
          TemplateBox[{
            RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
         "RowDefault"]}], ")"}]}], ",", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Beta]MC", "2"], " ", 
         SuperscriptBox["\[Beta]ZM", "2"], " ", 
         SuperscriptBox["\[Kappa]1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Alpha]MC", "2"], " ", 
         SuperscriptBox["\[Alpha]ZM", "2"], " ", 
         SuperscriptBox["\[Kappa]2", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Alpha]MC", "2"], " ", 
         SuperscriptBox["\[Beta]ZM", "2"], " ", 
         SuperscriptBox["\[Kappa]1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Alpha]ZM", "2"], " ", 
         SuperscriptBox["\[Beta]MC", "2"], " ", 
         SuperscriptBox["\[Kappa]2", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
            "RowDefault"]}], ")"}]}], "-", 
        RowBox[{
        "2", " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", 
         "\[Beta]ZM", " ", "\[Kappa]1", " ", "\[Kappa]2", " ", 
         RowBox[{"(", 
          RowBox[{
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "-", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "-", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "-", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"], "+", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
            "RowDefault"], "-", 
           TemplateBox[{TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],
             "\"\[ThinSpace]\"",TemplateBox[{
               RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
            "RowDefault"]}], ")"}], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
          "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "-", "\[Phi]ZM2"}],
           "]"}]}]}], ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7459150446194153`*^9, {3.7459150767174664`*^9, 3.745915110589365*^9}, {
   3.7459151579954443`*^9, 3.7459152015011673`*^9}, {3.74591529065623*^9, 
   3.7459153074798527`*^9}, {3.745915399051231*^9, 3.745915528401103*^9}, 
   3.745915947590591*^9, {3.7459159900419273`*^9, 3.745916029372617*^9}, 
   3.745916455689831*^9, {3.745916486123605*^9, 3.745916603156742*^9}, 
   3.74591686756149*^9, 3.7459169264525347`*^9, 3.745918658321328*^9, 
   3.745919723380035*^9, 3.745922029622973*^9, 3.746169650542116*^9, 
   3.74616978936873*^9, 3.7461698683454742`*^9, 3.7461699451122503`*^9, 
   3.746170662523651*^9, 3.74625319228938*^9, 3.746253439288074*^9, 
   3.74625365984762*^9},
 CellLabel->
  "Out[545]=",ExpressionUUID->"733f8397-38c8-4678-aedb-6beae3ce89f2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"replace", " ", "\[Kappa]"}], " ", "->", " ", 
  RowBox[{
   FormBox[
    SuperscriptBox["\[Kappa]", 
     RowBox[{"1", "/", "2"}]],
    TraditionalForm], " ", "as", " ", 
   RowBox[{"promised", "."}]}]}]], "Text",
 CellChangeTimes->{{3.745923873850464*^9, 
  3.7459238979378233`*^9}},ExpressionUUID->"1514160d-6823-4d92-99ed-\
155fcbd559bf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "emOp1rotStatesCollectedCorrected", ",", 
     "emOp2rotStatesCollectedCorrected"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"#", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[Kappa]1", "2"], "\[Rule]", "\[Kappa]1"}], ",", 
         RowBox[{
          SuperscriptBox["\[Kappa]2", "2"], "\[Rule]", " ", "\[Kappa]2"}], 
         ",", 
         RowBox[{"\[Kappa]1", "\[Rule]", 
          RowBox[{"\[Sqrt]", "\[Kappa]1"}]}], ",", 
         RowBox[{"\[Kappa]2", "\[Rule]", " ", 
          RowBox[{"\[Sqrt]", "\[Kappa]2"}]}]}], "}"}]}], ")"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"emOp1rotStatesCollected", ",", "emOp2rotStatesCollected"}], 
     "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.745921835990749*^9, 3.745921885021925*^9}, {
  3.745922067030793*^9, 3.745922076808877*^9}},
 CellLabel->
  "In[546]:=",ExpressionUUID->"67889b67-ef7d-4b3d-b1de-19979a2a5a3d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"emOp1rotStatesCollectedCorrected", "[", 
  RowBox[{"[", "3", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"emOp2rotStatesCollectedCorrected", "[", 
  RowBox[{"[", "3", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"emOp1rotStatesCollectedCorrected", "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"emOp2rotStatesCollectedCorrected", "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"emOp1rotStatesCollectedCorrected", "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"emOp2rotStatesCollectedCorrected", "[", 
  RowBox[{"[", "1", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.745919703919436*^9, 3.7459197194553328`*^9}, {
  3.745919862118183*^9, 3.7459198629252977`*^9}, {3.7459199505716248`*^9, 
  3.745919951234315*^9}, {3.7459199939235573`*^9, 3.7459199945774193`*^9}, {
  3.745922079362268*^9, 3.745922090844932*^9}, {3.74592231363615*^9, 
  3.745922314313017*^9}, {3.74592256017179*^9, 3.745922561129663*^9}, {
  3.745923902034376*^9, 3.74592392106538*^9}, {3.746170393168385*^9, 
  3.7461703979317703`*^9}, {3.746170933606523*^9, 3.746170935970724*^9}},
 CellLabel->
  "In[555]:=",ExpressionUUID->"4d2f71b0-28ac-4d27-b7cc-2daab0f407b2"],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[Alpha]ZM", "2"], " ", 
     SuperscriptBox["\[Beta]MC", "2"], " ", "\[Kappa]1", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[Alpha]MC", "2"], " ", 
     SuperscriptBox["\[Beta]ZM", "2"], " ", "\[Kappa]2", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[Alpha]MC", "2"], " ", 
     SuperscriptBox["\[Alpha]ZM", "2"], " ", "\[Kappa]1", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[Beta]MC", "2"], " ", 
     SuperscriptBox["\[Beta]ZM", "2"], " ", "\[Kappa]2", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}]}], "+", 
    RowBox[{
    "2", " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", 
     "\[Beta]ZM", " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"], " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"]}], ")"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
      "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "-", "\[Phi]ZM2"}], 
      "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.745919709029126*^9, 3.74591972361411*^9}, 
   3.7459198632056417`*^9, 3.745919951427799*^9, 3.7459199947663517`*^9, {
   3.7459220830782013`*^9, 3.7459220910325117`*^9}, 3.745922314560027*^9, 
   3.745922561344851*^9, {3.7459239147284527`*^9, 3.745923921299518*^9}, 
   3.7461698061224413`*^9, 3.7461698753897867`*^9, 3.746169949832605*^9, 
   3.746170398251607*^9, 3.7461706698142977`*^9, 3.746170936245737*^9, 
   3.746253458497439*^9, 3.7462536723697977`*^9},
 CellLabel->
  "Out[555]=",ExpressionUUID->"3fadb294-db5c-4629-b53b-b0f4e7ad52b2"],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[Beta]MC", "2"], " ", 
     SuperscriptBox["\[Beta]ZM", "2"], " ", "\[Kappa]1", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[Alpha]MC", "2"], " ", 
     SuperscriptBox["\[Alpha]ZM", "2"], " ", "\[Kappa]2", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[Alpha]MC", "2"], " ", 
     SuperscriptBox["\[Beta]ZM", "2"], " ", "\[Kappa]1", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[Alpha]ZM", "2"], " ", 
     SuperscriptBox["\[Beta]MC", "2"], " ", "\[Kappa]2", " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "1"}]}, "Bra"]},
        "RowDefault"]}], ")"}]}], "-", 
    RowBox[{
    "2", " ", "\[Alpha]MC", " ", "\[Alpha]ZM", " ", "\[Beta]MC", " ", 
     "\[Beta]ZM", " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"], " ", 
     RowBox[{"(", 
      RowBox[{
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"], "+", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
        "RowDefault"], "-", 
       TemplateBox[{TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
         TemplateBox[{
           RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
        "RowDefault"]}], ")"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
      "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "-", "\[Phi]ZM2"}], 
      "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.745919709029126*^9, 3.74591972361411*^9}, 
   3.7459198632056417`*^9, 3.745919951427799*^9, 3.7459199947663517`*^9, {
   3.7459220830782013`*^9, 3.7459220910325117`*^9}, 3.745922314560027*^9, 
   3.745922561344851*^9, {3.7459239147284527`*^9, 3.745923921299518*^9}, 
   3.7461698061224413`*^9, 3.7461698753897867`*^9, 3.746169949832605*^9, 
   3.746170398251607*^9, 3.7461706698142977`*^9, 3.746170936245737*^9, 
   3.746253458497439*^9, 3.746253672411602*^9},
 CellLabel->
  "Out[556]=",ExpressionUUID->"86e6c328-fb6b-41c4-9db9-4a5d0d5b3c12"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.74592391474802*^9, 3.745923921365172*^9}, 
   3.746169806143215*^9, 3.746169875409539*^9, 3.746169949852906*^9, 
   3.7461703983200197`*^9, 3.746170669879743*^9, 3.746170936312971*^9, 
   3.746253458563959*^9, 3.7462536724422493`*^9},
 CellLabel->
  "During evaluation of \
In[555]:=",ExpressionUUID->"7d4d4753-29fd-44fe-9e04-a2800bf43d24"],

Cell[BoxData[
 RowBox[{"2", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", 
      RowBox[{"2", " ", "\[Phi]MC1"}], "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}], 
     ")"}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
     SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", "\[Beta]ZM", 
     " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], ")"}]}]], 
     " ", "\[Alpha]ZM", " ", 
     SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
        "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}], 
        ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Alpha]ZM", "2"], " ", "\[Kappa]1"}], "-", 
       RowBox[{
        SuperscriptBox["\[Beta]ZM", "2"], " ", "\[Kappa]2"}]}], ")"}]}]}], 
   ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.745919709029126*^9, 3.74591972361411*^9}, 
   3.7459198632056417`*^9, 3.745919951427799*^9, 3.7459199947663517`*^9, {
   3.7459220830782013`*^9, 3.7459220910325117`*^9}, 3.745922314560027*^9, 
   3.745922561344851*^9, {3.7459239147284527`*^9, 3.745923921299518*^9}, 
   3.7461698061224413`*^9, 3.7461698753897867`*^9, 3.746169949832605*^9, 
   3.746170398251607*^9, 3.7461706698142977`*^9, 3.746170936245737*^9, 
   3.746253458497439*^9, 3.746253672447152*^9},
 CellLabel->
  "Out[558]=",ExpressionUUID->"c526ce2d-5fbc-422f-b4d7-3b6d2e0859c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"t", " ", "\[CapitalDelta]P"}], "+", 
      RowBox[{"2", " ", "\[Phi]MC1"}], "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}], 
     ")"}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
     SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", "\[Beta]ZM", 
     " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], ")"}]}]], 
     " ", "\[Alpha]ZM", " ", 
     SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
        "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}], 
        ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Beta]ZM", "2"], " ", "\[Kappa]1"}], "-", 
       RowBox[{
        SuperscriptBox["\[Alpha]ZM", "2"], " ", "\[Kappa]2"}]}], ")"}]}]}], 
   ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Bra"]},
     "RowDefault"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.745919709029126*^9, 3.74591972361411*^9}, 
   3.7459198632056417`*^9, 3.745919951427799*^9, 3.7459199947663517`*^9, {
   3.7459220830782013`*^9, 3.7459220910325117`*^9}, 3.745922314560027*^9, 
   3.745922561344851*^9, {3.7459239147284527`*^9, 3.745923921299518*^9}, 
   3.7461698061224413`*^9, 3.7461698753897867`*^9, 3.746169949832605*^9, 
   3.746170398251607*^9, 3.7461706698142977`*^9, 3.746170936245737*^9, 
   3.746253458497439*^9, 3.746253672455131*^9},
 CellLabel->
  "Out[559]=",ExpressionUUID->"25b280ee-f7f2-4a37-ae82-f81929f68e00"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.74592391474802*^9, 3.745923921365172*^9}, 
   3.746169806143215*^9, 3.746169875409539*^9, 3.746169949852906*^9, 
   3.7461703983200197`*^9, 3.746170669879743*^9, 3.746170936312971*^9, 
   3.746253458563959*^9, 3.7462536724628553`*^9},
 CellLabel->
  "During evaluation of \
In[555]:=",ExpressionUUID->"2cebd6ac-94d5-43fd-b2e9-b9914495b317"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "\[Phi]MC2"}], "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}], 
      ")"}]}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
         ")"}]}]]}], " ", 
     SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", "\[Beta]ZM", 
     " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
     "\[Alpha]ZM", " ", 
     SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"]}], "-", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
        "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}], 
        ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Alpha]ZM", "2"], " ", "\[Kappa]1"}], "-", 
       RowBox[{
        SuperscriptBox["\[Beta]ZM", "2"], " ", "\[Kappa]2"}]}], ")"}]}]}], 
   ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.745919709029126*^9, 3.74591972361411*^9}, 
   3.7459198632056417`*^9, 3.745919951427799*^9, 3.7459199947663517`*^9, {
   3.7459220830782013`*^9, 3.7459220910325117`*^9}, 3.745922314560027*^9, 
   3.745922561344851*^9, {3.7459239147284527`*^9, 3.745923921299518*^9}, 
   3.7461698061224413`*^9, 3.7461698753897867`*^9, 3.746169949832605*^9, 
   3.746170398251607*^9, 3.7461706698142977`*^9, 3.746170936245737*^9, 
   3.746253458497439*^9, 3.7462536724672947`*^9},
 CellLabel->
  "Out[561]=",ExpressionUUID->"73d186cf-7041-4d42-8517-890f7bc22b56"],

Cell[BoxData[
 RowBox[{"2", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", "t", " ", "\[CapitalDelta]P"}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "\[Phi]MC2"}], "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}], 
      ")"}]}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1"}], 
         ")"}]}]]}], " ", 
     SuperscriptBox["\[Alpha]MC", "2"], " ", "\[Alpha]ZM", " ", "\[Beta]ZM", 
     " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]ZM2"}]], " ", 
     "\[Alpha]ZM", " ", 
     SuperscriptBox["\[Beta]MC", "2"], " ", "\[Beta]ZM", " ", 
     SqrtBox["\[Kappa]1"], " ", 
     SqrtBox["\[Kappa]2"]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
        "\[Phi]MC1", "+", "\[Phi]MC2", "+", "\[Phi]ZM1", "+", "\[Phi]ZM2"}], 
        ")"}]}]], " ", "\[Alpha]MC", " ", "\[Beta]MC", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Beta]ZM", "2"], " ", "\[Kappa]1"}], "-", 
       RowBox[{
        SuperscriptBox["\[Alpha]ZM", "2"], " ", "\[Kappa]2"}]}], ")"}]}]}], 
   ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    TemplateBox[{TemplateBox[{
        RowBox[{"\"d\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"d\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"e\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"e\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"g\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"g\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"], "+", 
    TemplateBox[{TemplateBox[{
        RowBox[{"\"u\"", ",", "1", ",", "0"}]}, "Ket"],"\"\[ThinSpace]\"",
      TemplateBox[{
        RowBox[{"\"u\"", ",", "0", ",", "1"}]}, "Bra"]},
     "RowDefault"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.745919709029126*^9, 3.74591972361411*^9}, 
   3.7459198632056417`*^9, 3.745919951427799*^9, 3.7459199947663517`*^9, {
   3.7459220830782013`*^9, 3.7459220910325117`*^9}, 3.745922314560027*^9, 
   3.745922561344851*^9, {3.7459239147284527`*^9, 3.745923921299518*^9}, 
   3.7461698061224413`*^9, 3.7461698753897867`*^9, 3.746169949832605*^9, 
   3.746170398251607*^9, 3.7461706698142977`*^9, 3.746170936245737*^9, 
   3.746253458497439*^9, 3.7462536724747477`*^9},
 CellLabel->
  "Out[562]=",ExpressionUUID->"c3886cca-d784-4401-a332-01d8bb21e474"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1466, 1155},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 327, 5, 67, "Section",ExpressionUUID->"83e366ca-287c-483c-9798-c292dd12ddd4"],
Cell[910, 29, 286, 7, 35, "Text",ExpressionUUID->"c56210a6-e7d6-4955-aa36-248c2f3fb0b5"],
Cell[1199, 38, 1033, 28, 74, "Input",ExpressionUUID->"9466a637-9f1d-4743-b09d-10a4da96a364"],
Cell[2235, 68, 241, 6, 35, "Text",ExpressionUUID->"0228df05-8297-4f77-abff-a5ce7f8cd027"],
Cell[2479, 76, 456, 17, 45, "Input",ExpressionUUID->"1d1711d6-af36-4bad-b870-75b26e77b62f"],
Cell[2938, 95, 566, 20, 36, "Text",ExpressionUUID->"7b73a5a5-a486-49b7-a601-ffd9a2772485"],
Cell[CellGroupData[{
Cell[3529, 119, 477, 14, 52, "Input",ExpressionUUID->"d495d596-7b98-4b07-8025-7e151133d3dd"],
Cell[4009, 135, 2143, 58, 70, "Output",ExpressionUUID->"1d194385-8a3e-4d66-b2c0-3e06088e37d7"]
}, Open  ]],
Cell[6167, 196, 3023, 106, 159, "Text",ExpressionUUID->"68f6dbd4-34c0-446c-8779-afcb91a1d381"],
Cell[CellGroupData[{
Cell[9215, 306, 682, 16, 52, "Input",ExpressionUUID->"4f4a009f-de61-49f4-993f-8d41279bded0"],
Cell[9900, 324, 1568, 41, 70, "Output",ExpressionUUID->"fd5ae093-022e-48bc-af8a-073eb051ce4b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[11517, 371, 227, 4, 53, "Section",ExpressionUUID->"be6b31d8-b8ec-4b52-a460-1b7dd3748046"],
Cell[CellGroupData[{
Cell[11769, 379, 832, 16, 45, "Subsubsection",ExpressionUUID->"e9aa394f-0e06-4106-8f8f-d56b7528b1e7"],
Cell[12604, 397, 481, 11, 81, "Text",ExpressionUUID->"dba0cb68-3e94-4866-b8f2-3e70890fc783"],
Cell[13088, 410, 3589, 104, 383, "Input",ExpressionUUID->"bbcdd28c-cca7-45f2-8004-b0beab5a5c1e"],
Cell[16680, 516, 259, 6, 35, "Text",ExpressionUUID->"a6a1005b-4b47-4c39-81e2-1f998a79dc43"],
Cell[16942, 524, 1027, 26, 68, "Input",ExpressionUUID->"3f2e8114-f146-47f9-af30-5ebd8c1f107b"],
Cell[17972, 552, 790, 17, 35, "Text",ExpressionUUID->"96746091-300d-4972-a84f-d326798d72b1"],
Cell[CellGroupData[{
Cell[18787, 573, 1082, 30, 66, "Input",ExpressionUUID->"c576d90b-a32d-4d22-ae4e-0bed1aad4206"],
Cell[19872, 605, 3803, 98, 57, "Output",ExpressionUUID->"ddb432c7-c999-4d02-8736-a2026e124676"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23712, 708, 1847, 42, 54, "Input",ExpressionUUID->"7721cc2b-8d9d-4511-9c63-f03396b8b8db"],
Cell[25562, 752, 3540, 90, 95, "Output",ExpressionUUID->"140f425a-a1ae-4236-b1ee-fc497f17cc70"]
}, Open  ]],
Cell[29117, 845, 875, 15, 81, "Text",ExpressionUUID->"f5a38ae2-0726-4d7d-9f8a-c4b45aa87b04"],
Cell[29995, 862, 3513, 66, 94, "Input",ExpressionUUID->"5e421ec6-1fd3-453c-8663-777a40c79dbf"],
Cell[33511, 930, 3629, 68, 89, "Input",ExpressionUUID->"54b5a5a5-4c42-4cc4-b0ef-2a71421ec320"],
Cell[37143, 1000, 2583, 40, 30, "Input",ExpressionUUID->"8b14521d-f10c-445d-873a-1bf2fee525d9"],
Cell[39729, 1042, 370, 7, 35, "Text",ExpressionUUID->"8d40b0fa-18d7-4823-9425-27021063a477"],
Cell[CellGroupData[{
Cell[40124, 1053, 3897, 80, 376, "Input",ExpressionUUID->"eefc4744-e708-4118-9b77-eeafec227edc"],
Cell[44024, 1135, 9430, 225, 412, "Output",ExpressionUUID->"adedd6eb-15ab-4746-ada9-1c70d307141b"]
}, Open  ]],
Cell[53469, 1363, 3742, 80, 117, "Input",ExpressionUUID->"1e6f43cc-98cf-48df-b615-0587ab9a4d38"],
Cell[CellGroupData[{
Cell[57236, 1447, 2941, 60, 178, "Input",ExpressionUUID->"402a6201-8848-43c2-b00e-a3230f552b74"],
Cell[60180, 1509, 12981, 294, 301, "Output",ExpressionUUID->"d2dec9c9-8333-4851-87ca-2abb1576c28d"],
Cell[73164, 1805, 1906, 27, 34, "Output",ExpressionUUID->"7cd1c58d-528d-4ccd-aa5c-aee7b7be061a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[75119, 1838, 881, 17, 45, "Subsubsection",ExpressionUUID->"f2d1ee6c-2c8a-4958-957d-589c1d8ecf07"],
Cell[76003, 1857, 329, 5, 35, "Text",ExpressionUUID->"bc274d8a-0509-4235-9603-915e0668867d"],
Cell[76335, 1864, 2830, 47, 52, "Input",ExpressionUUID->"3fa54609-43ed-419f-b0ec-a425997f373e"],
Cell[79168, 1913, 3678, 69, 89, "Input",ExpressionUUID->"47677416-9839-462d-ad0b-a7e26382ae05"],
Cell[82849, 1984, 2583, 40, 30, "Input",ExpressionUUID->"f0e4d330-db39-4c0f-a7ef-73a4f6370f3a"],
Cell[85435, 2026, 295, 6, 35, "Text",ExpressionUUID->"3222b4d5-d651-47e3-ab0a-91787139c7a3"],
Cell[CellGroupData[{
Cell[85755, 2036, 3949, 81, 376, "Input",ExpressionUUID->"4500a40a-a1ab-44e9-ba3a-8ba2b309becf"],
Cell[89707, 2119, 9228, 218, 70, "Output",ExpressionUUID->"3fb70dc9-225a-4daa-959c-d8a02c481710"]
}, Open  ]],
Cell[98950, 2340, 3693, 79, 96, "Input",ExpressionUUID->"cafd5b3e-50d9-4f59-8e13-a116532886ed"],
Cell[CellGroupData[{
Cell[102668, 2423, 3068, 62, 178, "Input",ExpressionUUID->"e05fa977-d507-4ee8-990c-b775210ff820"],
Cell[105739, 2487, 12320, 275, 70, "Output",ExpressionUUID->"ed1fff57-4e14-4bd5-be55-bc0ea965360e"],
Cell[118062, 2764, 1914, 27, 70, "Output",ExpressionUUID->"dd1bfd88-4e08-43ad-af2e-07590fe09534"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[120025, 2797, 755, 12, 37, "Subsubsection",ExpressionUUID->"2a93584d-0a82-46ac-8a42-0f8fece6dd6c"],
Cell[CellGroupData[{
Cell[120805, 2813, 2439, 62, 152, "Input",ExpressionUUID->"12441ac3-eea3-4e2c-af3f-c075564a3643"],
Cell[123247, 2877, 9173, 226, 240, "Output",ExpressionUUID->"3d25f328-1770-4801-be99-fc3011aad529"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132457, 3108, 2467, 61, 142, "Input",ExpressionUUID->"699b57e0-aab6-4ef2-ad5f-08550067e03a"],
Cell[134927, 3171, 8798, 219, 240, "Output",ExpressionUUID->"35ca38ae-b7b0-48ce-9741-2ea5882cb7eb"]
}, Open  ]],
Cell[143740, 3393, 789, 21, 47, "Input",ExpressionUUID->"05097d7d-c284-47f4-85a1-16d94dbf855b"],
Cell[CellGroupData[{
Cell[144554, 3418, 726, 18, 73, "Input",ExpressionUUID->"d54d010b-5c6e-455d-b0ef-9747360375b8"],
Cell[145283, 3438, 347, 6, 24, "Print",ExpressionUUID->"5fd44c34-a5a7-4d93-a641-6a98f233cda7"],
Cell[145633, 3446, 4327, 99, 75, "Output",ExpressionUUID->"33ae8f26-14fa-4943-b9a9-f495bcd323ac"],
Cell[149963, 3547, 4327, 99, 75, "Output",ExpressionUUID->"00df8abb-43be-4646-ac9e-6234a7f6d999"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154327, 3651, 1858, 46, 241, "Input",ExpressionUUID->"10863719-e945-45cb-b939-6c7ae33e7e6f"],
Cell[156188, 3699, 486, 8, 63, "Print",ExpressionUUID->"debf8897-6bb0-4c17-8e36-3c9431258473"],
Cell[156677, 3709, 1630, 36, 38, "Output",ExpressionUUID->"04391e7a-6955-40fa-85d9-f205777ab0cc"],
Cell[158310, 3747, 1636, 35, 38, "Output",ExpressionUUID->"2bff57b9-1c58-476a-83c9-dd0661bf170d"],
Cell[159949, 3784, 1629, 36, 38, "Output",ExpressionUUID->"7fe2e0c4-f50e-4ecd-bc29-4b207f8aa874"],
Cell[161581, 3822, 1633, 35, 38, "Output",ExpressionUUID->"1444afc2-f343-4de0-9b84-deb56d8f61a7"],
Cell[163217, 3859, 436, 8, 44, "Print",ExpressionUUID->"3a5c51b0-e801-472b-81e7-a8908b4c5aac"],
Cell[163656, 3869, 1636, 37, 38, "Output",ExpressionUUID->"c64dfe86-933d-450b-a187-3996949bd437"],
Cell[165295, 3908, 1638, 36, 38, "Output",ExpressionUUID->"3ad3273a-4bca-4f41-8e07-5b3558b3066c"],
Cell[166936, 3946, 1617, 36, 38, "Output",ExpressionUUID->"128c21e5-5d38-459e-b50f-6bfe9946d70d"],
Cell[168556, 3984, 1655, 37, 38, "Output",ExpressionUUID->"46e87891-2d09-41ef-9c96-7df35b1f2fab"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[170260, 4027, 310, 5, 37, "Subsubsection",ExpressionUUID->"52e505ca-403b-4ce0-8b1b-b7d28ff313fd"],
Cell[CellGroupData[{
Cell[170595, 4036, 535, 9, 30, "Input",ExpressionUUID->"5d90f892-29a9-427f-83f3-ed130b8fdc9f"],
Cell[171133, 4047, 4592, 102, 346, "Output",ExpressionUUID->"08b70f6b-cbb0-4a7e-b5c7-22cf99bf5dab"]
}, Open  ]],
Cell[175740, 4152, 331, 7, 35, "Text",ExpressionUUID->"81eae3b4-eaaa-43e9-b728-b5ae19c22818"],
Cell[176074, 4161, 1628, 34, 94, "Input",ExpressionUUID->"20535fc9-c5ad-44f3-9059-ca82554dc998"],
Cell[CellGroupData[{
Cell[177727, 4199, 1965, 42, 94, "Input",ExpressionUUID->"5fd32c61-22c8-4e50-8024-2b0126cfbc84"],
Cell[179695, 4243, 5864, 129, 334, "Output",ExpressionUUID->"6250a20c-4073-4ca1-b022-8d8ff935330d"]
}, Open  ]],
Cell[185574, 4375, 1912, 51, 94, "Input",ExpressionUUID->"1831f191-16e3-42cd-938b-2f793966512a"],
Cell[CellGroupData[{
Cell[187511, 4430, 311, 6, 30, "Input",ExpressionUUID->"ffdd4ffd-4d36-43f1-9bcd-a5b659e7354d"],
Cell[187825, 4438, 5579, 133, 342, "Output",ExpressionUUID->"d04792d6-c090-418b-b4f3-0e114b9e777d"]
}, Open  ]],
Cell[193419, 4574, 2577, 73, 94, "Input",ExpressionUUID->"a7245ea6-de19-479a-ab6d-2528bbb88c43"],
Cell[CellGroupData[{
Cell[196021, 4651, 4400, 92, 56, "Input",ExpressionUUID->"8ebf7156-d95b-479b-8176-9cdbd677872f"],
Cell[200424, 4745, 6335, 151, 86, "Output",ExpressionUUID->"6b6fbf40-5c0f-4c89-9ef9-7600c74029a9"],
Cell[206762, 4898, 6385, 153, 86, "Output",ExpressionUUID->"b251db31-f2a2-45ec-977d-da9d4d07f0c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213184, 5056, 1126, 29, 52, "Input",ExpressionUUID->"6869d6b0-1039-49ee-9ce1-30cf3395cdbe"],
Cell[214313, 5087, 5592, 140, 86, "Output",ExpressionUUID->"9324807a-5628-4a27-b269-74481246cebc"],
Cell[219908, 5229, 5595, 140, 86, "Output",ExpressionUUID->"0094b0c0-120a-4dc6-a8c1-ab5eabe6a3e1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225540, 5374, 3932, 102, 308, "Input",ExpressionUUID->"f81f7778-06b7-4617-b9a8-b59c3c290061"],
Cell[229475, 5478, 325, 6, 24, "Print",ExpressionUUID->"1eb42cde-4ec7-44fb-99d6-cfc55ac5c473"],
Cell[229803, 5486, 3615, 86, 62, "Output",ExpressionUUID->"30f0e086-efa3-407b-a638-76c74c38ffc6"],
Cell[233421, 5574, 3615, 86, 62, "Output",ExpressionUUID->"f2779b23-9eea-49f8-8725-0a36218c9b53"],
Cell[237039, 5662, 311, 5, 24, "Print",ExpressionUUID->"8da27f75-5fe1-456e-93e8-d6ac40677415"],
Cell[237353, 5669, 1803, 39, 38, "Output",ExpressionUUID->"0c94bfcb-7391-4206-91de-50204fc3ef39"],
Cell[239159, 5710, 1827, 40, 38, "Output",ExpressionUUID->"b9ba9010-a8ad-41c0-bfc8-ebe9d22ddb8a"],
Cell[240989, 5752, 309, 5, 24, "Print",ExpressionUUID->"9fa92e77-895a-451f-a329-aa3226f35867"],
Cell[241301, 5759, 1784, 38, 38, "Output",ExpressionUUID->"2fb11fde-376c-4a8c-98d7-56faf5d10ab2"],
Cell[243088, 5799, 1807, 39, 38, "Output",ExpressionUUID->"ef3eee15-54fb-464d-995d-62cb95ee0137"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[244944, 5844, 362, 7, 37, "Subsubsection",ExpressionUUID->"0254aeab-3050-43ac-9e08-67219c9cdb9c"],
Cell[245309, 5853, 1110, 31, 33, "Input",ExpressionUUID->"3984d5af-1b3a-4dd7-9634-f1edee3f2fc1"],
Cell[246422, 5886, 1275, 32, 81, "Text",ExpressionUUID->"bb89d0e7-55ab-4a0f-bde7-3d99944240ed"],
Cell[247700, 5920, 3921, 102, 144, "Input",ExpressionUUID->"142761f7-0223-4d45-bb01-fd7c1efad345"],
Cell[251624, 6024, 552, 15, 52, "Input",ExpressionUUID->"3ab51e55-8b2d-4051-815f-71ab28ac2b82"],
Cell[252179, 6041, 267, 6, 35, "Text",ExpressionUUID->"d0ee8332-7a88-4114-be57-19b3780d71a8"],
Cell[252449, 6049, 563, 15, 52, "Input",ExpressionUUID->"b147c50d-512a-411a-b9fb-63bfefe42e5a"],
Cell[253015, 6066, 1063, 24, 52, "Input",ExpressionUUID->"74d21d88-2086-4a1c-a351-98799e51e54d"],
Cell[254081, 6092, 1878, 51, 52, "Input",ExpressionUUID->"93e85289-9c51-482b-b227-d78b4746f65a"],
Cell[CellGroupData[{
Cell[255984, 6147, 266, 5, 30, "Input",ExpressionUUID->"fad27666-8a72-4022-820e-5660069855ef"],
Cell[256253, 6154, 28979, 700, 378, "Output",ExpressionUUID->"78bba5da-74c4-4af5-aab6-83129cfc02bd"]
}, Open  ]],
Cell[285247, 6857, 2625, 74, 94, "Input",ExpressionUUID->"339ef397-b7db-4a4e-8ea8-0ae5b6b63fb2"],
Cell[287875, 6933, 227, 5, 35, "Text",ExpressionUUID->"8d42bea4-6691-4b24-9ba1-c694a7781e01"],
Cell[288105, 6940, 1182, 28, 94, "Input",ExpressionUUID->"f6864a8d-6d00-48a1-ae84-41e26589ffb7"],
Cell[CellGroupData[{
Cell[289312, 6972, 6719, 149, 404, "Input",ExpressionUUID->"10905224-1f27-410f-b1db-a68880d0fec5"],
Cell[296034, 7123, 33564, 745, 490, "Output",ExpressionUUID->"733f8397-38c8-4678-aedb-6beae3ce89f2"]
}, Open  ]],
Cell[329613, 7871, 376, 11, 34, "Text",ExpressionUUID->"1514160d-6823-4d92-99ed-155fcbd559bf"],
Cell[329992, 7884, 1020, 28, 33, "Input",ExpressionUUID->"67889b67-ef7d-4b3d-b1de-19979a2a5a3d"],
Cell[CellGroupData[{
Cell[331037, 7916, 1377, 23, 178, "Input",ExpressionUUID->"4d2f71b0-28ac-4d27-b7cc-2daab0f407b2"],
Cell[332417, 7941, 10628, 243, 159, "Output",ExpressionUUID->"3fadb294-db5c-4629-b53b-b0f4e7ad52b2"],
Cell[343048, 8186, 10626, 243, 159, "Output",ExpressionUUID->"86e6c328-fb6b-41c4-9db9-4a5d0d5b3c12"],
Cell[353677, 8431, 397, 7, 24, "Print",ExpressionUUID->"7d4d4753-29fd-44fe-9e04-a2800bf43d24"],
Cell[354077, 8440, 2913, 72, 62, "Output",ExpressionUUID->"c526ce2d-5fbc-422f-b4d7-3b6d2e0859c5"],
Cell[356993, 8514, 2931, 73, 62, "Output",ExpressionUUID->"25b280ee-f7f2-4a37-ae82-f81929f68e00"],
Cell[359927, 8589, 397, 7, 24, "Print",ExpressionUUID->"2cebd6ac-94d5-43fd-b2e9-b9914495b317"],
Cell[360327, 8598, 2987, 75, 62, "Output",ExpressionUUID->"73d186cf-7041-4d42-8517-890f7bc22b56"],
Cell[363317, 8675, 2969, 74, 62, "Output",ExpressionUUID->"c3886cca-d784-4401-a332-01d8bb21e474"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)