(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 49628, 1505] NotebookOptionsPosition[ 47601, 1433] NotebookOutlinePosition[ 48023, 1449] CellTagsIndexPosition[ 47980, 1446] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{"Clear", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"s0", ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "b"}], "]"}]}], "-", RowBox[{ RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "b"}], "]"}]}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Ket", "[", RowBox[{"H", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ RowBox[{"Ket", "[", RowBox[{"V", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}]}]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.5469362727807837`*^9, 3.5469364635284777`*^9}, { 3.546936529929571*^9, 3.5469366000730715`*^9}, {3.5469368269212103`*^9, 3.5469368289412127`*^9}, {3.5469369651482086`*^9, 3.5469369661782103`*^9}, {3.5469370876229887`*^9, 3.5469370967476025`*^9}, 3.546937154010085*^9, {3.5469373168037276`*^9, 3.5469373231737366`*^9}, { 3.5469375613280916`*^9, 3.546937583885524*^9}, {3.546937831944892*^9, 3.5469378338648944`*^9}, {3.546939256579835*^9, 3.546939258729838*^9}, { 3.5662370925025864`*^9, 3.5662370929579954`*^9}, {3.5663440280058136`*^9, 3.5663440547108164`*^9}, {3.566344128636139*^9, 3.5663441409772477`*^9}, { 3.5673620847707367`*^9, 3.5673620872639523`*^9}, {3.5673621177633877`*^9, 3.5673621766853886`*^9}, {3.567362256517226*^9, 3.5673622696380014`*^9}, { 3.567362471420509*^9, 3.567362502601585*^9}, {3.5673626145763073`*^9, 3.567362622387306*^9}, {3.567362806046511*^9, 3.567362827122497*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s1", "=", RowBox[{ RowBox[{ RowBox[{"s0", "/.", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Ket", "[", RowBox[{"H", ",", "b"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"Ket", "[", RowBox[{"Hp", ",", " ", "b"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}]}]}], SqrtBox["2"]]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Ket", "[", RowBox[{"H", ",", "c"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Ket", "[", " ", RowBox[{"Hp", ",", "b"}], "]"}]}]}], SqrtBox["2"]]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Ket", "[", RowBox[{"V", ",", "b"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", " ", "c"}], "]"}]}]}], SqrtBox["2"]]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Ket", "[", RowBox[{"V", ",", "c"}], "]"}], " ", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"Ket", "[", RowBox[{"Vp", ",", " ", "c"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}]}], SqrtBox["2"]]}], ")"}]}], "}"}]}], "//", "Simplify"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.546936604774078*^9, 3.546936605674079*^9}, { 3.546937609109762*^9, 3.546937639959412*^9}, 3.5469383409548535`*^9, { 3.5469384181713705`*^9, 3.546938419161372*^9}, {3.566344305362768*^9, 3.566344344510908*^9}, {3.5673620627799425`*^9, 3.567362065046968*^9}, { 3.5673622471327577`*^9, 3.567362251691859*^9}, {3.5673622824665413`*^9, 3.5673624325975866`*^9}, {3.5673627269533653`*^9, 3.567362730894911*^9}, { 3.5673628596297398`*^9, 3.5673629193194027`*^9}, {3.567383283870775*^9, 3.567383367053599*^9}, {3.567438593276967*^9, 3.567438611090991*^9}, 3.567438919284218*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Hp", ",", "b"}], "]"}], "2"], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], "2"], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "c"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "c"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "c"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "c"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Vp", ",", "c"}], "]"}], "2"]}]}]], "Output", CellChangeTimes->{ 3.56736292390853*^9, {3.567365311843524*^9, 3.5673653416913724`*^9}, 3.5673828606790733`*^9, 3.5673829049819255`*^9, 3.5673833713985066`*^9, { 3.5673835698860188`*^9, 3.567383583662442*^9}, 3.5674386152837353`*^9, 3.5674389274135017`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s2", "=", RowBox[{ RowBox[{ RowBox[{"s1", "/.", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Ket", "[", RowBox[{"Hp", ",", "b"}], "]"}], "\[Rule]", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], FractionBox["\[Pi]", "4"]}], "]"}], "Rp"}], ",", "b"}], "]"}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Ket", "[", RowBox[{"Vp", ",", "c"}], "]"}], "\[Rule]", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], FractionBox[ RowBox[{"3", "\[Pi]"}], "4"]}], "]"}], "Lp"}], ",", "c"}], "]"}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Ket", "[", RowBox[{"Hp", ",", "b"}], "]"}], "\[Rule]", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], FractionBox["\[Pi]", "4"]}], "]"}], "Lp"}], ",", "b"}], "]"}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Ket", "[", RowBox[{"Vp", ",", "c"}], "]"}], "\[Rule]", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", FractionBox["\[Pi]", "4"]}], "]"}], "Rp"}], ",", "c"}], "]"}]}], ")"}]}], "}"}]}], "//", "Simplify"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.546936466159481*^9, 3.5469365222495604`*^9}, { 3.5469365909630585`*^9, 3.5469366743419776`*^9}, {3.5469376488634253`*^9, 3.5469376504134274`*^9}, 3.5469383526504717`*^9, 3.5469384414284067`*^9, { 3.567383409954157*^9, 3.567383580586662*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], "2"], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], "2"], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}], "2"]}]}]], "Output", CellChangeTimes->{3.5673835838375716`*^9, 3.567438615432869*^9, 3.567438927495576*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s3", "=", RowBox[{ RowBox[{ RowBox[{"s2", "/.", RowBox[{"{", RowBox[{ RowBox[{"bRp", "\[Rule]", FractionBox[ RowBox[{"bHp", "+", RowBox[{"\[ImaginaryI]", " ", "bVp"}]}], SqrtBox["2"]]}], ",", RowBox[{"bLp", "\[Rule]", FractionBox[ RowBox[{"bHp", "-", RowBox[{"\[ImaginaryI]", " ", "bVp"}]}], SqrtBox["2"]]}], ",", RowBox[{"cRp", "\[Rule]", FractionBox[ RowBox[{"cHp", "+", RowBox[{"\[ImaginaryI]", " ", "cVp"}]}], SqrtBox["2"]]}], ",", RowBox[{"cLp", "\[Rule]", FractionBox[ RowBox[{"cHp", "-", RowBox[{"\[ImaginaryI]", " ", "cVp"}]}], SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.546936692920005*^9, 3.5469367549383*^9}, { 3.5469376642956495`*^9, 3.5469376694384575`*^9}, 3.546938356000476*^9, 3.5469384433356094`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], "2"], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], "2"], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}], "2"]}]}]], "Output", CellChangeTimes->{ 3.5469367565083017`*^9, 3.546936842727233*^9, 3.5469369991738567`*^9, { 3.546937075624171*^9, 3.5469371024376106`*^9}, {3.5469371413390675`*^9, 3.546937161840096*^9}, 3.5469373267937417`*^9, 3.5469375290820436`*^9, 3.546937622526984*^9, {3.546937662071246*^9, 3.5469376700084586`*^9}, 3.5469377629377947`*^9, 3.546938010533557*^9, 3.546938356500477*^9, 3.5469384437656107`*^9, 3.546939266529849*^9, 3.566237154372238*^9, 3.5663441517648993`*^9, {3.5673624622632713`*^9, 3.5673625056272783`*^9}, 3.56736262513778*^9, 3.567362734348017*^9, {3.5673628138765545`*^9, 3.5673628297188053`*^9}, 3.5673629242358246`*^9, {3.567365311931603*^9, 3.567365341785457*^9}, 3.5673828613166466`*^9, 3.567382905151077*^9, 3.5673833716276817`*^9, {3.567383570755802*^9, 3.567383583949698*^9}, 3.567438615500931*^9, 3.5674389275566306`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s4", "=", RowBox[{ RowBox[{ RowBox[{"s3", "/.", RowBox[{"{", RowBox[{ RowBox[{"bHp", "\[Rule]", FractionBox[ RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", "cHpp"}]}], SqrtBox["2"]]}], ",", RowBox[{"cHp", "\[Rule]", FractionBox[ RowBox[{"cHpp", "+", RowBox[{"\[ImaginaryI]", " ", "bHpp"}]}], SqrtBox["2"]]}], ",", RowBox[{"bVp", "\[Rule]", FractionBox[ RowBox[{"bVpp", "+", RowBox[{"\[ImaginaryI]", " ", "cVpp"}]}], SqrtBox["2"]]}], ",", RowBox[{"cVp", "\[Rule]", FractionBox[ RowBox[{"cVpp", "+", RowBox[{"\[ImaginaryI]", " ", "bVpp"}]}], SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.5469367744917297`*^9, 3.546936799993969*^9}, { 3.5469376728724627`*^9, 3.546937673832464*^9}, {3.546938364098288*^9, 3.5469383971579375`*^9}, 3.5469384472824163`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "4"}]]}], " ", "Lp"}], ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], "2"], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], "2"], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Hp", ",", "c"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"3", "/", "4"}]]}], " ", "Rp"}], ",", "b"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"V", ",", "d"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "a"}], "]"}], " ", RowBox[{"Ket", "[", RowBox[{"H", ",", "d"}], "]"}], " ", SuperscriptBox[ RowBox[{"Ket", "[", RowBox[{"Vp", ",", "b"}], "]"}], "2"]}]}]], "Output", CellChangeTimes->{ 3.54693680078957*^9, 3.546936843297234*^9, 3.54693700854387*^9, { 3.5469370765289726`*^9, 3.5469371038176126`*^9}, {3.5469371422190685`*^9, 3.5469371628200974`*^9}, 3.5469373276837425`*^9, 3.546937529142044*^9, 3.546937623993387*^9, 3.5469376740724645`*^9, 3.5469377637377954`*^9, 3.5469380125459604`*^9, {3.546938365998291*^9, 3.5469383977779384`*^9}, 3.546938447682417*^9, 3.54693926731985*^9, 3.5662371544162784`*^9, 3.566344151874027*^9, {3.567362462313317*^9, 3.567362505670331*^9}, 3.56736262518182*^9, 3.5673627343920565`*^9, {3.567362813920597*^9, 3.567362829762848*^9}, 3.567362924477042*^9, {3.5673653119776444`*^9, 3.567365341836503*^9}, {3.5673827683920593`*^9, 3.567382781104495*^9}, 3.56738282477778*^9, 3.5673828619111824`*^9, 3.567382905247164*^9, 3.567383371716792*^9, {3.567383570939967*^9, 3.5673835840387754`*^9}, 3.567438615556981*^9, 3.5674389276026716`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.566237083554537*^9, 3.566237085454285*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\\"", "]"}], "\n", RowBox[{ RowBox[{"s4", ":=", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["bVpp", "2"]}], ")"}]}], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["cHpp", "2"]}], "2"]}]}], ";"}]}], "Input", CellChangeTimes->{{3.5469362727807837`*^9, 3.5469364635284777`*^9}, { 3.546936529929571*^9, 3.5469366000730715`*^9}, {3.5469368269212103`*^9, 3.5469368289412127`*^9}, {3.5469369651482086`*^9, 3.5469369661782103`*^9}, {3.5469370876229887`*^9, 3.5469370967476025`*^9}, 3.546937154010085*^9, {3.5469373168037276`*^9, 3.5469373231737366`*^9}, { 3.5469375613280916`*^9, 3.546937583885524*^9}, {3.546937831944892*^9, 3.5469378338648944`*^9}, {3.546938051958618*^9, 3.5469380663780384`*^9}, { 3.5469384675400467`*^9, 3.546938497423089*^9}, {3.546938827707986*^9, 3.546938833977995*^9}, {3.546938916815115*^9, 3.5469389362387466`*^9}, { 3.546938970001598*^9, 3.546938993084032*^9}, 3.5662370965422196`*^9, { 3.5662371294198227`*^9, 3.5662371365932455`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s3", "=", RowBox[{ RowBox[{ RowBox[{"s4", "/.", RowBox[{"{", RowBox[{ RowBox[{"bHpp", "\[Rule]", FractionBox[ RowBox[{"bHp", "-", RowBox[{"\[ImaginaryI]", " ", "cHp"}]}], SqrtBox["2"]]}], ",", RowBox[{"cHpp", "\[Rule]", FractionBox[ RowBox[{"cHp", "-", RowBox[{"\[ImaginaryI]", " ", "bHp"}]}], SqrtBox["2"]]}], ",", RowBox[{"bVpp", "\[Rule]", FractionBox[ RowBox[{"bVp", "-", RowBox[{"\[ImaginaryI]", " ", "cVp"}]}], SqrtBox["2"]]}], ",", RowBox[{"cVpp", "\[Rule]", FractionBox[ RowBox[{"cVp", "-", RowBox[{"\[ImaginaryI]", " ", "bVp"}]}], SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.546936604774078*^9, 3.546936605674079*^9}, { 3.546937609109762*^9, 3.546937639959412*^9}, {3.5469380969282837`*^9, 3.546938113468109*^9}, {3.5469381964726343`*^9, 3.546938207340251*^9}, { 3.546938248399312*^9, 3.5469382656315384`*^9}, {3.546938320810822*^9, 3.5469383271152315`*^9}, 3.546938596170636*^9, {3.5469388489122167`*^9, 3.546938849862218*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["bHp", "2"]}], "4"]}], "-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["bVp", "2"]}], "4"], "+", FractionBox[ RowBox[{"bHp", " ", "cHp"}], "2"], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["cHp", "2"]}], "4"], "-", FractionBox[ RowBox[{"bVp", " ", "cVp"}], "2"], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["cVp", "2"]}], "4"]}]], "Output", CellChangeTimes->{ 3.5469366059240794`*^9, 3.546936841347231*^9, 3.5469369684334135`*^9, { 3.5469370741421685`*^9, 3.546937099897607*^9}, {3.5469371396080647`*^9, 3.5469371592700925`*^9}, 3.546937324833739*^9, 3.546937528972044*^9, { 3.546937586065527*^9, 3.5469376402394123`*^9}, 3.5469377613477917`*^9, 3.546937838905902*^9, 3.546938266051539*^9, {3.5469383217808237`*^9, 3.5469383273960323`*^9}, 3.546938506459903*^9, {3.5469385965606365`*^9, 3.546938599202241*^9}, {3.546938836427998*^9, 3.546938876054056*^9}, { 3.5469389459011602`*^9, 3.546938995124035*^9}, 3.566237154482338*^9, 3.5663441520371437`*^9, {3.567362462386382*^9, 3.56736250573938*^9}, 3.5673626252498813`*^9, 3.56736273446212*^9, {3.5673628139896564`*^9, 3.56736282983591*^9}, 3.5673629246071587`*^9, {3.5673653120437045`*^9, 3.5673653419055653`*^9}, 3.5673828621664114`*^9, 3.567382905363269*^9, 3.5673833718328667`*^9, {3.567383571058073*^9, 3.5673835841628613`*^9}, 3.567438615633049*^9, 3.567438927662726*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s2", "=", RowBox[{ RowBox[{ RowBox[{"s3", "/.", RowBox[{"{", RowBox[{ RowBox[{"bHp", "\[Rule]", FractionBox[ RowBox[{"bRp", "+", "bLp"}], SqrtBox["2"]]}], ",", RowBox[{"bVp", "\[Rule]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], FractionBox[ RowBox[{"bRp", "-", "bLp"}], SqrtBox["2"]]}]}], ",", RowBox[{"cHp", "\[Rule]", FractionBox[ RowBox[{"cRp", "+", "cLp"}], SqrtBox["2"]]}], ",", RowBox[{"cVp", "\[Rule]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], FractionBox[ RowBox[{"cRp", "-", "cLp"}], SqrtBox["2"]]}]}]}], "}"}]}], "//", "Simplify"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.546938278684758*^9, 3.5469382816043625`*^9}, 3.546938319103619*^9, {3.5469385125371127`*^9, 3.5469385911796293`*^9}, 3.546938853154623*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", "bLp", " ", "bRp"}], "+", FractionBox[ RowBox[{"bLp", " ", "cLp"}], "2"], "+", FractionBox[ RowBox[{"bRp", " ", "cRp"}], "2"], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "cLp", " ", "cRp"}], "2"]}]], "Output", CellChangeTimes->{{3.546938587619624*^9, 3.5469385998418417`*^9}, { 3.546938837509*^9, 3.5469388812150636`*^9}, {3.5469389481579638`*^9, 3.546938995844036*^9}, 3.5662371545283823`*^9, 3.5663441521572514`*^9, { 3.567362462430422*^9, 3.567362505777416*^9}, 3.567362625287918*^9, 3.567362734500157*^9, {3.5673628140276937`*^9, 3.567362829872944*^9}, 3.5673629246992717`*^9, {3.5673653120787373`*^9, 3.5673653419426007`*^9}, 3.5673828622374754`*^9, 3.5673829054253235`*^9, 3.5673833719219756`*^9, { 3.5673835711371765`*^9, 3.5673835842619505`*^9}, 3.5674386156820936`*^9, 3.567438927706766*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s1", "=", RowBox[{ RowBox[{ RowBox[{"s2", "/.", RowBox[{"{", RowBox[{ RowBox[{"bRp", "\[Rule]", RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", FractionBox["\[Pi]", "4"]}], "]"}], "bHp"}]}], ",", RowBox[{"bLp", "\[Rule]", RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", FractionBox[ RowBox[{"3", "\[Pi]"}], "4"]}], "]"}], "bVp"}]}], ",", RowBox[{"cLp", "\[Rule]", RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", FractionBox["\[Pi]", "4"]}], "]"}], "cHp"}]}], ",", RowBox[{"cRp", "\[Rule]", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], FractionBox["\[Pi]", "4"]}], "]"}], "cVp"}]}]}], "}"}]}], "//", "Simplify"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.54693861243526*^9, 3.5469386286962824`*^9}, { 3.546938740564853*^9, 3.5469387746865053`*^9}, 3.5469388541374245`*^9}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "bHp", " ", "bVp"}], "2"], "-", FractionBox[ RowBox[{"bVp", " ", "cHp"}], "2"], "+", FractionBox[ RowBox[{"bHp", " ", "cVp"}], "2"], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "cHp", " ", "cVp"}], "2"]}]], "Output", CellChangeTimes->{{3.5469387713033*^9, 3.5469387753417063`*^9}, { 3.546938838649001*^9, 3.546938882115065*^9}, {3.5469389492031655`*^9, 3.546938996704037*^9}, 3.5662371545724187`*^9, 3.5663441522713532`*^9, { 3.567362462478465*^9, 3.5673625058164535`*^9}, 3.5673626253279514`*^9, 3.5673627345401907`*^9, {3.5673628140667257`*^9, 3.5673628299129796`*^9}, 3.567362924793327*^9, {3.567365312112768*^9, 3.5673653419806333`*^9}, 3.5673828623055367`*^9, 3.5673829054863796`*^9, 3.5673833720130286`*^9, { 3.567383571216215*^9, 3.5673835843610396`*^9}, 3.5674386157341404`*^9, 3.567438927750805*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s0", "=", RowBox[{ RowBox[{ RowBox[{"s1", "/.", RowBox[{"{", RowBox[{ RowBox[{"bHp", "\[Rule]", FractionBox[ RowBox[{"bH", "-", RowBox[{"\[ImaginaryI]", " ", "cH"}]}], SqrtBox["2"]]}], ",", RowBox[{"cHp", "\[Rule]", FractionBox[ RowBox[{"cH", "-", RowBox[{"\[ImaginaryI]", " ", "bH"}]}], SqrtBox["2"]]}], ",", RowBox[{"bVp", "\[Rule]", FractionBox[ RowBox[{"bV", "-", RowBox[{"\[ImaginaryI]", " ", "cV"}]}], SqrtBox["2"]]}], ",", RowBox[{"cVp", "\[Rule]", FractionBox[ RowBox[{"cV", "-", RowBox[{"\[ImaginaryI]", " ", "bV"}]}], SqrtBox["2"]]}]}], "}"}]}], "//", "Simplify"}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.5469387835713205`*^9, 3.546938809543358*^9}, 3.5469388548202257`*^9}], Cell[BoxData[ RowBox[{"bH", " ", "cV"}]], "Output", CellChangeTimes->{{3.5469388103233585`*^9, 3.5469388830250664`*^9}, { 3.5469389503743677`*^9, 3.5469389976350384`*^9}, 3.566237154616459*^9, 3.566344152377449*^9, {3.567362462517501*^9, 3.5673625058544827`*^9}, 3.5673626253649864`*^9, 3.5673627345772247`*^9, {3.56736281410476*^9, 3.5673628299510136`*^9}, 3.5673629248884125`*^9, {3.5673653121477995`*^9, 3.5673653420166645`*^9}, 3.5673828623766003`*^9, 3.5673829055574427`*^9, 3.5673833721021404`*^9, {3.5673835712962875`*^9, 3.567383584459128*^9}, 3.5674386157851872`*^9, 3.5674389277958455`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ TemplateBox[{FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "-", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "+", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], SqrtBox["2"]]}, "Ket"], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.567365302297953*^9, 3.567365338748726*^9}}], Cell[BoxData[ TemplateBox[{FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "-", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "+", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], SqrtBox["2"]]}, "Ket"]], "Output", CellChangeTimes->{{3.567365312207851*^9, 3.567365342052698*^9}, 3.56738286244266*^9, 3.5673829056235023`*^9, 3.5673833721922207`*^9, { 3.5673835713763885`*^9, 3.5673835845592175`*^9}, 3.5674386158552494`*^9, 3.567438927840886*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ TemplateBox[{RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "-", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], SqrtBox["2"]]}]}, "Ket"], " ", "//", "simplify"}]], "Input", CellChangeTimes->{{3.567382839735267*^9, 3.5673828435697126`*^9}}], Cell[BoxData[ RowBox[{"simplify", "[", TemplateBox[{RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "-", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], SqrtBox["2"]]}]}, "Ket"], "]"}]], "Output", CellChangeTimes->{ 3.5673828625087194`*^9, 3.56738290568756*^9, 3.567383372283272*^9, { 3.5673835714564314`*^9, 3.567383584785421*^9}, 3.5674386159123*^9, 3.567438927885927*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"simplify", "[", TemplateBox[{RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "-", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], SqrtBox["2"]]}]}, "Ket"], "]"}], "//", "expand"}]], "Input", CellChangeTimes->{{3.567382854043105*^9, 3.5673828562540936`*^9}}], Cell[BoxData[ RowBox[{"expand", "[", RowBox[{"simplify", "[", TemplateBox[{RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "-", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], SqrtBox["2"]]}]}, "Ket"], "]"}], "]"}]], "Output", CellChangeTimes->{ 3.5673829057516174`*^9, 3.567383372481449*^9, {3.5673835715395064`*^9, 3.567383584889515*^9}, 3.5674389279329696`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"expand", "[", RowBox[{"simplify", "[", TemplateBox[{RowBox[{"-", FractionBox["\[Placeholder]", SqrtBox["2"]]}]}, "Ket"], "]"}], "]"}]], "Input", CellChangeTimes->{{3.567382895730603*^9, 3.5673828958286915`*^9}}], Cell[BoxData[ RowBox[{"expand", "[", RowBox[{"simplify", "[", TemplateBox[{RowBox[{"-", FractionBox["\[Placeholder]", SqrtBox["2"]]}]}, "Ket"], "]"}], "]"}]], "Output", CellChangeTimes->{ 3.567382905819679*^9, 3.5673833725795374`*^9, {3.567383571626585*^9, 3.567383584992607*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "-", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], "//", "expand"}]], "Input", CellChangeTimes->{{3.5673828993699055`*^9, 3.5673829013496857`*^9}}], Cell[BoxData[ RowBox[{"expand", "[", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "-", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], "]"}]], "Output", CellChangeTimes->{ 3.567382905889741*^9, 3.567383372673622*^9, {3.567383571712662*^9, 3.5673835850916967`*^9}, 3.5674386159733553`*^9, 3.567438927983014*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"expand", "[", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", "bVpp"}], "-", RowBox[{"\[ImaginaryI]", " ", "cHpp"}], "+", "cVpp"}], ")"}]}], "]"}], "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"expand", "[", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", FractionBox["\[ImaginaryI]", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"bHpp", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"bVpp", "-", "cHpp"}], ")"}]}], "+", "cVpp"}], ")"}]}], "]"}]], "Output", CellChangeTimes->{ 3.5673829200454745`*^9, 3.567383372764736*^9, {3.567383571795737*^9, 3.567383585190786*^9}, 3.5674386162235804`*^9, 3.5674389280280547`*^9}] }, Open ]] }, WindowSize->{1350, 631}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1809, 40, 52, "Input"], Cell[CellGroupData[{ Cell[2391, 64, 2468, 64, 127, "Input"], Cell[4862, 130, 4070, 123, 154, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8969, 258, 2028, 58, 68, "Input"], Cell[11000, 318, 5508, 182, 154, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16545, 505, 1019, 30, 53, "Input"], Cell[17567, 537, 6303, 193, 154, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23907, 735, 1055, 30, 53, "Input"], Cell[24965, 767, 6367, 194, 154, "Output"] }, Open ]], Cell[31347, 964, 92, 1, 31, "Input"], Cell[31442, 967, 1198, 24, 70, "Input"], Cell[CellGroupData[{ Cell[32665, 995, 1249, 33, 53, "Input"], Cell[33917, 1030, 1585, 33, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35539, 1068, 977, 30, 52, "Input"], Cell[36519, 1100, 964, 20, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37520, 1125, 1098, 31, 46, "Input"], Cell[38621, 1158, 932, 18, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39590, 1181, 939, 29, 53, "Input"], Cell[40532, 1212, 629, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41198, 1226, 518, 14, 61, "Input"], Cell[41719, 1242, 654, 16, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42410, 1263, 567, 15, 61, "Input"], Cell[42980, 1280, 687, 18, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43704, 1303, 608, 16, 61, "Input"], Cell[44315, 1321, 690, 18, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45042, 1344, 264, 7, 50, "Input"], Cell[45309, 1353, 316, 9, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45662, 1367, 417, 12, 47, "Input"], Cell[46082, 1381, 517, 14, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46636, 1400, 420, 13, 47, "Input"], Cell[47059, 1415, 526, 15, 47, "Output"] }, Open ]] } ] *) (* End of internal cache information *)